Listing of file='609WC300' on disk='vmedia/701-2739G.wvd.zip'
# Sector 574, program filename = '609WC300' 0010 REM '609WC300' - CONVERT WANGWRITER DATA FILE TO DOCUMENT 0145 B2$=" " : GOSUB 2210 : IF R1$=HEX(00)THEN 216 : ON VAL(R1$)-47GOTO 164,165,166,167,168,169,,,170,171,172,173,174,175,176, 177,178,179,180,181,182,183,184,185,186,187,188 0164 GOSUB 2552 : GOTO 210 0165 GOSUB 2554 : GOTO 210 0166 GOSUB 2556 : GOTO 210 0167 GOSUB 2558 : GOTO 210 0168 GOSUB 2560 : GOTO 210 0169 GOSUB 2562 : GOTO 210 0170 GOSUB 2564 : GOTO 210 0171 GOSUB 2566 : GOTO 210 0172 GOSUB 2568 : GOTO 210 0173 GOSUB 2570 : GOTO 210 0174 GOSUB 2572 : GOTO 210 0175 GOSUB 2574 : GOTO 210 0176 GOSUB 2576 : GOTO 210 0177 GOSUB 2578 : GOTO 210 0178 GOSUB 2580 : GOTO 210 0179 GOSUB 2582 : GOTO 210 0180 GOSUB 2584 : GOTO 210 0181 GOSUB 2586 : GOTO 210 0182 GOSUB 2588 : GOTO 210 0183 GOSUB 2590 : GOTO 210 0184 GOSUB 2592 : GOTO 210 0185 GOSUB 2594 : GOTO 210 0186 GOSUB 2596 : GOTO 210 0187 GOSUB 2598 : GOTO 210 0188 GOSUB 2600 0210 GOSUB 2307 : IF R1$=HEX(00)THEN 212 0212 PRINT AT(23,0);B2$;HEX(07) : GOTO 475 0216 D9$=STR(J2$(),,2) : D5$()=STR(J2$(),3,248) : D=3 : IF STR(D9$,2,1)<>HEX(84)THEN 260 : V4$="F" : GOSUB '84(4) 0260 IF STR(D9$,2,1)<>HEX(83)THEN 300 : V4$="H" : GOSUB '84(5) 0300 IF STR(D9$,2,1)<>HEX(82)THEN 360 : V4$="W" : GOSUB '84(6) 0360 V4$="T" : D6=7 0400 GOSUB '83 : IF D4=0THEN 400 0430 V1$()=D1$() : V4$="P" : GOSUB '221(A1,1,1,1,1) 0470 IF B2$<>" "THEN PRINT AT(23,0,);B2$;HEX(07); 0475 COM CLEAR J1$() : GOSUB 2307 : IF R1$=HEX(00)THEN 480 0480 A5=1 : A5$()="609CloseJCATSMAL" : LOAD T<2>A5$() 0520 GOSUB 2510 : GOTO 430 0550 ON VAL(R1$)GOTO 600 : HEXUNPACKR1$TO T2$ : GOSUB 2520 : GOTO 470 0600 GOSUB 2530 : GOTO 470 0640 DEFFN'83 : D6=D6+1 0670 DEFFN'84(D6) : IF D6>123THEN 520 : D1$(D6)=BIN(D,2) : D3=1 : D2$()=ALL(20) 0770 STR(D0$(),8)=STR(D9$,2)&D5$() : $TRAN(STR(D0$(),8,1),HEX(868486838682))R : $TRAN(STR(D0$(),8),J1$()) : IF D3=1AND POS(D2$()>20)=0THEN D4$()=STR(D0$(),8,POS(STR(D0$(),8)=83)) : D1=VAL(D9$) : IF D1>0THEN GOSUB '85(STR(D0$(),8,D1)) : GOSUB 2210 : IF R1$=HEX(01)THEN D4=1 : IF D4=1THEN 994 : IF R1$=HEX(00)THEN 974 0885 ON VAL(R1$)-47GOTO 164,165,166,167,168,169,,,170,171,172,173,174,175,176, 177,178,179,180,181,182,183,184,185,186,187,188 : PRINT AT(23,0);B2$;HEX(07) 0974 D9$=STR(J2$(),,2) : D5$()=STR(J2$(),3,248) : IF END THEN D4=1 : IF D4=1THEN 994 : IF POS(STR(D3$,1)=STR(D9$,2,1))=0THEN 770 : IF D6<>123THEN GOSUB '85(HEX(8F)) 0994 IF POS(-D2$()>20)=0THEN 1002 : V1$()=D2$() : GOSUB 1540 : IF R1$<>HEX(00)THEN 550 1002 RETURN 1030 DEFFN'85(D3$()) 1050 IF POS(-D2$()>20)+POS(-D3$()>20)>245THEN 1090 : STR(D2$(),POS(D2$()=20))=D3$() : RETURN 1090 S7=POS(-D2$()>20) : IF S7=0THEN 1130 : V1$()=STR(D2$(),1,S7) : D2$()=" " 1130 IF S7<246THEN STR(V1$(),1+S7)=STR(D3$(),1,246-S7) : D3$()=STR(D3$(),246-S7+1) : IF D3=D2THEN 1240 : GOSUB 1540 : IF POS(-D3$()>20)>245THEN 1090 : D2$()=D3$() : RETURN 1240 GOSUB 2540 : S8=POS(V1$()=86) : IF S8=0THEN 1320 : S9=POS(STR(V1$(),S8)=83)+S8-1 : IF S9=S8-1THEN S8=S8-1 : ELSE S8=S9+1 : GOTO 1350 1320 S8=POS(STR(V1$(),230)=80)+229 : IF S8=229THEN S8=245 1350 D$()=STR(V1$(),S8) : IF D6<>123THEN STR(V1$(),S8)=HEX(8F) : ELSE STR(V1$(),S8)=" " : GOSUB 1540 : D3=1 : D6=D6+1 : IF D6>123THEN 520 : D1$(D6)=BIN(D,2) : D2$()=D4$() : D$()=D$()&D3$() : D3$()=D$() : GOTO 1050 1540 GOSUB '225(A1,1,1,1) : IF R1$<>HEX(00)THEN 550 : D=D+1 : D3=D3+1 : RETURN 1620 DEFFN'31 : A5$="609menu" : GOTO 470 2500 % DO NOT RENUMBER THE FOLLOWING 2510 B2$="Too many pages, document partially retrieved" : RETURN 2520 B2$="Error occurred while adding records = "&T2$ : RETURN 2530 B2$="Volume Full" : RETURN 2540 B2$="Warning : a page was split in document due to size limits" : RETURN 2550 B2$="Unable to transfer data" : RETURN 2552 B2$="Operation Not Done" : RETURN 2554 B2$="Drive Not Ready" : RETURN 2556 B2$="Write Protected" : RETURN 2558 B2$="Disk CRC Error" : RETURN 2560 B2$="Disk Format Error" : RETURN 2562 B2$="Drive Malfunction" : RETURN 2564 B2$="Programming Error" : RETURN 2566 B2$="Drive Dropped Ready" : RETURN 2568 B2$="Document Not Found" : RETURN 2570 B2$="Invalid FRN" : RETURN 2572 B2$="File Not Open" : RETURN 2574 B2$="Document in Use" : RETURN 2576 B2$="Invalid Class" : RETURN 2578 B2$="Unsupported Diskette" : RETURN 2580 B2$="No Room on Diskette" : RETURN 2582 B2$="Invalid Page Number" : RETURN 2584 B2$="Document(s) Still in Use" : RETURN 2586 B2$="Volume Label Damaged" : RETURN 2588 B2$="No Room on Diskette" : RETURN 2590 B2$="Document Exists" : RETURN 2592 B2$="Not an Archive Disk" : RETURN 2594 B2$="Not a System Disk" : RETURN 2596 B2$="Copy Incomplete" : RETURN 2598 B2$="Run Recovery" : RETURN 2600 B2$="Number of Retries Exceeds Limit" : RETURN