07program
02:=
02<=
02<>
02>=
02..
04real
08RESERVED
05label
05const
04type
03var
09procedure
08function
05begin
03end
04SAME
07ORDINAL
12Packed_array
03Bad
04open
05error
02of
04VARY
06packed
05array
07varying
04file
03set
06record
12Packed_Array
11Packed_File
10Packed_Set
13Packed_Record
04case
09otherwise
09Var_Param
04%ref
06%immed
06%descr
08OPT_file
07SPECIAL
07CONFORM
06extern
07forward
18Terminal_Procedure
06length
04body
03not
03div
03mod
03and
02or
02in
02if
05while
06repeat
03for
04with
04goto
02do
04then
04else
05until
10{WHILE...}
09{LOST...}
08{FOR...}
02to
06downto
02MM
54const true=1;false=0;maxint=2147483647;minint=-maxint;
22minchar=0;maxchar=255;
48type boolean=false..true;integer=minint..maxint;
22char=minchar..maxchar;
18text=file of char;
33type string=varying[100] of char;
33function abs(x:real):SAME;extern;
33function sqr(x:real):real;extern;
36function arctan(x:real):real;extern;
33function sin(x:real):real;extern;
33function cos(x:real):real;extern;
32function ln(x:real):real;extern;
34function sqrt(x:real):real;extern;
33function exp(x:real):real;extern;
38function round(x:real):integer;extern;
38function trunc(x:real):integer;extern;
40function pred(x:integer):integer;extern;
40function succ(x:integer):integer;extern;
39function ord(x:integer):integer;extern;
39function chr(x:integer):integer;extern;
39function odd(x:integer):integer;extern;
15var input:text;
16var output:text;
51procedure read(var f:OPT_file;data:SPECIAL);extern;
53procedure readln(var f:OPT_file;data:SPECIAL);extern;
52procedure write(var f:OPT_file;data:SPECIAL);extern;
54procedure writeln(var f:OPT_file;data:SPECIAL);extern;
37procedure get(var f:OPT_file);extern;
37procedure put(var f:OPT_file);extern;
47procedure open(var f:text;opts:SPECIAL);extern;
48procedure close(var f:text;opts:SPECIAL);extern;
48procedure reset(var f:text;opts:SPECIAL);extern;
50procedure rewrite(var f:text;opts:SPECIAL);extern;
36function eof(x:file):boolean;extern;
37function eoln(x:file):boolean;extern;
39function status(x:file):integer;extern;
34procedure page(var f:text);extern;
19type double = real;
34function dble(x:real):real;extern;
04end.
*156705636