home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 168 / MONTEST.ZIP / MONTEST1.BAS (.txt) next >
Encoding:
GW-BASIC  |  1984-11-23  |  896 b   |  30 lines
  1. 1  'Demanding test of color monitor display consisting of alternalte rows
  2. 2  'of lower case m's and n's in various colors.  You must switch to the
  3. 3  'proper display before entering.  Use for a test of resolution and
  4. 4  'focus.  Press any key to exit.
  5. 5  'Originated by J.V. Haas and modified by John L. Dickinson, Tucson 7-29-82
  6. 6  'to avoid apparent BASIC bug which does not permit writing in
  7. 7  'column 80 of lines 24 and 25 without shifting other displayed characters.
  8. 8  ' (Don't expect to see much if you don`t have a good monitor!)
  9. 10  SCREEN 0,0
  10. 20  WIDTH 80
  11. 30  KEY OFF
  12. 40  CLS
  13. 50  IC=1
  14. 60  FOR I=1 TO 25 STEP 2
  15. 70  COLOR IC,0
  16. 80  LOCATE I,1
  17. 85  IF I=25 THEN ILEN=77 ELSE ILEN=78
  18. 90  PRINT "<";STRING$(ILEN,"m");">";
  19. 100  IC=IC+1
  20. 110  IF IC>15 THEN IC=1
  21. 120  COLOR IC,0
  22. 125  IF I=25 THEN GOTO 180
  23. 130  LOCATE I+1,1
  24. 135  IF I=23 THEN ILEN=77 ELSE ILEN=78
  25. 140  PRINT "<";STRING$(ILEN,"n");">";
  26. 160  IC=IC+1
  27. 170  NEXT I
  28. 180  A$=INKEY$:IF A$=""THEN GOTO 180
  29. 190  CLS
  30.