Listing of file='609@tmod' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1935, program filename = '609@tmod' 0010 REM 609@tmod, Edit terminal defaults, 10/31/80 0080 DIM S4,S5(1),S0(1),T5(1),T1$(4)80,S3(1) : DIM S5,T1(10),S6(10),S1(10),T2$(10)80 : DIM S6,T2(3),S7(3),S2(3),S4(3),T5$(3)25 : DIM S2$1,S1$(4)2,S2$(27)2,T1$80,T2$2 : DIM C8$(53)1 : C8$()=" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" : GOSUB '61 : DATA LOAD DC OPEN T#0,"609@T" : DSKIP #0,(C1-1)S 0180 DATA LOAD DC #0,A0$() : T5$(1)=STR(A0$(),1,1) : T5$(2)=STR(A0$(),2,1) : T5$(3)=STR(A0$(),10,25) : T5(1)=VAL(STR(A0$(),3,1))+1 : PRINT HEX(0306);AT(6,40); : IF C1<=9THEN PRINT C1;AT(6,40);"0"; : ELSE PRINT AT(6,39);C1; 0220 GOSUB '62 : IF T5=1THEN 240 : LOAD DC T#0,"609@term"10,2999 0240 MAT SEARCHC8$(),=STR(T5$(1),1,1)TO T2$ : IF T2$<>HEX(0000)THEN C3=0 : ELSE C3=1 : MAT SEARCHC8$(),=STR(T5$(2),1,1)TO T2$ : IF T2$<>HEX(0000)THEN C2=0 : ELSE C2=1 : IF C3=1OR C2=1THEN 310 : STR(C0$,1,7)=BIN(T5(1)-1) : STR(A0$(),1,34)=T5$(1)&T5$(2)&STR(C0$,1,7)&T5$(3) : IF C1<>#TERMTHEN 300 : B5$=T5$(1) : B6$=T5$(2) : B7$=BIN(T5(1)-1) 0300 DBACKSPACE #0,1S : DATA SAVE DC #0,A0$() : DATA SAVE DC CLOSE#0 : LOAD DC T"609@term"10,2999 0310 IF C3=1AND C2=1THEN 330 : GOSUB 2000 : PRINT HEX(0706020402000E);AT(23,0);T1$;HEX(0F); : RESTORE : GOTO 220 0330 GOSUB 2010 : PRINT HEX(0706020402000E);AT(23,0);T1$;HEX(0F); : RESTORE : GOTO 220 2000 IF C3=1THEN T1$="Invalid library ID" : ELSE T1$="Invalid archive ID" : RETURN 2010 T1$="Invalid library and archive ID" : RETURN 2020 DATA 3,0,0,"E D I T T E R M I N A L D E F A U L T S" : DATA 4,3,0,"Fill in selections" : DATA 4,4,0,"Press EXECUTE or CANCEL" : DATA 3,6,5,"Terminal identification number" : DATA 3,9,15,"Default library:" : DATA 2,9,40,1," " : DATA 3,11,15,"Default archive:" : DATA 2,11,40,1," " 2100 DATA 3,13,15,"Comment:" : DATA 2,13,40,25," " : DATA 3,15,15,"Attached printer type:" : DATA 1,15,43,2,"N/A","Character","Line","\DE" : DATA 0