image of READY prompt

Wang2200.org

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

# Sector 1510, program filename = 'PAG.READ'
4211 % -- line 4211 --
4212 DEFFN'247(B9)
   : B1$=HEX(00)
   : GOSUB 4338
   : IF B1$<>HEX(00)THEN RETURN
   : B0=A1(2,B9)
   : A0=A7(B9)
   : B2=B2(B9)
   : B7=B7(B9)
   : I$="PAGFHWE"
   : IF A0>7THEN V4$="T"
   : ELSE V4$=STR(I$,A0)
   : IF B7=0THEN V0$()=" "
   : IF B7=0THEN RETURN
   : V0$()=" "
   : GOSUB '220(B0,1,B7,B2,2)
   : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$
   : RETURN