home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / LOGICOLR.ZIP / COLOR0.DEF next >
Encoding:
Text File  |  1990-08-01  |  26.2 KB  |  793 lines
  1. ;───────────────────────────────────────────────────────────────────────┐
  2. ;   COLOR0.DEF   - Logitech 3-button Mouse PULL-DOWN MENU colors Demo   │
  3. ;                                                                       │
  4. ;   Copyright (c) 1989,1990  by Paul Langford.  All rights reserved.    │
  5. ;───────────────────────────────────────────────────────────────────────┤
  6. ;                                                                       │
  7. ;          Left Button:    Start this menu demo                         │
  8. ;          Middle Button:                                               │
  9. ;          Right Right:                                                 │
  10. ;                                                                       │
  11. ;          Left-Middle:                                                 │
  12. ;          Left-Right:                                                  │
  13. ;          Middle-Right:                                                │
  14. ;          All Buttons:    EXIT Directory Scanner and go to DOS         │
  15. ;                                                                       │
  16. ;───────────────────────────────────────────────────────────────────────┘
  17. ;           newmenu color0
  18.  
  19. BEGIN   Menu1, , Exit, lm, rm, um, dm, 32, 32
  20.  
  21. lm:     TYPE 0,75
  22. rm:     TYPE 0,77
  23. um:     TYPE 0,72
  24. dm:     TYPE 0,80
  25.  
  26. Exit:   TYPE 0,140                     ; this does nothing at all!
  27.  
  28. Menu0:  POPUP 1, 27, 0
  29.     TEXT "╔════════════════════════╗" ;1
  30.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  31.     TEXT "╠════╤═════════╤═════════╣" ;3
  32.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  33.     TEXT "╟────┼─────────┼─────────╢" ;5
  34.     TEXT "║  0*│ Black   │ White   ║" ;6
  35.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  36.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  37.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  38.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  39.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  40.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  41.     TEXT "║  7 │ White   │ Black   ║" ;13
  42.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  43.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  44.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  45.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  46.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  47.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  48.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  49.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  50.     TEXT "╟────┼─────────┴─────────╢" ;22
  51.     TEXT "║+128│ Blinking text ON  ║" ;23
  52.     TEXT "║+0  │ Blinking text OFF ║" ;24
  53.     TEXT "╚════╧═══< Exit >════════╝" ;25
  54.     SELECT  6, 2,24, Menu0
  55.     SELECT  7, 2,24, Menu1
  56.     SELECT  8, 2,24, Menu2
  57.     SELECT  9, 2,24, Menu3
  58.     SELECT 10, 2,24, Menu4
  59.     SELECT 11, 2,24, Menu5
  60.     SELECT 12, 2,24, Menu6
  61.     SELECT 13, 2,24, Menu7
  62.     SELECT 14, 2,24, Menu8
  63.     SELECT 15, 2,24, Menu9
  64.     SELECT 16, 2,24, Menu10
  65.     SELECT 17, 2,24, Menu11
  66.     SELECT 18, 2,24, Menu12
  67.     SELECT 19, 2,24, Menu13
  68.     SELECT 20, 2,24, Menu14
  69.     SELECT 21, 2,24, Menu15
  70.     SELECT 25,11, 6, Exit
  71. PEND
  72.  
  73.  
  74.  
  75.  
  76. Menu1:  POPUP 1, 27, 1
  77.     TEXT "╔════════════════════════╗" ;1
  78.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  79.     TEXT "╠════╤═════════╤═════════╣" ;3
  80.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  81.     TEXT "╟────┼─────────┼─────────╢" ;5
  82.     TEXT "║  0 │ Black   │ White   ║" ;6
  83.     TEXT "║  1*│ Blue    │ Orange  ║" ;7
  84.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  85.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  86.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  87.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  88.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  89.     TEXT "║  7 │ White   │ Black   ║" ;13
  90.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  91.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  92.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  93.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  94.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  95.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  96.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  97.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  98.     TEXT "╟────┼─────────┴─────────╢" ;22
  99.     TEXT "║+128│ Blinking text ON  ║" ;23
  100.     TEXT "║+0  │ Blinking text OFF ║" ;24
  101.     TEXT "╚════╧═══< Exit >════════╝" ;25
  102.     SELECT  6, 2,24, Menu0
  103.     SELECT  7, 2,24, Menu1
  104.     SELECT  8, 2,24, Menu2
  105.     SELECT  9, 2,24, Menu3
  106.     SELECT 10, 2,24, Menu4
  107.     SELECT 11, 2,24, Menu5
  108.     SELECT 12, 2,24, Menu6
  109.     SELECT 13, 2,24, Menu7
  110.     SELECT 14, 2,24, Menu8
  111.     SELECT 15, 2,24, Menu9
  112.     SELECT 16, 2,24, Menu10
  113.     SELECT 17, 2,24, Menu11
  114.     SELECT 18, 2,24, Menu12
  115.     SELECT 19, 2,24, Menu13
  116.     SELECT 20, 2,24, Menu14
  117.     SELECT 21, 2,24, Menu15
  118.     SELECT 25,11, 6, Exit
  119. PEND
  120.  
  121.  
  122.  
  123.  
  124. Menu2:  POPUP 1, 27, 2
  125.     TEXT "╔════════════════════════╗" ;1
  126.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  127.     TEXT "╠════╤═════════╤═════════╣" ;3
  128.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  129.     TEXT "╟────┼─────────┼─────────╢" ;5
  130.     TEXT "║  0 │ Black   │ White   ║" ;6
  131.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  132.     TEXT "║  2*│ Green   │ Magenta ║" ;8
  133.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  134.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  135.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  136.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  137.     TEXT "║  7 │ White   │ Black   ║" ;13
  138.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  139.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  140.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  141.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  142.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  143.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  144.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  145.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  146.     TEXT "╟────┼─────────┴─────────╢" ;22
  147.     TEXT "║+128│ Blinking text ON  ║" ;23
  148.     TEXT "║+0  │ Blinking text OFF ║" ;24
  149.     TEXT "╚════╧═══< Exit >════════╝" ;25
  150.     SELECT  6, 2,24, Menu0
  151.     SELECT  7, 2,24, Menu1
  152.     SELECT  8, 2,24, Menu2
  153.     SELECT  9, 2,24, Menu3
  154.     SELECT 10, 2,24, Menu4
  155.     SELECT 11, 2,24, Menu5
  156.     SELECT 12, 2,24, Menu6
  157.     SELECT 13, 2,24, Menu7
  158.     SELECT 14, 2,24, Menu8
  159.     SELECT 15, 2,24, Menu9
  160.     SELECT 16, 2,24, Menu10
  161.     SELECT 17, 2,24, Menu11
  162.     SELECT 18, 2,24, Menu12
  163.     SELECT 19, 2,24, Menu13
  164.     SELECT 20, 2,24, Menu14
  165.     SELECT 21, 2,24, Menu15
  166.     SELECT 25,11, 6, Exit
  167. PEND
  168.  
  169.  
  170.  
  171.  
  172. Menu3:  POPUP 1, 27, 3
  173.     TEXT "╔════════════════════════╗" ;1
  174.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  175.     TEXT "╠════╤═════════╤═════════╣" ;3
  176.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  177.     TEXT "╟────┼─────────┼─────────╢" ;5
  178.     TEXT "║  0 │ Black   │ White   ║" ;6
  179.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  180.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  181.     TEXT "║  3*│ Cyan    │ Red     ║" ;9
  182.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  183.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  184.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  185.     TEXT "║  7 │ White   │ Black   ║" ;13
  186.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  187.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  188.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  189.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  190.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  191.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  192.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  193.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  194.     TEXT "╟────┼─────────┴─────────╢" ;22
  195.     TEXT "║+128│ Blinking text ON  ║" ;23
  196.     TEXT "║+0  │ Blinking text OFF ║" ;24
  197.     TEXT "╚════╧═══< Exit >════════╝" ;25
  198.     SELECT  6, 2,24, Menu0
  199.     SELECT  7, 2,24, Menu1
  200.     SELECT  8, 2,24, Menu2
  201.     SELECT  9, 2,24, Menu3
  202.     SELECT 10, 2,24, Menu4
  203.     SELECT 11, 2,24, Menu5
  204.     SELECT 12, 2,24, Menu6
  205.     SELECT 13, 2,24, Menu7
  206.     SELECT 14, 2,24, Menu8
  207.     SELECT 15, 2,24, Menu9
  208.     SELECT 16, 2,24, Menu10
  209.     SELECT 17, 2,24, Menu11
  210.     SELECT 18, 2,24, Menu12
  211.     SELECT 19, 2,24, Menu13
  212.     SELECT 20, 2,24, Menu14
  213.     SELECT 21, 2,24, Menu15
  214.     SELECT 25,11, 6, Exit
  215. PEND
  216.  
  217.  
  218.  
  219.  
  220. Menu4:  POPUP 1, 27, 4
  221.     TEXT "╔════════════════════════╗" ;1
  222.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  223.     TEXT "╠════╤═════════╤═════════╣" ;3
  224.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  225.     TEXT "╟────┼─────────┼─────────╢" ;5
  226.     TEXT "║  0 │ Black   │ White   ║" ;6
  227.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  228.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  229.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  230.     TEXT "║  4*│ Red     │ Cyan    ║" ;10
  231.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  232.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  233.     TEXT "║  7 │ White   │ Black   ║" ;13
  234.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  235.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  236.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  237.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  238.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  239.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  240.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  241.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  242.     TEXT "╟────┼─────────┴─────────╢" ;22
  243.     TEXT "║+128│ Blinking text ON  ║" ;23
  244.     TEXT "║+0  │ Blinking text OFF ║" ;24
  245.     TEXT "╚════╧═══< Exit >════════╝" ;25
  246.     SELECT  6, 2,24, Menu0
  247.     SELECT  7, 2,24, Menu1
  248.     SELECT  8, 2,24, Menu2
  249.     SELECT  9, 2,24, Menu3
  250.     SELECT 10, 2,24, Menu4
  251.     SELECT 11, 2,24, Menu5
  252.     SELECT 12, 2,24, Menu6
  253.     SELECT 13, 2,24, Menu7
  254.     SELECT 14, 2,24, Menu8
  255.     SELECT 15, 2,24, Menu9
  256.     SELECT 16, 2,24, Menu10
  257.     SELECT 17, 2,24, Menu11
  258.     SELECT 18, 2,24, Menu12
  259.     SELECT 19, 2,24, Menu13
  260.     SELECT 20, 2,24, Menu14
  261.     SELECT 21, 2,24, Menu15
  262.     SELECT 25,11, 6, Exit
  263. PEND
  264.  
  265.  
  266.  
  267.  
  268. Menu5:  POPUP 1, 27, 5
  269.     TEXT "╔════════════════════════╗" ;1
  270.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  271.     TEXT "╠════╤═════════╤═════════╣" ;3
  272.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  273.     TEXT "╟────┼─────────┼─────────╢" ;5
  274.     TEXT "║  0 │ Black   │ White   ║" ;6
  275.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  276.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  277.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  278.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  279.     TEXT "║  5*│ Magenta │ Green   ║" ;11
  280.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  281.     TEXT "║  7 │ White   │ Black   ║" ;13
  282.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  283.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  284.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  285.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  286.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  287.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  288.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  289.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  290.     TEXT "╟────┼─────────┴─────────╢" ;22
  291.     TEXT "║+128│ Blinking text ON  ║" ;23
  292.     TEXT "║+0  │ Blinking text OFF ║" ;24
  293.     TEXT "╚════╧═══< Exit >════════╝" ;25
  294.     SELECT  6, 2,24, Menu0
  295.     SELECT  7, 2,24, Menu1
  296.     SELECT  8, 2,24, Menu2
  297.     SELECT  9, 2,24, Menu3
  298.     SELECT 10, 2,24, Menu4
  299.     SELECT 11, 2,24, Menu5
  300.     SELECT 12, 2,24, Menu6
  301.     SELECT 13, 2,24, Menu7
  302.     SELECT 14, 2,24, Menu8
  303.     SELECT 15, 2,24, Menu9
  304.     SELECT 16, 2,24, Menu10
  305.     SELECT 17, 2,24, Menu11
  306.     SELECT 18, 2,24, Menu12
  307.     SELECT 19, 2,24, Menu13
  308.     SELECT 20, 2,24, Menu14
  309.     SELECT 21, 2,24, Menu15
  310.     SELECT 25,11, 6, Exit
  311. PEND
  312.  
  313.  
  314.  
  315.  
  316. Menu6:  POPUP 1, 27, 6
  317.     TEXT "╔════════════════════════╗" ;1
  318.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  319.     TEXT "╠════╤═════════╤═════════╣" ;3
  320.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  321.     TEXT "╟────┼─────────┼─────────╢" ;5
  322.     TEXT "║  0 │ Black   │ White   ║" ;6
  323.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  324.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  325.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  326.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  327.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  328.     TEXT "║  6*│ Brown   │ Blue    ║" ;12
  329.     TEXT "║  7 │ White   │ Black   ║" ;13
  330.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  331.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  332.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  333.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  334.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  335.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  336.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  337.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  338.     TEXT "╟────┼─────────┴─────────╢" ;22
  339.     TEXT "║+128│ Blinking text ON  ║" ;23
  340.     TEXT "║+0  │ Blinking text OFF ║" ;24
  341.     TEXT "╚════╧═══< Exit >════════╝" ;25
  342.     SELECT  6, 2,24, Menu0
  343.     SELECT  7, 2,24, Menu1
  344.     SELECT  8, 2,24, Menu2
  345.     SELECT  9, 2,24, Menu3
  346.     SELECT 10, 2,24, Menu4
  347.     SELECT 11, 2,24, Menu5
  348.     SELECT 12, 2,24, Menu6
  349.     SELECT 13, 2,24, Menu7
  350.     SELECT 14, 2,24, Menu8
  351.     SELECT 15, 2,24, Menu9
  352.     SELECT 16, 2,24, Menu10
  353.     SELECT 17, 2,24, Menu11
  354.     SELECT 18, 2,24, Menu12
  355.     SELECT 19, 2,24, Menu13
  356.     SELECT 20, 2,24, Menu14
  357.     SELECT 21, 2,24, Menu15
  358.     SELECT 25,11, 6, Exit
  359. PEND
  360.  
  361.  
  362.  
  363.  
  364. Menu7:  POPUP 1, 27, 7
  365.     TEXT "╔════════════════════════╗" ;1
  366.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  367.     TEXT "╠════╤═════════╤═════════╣" ;3
  368.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  369.     TEXT "╟────┼─────────┼─────────╢" ;5
  370.     TEXT "║  0 │ Black   │ White   ║" ;6
  371.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  372.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  373.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  374.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  375.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  376.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  377.     TEXT "║  7*│ White   │ Black   ║" ;13
  378.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  379.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  380.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  381.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  382.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  383.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  384.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  385.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  386.     TEXT "╟────┼─────────┴─────────╢" ;22
  387.     TEXT "║+128│ Blinking text ON  ║" ;23
  388.     TEXT "║+0  │ Blinking text OFF ║" ;24
  389.     TEXT "╚════╧═══< Exit >════════╝" ;25
  390.     SELECT  6, 2,24, Menu0
  391.     SELECT  7, 2,24, Menu1
  392.     SELECT  8, 2,24, Menu2
  393.     SELECT  9, 2,24, Menu3
  394.     SELECT 10, 2,24, Menu4
  395.     SELECT 11, 2,24, Menu5
  396.     SELECT 12, 2,24, Menu6
  397.     SELECT 13, 2,24, Menu7
  398.     SELECT 14, 2,24, Menu8
  399.     SELECT 15, 2,24, Menu9
  400.     SELECT 16, 2,24, Menu10
  401.     SELECT 17, 2,24, Menu11
  402.     SELECT 18, 2,24, Menu12
  403.     SELECT 19, 2,24, Menu13
  404.     SELECT 20, 2,24, Menu14
  405.     SELECT 21, 2,24, Menu15
  406.     SELECT 25,11, 6, Exit
  407. PEND
  408.  
  409.  
  410.  
  411.  
  412. Menu8:  POPUP 1, 27, 8
  413.     TEXT "╔════════════════════════╗" ;1
  414.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  415.     TEXT "╠════╤═════════╤═════════╣" ;3
  416.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  417.     TEXT "╟────┼─────────┼─────────╢" ;5
  418.     TEXT "║  0 │ Black   │ White   ║" ;6
  419.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  420.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  421.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  422.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  423.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  424.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  425.     TEXT "║  7 │ White   │ Black   ║" ;13
  426.     TEXT "║  8*│ Dk.Gray │ I.White ║" ;14
  427.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  428.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  429.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  430.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  431.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  432.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  433.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  434.     TEXT "╟────┼─────────┴─────────╢" ;22
  435.     TEXT "║+128│ Blinking text ON  ║" ;23
  436.     TEXT "║+0  │ Blinking text OFF ║" ;24
  437.     TEXT "╚════╧═══< Exit >════════╝" ;25
  438.     SELECT  6, 2,24, Menu0
  439.     SELECT  7, 2,24, Menu1
  440.     SELECT  8, 2,24, Menu2
  441.     SELECT  9, 2,24, Menu3
  442.     SELECT 10, 2,24, Menu4
  443.     SELECT 11, 2,24, Menu5
  444.     SELECT 12, 2,24, Menu6
  445.     SELECT 13, 2,24, Menu7
  446.     SELECT 14, 2,24, Menu8
  447.     SELECT 15, 2,24, Menu9
  448.     SELECT 16, 2,24, Menu10
  449.     SELECT 17, 2,24, Menu11
  450.     SELECT 18, 2,24, Menu12
  451.     SELECT 19, 2,24, Menu13
  452.     SELECT 20, 2,24, Menu14
  453.     SELECT 21, 2,24, Menu15
  454.     SELECT 25,11, 6, Exit
  455. PEND
  456.  
  457.  
  458.  
  459.  
  460. Menu9:  POPUP 1, 27, 9
  461.     TEXT "╔════════════════════════╗" ;1
  462.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  463.     TEXT "╠════╤═════════╤═════════╣" ;3
  464.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  465.     TEXT "╟────┼─────────┼─────────╢" ;5
  466.     TEXT "║  0 │ Black   │ White   ║" ;6
  467.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  468.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  469.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  470.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  471.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  472.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  473.     TEXT "║  7 │ White   │ Black   ║" ;13
  474.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  475.     TEXT "║  9*│ Lt.Blue │ Yellow  ║" ;15
  476.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  477.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  478.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  479.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  480.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  481.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  482.     TEXT "╟────┼─────────┴─────────╢" ;22
  483.     TEXT "║+128│ Blinking text ON  ║" ;23
  484.     TEXT "║+0  │ Blinking text OFF ║" ;24
  485.     TEXT "╚════╧═══< Exit >════════╝" ;25
  486.     SELECT  6, 2,24, Menu0
  487.     SELECT  7, 2,24, Menu1
  488.     SELECT  8, 2,24, Menu2
  489.     SELECT  9, 2,24, Menu3
  490.     SELECT 10, 2,24, Menu4
  491.     SELECT 11, 2,24, Menu5
  492.     SELECT 12, 2,24, Menu6
  493.     SELECT 13, 2,24, Menu7
  494.     SELECT 14, 2,24, Menu8
  495.     SELECT 15, 2,24, Menu9
  496.     SELECT 16, 2,24, Menu10
  497.     SELECT 17, 2,24, Menu11
  498.     SELECT 18, 2,24, Menu12
  499.     SELECT 19, 2,24, Menu13
  500.     SELECT 20, 2,24, Menu14
  501.     SELECT 21, 2,24, Menu15
  502.     SELECT 25,11, 6, Exit
  503. PEND
  504.  
  505.  
  506.  
  507.  
  508. Menu10: POPUP 1, 27, 10
  509.     TEXT "╔════════════════════════╗" ;1
  510.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  511.     TEXT "╠════╤═════════╤═════════╣" ;3
  512.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  513.     TEXT "╟────┼─────────┼─────────╢" ;5
  514.     TEXT "║  0 │ Black   │ White   ║" ;6
  515.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  516.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  517.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  518.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  519.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  520.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  521.     TEXT "║  7 │ White   │ Black   ║" ;13
  522.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  523.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  524.     TEXT "║ 10*│ Lt.Grn  │ Magenta ║" ;16
  525.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  526.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  527.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  528.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  529.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  530.     TEXT "╟────┼─────────┴─────────╢" ;22
  531.     TEXT "║+128│ Blinking text ON  ║" ;23
  532.     TEXT "║+0  │ Blinking text OFF ║" ;24
  533.     TEXT "╚════╧═══< Exit >════════╝" ;25
  534.     SELECT  6, 2,24, Menu0
  535.     SELECT  7, 2,24, Menu1
  536.     SELECT  8, 2,24, Menu2
  537.     SELECT  9, 2,24, Menu3
  538.     SELECT 10, 2,24, Menu4
  539.     SELECT 11, 2,24, Menu5
  540.     SELECT 12, 2,24, Menu6
  541.     SELECT 13, 2,24, Menu7
  542.     SELECT 14, 2,24, Menu8
  543.     SELECT 15, 2,24, Menu9
  544.     SELECT 16, 2,24, Menu10
  545.     SELECT 17, 2,24, Menu11
  546.     SELECT 18, 2,24, Menu12
  547.     SELECT 19, 2,24, Menu13
  548.     SELECT 20, 2,24, Menu14
  549.     SELECT 21, 2,24, Menu15
  550.     SELECT 25,11, 6, Exit
  551. PEND
  552.  
  553.  
  554.  
  555.  
  556. Menu11: POPUP 1, 27, 11
  557.     TEXT "╔════════════════════════╗" ;1
  558.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  559.     TEXT "╠════╤═════════╤═════════╣" ;3
  560.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  561.     TEXT "╟────┼─────────┼─────────╢" ;5
  562.     TEXT "║  0 │ Black   │ White   ║" ;6
  563.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  564.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  565.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  566.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  567.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  568.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  569.     TEXT "║  7 │ White   │ Black   ║" ;13
  570.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  571.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  572.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  573.     TEXT "║ 11*│ Lt.Cyan │ Lt.Red  ║" ;17
  574.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  575.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  576.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  577.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  578.     TEXT "╟────┼─────────┴─────────╢" ;22
  579.     TEXT "║+128│ Blinking text ON  ║" ;23
  580.     TEXT "║+0  │ Blinking text OFF ║" ;24
  581.     TEXT "╚════╧═══< Exit >════════╝" ;25
  582.     SELECT  6, 2,24, Menu0
  583.     SELECT  7, 2,24, Menu1
  584.     SELECT  8, 2,24, Menu2
  585.     SELECT  9, 2,24, Menu3
  586.     SELECT 10, 2,24, Menu4
  587.     SELECT 11, 2,24, Menu5
  588.     SELECT 12, 2,24, Menu6
  589.     SELECT 13, 2,24, Menu7
  590.     SELECT 14, 2,24, Menu8
  591.     SELECT 15, 2,24, Menu9
  592.     SELECT 16, 2,24, Menu10
  593.     SELECT 17, 2,24, Menu11
  594.     SELECT 18, 2,24, Menu12
  595.     SELECT 19, 2,24, Menu13
  596.     SELECT 20, 2,24, Menu14
  597.     SELECT 21, 2,24, Menu15
  598.     SELECT 25,11, 6, Exit
  599. PEND
  600.  
  601.  
  602.  
  603.  
  604. Menu12: POPUP 1, 27, 12
  605.     TEXT "╔════════════════════════╗" ;1
  606.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  607.     TEXT "╠════╤═════════╤═════════╣" ;3
  608.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  609.     TEXT "╟────┼─────────┼─────────╢" ;5
  610.     TEXT "║  0 │ Black   │ White   ║" ;6
  611.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  612.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  613.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  614.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  615.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  616.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  617.     TEXT "║  7 │ White   │ Black   ║" ;13
  618.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  619.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  620.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  621.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  622.     TEXT "║ 12*│ Lt.Red  │ Lt.Cyan ║" ;18
  623.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  624.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  625.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  626.     TEXT "╟────┼─────────┴─────────╢" ;22
  627.     TEXT "║+128│ Blinking text ON  ║" ;23
  628.     TEXT "║+0  │ Blinking text OFF ║" ;24
  629.     TEXT "╚════╧═══< Exit >════════╝" ;25
  630.     SELECT  6, 2,24, Menu0
  631.     SELECT  7, 2,24, Menu1
  632.     SELECT  8, 2,24, Menu2
  633.     SELECT  9, 2,24, Menu3
  634.     SELECT 10, 2,24, Menu4
  635.     SELECT 11, 2,24, Menu5
  636.     SELECT 12, 2,24, Menu6
  637.     SELECT 13, 2,24, Menu7
  638.     SELECT 14, 2,24, Menu8
  639.     SELECT 15, 2,24, Menu9
  640.     SELECT 16, 2,24, Menu10
  641.     SELECT 17, 2,24, Menu11
  642.     SELECT 18, 2,24, Menu12
  643.     SELECT 19, 2,24, Menu13
  644.     SELECT 20, 2,24, Menu14
  645.     SELECT 21, 2,24, Menu15
  646.     SELECT 25,11, 6, Exit
  647. PEND
  648.  
  649.  
  650.  
  651.  
  652. Menu13: POPUP 1, 27, 13
  653.     TEXT "╔════════════════════════╗" ;1
  654.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  655.     TEXT "╠════╤═════════╤═════════╣" ;3
  656.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  657.     TEXT "╟────┼─────────┼─────────╢" ;5
  658.     TEXT "║  0 │ Black   │ White   ║" ;6
  659.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  660.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  661.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  662.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  663.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  664.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  665.     TEXT "║  7 │ White   │ Black   ║" ;13
  666.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  667.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  668.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  669.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  670.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  671.     TEXT "║ 13*│ Lt.Mgta │ Lt.Grn  ║" ;19
  672.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  673.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  674.     TEXT "╟────┼─────────┴─────────╢" ;22
  675.     TEXT "║+128│ Blinking text ON  ║" ;23
  676.     TEXT "║+0  │ Blinking text OFF ║" ;24
  677.     TEXT "╚════╧═══< Exit >════════╝" ;25
  678.     SELECT  6, 2,24, Menu0
  679.     SELECT  7, 2,24, Menu1
  680.     SELECT  8, 2,24, Menu2
  681.     SELECT  9, 2,24, Menu3
  682.     SELECT 10, 2,24, Menu4
  683.     SELECT 11, 2,24, Menu5
  684.     SELECT 12, 2,24, Menu6
  685.     SELECT 13, 2,24, Menu7
  686.     SELECT 14, 2,24, Menu8
  687.     SELECT 15, 2,24, Menu9
  688.     SELECT 16, 2,24, Menu10
  689.     SELECT 17, 2,24, Menu11
  690.     SELECT 18, 2,24, Menu12
  691.     SELECT 19, 2,24, Menu13
  692.     SELECT 20, 2,24, Menu14
  693.     SELECT 21, 2,24, Menu15
  694.     SELECT 25,11, 6, Exit
  695. PEND
  696.  
  697.  
  698.  
  699.  
  700. Menu14: POPUP 1, 27, 14
  701.     TEXT "╔════════════════════════╗" ;1
  702.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  703.     TEXT "╠════╤═════════╤═════════╣" ;3
  704.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  705.     TEXT "╟────┼─────────┼─────────╢" ;5
  706.     TEXT "║  0 │ Black   │ White   ║" ;6
  707.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  708.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  709.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  710.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  711.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  712.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  713.     TEXT "║  7 │ White   │ Black   ║" ;13
  714.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  715.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  716.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  717.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  718.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  719.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  720.     TEXT "║ 14*│ Yellow  │ Lt.Blue ║" ;20
  721.     TEXT "║ 15 │ I.White │ Dk.Gray ║" ;21
  722.     TEXT "╟────┼─────────┴─────────╢" ;22
  723.     TEXT "║+128│ Blinking text ON  ║" ;23
  724.     TEXT "║+0  │ Blinking text OFF ║" ;24
  725.     TEXT "╚════╧═══< Exit >════════╝" ;25
  726.     SELECT  6, 2,24, Menu0
  727.     SELECT  7, 2,24, Menu1
  728.     SELECT  8, 2,24, Menu2
  729.     SELECT  9, 2,24, Menu3
  730.     SELECT 10, 2,24, Menu4
  731.     SELECT 11, 2,24, Menu5
  732.     SELECT 12, 2,24, Menu6
  733.     SELECT 13, 2,24, Menu7
  734.     SELECT 14, 2,24, Menu8
  735.     SELECT 15, 2,24, Menu9
  736.     SELECT 16, 2,24, Menu10
  737.     SELECT 17, 2,24, Menu11
  738.     SELECT 18, 2,24, Menu12
  739.     SELECT 19, 2,24, Menu13
  740.     SELECT 20, 2,24, Menu14
  741.     SELECT 21, 2,24, Menu15
  742.     SELECT 25,11, 6, Exit
  743. PEND
  744.  
  745.  
  746.  
  747.  
  748. Menu15: POPUP 1, 27, 15
  749.     TEXT "╔════════════════════════╗" ;1
  750.     TEXT "║+0   Bk:Black Bar:White ║" ;2
  751.     TEXT "╠════╤═════════╤═════════╣" ;3
  752.     TEXT "║Code│ Menu Txt│ Bar Text║" ;4
  753.     TEXT "╟────┼─────────┼─────────╢" ;5
  754.     TEXT "║  0 │ Black   │ White   ║" ;6
  755.     TEXT "║  1 │ Blue    │ Orange  ║" ;7
  756.     TEXT "║  2 │ Green   │ Magenta ║" ;8
  757.     TEXT "║  3 │ Cyan    │ Red     ║" ;9
  758.     TEXT "║  4 │ Red     │ Cyan    ║" ;10
  759.     TEXT "║  5 │ Magenta │ Green   ║" ;11
  760.     TEXT "║  6 │ Brown   │ Blue    ║" ;12
  761.     TEXT "║  7 │ White   │ Black   ║" ;13
  762.     TEXT "║  8 │ Dk.Gray │ I.White ║" ;14
  763.     TEXT "║  9 │ Lt.Blue │ Yellow  ║" ;15
  764.     TEXT "║ 10 │ Lt.Grn  │ Magenta ║" ;16
  765.     TEXT "║ 11 │ Lt.Cyan │ Lt.Red  ║" ;17
  766.     TEXT "║ 12 │ Lt.Red  │ Lt.Cyan ║" ;18
  767.     TEXT "║ 13 │ Lt.Mgta │ Lt.Grn  ║" ;19
  768.     TEXT "║ 14 │ Yellow  │ Lt.Blue ║" ;20
  769.     TEXT "║ 15*│ I.White │ Dk.Gray ║" ;21
  770.     TEXT "╟────┼─────────┴─────────╢" ;22
  771.     TEXT "║+128│ Blinking text ON  ║" ;23
  772.     TEXT "║+0  │ Blinking text OFF ║" ;24
  773.     TEXT "╚════╧═══< Exit >════════╝" ;25
  774.     SELECT  6, 2,24, Menu0
  775.     SELECT  7, 2,24, Menu1
  776.     SELECT  8, 2,24, Menu2
  777.     SELECT  9, 2,24, Menu3
  778.     SELECT 10, 2,24, Menu4
  779.     SELECT 11, 2,24, Menu5
  780.     SELECT 12, 2,24, Menu6
  781.     SELECT 13, 2,24, Menu7
  782.     SELECT 14, 2,24, Menu8
  783.     SELECT 15, 2,24, Menu9
  784.     SELECT 16, 2,24, Menu10
  785.     SELECT 17, 2,24, Menu11
  786.     SELECT 18, 2,24, Menu12
  787.     SELECT 19, 2,24, Menu13
  788.     SELECT 20, 2,24, Menu14
  789.     SELECT 21, 2,24, Menu15
  790.     SELECT 25,11, 6, Exit
  791. PEND
  792.  
  793.