home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / letsfly4.zip / A&E.PAS < prev    next >
Pascal/Delphi Source File  |  1994-10-01  |  2KB  |  96 lines
  1. PROGRAM PLAY;
  2.  
  3. VAR NUM,LETTER,FOUR:CHAR;
  4.     FINISH,QUIT:BOOLEAN;
  5.     A,B,C,X,Y,Z:INTEGER;
  6.     NAME:STRING[10];
  7.  
  8. {$I \A&E\MENU}
  9. {$I \A&E\INTRO}
  10. {$I \A&E\GRAPH.P}
  11. {$I \A&E\AFTERNOO}
  12. {$I \A&E\RESCUE}
  13. {$I \A&E\BUSINESS}
  14. {$I \A&E\AFTEREAD}
  15. {$I \A&E\MEDICAL}
  16. {$I \A&E\WEATHER}
  17. {$I \A&E\EVENING}
  18. {$I \A&E\LAW}
  19. {$I \A&E\EARTH}
  20. {$I \A&E\POLUTION}
  21. {$I \A&E\PEST}
  22. {$I \A&E\DEFINE1}
  23. {$I \A&E\DEFINE2}
  24. {$I \A&E\DEFINE3}
  25. {$I \A&E\DEFINE4}
  26. {$I \A&E\MORNING}
  27. {$I \A&E\CITY}
  28. {$I \A&E\COUNTRY}
  29. {$I \A&E\WILDLIFE}
  30. {$I \A&E\FIRE}
  31. {$I \A&E\MORNQUIZ}
  32. {$I \A&E\NIGHT}
  33. {$I \A&E\MAIL}
  34. {$I \A&E\AFTEMAIL}
  35. {$I \A&E\AIRCRAFT}
  36. {$I \A&E\USAFOODS}
  37. {$I \A&E\CATEGORY}
  38. {$I \A&E\THEFOUR}
  39. {$I \A&E\ERTJET}
  40. {$I \A&E\END}
  41.  
  42. BEGIN
  43.   CLRSCR;
  44.   INTRO;
  45.   REPEAT
  46.     QUIT:=FALSE;
  47.     MENU;
  48.     READ(KBD,NUM);
  49.     CASE NUM OF
  50.       '1':BEGIN
  51.             DEFINE1;
  52.             DEFINE2;
  53.             DEFINE3;
  54.             DEFINE4;
  55.           END;
  56.       '2':BEGIN
  57.             MORNING;
  58.             CITY;
  59.             COUNTRY;
  60.             WILDLIFE;
  61.             FIRE;
  62.             MORNQUIZ;
  63.           END;
  64.       '3':BEGIN
  65.             AFTERNOO;
  66.             RESCUE;
  67.             BUSINESS;
  68.             AFTEREAD;
  69.             MEDICAL;
  70.             WEATHER;
  71.           END;
  72.       '4':BEGIN
  73.             EVENING;
  74.             LAW;
  75.             POLUTION;
  76.             PEST;
  77.             EARTH;
  78.           END;
  79.       '5':BEGIN
  80.             NIGHT;
  81.             MAIL;
  82.             AFTEMAIL;
  83.             AIRCRAFT;
  84.             USAFOODS;
  85.           END;
  86.       '6':BEGIN
  87.             CATEGORY;
  88.             THEFOUR;
  89.             ERTJET;
  90.             ENDING;
  91.           END;
  92.       '7':QUIT:=TRUE;
  93.     END;
  94.   UNTIL QUIT=TRUE;
  95.   CLRSCR;
  96. END.