10 REM ********************************
15 REM *                              *
20 REM *        APFELMAENNCHEN        *
30 REM *              BY              *
40 REM *       GERHARD  PEHLAND       *
41 REM *                              *
43 REM *       MARKGRAFENSTR.64       *
44 REM *       8000 MUENCHEN 82       *
46 REM *                              *
50 REM ********************************
60 POKE53280,11:POKE53281,12:PRINTCHR$(14)"[147][144]              [205]OMENT..."
70 IFA=0THENA=1:LOAD"APFELROUTINEN",8,1
90 POKE 45,10:POKE46,65:CLR
100 C8=200:XI=64:XA=69:YI=74:YA=79:TM=84+3*4096+15*256:BN=49152+15*256+160
120 M1=51214:M0=M1+3:SC=M0+3:BG=SC+3:SA=BG+3:LO=SA+3:CL=LO+3
130 C0=CL+3:C1=C0+1:C2=C1+1:C3=C2+1
140 POKE785,7:POKE786,C8:REM USRVEKTOR
150 VC=53248
151 POKE 51208,XI:LI=USR(0)
152 POKE 51208,XA:RE=USR(0)
153 POKE 51208,YI:UN=USR(0)
154 POKE 51208,YA:OB=USR(0)
155 POKE785,0
160 FORI=832TO894:READX:POKEI,X:NEXT
170 FORI=896TO958:READX:POKEI,X:NEXT
200 PRINT"[147]"TAB(10)"**** [205][197][206][213][197] ****"
220 PRINT""TAB(10)"(1)  [206]EUE [215]ERTE"
240 PRINT""TAB(10)"(2)  [193]USSCHNITT"
260 PRINT""TAB(10)"(3)  [194]ILD ANSEHEN"
280 PRINT""TAB(10)"(4)  [211]PEICHERN
300 [153]""[163]10)"(5)  (null)ADEN"
310 [153]""[163]10)"(6)  STR$IRECTORY
315 PRINT""TAB(10)"(7)  [197]FFEKT
320 [153]""[163]10)"(null)AS DARFS SEIN  ?"
340 [161] A$:[139] A$[179]"1" [176] A$[177]"7" [167] 340
360 [145] [197](A$) [141] 1000,2000,3000,4000,5000,5500,7000
380 [137]200
990 [143] NEUE WERTE
1000 [153]"LOAD*** (null)VAL(null)VALCLOSE(null)VAL(null)(null)VAL ***"
1020 [133]"(null)INKER (null)AND  ";LI
1040 [133]"(null)ECHTER (null)AND ";RE
1060 [133]"(null)NTERER (null)AND ";UN
1080 [133]"(null)BERER (null)AND  ";OB
1100 [133]"(null)AXIMALE (null)IEFE ";TM%
1110 [139] TM%[179]5[176]TM%[177]254[167]1100
1120 [153]"ASCERTIGES PEEKILD SPEICHERN ? ";
1130 [161] A$:[139] A$[179][177]"J"[175] A$[179][177]"N"[175] A$[179][177]"_"[167]1130
1135 [139]A$[178]"_"[167][142]
1140 [153]A$:[139] A$[178]"J"[167][133]"(null)AME DES PEEKILDES ";NB$
1141 [158]CL:[151]51201,XI:US[178][183](LI)
1142 [151]51201,XA:US[178][183](RE)
1143 [151]51201,YI:US[178][183](UN)
1144 [151]51201,YA:US[178][183](OB)
1145 [151]TM,TM%
1150 [158] BG
1160 [139] A$[178]"J"[167]4020
1200 [142]
1990 [143] AUSSCHNITT
2000 [153]"LOAD*** ATN(null)(null)(null)LENLEFT$(null)RIGHT$(null)(null) ***"
2005 [153]"PEEKEWEGUNG MIT LENURSORTASTEN"
2010 [153]"(null)ARKIEREN MIT <(null)(null)ATNLENVAL>"
2015 [153]"(null)URUECK MIT '_'"
2017 [153]"(null)EITER MIT (null)ASTE"
2020 [151]198,0:[146]198,1:[161]A$
2030 DX[178](RE[171]LI)[173]319:DY[178](OB[171]UN)[173]199
2040 [158] M1:[151] 2040,13:[151]2041,14
2050 PX[178]24:PY[178]50
2060 [151] VC,PX:[151]VC[170]1,PY
2070 [151] VC[170]39,1:[151]VC[170]40,1
2080 [151]VC[170]21,1:Q$[178]""
2090 [161] A$:[139] A$[178]""[167]2090
2095 [139] A$[178]Q$[167]SP[178]3
2100 [139] A$[178]"_"[167][151]VC[170]21,0:[158]M0:[142]
2110 [139] A$[178]""[175] PY[179]249[167]PY[178]PY[170]SP:[137]2160
2130 [139] A$[178]"ON"[175] PY[177]50[167]PY[178]PY[171]SP:[137]2160
2140 [139] A$[178]""[175] PX[179]342[167]PX[178]PX[170]SP:[137]2160
2150 [139] A$[178]"CMD"[175] PX[177]24[167]PX[178]PX[171]SP:[137]2160
2155 [139]A$[178]" "[167]2230
2160 [139]PX[179]256[167][151]VC,PX:[151]VC[170]16,0:[137]2210
2200 [151]VC,PX[171]256:[151]VC[170]16,1
2210 [151]VC[170]1,PY
2220 Q$[178]A$:SP[178]1:[139][194](198)[178]0[167]Q$[178]""
2225 [137]2090
2230 IX[178]PX:IY[178]PY
2240 PX[178]320:PY[178]229:SP[178]1
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]""
2280 [161] A$:[139] A$[178]""[167]2280
2285 [139] A$[178]Q$[167]SP[178]3
2290 [139] A$[178]"_"[167] [151]VC[170]21,0:[158]M0:[142]
2300 [139] A$[178]""[175]PY[179]229[167]PY[178]PY[170]SP:[137]2350
2310 [139] A$[178]"ON"[175] PY[177]IY[171]18[167]PY[178]PY[171]SP:[137]2350
2320 [139] A$[178]""[175] PX[179]320[167]PX[178]PX[170]SP:[137]2350
2330 [139] A$[178]"CMD"[175] PX[177]IX[171]20[167]PX[178]PX[171]SP:[137]2350
2340 [139]A$[178]" "[167]2440
2350 [139]PX[179]256[167][151]VC[170]2,PX:[151]VC[170]16,[194](VC[170]16)[175]1:[137]2410
2400 [151]VC[170]2,PX[171]256:[151]VC[170]16,[194](VC[170]16)[176]2
2410 [151]VC[170]3,PY
2415 Q$[178]A$:SP[178]1:[139][194](198)[178]0[167]Q$[178]""
2420 [137]2280
2440 RE[178]LI[170](PX[171]1)[172]DX
2450 LI[178]LI[170](IX[171]24)[172]DX
2460 UN[178]OB[171](PY[171]30)[172]DY
2470 OB[178]OB[171](IY[171]50)[172]DY
2520 [151]VC[170]21,0:[158]M0
2530 [153]"LOAD*** ATN(null)(null)(null)LENLEFT$(null)RIGHT$(null)(null) ***"
2540 [153]"(null)INKER (null)AND  :";LI
2550 [153]"(null)ECHTER (null)AND :";RE
2560 [153]"(null)NTERER (null)AND :";UN
2570 [153]"(null)BERER (null)AND  :";OB
2580 [137]1100
2990 [143] ANSEHEN
3000 [153]"LOAD*** ATN(null)(null)VALLEFT$VAL(null) ***"
3010 [153]"ASCARBEN = ASCUNKTIONSTASTEN"
3020 [153]"(null)URUECK MIT '_'"
3023 [153]"(null)EITER MIT (null)ASTE"
3030 [151]198,0:[146]198,1:[161]A$
3040 [158]M1
3050 [161] A$:[139] A$[178]""[167]3050
3055 [139] A$[178]"_" [167] [158] M0:[142]
3060 [139] A$[178]"INPUT"[167][151]C0,([194](C0)[170]1)[175]15:[158] SC
3070 [139] A$[178]"DIM"[167][151]C1,([194](C1)[170]1)[175]15:[158] SC
3080 [139] A$[178]"READ"[167][151]C2,([194](C2)[170]1)[175]15:[158] SC
3090 [139] A$[178]"LET"[167][151]C3,([194](C3)[170]1)[175]15:[158] SC
3100 [137]3050
3990 [143] SPEICHERN
4000 [153]"LOAD*** (null)(null)VALRIGHT$LENLEFT$VAL(null)(null) ***"
4010 [133]"(null)AME DES PEEKILDES";NB$
4020 [139] [195](NB$)[177]12[167]NB$[178][200](NB$,12)
4030 NB$[178]NB$[170]".PIC"
4040 [129]I[178]0[164][195](NB$)[171]1
4050 [151]BN[170]I,[198]([202](NB$,I[170]1,1))
4060 [130]
4070 [151] BN[170]16,[195](NB$)
4080 [158] SA
4090 [159]1,8,15:[132]1,A,B$,C,D:[160]1
4100 [153]"";A;B$
4110 [146]198,1:[151]198,0:[142]
4990 [143] LADEN
5000 [153]"LOAD*** (null)ATNSTR$VAL(null) ***"
5010 [133]"(null)AME DES PEEKILDES";NB$
5020 [139] [195](NB$)[177]12[167]NB$[178][200](NB$,12)
5030 NB$[178]NB$[170]".PIC"
5040 [129]I[178]0[164][195](NB$)[171]1
5050 [151]BN[170]I,[198]([202](NB$,I[170]1,1))
5060 [130]
5070 [151] BN[170]16,[195](NB$)
5080 [158] LO
5090 [159]1,8,15:[132]1,A,B$,C,D:[160]1
5100 [153]"";A;B$
5110 [151] 785,7
5120 [151] 51208,XI:LI[178][183](0)
5130 [153]"(null)INKER (null)AND  :";LI
5140 [151] 51208,XA:RE[178][183](0)
5150 [153]"(null)ECHTER (null)AND :";RE
5160 [151] 51208,YI:UN[178][183](0)
5170 [153]"(null)NTERER (null)AND :";UN
5180 [151] 51208,YA:OB[178][183](0)
5190 [153]"(null)BERER (null)AND  :";OB
5200 TM%[178][194](TM)
5210 [153]"(null)AXIMALE (null)IEFE:";TM%
5220 [151]198,0:[146]198,1:[151]198,0
5230 [151]785,0:[142]
5490 [143] DIRECTORY
5500 [153]"LOAD*** STR$RIGHT$(null)VALLEN(null)(null)(null)(null) ***"
5510 [151]198,0:[159]15,8,15,"I0":[159]10,8,2,"#"
5520 TT[178]18:SS[178]1
5530 [152]15,"B-R";2;0;TT;SS
5540 [152]15,"B-P";2;0
5550 [161]#10,X$:[139]X$[178]""[167]X$[178][199](0)
5560 TT[178][198](X$)
5570 [161]#10,X$:[139]X$[178]""[167]X$[178][199](0)
5580 SS[178][198](X$)
5590 [129]Q1[178]0[164]7
5600 [152]15,"B-P";2;Q1[172]32[170]5
5610 F$[178]""
5620 [129]Q2[178]0[164]15
5630 [161]#10,X$:[139]X$[178]""[167]X$[178][199](0)
5640 [139] [198](X$)[178]160[167]Q2[178]16:[137]5660
5650 F$[178]F$[170]X$
5660 [130]
5670 [139][201](F$,4)[178]".PIC"[167][153]F$
5690 [130]
5700 [139]TT[179][177]0[167]5530
5710 [160]15:[160]10
5720 [146]198,1:[151]198,0:[142]
6000 [143] SPRITES
6010 [131] 255,255,255,192,0,0,192,0,0,192,0,0
6020 [131]192,0,0,192,0,0,192,0,0,192,0,0
6030 [131]192,0,0,192,0,0,192,0,0,192,0,0
6040 [131]192,0,0,192,0,0,192,0,0,192,0,0
6050 [131]192,0,0,192,0,0,192,0,0,192,0,0,192,0,0
6060 [131]0,0,3,0,0,3,0,0,3,0,0,3
6070 [131]0,0,3,0,0,3,0,0,3,0,0,3
6080 [131]0,0,3,0,0,3,0,0,3,0,0,3
6090 [131]0,0,3,0,0,3,0,0,3,0,0,3
6100 [131]0,0,3,0,0,3,0,0,3,0,0,3
6110 [131] 255,255,255
6990 [143] EFFEKT
7000 [153]"LOAD*** VALASCASCVAL(null)(null) ***"
7010 [153]"ASCARBEN = ASCUNKTIONSTASTEN"
7020 [153]"(null)URUECK MIT '_'"
7023 [153]"(null)EITER MIT (null)ASTE"
7030 [151]198,0:[146]198,1:[161]A$
7040 [158]M1
7050 [139]A$[178]"READ"[167] [151]C2,([194](C2)[170]1)[175]15
7060 CP[178][194](C3):[151]C3,[194](C2):[151]C2,[194](C1):[151]C1,CP
7070 [161]A$:[139]A$[178]"_"[167]7140
7080 [139]A$[178]"INPUT"[167] [151]C0,([194](C0)[170]1)[175]15
7090 [139]A$[178]"DIM"[167] [151]C1,([194](C1)[170]1)[175]15
7100 [139]A$[178]"READ"[167] [151]C2,([194](C2)[170]1)[175]15
7110 [139]A$[178]"LET"[167] [151]C3,([194](C3)[170]1)[175]15
7120 [158] SC
7130 [137]7060
7140 [158]M0:[142]