100 REM
101 REM *******************************
102 REM * LADEPARAMETER               *
103 REM * NEUER ZEICHENSATZ           *
108 REM *******************************
109 REM
110 IFPEEK(787)=0THENPOKE787,1:POKE45,PEEK(174):POKE46,PEEK(175):CLR
120 IFPEEK(787)=1THENPOKE787,2:LOAD"LADE BILD",8,1
130 IFPEEK(787)=2THENPOKE787,3:LOAD"LADE LEVEL",8,1
140 SYS695:PRINTCHR$(142):PRINT"[147]"
150 REM ZEICHENSATZ
151 DATA 102,254,254,254,000,239,239,239,000
152 DATA 104,000,000,000,000,239,239,239,000
153 RESTORE
154 FORN=1TO2:READD:D=57344+D*8:FORI=DTOD+7:READE:POKEI,E:NEXTI:NEXTN
160 S=54272:POKE1022,0
170 REM
171 REM *******************************
172 REM * TITELBILD                   *
178 REM *******************************
179 REM
180 GOSUB300:A=40448
181 SA=250:SB=128:SC=500
182 SYSA,20,4,"[158]*":GOSUB650
183 FORT=0TO250:NEXT:SYSA,20,32,"*":GOSUB650
184 FORT=0TO2000:NEXT:SYSA,20,10,"[156]B":GOSUB650
185 FORT=0TO1500:NEXT:SYSA,20,18,"R":GOSUB650
186 FORT=0TO1000:NEXT:SYSA,20,22,"[150]T":GOSUB650
187 FORT=0TO500:NEXT:SYSA,20,14,"[129]E":GOSUB650
188 FORT=0TO500:NEXT:SYSA,20,26,"[154]Y":GOSUB650
190 J=PEEK(56320)
191 IF(JAND16)=0THEN210
192 GETA$
193 IFA$=CHR$(32)THEN210
194 IFA$=CHR$(133)THEN210
195 IFA$=CHR$(134)THEN210
196 IFA$=CHR$(135)THEN210
197 IFA$=CHR$(136)THEN210
198 D=D+1:IFD=1000THEND=0:GOSUB300:GOSUB710:GOTO400
199 GOTO190
200 REM
201 REM *******************************
202 REM * AUSWAHL MENUE               *
208 REM *******************************
209 REM
210 POKE53280,0:POKE53281,0:PRINT"[147]":SYS828,2
220 REM SPRITE EIN
221 POKE53240,8
222 V=53248
223 POKEV+39,4
224 POKEV,40
225 POKEV+1,45
226 POKEV+21,1
227 FORT=0TO500:NEXT
230 REM JOY ABFRAGE
231 C=1:D=0
232 J=PEEK(56320)
233 IF(JAND 1)=0THENGOSUB260
234 IF(JAND 2)=0THENGOSUB250
235 IF(JAND16)=0THENGOSUB270
240 REM TASTATUR ABFRAGE
241 GETA$
242 IFA$="[133]"THENC=1:GOTO270
243 IFA$="[134]"THENC=2:GOTO270
244 IFA$="[135]"THENC=3:GOTO270
245 IFA$="[136]"THENC=4:GOTO270
247 D=D+1:IFD=1000THEND=0:GOSUB300:GOSUB710:GOTO400
248 GOTO232
250 REM SPRITE TIEFER
251 C=C+1:IFC=5THENC=1
252 ONCGOTO253,254,255,256
253 POKEV+1,45:RETURN
254 POKEV+1,85:RETURN
255 POKEV+1,125:RETURN
256 POKEV+1,165:RETURN
260 REM SPRITE HOEHER
261 C=C-1:IFC=0THENC=4
262 ONCGOTO253,254,255,256
270 REM SPRUNG ANZEIGE IM FENSTER
271 POKEV+21,0
272 REM GOSUB300
273 POKES+24,0
274 POKE787,0
275 ONCGOTO276,277,278,279
276 A$="C/GAME":GOTO800
277 GOSUB300:GOSUB710:GOTO400
278 A$="HIGH SCORE":POKE1022,255:GOTO800
279 A$="ERKLAERUNG":GOTO800
280 END
300 REM
301 REM *******************************
302 REM * AUSWAHL MENUE               *
303 REM * SPRITE EIN                  *
308 REM *******************************
309 REM
310 POKE53280,0:POKE53281,0:PRINT"[147]":SYS828,1
311 A=40448:R=40704:B=1:V=53248
320 REM SPRITE EIN
321 FORN=0TO6:POKE53241+N,PEEK(R+B+(N*4)):NEXT
322 FORN=0TO6:POKEV+40+N,PEEK(R+B+(N*4+28)):NEXT
323 POKEV+23,PEEK(R+B+56)
324 POKEV+27,PEEK(R+B+60)
325 POKEV+29,PEEK(R+B+64)
326 FORN=0TO6:POKEV+2+(N*2),PEEK(R+B+(N*4+68)):NEXT
327 FORN=0TO6:POKEV+3+(N*2),PEEK(R+B+(N*4+96)):NEXT
330 REM SONDERREG.16
331 POKEV+16,0
332 IFPEEK(R+124+B)=1THENPOKEV+16,PEEK(V+16)OR2
333 IFPEEK(R+128+B)=1THENPOKEV+16,PEEK(V+16)OR4
334 IFPEEK(R+132+B)=1THENPOKEV+16,PEEK(V+16)OR8
335 IFPEEK(R+136+B)=1THENPOKEV+16,PEEK(V+16)OR16
336 IFPEEK(R+140+B)=1THENPOKEV+16,PEEK(V+16)OR32
337 IFPEEK(R+144+B)=1THENPOKEV+16,PEEK(V+16)OR64
338 IFPEEK(R+148+B)=1THENPOKEV+16,PEEK(V+16)OR128
340 REM FIGUR EIN
341 POKE53240,3
342 POKEV+39,15
343 X=PEEK(R+185)
344 Y=PEEK(R+186)
345 POKEV,X
346 POKEV+1,Y
347 POKEV+21,255
350 D=0
390 FORT=0TO1000:NEXT
391 RETURN
400 REM
401 REM *******************************
402 REM * DEMO STEUERUNG              *
408 REM *******************************
409 REM
410 REM WEG 1 ***  BALL
411 GOSUB610
412 SA=125:SB=32
413 GOSUB550:M=5:GOSUB580:B$="HUNGER!":GOSUB590
414 GOSUB650
415 POKEV+21,191
420 REM WEG 2 ***  BALL
421 SA=125:SB=32
422 M=5:GOSUB580:GOSUB520:M=4:GOSUB570:B$="HUNGER!":GOSUB590
423 GOSUB650
424 POKEV+21,63
430 REM WEG 3 ***  KISTE ZU
432 M=6:GOSUB570:GOSUB520:M=10:GOSUB580:B$=" Z U ? ":GOSUB590
440 REM WEG 4 ***  BALL
441 SA=125:SB=32
442 M=8:GOSUB580:GOSUB510:GOSUB510
443 M=2:GOSUB580:B$="HUNGER!":GOSUB590
444 GOSUB650
445 POKEV+21,31
450 REM WEG 5 ***  SCHLUESSEL
451 SA=250:SB=16
452 M=11:GOSUB580:B$=" A H A ":GOSUB590
453 GOSUB650
454 POKEV+21,27
460 REM WEG 6 ***  KISTE AUF
461 SA=35:SB=16
462 M=13:GOSUB570:GOSUB520:GOSUB520
463 M=3:GOSUB570:B$="A U F !":GOSUB590
464 GOSUB650
465 POKE53241,10
470 REM WEG 7 *** GITTER
471 M=3:GOSUB580:GOSUB510:GOSUB510
472 M=8:GOSUB580:GOSUB520:GOSUB520
473 M=3:GOSUB580:B$="BOMBE ?":GOSUB590
480 REM WEG 8 *** BOMBE
481 SA=250:SB=16
482 M=3:GOSUB570:GOSUB510:M=5:GOSUB580
483 B$="A H A !":GOSUB590
484 GOSUB650
485 POKEV+21,11
490 REM WEG 9 *** GITTER
492 M=5:GOSUB570:GOSUB520:M=5:GOSUB580
493 GOSUB640
494 GOSUB560
495 POKEV+21,0:GOTO210
500 REM
501 REM *******************************
502 REM * LAUFROUTINEN FUER'N MANN    *
508 REM *******************************
509 REM
510 REM NACH OBEN
511 FORN=0TO4:GOSUB515:Y=Y-4:GOSUB620:GOSUB515:Y=Y-4:GOSUB630:GOSUB517:NEXT
512 RETURN
515 P=P+1:IFP=4THENP=1
516 POKE53240,P:POKEV+1,Y:FORT=0TO50:NEXTT:RETURN
517 POKE53240,3:POKEV+1,Y:RETURN
520 REM NACH UNTEN
521 FORN=0TO4:GOSUB525:Y=Y+4:GOSUB620:GOSUB525:Y=Y+4:GOSUB630:GOSUB527:NEXT
522 RETURN
525 P=P-1:IFP=-1THENP=3
526 POKE53240,P:POKEV+1,Y:FORT=0TO50:NEXTT:RETURN
527 POKE53240,3:POKEV+1,Y:RETURN
530 REM NACH LINKS
531 X=X-4:GOSUB620:GOSUB535:POKE53240,5:FORT=0TO50:NEXTT
532 X=X-4:GOSUB630:GOSUB535:POKE53240,3
533 RETURN
535 RX=INT(X/256):LX=X-RX*256:POKEV,LX
536 IFRX=0THENPOKEV+16,PEEK(V+16)AND254
537 IFRX=1THENPOKEV+16,PEEK(V+16)OR1
539 RETURN
540 REM NACH RECHTS
541 X=X+4:GOSUB620:GOSUB545:POKE53240,4:FORT=0TO50:NEXTT
542 X=X+4:GOSUB630:GOSUB545:POKE53240,3
543 RETURN
545 RX=INT(X/256):LX=X-RX*256
546 IFRX=0THENPOKEV+16,PEEK(V+16)AND254
547 IFRX=1THENPOKEV+16,PEEK(V+16)OR1
548 POKEV,LX
549 RETURN
550 REM WINKEN DES SPRITES
551 FORN=0TO5:GOSUB620:GOSUB555:FORT=0TO100:NEXTT:NEXTN
552 RETURN
555 POKE53240,0:FORT=0TO50:NEXTT:POKE53240,3:FORT=0TO50:NEXTT
556 RETURN
560 REM EXPLOSION
561 POKEV+16,0:POKEV+21,255
562 FORI=53240TO53247:POKEI,RND(0)*256:NEXT
563 I=INT(RND(0)*3):J=INT(RND(0)*3)
564 I=I*3+16:J=J+3:POKE53265,I:POKE53270,J
565 FORI=VTOV+7:POKEI,RND(0)*256:NEXT
566 Z=Z+1:IFZ<50THEN562
567 Z=0:FORT=0TO1000:NEXT
568 POKEV+21,0:POKE53265,27:POKE53270,200
569 FORL=0TO24:POKES+L,0:NEXT:RETURN
570 REM LAUFEN NACH LINKS
571 FORF=1TOM:GOSUB530:NEXTF:RETURN
580 REM LAUFEN NACH RECHTS
581 FORF=1TOM:GOSUB540:NEXTF:RETURN
590 REM GROSSSCHRIFT EINBLENDUNGEN
591 PRINT"[156]":SYSA,20,6,B$:FORT=0TO1000:NEXT:SYSA,20,6,"D E M O"
592 RETURN
600 REM
601 REM *******************************
602 REM * GERAEUSCHKULISSE            *
608 REM *******************************
609 REM
610 REM ** TON SCHRIITE EIN (ST.1+2)
611 S=54272
612 FORL=0TO13:POKES+L,0:NEXT:FORL=21TO23:POKES+L,0:NEXT
613 POKES+24,15:POKES,220:POKES+1,68:POKES+5,0:POKES+6,192
614 POKES+7,120:POKES+8,100:POKES+12,0:POKES+13,192
619 RETURN
620 REM ** SCHRITT HOCH
621 POKES+4,129:POKES+4,0
629 RETURN
630 REM ** SCHRITT NIEDRIG
631 POKES+11,129:POKES+11,0
639 RETURN
640 REM ** EXPLOSION
641 POKES+23,246:POKES+24,31:POKES+19,9:POKES+20,255:POKES+15,4
642 POKES+14,10:POKES+22,0:POKES+12,15:POKES+13,255:POKES+8,4
643 POKES+18,129:POKES+11,129:FORT=1TO500:NEXT:POKES+18,128:POKES+11,128
649 RETURN
650 REM ** SONDERGERAEUSCHE (ST.3)
651 FORL=14TO23:POKES+L,0:NEXT
652 POKES+14,130:POKES+19,9
653 POKES+15,SA:POKES+24,15
654 POKES+18,SB+1
657 GOSUB610
659 RETURN
700 REM
701 REM *******************************
702 REM * DEMO EINBLENDEN             *
708 REM *******************************
709 REM
710 SA=35:SB=128:SC=500
711 GOSUB650
712 SYSA,20,18,"[156] [146]"
720 SA=15:SB=32:SC=0
721 FORN=18TO6STEP-1
722 GOSUB650
723 SYSA,20,N,"[156]D "
724 SYSA,20,18,"[156] [146]"
725 FORT=0TO50
726 NEXTT
727 NEXTN
730 :
731 FORN=17TO26
732 GOSUB650
733 SYSA,20,N," O"
734 SYSA,20,18,"[156] [146]"
735 FORT=0TO50
736 NEXTT
737 NEXTN
740 :
741 FORN=18TO14STEP-1
742 GOSUB650
743 SYSA,20,N,"E"
744 SYSA,20,18,"[156] [146]"
745 FORT=0TO50
746 NEXTT
747 NEXTN
750 :
751 FORN=18TO22
752 GOSUB650
753 SYSA,20,N,"M"
754 SYSA,20,18,"[156] [146]"
755 FORT=0TO50
756 NEXTT
757 NEXTN
760 GOSUB640
761 SYSA,20,18,"[156][166][146]":FORT=0TO100:NEXT:SYSA,20,18,"[166]":FORT=0TO100:NEXT
770 SYSA,20,18,"[168][146]":FORT=0TO100:NEXT:SYSA,20,18,"[168]":FORT=0TO100:NEXT
780 SYSA,20,18," "
790 RETURN
800 REM LADEBILD
801 PRINT"[147]"
802 FORN=0TO25
803 PRINT
804 NEXT
805 PRINT"[155]                                    [146]"
806 PRINT"[155]      DAS PROGRAMM WIRD GELADEN     [146]"
807 PRINT"[155]                                    [146]"
808 FORN=0TO6
809 PRINT
810 NEXT
900 REM LADEPROGRAMM
901 PRINT"[144]LOAD"+CHR$(34)+A$+CHR$(34)+",8"
902 PRINT"RUN"
903 POKE631,19:POKE632,13:POKE633,13:POKE634,13
904 POKE198,4
905 END
910 REM LADEPROGRAMM