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