image of READY prompt

Wang2200.org

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

# Sector 1051, program filename = 'CAT.OPEN'
4788 M=M+1
   : GOSUB 4756
   : GOSUB 4616
   : IF U3(2)<>0THEN 4790
   : R1$=BIN(3)
   : GOTO 4834
4790 HEXUNPACKSTR(V2$(),U3(2)+16,2)TO V8$
   : V8$=STR(V8$,,3)
   : V3=POS(U4$="0")
   : IF V3>0THEN 4792
   : R1$=BIN(4)
   : GOTO 4834
4792 U0=16-V3
   : STR(U4$,V3,1)="1"
   : V3=V3-1
   : V0$=V3$
   : SELECT #U0<V8$>
   : GOSUB 4698
   : $CLOSE#0
   : GOTO 4838