home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / EXTRA-ST / APPLE-II / APPLE2-V.TAR / apple2 / disks / disk_s6d1 / GRTEST.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-04  |  983 b   |  45 lines
  1. 10  HOME 
  2. 20  VTAB 21
  3. 30  PRINT "LOW RESOLUTION TEST..."
  4. 40  GR 
  5. 50  FOR I = 0 TO 15
  6. 60  COLOR= I
  7. 70  VLIN 0,39 AT I *2
  8. 80  VLIN 0,39 AT I *2 +1
  9. 90  NEXT 
  10. 100  VTAB 22
  11. 110  PRINT "PRESS ANY KEY TO CONTINUE...";
  12. 120  GET A$
  13. 130  GR 
  14. 140  FOR I = 0 TO 255
  15. 150  COLOR=  RND(1) *16
  16. 160  PLOT  RND(1) *40, RND(1) *40
  17. 170  NEXT 
  18. 180  VTAB 22
  19. 185  HTAB 1
  20. 190  PRINT "PRESS ANY KEY TO CONTINUE...";
  21. 200  GET A$
  22. 210  HGR 
  23. 220  VTAB 21: HTAB 1
  24. 230  PRINT "HIGH RESOLUTION TEST..."
  25. 240  FOR I = 0 TO 99
  26. 250  HCOLOR=  RND(1) *8
  27. 260  HPLOT  RND(1) *280, RND(1) *192 TO  RND(1) *280, RND(1) *192
  28. 270  NEXT 
  29. 280  VTAB 22: HTAB 1
  30. 290  PRINT "PRESS ANY KEY TO CONTINUE...";
  31. 300  GET A$
  32. 310  HGR2 
  33. 320  FOR I = 0 TO 255
  34. 330  HCOLOR=  RND(1) *8
  35. 340  HPLOT  RND(1) *280, RND(1) *192
  36. 350  NEXT 
  37. 355  POKE 49235,0
  38. 360  VTAB 21: HTAB 1
  39. 370  PRINT "PAGE FLIPPING TEST...           "
  40. 375  FOR I = 0 TO 100
  41. 380  POKE 49237,0
  42. 385  FOR J = 0 TO 50: NEXT 
  43. 390  POKE 49236,0
  44. 395  FOR J = 0 TO 50: NEXT 
  45. 400  NEXT