Listing of file='609WW200' on disk='vmedia/701-2739G.wvd.zip'
# Sector 514, program filename = '609WW200' 0010 REM '609WW200' - CONVERT DOCUMENT TO WANGWRITER FILE 0160 COM D1$3,D1$(1)2,D2$(16),D3$2,D3$(16),D4$(16),D5$(3)82,D6$2,D6$(3)82,D7$( 16),D8$(2)124,D5$3 : COM D0,D2,D3,D4,D5,D6,D8,D9 : COM V1$(3)82,V4$1 : B2$=" " : B2$=" " : D8=0 : D5$=HEX(848382) : LIMITS T#0,"609$TRAN",D2,D3,D5,D6 : DATA LOAD BA T#0,(D2)D3$() : CONVERT STR(R5$,1,4)TO S7 : PACK(####)D1$FROMS7 0330 STR(D1$,3,1)=STR(R5$,5,1) : GOSUB 1480 : IF R1$<>HEX(00)THEN 1440 : D6$()=V1$() : GOSUB 1480 : IF R1$<>HEX(00)THEN 1440 : D5$()=V1$() : $UNPACK(F=HEX(A019A0066006A002A001))D5$()TO A6$(),A7$(),A0(),A8$(),A9$() : D2$()=ALL(00) : STR(D2$(),14,25)=A6$(1) : $TRAN(STR(D2$(),14,25),D3$()) : STR(D2$(),40,20)=A6$(2) 0520 $TRAN(STR(D2$(),40,20),D3$()) : STR(D2$(),61,20)=A6$(3) : $TRAN(STR(D2$(),61,20),D3$()) : STR(D2$(),81,20)=A6$(4) : $TRAN(STR(D2$(),81,20),D3$()) : STR(D2$(),8,5)=A7$(1) : OR (A7$(3),80) : STR(D2$(),112,2)=A7$(3) : STR(D2$(),115,2)=STR(A7$(3),3) : OR (A7$(2),80) : STR(D2$(),103,2)=A7$(2) 0680 STR(D2$(),106,2)=STR(A7$(2),3,2) : STR(D2$(),109,2)=STR(A7$(2),5,2) : OR (A7$(4),80) : STR(D2$(),118,4)=A7$(4) : STR(D2$(),123,2)=STR(A7$(4),5,2) : OR (A7$(6),80) : STR(D2$(),142,2)=A7$(6) : STR(D2$(),145,2)=STR(A7$(6),3,2) : OR (A7$(5),80) : STR(D2$(),133,2)=A7$(5) : STR(D2$(),136,2)=STR(A7$(5),3,2) 0820 STR(D2$(),139,2)=STR(A7$(5),5,2) : OR (A7$(7),80) : STR(D2$(),148,4)=A7$(7) : STR(D2$(),153,2)=STR(A7$(7),5,2) : OR (A7$(9),80) : STR(D2$(),172,2)=A7$(9) : STR(D2$(),175,2)=STR(A7$(9),3,2) : OR (A7$(8),80) : STR(D2$(),163,2)=A7$(8) : STR(D2$(),166,2)=STR(A7$(8),3,2) : STR(D2$(),169,2)=STR(A7$(8),5,2) 0970 STR(D2$(),187,2),STR(D2$(),190,2)="00" : STR(D2$(),178,2)=STR(R2$,,2) : STR(D2$(),181,2)=STR(R2$,3,2) : STR(D2$(),184,2)=STR(R2$,5,2) : STR(D2$(),193,5)=D4$ : OR (A7$(13),80) : STR(D2$(),203,4)=A7$(13) : STR(D2$(),208,2)=STR(A7$(13),5,2) : CONVERT A0(1)TO D2$,(######) : GOSUB 1380 : OR (D2$,80) : STR(D2$(),126,6)=D2$ 1150 CONVERT A0(2)TO D2$,(######) : GOSUB 1380 : OR (D2$,80) : STR(D2$(),156,6)=D2$ : CONVERT A0(3)-7TO D2$,(###) : GOSUB 1380 : OR (D2$,80) : STR(D2$(),199,3)=D2$ : CONVERT A0(4)TO D2$,(#####) : GOSUB 1380 : OR (D2$,80) : STR(D2$(),211,5)=D2$ : CONVERT A0(5)TO D2$,(######) : GOSUB 1380 : OR (D2$,80) : STR(D2$(),217,6)=D2$ : A5$()="609WW300FILERS REC-GEN REC-RD" 1360 LOAD T<4>A5$() 1380 IF STR(D2$,1,1)>"0"THEN RETURN : IF POS(D2$>"0")=0THEN D2$=" " : ELSE STR(D2$,1,POS(D2$>"0")-1)=" " : RETURN 1410 REM DATA SAVE DC CLOSE #D4 1420 COM CLEAR D1 : A5$()="609CloseJCATSMAL" : LOAD T<2>A5$() 1440 GOSUB 2307 : IF R1$<>HEX(00)THEN 1445 : GOSUB 2535 : PRINT AT(23,0);B2$;HEX(07) : GOTO 1420 1445 GOSUB 2510 : GOTO 1410 1480 D9=D9+1 : GOSUB '220(A1,1,D9,1,1) : RETURN 2500 B2$="(In Progress)" : RETURN 2510 HEXUNPACKR1$TO T2$ : B2$="Error occurred while reading document = "&T2$ : RETURN 2535 B2$="Problem exiting file transfer mode" : RETURN