Wang2200.org

Listing of file='609TC300' on disk='vmedia/731-0071G.wvd.zip'

# Sector 1415, program filename = '609TC300'
0010 REM '609TC300' - CONVERT TC DATA FILE TO DOCUMENT
0145 B2$=" "
   : DATA LOAD DC #D5,D9$,D5$()
   : D=3
   : IF STR(D9$,2,1)<>HEX(84)THEN 260
   : V4$="F"
   : GOSUB '84(4)
0260 IF STR(D9$,2,1)<>HEX(83)THEN 300
   : V4$="H"
   : GOSUB '84(5)
0300 IF STR(D9$,2,1)<>HEX(82)THEN 360
   : V4$="W"
   : GOSUB '84(6)
0360 V4$="T"
   : D6=7
0400 GOSUB '83
   : IF D4=0THEN 400
0430 V1$()=D1$()
   : V4$="P"
   : GOSUB '221(A1,1,1,1,1)
0470 IF B2$<>" "THEN PRINT AT(23,0,);B2$;HEX(07);
   : COM CLEAR J1$()
   : A5=1
   : A5$()="609CloseJCATSMAL"
   : LOAD T<2>A5$()
0520 GOSUB 2510
   : GOTO 430
0550 ON VAL(R1$)GOTO 600
   : HEXUNPACKR1$TO T2$
   : GOSUB 2520
   : GOTO 470
0600 GOSUB 2530
   : GOTO 470
0640 DEFFN'83
   : D6=D6+1
0670 DEFFN'84(D6)
   : IF D6>123THEN 520
   : D1$(D6)=BIN(D,2)
   : D3=1
   : D2$()=ALL(20)
0770 STR(D0$(),8)=STR(D9$,2)&D5$()
   : $TRAN(STR(D0$(),8,1),HEX(868486838682))R
   : $TRAN(STR(D0$(),8),J1$())
   : IF D3=1AND POS(D2$()>20)=0THEN D4$()=STR(D0$(),8,POS(STR(D0$(),8)=83))
   : D1=VAL(D9$)
   : IF D1>0THEN GOSUB '85(STR(D0$(),8,D1))
   : DATA LOAD DC #D5,D9$,D5$()
   : IF END THEN D4=1
   : IF D4=1THEN 970
   : IF POS(STR(D3$,1)=STR(D9$,2,1))=0THEN 770
   : IF D6<>123THEN GOSUB '85(HEX(8F))
0970 IF POS(-D2$()>20)=0THEN 1010
   : V1$()=D2$()
   : GOSUB 1540
   : IF R1$<>HEX(00)THEN 550
1010 RETURN
1030 DEFFN'85(D3$())
1050 IF POS(-D2$()>20)+POS(-D3$()>20)>245THEN 1090
   : STR(D2$(),POS(D2$()=20))=D3$()
   : RETURN
1090 S7=POS(-D2$()>20)
   : IF S7=0THEN 1130
   : V1$()=STR(D2$(),1,S7)
   : D2$()=" "
1130 IF S7<246THEN STR(V1$(),1+S7)=STR(D3$(),1,246-S7)
   : D3$()=STR(D3$(),246-S7+1)
   : IF D3=D2THEN 1240
   : GOSUB 1540
   : IF POS(-D3$()>20)>245THEN 1090
   : D2$()=D3$()
   : RETURN
1240 GOSUB 2540
   : S8=POS(V1$()=86)
   : IF S8=0THEN 1320
   : S9=POS(STR(V1$(),S8)=83)+S8-1
   : IF S9=S8-1THEN S8=S8-1
   : ELSE S8=S9+1
   : GOTO 1350
1320 S8=POS(STR(V1$(),230)=80)+229
   : IF S8=229THEN S8=245
1350 D$()=STR(V1$(),S8)
   : IF D6<>123THEN STR(V1$(),S8)=HEX(8F)
   : ELSE STR(V1$(),S8)=" "
   : GOSUB 1540
   : D3=1
   : D6=D6+1
   : IF D6>123THEN 520
   : D1$(D6)=BIN(D,2)
   : D2$()=D4$()
   : D$()=D$()&D3$()
   : D3$()=D$()
   : GOTO 1050
1540 GOSUB '225(A1,1,1,1)
   : IF R1$<>HEX(00)THEN 550
   : D=D+1
   : D3=D3+1
   : RETURN
1620 DEFFN'31
   : A5$="609menu"
   : GOTO 470
2500 % DO NOT RENUMBER THE FOLLOWING
2510 B2$="Too many pages, document partially retrieved"
   : RETURN
2520 B2$="Error occurred while adding records = "&T2$
   : RETURN
2530 B2$="Volume Full"
   : RETURN
2540 B2$="Warning : a page was split in document due to size limits"
   : RETURN