' +-------------------------------------------------------------------+
    ' |                                                                   |
    ' |                   - C o l o r P a k . B a s -                     |
    ' |                                                                   |
    ' |                                                                   |
    ' |                   Public Domain -  FreeWare                       |
    ' +-------------------------------------------------------------------+  
    ' +-------------------------------------------------------------------+
    ' |ColorPak.Bas is public domain freeware. It shows a screen of       |
    ' |color values stated as one number.                                 |
    ' |                                                                   |
    ' |Two special libraries are required to compile: Pro.Lib and Pdq.Lib.|
    ' |These are part of a package of tool boxes from Full Moon Software  |
    ' |(see below - Acknowledgements)                                     |
    ' +-------------------------------------------------------------------+
    ' | Author: Don Smith                                                 |
    ' | Email: smithdonb@earthlink.net                                    |
    ' +-------------------------------------------------------------------+
    ' +-------------------------------------------------------------------+
    ' |                      - 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.                                 |
    ' +-------------------------------------------------------------------+
    ' | Compiling:                                                        |
    ' | ---------                                                         |
    ' | BC   : Colorpak                                                   |
    ' | LINK : Colorpak                                                   |
    ' | LIB  : Pro Pdq    Important Note: Requires Pro.Lib and Pdq.Lib    |
    ' |                   --------------                                  |
    ' +-------------------------------------------------------------------+
    ' |                                                                   |
    ' | +--------------------+                                            |
    ' | |  ACKNOWLEDGEMENTS  |                                            |
    ' | +--------------------+                                            |
    ' | A great assist in writing and compiling CC.BAS are two toolboxes  |
    ' | originally from Crescent Software. They are: Pro.Lib and PDQ.Lib. |
    ' | Crescent Software was sold to Progress Software. The original     |
    ' | owner and programmer of Crescent Software, Ethen Winer, took      |
    ' | back the MS-DOS toolboxes so that they still would be available   |
    ' | to MS-DOS programmers. He now operates Full Moon Software. These  |
    ' | two toolboxes have hundreds of routines. Using their included     |
    ' | libraries instead of BRUN45.Lib or BCOM45.Lib and utilizing       |
    ' | their assembly written routines, makes for an extremely tight,    |
    ' | executable program very close to the tiny size and speed of an    |
    ' | assembly language program. Another toolbox, the QuickScreen       |
    ' | program, Qscr.Exe, which makes short work of converting a "BSaved"|
    ' | (.BSV) file into a linkable .OBJ file.                            |
    ' |                                                                   |
    ' |          Ethan Winer's internet site:                             |
    ' |          ---------------------------                              |
    ' |                    http://www.ehtanwiner.com                      |
    ' |                                                                   |
    ' |          Ethan Winer's Mailing Address:                           |
    ' |          -----------------------------                            |
    ' |                    FULL MOON SOFTWARE                             |
    ' |                    34 Cedar Vale Drive                            |
    ' |                    New Milford, CT 06776                          |
    ' |                                                                   |
    ' |                    (Voice) 860-350-8188                           |
    ' |                    (Fax)   860-350-6130                           |
    ' |                    (Email) ethan@ethanwiner.com                   |
    ' +-------------------------------------------------------------------+

    DECLARE SUB ColorPak (MonoCode%)
begin:
    CLS : LOCATE 1, 1, 0, 0, 0
    'BLOAD "colorpk1bsv"
    CALL ColorPk1(MonoCode%)
    DO
       DO
           MM$ = INKEY$
       LOOP UNTIL LEN(MM$) > 0
       K% = CVI(MM$ + CHR$(0))
       IF K% = 27 THEN          '<Esc>
          GOTO leave
       ELSEIF K% = 13 THEN
           EXIT DO              '<Enter>
       END IF
    LOOP
leave:
    COLOR 7, 0: CLS : LOCATE 1, 1, 1, 6, 7: END