image of READY prompt

Wang2200.org

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

# Sector 423, program filename = 'CAT.VMAN'
4812 DEFFN'234(V3$)
   : M=0
   : GOSUB 4756
   : U3(1)=2
   : GOSUB 4672
   : IF U3(2)=0THEN R1$=BIN(3)
   : GOTO 4836
4814 DEFFN'238(V3$,V8$)
   : M=0
   : GOSUB 4756
   : GOSUB 4616
   : IF U3(2)<>0THEN 4816
   : R1$=BIN(3)
   : GOTO 4836
4816 HEXPACKV7$FROMV8$
   : STR(V2$(),U3(2)+16,2)=STR(V7$,,2)
   : GOSUB 4714
   : GOTO 4836
4844 DEFFN'239(V3$,V8$)
   : M=0
   : GOSUB 4756
   : GOSUB 4616
   : IF U3(2)=0THEN 4782
   : R1$=HEX(02)
   : GOTO 4836
4846 DEFFN'237(V3$)
   : M=0
   : GOSUB 4756
   : GOSUB 4616
   : IF U3(2)<>0THEN 4848
   : R1$=BIN(3)
   : GOTO 4834
4848 HEXUNPACKSTR(V2$(),U3(2)+16,2)TO V8$
   : V8$=STR(V8$,,3)
   : SELECT #11<V8$>
   : SCRATCH T#11,STR(V3$,,8)
   : ERRORR1$=BIN(ERR)
   : GOTO 4836
4850 U3(1)=2
   : GOSUB 4672
   : IF U3(2)=0THEN R1$=BIN(3)
   : GOTO 4836