home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 December / 64er_Magazin_87-12_1987_Markt__Technik_de_Side_A.d64 / demo4.mann (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  2.0 KB  |  86 lines
  1. 5 print"[147]einen moment zur vorbereitung bitte"
  2. 10 init
  3. 20 obj 12,12
  4. 30 p=3
  5. 40 dim p0(p*4,2),p1(p*4,2),p2(p*4,2),p3(p*4,2)
  6. 50 dim p5(p*4,2),p6(p*4,2),p7(p*4,2),p8(p*4,2)
  7. 80 y=50
  8. 90 pset 4,0,45-y,0
  9. 100 pset 9,0,80-y,0
  10. 110 pset 10,-10,90-y,0
  11. 120 pset 11,0,100-y,0
  12. 130 pset 12,10,90-y,0
  13. 140 lset 0,0,1
  14. 150 lset 1,1,4
  15. 160 lset 2,3,4
  16. 170 lset 3,2,3
  17. 180 lset 4,4,9
  18. 190 lset 5,5,6
  19. 200 lset 6,6,9
  20. 210 lset 7,8,9
  21. 220 lset 8,7,8
  22. 230 lset 9,9,10
  23. 240 lset 10,10,11
  24. 250 lset 11,11,12
  25. 260 lset 12,9,12
  26. 300 data -8,-10,8,15,-10,-15,10,10
  27. 310 data 40,60,70,60,10,30,25,20
  28. 320 data 15,15,-30,-15,-25,-20,30,10
  29. 330 fori=0to2
  30. 340 readp5(0,i),p6(0,i),p7(0,i),p8(0,i)
  31. 350 readp0(0,i),p1(0,i),p2(0,i),p3(0,i)
  32. 360 next
  33. 370 data -10,-10,10,10,-15,-10,15,10
  34. 380 data 55,60,55,60,0,20,0,20
  35. 390 data -10,10,-10,10,0,-5,0,-5
  36. 400 t=p*3
  37. 410 fori=0to2
  38. 420 readp5(p,i),p6(p,i),p7(p,i),p8(p,i)
  39. 430 readp0(p,i),p1(p,i),p2(p,i),p3(p,i)
  40. 440 p5(t,i)=p5(p,i):p6(t,i)=p6(p,i)
  41. 450 p7(t,i)=p7(p,i):p8(t,i)=p8(p,i)
  42. 460 p0(t,i)=p0(p,i):p1(t,i)=p1(p,i)
  43. 470 p2(t,i)=p2(p,i):p3(t,i)=p3(p,i)
  44. 480 next
  45. 490 data -8,-10,8,10,-15,-10,15,10
  46. 500 data 70,60,40,60,25,20,10,30
  47. 510 data -30,-15,15,15,30,10,-25,-20
  48. 520 t=2*p
  49. 530 fori=0to2
  50. 540 readp5(t,i),p6(t,i),p7(t,i),p8(t,i)
  51. 550 readp0(t,i),p1(t,i),p2(t,i),p3(t,i)
  52. 560 next
  53. 570 fork=0to3
  54. 580 forl=1top-1
  55. 585 j=k*p:print(4-k)*(p-1)-l
  56. 590 n=j+p:ifk=3thenn=0
  57. 600 fori=0to2
  58. 610 p0(j+l,i)=p0(j,i)+l/p*(p0(n,i)-p0(j,i))
  59. 620 p1(j+l,i)=p1(j,i)+l/p*(p1(n,i)-p1(j,i))
  60. 630 p2(j+l,i)=p2(j,i)+l/p*(p2(n,i)-p2(j,i))
  61. 640 p3(j+l,i)=p3(j,i)+l/p*(p3(n,i)-p3(j,i))
  62. 650 p5(j+l,i)=p5(j,i)+l/p*(p5(n,i)-p5(j,i))
  63. 660 p6(j+l,i)=p6(j,i)+l/p*(p6(n,i)-p6(j,i))
  64. 670 p7(j+l,i)=p7(j,i)+l/p*(p7(n,i)-p7(j,i))
  65. 680 p8(j+l,i)=p8(j,i)+l/p*(p8(n,i)-p8(j,i))
  66. 690 next i,l,k
  67. 700 modset 1,1,0
  68. 710 delset 0,0,0
  69. 720 dwset -10,0
  70. 740 video 1,0,0
  71. 780 l=0:gosub840
  72. 790 dreh
  73. 800 forl=0top*4-1
  74. 810 gosub 840
  75. 820 \:next
  76. 830 goto800
  77. 840 pset 0,p0(l,0),p0(l,1)-y,p0(l,2)
  78. 850 pset 1,p1(l,0),p1(l,1)-y,p1(l,2)
  79. 860 pset 2,p2(l,0),p2(l,1)-y,p2(l,2)
  80. 870 pset 3,p3(l,0),p3(l,1)-y,p3(l,2)
  81. 880 pset 5,p5(l,0),p5(l,1)-y,p5(l,2)
  82. 890 pset 6,p6(l,0),p6(l,1)-y,p6(l,2)
  83. 900 pset 7,p7(l,0),p7(l,1)-y,p7(l,2)
  84. 910 pset 8,p8(l,0),p8(l,1)-y,p8(l,2)
  85. 920 return
  86.