image of READY prompt

Wang2200.org

Listing of file='CAT.FMOD' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 963, program filename = 'CAT.FMOD'
4568 DEFFN'213(V3,U7$,U9$,V7)
   : M=0
   : GOSUB 4726
   : IF STR(V5$(),V7(8)+4,1)=HEX(FF)THEN 4570
   : R1$=HEX(06)
   : GOTO 4834
4570 V2$=U7$
   : IF V7=0OR V7=2THEN 4572
   : GOSUB 4610
   : IF V7(4)=0THEN 4572
   : R1$=BIN(2)
   : GOTO 4836
4572 U3(1)=VAL(STR(V5$(),V7(8)+15,2),2)
   : GOSUB 4710
   : V7(4)=U3(1)
   : IF V7=0OR V7=2THEN 4574
   : U7$=STR(V2$(),61,67)
   : GOSUB 4662
   : U7$=V2$
   : GOSUB 4598
   : STR(V2$(),61,67)=V2$
4574 IF V7=0OR V7=1THEN 4576
   : STR(V5$(),V7(8)+5,6)=U9$
4576 STR(V5$(),V7(8)+15,2)=BIN(V7(4),2)
   : STR(V2$(),4,32)=STR(V5$(),V7(8)+1,32)
   : STR(V2$(),3,1)=HEX(01)
   : U3(1)=V7(4)
   : GOSUB 4714
   : GOTO 4836