Listing of file='609TC100' on disk='vmedia/701-2739G.wvd.zip'
# Sector 771, program filename = '609TC100'
0010 REM '609TC100' - START MODULE FOR TC => WP CONVERSION UTILITY
0020 A5$()="609FG070Prime 62609Open CAT.FCRECAT.PRIMCAT.OPENCAT.RD CAT.INS RE
C.PRIMREC.INS REC.FREECAT.VLISCAT.LISTCAT.FO/C"
: LOAD T<14>A5$()9999,9999BEG 120
0120 COM C,D1,D5,D0$8,A5,J1$(256)1
: COM U1$(8),U2$(8)4,V1$(3)82,V0$(1)1
: DIM S5(1),S0(1),T5(1),S3(1)
: DIM T1$(1)1,S1$(1)1
: DIM T1(6),S6(6),S1(6),T2$(6)35
: DIM T2(2),S7(2),S2(2),S4(2),T5$(2)8
: DIM S2$(16)2
: DIM S1$2
: DIM S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,C0,T7
0280 DIM D2$2,D$(2)124,D3$3
: LIMITS T#0,"609$TRAN",D2,D3,S0,D4
: DATA LOAD BA T#0,(D2+1)J1$()
: D3$=HEX(84838286)
: IF D5=0THEN B2$=" "
: D5=6
0390 RESTORE LINE2510
: GOSUB '61
: PRINT HEX(03);
: IF B2$<>" "THEN PRINT AT(23,0,);B2$;HEX(07);
: T5$(1)=D0$
: T5$(2)=D$
0450 GOSUB '62
: ON T5GOTO 540,510,510
: COM CLEAR D1
: LOAD T"609menu"
0510 GOSUB 2610
: PRINT AT(23,40,);B2$;HEX(07);
: GOTO 450
0540 IF VER(STR(T5$(2),1,3),"H##")=3THEN 590
0560 GOSUB 2580
: PRINT AT(23,0,);T1$;HEX(07);
: GOTO 450
0590 D$=T5$(2)
: SELECT #D5<STR(T5$(2),1,3)>
: ERRORGOTO 560
0620 D0$=T5$(1)
0630 LIMITS T#D5,D0$,D2,D3,S0,D4
: ERRORGOTO 560
0640 IF D4=2THEN 730
: B2$=" "
: IF D4=1THEN GOSUB 2585
: IF D4=0THEN GOSUB 2590
: IF D4<0THEN GOSUB 2595
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 450
0730 DATA LOAD DC OPEN T#D5,D0$
: ERRORGOTO 630
0750 DATA LOAD DC #D5,D2$,D$()
: ERRORGOSUB 2600
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 450
0770 AND (D2$,7F)
: AND (D$(),7F)
: D1$=STR(D2$,2,1)&STR(D$(),1,4)
: IF VER(D1$,"####A")=5THEN 840
: GOSUB 2605
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 450
0840 PRINT AT(12,2);"---------------------------------------------------------
-------------";
: RESTORE LINE2560
: GOSUB '61
: R5$=D1$
: T5$(1)=R5$
0900 B2$=" "
: GOSUB '62
: ON T5GOTO 980,950,950
: GOTO 390
0950 GOSUB 2610
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 900
0980 IF VER(STR(T5$(1),1,5),"####A")=5THEN 1020
: GOSUB 2615
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 900
1020 R5$=T5$(1)
: GOSUB '110(R5$,"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF R1$=HEX(03)THEN 1110
: IF R1$=HEX(00)THEN GOSUB '212(V3)
: IF B2$=" "THEN GOSUB 2620
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 900
1110 GOSUB '210(B0$,B9$,B4$)
: IF R1$=HEX(00)THEN 1180
: HEXUNPACKR1$TO T2$
: GOSUB 2625
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 900
1180 GOSUB '110(R5$,"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$=" "THEN 1230
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 900
1230 A1=V3
: B2$=" "
: A5$="609TC100"
: A5$()="609TC200JCATSMALREC-GEN REC-RD"
: LOAD T<4>A5$()
1280 DEFFN'31
: COM CLEAR D1
: A5$="609menu"
: A5$()="609CloseJCATSMAL"
: LOAD T<2>A5$()
2500 % DO NTO RENUMBER THE FOLLOWING
2510 DATA 4,0,0,"WANG 2200 Word Processing System"
: DATA 4,1,23,"Convert TC Data File to WP Document"
: DATA 4,4,2,"Please Enter Data"
: DATA 4,5,2,"Press EXECUTE to Continue :"
: DATA 4,8,20,"TC File Name :"
: DATA 2,8,40,8," "
: DATA 4,10,20,"Device Address :"
: DATA 2,10,40,3," "
: DATA 0
2560 DATA 4,0,0,"WANG 2200 Word Processing System"
: DATA 4,14,20,"Document ID :"
: DATA 2,14,40,5," "
: DATA 0
2580 T1$="Invalid Address"
: RETURN
2585 B2$="Wrong Type of File"
: RETURN
2590 B2$="File Does Not Exist"
: RETURN
2595 B2$="File is Scratched"
: RETURN
2600 B2$="Data is not stored in TC format"
: RETURN
2605 B2$="Not a TC Data File"
: RETURN
2610 B2$="Invalid Key"
: RETURN
2615 B2$="Invalid Document ID"
: RETURN
2620 B2$="File Already Exists"
: RETURN
2625 B2$="Error occurred while creating document = "&T2$
: RETURN