home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 93
/
64er_Magazin_Sonderheft_93_19xx_Markt__Technik_de_Side_B.d64
/
cursor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
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