			Per angusta ad AUGUSTA!


   AUGUSTA.
()

   .

   4,10,20,30,34,60,244,274.
   ,    ,  TRAP -
   .

 :
proc TIMER(ST); --       ST
I:=GETTIME; --    ( )
 18011      -
 270,      -
   .

 ( -11,11)
proc ONTICK(MYPROC); -  MYPROC -  ,
( )    
   100.
-0011     
ALTSCREEN(TRUE  FALSE) -  
PALETTE(I) -  0..15,   .
PAGE(I) -     40000-77777.

"" :
ONKEY(MYKL) -     260.
   :
proc MYKL(CH:char); -,  ,   
    ,   -
 :
proc MYKL(CH:char);
begin
	 case ord(CH) of
	3: write(x,y)
	 end;
end;
begin--  
onkey(MYKL);x=1.0; y=2.0;
loop
	 x=x*1.1; y=y+x
end;
end.
    ,  , 
,      ,
  .

 
ONDEBUG(MYDEB) -      14
       , 
  pragma D+;
!  :    i=j+k 
!   ,   ,
!    i=j+k;   
proc MYDEB(LN:integer) -    
 ( program...),  pragma E+.
       
.

 
 ,   DELPHI 95, 
,     ++:
try--  
 
except--   ,  
 
end;
K :
try f:=a*exp(w/c)
except
case error of
"Z: f:=0.0;--    0
"O: f:=-1.0;--   
"E: f:=-2.0--  
end
end;--   
ERROR    (.).
 RAISE(CH)   . 
      
GOTO  EXCEPT,     .
    ,  
.

  
AUGUSTA-  , 
    :
	 
K=25+N	K=N+25 -  
I=2*I+1	I=SUCC(ASL(LEFTI)) - .
write('A')	put(101) - .
A[K].I=1;A[K].J=2with A[K] do I=1;J=2 end;
       
   ,  M[K]
  P=ADDR(M[K]);   
P^        .
    
    .
     
,   ,   ,  
     , 
 -   .
   ,   
,    - put(232);


package BBB;
--    , ,
-- ,   
private
--     
--   
end.

     ,
   
program AAA;
use BBB,CCC,DDD; --   
--     
--      .

 use    ,  
   ,  ..  
   .
      ,
  , ..   .
      
        
  ,    .
  :
package CCC;
use REAL;
--  REAL  - 
end.
package BBB;
use GRAPH,CCC;
 --  GRAPH,REAL,CCC  
end.
program AAA;
use BBB;
begin
--   
end.

 
       
  ,    ,  
.  :
1.  .
2.   .
3.    .
4.  .
5.  .
6.   .
7.     .
10.   .
11.   .
12.   .
13.     .
14.    .
15.  if.
16.  for.
17. case.
20.     case.
21.  .
22.return    .
23.  with.
24.  .
25.   .
26.  begin.
27.   .
30.  .
31.   .
32.  end.
33.   .
34.   .
35.    .
36.  .
37.  .
40.   .
41.   .
42.    .
43.  ";"
44.  .
45.   .
46.  .
47.  "."
50.   .
51.   - program  package.
52.   AUGLIB.P
53.   .
54.  .
55.   ,    .

   (   
try...except..)
 B@12
 -  , 12- 
 :
C - Case -   ( others)
S - Stack -  , ,  
   ,  

M - Memory -   NEW(P,N)
I - Illegal instruction -   
Z - Zerodivide -   0
O - Overflow -    +38
E - Exp -   
L - Log -  
Q - sQrt -  
T - Trunc -   

   ,   
   ,   
pragma E+;    ,
    pragma E-;
 , 
 pragma C+; - count -     
	 -  ,   
D+; - debug -    BPT
F+; -  (KNOW-HOW)
  pragma E+,D+,C-;
 ,      .

     AUGUSTA!

