image of READY prompt

Wang2200.org

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

# Sector 871, program filename = 'PAG.DEL'
4278 % -- line 4278 --
4279 DEFFN'251(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)
   : B7=B7(B9)
   : B2=B2(B9)
   : IF B2=0AND B7=0THEN RETURN
   : GOSUB 4348
   : B0$()=V1$()
   : IF B0$(A0+1)=HEX(FFFF)THEN B1$=HEX(A2)
   : IF B1$<>HEX(00)THEN RETURN
4287 I$="FHWE"
   : IF A0>7THEN V4$="T"
   : ELSE V4$=STR(I$,A0-3)
   : GOSUB '223(B0,B7,B2)
   : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : GOSUB 4348
   : B0$()=V1$()
   : B7$=BIN(B2,2)
   : IF A0>7THEN 4292
   : B0$(A0)=HEX(0000)
   : FOR I=A0+1TO 7
   : IF B0$(I)<>HEX(0000)AND I<8THEN B0$(I)=SUBCB7$
   : NEXT I
4292 IF A0<8THEN Y=8
   : ELSE Y=A0
   : FOR X=YTO A9
   : B0$(X)=SUBCB7$
   : NEXT X
   : IF A0<8THEN V1$()=B0$()
   : ELSE STR(V1$(),A0*2+1)=STR(B0$(),A0*2+3)&HEX(FFFF)
   : V4$="P"
   : GOSUB '221(B0,1,1,1,1)
   : B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : GOSUB 4342
   : A3(B9)=V0
   : IF A0>7THEN 4298
   : B7(89),B2(B9)=0
   : RETURN
4298 B7(B9)=VAL(STR(V1$(),2*A7(B9)-1),2)
   : B2(B9)=VAL(STR(V1$(),2*A7(B9)+1),2)-B7(B9)
   : A9(B9)=A9(B9)-1
   : GOSUB 4358
   : A0(3)=A9(B9)
   : GOSUB 4374
   : RETURN