home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 147 / Tiger_Disk_147_19xx_Tiger-Crew-Disk_de_Side_B.d64 / basicplasma (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  947b  |  43 lines
  1. 1 dim a,c,y,x,f,a,ct(31),si(63)
  2. 100 rem ----------------------------
  3. 110 rem
  4. 120 rem   64er plasma-kurs teil#1
  5. 130 rem
  6. 140 rem ----------------------------
  7. 199 :
  8. 200 rem initialisieren
  9. 210 for i=0 to 30:read a:poke 1024+i,a
  10. 220 next:sys 1024
  11. 230 poke 53280,0  :poke 56576,0
  12. 240 poke 53272,128:poke 53265,59
  13. 250 for i=0 to 31:read ct(i):next
  14. 260 fa=8
  15. 270 for i=0 to 63
  16. 280 si(i)=(sin(i/16*(NULL))+1)*fa:next
  17. 299 :
  18. 300 rem ---- berechnen ----
  19. 310 for y=0 to 24:for x=0 to 39
  20. 320 a=si(x+si(y))+si(y+si(x))
  21. 330 for f=0 to 7
  22. 340 c=ct((a+f*4)and 31)
  23. 350 poke 57344+f*1024+y*40+x,c
  24. 360 next f,x,y
  25. 399 :
  26. 400 rem ---- animation ----
  27. 410 for k=0 to 7
  28. 420 poke 53272,k*16+128
  29. 430 for i=0 to 30:next
  30. 440 next:goto410
  31. 999 :
  32. 1000 rem ---- fuellroutine ----
  33. 1010 data 120,41,0,133,1,133,254,168
  34. 1020 data 9,160,133,255,169,170,145,254
  35. 1030 data 73,255,200,208,249,230,255
  36. 1040 data 208,243,169,55,133,1,88,96
  37. 1099 :
  38. 1100 rem ---- farbtabelle ----
  39. 1110 data 102,230,238,227,51,55,119,23
  40. 1120 data 17,17,29,221,223,255,250,170
  41. 1130 data 162,34,41,153,9,0,0,11,187
  42. 1140 data 188,204,194,34,36,68,70
  43.