home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 168 / MONTEST.ZIP / MONTEST2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-11-23  |  512 b   |  13 lines
  1. 1  'Test of graphics monitor consisting of a box at the screen limits
  2. 2  'and two other lines to assist in centering, checking pincushion and
  3. 3  'checking for a level image.  You must switch to a graphic display
  4. 4  'before entering.  Press any key to exit.
  5. 5  'John L. Dickinson, Tucson, 7-29-82
  6. 6  '
  7. 10  SCREEN 2,0:WIDTH 80:KEY OFF:CLS
  8. 20  LINE (0,0)-(639,199),,B
  9. 22  LINE (320,0)-(320,199)
  10. 30  LINE (0,100)-(639,100)
  11. 40  A$=INKEY$:IF A$=""THEN GOTO 40
  12. 50  CLS
  13.