Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0135/comp/termty.lst
There are no other files named termty.lst in the archive.
DECsystem-20 SIMULA %4A(310) 25-JAN- 1981 18:36 PAGE 1
DSK:TERMTY.SIM 18-MAR- 1979 8:40
00050 COMMENT CLASS termty lists terminal types; OPTIONS(/l/e);
00100 EXTERNAL TEXT PROCEDURE scanto;
00150 CLASS termty;
B1 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
B2 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, ");
E2 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
B3 01650 BEGIN termtype:= termtype+1;
01700 tr[termtype]:- scanto(ts,',');
E3 01750 END;
DECsystem-20 SIMULA %4A(310) 25-JAN- 1981 18:36 PAGE 1-1
DSK:TERMTY.SIM 18-MAR- 1979 8:40
01775 otherterminal:= termtype;
E1 01800 END OF CLASS termty;
SWITCHES CHANGED FROM DEFAULT:
-A NO CHECK OF ARRAY INDEX
-D NO SYMBOL TABLE GENERATED FOR DEBUG
E EXTERNAL CLASS/PROCEDURE
-I NO LINENUMBER TABLE GENERATED
-Q NO CHECK OF QUALIFICATION
NO ERRORS DETECTED
DECsystem-20 SIMULA %4A(310) 25-JAN- 1981 18:36 PAGE 2
DSK:TERMTY.SIM 18-MAR- 1979 8:40 LINE NUMBER TABLE
0 000120
0 000126
0 000161
0 000307