home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / w3_disk / oriel.arj / COLOR.ORL < prev    next >
Encoding:
Text File  |  1991-07-31  |  13.9 KB  |  649 lines
  1. {------------------------------COLOR.ORL--------------------------------
  2.  This script builds a color palette, and lets you adjust the colors in
  3.  it. It is called from DEMO.ORL.
  4.  -----------------------------------------------------------------------}
  5.  
  6. {Set Environment}
  7.     SetWindow(MAXIMIZE)
  8.     DrawBackground
  9.     UseCoordinates(METRIC)
  10.     UseCaption("Color Palette")
  11.  
  12. {Set Variables}
  13.     Set Red=255
  14.     Set Green=255
  15.     Set Blue=255
  16.     Set OLD_SAVE_X1=5
  17.     Set OLD_SAVE_Y1=5
  18.     Set OLD_SAVE_X2=18
  19.     Set OLD_SAVE_Y2=20
  20.     Set Save_Red=255
  21.     Set Save_Green=255
  22.     Set Save_Blue=255
  23.     Set Modify_Red=255
  24.     Set Modify_Green=255
  25.     Set Modify_Blue=255
  26.  
  27. {Draw Colors}
  28.     UsePen(SOLID,2,0,0,0)
  29.     UseBrush(SOLID,255,255,255)        {White}
  30.     DrawRoundRectangle(5,5,18,20,2,2)
  31.     UsePen(SOLID,1,0,0,0)
  32.     UseBrush(SOLID,192,192,192)        {Lite_Grey}
  33.     DrawRoundRectangle(19,5,32,20,2,2)
  34.     UseBrush(SOLID,255,0,0)            {Red}
  35.     DrawRoundRectangle(33,5,46,20,2,2)
  36.     UseBrush(SOLID,255,255,0)        {Yellow}
  37.     DrawRoundRectangle(47,5,60,20,2,2)
  38.     UseBrush(SOLID,0,255,0)            {Green}
  39.     DrawRoundRectangle(61,5,74,20,2,2)
  40.     UseBrush(SOLID,0,255,255)        {Lite_Blue}
  41.     DrawRoundRectangle(75,5,88,20,2,2)
  42.     UseBrush(SOLID,0,0,255)            {Dark_Blue}
  43.     DrawRoundRectangle(89,5,102,20,2,2)
  44.     UseBrush(SOLID,255,0,255)        {Pink}
  45.     DrawRoundRectangle(103,5,116,20,2,2)
  46.     UseBrush(SOLID,255,255,128)        {Lite_Yellow}
  47.     DrawRoundRectangle(117,5,130,20,2,2)
  48.     UseBrush(SOLID,0,255,128)        {Lite_Green}
  49.     DrawRoundRectangle(131,5,144,20,2,2)
  50.     UseBrush(SOLID,128,255,255)        {Sky_Blue}
  51.     DrawRoundRectangle(145,5,158,20,2,2)
  52.     UseBrush(SOLID,128,128,255)        {Purple}
  53.     DrawRoundRectangle(159,5,172,20,2,2)
  54.     UseBrush(SOLID,255,0,128)        {Lite_Red}
  55.     DrawRoundRectangle(173,5,186,20,2,2)
  56.     UseBrush(SOLID,255,128,64)        {Orange}
  57.     DrawRoundRectangle(187,5,200,20,2,2)
  58.     UseBrush(SOLID,0,0,0)            {Black}
  59.     DrawRoundRectangle(5,22,18,37,2,2)
  60.     UseBrush(SOLID,128,128,128)        {Dark_Grey}
  61.     DrawRoundRectangle(19,22,32,37,2,2)
  62.     UseBrush(SOLID,128,0,0)            {Dark Red}
  63.     DrawRoundRectangle(33,22,46,37,2,2)
  64.     UseBrush(SOLID,128,128,0)        {Olive}
  65.     DrawRoundRectangle(47,22,60,37,2,2)
  66.     UseBrush(SOLID,0,128,0)            {Dark_Green}
  67.     DrawRoundRectangle(61,22,74,37,2,2)
  68.     UseBrush(SOLID,0,128,128)        {Aqua_Green}
  69.     DrawRoundRectangle(75,22,88,37,2,2)
  70.     UseBrush(SOLID,0,0,128)            {Dark_Purple}
  71.     DrawRoundRectangle(89,22,102,37,2,2)
  72.     UseBrush(SOLID,128,0,128)        {Dark_Pink}
  73.     DrawRoundRectangle(103,22,116,37,2,2)
  74.     UseBrush(SOLID,128,128,64)        {Army_Tank}
  75.     DrawRoundRectangle(117,22,130,37,2,2)
  76.     UseBrush(SOLID,0,64,64)            {Hunter_Green}
  77.     DrawRoundRectangle(131,22,144,37,2,2)
  78.     UseBrush(SOLID,0,128,255)        {Another_Blue}
  79.     DrawRoundRectangle(145,22,158,37,2,2)
  80.     UseBrush(SOLID,0,64,128)        {Title_Blue}
  81.     DrawRoundRectangle(159,22,172,37,2,2)
  82.     UseBrush(SOLID,64,0,128)        {Another_Purple}
  83.     DrawRoundRectangle(173,22,186,37,2,2)
  84.     UseBrush(SOLID,128,64,0)        {Rust}
  85.     DrawRoundRectangle(187,22,200,37,2,2)
  86.  
  87. {Set up the mouse}
  88.     SetMouse(5,5,18,20,WHITE,Temp,Temp,
  89.         19,5,32,20,LITE_GREY,Temp,Temp,
  90.         33,5,46,20,RED,Temp,Temp,
  91.         47,5,60,20,YELLOW,Temp,Temp,
  92.         61,5,74,20,GREEN,Temp,Temp,
  93.         75,5,88,20,LITE_BLUE,Temp,Temp,
  94.         89,5,102,20,DARK_BLUE,Temp,Temp,
  95.         103,5,116,20,PINK,Temp,Temp,
  96.         117,5,130,20,LITE_YELLOW,Temp,Temp,
  97.         131,5,144,20,LITE_GREEN,Temp,Temp,
  98.         145,5,158,20,SKY_BLUE,Temp,Temp,
  99.         159,5,172,20,PURPLE,Temp,Temp,
  100.         173,5,186,20,LITE_RED,Temp,Temp,
  101.         187,5,200,20,ORANGE,Temp,Temp,
  102.         5,22,18,37,BLACK,Temp,Temp,
  103.         19,22,32,37,DARK_GREY,Temp,Temp,
  104.         33,22,46,37,DARK_RED,Temp,Temp,
  105.         47,22,60,37,OLIVE,Temp,Temp,
  106.         61,22,74,37,DARK_GREEN,Temp,Temp,
  107.         75,22,88,37,AQUA_GREEN,Temp,Temp,
  108.         89,22,102,37,DARK_PURPLE,Temp,Temp,
  109.         103,22,116,37,DARK_PINK,Temp,Temp,
  110.         117,22,130,37,ARMY_TANK,Temp,Temp,
  111.         131,22,144,37,HUNTER_GREEN,Temp,Temp,
  112.         145,22,158,37,ANOTHER_BLUE,Temp,Temp,    
  113.         159,22,172,37,TITLE_BLUE,Temp,Temp,
  114.         173,22,186,37,ANOTHER_PURPLE,Temp,Temp,
  115.         187,22,200,37,RUST,Temp,Temp,
  116.         110,50,120,60,RED_DOWN,Temp,Temp,
  117.         110,70,120,80,GREEN_DOWN,Temp,Temp,
  118.         110,90,120,100,BLUE_DOWN,Temp,Temp,
  119.         140,50,150,60,RED_UP,Temp,Temp,
  120.         140,70,150,80,GREEN_UP,Temp,Temp,
  121.         140,90,150,100,BLUE_UP,Temp,Temp,
  122.         85,115,105,125,End_It,Temp,Temp)
  123.  
  124. {Set up the keyboard}
  125.     SetKeyboard("E",End_It,
  126.             "e",End_It)
  127.  
  128. {Draw the large color patch}
  129.     UseBrush(SOLID,RED,GREEN,BLUE)
  130.     DrawRoundRectangle(50,50,100,100,3,3)
  131.  
  132. {Draw the Red, Green, and Blue text}
  133.     DrawText(125,44,"Red")
  134.     DrawText(123,64,"Green")
  135.     DrawText(125,84,"Blue")
  136.  
  137. {Draw the Grey Buttons}
  138.     UseBrush(SOLID,192,192,192)
  139.     DrawRoundRectangle(110,50,120,60,2,2)
  140.     DrawRoundRectangle(110,70,120,80,2,2)
  141.     DrawRoundRectangle(110,90,120,100,2,2)
  142.  
  143.     DrawRoundRectangle(140,50,150,60,2,2)
  144.     DrawRoundRectangle(140,70,150,80,2,2)
  145.     DrawRoundRectangle(140,90,150,100,2,2)
  146.  
  147.     UseBackground(TRANSPARENT,0,0,0)
  148.     DrawText(112,52,"<--")
  149.     DrawText(112,72,"<--")
  150.     DrawText(112,92,"<--")
  151.  
  152.     DrawText(143,52,"-->")
  153.     DrawText(143,72,"-->")
  154.     DrawText(143,92,"-->")
  155.  
  156.     DrawRoundRectangle(85,115,105,125,2,2)
  157.     UseFont("System",0,0,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
  158.     DrawText(90,117,"E")
  159.     UseFont("System",0,0,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  160.     DrawText(93,117,"xit")
  161.  
  162. {Draw numbers within boxes}
  163. DRAW_NUMBERS:
  164.     UseBrush(SOLID,255,255,255)
  165.     DrawRoundRectangle(125,50,135,60,2,2)
  166.     DrawRoundRectangle(125,70,135,80,2,2)
  167.     DrawRoundRectangle(125,90,135,100,2,2)
  168.  
  169.     DrawNumber(126,52,RED)
  170.     DrawNumber(126,72,GREEN)
  171.     DrawNumber(126,92,BLUE)
  172.  
  173.     UseBrush(SOLID,RED,GREEN,BLUE)
  174.     DrawRoundRectangle(50,50,100,100,3,3)
  175.  
  176. {Wait for input}
  177. WAIT_FOR_INPUT:
  178.     WaitInput()
  179.  
  180. WHITE:
  181.     Gosub SAVE_COLOR
  182.     Set Red=255
  183.     Set Green=255
  184.     Set Blue=255
  185.     Gosub MODIFY_COLOR
  186.     Set New_X1=5
  187.     Set New_Y1=5
  188.     Set New_X2=18
  189.     Set New_Y2=20
  190.     Gosub MOVE_HIGHLIGHT
  191.     Goto DRAW_NUMBERS
  192.  
  193. LITE_GREY:
  194.     Gosub SAVE_COLOR
  195.     Set Red=192
  196.     Set Green=192
  197.     Set Blue=192
  198.     Gosub MODIFY_COLOR
  199.     Set New_X1=19
  200.     Set New_Y1=5
  201.     Set New_X2=32
  202.     Set New_Y2=20
  203.     Gosub MOVE_HIGHLIGHT
  204.     Goto DRAW_NUMBERS
  205.  
  206. RED:
  207.     Gosub SAVE_COLOR
  208.     Set Red=255
  209.     Set Green=0
  210.     Set Blue=0
  211.     Gosub MODIFY_COLOR
  212.     Set New_X1=33
  213.     Set New_Y1=5
  214.     Set New_X2=46
  215.     Set New_Y2=20
  216.     Gosub MOVE_HIGHLIGHT
  217.     Goto DRAW_NUMBERS
  218.  
  219. YELLOW:
  220.     Gosub SAVE_COLOR
  221.     Set Red=255
  222.     Set Green=255
  223.     Set Blue=0
  224.     Gosub MODIFY_COLOR
  225.     Set New_X1=47
  226.     Set New_Y1=5
  227.     Set New_X2=60
  228.     Set New_Y2=20
  229.     Gosub MOVE_HIGHLIGHT
  230.     Goto DRAW_NUMBERS
  231.  
  232. GREEN:
  233.     Gosub SAVE_COLOR
  234.     Set Red=0
  235.     Set Green=255
  236.     Set Blue=0
  237.     Gosub MODIFY_COLOR
  238.     Set New_X1=61
  239.     Set New_Y1=5
  240.     Set New_X2=74
  241.     Set New_Y2=20
  242.     Gosub MOVE_HIGHLIGHT
  243.     Goto DRAW_NUMBERS
  244.  
  245. LITE_BLUE:
  246.     Gosub SAVE_COLOR
  247.     Set Red=0
  248.     Set Green=255
  249.     set Blue=255
  250.     Gosub MODIFY_COLOR
  251.     Set New_X1=75
  252.     Set New_Y1=5
  253.     Set New_X2=88
  254.     Set New_Y2=20
  255.     Gosub MOVE_HIGHLIGHT
  256.     Goto DRAW_NUMBERS
  257.  
  258. DARK_BLUE:
  259.     Gosub SAVE_COLOR
  260.     Set Red=0
  261.     Set Green=0
  262.     Set Blue=255
  263.     Gosub MODIFY_COLOR
  264.     Set New_X1=89
  265.     Set New_Y1=5
  266.     Set New_X2=102
  267.     Set New_Y2=20
  268.     Gosub MOVE_HIGHLIGHT
  269.     Goto DRAW_NUMBERS
  270.  
  271. PINK:
  272.     Gosub SAVE_COLOR
  273.     Set Red=255
  274.     Set Green=0
  275.     Set Blue=255
  276.     Gosub MODIFY_COLOR
  277.     Set New_X1=103
  278.     Set New_Y1=5
  279.     Set New_X2=116
  280.     Set New_Y2=20
  281.     Gosub MOVE_HIGHLIGHT
  282.     Goto DRAW_NUMBERS
  283.  
  284. LITE_YELLOW:
  285.     Gosub SAVE_COLOR
  286.     Set Red=255
  287.     Set Green=255
  288.     Set Blue=128
  289.     Gosub MODIFY_COLOR
  290.     Set New_X1=117
  291.     Set New_Y1=5
  292.     Set New_X2=130
  293.     Set New_Y2=20
  294.     Gosub MOVE_HIGHLIGHT
  295.     Goto DRAW_NUMBERS
  296.  
  297. LITE_GREEN:
  298.     Gosub SAVE_COLOR
  299.     Set Red=0
  300.     Set Green=255
  301.     Set Blue=128
  302.     Gosub MODIFY_COLOR
  303.     Set New_X1=131
  304.     Set New_Y1=5
  305.     Set New_X2=144
  306.     Set New_Y2=20
  307.     Gosub MOVE_HIGHLIGHT
  308.     Goto DRAW_NUMBERS
  309.  
  310. SKY_BLUE:
  311.     Gosub SAVE_COLOR
  312.     Set Red=128
  313.     Set Green=255
  314.     Set Blue=255
  315.     Gosub MODIFY_COLOR
  316.     Set New_X1=145
  317.     Set New_Y1=5
  318.     Set New_X2=158
  319.     Set New_Y2=20
  320.     Gosub MOVE_HIGHLIGHT
  321.     Goto DRAW_NUMBERS
  322.  
  323. PURPLE:
  324.     Gosub SAVE_COLOR
  325.     Set Red=128
  326.     Set Green=128
  327.     Set Blue=255
  328.     Gosub MODIFY_COLOR
  329.     Set New_X1=159
  330.     Set New_Y1=5
  331.     Set New_X2=172
  332.     Set New_Y2=20
  333.     Gosub MOVE_HIGHLIGHT
  334.     Goto DRAW_NUMBERS
  335.  
  336. LITE_RED:
  337.     Gosub SAVE_COLOR
  338.     Set Red=255
  339.     Set Green=0
  340.     Set Blue=128
  341.     Gosub MODIFY_COLOR
  342.     Set New_X1=173
  343.     Set New_Y1=5
  344.     Set New_X2=186
  345.     Set New_Y2=20
  346.     Gosub MOVE_HIGHLIGHT
  347.     Goto DRAW_NUMBERS
  348.  
  349. ORANGE:
  350.     Gosub SAVE_COLOR
  351.     Set Red=255
  352.     Set Green=128
  353.     Set Blue=64
  354.     Gosub MODIFY_COLOR
  355.     Set New_X1=187
  356.     Set New_Y1=5
  357.     Set New_X2=200
  358.     Set New_Y2=20
  359.     Gosub MOVE_HIGHLIGHT
  360.     Goto DRAW_NUMBERS
  361.  
  362. BLACK:
  363.     Gosub SAVE_COLOR
  364.     Set Red=0
  365.     Set Green=0
  366.     Set Blue=0
  367.     Gosub MODIFY_COLOR
  368.     Set New_X1=5
  369.     Set New_Y1=22
  370.     Set New_X2=18
  371.     Set New_Y2=37
  372.     Gosub MOVE_HIGHLIGHT
  373.     Goto DRAW_NUMBERS
  374.  
  375. DARK_GREY:
  376.     Gosub SAVE_COLOR
  377.     Set Red=128
  378.     Set Green=128
  379.     Set Blue=128
  380.     Gosub MODIFY_COLOR
  381.     Set New_X1=19
  382.     Set New_Y1=22
  383.     Set New_X2=32
  384.     Set New_Y2=37
  385.     Gosub MOVE_HIGHLIGHT
  386.     Goto DRAW_NUMBERS
  387.  
  388. DARK_RED:
  389.     Gosub SAVE_COLOR
  390.     Set Red=128
  391.     Set Green=0
  392.     Set Blue=0
  393.     Gosub MODIFY_COLOR
  394.     Set New_X1=33
  395.     Set New_Y1=22
  396.     Set New_X2=46
  397.     Set New_Y2=37
  398.     Gosub MOVE_HIGHLIGHT
  399.     Goto DRAW_NUMBERS
  400.  
  401. OLIVE:
  402.     Gosub SAVE_COLOR
  403.     Set Red=128
  404.     Set Green=128
  405.     Set Blue=0
  406.     Gosub MODIFY_COLOR
  407.     Set New_X1=47
  408.     Set New_Y1=22
  409.     Set New_X2=60
  410.     Set New_Y2=37
  411.     Gosub MOVE_HIGHLIGHT
  412.     Goto DRAW_NUMBERS
  413.  
  414. DARK_GREEN:
  415.     Gosub SAVE_COLOR
  416.     Set Red=0
  417.     Set Green=128
  418.     Set Blue=0
  419.     Gosub MODIFY_COLOR
  420.     Set New_X1=61
  421.     Set New_Y1=22
  422.     Set New_X2=74
  423.     Set New_Y2=37
  424.     Gosub MOVE_HIGHLIGHT
  425.     Goto DRAW_NUMBERS
  426.  
  427. AQUA_GREEN:
  428.     Gosub SAVE_COLOR
  429.     Set Red=0
  430.     Set Green=128
  431.     Set Blue=128
  432.     Gosub MODIFY_COLOR
  433.     Set New_X1=75
  434.     Set New_Y1=22
  435.     Set New_X2=88
  436.     Set New_Y2=37
  437.     Gosub MOVE_HIGHLIGHT
  438.     Goto DRAW_NUMBERS
  439.  
  440. DARK_PURPLE:
  441.     Gosub SAVE_COLOR
  442.     Set Red=0
  443.     Set Green=0
  444.     Set Blue=128
  445.     Gosub MODIFY_COLOR
  446.     Set New_X1=89
  447.     Set New_Y1=22
  448.     Set New_X2=102
  449.     Set New_Y2=37
  450.     Gosub MOVE_HIGHLIGHT
  451.     Goto DRAW_NUMBERS
  452.  
  453. DARK_PINK:
  454.     Gosub SAVE_COLOR
  455.     Set Red=128
  456.     Set Green=0
  457.     Set Blue=128
  458.     Gosub MODIFY_COLOR
  459.     Set New_X1=103
  460.     Set New_Y1=22
  461.     Set New_X2=116
  462.     Set New_Y2=37
  463.     Gosub MOVE_HIGHLIGHT
  464.     Goto DRAW_NUMBERS
  465.  
  466. ARMY_TANK:
  467.     Gosub SAVE_COLOR
  468.     Set Red=128
  469.     Set Green=128
  470.     Set Blue=64
  471.     Gosub MODIFY_COLOR
  472.     Set New_X1=117
  473.     Set New_Y1=22
  474.     Set New_X2=130
  475.     Set New_Y2=37
  476.     Gosub MOVE_HIGHLIGHT
  477.     Goto DRAW_NUMBERS
  478.  
  479. HUNTER_GREEN:
  480.     Gosub SAVE_COLOR
  481.     Set Red=0
  482.     Set Green=64
  483.     Set Blue=64
  484.     Gosub MODIFY_COLOR
  485.     Set New_X1=131
  486.     Set New_Y1=22
  487.     Set New_X2=144
  488.     Set New_Y2=37
  489.     Gosub MOVE_HIGHLIGHT
  490.     Goto DRAW_NUMBERS
  491.  
  492. ANOTHER_BLUE:
  493.     Gosub SAVE_COLOR
  494.     Set Red=0
  495.     Set Green=128
  496.     Set Blue=255
  497.     Gosub MODIFY_COLOR
  498.     Set New_X1=145
  499.     Set New_Y1=22
  500.     Set New_X2=158
  501.     Set New_Y2=37
  502.     Gosub MOVE_HIGHLIGHT
  503.     Goto DRAW_NUMBERS
  504.  
  505. TITLE_BLUE:
  506.     Gosub SAVE_COLOR
  507.     Set Red=0
  508.     Set Green=64
  509.     Set Blue=128
  510.     Gosub MODIFY_COLOR
  511.     Set New_X1=159
  512.     Set New_Y1=22
  513.     Set New_X2=172
  514.     Set New_Y2=37
  515.     Gosub MOVE_HIGHLIGHT
  516.     Goto DRAW_NUMBERS
  517.  
  518. ANOTHER_PURPLE:
  519.     Gosub SAVE_COLOR
  520.     Set Red=64
  521.     Set Green=0
  522.     Set Blue=128
  523.     Gosub MODIFY_COLOR
  524.     Set New_X1=173
  525.     Set New_Y1=22
  526.     Set New_X2=186
  527.     Set New_Y2=37
  528.     Gosub MOVE_HIGHLIGHT
  529.     Goto DRAW_NUMBERS
  530.  
  531. RUST:
  532.     Gosub SAVE_COLOR
  533.     Set Red=128
  534.     Set Green=64
  535.     Set Blue=0
  536.     Gosub MODIFY_COLOR
  537.     Set New_X1=187
  538.     Set New_Y1=22
  539.     Set New_X2=200
  540.     Set New_Y2=37
  541.     Gosub MOVE_HIGHLIGHT
  542.     Goto DRAW_NUMBERS
  543.  
  544. {Increase the Red number by 1}
  545. RED_UP:
  546.     If Modify_RED>=255 Then Beep | Goto WAIT_FOR_INPUT
  547.     Set Modify_RED=Modify_RED+1
  548.     UseBrush(SOLID,255,255,255)
  549.     DrawRoundRectangle(125,50,135,60,2,2)
  550.     DrawNumber(126,52,Modify_RED)
  551.     UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
  552.     DrawRoundRectangle(50,50,100,100,3,3)
  553.     Goto WAIT_FOR_INPUT
  554.  
  555. {Decrease the Red number by 1}
  556. RED_DOWN:
  557.     If Modify_RED=0 Then Beep | Goto WAIT_FOR_INPUT
  558.     Set Modify_RED=Modify_RED-1
  559.     UseBrush(SOLID,255,255,255)
  560.     DrawRoundRectangle(125,50,135,60,2,2)
  561.     DrawNumber(126,52,Modify_RED)
  562.     UseBrush(SOLID,Modify_RED,GREEN,BLUE)
  563.     DrawRoundRectangle(50,50,100,100,3,3)
  564.     Goto WAIT_FOR_INPUT
  565.  
  566. {Increase the Green number by 1}
  567. GREEN_UP:
  568.     If Modify_Green>=255 Then Beep | Goto WAIT_FOR_INPUT
  569.     Set Modify_GREEN=Modify_GREEN+1
  570.     UseBrush(SOLID,255,255,255)
  571.     DrawRoundRectangle(125,70,135,80,2,2)
  572.     DrawNumber(126,72,Modify_GREEN)
  573.     UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
  574.     DrawRoundRectangle(50,50,100,100,3,3)
  575.     Goto WAIT_FOR_INPUT
  576.  
  577. {Decrease the Green number by 1}
  578. GREEN_DOWN:
  579.     If Modify_GREEN=0 Then Beep | Goto WAIT_FOR_INPUT
  580.     Set Modify_GREEN=Modify_GREEN-1
  581.     UseBrush(SOLID,255,255,255)
  582.     DrawRoundRectangle(125,70,135,80,2,2)
  583.     DrawNumber(126,72,Modify_GREEN)
  584.     UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
  585.     DrawRoundRectangle(50,50,100,100,3,3)
  586.     Goto WAIT_FOR_INPUT
  587.  
  588. {Increase the Blue number by 1}
  589. BLUE_UP:
  590.     If Modify_BLUE>=255 Then Beep | Goto WAIT_FOR_INPUT
  591.     Set Modify_BLUE=Modify_BLUE+1
  592.     UseBrush(SOLID,255,255,255)
  593.     DrawRoundRectangle(125,90,135,100,2,2)
  594.     DrawNumber(126,92,Modify_BLUE)
  595.     UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
  596.     DrawRoundRectangle(50,50,100,100,3,3)
  597.     Goto WAIT_FOR_INPUT
  598.  
  599. {Decrease the Blue number by 1}
  600. BLUE_DOWN:
  601.     If Modify_BLUE=0 Then Beep | Goto WAIT_FOR_INPUT
  602.     Set Modify_BLUE=Modify_BLUE-1
  603.     UseBrush(SOLID,255,255,255)
  604.     DrawRoundRectangle(125,90,135,100,2,2)
  605.     DrawNumber(126,92,Modify_BLUE)
  606.     UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
  607.     DrawRoundRectangle(50,50,100,100,3,3)
  608.     Goto WAIT_FOR_INPUT
  609.  
  610. {Subroutine to move the highlight}
  611. MOVE_HIGHLIGHT:
  612.     UseBrush(NULL,0,0,0)
  613.     UsePen(SOLID,2,0,0,0)
  614.     DrawRoundRectangle(NEW_X1,NEW_Y1,NEW_X2,NEW_Y2,2,2)
  615.     UsePen(SOLID,1,0,0,0)
  616.  
  617.     UseBrush(NULL,0,0,0)
  618.     UsePen(SOLID,2,255,255,255)
  619.     DrawRoundRectangle(OLD_SAVE_X1,OLD_SAVE_Y1,
  620.         OLD_SAVE_X2,OLD_SAVE_Y2,2,2)
  621.     UsePen(SOLID,1,0,0,0)
  622.     UseBrush(SOLID,SAVE_RED,SAVE_GREEN,SAVE_BLUE)
  623.     DrawRoundRectangle(OLD_SAVE_X1,OLD_SAVE_Y1,
  624.         OLD_SAVE_X2,OLD_SAVE_Y2,2,2)
  625.  
  626.     Set OLD_SAVE_X1=NEW_X1
  627.     Set OLD_SAVE_Y1=NEW_Y1
  628.     Set OLD_SAVE_X2=NEW_X2
  629.     Set OLD_SAVE_Y2=NEW_Y2
  630.  
  631.     Return
  632.  
  633. {Subroutine to save old color settings}
  634. SAVE_COLOR:
  635.     Set Save_Red=Red
  636.     Set Save_Green=Green
  637.     Set Save_Blue=Blue
  638.     Return
  639.  
  640. {Subroutine to save the current color settings}
  641. MODIFY_COLOR:
  642.     Set Modify_Red=Red
  643.     Set Modify_Green=Green
  644.     Set Modify_Blue=Blue
  645.     Return
  646.  
  647. {Exit}
  648. END_IT:
  649.     End