(* 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 *) enter outcode (17, 1) ; (* Zeichensatz : 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 : Bit 0 *) enter outcode (23, 23) ; (*SetWindow (+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 ;