image of READY prompt

Wang2200.org

Listing of file='609P2200' on disk='vmedia/731-0067G.wvd.zip'

# Sector 2400, program filename = '609P2200'
1500 REM
1502 GOSUB '220(A1,1,1,1,1)
   : C7$()=V1$()
   : IF STR(C7$(),7,2)<>HEX(0000)THEN D0=0
   : IF STR(C7$(),9,2)<>HEX(0000)THEN D1=0
   : RETURN
1550 D3=VAL(STR(C7$(),J7,2),2)-1
   : GOTO 1555
1555 DEFFN'35
   : D3=D3+1
   : IF D3=VAL(STR(C7$(),13,2),2)THEN D3=D3+1
   : GOSUB '220(A1,1,D3,1,1)
   : IF R1$<>HEX(00)AND R1$<>HEX(25)AND R1$<>HEX(28)THEN 1601
   : D$()=STR(V1$(),,LEN(V1$()))&ALL(00)
   : IF D$(POS(D$()=00)-1)=HEX(8F)THEN D$(POS(D$()=00)-1)=HEX(00)
   : H=0
   : IF STR(D$(),,1)=HEX(8F)THEN H=1
   : $TRAN(D$(),HEX(868F))R
   : RETURN
1601 PRINT AT(23,0,80);HEX(020402000E);"WPFM error ";HEXOF(R1$);" Please Cance
     l.";HEX(07);
   : KEYIN I$
   : IF I$<>HEX(F0)AND I$<>HEX(50)THEN 1601
   : GOSUB '31