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