home *** CD-ROM | disk | FTP | other *** search
/ Shareware Gold 1 / The_Golden_ROM_Series_-_Shareware_Gold_Volume_1_Number_11_-_SK_89-301_-_1989.iso / BBS / LIB022.ARC / COLORS.SCR < prev    next >
Text File  |  1988-01-01  |  1KB  |  98 lines
  1. Goto Start
  2.  
  3. Show_it:
  4. ColorFG 0
  5. Display ' ** '
  6. ColorFG 1
  7. Display ' ** '
  8. ColorFG 2
  9. Display ' ** '
  10. ColorFG 3
  11. Display ' ** '
  12. ColorFG 4
  13. Display ' ** '
  14. ColorFG 5
  15. Display ' ** '
  16. ColorFG 6
  17. Display ' ** '
  18. ColorFG 7
  19. Display ' ** '
  20. ColorFG 8
  21. Display ' ** '
  22. ColorFG 9
  23. Display ' ** '
  24. ColorFG 10
  25. Display ' ** '
  26. ColorFG 11
  27. Display ' ** '
  28. ColorFG 12
  29. Display ' ** '
  30. ColorFG 13
  31. Display ' ** '
  32. ColorFG 14
  33. Display ' ** '
  34. ColorFG 15
  35. Display ' ** '
  36. Return
  37.  
  38. Start:
  39. Window  1 1 80 24
  40. ColorBG 0
  41. Clrscr
  42. ColorBG 1
  43. ColorFG 15
  44. Box 1 1 80 13
  45. ColorBG 1
  46. Clrscr
  47. Note                  F o r e g r o u n d   C o l o r s
  48. Note        0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15
  49. Note     0
  50. Note     1
  51. Note  B  2
  52. Note  a  3
  53. Note  c  4
  54. Note  k  5
  55. Note     6
  56. Note     7
  57. Window  7 4 78 12
  58. Gotoxy  1 1
  59. ColorBG 0
  60. Gosub   show_it
  61. Gotoxy  1 2
  62. ColorBG 1
  63. Gosub   show_it
  64. Gotoxy  1 3
  65. ColorBG 2
  66. Gosub   show_it
  67. Gotoxy  1 4
  68. ColorBG 3
  69. Gosub   show_it
  70. Gotoxy  1 5
  71. ColorBG 4
  72. Gosub   show_it
  73. Gotoxy  1 6
  74. ColorBG 5
  75. Gosub   show_it
  76. Gotoxy  1 7
  77. ColorBG 6
  78. Gosub   show_it
  79. Gotoxy  1 8
  80. ColorBG 7
  81. Gosub   show_it
  82. Window  1 15 80 24
  83. ColorFG 15
  84. ColorBG 0
  85.  
  86. Clrscr
  87. GotoXY  1 12
  88. Display "Enter Foreground Color "
  89. Get 0 2
  90. Display "Enter Background Color "
  91. Get 1 1
  92. ColorFG $0
  93. ColorBG $1
  94. Window  1 1 80 24
  95. ClrScr
  96. Note    Color Change Done!
  97. Exit
  98.