home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 September / 1989-09.d64 / animator.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  69 lines
  1. 100 a=-60:c=-50:d=60:e=50:f=20:g=12
  2. 110 h=11:j=-64:k=-55:l=-36:m=-35:n=-30
  3. 120 p=-20:q=30:r=19:s=16:t=15:u=14:w=13
  4. 130 y=-12:z=10:(NULL):(NULL)1:rem house
  5. 140 (NULL) c,a,c,c,z,c,c,d,0,c,z,e,c,a,e
  6. 150 (NULL) e,a,e,e,z,e,e,d,0,e,z,c,e,a,c
  7. 160 (NULL) k,0,a,k,d,0,k,0,d,55,0,d
  8. 170 (NULL) 55,d,0,55,0,a,-11,a,c,-11,p,c
  9. 180 (NULL) h,p,c,h,a,c,e,m,p,e,p,p
  10. 190 (NULL) e,-5,p,e,-5,0,e,-5,f,e,p,f
  11. 200 (NULL) e,m,f,e,m,0
  12. 210 (NULL) 4,2,2,h,w,g,t,u
  13. 220 (NULL) 4,2,2,h,s,t,g,h
  14. 230 (NULL) 5,1,1,h,5,4,3,2,1
  15. 240 (NULL) 4,1,1,h,6,7,4,5
  16. 250 (NULL) 5,1,1,h,z,9,8,7,6
  17. 260 (NULL) 4,7,2,7,21,23,25,27
  18. 270 (NULL) 2,0,3,5,22,26
  19. 280 (NULL) 2,0,3,5,24,28
  20. 290 (NULL) 4,1,1,h,1,2,9,z
  21. 300 (NULL) 4,6,2,7,17,18,r,f
  22. 310 (NULL) 4,2,2,h,h,g,t,s
  23. 320 (NULL) 4,2,2,h,u,t,g,w
  24. 330 (NULL)2:rem road
  25. 340 (NULL) j,a,j,j,a,63,63,a,63,63,a,j
  26. 350 (NULL) n,a,3,q,a,3,q,a,-3,n,a,-3
  27. 360 (NULL) 4,0,3,2,1,2,3,4
  28. 370 (NULL) 4,1,1,2,5,6,7,8
  29. 380 (NULL)3:rem plane
  30. 390 (NULL) d,0,0,-10,n,0,a,n,0,a,q,0
  31. 400 (NULL) -10,q,0,a,q,q,a,n,q
  32. 410 (NULL) 3,0,0,h,5,6,4
  33. 420 (NULL) 3,0,0,h,3,7,2
  34. 430 (NULL) 5,0,0,3,5,4,3,2,1
  35. 440 (NULL) 3,0,0,h,4,6,5
  36. 450 (NULL) 3,0,0,h,2,7,3
  37. 460 (NULL)4:rem square
  38. 470 (NULL) d,a,d,d,d,d,d,d,a,d,a,a
  39. 480 (NULL)4,1,1,3,1,2,3,4
  40. 680 clr:(NULL):(NULL)11,15,0
  41. 690 def fn r(x)=int(x*rnd(0))
  42. 740 forx=-250to400step5
  43. 750 (NULL)4,64,0,x,0,x,500:next:(NULL)
  44. 760 forx=-250to400step5
  45. 770 (NULL)4,0,0,x,x,0,500:next:(NULL)
  46. 780 forx=-250to400step5
  47. 790 (NULL)4,x,x,0,0,x,500:next:(NULL)
  48. 800 forx=1000to0step-32
  49. 810 (NULL)4,0,104,0,-300+x,0,2*x+500
  50. 820 next:forx=1000to0step-100
  51. 830 (NULL)1,0,-30,0,-400+x,0,2*x
  52. 840 next:forx=1000to0step-50
  53. 850 (NULL)2,0, 45,0,-200+x,0,2*x
  54. 860 next:r=150:w=1/8:cx=80:cy=100
  55. 870 dims(30),c(30):forx=0to30
  56. 880 q=12*x*(NULL)/180:s(x)=r*sin(q)
  57. 890 c(x)=1.5*r*cos(q):next
  58. 900 data 4,9,8,2,10,7,13,3,14,6
  59. 910 forx=0to9:readf(x):next
  60. 920 (NULL):(NULL) 5,1,0:forx=0to29
  61. 930 a=s(x):b=c(x):c=s(x+1):d=c(x+1)
  62. 940 (NULL) 4,f(n),m+1,3,cx+a,cy+b,cx+c,cy+d,cx+c*w,cy+d*w,cx+a*w,cy+b*w
  63. 950 n=n+1:m=(m+1)and1:ifn=10thenn=0
  64. 960 nextx:(NULL):forx=-250to250step5
  65. 970 (NULL) 3,x,0,0,x,-80,400
  66. 980 (NULL):nextx:forx=250to-400step-5
  67. 990 (NULL) 3,-x,0,128,x,80,400
  68. 1000 (NULL):nextx:(NULL)
  69.