image of READY prompt

Wang2200.org

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

# Sector 1525, program filename = 'PAG.GOTO'
4182 % -- line 4182 --
4186 DEFFN'245(B9,A7)
   : DIM A7(4),A3(4),A9(4),B2(4),B7(4)
   : GOSUB 4338
   : IF B1$<>HEX(00)THEN RETURN
   : IF A7=INT(A7)AND A7>-4THEN 4192
   : B1$=HEX(A8)
   : RETURN
4192 B0=A1(2,B9)
   : V4$="P"
   : GOSUB '220(B0,1,1,1,1)
   : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : X=POS(STR(V1$())=HEX(FF))
   : IF X=0THEN A9(B9)=123
   : ELSE A9(B9)=(X-1)/2
   : A3(B9)=V0
   : GOSUB 4342
   : A0=A7+7
   : IF A0>A9(B9)THEN A0=A9(B9)
   : A7(B9)=A0
   : A7=A0-7
   : B7=VAL(STR(V1$(),A0*2-1),2)
   : B7(B9)=B7
   : IF B7=0THEN B2(B9)=0
   : IF B7=0THEN RETURN
4202 IF A0=123OR STR(V1$(),2*A0+1,2)=HEX(FFFF)THEN GOTO 4207
   : I=A0
4204 I=I+1
   : IF STR(V1$(),I*2-1,2)=HEX(0000)THEN 4204
   : K=VAL(STR(V1$(),I*2-1),2)
   : B2=K-VAL(STR(V1$(),A0*2-1),2)
   : B2(B9)=B2
   : RETURN
4207 B2=V0-B7+1
   : B2(B9)=B2
   : RETURN