home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 7
/
64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64
/
farbdemo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
195b
|
8 lines
10 rem farbdemo (textmodus)
20 print"[147]"
30 for x=1024 to 2023:rem videoram
40 poke54272+x, int(rnd(1)*16):rem farbram von 54272-55296
50 pokex,int(rnd(1)*128):rem beliebige bildschirmwerte
60 next x
70 gett$:ift$=""then70