home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TP003.ZIP / TESTMENU.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-10-23  |  1.5 KB  |  63 lines
  1. PROGRAM TURBO_MENU_SYSTEM;
  2.  
  3. {$I RVSONOFF.PAS}
  4. {$I REP_CHAR.PAS}
  5. {$I CENTER.PAS}
  6. {$I MENU.PAS}
  7.  
  8. VAR
  9.     X,Y,Z             : INTEGER;
  10.     HEAPTOP           : ^INTEGER;
  11.     LIST              : MENU_SELECTIONS;
  12.     HLCHAR            : HL_SELECTIONS;
  13.  
  14. BEGIN
  15.  
  16.   GOTOXY(1,1);
  17.   FOR  Y := 1 TO 25 DO
  18.   WRITELN('************************    THIS IS ORIGINAL SCREEN    ************************');
  19.  
  20.   LIST[1] :='Basic';
  21.   LIST[2] :='Crosstalk';
  22.   LIST[3] :='DBase';
  23.   LIST[4] :='Fortran';
  24.   LIST[5] :='Lotus123';
  25.   LIST[6] :='Masm';
  26.   LIST[7] :='Turbo';
  27.   LIST[8] :='Utilities';
  28.   LIST[9] :='Wordstar';
  29.   LIST[10]:='Exit->DOS';
  30.   LIST[11]:='Test';
  31.   LIST[12]:='TYping Tu';
  32.   LIST[13]:='Exit';
  33.   LIST[14]:='';
  34.  
  35.   HLCHAR[1]  :='B';
  36.   HLCHAR[2]  :='C';
  37.   HLCHAR[3]  :='D';
  38.   HLCHAR[4]  :='F';
  39.   HLCHAR[5]  :='1';
  40.   HLCHAR[6]  :='M';
  41.   HLCHAR[7]  :='T';
  42.   HLCHAR[8]  :='U';
  43.   HLCHAR[9]  :='W';
  44.   HLCHAR[10] :='E';
  45.   HLCHAR[11] :='T';
  46.   HLCHAR[12] :='Y';
  47.   HLCHAR[13] :='E';
  48.  
  49.  
  50.   MARK(HEAPTOP);                         { RECORD TOP OF HEAP BEFORE USING    }
  51.                                          { USING HEAPSPACE TO STORE SCREEN(S) }
  52.  
  53.   Z:=MENU(LIST,HLCHAR,'   MENU    ',0,0,0,10);
  54.  
  55.   RELEASE(HEAPTOP);                  { FREES HEAPSPACE USED TO STORE SCREEN(S)}
  56.  
  57.   GOTOXY(1,24);                                  { EXAMPLE OF FUNCTION RETURN }
  58.   CLREOL;
  59.   WRITELN('FUNCTION RETURNS # OF MENU ITEM THEN RESTORES PREVIOUS SCREEN. CURRENT # = ',Z);
  60.  
  61.  
  62. END.
  63.