Listing of file='609WP200' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1367, program filename = '609WP200' 0010 REM '609WP200' - CONVERT DOCUMENT TO TC 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 : GOSUB 2500 : PRINT AT(23,0);B2$; : 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 0310 PACK(####)D1$FROMS7 : STR(D1$,3,1)=STR(R5$,5,1) : DBACKSPACE #D4,BEG : GOSUB 1470 : IF R1$<>HEX(00)THEN 1430 : D6$()=V1$() : GOSUB 1470 : IF R1$<>HEX(00)THEN 1430 : 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$()) 0500 STR(D2$(),40,20)=A6$(2) : $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) 0660 STR(D2$(),103,2)=A7$(2) : 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) 0800 STR(D2$(),136,2)=STR(A7$(5),3,2) : 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) 0940 STR(D2$(),169,2)=STR(A7$(8),5,2) : 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 1370 : OR (D2$,80) 1120 STR(D2$(),126,6)=D2$ : CONVERT A0(2)TO D2$,(######) : GOSUB 1370 : OR (D2$,80) : STR(D2$(),156,6)=D2$ : CONVERT A0(3)-7TO D2$,(###) : GOSUB 1370 : OR (D2$,80) : STR(D2$(),199,3)=D2$ : CONVERT A0(4)TO D2$,(#####) : GOSUB 1370 : OR (D2$,80) : STR(D2$(),211,5)=D2$ : CONVERT A0(5)TO D2$,(######) : GOSUB 1370 : OR (D2$,80) : STR(D2$(),217,6)=D2$ 1340 A5$()="609WP300REC-GEN REC-RD" : LOAD T<3>A5$() 1370 IF STR(D2$,1,1)>"0"THEN RETURN : IF POS(D2$>"0")=0THEN D2$=" " : ELSE STR(D2$,1,POS(D2$>"0")-1)=" " : RETURN 1400 DATA SAVE DC CLOSE#D4 : COM CLEAR D1 : A5$()="609CloseJCATSMAL" : LOAD T<2>A5$() 1430 GOSUB 2510 : GOTO 1400 1470 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