From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 11 Feb 2019 11:49:19 +0100 Subject: Add source files from Michael --- system/terminal-codes/unknown/src/PC.french | 68 +++++++++++++++++++++++++++++ 1 file changed, 68 insertions(+) create mode 100644 system/terminal-codes/unknown/src/PC.french (limited to 'system/terminal-codes/unknown/src/PC.french') diff --git a/system/terminal-codes/unknown/src/PC.french b/system/terminal-codes/unknown/src/PC.french new file mode 100644 index 0000000..6a1675c --- /dev/null +++ b/system/terminal-codes/unknown/src/PC.french @@ -0,0 +1,68 @@ +LET name = "PC.french"; +forget (name, quiet); +new type (name); + +cursor logic (0, ""6"", "", ""); + +enter outcode ( 14, 0, ""14" "); (* end mark *) +enter outcode ( 15, 0, ""15" "); (* begin mark *) +enter outcode (214, 142); (* *) +enter outcode (215, 153); (* *) +enter outcode (216, 154); (* *) +enter outcode (217, 132); (* *) +enter outcode (218, 148); (* *) +enter outcode (219, 129); (* *) +enter outcode (220, 0, ""15""107""14""); (* druck k *) +enter outcode (221, 0, ""15""45""14""); (* druck - *) +enter outcode (222, 0, ""15""35""14""); (* druck # *) +enter outcode (223, 0, ""15""32""14""); (* druck *) +enter outcode (251, 225); (* *) + +enter incode ( 1, ""199""); (* HOP *) +enter incode ( 2, ""205""); (* RECHTS *) +enter incode ( 3, ""200""); (* OBEN *) +enter incode ( 4, ""4""); (* INFO *) +enter incode ( 7, ""2""); (* SV *) +enter incode ( 8, ""203""); (* LINKS *) +enter incode ( 10, ""208""); (* UNTEN *) +enter incode ( 11, ""210""); (* RUBIN *) +enter incode ( 12, ""211""); (* RUBOUT *) +enter incode ( 16, ""201""); (* MARK *) +enter incode ( 17, ""1""); (* STOP *) +enter incode ( 18, ""209""); (* NEWLINE *) +enter incode ( 23, ""3""); (* WEITER *) +enter incode ( 45, ""61""); (* - *) +enter incode ( 41, ""95""); (* ) *) +enter incode ( 35, ""45""); (* # *) +enter incode ( 38, ""33""); (* & *) +enter incode ( 34, ""35""); (* " *) +enter incode ( 40, ""37""); (* ( *) +enter incode ( 33, ""42""); (* ! *) +enter incode ( 97, ""113""); (* a *) +enter incode ( 65, ""81""); (* A *) +enter incode ( 122,""119""); (* z *) +enter incode ( 90, ""87""); (* Z *) +enter incode ( 42, ""125""); (* * *) +enter incode (113, ""97""); (* q *) +enter incode ( 81, ""65""); (* Q *) +enter incode (109, ""59""); (* m *) +enter incode ( 77, ""58""); (* M *) +enter incode ( 37, ""34""); (* % *) +enter incode ( 60, ""92""); (* < *) +enter incode ( 62, ""124""); (* > *) +enter incode (119, ""122""); (* w *) +enter incode ( 87, ""90""); (* W *) +enter incode ( 44, ""109""); (* , *) +enter incode ( 63, ""77""); (* ? *) +enter incode ( 59, ""44""); (* ; *) +enter incode ( 46, ""60""); (* . *) +enter incode ( 58, ""46""); (* : *) +enter incode ( 61, ""47""); (* = *) +enter incode ( 43, ""63""); (* + *) +enter incode ( 47, ""62""); (* / *) +enter incode (125, ""96""); (* } *) + + + + + -- cgit v1.2.3