image of READY prompt

Wang2200.org

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

# Sector 1594, program filename = 'GLS.DTCH'
4417 % -- line 4417 --
4418 DEFFN'233(B9)
   : B1$=HEX(00)
   : IF B9<>INT(B9)OR B9>4THEN B1$=HEX(08)
   : IF B1$<>HEX(00)THEN RETURN
   : IF B8<>B9OR B9<>A1(2,B9)THEN B1$=HEX(B1)
   : IF B1$<>HEX(00)THEN RETURN
   : GOSUB '212(B9)
   : IF POS(HEX(0007)=R1$)=0THEN B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : A1(1,B9),A1(2,B9),B8=-1
   : RETURN