image of READY prompt

Wang2200.org

Listing of file='CAT.FCRE' on disk='vmedia/701-2739G.wvd.zip'

# Sector 353, program filename = 'CAT.FCRE'
4514 DEFFN'210(U7$,U8$,U9$)
   : M=0
   : R1$=BIN(0)
   : V3$=U8$
   : GOSUB 4788
   : V2$=U7$
   : V7(8)=3
   : GOSUB 4598
   : IF V7(4)>0THEN 4516
   : R1$=BIN(2)
   : GOTO 4518
4516 U3(1)=0
   : GOSUB 4710
   : U5(3)=VAL(STR(V2$(),V7(8)+13,2),2)
   : STR(V2$(),V7(8)+31,2)=BIN(VAL(STR(V2$(),V7(8)+31,2),2)+1,2)
   : GOSUB 4714
4517 STR(V2$(),V7(8)+1,22)=ALL(00)
   : STR(V2$(),V7(8)+58,67)=V2$
   : STR(V2$(),3,1)=BIN(1)
   : STR(V2$(),V7(8)+5,6)=U9$
   : STR(V2$(),V7(8)+15,2)=BIN(V7(4),2)
   : STR(V2$(),V7(8)+33,2)=BIN(V7(10),2)
   : U3(1)=V7(4)
   : STR(V2$(),V7(8)+13,2)=BIN(U5(3),2)
   : GOSUB 4714
4518 STR(U4$,V3+1,1)="0"
   : GOTO 4836