Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0135/comp/termty.sim
There are 4 other files named termty.sim in the archive. Click here to see a list.
00050 COMMENT CLASS termty lists terminal types; OPTIONS(/l/e);
00100 EXTERNAL TEXT PROCEDURE scanto;
00150 CLASS termty;
00200 BEGIN TEXT ARRAY tr[1:23]; TEXT ts; INTEGER termtype;
00218 INTEGER otherterminal;
00234
00250 PROCEDURE type_menu(file); REF (outfile) file;
00274 INSPECT file DO
00301 BEGIN
00350 outtext(
00361 "Input terminal type: (Infoton) vista, "
00375 "i200, (vistar) sattelite,"); outimage; outtext(
00387 "(DEC) vt52, vt100, Minitec, Teletec, "
00402 "(Tandberg) TDV 2000, (Elite) 1520,"); outimage; outtext(
00413 "1521, 2500, 3025, (Beehive) B100, "
00426 "(CDC) S713-10, (Volker) 404,"); outimage; outtext(
00451 "414H, Adm3A, ");
00750 END of type_meny;
00800
00805 INTEGER PROCEDURE ldefault(terminaltype); INTEGER terminaltype;
00806 COMMENT returns the recommended default number of lines/page for
00809 terminal model no i, 0 represents no default;
00814 ldefault:= IF terminaltype = otherterminal OR terminaltype =
00817 12 OR terminaltype = 13 OR terminaltype = 0 THEN 0
00820 ELSE IF terminaltype = 1 OR terminaltype = 18 THEN 20 ELSE 24;
00826
00829 INTEGER PROCEDURE cdefault(terminaltype); INTEGER terminaltype;
00832 COMMENT returns the recommended default number of characters/line
00835 for terminal model no i, 0 represents no default;
00836 cdefault:= IF terminaltype = otherterminal OR terminaltype = 0
00839 THEN 0 ELSE 79;
00847
00850 ! 1 ! 2 ! 3
00900 ! 4 ! 5 ! 6
00950 ! 7 ! 8 ! 9
01000 !10 !11 !12
01050 !13 !14 !15
01100 !16 !17 !18
01150 !displayterminal;
01200 ts:- copy(
01250 "VISTA" ",VT52" ",MINITEC"
01300 ",AL2500" ",2500" ",AL1520"
01350 ",1520" ",TELETEC" ",SATTELITE"
01400 ",TDV2000" ",B100" ",S713-10"
01450 ",P713-10" ",3025" ",1521"
01500 ",404" ",414H" ",BUGINFOTON"
01524 ",I200" ",ADM3A" ",VT100"
01551 ",DISPLAY TERMINAL");
01600 termtype:= 0; WHILE ts.more DO
01650 BEGIN termtype:= termtype+1;
01700 tr[termtype]:- scanto(ts,',');
01750 END;
01775 otherterminal:= termtype;
01800 END OF CLASS termty;