home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 September
/
1989-09.d64
/
animator.boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
432b
|
17 lines
10 poke53280,6:poke53281,6
100 ifa=1then130
110 print"[147]please wait: loading ml"
120 a=1:load"animator.ml",8,1
130 poke55,0:poke56,64:clr
140 print"creating look up tables:"
150 print"please wait 17 seconds"
160 a=128:b=.5:c=1:d=37019:forx=.to255
170 q=int(sin(x*(NULL)/a)*a+b)
180 s=sgn(q):q=abs(q):ifq>.thenq=q-c
190 ifs<.thenq=q+a
200 poked+x,q:next:sys16384
210 print"animator activated"
220 print"load"chr$(34)"animator.demo"chr$(34);
230 print",8,1":print"run[145][145][145][145][145][145][145][145]"
240 poke631,13:poke632,13:poke198,2