home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 November
/
64er_Magazin_87-11_1987_Markt__Technik_de.d64
/
ls4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
357b
|
15 lines
10 gosub50000:rem grafik ein
20 gosub50100:rem grafik loeschen
30 vo=14:hi=0
40 gosub50200:rem farbe setzen
45 rem koordinatenachsen zeichnen
46 f=14
50 y=100:forx=0to319:gosub50400:nextx
60 x=160:fory=0to199:gosub50400:nexty
65 deffna(x)=100+sin(x*(NULL)/k)*50
70 fork=150to220step10
75 f=1+rnd(1)*16:rem farben zufaellig setzen
80 forx=0to319:y=fna(x):gosub50400:nextx,k
90 wait198,255:gosub50300:rem grafik aus
100 end