home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9104a.d64
/
generator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
245b
|
11 lines
0 REM FUNKTIONSGENERATOR (C) NIKOLAUS HEUSLER
10 FORI=0TO2*(null)STEP2*(null)/256
20 X=(SIN(I)+1)*80+24
21 REMX=RND(I)*80+24
22 REMX=(SIN(I)+1)*12.73*I+24
23 REMX=(SIN(I)*COS(I)+1)*80+24
24 REMX=I/2/(null)*158+24
25 REMX=ABS(I-(null))/2/(null)*320+24
30 POKE8192+A,X:A=A+1
40 NEXT