home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 June / 1993-06.d64 / blanker.fb (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  479b  |  13 lines
  1. 100 for x=0 to 69:read a:poke 49152+x,a:next
  2. 110 sys49152:print"[147]screen blanker in place"
  3. 120 data 120,169,16,141,20,3,169,192,141,21,3
  4. 130 rem change value in line 180 to change time to blanking (secs/4.2267=data)
  5. 140 data 32,59,192,88,96,165,197,201,64,240,14
  6. 150 data 32,59,192,173,17,208,9,16,141,17,208
  7. 160 data 76,49,234,173,17,208,41,16,240,246,165
  8. 170 data 161,201
  9. 180 data 71: rem 300 secs/4.2267 = 71
  10. 190 data 144,240,173,17,208,41,239,141
  11. 200 data 17,208,208,230,169,0,133,160,133,161,133
  12. 210 data 162,96,1,254
  13.