home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 April / 64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64 / funk (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  449b  |  16 lines
  1. 3 deffnf(x)=abs(sin(x)*sqr(abs(5*x)))*2000+2000
  2. 5 poke53265,11
  3. 6 poke56334,peek(56334)and254
  4. 10 s=54272:fori=0to24:pokes+i,0:next
  5. 11 pokes+24,15+16:pokes+6,240:pokes+13,240:pokes+23,12*16+1:pokes+22,120
  6. 12 pokes+4,21:pokes+1,50:pokes+11,23:pokes+8,20
  7. 30 fori=0to32*(NULL)step(NULL)/4:f=fnf(i):h=f/256:l=f-256*h:pokes+14,l:pokes+15,h:nexti
  8. 35 pokes+11,0
  9. 40 f1=0:f2=2000
  10. 50 pokes+14,f1and255:pokes+15,f1/256:pokes+14,f2and255:pokes+15,f2/256:f1=f1+5
  11. 60 f2=f2-5:iff2>1000then50
  12. 65 pokes+6,254:pokes+4,20
  13. 80 poke56334,peek(56334)or1
  14. 90 poke53265,27
  15. 100 end
  16.