{$I GLOBALS.TEXT}
 {$I SYSSEGS.TEXT}
 {$I SYSTEM.B.TEXT }
 {$I SYSTEM.C.TEXT }
 BEGIN (*UCSD PASCAL SYSTEM*)
   EMPTYHEAP := NIL;
   INITIALIZE;
   REPEAT
     COMMAND;
     IF EMPTYHEAP <> NIL THEN
       INITIALIZE
   UNTIL EMPTYHEAP = NIL
 END (*PASCALSYSTEM*) .

{ +------------------------------------------------------------------+
  |                                                                  |
		|                     F     I     N     I     S                    |
		|                                                                  |
		+------------------------------------------------------------------+ }