home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh93b.d64
/
cursor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
436b
|
21 lines
10 POKE 56334,PEEK(56334) AND 254
20 POKE 1,PEEK (1) AND 251
30 FOR A = 53248 TO 57343
40 POKE A-40960,PEEK (A)
50 NEXT A
60 POKE 1,PEEK (1) OR 4
70 POKE 56334,PEEK (56334) OR 1
80 POKE 53272,PEEK (53272) AND 240 OR 13
90 FOR A=12288+4096/4 TO 12288+4096/2
100 POKE A,PEEK (A-4096/4)
110 NEXT A
120 FOR A=12288+4096/4+7 TO 12288+4096/2 STEP 8
130 POKE A,255
140 NEXT A
150 FOR A=12288+(3/4)*4096 TO 12288+4096
160 POKE A,PEEK (A-4096/4)
170 NEXT
180 FOR A=12288+(3/4)*4096+7 TO 12288+4096 STEP 8
190 POKE A,255
200 NEXT A