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