Listing of file='609P2200' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2424, 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