home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / QM42#3R.ZIP / COLORS.SCR < prev    next >
Encoding:
Text File  |  1990-09-03  |  7.7 KB  |  313 lines
  1. ;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*;
  2. ;                                                           ;
  3. ;   Script COLORS.SCR  (C) The Forbin Project               ;
  4. ;                                                           ;
  5. ;   This shows all possible Attributes for the COLOR cmd.   ;
  6. ;                                                           ;
  7. ;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*;
  8.  
  9. String   SaveAttr
  10. Assign   SaveAttr  $ATTR
  11.  
  12. Window   1 1 80 24
  13. Color    0
  14. Clrscr
  15.  
  16. Color    15
  17. Box      7 1 73 19
  18. ATWrite  30  1  15  "A T T R I B U T E S"
  19.  
  20. Color    0
  21.  
  22. Window   1 2 80 23
  23.  
  24. ATWrite  9   2  0   "  0"
  25. ATWrite  13  2  1   "  1"
  26. ATWrite  17  2  2   "  2"
  27. ATWrite  21  2  3   "  3"
  28. ATWrite  25  2  4   "  4"
  29. ATWrite  29  2  5   "  5"
  30. ATWrite  33  2  6   "  6"
  31. ATWrite  37  2  7   "  7"
  32. ATWrite  41  2  8   "  8"
  33. ATWrite  45  2  9   "  9"
  34. ATWrite  49  2  10  " 10"
  35. ATWrite  53  2  11  " 11"
  36. ATWrite  57  2  12  " 12"
  37. ATWrite  61  2  13  " 13"
  38. ATWrite  65  2  14  " 14"
  39. ATWrite  69  2  15  " 15"
  40.  
  41. ATWrite   9  3  16  " 16"
  42. ATWrite  13  3  17  " 17"
  43. ATWrite  17  3  18  " 18"
  44. ATWrite  21  3  19  " 19"
  45. ATWrite  25  3  20  " 20"
  46. ATWrite  29  3  21  " 21"
  47. ATWrite  33  3  22  " 22"
  48. ATWrite  37  3  23  " 23"
  49. ATWrite  41  3  24  " 24"
  50. ATWrite  45  3  25  " 25"
  51. ATWrite  49  3  26  " 26"
  52. ATWrite  53  3  27  " 27"
  53. ATWrite  57  3  28  " 28"
  54. ATWrite  61  3  29  " 29"
  55. ATWrite  65  3  30  " 30"
  56. ATWrite  69  3  31  " 31"
  57.  
  58. ATWrite   9  4  32  " 32"
  59. ATWrite  13  4  33  " 33"
  60. ATWrite  17  4  34  " 34"
  61. ATWrite  21  4  35  " 35"
  62. ATWrite  25  4  36  " 36"
  63. ATWrite  29  4  37  " 37"
  64. ATWrite  33  4  38  " 38"
  65. ATWrite  37  4  39  " 39"
  66. ATWrite  41  4  40  " 40"
  67. ATWrite  45  4  41  " 41"
  68. ATWrite  49  4  42  " 42"
  69. ATWrite  53  4  43  " 43"
  70. ATWrite  57  4  44  " 44"
  71. ATWrite  61  4  45  " 45"
  72. ATWrite  65  4  46  " 46"
  73. ATWrite  69  4  47  " 47"
  74.  
  75. ATWrite   9  5  48  " 48"
  76. ATWrite  13  5  49  " 49"
  77. ATWrite  17  5  50  " 50"
  78. ATWrite  21  5  51  " 51"
  79. ATWrite  25  5  52  " 52"
  80. ATWrite  29  5  53  " 53"
  81. ATWrite  33  5  54  " 54"
  82. ATWrite  37  5  55  " 55"
  83. ATWrite  41  5  56  " 56"
  84. ATWrite  45  5  57  " 57"
  85. ATWrite  49  5  58  " 58"
  86. ATWrite  53  5  59  " 59"
  87. ATWrite  57  5  60  " 60"
  88. ATWrite  61  5  61  " 61"
  89. ATWrite  65  5  62  " 62"
  90. ATWrite  69  5  63  " 63"
  91.  
  92. ATWrite   9  6  64  " 64"
  93. ATWrite  13  6  65  " 65"
  94. ATWrite  17  6  66  " 66"
  95. ATWrite  21  6  67  " 67"
  96. ATWrite  25  6  68  " 68"
  97. ATWrite  29  6  69  " 69"
  98. ATWrite  33  6  70  " 70"
  99. ATWrite  37  6  71  " 71"
  100. ATWrite  41  6  72  " 72"
  101. ATWrite  45  6  73  " 73"
  102. ATWrite  49  6  74  " 74"
  103. ATWrite  53  6  75  " 75"
  104. ATWrite  57  6  76  " 76"
  105. ATWrite  61  6  77  " 77"
  106. ATWrite  65  6  78  " 78"
  107. ATWrite  69  6  79  " 79"
  108.  
  109. ATWrite   9  7  80  " 80"
  110. ATWrite  13  7  81  " 81"
  111. ATWrite  17  7  82  " 82"
  112. ATWrite  21  7  83  " 83"
  113. ATWrite  25  7  84  " 84"
  114. ATWrite  29  7  85  " 85"
  115. ATWrite  33  7  86  " 86"
  116. ATWrite  37  7  87  " 87"
  117. ATWrite  41  7  88  " 88"
  118. ATWrite  45  7  89  " 89"
  119. ATWrite  49  7  90  " 90"
  120. ATWrite  53  7  91  " 91"
  121. ATWrite  57  7  92  " 92"
  122. ATWrite  61  7  93  " 93"
  123. ATWrite  65  7  94  " 94"
  124. ATWrite  69  7  95  " 95"
  125.  
  126. ATWrite   9  8  96  " 96"
  127. ATWrite  13  8  97  " 97"
  128. ATWrite  17  8  98  " 98"
  129. ATWrite  21  8  99  " 99"
  130. ATWrite  25  8  100 "100"
  131. ATWrite  29  8  101 "101"
  132. ATWrite  33  8  102 "102"
  133. ATWrite  37  8  103 "103"
  134. ATWrite  41  8  104 "104"
  135. ATWrite  45  8  105 "105"
  136. ATWrite  49  8  106 "106"
  137. ATWrite  53  8  107 "107"
  138. ATWrite  57  8  108 "108"
  139. ATWrite  61  8  109 "109"
  140. ATWrite  65  8  110 "110"
  141. ATWrite  69  8  111 "111"
  142.  
  143. ATWrite   9  9  112 "112"
  144. ATWrite  13  9  113 "113"
  145. ATWrite  17  9  114 "114"
  146. ATWrite  21  9  115 "115"
  147. ATWrite  25  9  116 "116"
  148. ATWrite  29  9  117 "117"
  149. ATWrite  33  9  118 "118"
  150. ATWrite  37  9  119 "119"
  151. ATWrite  41  9  120 "120"
  152. ATWrite  45  9  121 "121"
  153. ATWrite  49  9  122 "122"
  154. ATWrite  53  9  123 "123"
  155. ATWrite  57  9  124 "124"
  156. ATWrite  61  9  125 "125"
  157. ATWrite  65  9  126 "126"
  158. ATWrite  69  9  127 "127"
  159.  
  160. ATWrite   9  11 128 "128"
  161. ATWrite  13  11 129 "129"
  162. ATWrite  17  11 130 "130"
  163. ATWrite  21  11 131 "131"
  164. ATWrite  25  11 132 "132"
  165. ATWrite  29  11 133 "133"
  166. ATWrite  33  11 134 "134"
  167. ATWrite  37  11 135 "135"
  168. ATWrite  41  11 136 "136"
  169. ATWrite  45  11 137 "137"
  170. ATWrite  49  11 138 "138"
  171. ATWrite  53  11 139 "139"
  172. ATWrite  57  11 140 "140"
  173. ATWrite  61  11 141 "141"
  174. ATWrite  65  11 142 "142"
  175. ATWrite  69  11 143 "143"
  176.  
  177. ATWrite   9  12 144 "144"
  178. ATWrite  13  12 145 "145"
  179. ATWrite  17  12 146 "146"
  180. ATWrite  21  12 147 "147"
  181. ATWrite  25  12 148 "148"
  182. ATWrite  29  12 149 "149"
  183. ATWrite  33  12 150 "150"
  184. ATWrite  37  12 151 "151"
  185. ATWrite  41  12 152 "152"
  186. ATWrite  45  12 153 "153"
  187. ATWrite  49  12 154 "154"
  188. ATWrite  53  12 155 "155"
  189. ATWrite  57  12 156 "156"
  190. ATWrite  61  12 157 "157"
  191. ATWrite  65  12 158 "158"
  192. ATWrite  69  12 159 "159"
  193.  
  194. ATWrite   9  13 160 "160"
  195. ATWrite  13  13 161 "161"
  196. ATWrite  17  13 162 "162"
  197. ATWrite  21  13 163 "163"
  198. ATWrite  25  13 164 "164"
  199. ATWrite  29  13 165 "165"
  200. ATWrite  33  13 166 "166"
  201. ATWrite  37  13 167 "167"
  202. ATWrite  41  13 168 "168"
  203. ATWrite  45  13 169 "169"
  204. ATWrite  49  13 170 "170"
  205. ATWrite  53  13 171 "171"
  206. ATWrite  57  13 172 "172"
  207. ATWrite  61  13 173 "173"
  208. ATWrite  65  13 174 "174"
  209. ATWrite  69  13 175 "175"
  210.  
  211. ATWrite   9  14 176 "176"
  212. ATWrite  13  14 177 "177"
  213. ATWrite  17  14 178 "178"
  214. ATWrite  21  14 179 "179"
  215. ATWrite  25  14 180 "180"
  216. ATWrite  29  14 181 "181"
  217. ATWrite  33  14 182 "182"
  218. ATWrite  37  14 183 "183"
  219. ATWrite  41  14 184 "184"
  220. ATWrite  45  14 185 "185"
  221. ATWrite  49  14 186 "186"
  222. ATWrite  53  14 187 "187"
  223. ATWrite  57  14 188 "188"
  224. ATWrite  61  14 189 "189"
  225. ATWrite  65  14 190 "190"
  226. ATWrite  69  14 191 "191"
  227.  
  228. ATWrite   9  15 192 "192"
  229. ATWrite  13  15 193 "193"
  230. ATWrite  17  15 194 "194"
  231. ATWrite  21  15 195 "195"
  232. ATWrite  25  15 196 "196"
  233. ATWrite  29  15 197 "197"
  234. ATWrite  33  15 198 "198"
  235. ATWrite  37  15 199 "199"
  236. ATWrite  41  15 200 "200"
  237. ATWrite  45  15 201 "201"
  238. ATWrite  49  15 202 "202"
  239. ATWrite  53  15 203 "203"
  240. ATWrite  57  15 204 "204"
  241. ATWrite  61  15 205 "205"
  242. ATWrite  65  15 206 "206"
  243. ATWrite  69  15 207 "207"
  244.  
  245. ATWrite   9  16 208 "208"
  246. ATWrite  13  16 209 "209"
  247. ATWrite  17  16 210 "210"
  248. ATWrite  21  16 211 "211"
  249. ATWrite  25  16 212 "212"
  250. ATWrite  29  16 213 "213"
  251. ATWrite  33  16 214 "214"
  252. ATWrite  37  16 215 "215"
  253. ATWrite  41  16 216 "216"
  254. ATWrite  45  16 217 "217"
  255. ATWrite  49  16 218 "218"
  256. ATWrite  53  16 219 "219"
  257. ATWrite  57  16 220 "220"
  258. ATWrite  61  16 221 "221"
  259. ATWrite  65  16 222 "222"
  260. ATWrite  69  16 223 "223"
  261.  
  262. ATWrite   9  17 224 "224"
  263. ATWrite  13  17 225 "225"
  264. ATWrite  17  17 226 "226"
  265. ATWrite  21  17 227 "227"
  266. ATWrite  25  17 228 "228"
  267. ATWrite  29  17 229 "229"
  268. ATWrite  33  17 230 "230"
  269. ATWrite  37  17 231 "231"
  270. ATWrite  41  17 232 "232"
  271. ATWrite  45  17 233 "233"
  272. ATWrite  49  17 234 "234"
  273. ATWrite  53  17 235 "235"
  274. ATWrite  57  17 236 "236"
  275. ATWrite  61  17 237 "237"
  276. ATWrite  65  17 238 "238"
  277. ATWrite  69  17 239 "239"
  278.  
  279. ATWrite   9  18 240 "240"
  280. ATWrite  13  18 241 "241"
  281. ATWrite  17  18 242 "242"
  282. ATWrite  21  18 243 "243"
  283. ATWrite  25  18 244 "244"
  284. ATWrite  29  18 245 "245"
  285. ATWrite  33  18 246 "246"
  286. ATWrite  37  18 247 "247"
  287. ATWrite  41  18 248 "248"
  288. ATWrite  45  18 249 "249"
  289. ATWrite  49  18 250 "250"
  290. ATWrite  53  18 251 "251"
  291. ATWrite  57  18 252 "252"
  292. ATWrite  61  18 253 "253"
  293. ATWrite  65  18 254 "254"
  294. ATWrite  69  18 255 "255"
  295.  
  296. Window   1 1 80 $Last_Row
  297. GotoXY   1 21
  298. Color    15
  299. Note
  300. Display  "Enter Color Attribute or [Enter] to restore previous Color : " 
  301. Get      0 3 
  302. If       "$0" = "" whoops 
  303. Color    $0
  304. ClrScr 
  305. Note Color changed. 
  306. Exit
  307.  
  308. Whoops:
  309. Color    $SaveAttr
  310. Clrscr
  311. Note Default color restored.
  312. Exit
  313.