10 REM *** JUMP.80/  8.6.84
20 POKE53280,0:POKE53281,0
25 PRINT"[147]NICHT WUNDERN UND WARTEN!!"
30 GOSUB 50000:GOTO 48000
499 REM ** JOYSTICK **
500 JS=PEEK(JP):IF (JSAND16)=0 THEN GOSUB 40000:GOTO 600
505 IF (JSANDQ1)=Q0THEN POKEW1,SW:IF UP(CM) THEN YS=YS-Q8:GOTO 590
510 IF(JSANDQ2)=Q0THEN POKEW1,SW:IF DO(CM) THEN YS=YS+Q8:GOTO590
520 IF(JSANDQ4)=Q0THEN POKEW1,SW:IF LE(CM) THEN XS=XS-Q4:GOTO590
530 IF(JSANDQ8)=Q0 THEN POKEW1,SW:IF RI(CM) THEN XS=XS+Q4
590 POKEW1,Q0
600 IFXS<OXTHENXS=OX
620 SYS(SR) Q0,XS,YS:RETURN
1000 REM *** MAIN LOOP **
1050 IF PEEK(TA)THEN1200
1055 IF PEEK(KO)ANDQ1 THEN CM=16:POKEKO,0:GOTO1100
1060 CM=USR(XS-OX) ,YS-OY:IF CM=Z8 THEN XS=8*PEEK(49426)+OX:YS=8*PEEK(49427)+OY
1070 IF CM>Q7 THEN XS=XS+DX(CM):YS=YS+DY(CM)
1075 IF TI<TG THEN PRINT"",INT(TI/100)
1080 IF CM<Z4 THEN GOSUB 500:GOTO 1050
1100 ON CM-13 GOTO 3000,2000,12000,11000,1050,15000
1200 GETB$:IFB$="[133]"THEN RETURN
1210 IF B$="[134]" THEN CM=16:GOTO 1100
1215 IF B$="[135]" THEN 11040
1217 IF B$="[136]" THEN POKE 198,0:WAIT198,1
1220 GOTO1050
2000 I=0:POKEW1,33
2010 I=I+1:YS=YS+4:IF I>8 OR YS>YG THEN CM=16:POKEW1,0:POKESI+1,GH:GOTO 1100
2015 POKESI+1,40-2*I
2020 GOSUB 600:CM=USR(XS-OX) ,YS-OY:IF CM=15 THEN   2010
2025 IFCM=18THENXS=FNX(XS)
2030 POKEW1,0:POKESI+1,GH:YS=FNY(YS):GOTO 1050
3000 RX=2-4*INT(RND(1)*2):GOSUB40100:GOSUB600:GOTO1050
10999 REM ** GEGENSTAND POSITIV, EI**
11000 POKE BS+40*PEEK(49427)+PEEK(49426),80:SC=SC+BI*10:EZ=EZ+1
11030 IF EZ<EM THEN PRINT"",,SC:GOTO1050
11035 IF TI<TG THEN SC=SC+INT((TG-TI)/10)
11040 BI=BI+1:IF BI>BM THEN RETURN
11050 GOSUB 46000:GOTO 1050
11999 :
12000 MZ=MZ-1:IF MZ=0 THEN RETURN
12050 PRINT"",,SC,MID$("******      ",7-MZ,6)
12052 POKEW1,17
12055 FOR XS=XS TO XX STEP SGN(XX-XS):GOSUB 600:POKESI+1,49+(XSAND1):NEXT
12057 FOR YS=YS TO YY STEP SGN(YY-YS):GOSUB 600:POKESI+1,52+(YSAND1):NEXT
12060 XS=XX:YS=YY:POKEKO,0:POKEW1,0
12070 GOTO 1050
15000 POKEV+29,255:POKE BS+40*PEEK(49427)+PEEK(49426),80:CM=3:XS=XS-10:SW=17
15050 JS=PEEK(56320)
15052 IF(JSAND16)=0THEN XS=XS+10:POKEV+29,254:GOSUB600:POKEKO,0:SW=129:GOTO1050
15055 IF YS<OYTHEN YS=OY
15056 IFYS>YGTHENYS=YG
15057 IFXS>XGTHENXS=XG
15060 GOSUB 505:GOTO 15050
39000 :
39999 REM **** JUMP ****
40000 IF CM>3 AND CM<8 THEN RETURN
40005 RX=0:IF (JSAND4)=0 THEN RX=-2
40010 IF (JSAND8)=0 THEN RX=2
40100 POKESI+6,16*15+13:POKEW1,17:POKEW1,16:FOR I=0 TO 13
40120 POKESI+1,104-JU(I):YS=YS-JU(I):XS=XS+RX:GOSUB 600
40130 CM=USR(XS-OX) ,YS-OY:
40140 IF CM=18 THEN XS=FNX(XS):GOTO 40300
40150 IF I<9 THEN POKEKO,0:GOTO 40250
40235 IFCM<>15OR (PEEK(KO)AND1) THEN40300
40250 NEXT
40300 IF CM<>15 THEN YS=FNY(YS)
40310 POKEW1,0:POKESI+6,16*15:POKESI+1,GH:RETURN
44990 :
45000 MZ=6:SC=0:GOSUB 46000
45100 GOSUB 1050:POKEV+21,0
45150 FORI=1TO3000:NEXT
45160 PRINT"[147][158]","DAS WARS!!!":PRINT"ERREICHTE PUNKTZAHL:",SC
45163 IFSC>HSTHENHS=SC
45165 PRINT"HIGH SCORE:",,HS
45170 PRINT"-------------------------------------[154]":PRINT,"** JUMP!! **"
45180 IF (PEEK(56320) AND 16)<>0 THEN 45180
45190 RETURN
46000 SYS(49155) 0:EZ=0:XX=120:YY=120
46010 POKE W1,0:POKESI,GL:POKESI+1,GH:SW=129:REM SOUND
46015 A=0:IFTI<TGTHENA=INT((TG-TI)/10)
46020 PRINT"[147][158]   BONUS:",A,"[157][157][157][157]PKT:";SC,MID$("******      ",7-MZ,6):PRINT
46030 FORI=1TO7:POKEXH+I,1:POKEXL+I,170:POKETY+I,0:NEXT
46050 ON BI GOSUB 60000,60100,60200,60300,60400,60500
46100 EM=0:FORI=80TO958:C=PEEK(BS+I):IFC=80THENNEXT:GOTO46200
46105 IFC=82THENEM=EM+1
46110 IFC>64ANDC<85THENPOKEFR+I,CO(C-65):NEXT:GOTO46200
46120 POKEFR+I,0:C=C-48:XS=(I-INT(I/40)*40)*8+OX:YS=INT(I/40)*8+OY
46121 IFC<0ORC>7THEN46140
46130 POKETY+C,YS+12:POKE XH+C,XS/256:POKEXL+C,XSAND255:IFC=0THENXX=XS:YY=YS
46140 NEXT
46200 TI$="000000":TG=5000+2000*BI:YS=YY:XS=XX
46220 PRINT"B";BI;"[157]  ZEIT:";"      ":RETURN
48000 REM *** MENUE ***
48040 POKEV+21,0:PRINT"[147][154]":GOSUB 60500
48041 PRINT"[145][145][145][145][145]","[129][211]F1: AUFGEBEN[211]":PRINT,"[211]F3: _ VOGEL [211]"
48042 PRINT,"[211]F5: _ BILD  [211]":PRINT,"[211]F7: PAUSE   [211]"
48043 PRINT"[158][193][193][193][193][193][193][193][193][193][193][193][193] SPRING VOGEL [193][193][193][193][193][193][193][193][193][193][193][193]"
48044 PRINT"E[146]DIT, W[146]AHL ODER S[146]PIEL";
48045 INPUT B$:IF B$="E"THEN GOSUB 49000:GOTO 48040
48050 IF B$="S" THEN BI=1: GOSUB 45000:GOTO 48040
48060 IF B$<>"W" THEN 48040
48070 INPUT"[147]WELCHES BILD SPIELEN";B$:BI=VAL(B$):IFBI<1 OR BI>BM THEN 48070
48080 GOSUB 45000:GOTO 48040
48090 :
48999 REM *** EDITOR ****
49000 INPUT"[147]WELCHES BILD";B$:BI=VAL(B$):IF BI<0 OR BI>BM THEN 49000
49020 PRINT"BITTE WARTEN":ZN=59900+BI*100:ZA=EA
49050 IF FNAD(ZA+2)<ZN THEN ZA=FNAD(ZA):GOTO 49050
49055 POKE53281,1:PRINT"[147]":POKE53281,0
49060 ON BI GOSUB 60000,60100,60200,60300,60400,60500
49069 REM FARBE SETZEN
49070 FOR I=80 TO 958
49071 C=PEEK(BS+I)-65:IFC>=0ANDC<20THENPOKE55296+I,CO(C):NEXT:GOTO49095
49075 POKE55296+I,1:NEXT
49095 CP=80:PRINT"[154]ZEICHEN: A-T[146]  POS: 0-7[146]  CURS.[146]  CLR[146]"
49096 PRINT"AENDERUNGEN UEBERNEHMEN: _[146]  QUIT: F1[146]"
49100 POKE 646,PEEK(CP+55296):POKE204,0
49105 GET B$:IF B$="" THEN 49105
49110 POKE207,0:POKE204,1:POKEBS+CP,PEEK(BS+CP)AND127
49120 C=ASC(B$):IFC>64ANDC<85THENPOKE 646,CO(C-65):PRINTCHR$(C+32);:GOTO 49140
49125 IFB$>="0"ANDB$<"8"THENPRINT"";B$;
49130 IF B$="" OR B$="[145]" OR B$="" OR B$="[157]" THEN PRINTB$;
49140 IF PEEK(211)>38 THEN PRINT"[157]";
49150 CP=PEEK(211)+40*PEEK(214):IF CP>=24*40 OR CP<80 THEN CP=80:PRINT""
49155 IFB$="[147]"THEN POKE53281,1:PRINT"[147]":POKE53281,0:GOTO 49095
49160 IF B$<>"_" AND B$<>"[133]" THEN 49100
49170 IF B$="[133]" THEN RETURN
49200 B=BS+40:PRINT"      **** BITTE WARTEN ***        "
49210 FOR I=0 TO 21:ZA=FNAD(ZA):A=ZA+6:B=B+40
49220 FOR J=0 TO 38:C=PEEK(B+J)
49221 IF C>=48ANDC<=55THENC=C-32:GOTO49230
49229 IF C<65 OR C>84 THEN C=80
49230 POKE A+J,C+32:NEXTJ,I
49350 INPUT"[147]BILD SPIELEN (J/N)";B$:IF B$="N" THEN RETURN
49370 GOSUB 45000:RETURN
49499 RETURN
49999 REM
50000 REM ** INIT **
50010 CM=0:XS=0:YS=0:JS=0:OX=14:OY=36:T=0:TG=2000
50020 Q0=0:Q8=8:Q4=4:Q1=1:Q2=2:Q7=7:Z8=18:Z4=14:JP=56320:SR=49249:TA=198
50040 XH=49400:XL=49392:TY=49432
50042 DEFFNY(Y)=PEEK(49427)*8+OY
50045 DEFFNX(X)=PEEK(49426)*8+OX
50050 V=53248:BS=256*204:XG=320+OX:YG=200+OY
50060 KO=V+30:FR=55296:REM SPR.KOLLIS.REG / FARBRAM
50070 POKE 786,193:POKE 785,32:BM=6: REM USR ADR.,MAX.BILDER
50090 DIM JU(13):FORI=0TO13:READJU(I):NEXT
50100 DATA 5,4,3,2,1,1,0,0,-1,-1,-2,-3,-4,-5
50215 FORI=BS+1017 TO BS+1023:POKEI,16:NEXT:POKEBS+1016,14
50220 POKE V+23,0:POKE V+29,254:POKEV+39,7
50230 DIMX(7),Y(7),RX(7),RY(1):FORI=0TO7:X(I)=100:Y(I)=100:NEXT
50249 REM MAPRO-TABELLEN
50250 FORI=1TO7:POKEV+39+I,I:POKE49432+I,30*I:POKE49392+I,35*I:POKE49400+I,0
50251 POKE49416+I,1:POKE49408+I,5+RND(1)*45:NEXT:POKE49401,1
50252 POKE 49424,1:REM SB-FLAG
50410 DIM UP(20),DO(20),RI(20),LE(20),DX(20),DY(20)
50422 RI(0)=1:LE(0)=1:RI(1)=1:LE(1)=1:UP(1)=1:RI(2)=1:LE(2)=1:DO(2)=1
50437 UP(3)=1:DO(3)=1:RI(3)=1:LE(3)=1:UP(4)=1:DO(5)=1:RI(6)=1:LE(7)=1:DX(8)=4
50477 DX(9)=-4:DY(10)=-8:DY(11)=8:DY(12)=8:DX(12)=8:DY(13)=8:DX(13)=-8:DY(15)=4
50599 REM SOUND
50600 SI=54272:W1=SI+4
50620 POKE SI+24,15
50625 POKE SI+5,0:POKE SI+6,15*16+0
50630 GL=180:GH=18:A=0
50710 FORI=13TO16:FORN=0TO62:READ Q:A=A+Q:POKE 49152+I*64+N,Q:NEXT:NEXT
50720 IF A<>16572 THEN PRINT"DATAERROR":STOP
50800 DATA0,255,0,1,255,128,1,153,128,1,153,128,3,255,192,31,195,248
50805 DATA 63,227,252,103,243,230,195,249,195,131,253,193,3,255,192
50807 DATA 3,255,192,1,231,128,0,231,0,0,102,0,0,102,0,0,102,0,1,231,128
50809 DATA ,,,,,,,,
50810 DATA0,255,0,1,255,128,129,153,129,193,153,131,99,255,198,63,195,252
50815 DATA 31,199,248,7,207,224,3,159,192,3,191,192,3,255,192
50817 DATA 3,255,192,1,231,128,0,231,0,0,102,0,0,102,0,0,102,0,1,231,128
50819 DATA ,,,,,,,,
50850 DATA 0,192,0, 1,224,0, 3,240,0, 2,208,0, 2,208,0,3,240,0,3,240,0
50855 DATA 3,48,0,15,112,0
50857 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
50870 DATA 0,192,0,1,224,0,3,240,0, 2,208,0, 2,208,0, 3,240,0, 3,240,0
50875 DATA 3,48,0,3,188,0
50880 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
51000 DIM CO(19):FOR I=0 TO 19:READ CO(I):NEXT
51010 DATA 5,5,5,2,10,8,13,13,5,5,4,4,4,4,12,1,2,7,8,14
52000 REM EDIT-ANFANGSADR.
52010 DEFFNAD(X)=PEEK(X)+256*PEEK(X+1)
52020 EA=2049
52050 IF FNAD(EA+2)<59800 THEN EA=FNAD(EA):GOTO 52050
58000 REM ZEICHENSATZ NACH $E0000 (ZS), VIDERRAM NACH $CC00 (BS)
58020 ZS=14*4096:ZV=53248
58040 IF(PEEK(53272)AND254)=56 THEN RETURN
58050 POKE 53272,56:POKE 56576,148:POKE 648,204:BS=204*256
58055 PRINT"[147]       GEDULD":PRINT:GOSUB 60400
58060 POKE 56334,0:POKE 1,51
58070 FOR I=0 TO 2047:POKE ZS+I,PEEK(ZV+I):NEXT
58075 POKE 1,55:POKE 56334,1:A=0
58090 READ C:A=A+C:IF C>255 THEN 59010
58095 H=ZS+8*(C+65):FOR I=0 TO 7:READ C:A=A+C:POKE H+I,C:NEXT
58098 GOTO 58090
58100 DATA 0,255,60,24,24,24,60,255,255
58110 DATA 1,66,66,66,66,255,24,24,255
58120 DATA 2,255,24,24,255,66,66,66,66
58130 DATA 3,66,66,126,66,66,66,126,66
58140 DATA 4,12,24,48,0,12,24,48,0
58150 DATA 5,48,24,12,0,48,24,12,0
58160 DATA 6,255,129,8,4,62,4,8,255
58170 DATA 7,255,129,16,32,124,32,16,255
58180 DATA 8,255,56,28,14,14,28,56,255
58190 DATA 9,255,28,56,112,112,56,28,255
58200 DATA 10,66,66,90,102,102,66,66,66
58210 DATA 11,66,66,102,102,90,66,66,66
58220 DATA 12,192,208,112,56,28,14,7,3
58230 DATA 13,3,7,14,28,56,112,208,192
58240 DATA 14,255,62,12,48,192,48,12,62
58250 DATA 15,0,0,0,0,0,0,0,0
58260 DATA 16,0,126,126,102,102,126,126,0
58270 DATA 17,24,60,60,126,126,126,60,24
58280 DATA 18,0,223,223,0,0,251,251,0
58290 DATA 19,0,102,255,153,153,56,56,0
58299 DATA 999
59000 REM ** MAPROS **
59010 IF A<>14182 THENPRINT"DATA-ERROR IN 58100FF":STOP
59014 A=0:FOR I=49152 TO 49378:READ N:POKE I,N:A=A+N:NEXTI
59016 IF A<>27365THENPRINT"DATA ERROR":STOP
59020 DATA 80,70,83,32,158,183,224,8,176,31,189,219,192,45,21,208,141
59022 DATA 21,208,96,32,158,183,224,16,176,14,134,2,32,253,174,32,235
59024 DATA 183,165,21,201,2,144,3,76,72,178,138,72,166,2,32,10,192
59026 DATA 189,219,192,45,16,208,141,16,208,70,21,144,9,189,211,192,13
59028 DATA 16,208,141,16,208,138,10,170,104,157,1,208,165,20,157,0,208
59030 DATA 166,2,189,211,192,13,21,208,141,21,208,96
59099 REM
59100 DATA 32, 20,192,173, 16,193, 73,254,141, 16
59102 DATA193,162, 7,189,248,207, 24,109, 16,193
59104 DATA157,248,207,202, 16,243,169, 7,133, 2
59106 DATA166, 2,189, 0,193, 24,125, 8,193,157
59108 DATA 0,193,201, 64,144, 11,189, 8,193, 73
59110 DATA254,157, 8,193,176,232,234, 24,125,240
59112 DATA192,133, 20, 42, 29,248,192, 41, 1,234
59114 DATA234,133, 21,189, 24,193, 32, 45,192,198
59116 DATA 2,208,203,173,30,208,96
59140 DATA 253,174,32
59142 DATA 9,185,211,192,13,29,208,141,29,208,70,2,144,9,185,211,192
59144 DATA 13,23,208,141,23,208,96,1,2,4,8,16,32,64,128,254,253
59146 DATA 251,247,239,223,191,127
59190 REM
59195 A=0:FORI=49440TO49505:READN:A=A+N:POKEI,N:NEXT
59196 IF A<>8224THEN PRINT"DATA ERROR":STOP
59200 DATA 32,238,183,102, 21,165, 20,106, 74, 74
59202 DATA133,211,201, 40,144, 4,169, 15,176, 42
59204 DATA133,211,138, 74, 74, 74,133,214, 32,108
59206 DATA229,164,211,177,209, 56,233, 65,201, 20
59208 DATA144, 2,169, 15,201, 15,240, 14,201, 18
59210 DATA240, 10,166,211,142, 18,193,166,214,142
59212 DATA 19,193,168, 76,162,179
59800 RETURN
59999 REM BILD 1
60000 :
60001 PRINT"ppppppppppppprpppppppppppppppppppppppps"
60002 PRINT"ppppljjjjaaaaaaaaqaaaapppiiiitpppppprps"
60003 PRINT"pppplpppppeppppppppppppppppppppppppppps"
60004 PRINT"pppplpppppepppppppppppppppppppprppaaaas"
60005 PRINT"pppplpppppeppppppppppppppppppaaaaapppss"
60006 PRINT"pprplprpppeppppppppssssssssspppppppppss"
60007 PRINT"paaacaaappeaaaappppppppppppppppppppprss"
60008 PRINT"ppppfpppppeppppppp2ppppppppppppppppppss"
60009 PRINT"ppppfpppppeppppaaaaaaaaaaaaaaaaoaaaaass"
60010 PRINT"ppppfpppppeppprpppppppppppppppppppppdpp"
60011 PRINT"ppppfpppppeppaaaaappppppppppppppppppdpp"
60012 PRINT"ppppfpppppepppppppppppppppppppppppppdpp"
60013 PRINT"ppp1fpppppepppppppppppppppppppppppppdpp"
60014 PRINT"ppppfpppppeppppppppppppppppprhhhhhhabac"
60015 PRINT"ppppppppppepppppppprpppppp3pfpppppppppd"
60016 PRINT"pppprpppppeppppppppappppppppfpppppppppd"
60017 PRINT"ppppggggggeppppppprkrpppppppfpppppppppd"
60018 PRINT"ppppppppppppppppppakapppiippfppppppprpd"
60019 PRINT"pppppppppppppppppppkppppkprpfpppprppaab"
60020 PRINT"pppppppppprppppppppkppppkppppppaaaapppp"
60021 PRINT"p0pprppppaaaaiiirppkppppkaaaapppppppppp"
60022 PRINT"aaaaaaaaasssssssaaabaiiikssssssssssssss"
60030 RETURN
60100 :
60101 PRINT"ppppppppppppppppppppppppppppppppppppppp"
60102 PRINT"ppppprpprppppppppppppppppppprppprpppppp"
60103 PRINT"aaraaaaaaaapppaaarpraaapppaaaaaaaaaaraa"
60104 PRINT"ppppppppppppppppppppppppppppppppppppppp"
60105 PRINT"pprpppppiiiip4pppppppppppjjjjppppppprpp"
60106 PRINT"ppppppppppppprjjjjaiiiirppppppppppppppp"
60107 PRINT"ppriiiipppppppppppppppppppppppjjjjjprpp"
60108 PRINT"pppppppjjjpppppppppppppppppiiippppppppp"
60109 PRINT"pprpppppppjjjjpppppppppiiiippppppppprpp"
60110 PRINT"ppppppppppppppjjjpppiiipppppppppppppppp"
60111 PRINT"pp0pppppppppppppppppppppppppppppppppppp"
60112 PRINT"caaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
60113 PRINT"dsppppppppppppppppppppppppppppppppppppp"
60114 PRINT"dsprppppppppppppppppppppppppppppppppptp"
60115 PRINT"dspapppppppppppppppppppppppppppppppppap"
60116 PRINT"dsppp5ppppprppppprpppppprpp6pprpppppppr"
60117 PRINT"dsaacppppcaaaaaaaaaaaaaaaaaaaaaaaacaaaa"
60118 PRINT"dpppdppppdppppppppppppppppppppppppdpppp"
60119 PRINT"dtppdppppdppppppppppppppppppppppppdpppp"
60120 PRINT"dappdppppdpppprpprppprpprpprpprpppdpppr"
60121 PRINT"dpppdppp2dppppppppppppp3ppppppppppdpppp"
60122 PRINT"baaabaaaabaaaaaaaaaaaaaaaaaaaaaaaabaaaa"
60150 RETURN
60199 REM BILD3
60200 :
60210 PRINT"ssssrhhpqpjjjciiipppiiiriipppaaaaaaaaar"
60214 PRINT"pppsfsppppsppdpssppqppplppppppppppppppn"
60216 PRINT"iirsfsppppsppdpssppppsplpppppppp0ppppnp"
60218 PRINT"kppsfspprpsppdpssppprsplppppppppapppnpp"
60220 PRINT"kplsfspprpsppdpssppaasplpppppppppppnppp"
60222 PRINT"kplsfspprpsppdpsspppppplppppppppppnpppp"
60224 PRINT"kplsfsppppsppdpssaapppplpppppppppnppppp"
60226 PRINT"kplsfsp5pppppdpspp6pppplppppppppnpppppp"
60228 PRINT"kplsfsppiilppdpsppaappplpppppppnppppppp"
60230 PRINT"kplsfspppplppdpspppaapplppppppnpppppppp"
60234 PRINT"kplsfspppplppdpsppppppplpppppnppspppppp"
60237 PRINT"kprsfspppplppdpsaaapppplppp4npppspppprp"
60240 PRINT"kppsfspppplppdpspppaaaplpppnppppspppaap"
60244 PRINT"kppsfspppplppdpspppppkplpprpppppsaaappp"
60247 PRINT"kppsfsppppiiidiiiiiiikplppmpppppppppppp"
60250 PRINT"kptslspppppppdppppppppplpppmppppppppaap"
60254 PRINT"kppslspppppppdppppppppplppppmpppsppp2pp"
60258 PRINT"kjjjjspprpp1pdppppppppplpppppmppsaaappp"
60260 PRINT"ppppppppaaappdppppppppplppppppmpppppppp"
60263 PRINT"pppppppppppppdppppppppplpppppppmppppaaa"
60264 PRINT"pppppppppppppdpppprpp3plppppppppmpppppp"
60270 PRINT"aaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaa"
60280 RETURN
60299 REM BILD4
60300 :
60301 PRINT"paaaraappppppppppppppppppppppsssprjjjjj"
60302 PRINT"pppppppiiiiiiiriiiiiciiiiiiilssnjj2pppk"
60303 PRINT"pppppppppppppprssssslseppppplsnpppppppk"
60304 PRINT"pppiiiippppjjjjssppplseppppplnppppppprk"
60305 PRINT"pppppppppppp3ppspppplseppjaabipppiippab"
60306 PRINT"jjjppppppppppppsarsslserppppppppppppppp"
60307 PRINT"pppppppppppppppssmsslseippppprppppppppr"
60308 PRINT"pppprjjjpppppppssspslseprppiiipppiippic"
60309 PRINT"ppfhhhhhppjjjppppsrslsepippppphhhhhhhhd"
60310 PRINT"ppfspppppppppppppspslsehhhhhhhppppppppd"
60311 PRINT"ppfspppppfppjjjjpsrslsepppppppppppppppr"
60312 PRINT"prfspppppppppppppspslsepprppprppppppppj"
60313 PRINT"fahsppppppppppiipsrslseppappjjjppopppap"
60314 PRINT"fpppppiiipiiippppspspsppahhhhhhhhhhhppr"
60315 PRINT"fpppiiipppppppppppppppppssssssssssssaaa"
60316 PRINT"iiiiiggggggggggggggggggggglssssssssssss"
60317 PRINT"sdsssssssssssssssssssssssslssspppppppps"
60318 PRINT"sdpssssssssssssssssssssssslsssppprppprs"
60319 PRINT"sdrsssssssssssssssssssssss0sssrppipppas"
60320 PRINT"sdpppppppppppppppppppppppppsssippppppps"
60321 PRINT"sdp1ppppppppppp4pppppppppppppppppp5ppps"
60322 PRINT"abaaaaaaaaaaaajjjjjjjjjjjjaaaaaaaaaaaas"
60380 RETURN
60399 REM BILD5
60400 :
60401 PRINT"aaaraqjpp1aragcharapppprjjjaaapcppppppp"
60402 PRINT"ppppssspppppppdppppppppppppppppkppppppp"
60403 PRINT"ppppssspppppppdppppppppppppppppkjjppppp"
60404 PRINT"pppnssspppprppdpprpppppmppppppppppppppp"
60405 PRINT"ppnpsssiiiiippdpppppppppppppppppppaappp"
60406 PRINT"ppmpssspppppqpeppppppppppppprppphhppppp"
60407 PRINT"pppmpsscapppppeppjjjcoppopppoppoppppppp"
60408 PRINT"pppimppdpsppppep3pppdpppppppppppppaaapp"
60409 PRINT"rppppmpdpsaarabaapppdpppiiiipjjjjpppprp"
60410 PRINT"aappppmdpsppppppppppdpp2pjjjjpppppppaap"
60411 PRINT"qjjjpppdpsaaaaaqjjjjdpppppppppppppiiipp"
60412 PRINT"pppppppdpsppppppppppdpppiiiipppioiqpppp"
60413 PRINT"pqjjpppdpsppppppppppdppppppppppkssssscp"
60414 PRINT"pppppppdppppppp4ppppdppppppppppkssssslp"
60415 PRINT"ppiiippbaaaaaaaaaaaabaaaaaaaaaakssssspp"
60416 PRINT"pppppppsssssssssssspqppkpplppkpplpppsps"
60417 PRINT"iipppppsssssssspppppdppkpplppkpplaacsps"
60418 PRINT"pppppppssssssssphhhpdppkpplppkpplppdsls"
60419 PRINT"ppqjjppppppppssrssspdppkpplppkpplpddsrs"
60420 PRINT"pppppppppppppsspssspdppkpplppkpplpdrsps"
60421 PRINT"iippppppppppp0ppssspdppkpplppkpplpdppls"
60422 PRINT"aaaaaaaaaqjjjjjaaaaibiqqqqqqqqqqqabaahs"
60480 RETURN
60499 REM BILD6
60500 :
60501 PRINT"ppppppppppppppppppppppppppppppppppppppq"
60502 PRINT"pppppppppppppppppppppppppppppppppqjjjpk"
60503 PRINT"pppppppphhhqjppppppppppppppppppppqppppk"
60504 PRINT"ppppppprpppppppjjjpppppppppppppppqppppk"
60505 PRINT"pppp4ppppppppppppppppppppppppjjjjqqjjjq"
60506 PRINT"pppppppcppppppppppojjppppppprpppppppppp"
60507 PRINT"ppppppnsmppppppppppppppjjjqqjppppppiiiq"
60508 PRINT"fppppnsssmppppppppppppppppppppppppppppp"
60509 PRINT"fpppnsspssmpppppppppppppppppppppppjjppp"
60510 PRINT"fppnssprpssmqqqpqqqpqqqqqmppppppppppppp"
60511 PRINT"fpnsssptpsssmqqrqqqrqqqqqqppppppppiiiiq"
60512 PRINT"fqsssssssssssiiiiiiiiiiiiimppppppppsppk"
60513 PRINT"rpsprpssspppsssssssssssssssmpppppppqppk"
60514 PRINT"irsptpsssprpssspppsssspppsssmpppppplppk"
60515 PRINT"prssdsssssnssss2rpsssspr3ssssmpppppkppk"
60516 PRINT"5hssdssssnsssssstsssssstssssssmppppkpps"
60517 PRINT"grssdssppppssssssssssssssssssssppppkppq"
60518 PRINT"rhssdssgggrsppppppppppppsppppssrpppkppk"
60519 PRINT"grssdssppptsrprrppprrpprspaarssiiiikppk"
60520 PRINT"rhssdssttttsiiiiqiiiiqiimppprssipsssspk"
60521 PRINT"rpp1dppppppssssssssssssssmprrssppssss0k"
60522 PRINT"aaaaaaaaaaassssssssssssssaqaaiiiqsssaab"
60580 RETURN