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