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