1 const
2 maxint = 2147483647;
3 pi = 3.14159265359;
4
5 type
6 shortint = 0..255;
7 word = 0..65535;
8 byte = -128..127;
9
10 var
11 input : text;
12 output : text;
13
14
copynull15 function copy(s : string; p, n: integer) : string; external;
16
lengthnull17 function length(s : string) : integer; external;
18
upcasenull19 function upcase(c : char) : char; external;
20
posnull21 function pos(q, z : string) : integer; external;
22
23 procedure val(s : string; var v : integer; var c : integer); external;
24
25 procedure insert(ins, s : string; pos : integer); external;
26
incnull27 function inc(x : integer) : integer; external;
28
decnull29 function dec(x : integer) : integer; external;
30
absnull31 function abs(x : real) : real; external;
32
arctannull33 function arctan(x : real) : real; external;
34
bitsizenull35 function bitsize(x : integer) : integer; external;
36
sizeofnull37 function sizeof(x : integer) : integer; external; { For Turbo Pascal }
38
chrnull39 function chr(x : integer) : char; external;
40
cosnull41 function cos(x : real) : real; external;
42
eofnull43 function eof(f : text) : boolean; external;
44
eolnnull45 function eoln(f : text) : boolean; external;
46
expnull47 function exp(x : real) : real; external;
48
ioerrornull49 function ioerror(f : text) : boolean; external;
50
iostatusnull51 function iostatus(f : text) : integer; external;
52
lnnull53 function ln(x : real) : real; external;
54
oddnull55 function odd(x : integer) : boolean; external;
56
ordnull57 function ord(c : char) : integer; external;
58
prednull59 function pred(x : integer) : integer; external;
60
refnull61 function ref(x : integer) : ^integer; external;
62
roundnull63 function round(x : real) : integer; external;
64
sinnull65 function sin(x : real) : real; external;
66
sqrnull67 function sqr(x : real) : real; external;
68
sqrtnull69 function sqrt(x : real) : real; external;
70
succnull71 function succ(x : integer) : integer; external;
72
timenull73 function time : zero_terminated_string; external;
74
datenull75 function date : zero_terminated_string; external;
76
77 procedure timestamp(var day, month, year, hour, min, sec : integer); external;
78
truncnull79 function trunc(x : real) : integer; external;
80
81
82 procedure break(x : text); external;
83
84 procedure close(x : text); external;
85
86 procedure delete(x : text); external;
87
filesizenull88 function filesize(x : text) : integer; external;
89
90 procedure get(x : text); external;
91
92 procedure noioerror; external;
93
94 procedure pack(a : array [l..h:integer] of integer; i : integer;
95 z : integer);
96 external;
97
98 procedure unpack(z : integer;
99 var a : array [l..h:integer] of integer; i : integer);
100 external;
101
102 procedure page(f : text); external;
103
104 procedure put(x : text); external;
105
106 procedure assign(f : text; name : zero_terminated_string );
107 external;
108
109 procedure rename(f : text; name : zero_terminated_string );
110 external;
111
112 procedure reset(f : text; name, options : zero_terminated_string;
113 var error_code : integer ); external;
114
115 procedure rewrite(f: text; name, options: zero_terminated_string;
116 var error_code : integer); external;
117
118 procedure seek(s : text; offset : integer); external;
119
120 procedure halt; external;
121
122 procedure GetMem(p : pointer; size : integer); external;
123 procedure FreeMem(p : pointer; size : integer); external;
124
125
ParamStrnull126 function ParamStr(i : integer) : zero_terminated_string; external;
127
128 procedure Randomize;
129 external;
130
Randomnull131 function Random(range : integer) : integer;
132 external;
133
134 procedure RestoreCrtMode;
135 external;
136
137 procedure halt(code : integer);
138 external;
139
readkeynull140 function readkey : integer;
141 external;
142
keypressednull143 function keypressed : integer;
144 external;
145
getdirnull146 function getdir : string; external;
chdirnull147 function chdir(path : string) : integer; external;
mkdirnull148 function mkdir(path : string) : integer; external;
149
150 var
151 ParamCount : integer;
152 ioResult : integer;
153 DirectVideo : boolean;
154 ExitProc : ^integer;
155 RandSeed : integer;
156