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