home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_A.d64 / demo4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  995b  |  55 lines
  1. 10 (NULL) 1:(NULL):(NULL) 1,0:(NULL)
  2. 20 for i=1 to 90 step 5
  3. 30 (NULL) 160-i,100-i,i,i
  4. 40 next i
  5. 50 for i=1 to 90 step 5
  6. 60 (NULL) 160,100,i,i
  7. 70 next i
  8. 80 for i=1 to 50 step 5
  9. 90 (NULL) 160+i,100-i,i,i
  10. 100 next i
  11. 110 for i=1 to 50 step 5
  12. 120 (NULL) 160-i,100+i,i,i
  13. 130 next i
  14. 155 wait 198,255
  15. 156 (NULL)
  16. 157 for i=10 to 90 step 10
  17. 158 (NULL) 160-i,100-i,2*i,2*i
  18. 159 next i
  19. 160 for i=0 to 100 step 5
  20. 170 (NULL) 269-i,159-i,50,40
  21. 180 next i:(NULL) 269-i,159-i,50,40
  22. 190 for i=0 to 100 step 5
  23. 200 (NULL) 0+i,0+i,50,40
  24. 210 next i:(NULL) 0+i,0+i,50,40
  25. 220 poke 198,0:wait 198,255
  26. 230 (NULL)
  27. 240 for i=1 to 50 step 4
  28. 250 (NULL) 160-i,100-i,abs(int(sin(i)*40)),i
  29. 260 next i
  30. 270 for i=1 to 50 step 4
  31. 280 (NULL) 160+i,100+i,abs(int(sin(i)*40)),i
  32. 290 next i
  33. 300 for i=1 to 50 step 7
  34. 310 (NULL) 160,100,190+abs(int(cos(i)*40)),i
  35. 320 next i
  36. 330 for i=1 to 50 step 7
  37. 340 (NULL) 160,100,abs(int(cos(i)*40)),130+i
  38. 350 next i
  39. 360 poke 198,0:wait 198,255
  40. 370 (NULL)
  41. 380 for i=0 to 319
  42. 390 (NULL) i,0,100+75*sin((NULL)*4*i/278)
  43. 400 next i
  44. 405 poke198,0:wait198,255
  45. 410 (NULL)1:(NULL):(NULL):r=50
  46. 420 for x=1 to 319 step 3
  47. 430 (NULL)x,40,50*sin(x/30)+100,x/1.6
  48. 440 next x
  49. 450 poke198,0:wait198,255:(NULL)
  50. 455 for x=1 to 162 step 3
  51. 460 (NULL)160,100,30*sin(x/10)+100,x/1.6
  52. 470 next x
  53. 1000 poke198,0:wait 198,255
  54. 1010 (NULL):(NULL)1:(NULL)6:(NULL):end
  55.