image of READY prompt

Wang2200.org

Listing of file='PAG.APD' on disk='vmedia/731-0071G.wvd.zip'

# Sector 1543, program filename = 'PAG.APD'
4302 % -- line 4302 --
4303 DEFFN'252(B9)
   : B1$=HEX(00)
   : DIM A0(5)
   : GOSUB 4338
   : IF B1$<>HEX(00)THEN RETURN
   : B0=A1(2,B9)
   : A0=A7(B9)
   : A9=A9(B9)
   : IF A9=123THEN B1$=HEX(A1)
   : IF A9=123THEN RETURN
   : B2=INT((LEN(V0$())-1)/246)+1
   : V4$="T"
   : GOSUB '225(B0,1,B2,2)
   : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : GOSUB 4348
   : STR(V1$(),A9*2+1,2)=BIN(V0-B2+1,2)
4313 V4$="P"
   : GOSUB '221(B0,1,1,1,1)
   : B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : A3(B9)=V0
   : A9(B9)=A9+1
   : B2(B9)=B2
   : A7(B9)=A0+1
   : A7=A9(B9)-7
   : GOSUB 4342
   : GOSUB 4358
   : A0(3)=A9(B9)
   : GOSUB 4374
   : RETURN