image of READY prompt

Wang2200.org

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

# Sector 1555, program filename = 'PAG.INS'
4221 % -- line 4221 ---
4222 DEFFN'249(B9)
   : DIM B0$(123)2,B7$2,A0(5)
   : B1$=HEX(00)
   : GOSUB 4338
   : IF B1$<>HEX(00)THEN RETURN
   : B0=A1(2,B9)
   : A0=A7(B9)
   : A9=A9(B9)
   : IF A0<8THEN B1$=HEX(A8)
   : IF A0<8THEN RETURN
   : IF A9=123THEN B1$=HEX(A1)
   : IF A9=123THEN RETURN
   : B2=INT(LEN(V0$())/246)+1
   : V4$="T"
   : GOSUB '222(B0,1,B7(B9),B2,2)
   : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : GOSUB 4348
   : B0$()=ALL(00)
4236 B7$=BIN(B2,2)
   : STR(B0$(),A0*2+1)=STR(V1$(),A0*2-1)
   : FOR X=A0+1TO A9+1
   : B0$(X)=ADDCB7$
   : NEXT X
   : STR(V1$(),A0*2+1)=STR(B0$(),A0*2+1)
   : V4$="P"
   : GOSUB '221(B0,1,1,1,1)
   : B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : A3(B9)=V0
   : A9(B9)=A9(B9)+1
   : B2(B9)=B2
   : GOSUB 4342
   : GOSUB 4358
   : A0(3)=A9(B9)
   : GOSUB 4374
   : RETURN