blob: b7989865d343b6c9c810152a515fd232c46f32f2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
[INHERIT('SCREENHANDLERS'), environment('utilityops')]
MODULE UTILITYOPS;
CONST
blank = ' ';
PROCEDURE gotoendofprogram;
EXTERN;
[GLOBAL] PROCEDURE errorexit( caller : varying[limit1] of char;
message : varying[limit2] of char );
begin
ttywriteln;
ttywritestring('?ERROR from ');
ttywritestring(caller);
ttywritestring(message);
ttywriteln;
gotoendofprogram
end;
[GLOBAL] PROCEDURE warningmessage( caller : varying[limit1] of char;
message : varying[limit2] of char );
begin
ttywriteln;
ttywritestring('%WARNING from procedure ');
ttywritestring(caller);
ttywritestring('"');
ttywritestring(message);
ttywritestring('"');
ttywriteln
end;
[GLOBAL] PROCEDURE nullstatement;
begin
end;
[GLOBAL] FUNCTION capchar ( ch : char ) : char;
begin
if ch in ['a'..'z'] then
capchar := chr(ord(ch) - 32)
else
capchar := ch
end;
[GLOBAL] FUNCTION lcchar( ch : char ) : char;
begin
if ch in ['A'..'Z'] then
lcchar := chr(ord(ch) + 32)
else
lcchar := ch
end;
END.
|