Listing of file='609WW300' on disk='vmedia/701-2739G.wvd.zip'
# Sector 526, program filename = '609WW300' 0010 REM '609WW300' - CONVERT DOCUMENT TO WANGWRITER FILE 0180 STR(D2$(),227,18)=HEX(0011020020000220056610130401AACA1704) : STR(D2$(),245,6)=B4$ : $TRAN(STR(D2$(),245,6),D3$()) : $TRAN(STR(D2$(),245,6),HEX(0020))R : STR(D2$(),252,1)=BIN(56) : STR(D2$(),253,1)=HEX(03) : D2$=BIN(D7,2) : STR(D2$(),254,2)=STR(D2$,2,1)&STR(D2$,1,1) : STR(D2$(),256,1)=HEX(DF) : D7$()=D2$() 0360 STR(D7$(),3,5)=HEX(FF)&"A"&D1$ : OR (STR(D7$(),8,5),80) : D6$=BIN(249)&STR(D7$(),8,1) : D8$()=STR(D7$(),9) : D9=2 0470 GOSUB 990 : IF R1$<>HEX(28)AND R1$<>HEX(00)THEN 926 : IF R1$=HEX(28)THEN D8=1 : D2$=BIN(D9,2) : MAT SEARCHD6$(),=STR(D2$,1,2)TO D1$()STEP 2 : IF D1$()=HEX(0000)THEN 720 : C=VAL(D1$(),2) : IF C<>5THEN 650 : MAT SEARCHSTR(D6$(),7),>HEX(0000)TO D6$STEP 2 : C=VAL(D6$,2)+6 : D9=VAL(STR(D6$(),C),2)-1 : GOTO 470 0650 IF C<>13THEN 720 : MAT SEARCHSTR(D6$(),15),>HEX(0000)TO D6$STEP 2 : C=VAL(D6$,2)+14 : D9=VAL(STR(D6$(),C),2)-1 : GOTO 470 0720 S7=POS(STR(V1$(),2)=8F)+1 : IF S7=1THEN 770 : STR(V1$(),S7)=ALL(20) : S7=S7-1 : GOTO 780 0770 S7=POS(-V1$()>20) 0780 D3$=BIN(S7) : $TRAN(V1$(),D3$()) : IF D1$()<>HEX(0000)THEN IF C<15THEN STR(V1$(),1,1)=STR(D5$,INT(C/2)-2,1) : STR(D3$,2,1)=STR(V1$(),1,1) : D8$()=STR(V1$(),2) : J2$()=D3$&D8$(1)&D8$(2) : GOSUB 2007 : IF R1$=HEX(00)THEN 900 0874 ON VAL(R1$)-47GOTO 875,876,877,878,879,880,,,881,882,882,884,885,886,887, 888,889,890,891,892,893,894,895,896,897,898,899 0875 GOSUB 2542 : GOTO 916 0876 GOSUB 2544 : GOTO 916 0877 GOSUB 2546 : GOTO 916 0878 GOSUB 2548 : GOTO 916 0879 GOSUB 2550 : GOTO 916 0880 GOSUB 2552 : GOTO 916 0881 GOSUB 2554 : GOTO 916 0882 GOSUB 2556 : GOTO 916 0883 GOSUB 2558 : GOTO 916 0884 GOSUB 2560 : GOTO 916 0885 GOSUB 2562 : GOTO 916 0886 GOSUB 2564 : GOTO 916 0887 GOSUB 2566 : GOTO 916 0888 GOSUB 2568 : GOTO 916 0889 GOSUB 2570 : GOTO 916 0890 GOSUB 2572 : GOTO 916 0891 GOSUB 2574 : GOTO 916 0892 GOSUB 2576 : GOTO 916 0893 GOSUB 2578 : GOTO 916 0894 GOSUB 2580 : GOTO 916 0895 GOSUB 2582 : GOTO 916 0896 GOSUB 2584 : GOTO 916 0897 GOSUB 2586 : GOTO 916 0898 GOSUB 2588 : GOTO 916 0899 GOSUB 2590 : GOTO 916 0900 IF D8=0THEN 470 : GOSUB 2107 : IF R1$=HEX(00)THEN 912 : ON VAL(R1$)-47GOTO 875,876,877,878,879,880,,,881,882,882,884,885,886,887, 888,889,890,891,892,893,894,895,896,897,898,899 : GOSUB 2530 0912 A5$="609WWBEG" 0916 GOSUB 2307 : IF R1$=HEX(00)THEN 922 : GOSUB 2540 0922 IF B2$=" "THEN GOTO 923 : PRINT AT(22,0,);B2$;HEX(07); 0923 COM CLEAR D1 : A5$()="609CloseJCATSMAL" : LOAD T<2>A5$() 0926 GOSUB 2307 : IF R1$=HEX(00)THEN 932 : GOSUB 2540 : PRINT AT(23,0);B2$;HEX(07) : GOTO 916 0932 GOSUB 2500 : GOTO 916 0990 D9=D9+1 : GOSUB '220(A1,1,D9,1,1) : RETURN 2500 HEXUNPACKR1$TO T2$ : B2$="Error occurred while reading document = "&T2$ : RETURN 2530 B2$="Error occurred in end of file" : RETURN 2540 B2$="Error occurred in exiting file transfer mode" : RETURN 2542 B2$="Operation Not Done" : RETURN 2544 B2$="Drive Not Ready" : RETURN 2546 B2$="Write Protected" : RETURN 2548 B2$="Disk CRC Error" : RETURN 2550 B2$="Disk Format Error" : RETURN 2552 B2$="Drive Malfunction" : RETURN 2554 B2$="Programming Error" : RETURN 2556 B2$="Drive Dropped Ready" : RETURN 2558 B2$="Document Not Found" : RETURN 2560 B2$="Invalid FRN" : RETURN 2562 B2$="File Not Open" : RETURN 2564 B2$="Document in Use" : RETURN 2566 B2$="Invalid Class" : RETURN 2568 B2$="Unsupported Diskette" : RETURN 2570 B2$="No Room on Diskette" : RETURN 2572 B2$="Invalid Page Number" : RETURN 2574 B2$="Document(s) Still in Use" : RETURN 2576 B2$="Volume Label Damaged" : RETURN 2578 B2$="No Room on Diskette" : RETURN 2580 B2$="Document Exists" : RETURN 2582 B2$="Not an Archive Disk" : RETURN 2584 B2$="Not a System Disk" : RETURN 2586 B2$="Copy Incomplete" : RETURN 2588 B2$="Run Recovery" : RETURN 2590 B2$="Number of Retries Exceeds Limit" : RETURN