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