home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB21.ZIP / OVLTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-06-06  |  1.5 KB  |  83 lines
  1. {***************************************}
  2. {                OVLTEST                }
  3. {                        }
  4. {           by Jeff Duntemann           }
  5. {                                       }
  6. { Overlay demo program for Turbo Pascal }
  7. {***************************************}        
  8.  
  9. PROGRAM OVLTEST;
  10.  
  11. VAR QUIT   : BOOLEAN;
  12.     NUMBER : INTEGER;
  13.  
  14.  
  15. OVERLAY PROCEDURE ONE;
  16.  
  17. BEGIN
  18.   WRITELN('>>Hi!  Overlay procedure #1 at your service!')
  19. END;
  20.  
  21.  
  22. OVERLAY PROCEDURE TWO;
  23.  
  24. BEGIN
  25.   WRITELN('>>Number two here.  May I help you?')
  26. END;
  27.  
  28.  
  29. FUNCTION GETNUMBER : INTEGER;
  30.  
  31. VAR I  : INTEGER;
  32.     OK : BOOLEAN;
  33.  
  34. BEGIN
  35.   REPEAT
  36.     GOTOXY(43,18);
  37.     CLREOL;
  38.     READ(I);
  39.     IF (I >= 0) AND (I <= 4) THEN OK := TRUE ELSE
  40.       BEGIN
  41.         GOTOXY(1,24);
  42.         WRITELN('Valid numbers are 0-4 only!');
  43.         OK := FALSE;
  44.       END
  45.   UNTIL OK;
  46.   GETNUMBER := I
  47. END;
  48.  
  49.  
  50. OVERLAY PROCEDURE THREE;
  51.  
  52. BEGIN
  53.   WRITELN('>>Numbah three.  Whaddaya want?')
  54. END;
  55.  
  56.  
  57. OVERLAY PROCEDURE FOUR;
  58.  
  59. BEGIN
  60.   WRITELN('>>Four''s on line--lay some work on me!')
  61. END;
  62.  
  63.  
  64. BEGIN  { MAIN }
  65.   CLRSCR;
  66.   REPEAT
  67.     GOTOXY(1,18);
  68.     WRITE('>>>Enter a number from 1-4 or 0 to quit: ');
  69.     NUMBER := GETNUMBER;
  70.     IF NUMBER = 0 THEN QUIT := TRUE ELSE
  71.       BEGIN
  72.         QUIT := FALSE;
  73.         GOTOXY(1,5); CLREOL;
  74.         CASE NUMBER OF
  75.           1 : ONE;
  76.           2 : TWO;
  77.           3 : THREE;
  78.           4 : FOUR
  79.         END
  80.       END
  81.   UNTIL QUIT;
  82. END.
  83.