home *** CD-ROM | disk | FTP | other *** search
/ Nederland Interaktief Kinderen / NLeduca.bin / NLEDUCA / ARD / ARD.PAS < prev    next >
Pascal/Delphi Source File  |  1991-10-03  |  1KB  |  79 lines
  1. Program Aardrijkskunde;
  2.  {$M 20000,0,655360}
  3.  {$F+,O+}
  4.  Uses
  5.       OVERLAY,
  6.       ARD_OVER,
  7.       CRT,
  8.       MOUSE,
  9.       ARD_VAR,
  10.       ARD_INIT,
  11.       ARD_WIND,
  12.       ARD_MENU,
  13.  
  14.       ARD_Tre1,
  15.       ARD_Tre2,
  16.       ARD_WERK,
  17.       ARD_ADVI,
  18.       ADM_LLOR,
  19.       adm_llre,
  20.       adm_lso1,
  21.       adm_lso2,
  22.       adm_lso3,
  23.       adm_lso4,
  24.       adm_lso5,
  25.       adm_lso6,
  26.       Ard_Zelf,
  27.       ARD_K_UT
  28.               ;
  29.  
  30.  
  31.   {$O ADM_LLOR}
  32.   {$O adm_llre}
  33.   {$O adm_lso1}
  34.   {$O adm_lso2}
  35.   {$O adm_lso3}
  36.   {$O adm_lso4}
  37.   {$O adm_lso5}
  38.   {$O adm_lso6}
  39.  
  40.  
  41.   {$O ARD_K_UT}
  42.  
  43.   {$O ARD_ROOS}
  44.   {$O ARD_Tre1}
  45.   {$O ARD_Tre2}
  46.   {$O ARD_COOR}
  47.   {$O ARD_KOMP}
  48.   {$O ARD_INIT}
  49.  
  50. Begin
  51.     OvrInit('ARD.OVR');       { init overlay system, reserve heap space }
  52.  
  53.  
  54.  Initialize;                              { ard-init }
  55.  Repeat
  56.    Leren_Uit := False;
  57.    Treen := False;
  58.      If Naar_HoofdMenu then Begin_Menu;      { ard-menu }
  59.        If Not Menu_Stoppen then
  60.         Begin
  61.          Werken  ;                             { ard-werk }
  62.          If (Not Vrij)  then
  63.            If Not stoppen then  Advies   { ard-advi }
  64.                           else Naar_HoofdMenu := True;
  65.         End;
  66.   Until Menu_Stoppen;
  67.   Dispose(Hulp_Tekst);
  68.   Dispose(Info_Tekst);
  69.   Dispose(Provincie);
  70.   Dispose(Steden);
  71.   Dispose(StedXY);
  72.   Dispose(ProvXY);
  73.   Dispose(ProvSA);
  74.   Dispose(Wegen);
  75.   Dispose(LC);
  76.   Dispose(DH);
  77.   TextMode(3);
  78. end.
  79.