home *** CD-ROM | disk | FTP | other *** search
/ The California Collection / TheCaliforniaCollection.cdr / his006 / scanscrn.bas < prev    next >
Encoding:
BASIC Source File  |  1990-11-01  |  2.0 KB  |  27 lines
  1. 'Program Name    : ScrnScan.bas scans top of screen/copys pixel by pixel
  2. '                : at an at offset
  3. 'Author          : Spectra Publishing - Tech Support  Lloyd L. Smith
  4. 'Date            : 09-29-90
  5. 'Compuserve #    : GO PCVENB, Vendor #12/Spectra,  Tech Support ID 71530,2640
  6. 'Tech Support BBS: 813-625-1721, PC-Board, 8,N,1 USR HST 300 - 14.4, 24hrs
  7. 'Tech Support Fax: 813-625-1698  G2 & G3 compatible
  8. 'Tech Support Voc: 813-625-1172  Voice
  9.  
  10.  
  11. screen 9,,0,0
  12. color 12,0              'you can change fg, bg and see the effects
  13. locate 1,1:print "This is a test of the system";
  14.  
  15. for y=0 to 20           '349  full vertical length of screen 9
  16. for x=0 to 639          '640  full horizontal width of screen
  17. clr=point(x,y)          'get color of point under x,y
  18. x1=point(0):y1=point(1) 'point(0) gets x coordinate, point(1) gets y coordinate
  19. pset(x1,y1+100),clr     'turns on a pixel at x,y,color
  20.  
  21. 'test for a particular color and force background to be black
  22. 'if clr=15 then pset(x1,y1+100),clr else pset(x1,y1+100),0
  23.  
  24. k$=inkey$:if k$=chr$(27) then system 'exit scan routine
  25. next x
  26. next y
  27.