image of READY prompt

Wang2200.org

Listing of file='CAT.FOC' on disk='vmedia/731-0071G.wvd.zip'

# Sector 1023, program filename = 'CAT.FOC'
4588 DEFFN'215(U7$,U8$)
   : M=0
   : R1$=BIN(0)
   : V3$=U8$
   : GOSUB 4788
   : GOSUB 4610
   : IF V7(4)>0THEN 4590
   : R1$=BIN(3)
   : GOTO 4592
4590 U3(1)=V7(4)
   : GOSUB 4710
   : V7(8)=3
   : STR(V2$(),V7(8)+4,1)=BIN(0)
   : GOSUB 4714
4592 STR(U4$,V3+1,1)="0"
   : $CLOSE#U0
   : $CLOSE#0
   : RETURN