home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 168 / MONTEST.ZIP / MONTEST4.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1984-11-23  |  1.5 KB  |  42 lines
  1. 1  'Test of graphics monitor consisting of a display of red, green,
  2. 2  'and blue screens in order for checking purity.  You must switch
  3. 3  'to a graphic display before entering.  Press any key to advance to
  4. 4  'the next color and then to exit.
  5. 5  '(Please excuse the brute force approach.)
  6. 6  'John L. Dickinson, Tucson, 7-29-82
  7. 7  '
  8. 10  SCREEN 1,0:WIDTH 40:KEY OFF:CLS
  9. 11  ' ******** RGB colors *****************
  10. 20  CLS:COLOR 4:LOCATE 5,10:PRINT "Color 4: Red"
  11. 25  A$=INKEY$:IF A$="" THEN GOTO 25
  12. 30  CLS:COLOR 12:LOCATE 5,10:PRINT "Color 12: Light red"
  13. 35  A$=INKEY$:IF A$="" THEN GOTO 35
  14. 40  CLS:COLOR 2:LOCATE 5,10:PRINT "Color 2: Green"
  15. 45  A$=INKEY$:IF A$="" THEN GOTO 45
  16. 50  CLS:COLOR 10:LOCATE 5,10:PRINT "Color 10: Light green"
  17. 55  A$=INKEY$:IF A$="" THEN GOTO 55
  18. 60  CLS:COLOR 1:LOCATE 5,10:PRINT "Color 1: Blue"
  19. 65  A$=INKEY$:IF A$="" THEN GOTO 65
  20. 70  CLS:COLOR 9:LOCATE 5,10:PRINT "Color 9: Light blue"
  21. 75  A$=INKEY$:IF A$="" THEN GOTO 75
  22. 100  ' ******** Other colors ***************
  23. 110  CLS:COLOR 3:LOCATE 5,10:PRINT "Color 3: Cyan"
  24. 115  A$=INKEY$:IF A$="" THEN GOTO 115
  25. 120  CLS:COLOR 11:LOCATE 5,10:PRINT "Color 11: Light cyan"
  26. 125  A$=INKEY$:IF A$="" THEN GOTO 125
  27. 130  CLS:COLOR 5:LOCATE 5,10:PRINT "Color 5: Magenta"
  28. 135  A$=INKEY$:IF A$="" THEN GOTO 135
  29. 140  CLS:COLOR 13:LOCATE 5,10:PRINT "Color 13: Light magenta"
  30. 145  A$=INKEY$:IF A$="" THEN GOTO 145
  31. 150  CLS:COLOR 6:LOCATE 5,10:PRINT "Color 6: Brown"
  32. 155  A$=INKEY$:IF A$="" THEN GOTO 155
  33. 160  CLS:COLOR 7,2:LOCATE 5,10:PRINT "Color 7: White"
  34. 165  A$=INKEY$:IF A$="" THEN GOTO 165
  35. 170  CLS:COLOR 15,2:LOCATE 5,10:PRINT "Color 15: High intensity white"
  36. 175  A$=INKEY$:IF A$="" THEN GOTO 175
  37. 180  CLS:COLOR 8:LOCATE 5,10:PRINT "Color 8: Gray"
  38. 185  A$=INKEY$:IF A$="" THEN GOTO 185
  39. 190  CLS:COLOR 14,1:LOCATE 5,10:PRINT "Color 14: Yellow"
  40. 195  A$=INKEY$:IF A$="" THEN GOTO 195
  41. 1000  COLOR 0:CLS
  42.