home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8604.d64 / apfelmaennchen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  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.