image of READY prompt

Wang2200.org

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

# Sector 1601, program filename = 'DOC.PASS'
4161 % --  line 4161 --
4162 DEFFN'79(A6$,B9)
   : IF B9<>INT(B9)OR B9<=0THEN B1$=HEX(08)
   : IF A1(1,B9)<>B9OR A1(2,B9)=-1THEN B1$=HEX(07)
   : IF B1$<>HEX(00)THEN RETURN
   : GOSUB '213(A1(2,B9)," ",A6$,2)
   : B1$=R1$
   : RETURN