home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / demo4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  995 b   |  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.