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