home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1995 August
/
64er_Magazin_95-08_1995_Markt__Technik_de_Side_B.d64
/
strich-cursor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
383b
|
21 lines
10 poke56334,peek(56334)and254
20 poke1,peek(1)and251
30 fora=53248to57343
40 pokea-40960,peek(a)
50 nexta
60 poke1,peek(1)or4
70 poke56334,peek(56344)or1
80 poke53272,peek(53272)and240or13
90 fora=12288+4096/4to12288+4092/2
100 pokea,peek(a-4096/4)
110 nexta
120 fora=12288+4096/4+7to12288+4096/2step8
130 pokea,255
140 nexta
150 fora=12288+(3/4)*4096to12288+4096
160 pokea,peek(a-4096/4)
170 nexta
180 fora=12288+(3/4)*4096+7to12288+4096step8
190 pokea,255
200 nexta