home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 December / 64er_Magazin_87-12_1987_Markt__Technik_de_Side_A.d64 / demo2.maske (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  76 lines
  1. 5 init
  2. 10 obj 25,66
  3. 90 m=2.5 :rem  vergroesserungsfaktor
  4. 1010 forp=0to25
  5. 1020 readx,y,z
  6. 1030 pset p,x*m,y*m,z*m
  7. 1060 next
  8. 1070 forv=0to65
  9. 1080 reada,b:lset v,a,b
  10. 1090 next
  11. 1100 data0,-3,-34,0,25,-12,0,-18,-22
  12. 1101 data0,-31,-24,-8,-44,-19,8,-44,-19
  13. 1102 data-21,-25,-14,-28,-24,10
  14. 1103 data-18.5,2,-15,-7,-7,-19,-37,6,-2
  15. 1104 data-31,22.5,-6,-34,21,13,-17,16,-9
  16. 1106 data-11,31,-11,-36,32,2,11,31,-11
  17. 1108 data36,32,2,31,22.5,-6,34,21,13
  18. 1110 data17,16,-9,18.5,2,-13:rem
  19. 1112 data37,6,-2,7,-7,-19,21,-25,-14
  20. 1120 data28,-24,10
  21. 1140 rem
  22. 1150 data       11,14,  1,14
  23. 1151 data14,16, 0,1,    1,9
  24. 1152 data1,16,  0,9,    1,23
  25. 1153 data0,23,  9,23,   2,23
  26. 1154 data2,9,   2,6
  27. 1155 data2,24,  3,24,   3,6
  28. 1156 data3,4,   4,5,    3,5
  29. 1157 data4,6,   6,7,    4,7
  30. 1158 data6,9,   6,8,    8,9
  31. 1159 data6,10,  8,10,   6,10
  32. 1160 data7,10,  1,8,    8,13
  33. 1161 data1,13,  8,11,   11,13
  34. 1162 data       10,11,  11,12
  35. 1163 data10,12, 12,15,  11,15
  36. 1164 data14,15, 5,24,   23,24
  37. 1165 data5,25,  21,23,  21,24
  38. 1166 data21,22, 22,24,  22,25
  39. 1167 data24,25, 1,21,   21,23
  40. 1168 data1,23,  1,20,   20,21
  41. 1169 data18,20, 18,21
  42. 1170 data1,16,  16,18,  16,17
  43. 1171 data18,19, 19,22,  18,22
  44. 1172 data17,18, 17,19,  19,25
  45. 1173 data7,12
  46. 1175 modset 1,1,1
  47. 1176 perspset -2000,-1700
  48. 1180 dwset 0,0
  49. 1200 a=-2000:s=-1700
  50. 1900 delset 0,0,0
  51. 1980 dreh
  52. 2000 y=-31*m
  53. 2010 pset 3,0,y,-22*m
  54. 2015 perspset a,s
  55. 2020 \:y=y+4  :a=a+98  :s=s+98
  56. 2030 ify<-19*mthen2010
  57. 3010 pset 3,0,y,-22*m
  58. 3015 perspset a,s
  59. 3020 \:y=y-4  :a=a+98  :s=s+98
  60. 3030 ify>-32*mthen3010
  61. 3040 dwset 16,0
  62. 3050 z=0:dy=4:
  63. 3060 pset 3,0,y,-22*m
  64. 3070 z=z+1:y=y+dy
  65. 3080 ifint(z/8)=z/8thendy=-dy
  66. 3090 \:ifz<>64then3060
  67. 4000 print"[147] uebernehmen sie die steuerung"
  68. 4010 print" mit dem joystick in controlport 2"
  69. 4020 print" ende=(run/stop) "
  70. 4030 print"     (taste druecken)"
  71. 4040 geta$:ifa$=""then4040
  72. 4100 delset 8,8,8
  73. 4110 dwset 10,10
  74. 4120 modset 0,1,1
  75. 5000 \:goto3060
  76.