image of READY prompt

Wang2200.org

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

# Sector 865, program filename = 'DOC.DEL'
4151 % --- line 4151 --
4152 DEFFN'209(B9)
   : B1$=HEX(00)
   : IF B9<>INT(B9)OR B9<=0OR B9>4OR B8=B9THEN B1$=HEX(08)
   : IF A1(1,B9)<>B9OR A1(2,B9)=-1THEN B1$=HEX(07)
   : IF B1$<>HEX(00)THEN RETURN
   : GOSUB '214(A1(2,B9))
   : B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : A1(1,B9),A1(2,B9)=-1
   : RETURN