home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_A.d64 / apfelmaennchen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  5.5 KB  |  238 lines
  1. 10 rem  apfelmaennchen
  2. 60 poke53280,11:poke53281,12:printchr$(14)"[147][144]              [205]oment..."
  3. 70 ifa=0thena=1:load"apfelroutinen",8,1
  4. 90 poke45,10:poke46,65:clr
  5. 100 c8=200:xi=64:xa=69:yi=74:ya=79:tm=84+3*4096+15*256:bn=49152+15*256+160
  6. 120 m1=51214:m0=m1+3:sc=m0+3:bg=sc+3:sa=bg+3:lo=sa+3:cl=lo+3
  7. 130 c0=cl+3:c1=c0+1:c2=c1+1:c3=c2+1
  8. 140 poke785,7:poke786,c8:rem usrvektor
  9. 150 vc=53248
  10. 151 poke51208,xi:li=usr(0)
  11. 152 poke51208,xa:re=usr(0)
  12. 153 poke51208,yi:un=usr(0)
  13. 154 poke51208,ya:ob=usr(0)
  14. 155 poke785,0
  15. 160 fori=832to894:readx:pokei,x:next
  16. 170 fori=896to958:readx:pokei,x:next
  17. 200 print"[147]"tab(10)"**** [205][197][206][213][197] ****"
  18. 220 print""tab(10)"(1)  [206]eue [215]erte"
  19. 240 print""tab(10)"(2)  [193]usschnitt"
  20. 260 print""tab(10)"(3)  [194]ild ansehen"
  21. 280 print""tab(10)"(4)  [211]peichern
  22. 300 [153]""[163]10)"(5)  (NULL)aden"
  23. 310 [153]""[163]10)"(6)  str$irectory
  24. 315 print""tab(10)"(7)  [197]ffekt
  25. 317 [153]""[163]10)"(8)  str$ia-(NULL)how"
  26. 320 [153]""[163]10)"(NULL)as darfs sein  ?"
  27. 340 [161]a$:[139]a$[179]"1"[176]a$[177]"8"[167]340
  28. 360 [145][197](a$)[141]1000,2000,3000,4000,5000,5500,7000,10000
  29. 380 [137]200
  30. 990 [143] neue werte
  31. 1000 [153]"load*** (NULL)val(NULL)valclose(NULL)val(NULL)(NULL)val ***"
  32. 1020 [133]"(NULL)inker (NULL)and  ";li
  33. 1040 [133]"(NULL)echter (NULL)and ";re
  34. 1060 [133]"(NULL)nterer (NULL)and ";un
  35. 1080 [133]"(NULL)berer (NULL)and  ";ob
  36. 1100 [133]"(NULL)aximale (NULL)iefe ";tm%
  37. 1110 [139]tm%[179]5[176]tm%[177]254[167]1100
  38. 1120 [153]"ascertiges peekild speichern ?";
  39. 1130 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[175]a$[179][177]"_"[167]1130
  40. 1135 [139]a$[178]"_"[167][142]
  41. 1140 [153]a$:[139]a$[178]"j"[167][133]"(NULL)ame des peekildes ";nb$
  42. 1141 [158]cl:[151]51201,xi:us[178][183](li)
  43. 1142 [151]51201,xa:us[178][183](re)
  44. 1143 [151]51201,yi:us[178][183](un)
  45. 1144 [151]51201,ya:us[178][183](ob)
  46. 1145 [151]tm,tm%
  47. 1150 [158]bg
  48. 1160 [139]a$[178]"j"[167]4020
  49. 1200 [142]
  50. 1990 [143] ausschnitt
  51. 2000 [153]"load*** atn(NULL)(NULL)(NULL)lenleft$(NULL)right$(NULL)(NULL) ***"
  52. 2005 [153]"peekewegung mit lenursortasten"
  53. 2010 [153]"(NULL)arkieren mit <(NULL)(NULL)atnlenval>"
  54. 2015 [153]"(NULL)urueck mit '_'"
  55. 2017 [153]"(NULL)eiter mit (NULL)aste"
  56. 2020 [151]198,0:[146]198,1:[161]a$
  57. 2030 dx[178](re[171]li)[173]319:dy[178](ob[171]un)[173]199
  58. 2040 [158]m1:[151]2040,13:[151]2041,14
  59. 2050 px[178]24:py[178]50
  60. 2060 [151]vc,px:[151]vc[170]1,py
  61. 2070 [151]vc[170]39,1:[151]vc[170]40,1
  62. 2080 [151]vc[170]21,1:q$[178]""
  63. 2090 [161]a$:[139]a$[178]""[167]2090
  64. 2095 [139]a$[178]q$[167]sp[178]3
  65. 2100 [139]a$[178]"_"[167][151]vc[170]21,0:[158]m0:[142]
  66. 2110 [139]a$[178]""[175]py[179]249[167]py[178]py[170]sp:[137]2160
  67. 2130 [139]a$[178]"on"[175]py[177]50[167]py[178]py[171]sp:[137]2160
  68. 2140 [139]a$[178]""[175]px[179]342[167]px[178]px[170]sp:[137]2160
  69. 2150 [139]a$[178]"cmd"[175]px[177]24[167]px[178]px[171]sp:[137]2160
  70. 2155 [139]a$[178]" "[167]2230
  71. 2160 [139]px[179]256[167][151]vc,px:[151]vc[170]16,0:[137]2210
  72. 2200 [151]vc,px[171]256:[151]vc[170]16,1
  73. 2210 [151]vc[170]1,py
  74. 2220 q$[178]a$:sp[178]1:[139][194](198)[178]0[167]q$[178]""
  75. 2225 [137]2090
  76. 2230 ix[178]px:iy[178]py
  77. 2240 px[178]320:py[178]229:sp[178]1
  78. 2250 [151]vc[170]2,px[171]256:[151]vc[170]16,[194](vc[170]16)[176]2:[151]vc[170]3,py:[151]vc[170]21,3:q$[178]""
  79. 2280 [161]a$:[139]a$[178]""[167]2280
  80. 2285 [139]a$[178]q$[167]sp[178]3
  81. 2290 [139]a$[178]"_"[167][151]vc[170]21,0:[158]m0:[142]
  82. 2300 [139]a$[178]""[175]py[179]229[167]py[178]py[170]sp:[137]2350
  83. 2310 [139]a$[178]"on"[175]py[177]iy[171]18[167]py[178]py[171]sp:[137]2350
  84. 2320 [139]a$[178]""[175]px[179]320  [167]px[178]px[170]sp:[137]2350
  85. 2330 [139]a$[178]"cmd"[175]px[177]ix[171]20[167]px[178]px[171]sp:[137]2350
  86. 2340 [139]a$[178]" "[167]2440
  87. 2350 [139]px[179]256[167][151]vc[170]2,px:[151]vc[170]16,[194](vc[170]16)[175]1:[137]2410
  88. 2400 [151]vc[170]2,px[171]256:[151]vc[170]16,[194](vc[170]16)[176]2
  89. 2410 [151]vc[170]3,py
  90. 2415 q$[178]a$:sp[178]1:[139][194](198)[178]0[167]q$[178]""
  91. 2420 [137]2280
  92. 2440 re[178]li[170](px[171]1)[172]dx
  93. 2450 li[178]li[170](ix[171]24)[172]dx
  94. 2460 un[178]ob[171](py[171]30)[172]dy
  95. 2470 ob[178]ob[171](iy[171]50)[172]dy
  96. 2520 [151]vc[170]21,0:[158]m0
  97. 2530 [153]"load*** atn(NULL)(NULL)(NULL)lenleft$(NULL)right$(NULL)(NULL) ***"
  98. 2540 [153]"(NULL)inker (NULL)and  :";li
  99. 2550 [153]"(NULL)echter (NULL)and :";re
  100. 2560 [153]"(NULL)nterer (NULL)and :";un
  101. 2570 [153]"(NULL)berer (NULL)and  :";ob
  102. 2580 [137]1100
  103. 2990 [143] ansehen
  104. 3000 [153]"load*** atn(NULL)(NULL)valleft$val(NULL) ***"
  105. 3010 [153]"ascarben = ascunktionstasten"
  106. 3020 [153]"(NULL)urueck mit '_'"
  107. 3023 [153]"(NULL)eiter mit (NULL)aste"
  108. 3030 [151]198,0:[146]198,1:[161]a$
  109. 3040 [158]m1
  110. 3050 [161]a$:[139]a$[178]""[167]3050
  111. 3055 [139]a$[178]"_"[167][158]m0:[142]
  112. 3060 [139]a$[178]"input"[167][151]c0,([194](c0)[170]1)[175]15:[158]sc
  113. 3070 [139]a$[178]"dim"[167][151]c1,([194](c1)[170]1)[175]15:[158]sc
  114. 3080 [139]a$[178]"read"[167] [151] c2,([194](c2)[170]1)[175]15:[158]sc
  115. 3090 [139]a$[178]"let"[167][151]c3,([194](c3)[170]1)[175]15:[158]sc
  116. 3100 [137]3050
  117. 3990 [143] speichern
  118. 4000 [153]"load*** (NULL)(NULL)valright$lenleft$val(NULL)(NULL) ***"
  119. 4010 [133]"(NULL)ame des peekildes";nb$
  120. 4020 [139][195](nb$)[177]12[167]nb$[178][200](nb$,12)
  121. 4030 nb$[178]nb$[170]".pic"
  122. 4040 [129]i[178]0[164][195](nb$)[171]1
  123. 4050 [151]bn[170]i,[198]([202](nb$,i[170]1,1))
  124. 4060 [130]
  125. 4070 [151]bn[170]16,[195](nb$)
  126. 4080 [158]sa
  127. 4090 [159]1,8,15 :[132]1,a,b$,c,d:[160]1
  128. 4100 [153]"";a;b$
  129. 4110 [146]198,1:[151]198,0:[142]
  130. 4990 [143] laden
  131. 5000 [153]"load*** (NULL)atnstr$val(NULL) ***"
  132. 5010 [133]"(NULL)ame des peekildes";nb$
  133. 5020 [139][195](nb$)[177]12[167]nb$[178][200](nb$,12)
  134. 5030 nb$[178]nb$[170]".pic"
  135. 5040 [129]i[178]0[164][195](nb$)[171]1
  136. 5050 [151]bn[170]i,[198]([202](nb$,i[170]1,1))
  137. 5060 [130]
  138. 5070 [151]bn[170]16,[195](nb$)
  139. 5080 [158]lo
  140. 5090 [159]1,8,15:[132]1,a,b$,c,d:[160]1
  141. 5100 [153]"";a;b$
  142. 5110 [151]785,7
  143. 5120 [151]51208,xi:li[178][183](0)
  144. 5130 [153]"(NULL)inker (NULL)and  :";li
  145. 5140 [151]51208,xa:re[178][183](0)
  146. 5150 [153]"(NULL)echter (NULL)and :";re
  147. 5160 [151]51208,yi:un[178][183](0)
  148. 5170 [153]"(NULL)nterer (NULL)and :";un
  149. 5180 [151]51208,ya:ob[178][183](0)
  150. 5190 [153]"(NULL)berer (NULL)and  :";ob
  151. 5200 tm%[178][194](tm)
  152. 5210 [153]"(NULL)aximale (NULL)iefe:";tm%
  153. 5220 [151]198,0:[146]198,1:[151]198,0
  154. 5230 [151]785,0:[142]
  155. 5490 [143] directory
  156. 5500 [153]"load*** str$right$(NULL)vallen(NULL)(NULL)(NULL)(NULL) ***"
  157. 5510 [151]198,0:[159]15,8,15,"i0":[159]10,8,2,"#"
  158. 5520 tt[178]18:ss[178]1
  159. 5530 [152]15,"b-r";2;0;tt;ss
  160. 5540 [152]15,"b-p";2;0
  161. 5550 [161]#10,x$:[139]x$[178]""[167]x$[178][199](0)
  162. 5560 tt[178][198](x$)
  163. 5570 [161]#10,x$:[139]x$[178]""[167]x$[178][199](0)
  164. 5580 ss[178][198](x$)
  165. 5590 [129]q1[178]0[164]7
  166. 5600 [152]15,"b-p";2;q1[172]32[170]5
  167. 5610 f$[178]""
  168. 5620 [129]q2[178]0[164]15
  169. 5630 [161]#10,x$:[139]x$[178]""[167]x$[178][199](0)
  170. 5640 [139] [198](x$) [178] 160[167] q2[178]16: [137] 5660
  171. 5650 f$[178]f$[170]x$
  172. 5660 [130]
  173. 5670 [139][201](f$,4)[178]".pic"[167][153]f$
  174. 5690 [130]
  175. 5700 [139]tt[179][177]0[167]5530
  176. 5710 [160]15:[160]10
  177. 5720 [146]198,1:[151]198,0:[142]
  178. 6000 [143] sprites
  179. 6010 [131]255,255,255,192,0,0,192,0,0,192,0,0
  180. 6020 [131]192,0,0,192,0,0,192,0,0,192,0,0
  181. 6030 [131]192,0,0,192,0,0,192,0,0,192,0,0
  182. 6040 [131]192,0,0,192,0,0,192,0,0,192,0,0
  183. 6050 [131]192,0,0,192,0,0,192,0,0,192,0,0,192,0,0
  184. 6060 [131]0,0,3,0,0,3,0,0,3,0,0,3
  185. 6070 [131]0,0,3,0,0,3,0,0,3,0,0,3
  186. 6080 [131]0,0,3,0,0,3,0,0,3,0,0,3
  187. 6090 [131]0,0,3,0,0,3,0,0,3,0,0,3
  188. 6100 [131]0,0,3,0,0,3,0,0,3,0,0,3
  189. 6110 [131]255,255,255
  190. 6990 [143] effekt
  191. 7000 [153]"load*** valascascval(NULL)(NULL) ***"
  192. 7010 [153]"ascarben = ascunktionstasten"
  193. 7020 [153]"(NULL)urueck mit '_'"
  194. 7023 [153]"(NULL)eiter mit (NULL)aste"
  195. 7030 [151]198,0:[146]198,1:[161]a$
  196. 7040 [158]m1
  197. 7050 [139]a$[178]"read"[167][151]c2,([194](c2)[170]1)[175]15
  198. 7060 cp[178][194](c3):[151]c3,[194](c2):[151]c2,[194](c1):[151]c1,cp
  199. 7070 [161]a$:[139]a$[178]"_"[167]7140
  200. 7080 [139]a$[178]"input"[167][151]c0,([194](c0)[170]1)[175]15
  201. 7090 [139]a$[178]"dim"[167][151]c1,([194](c1)[170]1)[175]15
  202. 7100 [139]a$[178]"read"[167][151]c2,([194](c2)[170]1)[175]15
  203. 7110 [139]a$[178]"let"[167][151]c3,([194](c3)[170]1)[175]15
  204. 7120 [158]sc
  205. 7130 [137]7060
  206. 7140 [158]m0:[142]
  207. 10000 [143] dia-show
  208. 10010 [153]"load*** str$right$atn-(NULL)left$(NULL)(NULL) ***"
  209. 10020 [153]"ascarben         : ascunktionstasten"
  210. 10030 [153]"(NULL)enue          : '_'"
  211. 10040 [153]"(NULL)aechstes peekild : '(NULL)(NULL)atnlenval'"
  212. 10050 [153]"(NULL)eiter mit (NULL)aste"
  213. 10060 [151]198,0:[146]198,1:[161]a$
  214. 10070 n[178]0
  215. 10080 [143] laden
  216. 11000 n[178]n[170]1:[139]n[178]10[167][137]200
  217. 11005 n$[178][196](n)
  218. 11010 nb$[178]"bild"[170]n$[170]".pic"
  219. 11020 [129]i[178]0[164][195](nb$)[171]1
  220. 11030 [151]bn[170]i,[198]([202](nb$,i[170]1,1))
  221. 11040 [130]
  222. 11050 [151]bn[170]16,[195](nb$)
  223. 11060 [158]lo
  224. 11070 [143] effekt
  225. 11090 [158]m1
  226. 11100 [139]a$[178]"read"[167][151]c2,([194](c2)[170]1)[175]15
  227. 11110 cp[178][194](c3):[151]c3,[194](c2):[151]c2,[194](c1):[151]c1,cp
  228. 11120 [161]a$:[139]a$[178]"_"[167]11190
  229. 11125 [139]a$[178]" "[167][137]11200
  230. 11130 [139]a$[178]"input"[167][151]c0,([194](c0)[170]1)[175]15
  231. 11140 [139]a$[178]"dim"[167][151]c1,([194](c1)[170]1)[175]15
  232. 11150 [139]a$[178]"read"[167][151]c3,([194](c3)[170]1)[175]15
  233. 11160 [139]a$[178]"let"[167][151]c3,([194](c3)[170]1)[175]15
  234. 11170 [158]sc
  235. 11180 [137]11110
  236. 11190 [158]m0:[137]200
  237. 11200 [158]m0:[137]11000
  238.