home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 168 / MONTEST.ZIP / MONTEST3.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-11-23  |  512 b   |  13 lines
  1. 1  'Test of graphics monitor consisting of a grid of dots which may be used
  2. 3  'for checking convergence.  You must switch to a graphic display              4 'before entering.  Press any key to exit.
  3. 5  'John L. Dickinson, Tucson, 7-29-82
  4. 6  '
  5. 10  SCREEN 2,0:WIDTH 80:KEY OFF:CLS
  6. 20  FOR X=0 TO 639 STEP 17
  7. 22  FOR Y=0 TO 199 STEP 8
  8. 30   CIRCLE (X,Y),0
  9. 35  NEXT Y
  10. 37  NEXT X
  11. 40  A$=INKEY$:IF A$=""THEN GOTO 40
  12. 50  CLS
  13.