image of READY prompt

Wang2200.org

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

# Sector 918, program filename = 'PAG.REWT'
4246 % -- line 4246 --
4247 DEFFN'248(B9)
   : DIM B0$(123)2,B7$2
   : B1$=HEX(00)
   : GOSUB 4338
   : IF B1$<>HEX(00)THEN RETURN
   : B0=A1(2,B9)
   : A0=A7(B9)
   : A9=A9(B9)
   : B2=B2(B9)
   : B7=B7(B9)
   : GOSUB 4348
   : V=LEN(V0$())
   : A4=INT(V/246)+1
   : IF V=0THEN B1$=HEX(27)
   : IF V=0THEN RETURN
   : IF B7=0AND A0<8THEN GOSUB 4260
   : IF B1$<>HEX(00)THEN RETURN
   : IF B7>0THEN GOSUB 4269
   : IF B1$<>HEX(00)THEN RETURN
   : IF A4=B2(B9)THEN RETURN
4256 V4$="P"
   : GOSUB '221(B0,1,1,1,1)
   : B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : A3(B9)=V0
   : B7(B9)=B7
   : IF A0<8THEN B2(B9)=B2
   : ELSE B2(B9)=A4
   : GOSUB 4342
   : RETURN
4260 I$="FHWE"
   : V4$=STR(I$,A0-3)
   : GOSUB '222(B0,1,B7,B2,2)
   : B1$=R1$
   : IF R1$<>HEX(00)THEN RETURN
   : B0$()=ALL(00)
   : GOSUB 4348
   : B7$=BIN(B2,2)
   : STR(B0$(),A0*2+1)=STR(V1$(),A0*2+1)
   : FOR X=A0TO A9
   : IF B0$(X)<>HEX(0000)THEN B0$(X)=ADDCB7$
   : NEXT X
4264 I=A0
   : I=I+1
   : IF STR(V1$(),I*2-1,2)=HEX(0000)THEN 4264
   : B7=VAL(STR(V1$(),I*2-1),2)
   : STR(B0$(),A0*2-1,2)=STR(V1$(),I*2-1,2)
   : STR(V1$(),A0*2+1)=STR(B0$(),A0*2+1)
   : RETURN
4269 I$="FHWE"
   : IF A0>7THEN V4$="T"
   : ELSE V4$=STR(I$,A0-3)
   : GOSUB '226(B0,V,B2(B9),B7(B9))
   : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : IF A4=B2(B9)THEN RETURN
   : GOSUB 4348
   : B7$=BIN(ABS(A4-B2(B9)),2)
   : STR(B0$(),A0*2-1)=STR(V1$(),A0*2-1)
   : IF A0=A9THEN RETURN
   : IF A4>B2(B9)THEN 4274
   : FOR X=A0+1TO A9
   : IF B0$(X)<>HEX(0000)THEN STR(V1$(),2*X-1,2)=SUBCB7$
   : NEXT X
   : RETURN
4274 FOR X=A0+1TO A9
   : IF B0$(X)<>HEX(0000)THEN STR(V1$(),2*X-1,2)=ADDCB7$
   : NEXT X
   : RETURN