(* Terminaltyp: Terminal108 *) 
                                      (* Keyboard   : Deutsch     *) 
                                      (* Zeichensatz: ASCII       *) 
                                      (* Stand      : 28.04.86    *) 
 
forget  ("Terminal108(ascii)", quiet) ; 
new type ("Terminal108(ascii)") ; 
 
cursor logic  (32, ""30"", "", "") ; 
 
(* Nicht im EUMEL-Zeichensatz definierte Steuerzeichen *) 
illegal (11, 12) ; 
illegal (16, 31) ; 
illegal (128, 213) ; 
illegal (224, 250) ; 
illegal (252, 255) ; 
 
enter outcode ( 1, 25) ;                (* Cursor Home *) 
enter outcode ( 2, 28) ;                (* Cursor right *)
enter outcode ( 3, 31) ;                (* Cursor up *) 
enter outcode ( 4, 11) ;                (* Clear EOP *) 
enter outcode ( 5, 29) ;                (* Clear EOL *) 
enter outcode ( 7,  7) ;                (* Bell      *) 
enter outcode (14, 0, " "14"") ;        (* Norm Vid  *) 
enter outcode (15, 0, ""15" ") ;        (* Inv  Vid  *) 

enter outcode (214, 193) ;  (* Inv A *)
enter outcode (215, 207) ;  (* Inv O *)
enter outcode (216, 213) ;  (* Inv U *)
enter outcode (217, 225) ;  (* Inv a *)
enter outcode (218, 239) ;  (* Inv o *)
enter outcode (219, 245) ;  (* Inv u *)
enter outcode (220, 235) ;  (* Inv k *)
enter outcode (221, 173) ;  (* Inv - *)
enter outcode (222, 163) ;  (* Inv # *)
enter outcode (223, 160) ;  (* Inv Blank *)
enter outcode (251, 194) ;  (* Inv B *)
 
enter outcode (64, 0, ""1"B"64"") ; (* ""1"B" = ASCII *)
enter outcode (91, 0, ""1"B"91"") ; 
enter outcode (92, 0, ""1"B"92"") ; 
enter outcode (93, 0, ""1"B"93"") ; 
enter outcode (123,0, ""1"B"123"") ; 
enter outcode (124,0, ""1"B"124"") ; 
enter outcode (125,0, ""1"B"125"") ; 
enter outcode (126,0, ""1"B"126"") ; 
(* 
enter outcode (12, 12) ;              (* CLR SCRN *) 
enter outcode (16, 2) ;               (* Cursor Mode <mode> *) 
enter outcode (17, 1) ;               (* Zeichensatz <switch> : Bit 0..3 *)
enter outcode (18, 18) ;              (* Insert Line *) 
enter outcode (19, 26) ;              (* Erase (nicht Delete) Line *) 
enter outcode (20, 5) ;               (* xpos := 80 *) 
enter outcode (22, 22) ;              (* Select Screen <nr> : Bit 0 *) 
enter outcode (23, 23) ; (*SetWindow <left><top><right+1><bottom+1>  (+128)*) 
*)
enter incode (  1, ""192"") ; (* Home        : Cursorblock mitte          *)
enter incode (  2, ""149"") ; (* Cursor right: Cursorblock mitte rechts   *) 
enter incode (  3, ""139"") ; (* Cursor up   : Cursorblock oben mitte     *) 
(*enter incode (4,  ""21"") ; (* Info usw.   : Cursorblock unten rechts*) *) 
enter incode (  7, ""194"") ; (* SV - Call   : Funktionstaste F2          *) 
enter incode (  8, ""136"") ; (* Cursor left : Cursorblock mitte links    *) 
enter incode ( 10, ""138"") ; (* Cursor down : Cursorblock unten mitte    *) 
enter incode ( 11, ""142"") ; (* RUBIN/Insert: Cursorblock oben links     *) 
enter incode ( 12, ""127"") ; (* RUBOUT/Delete:DELETE-Taste               *) 
enter incode ( 16, ""143"") ; (* MARK        : Cursorblock oben rechts    *) 
enter incode ( 17, ""193"") ; (* Stop        : Funktionstaste F1          *) 
enter incode ( 23, ""195"") ; (* Weiter      : Funktionstaste F3          *) 
enter incode ( 31,   ""8"") ; (* Backspace   : (2x) gerahmter Linkspfeil  *) 
 
enter incode (214,  ""91"") ; 
enter incode (215,  ""92"") ; 
enter incode (216,  ""93"") ; 
enter incode (217, ""123"") ; 
enter incode (218, ""124"") ; 
enter incode (219, ""125"") ; 
enter incode (251, ""126"") ; 

enter incode ( 0,  ""24"") ;  (* CE *) 
enter incode ( 5, ""196"") ;  (* F4 *) 
enter incode ( 6, ""197"") ;  (* F5 *) 
enter incode (14, ""198"") ;  (* F6 *) 
enter incode (15, ""199"") ;  (* F7 *) 
enter incode (18, ""200"") ;  (* F8 *) 
enter incode (19, ""201"") ;  (* F9 *) 
enter incode (20, ""202"") ;  (* F10 *) 
enter incode (21, ""203"") ;  (* F11 *) 
enter incode (22, ""204"") ;  (* F12 *) 
enter incode (24, ""205"") ;  (* F13 *) 
enter incode (25, ""206"") ;  (* F14 *) 
enter incode (26, ""207"") ;  (* F15 *) 
enter incode (28, ""209"") ;  (* SHIFT F1 *) 
enter incode (29, ""210"") ;  (* SHIFT F2 *) 
enter incode (30, ""211"") ;  (* SHIFT F3 *) 
 
enter incode (126,""165"") ;  (* CTRL  F5 *) 
enter incode (91, ""166"") ;  (* CTRL  F6 *) 
enter incode (92, ""167"") ;  (* CTRL  F7 *) 
enter incode (93, ""168"") ;  (* CTRL  F8 *) 
enter incode (123,""169"") ;  (* CTRL  F9 *) 
enter incode (124,""170"") ;  (* CTRL  F10 *) 
enter incode (125,""171"") ;  (* CTRL  F11 *) 
 
enter incode (251, ""213"") ; (* SHIFT F5 = ß *) 
                              (* SHIFT F6 = ä 
Andere incodes schon Hardware-   SHIFT F7 = ö 
mäßig implementiert:             SHIFT F8 = ü 
                                 SHIFT F9 = Ä 
                                 SHIFT F10= Ö 
                                 SHIFT F11= Ü 
                                 SHIFT F12= Trenn-k           ( k ) 
                                 SHIFT F13= Trenn-Strich      ( - ) 
                                 SHIFT F14= Geschütztes Fis   ( # ) 
                                 SHIFT F15= Geschütztes Blank (   ) *) 
 
PROC illegal (INT CONST from, to) : 
 INT VAR i ; 
 FOR i FROM from UPTO to REP 
  enter outcode (i, 127)
 PER 
ENDPROC illegal ;