'+------------------------------------------------------------------------+ '| - G I c o l o r s . B a s - | '| | '| Version 2.0 | '| Public Domain - FreeWare | '+------------------------------------------------------------------------+ '+------------------------------------------------------------------------+ '| - ABOUT THE AUTHOR - | '+------------------------------------------------------------------------+ '| | '| Hello. My name is Don Smith and I am a retired thiry-year teacher | '| of Math/History/Spanish residing in Orange County, California. I am | '| also a former 6-year Sergeant of Marines. Who-Rah! On certain forums | '| I am known as MarineDon. My email is: smithdonb@earthlink.net | '| | '+------------------------------------------------------------------------+ '+------------------------------------------------------------------------+ '| - COPYING AND DISTIBUTING - | '+------------------------------------------------------------------------+ '| Since this code is public domain and freeware, anyone may freely | '| copy and distribute it. If you use the QuickBasic code in one of | '| your own programs, you do not have to cite my name as the author, | '| and you may even change its name. | '+------------------------------------------------------------------------+ '| This program shows the 26 colors of the boxes formed by GiveInfo.Exe. | '| The "GI" of GIcolors.Bas means "GiveInfo". GIcolors.Bas and | '| GIcolors.Exe both are part of the Beemenu program. GIcolors.Bas | '| and GIcolors.Exe are public domain and freeware. | '| | '| Today's date: 01/03/2005 | '| Author: Don Smith | '| Don's email: smithdonb@earthlink.net | '| | '+------------------------------------------------------------------------+ '| Compile: | '| BC: GIcolors | '| LINK: GIcolors | '| LIB: Pro Pdq | '+------------------------------------------------------------------------+ '| Box Colors Next: | '+------------------------------------------------------------------------+ '|First Number is the foreground color and the | '|second number is the background color. | '| | '|The letters are represented by the CHR$ character A-Z. | '|An example is : IF Key$(2) = CHR$(65) THEN 'Letter A | '+------------------------------------+-----------------------------------+ '|A Black / Bright White...240, 240 |N White / Bright Blue....159, 159| '|B Black / Bright Yellow..224, 224 |O Black / Bright Blue....176, 176| '| | | '|C Yellow / Green..........46, 34 |P Yellow / Cyan...........62, 51 | '|D White / Green..........47, 34 |Q White / Cyan...........63, 51 | '|E Black / Bright Green...160, 160 | | '|G Cyan / Green..........43, 43 |R White / Bright Red.....207, 207| '| |S Black / Bright Red.....192, 192| '|F Black / Bright Purple..208, 208 |T Yellow / Red............78, 68 | '|H Cyan / Purple.........91, 85 |U White / Red............79, 68 | '|I Yellow / Purple.........94, 85 | | '|J White / Purple.........95, 85 |V Red / Black..........12, 0 | '| |W Green / Black..........10, 0 | '|K Light / Dark Blue......27, 17 |X Yellow / Black..........14, 0 | '|L Yellow / Dark Blue......30, 17 |Y White / Black..........15, 0 | '|M White / Dark Blue......31, 17 |Z Cyan / Black..........11, 0 | '+------------------------------------+---------------------------------+-+ BoxNumber% = 1: BoxColr% = 240: ClearColr% = 240 GOSUB make.box GOTO loopdeloop top: IF BoxNumber% = 1 THEN BoxColr% = 240: ClearColr% = 240 'A ELSEIF BoxNumber% = 2 THEN 'B BoxColr% = 224: ClearColr% = 224 ELSEIF BoxNumber% = 3 THEN 'C BoxColr% = 46: ClearColr% = 34 ELSEIF BoxNumber% = 4 THEN 'D BoxColr% = 47: ClearColr% = 34 ELSEIF BoxNumber% = 5 THEN 'E BoxColr% = 160: ClearColr% = 160 ELSEIF BoxNumber% = 6 THEN 'F BoxColr% = 43: ClearColr% = 43 ELSEIF BoxNumber% = 7 THEN 'G BoxColr% = 208: ClearColr% = 208 ELSEIF BoxNumber% = 8 THEN 'H BoxColr% = 91: ClearColr% = 85 ELSEIF BoxNumber% = 9 THEN 'I BoxColr% = 94: ClearColr% = 85 ELSEIF BoxNumber% = 10 THEN 'J BoxColr% = 95: ClearColr% = 85 ELSEIF BoxNumber% = 11 THEN 'K BoxColr% = 27: ClearColr% = 17 ELSEIF BoxNumber% = 12 THEN 'L BoxColr% = 30: ClearColr% = 17 ELSEIF BoxNumber% = 13 THEN 'M BoxColr% = 31: ClearColr% = 17 ELSEIF BoxNumber% = 14 THEN 'N BoxColr% = 159: ClearColr% = 159 ELSEIF BoxNumber% = 15 THEN 'O BoxColr% = 176: ClearColr% = 176 ELSEIF BoxNumber% = 16 THEN 'P BoxColr% = 62: ClearColr% = 51 ELSEIF BoxNumber% = 17 THEN 'Q BoxColr% = 63: ClearColr% = 51 ELSEIF BoxNumber% = 18 THEN 'R BoxColr% = 207: ClearColr% = 207 ELSEIF BoxNumber% = 19 THEN 'S BoxColr% = 192: ClearColr% = 192 ELSEIF BoxNumber% = 20 THEN 'T BoxColr% = 78: ClearColr% = 68 ELSEIF BoxNumber% = 21 THEN 'U BoxColr% = 79: ClearColr% = 68 ELSEIF BoxNumber% = 22 THEN 'V BoxColr% = 12: ClearColr% = 0 ELSEIF BoxNumber% = 23 THEN 'W BoxColr% = 10: ClearColr% = 0 ELSEIF BoxNumber% = 24 THEN 'X BoxColr% = 14: ClearColr% = 0 ELSEIF BoxNumber% = 25 THEN 'Y BoxColr% = 15: ClearColr% = 0 ELSEIF BoxNumber% = 26 THEN 'Z BoxColr% = 11: ClearColr% = 0 END IF GOSUB make.box loopdeloop: DO DO EdW$ = INKEY$ LOOP UNTIL LEN(EdW$) > 0 SlamKey% = CVI(EdW$ + CHR$(0)) IF SlamKey% = 27 THEN COLOR 7, 0: CLS : LOCATE 1, 1, 1, 6, 7: END ELSEIF SlamKey% = 18432 THEN ' BoxNumber% = BoxNumber% - 1 ELSEIF SlamKey% = 19200 THEN 'Ä BoxNumber% = BoxNumber% - 1 ELSEIF SlamKey% = 18688 THEN 'PgUp BoxNumber% = BoxNumber% - 1 ELSEIF SlamKey% = 20480 THEN ' BoxNumber% = BoxNumber% + 1 ELSEIF SlamKey% = 19712 THEN 'Ä BoxNumber% = BoxNumber% + 1 ELSEIF SlamKey% = 20736 THEN 'PgDn BoxNumber% = BoxNumber% + 1 ELSEIF SlamKey% = 13 THEN 'Enter BoxNumber% = BoxNumber% + 1 END IF IF BoxNumber% = 27 THEN BoxNumber% = 1 ELSEIF BoxNumber% = 0 THEN IF SlamKey% = 18432 OR SlamKey% = 19712 OR SlamKey% = 18688 THEN BoxNumber% = 26 END IF END IF GOTO top LOOP make.box: CALL PaintBox0(11, 12, 17, 72, 8) CALL ClearScr0(10, 10, 16, 70, ClearColr%) CALL Box0(10, 11, 16, 69, 2, BoxColr%) CALL Box0(13, 14, 15, 65, 1, BoxColr%) CALL PaintBox0(3, 4, 8, 24, 8) CALL ClearScr0(2, 2, 7, 22, 240) CALL Box0(2, 2, 7, 22, 1, 240) LOCATE 3, 3: CALL MQPrint("MOVE: " + CHR$(24) + " " + CHR$(25) + " " + CHR$(17) + CHR$(196) + " " + CHR$(196) + CHR$(16), 240) LOCATE 4, 3: CALL MQPrint(" ", 240) LOCATE 5, 2: CALL MQPrint(CHR$(195) + STRING$(19, CHR$(196)) + CHR$(180), 240) LOCATE 6, 3: CALL MQPrint("Press To Exit", 240) LOCATE 12, 15: CALL MQPrint("Box " + CHR$(BoxNumber% + 64), BoxColr%) RETURN