image of READY prompt

Wang2200.org

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