home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 28
/
Tiger_Disk_028_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
basic-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
188b
|
5 lines
10 data"basic-demo","folgt","in 4 wochen!"
20 poke53280,6:print"[147]":fora=1024to2023:poke54272+a,int(rnd(1)*16):pokea,224:next
30 forb=1to3:reada$(b):print""tab(20-int(len(a$(b))/2))a$(b):next
40 poke198,0:wait198,1:poke198,0:print"[147]"