285 lines
10 KiB
Plaintext
285 lines
10 KiB
Plaintext
(*
|
||
Copyright 2016, 2017 Anton Krotov
|
||
|
||
This file is part of Compiler.
|
||
|
||
Compiler is free software: you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation, either version 3 of the License, or
|
||
(at your option) any later version.
|
||
|
||
Compiler is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with Compiler. If not, see <http://www.gnu.org/licenses/>.
|
||
*)
|
||
|
||
MODULE ERRORS;
|
||
|
||
IMPORT H := HOST;
|
||
|
||
TYPE
|
||
|
||
STRING = ARRAY 1024 OF CHAR;
|
||
|
||
CP = ARRAY 256 OF INTEGER;
|
||
|
||
VAR
|
||
|
||
cp: CP;
|
||
|
||
|
||
PROCEDURE utf8(code: INTEGER; VAR uchar: STRING);
|
||
BEGIN
|
||
uchar[0] := 0X;
|
||
IF code < 80H THEN
|
||
uchar[0] := CHR(code);
|
||
uchar[1] := 0X
|
||
ELSIF code < 800H THEN
|
||
uchar[1] := CHR(ROR(LSL(code, 26), 26) + 80H);
|
||
uchar[0] := CHR(ASR(code, 6) + 0C0H);
|
||
uchar[2] := 0X
|
||
ELSIF code < 10000H THEN
|
||
uchar[2] := CHR(ROR(LSL(code, 26), 26) + 80H);
|
||
code := ASR(code, 6);
|
||
uchar[1] := CHR(ROR(LSL(code, 26), 26) + 80H);
|
||
uchar[0] := CHR(ASR(code, 6) + 0E0H);
|
||
uchar[3] := 0X
|
||
(*
|
||
ELSIF code < 200000H THEN
|
||
ELSIF code < 4000000H THEN
|
||
ELSE *)
|
||
END
|
||
END utf8;
|
||
|
||
PROCEDURE InitCP(VAR cp: CP);
|
||
VAR i: INTEGER;
|
||
BEGIN
|
||
FOR i := 0H TO 7FH DO
|
||
cp[i] := i
|
||
END
|
||
END InitCP;
|
||
|
||
PROCEDURE Init8(VAR cp: CP; VAR n: INTEGER; a, b, c, d, e, f, g, h: INTEGER);
|
||
BEGIN
|
||
cp[n] := a; INC(n);
|
||
cp[n] := b; INC(n);
|
||
cp[n] := c; INC(n);
|
||
cp[n] := d; INC(n);
|
||
cp[n] := e; INC(n);
|
||
cp[n] := f; INC(n);
|
||
cp[n] := g; INC(n);
|
||
cp[n] := h; INC(n);
|
||
END Init8;
|
||
|
||
PROCEDURE InitCP866(VAR cp: CP);
|
||
VAR n, i: INTEGER;
|
||
BEGIN
|
||
FOR i := 0410H TO 043FH DO
|
||
cp[i - 0410H + 80H] := i
|
||
END;
|
||
FOR i := 0440H TO 044FH DO
|
||
cp[i - 0440H + 0E0H] := i
|
||
END;
|
||
|
||
n := 0B0H;
|
||
Init8(cp, n, 2591H, 2592H, 2593H, 2502H, 2524H, 2561H, 2562H, 2556H);
|
||
Init8(cp, n, 2555H, 2563H, 2551H, 2557H, 255DH, 255CH, 255BH, 2510H);
|
||
Init8(cp, n, 2514H, 2534H, 252CH, 251CH, 2500H, 253CH, 255EH, 255FH);
|
||
Init8(cp, n, 255AH, 2554H, 2569H, 2566H, 2560H, 2550H, 256CH, 2567H);
|
||
Init8(cp, n, 2568H, 2564H, 2565H, 2559H, 2558H, 2552H, 2553H, 256BH);
|
||
Init8(cp, n, 256AH, 2518H, 250CH, 2588H, 2584H, 258CH, 2590H, 2580H);
|
||
|
||
n := 0F0H;
|
||
Init8(cp, n, 0401H, 0451H, 0404H, 0454H, 0407H, 0457H, 040EH, 045EH);
|
||
Init8(cp, n, 00B0H, 2219H, 00B7H, 221AH, 2116H, 00A4H, 25A0H, 00A0H);
|
||
|
||
InitCP(cp)
|
||
END InitCP866;
|
||
|
||
PROCEDURE concat(VAR L: STRING; R: STRING);
|
||
VAR i, n, pos: INTEGER;
|
||
BEGIN
|
||
n := LENGTH(R);
|
||
i := 0;
|
||
pos := LENGTH(L);
|
||
WHILE (i <= n) & (pos < LEN(L)) DO
|
||
L[pos] := R[i];
|
||
INC(pos);
|
||
INC(i)
|
||
END
|
||
END concat;
|
||
|
||
PROCEDURE Utf8(VAR str: STRING);
|
||
VAR i: INTEGER; in, out, u: STRING;
|
||
BEGIN
|
||
in := str;
|
||
out := "";
|
||
FOR i := 0 TO LENGTH(in) - 1 DO
|
||
utf8(cp[ORD(in[i])], u);
|
||
concat(out, u)
|
||
END;
|
||
str := out
|
||
END Utf8;
|
||
|
||
PROCEDURE ErrorMsg*(code: INTEGER; VAR msg: ARRAY OF CHAR);
|
||
VAR str: STRING;
|
||
BEGIN
|
||
CASE code OF
|
||
| 1: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 'H' <20><><EFBFBD> 'X'"
|
||
| 2: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 3: str := "<22><>ப<EFBFBD> <20><> ᮤ<>ন<EFBFBD> <20><><EFBFBD><EFBFBD>뢠<EFBFBD>饩 <20><><EFBFBD><EFBFBD>窨"
|
||
| 4: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨬<EFBFBD><E2A8AC> ᨬ<><E1A8AC><EFBFBD>"
|
||
| 5: str := "楫<><E6A5AB><EFBFBD><EFBFBD><E1ABA5><EFBFBD><EFBFBD> <20><>९<EFBFBD><E0A5AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 6: str := "誮<E1ABA8> <20><><EFBFBD><EFBFBD>讥 <20><><EFBFBD>祭<EFBFBD><E7A5AD> ᨬ<><E1A8AC><EFBFBD>쭮<EFBFBD> <20><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD>"
|
||
| 7: str := "<22><><EFBFBD><EFBFBD><EFBFBD>⢥<EFBFBD><E2A2A5><EFBFBD><EFBFBD> <20><>९<EFBFBD><E0A5AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 8: str := "<22><>९<EFBFBD><E0A5AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>浪<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>⢥<EFBFBD><E2A2A5><EFBFBD><EFBFBD><EFBFBD> <20><>"
|
||
| 9: str := "<22><><EFBFBD><EFBFBD><EFBFBD>⢥<EFBFBD><E2A2A5><EFBFBD><EFBFBD> <20><>⨯<EFBFBD>९<EFBFBD><E0A5AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 10: str := "誮<E1ABA8> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD>"
|
||
| 11: str := "誮<E1ABA8> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD><E0AEAA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD>"
|
||
|
||
| 21: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 'MODULE'"
|
||
| 22: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD>"
|
||
| 23: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ';'"
|
||
| 24: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 'END'"
|
||
| 25: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '.'"
|
||
| 26: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><> ᮢ<><E1AEA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 27: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 䠩<><E4A0A9>"
|
||
| 28: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',', ';' <20><><EFBFBD> ':='"
|
||
| 29: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',' <20><><EFBFBD> ';'"
|
||
| 30: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><>८<EFBFBD>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD>"
|
||
| 31: str := "横<><E6A8AA><EFBFBD><EFBFBD>᪨<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 32: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20>訡<EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD>㯠"
|
||
| 33: str := "<22><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> ᮢ<><E1AEA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 䠩<><E4A0A9> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 34: str := "<22><><EFBFBD>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ଠ<EFBFBD> <20><>ப<EFBFBD> <20><>設<EFBFBD><E8A8AD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 35: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '='"
|
||
| 36: str := "ᨭ⠪<E1A8AD><E2A0AA><EFBFBD><EFBFBD>᪠<EFBFBD> <20>訡<EFBFBD><E8A8A1> <20> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD>"
|
||
| 37: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>ਬ<EFBFBD><E0A8AC><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 38: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ')'"
|
||
| 39: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD><6F> 'ARRAY', 'RECORD', 'POINTER' <20><><EFBFBD> 'PROCEDURE'"
|
||
| 40: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD><6F> 'TO'"
|
||
| 41: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD><6F> 'OF'"
|
||
| 42: str := "<22><><EFBFBD><EFBFBD>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD>"
|
||
| 43: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD> <20><>ப<EFBFBD><E0AEAA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD>"
|
||
| 44: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD><6F> 'cdecl', 'stdcall' <20><><EFBFBD> 'winapi'"
|
||
| 45: str := "䫠<> <20>맮<EFBFBD><EBA7AE> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᪠<EFBFBD><E1AAA0><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4>"
|
||
| 46: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>"
|
||
| 47: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> ⨯<>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> ⨯<>-㪠<><E3AAA0>⥫<EFBFBD>"
|
||
| 48: str := "楫<><E6A5AB><EFBFBD><EFBFBD><E1ABA5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>"
|
||
| 49: str := "<22><><EFBFBD>祭<EFBFBD><E7A5AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>࠭<EFBFBD><E0A0AD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0..31"
|
||
| 50: str := "䫠<> [winapi] <20><><EFBFBD><EFBFBD>㯥<EFBFBD> ⮫쪮 <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Windows"
|
||
| 51: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '}'"
|
||
| 52: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> ⨯<> INTEGER"
|
||
| 53: str := "<22><><EFBFBD>祭<EFBFBD><E7A5AD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0..31"
|
||
| 54: str := "<22><><EFBFBD><EFBFBD><EFBFBD> <20>࠭<EFBFBD><E0A0AD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ࠢ<EFBFBD><E0A0A2>"
|
||
| 55: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD> ⨯<> CHAR"
|
||
| 56: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '('"
|
||
| 57: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> <20><><EFBFBD><E1ABAE><EFBFBD><EFBFBD> ⨯<>"
|
||
|
||
| 59: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>筮 <20><>ࠬ<EFBFBD><E0A0AC>"
|
||
| 60: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨬<EFBFBD><E2A8AC> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD>"
|
||
| 61: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ','"
|
||
| 62: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⠭⭮<E2A0AD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD>"
|
||
| 63: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 64: str := "䠩<> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20>訡<EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD>㯠"
|
||
| 65: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RTL <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 66: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> ⨯<> REAL <20><><EFBFBD> LONGREAL"
|
||
| 67: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᮧ<><E1AEA7><EFBFBD><EFBFBD> 䠩<>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 䠩<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>饭 <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 68: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> ⨯<> CHAR, SET <20><><EFBFBD> BOOLEAN"
|
||
| 69: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 䠩<>"
|
||
| 70: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> ⨯<> LONGREAL"
|
||
| 71: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> ⨯<> REAL"
|
||
| 72: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>筮 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD><E8A5AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨"
|
||
| 73: str := "<22><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> १<><E0A5A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨬<EFBFBD> <20> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 74: str := "<22><><EFBFBD>祭<EFBFBD><E7A5AD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> <20><><EFBFBD> 楫<><E6A5AB><EFBFBD><EFBFBD><E1ABA5><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 75: str := "४<><E0A5AA>ᨢ<EFBFBD><E1A8A2><EFBFBD> <20><>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD>"
|
||
| 76: str := "<22><><EFBFBD>祭<EFBFBD><E7A5AD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0..255"
|
||
| 77: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> ⨯<>"
|
||
| 78: str := "<22><><EFBFBD><EFBFBD><EFBFBD> ⨯<>-<2D><><EFBFBD>ᨢ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||
| 79: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 'OF' <20><><EFBFBD> ','"
|
||
| 80: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> ⨯<>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> ⨯<>-㪠<><E3AAA0>⥫<EFBFBD>"
|
||
| 81: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⨯ ⨯<>-㪠<><E3AAA0>⥫<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 82: str := "⨯ १<><E0A5A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>ᨢ<EFBFBD><E1A8A2>"
|
||
| 83: str := "ࠧ<><E0A0A7><EFBFBD> ⨯<> 誮<E1ABA8> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 84: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><><EFBFBD> 'VAR'"
|
||
| 85: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',' <20><><EFBFBD> ':'"
|
||
| 86: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 'END' <20><><EFBFBD> ';'"
|
||
| 87: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><> ᮢ<><E1AEA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD>"
|
||
|
||
| 89: str := "<22><>ᯮ<EFBFBD><E1AFAE> <20><><EFBFBD><EFBFBD><EFBFBD>쭮<EFBFBD><ECADAE> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨬"
|
||
| 90: str := "⨯ ARRAY <20><><EFBFBD> RECORD <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨬"
|
||
| 91: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>⢥<EFBFBD><E2A2A5><EFBFBD><EFBFBD><EFBFBD> ⨯<>"
|
||
|
||
| 93: str := "ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 誮<E1ABA8> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
||
| 94: str := "<22><>ப<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20>⫨筮<E2ABA8> <20><> 1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨬<EFBFBD>"
|
||
| 95: str := "<22><><EFBFBD>祭<EFBFBD><E7A5AD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0..127"
|
||
| 96: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨬<EFBFBD><E2A8AC> ४<><E0A5AA>ᨢ<EFBFBD><E1A8A2><EFBFBD> <20><>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⨯<>"
|
||
| 97: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>筮 <20><><EFBFBD><EFBFBD><EFBFBD>⢥<EFBFBD><E2A2A5><EFBFBD><EFBFBD> ॣ<><E0A5A3><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD>"
|
||
| 98: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 'THEN'"
|
||
| 99: str := "<22><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
|100: str := "<22><>⪠ <20>㡫<EFBFBD><EFBFBD><E0AEA2><EFBFBD>"
|
||
|101: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> ⨯<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨬ <20> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD><EFBFBD>"
|
||
|102: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᨢ"
|
||
|103: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD><6F> 'union' <20><><EFBFBD> 'noalign'"
|
||
|104: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> 㪠<><E3AAA0>⥫<EFBFBD>"
|
||
|105: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
|106: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> ⨯<>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
|107: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> ⨯<>-㪠<><E3AAA0>⥫<EFBFBD>"
|
||
|108: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨬<EFBFBD><E2A8AC> <20><>࠭<EFBFBD> ⨯<>"
|
||
|109: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ']'"
|
||
|110: str := "ࠧ<><E0A0A7>୮<EFBFBD><E0ADAE><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>⮣<EFBFBD> <20><><EFBFBD>ᨢ<EFBFBD> 誮<E1ABA8> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
|111: str := "<22><><EFBFBD>⥬<EFBFBD><E2A5AC><EFBFBD> 䫠<><E4ABA0> <20>ॡ<EFBFBD><E0A5A1><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> SYSTEM"
|
||
|112: str := "<22><><EFBFBD><EFBFBD><EFBFBD>७<EFBFBD><E0A5AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> [noalign] <20><><EFBFBD> [union]"
|
||
|113: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⨯ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> [noalign] <20><><EFBFBD> [union]"
|
||
|114: str := "<22><>ᮢ<EFBFBD><E1AEA2><EFBFBD>⨬<EFBFBD><E2A8AC> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD>"
|
||
|115: str := "<22><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>㯭<EFBFBD> ⮫쪮 <20><><EFBFBD> <20>⥭<EFBFBD><E2A5AD>"
|
||
|116: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD>"
|
||
|117: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> ⨯<> BOOLEAN"
|
||
|118: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 'DO'"
|
||
|119: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 'UNTIL'"
|
||
|120: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ':='"
|
||
|121: str := "<22><><EFBFBD><EFBFBD><EFBFBD>७<EFBFBD><E0A5AD> <20><><EFBFBD><EFBFBD><EFBFBD> 䠩<><E4A0A9> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> 'ob07'"
|
||
|122: str := "<22><><EFBFBD>祭<EFBFBD><E7A5AD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ࠢ<><E0A0A2><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||
|123: str := "'RETURN' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨬ <20> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>饩 १<><E0A5A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
|124: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 'RETURN'"
|
||
|125: str := "⨯ <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> <20><> ᮮ⢥<E1AEAE><E2A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⨯<> १<><E0A5A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD>"
|
||
|126: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD>"
|
||
|127: str := "<22><><EFBFBD><EFBFBD>稪 横<><E6A8AA> FOR <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC>"
|
||
|128: str := "⨯ <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> INTEGER"
|
||
|129: str := "<22><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>쭮<EFBFBD>"
|
||
|130: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD>"
|
||
|131: str := "<22><>ᮢ<EFBFBD><E1AEA2><EFBFBD>⨬<EFBFBD><E2A8AC><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>ᢠ<EFBFBD><E1A2A0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
|132: str := "<22>맮<EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD>-<2D>㭪樨 <20><><EFBFBD><EFBFBD>᪠<EFBFBD><E1AAA0><EFBFBD><EFBFBD> ⮫쪮 <20> <20><><EFBFBD>⠢<EFBFBD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD>"
|
||
|133: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD><EFBFBD> 'lib_init' <20> 'version' <20><>१<EFBFBD>ࢨ<E0A2A8><E0AEA2><EFBFBD>"
|
||
|
||
|138: str := "⨯ <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> SET"
|
||
|
||
|141: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD> <20><><EFBFBD> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᨢ"
|
||
|
||
|143: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᨢ"
|
||
|
||
|145: str := "⨯ <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> POINTER"
|
||
|
||
|149: str := "⨯ <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> REAL <20><><EFBFBD> LONGREAL"
|
||
|150: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD><E0AEAA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD>"
|
||
|
||
|155: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '(' <20><><EFBFBD> ':='"
|
||
|156: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> ⨯<> INTEGER <20><><EFBFBD> CHAR"
|
||
|157: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ':'"
|
||
|158: str := "<22><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20> <20><><EFBFBD>㫥 RTL"
|
||
|159: str := "<22><><EFBFBD><EFBFBD>襭<EFBFBD><E8A5AD> <20>࠭<EFBFBD><E0A0AD> <20><><EFBFBD>ᨢ<EFBFBD>"
|
||
|160: str := "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD>"
|
||
|161: str := "<22>ॡ<EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD> ⨯<> INTEGER"
|
||
END;
|
||
IF H.OS = "LNX" THEN
|
||
Utf8(str)
|
||
END;
|
||
COPY(str, msg)
|
||
END ErrorMsg;
|
||
|
||
BEGIN
|
||
InitCP866(cp)
|
||
END ERRORS. |