home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Games / Remember / Com-Light / JunV1.d64 / c-menu.c < prev    next >
Encoding:
Text File  |  2019-04-13  |  1.6 KB  |  56 lines
  1. àü/*
  2. 
  3.    ═ENU ╨ROGRAM  - ├HAPTER 1
  4. 
  5.    NOTE: ╘HIS  LISTING IS SLIGHTLY DIFFERENT TO THAT IN THE
  6.          ACCOMPANYING TEXT.  ╔  HAVE  ACCOMODATED 40 AND 80
  7.          COLUMN SCREEN DISPLAYS WITH THE HELP OF THE IS80()
  8.          FUNCTION.
  9. 
  10. */
  11. 
  12. #INCLUDE "STDIO.H"
  13. #INCLUDE "CTYPE.H"
  14. 
  15. #DEFINE CLEAR_SCREEN PRINTF("\223")
  16. 
  17. MAIN()
  18. █
  19.    CHAR CHOICE,TEMP;
  20.    INT COLUMN;
  21. 
  22.    IF (IS80())                            /* ├64 USERS REMOVE THE IS80()   */
  23.        COLUMN = 25;                       /* IF ELSE STATEMENT AND REPLACE */
  24.    ELSE                                   /* WITH COLUMN = 10;             */
  25.        COLUMN = 10;
  26. 
  27. 
  28.        WHILE (CHOICE != '╤')
  29.        █
  30.            CLEAR_SCREEN;
  31.            CURSOR(3,COLUMN+8);PRINTF("═┼╬╒");
  32.            CURSOR(6,COLUMN);PRINTF("1. ╓ARIABLES");
  33.            CURSOR(8,COLUMN);PRINTF("2. ╞UNCTIONS");
  34.            CURSOR(10,COLUMN);PRINTF("3. ┴RRAYS & ╨OINTERS");
  35.            CURSOR(12,COLUMN);PRINTF("4. ╞ILES");
  36.            CURSOR(14,COLUMN);PRINTF("╤. ╤UIT");
  37.            CURSOR(20,COLUMN+1);PRINTF("┼NTER ├HOICE (1-4) OR ╤: ");
  38. 
  39.            TEMP = GETCHAR();
  40.            CHOICE = TOUPPER(TEMP);
  41. 
  42. 
  43. 
  44.            SWITCH(CHOICE) █
  45. 
  46.                CASE '1' : PUTCHAR(CHOICE); EXEC("VARIABLES"); BREAK;
  47.                CASE '2' : PUTCHAR(CHOICE); EXEC("FUNCTIONS"); BREAK;
  48.                CASE '3' : PUTCHAR(CHOICE); EXEC("ARRAYS"); BREAK;
  49.                CASE '4' : PUTCHAR(CHOICE); EXEC("FILES"); BREAK;
  50.                CASE '╤' : CURSOR(22,COLUMN+2);PRINTF("╤UIT!...PRESS A KEY");
  51.                           ▌
  52.        ▌
  53.        GETCHAR();
  54. 
  55. ▌