Listing of file='609TC200' on disk='vmedia/701-2739G.wvd.zip'
# Sector 786, program filename = '609TC200' 0010 REM '609TC200' - CONVERT TC DATA FILE TO DOCUMENT 0150 COM D0$(16),D1$(123)2,D8$5,D2$(16),D3$(16),D$(32)16,D3$4,D4$(160)1,D9$2,D 5$(2)124,V4$1 : COM D,D2,D3,D4,D5 : D4=0 : GOSUB 2510 : PRINT AT(23,0);B2$; : B2$=" " : B2$=" " : D2=17 : D3$=HEX(84838286) : DBACKSPACE #D5,BEG : DATA LOAD DC #D5,D9$,D5$() : STR(D0$(),8)=STR(D9$,2,1)&STR(D5$(),1) : A6$(1)=STR(D0$(),14,25) 0340 A6$(2)=STR(D0$(),40,20) : A6$(3)=STR(D0$(),61,20) : A6$(4)=STR(D0$(),81,20) : $TRAN(A6$(),J1$()) : A7$(1)=R5$ : A7$(3)=STR(D0$(),112,2)&STR(D0$(),115,2) : AND (A7$(3),7F) : A7$(2)=STR(D0$(),103,2)&STR(D0$(),106,2)&STR(D0$(),109,2) : AND (A7$(2),7F) : A7$(4)=STR(D0$(),118,4)&STR(D0$(),123,2) 0500 AND (A7$(4),7F) : A7$(6)=STR(D0$(),142,2)&STR(D0$(),145,2) : AND (A7$(6),7F) : A7$(5)=STR(D0$(),133,2)&STR(D0$(),136,2)&STR(D0$(),139,2) : AND (A7$(5),7F) : A7$(7)=STR(D0$(),148,4)&STR(D0$(),153,2) : AND (A7$(7),7F) : A7$(9)=STR(D0$(),172,2)&STR(D0$(),175,2) : AND (A7$(9),7F) 0640 A7$(8)=STR(D0$(),163,2)&STR(D0$(),166,2)&STR(D0$(),169,2) : AND (A7$(8),7F) : A7$(11)=STR(D0$(),187,2)&STR(D0$(),190,2) : AND (A7$(11),7F) : A7$(10)=STR(D0$(),178,2)&STR(D0$(),181,2)&STR(D0$(),184,2) : AND (A7$(10),7F) : A7$(12)=STR(D0$(),193,5) : A7$(13)=STR(D0$(),203,4)&STR(D0$(),208,2) : AND (A7$(13),7F) 0780 MAT A0=ZER : D1$=STR(D0$(),126,6) : AND (D1$,7F) : CONVERT D1$TO A0(1) : ERRORA0(1)=0 0840 D1$=STR(D0$(),156,6) : AND (D1$,7F) : CONVERT D1$TO A0(2) : ERRORA0(2)=0 0880 D1$=STR(D0$(),199,3) : AND (D1$,7F) : CONVERT D1$TO A0(3) : ERRORA0(3)=0 0910 A0(3)=A0(3)+7 : D1$=STR(D0$(),211,5) : AND (D1$,7F) : CONVERT D1$TO A0(4) : ERRORA0(4)=0 0970 D1$=STR(D0$(),217,6) : AND (D1$,7F) : CONVERT D1$TO A0(5) : ERRORA0(5)=0 1010 $PACK(F=HEX(A019A005A009))U1$()FROMA6$(),R5$,HEX(000000000000003130) : GOSUB '235(A1,U1$()) : D1$()=ALL(00) : STR(D1$(),16)=ALL(FF) : STR(D1$(),1,4)=BIN(1,2)&BIN(2,2) : V1$()=D1$() : V4$="P" : GOSUB 1350 : IF R1$<>HEX(00)THEN 1270 : A8$()=HEX(001A120A0002002A002A50AA66AA01AA1AAA1AAA10AA) : A9$()=ALL(01) 1140 $PACK(F=HEX(A019A0066006A002A001))V1$()FROMA6$(),A7$(),A0(),A8$(),A9$() : V4$="A" : GOSUB 1350 : IF R1$<>HEX(00)THEN 1270 : A5$()="609TC300JCATSMALREC-GEN REC-RD" : LOAD T<4>A5$() 1220 COM CLEAR J1$() : A5=1 : A5$()="609CloseJCATSMAL" : LOAD T<2>A5$() 1270 ON VAL(R1$)GOTO 1320 : HEXUNPACKR1$TO T2$ : GOSUB 2520 : GOTO 1220 1320 GOSUB 2530 : GOTO 1220 1350 GOSUB '225(A1,1,1,1) : IF R1$<>HEX(00)THEN 1270 : D=D+1 : D3=D3+1 : RETURN 1430 DEFFN'31 : A5$="609menu" : GOTO 1220 2500 % DO NOT RENUMBER THE FOLLOWING 2510 B2$="(In Progress)" : RETURN 2520 B2$="Error occurred while adding records = "&T2$ : RETURN 2530 B2$="Volume Full" : RETURN