home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8506c.d64 / springvogel (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  15KB  |  404 lines
  1. 10 REM *** JUMP.80/  8.6.84
  2. 20 POKE53280,0:POKE53281,0
  3. 25 PRINT"[147]NICHT WUNDERN UND WARTEN!!"
  4. 30 GOSUB 50000:GOTO 48000
  5. 499 REM ** JOYSTICK **
  6. 500 JS=PEEK(JP):IF (JSAND16)=0 THEN GOSUB 40000:GOTO 600
  7. 505 IF (JSANDQ1)=Q0THEN POKEW1,SW:IF UP(CM) THEN YS=YS-Q8:GOTO 590
  8. 510 IF(JSANDQ2)=Q0THEN POKEW1,SW:IF DO(CM) THEN YS=YS+Q8:GOTO590
  9. 520 IF(JSANDQ4)=Q0THEN POKEW1,SW:IF LE(CM) THEN XS=XS-Q4:GOTO590
  10. 530 IF(JSANDQ8)=Q0 THEN POKEW1,SW:IF RI(CM) THEN XS=XS+Q4
  11. 590 POKEW1,Q0
  12. 600 IFXS<OXTHENXS=OX
  13. 620 SYS(SR) Q0,XS,YS:RETURN
  14. 1000 REM *** MAIN LOOP **
  15. 1050 IF PEEK(TA)THEN1200
  16. 1055 IF PEEK(KO)ANDQ1 THEN CM=16:POKEKO,0:GOTO1100
  17. 1060 CM=USR(XS-OX) ,YS-OY:IF CM=Z8 THEN XS=8*PEEK(49426)+OX:YS=8*PEEK(49427)+OY
  18. 1070 IF CM>Q7 THEN XS=XS+DX(CM):YS=YS+DY(CM)
  19. 1075 IF TI<TG THEN PRINT"",INT(TI/100)
  20. 1080 IF CM<Z4 THEN GOSUB 500:GOTO 1050
  21. 1100 ON CM-13 GOTO 3000,2000,12000,11000,1050,15000
  22. 1200 GETB$:IFB$="[133]"THEN RETURN
  23. 1210 IF B$="[134]" THEN CM=16:GOTO 1100
  24. 1215 IF B$="[135]" THEN 11040
  25. 1217 IF B$="[136]" THEN POKE 198,0:WAIT198,1
  26. 1220 GOTO1050
  27. 2000 I=0:POKEW1,33
  28. 2010 I=I+1:YS=YS+4:IF I>8 OR YS>YG THEN CM=16:POKEW1,0:POKESI+1,GH:GOTO 1100
  29. 2015 POKESI+1,40-2*I
  30. 2020 GOSUB 600:CM=USR(XS-OX) ,YS-OY:IF CM=15 THEN   2010
  31. 2025 IFCM=18THENXS=FNX(XS)
  32. 2030 POKEW1,0:POKESI+1,GH:YS=FNY(YS):GOTO 1050
  33. 3000 RX=2-4*INT(RND(1)*2):GOSUB40100:GOSUB600:GOTO1050
  34. 10999 REM ** GEGENSTAND POSITIV, EI**
  35. 11000 POKE BS+40*PEEK(49427)+PEEK(49426),80:SC=SC+BI*10:EZ=EZ+1
  36. 11030 IF EZ<EM THEN PRINT"",,SC:GOTO1050
  37. 11035 IF TI<TG THEN SC=SC+INT((TG-TI)/10)
  38. 11040 BI=BI+1:IF BI>BM THEN RETURN
  39. 11050 GOSUB 46000:GOTO 1050
  40. 11999 :
  41. 12000 MZ=MZ-1:IF MZ=0 THEN RETURN
  42. 12050 PRINT"",,SC,MID$("******      ",7-MZ,6)
  43. 12052 POKEW1,17
  44. 12055 FOR XS=XS TO XX STEP SGN(XX-XS):GOSUB 600:POKESI+1,49+(XSAND1):NEXT
  45. 12057 FOR YS=YS TO YY STEP SGN(YY-YS):GOSUB 600:POKESI+1,52+(YSAND1):NEXT
  46. 12060 XS=XX:YS=YY:POKEKO,0:POKEW1,0
  47. 12070 GOTO 1050
  48. 15000 POKEV+29,255:POKE BS+40*PEEK(49427)+PEEK(49426),80:CM=3:XS=XS-10:SW=17
  49. 15050 JS=PEEK(56320)
  50. 15052 IF(JSAND16)=0THEN XS=XS+10:POKEV+29,254:GOSUB600:POKEKO,0:SW=129:GOTO1050
  51. 15055 IF YS<OYTHEN YS=OY
  52. 15056 IFYS>YGTHENYS=YG
  53. 15057 IFXS>XGTHENXS=XG
  54. 15060 GOSUB 505:GOTO 15050
  55. 39000 :
  56. 39999 REM **** JUMP ****
  57. 40000 IF CM>3 AND CM<8 THEN RETURN
  58. 40005 RX=0:IF (JSAND4)=0 THEN RX=-2
  59. 40010 IF (JSAND8)=0 THEN RX=2
  60. 40100 POKESI+6,16*15+13:POKEW1,17:POKEW1,16:FOR I=0 TO 13
  61. 40120 POKESI+1,104-JU(I):YS=YS-JU(I):XS=XS+RX:GOSUB 600
  62. 40130 CM=USR(XS-OX) ,YS-OY:
  63. 40140 IF CM=18 THEN XS=FNX(XS):GOTO 40300
  64. 40150 IF I<9 THEN POKEKO,0:GOTO 40250
  65. 40235 IFCM<>15OR (PEEK(KO)AND1) THEN40300
  66. 40250 NEXT
  67. 40300 IF CM<>15 THEN YS=FNY(YS)
  68. 40310 POKEW1,0:POKESI+6,16*15:POKESI+1,GH:RETURN
  69. 44990 :
  70. 45000 MZ=6:SC=0:GOSUB 46000
  71. 45100 GOSUB 1050:POKEV+21,0
  72. 45150 FORI=1TO3000:NEXT
  73. 45160 PRINT"[147][158]","DAS WARS!!!":PRINT"ERREICHTE PUNKTZAHL:",SC
  74. 45163 IFSC>HSTHENHS=SC
  75. 45165 PRINT"HIGH SCORE:",,HS
  76. 45170 PRINT"-------------------------------------[154]":PRINT,"** JUMP!! **"
  77. 45180 IF (PEEK(56320) AND 16)<>0 THEN 45180
  78. 45190 RETURN
  79. 46000 SYS(49155) 0:EZ=0:XX=120:YY=120
  80. 46010 POKE W1,0:POKESI,GL:POKESI+1,GH:SW=129:REM SOUND
  81. 46015 A=0:IFTI<TGTHENA=INT((TG-TI)/10)
  82. 46020 PRINT"[147][158]   BONUS:",A,"[157][157][157][157]PKT:";SC,MID$("******      ",7-MZ,6):PRINT
  83. 46030 FORI=1TO7:POKEXH+I,1:POKEXL+I,170:POKETY+I,0:NEXT
  84. 46050 ON BI GOSUB 60000,60100,60200,60300,60400,60500
  85. 46100 EM=0:FORI=80TO958:C=PEEK(BS+I):IFC=80THENNEXT:GOTO46200
  86. 46105 IFC=82THENEM=EM+1
  87. 46110 IFC>64ANDC<85THENPOKEFR+I,CO(C-65):NEXT:GOTO46200
  88. 46120 POKEFR+I,0:C=C-48:XS=(I-INT(I/40)*40)*8+OX:YS=INT(I/40)*8+OY
  89. 46121 IFC<0ORC>7THEN46140
  90. 46130 POKETY+C,YS+12:POKE XH+C,XS/256:POKEXL+C,XSAND255:IFC=0THENXX=XS:YY=YS
  91. 46140 NEXT
  92. 46200 TI$="000000":TG=5000+2000*BI:YS=YY:XS=XX
  93. 46220 PRINT"B";BI;"[157]  ZEIT:";"      ":RETURN
  94. 48000 REM *** MENUE ***
  95. 48040 POKEV+21,0:PRINT"[147][154]":GOSUB 60500
  96. 48041 PRINT"[145][145][145][145][145]","[129][211]F1: AUFGEBEN[211]":PRINT,"[211]F3: _ VOGEL [211]"
  97. 48042 PRINT,"[211]F5: _ BILD  [211]":PRINT,"[211]F7: PAUSE   [211]"
  98. 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]"
  99. 48044 PRINT"E[146]DIT, W[146]AHL ODER S[146]PIEL";
  100. 48045 INPUT B$:IF B$="E"THEN GOSUB 49000:GOTO 48040
  101. 48050 IF B$="S" THEN BI=1: GOSUB 45000:GOTO 48040
  102. 48060 IF B$<>"W" THEN 48040
  103. 48070 INPUT"[147]WELCHES BILD SPIELEN";B$:BI=VAL(B$):IFBI<1 OR BI>BM THEN 48070
  104. 48080 GOSUB 45000:GOTO 48040
  105. 48090 :
  106. 48999 REM *** EDITOR ****
  107. 49000 INPUT"[147]WELCHES BILD";B$:BI=VAL(B$):IF BI<0 OR BI>BM THEN 49000
  108. 49020 PRINT"BITTE WARTEN":ZN=59900+BI*100:ZA=EA
  109. 49050 IF FNAD(ZA+2)<ZN THEN ZA=FNAD(ZA):GOTO 49050
  110. 49055 POKE53281,1:PRINT"[147]":POKE53281,0
  111. 49060 ON BI GOSUB 60000,60100,60200,60300,60400,60500
  112. 49069 REM FARBE SETZEN
  113. 49070 FOR I=80 TO 958
  114. 49071 C=PEEK(BS+I)-65:IFC>=0ANDC<20THENPOKE55296+I,CO(C):NEXT:GOTO49095
  115. 49075 POKE55296+I,1:NEXT
  116. 49095 CP=80:PRINT"[154]ZEICHEN: A-T[146]  POS: 0-7[146]  CURS.[146]  CLR[146]"
  117. 49096 PRINT"AENDERUNGEN UEBERNEHMEN: _[146]  QUIT: F1[146]"
  118. 49100 POKE 646,PEEK(CP+55296):POKE204,0
  119. 49105 GET B$:IF B$="" THEN 49105
  120. 49110 POKE207,0:POKE204,1:POKEBS+CP,PEEK(BS+CP)AND127
  121. 49120 C=ASC(B$):IFC>64ANDC<85THENPOKE 646,CO(C-65):PRINTCHR$(C+32);:GOTO 49140
  122. 49125 IFB$>="0"ANDB$<"8"THENPRINT"";B$;
  123. 49130 IF B$="" OR B$="[145]" OR B$="" OR B$="[157]" THEN PRINTB$;
  124. 49140 IF PEEK(211)>38 THEN PRINT"[157]";
  125. 49150 CP=PEEK(211)+40*PEEK(214):IF CP>=24*40 OR CP<80 THEN CP=80:PRINT""
  126. 49155 IFB$="[147]"THEN POKE53281,1:PRINT"[147]":POKE53281,0:GOTO 49095
  127. 49160 IF B$<>"_" AND B$<>"[133]" THEN 49100
  128. 49170 IF B$="[133]" THEN RETURN
  129. 49200 B=BS+40:PRINT"      **** BITTE WARTEN ***        "
  130. 49210 FOR I=0 TO 21:ZA=FNAD(ZA):A=ZA+6:B=B+40
  131. 49220 FOR J=0 TO 38:C=PEEK(B+J)
  132. 49221 IF C>=48ANDC<=55THENC=C-32:GOTO49230
  133. 49229 IF C<65 OR C>84 THEN C=80
  134. 49230 POKE A+J,C+32:NEXTJ,I
  135. 49350 INPUT"[147]BILD SPIELEN (J/N)";B$:IF B$="N" THEN RETURN
  136. 49370 GOSUB 45000:RETURN
  137. 49499 RETURN
  138. 49999 REM
  139. 50000 REM ** INIT **
  140. 50010 CM=0:XS=0:YS=0:JS=0:OX=14:OY=36:T=0:TG=2000
  141. 50020 Q0=0:Q8=8:Q4=4:Q1=1:Q2=2:Q7=7:Z8=18:Z4=14:JP=56320:SR=49249:TA=198
  142. 50040 XH=49400:XL=49392:TY=49432
  143. 50042 DEFFNY(Y)=PEEK(49427)*8+OY
  144. 50045 DEFFNX(X)=PEEK(49426)*8+OX
  145. 50050 V=53248:BS=256*204:XG=320+OX:YG=200+OY
  146. 50060 KO=V+30:FR=55296:REM SPR.KOLLIS.REG / FARBRAM
  147. 50070 POKE 786,193:POKE 785,32:BM=6: REM USR ADR.,MAX.BILDER
  148. 50090 DIM JU(13):FORI=0TO13:READJU(I):NEXT
  149. 50100 DATA 5,4,3,2,1,1,0,0,-1,-1,-2,-3,-4,-5
  150. 50215 FORI=BS+1017 TO BS+1023:POKEI,16:NEXT:POKEBS+1016,14
  151. 50220 POKE V+23,0:POKE V+29,254:POKEV+39,7
  152. 50230 DIMX(7),Y(7),RX(7),RY(1):FORI=0TO7:X(I)=100:Y(I)=100:NEXT
  153. 50249 REM MAPRO-TABELLEN
  154. 50250 FORI=1TO7:POKEV+39+I,I:POKE49432+I,30*I:POKE49392+I,35*I:POKE49400+I,0
  155. 50251 POKE49416+I,1:POKE49408+I,5+RND(1)*45:NEXT:POKE49401,1
  156. 50252 POKE 49424,1:REM SB-FLAG
  157. 50410 DIM UP(20),DO(20),RI(20),LE(20),DX(20),DY(20)
  158. 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
  159. 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
  160. 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
  161. 50599 REM SOUND
  162. 50600 SI=54272:W1=SI+4
  163. 50620 POKE SI+24,15
  164. 50625 POKE SI+5,0:POKE SI+6,15*16+0
  165. 50630 GL=180:GH=18:A=0
  166. 50710 FORI=13TO16:FORN=0TO62:READ Q:A=A+Q:POKE 49152+I*64+N,Q:NEXT:NEXT
  167. 50720 IF A<>16572 THEN PRINT"DATAERROR":STOP
  168. 50800 DATA0,255,0,1,255,128,1,153,128,1,153,128,3,255,192,31,195,248
  169. 50805 DATA 63,227,252,103,243,230,195,249,195,131,253,193,3,255,192
  170. 50807 DATA 3,255,192,1,231,128,0,231,0,0,102,0,0,102,0,0,102,0,1,231,128
  171. 50809 DATA ,,,,,,,,
  172. 50810 DATA0,255,0,1,255,128,129,153,129,193,153,131,99,255,198,63,195,252
  173. 50815 DATA 31,199,248,7,207,224,3,159,192,3,191,192,3,255,192
  174. 50817 DATA 3,255,192,1,231,128,0,231,0,0,102,0,0,102,0,0,102,0,1,231,128
  175. 50819 DATA ,,,,,,,,
  176. 50850 DATA 0,192,0, 1,224,0, 3,240,0, 2,208,0, 2,208,0,3,240,0,3,240,0
  177. 50855 DATA 3,48,0,15,112,0
  178. 50857 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  179. 50870 DATA 0,192,0,1,224,0,3,240,0, 2,208,0, 2,208,0, 3,240,0, 3,240,0
  180. 50875 DATA 3,48,0,3,188,0
  181. 50880 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  182. 51000 DIM CO(19):FOR I=0 TO 19:READ CO(I):NEXT
  183. 51010 DATA 5,5,5,2,10,8,13,13,5,5,4,4,4,4,12,1,2,7,8,14
  184. 52000 REM EDIT-ANFANGSADR.
  185. 52010 DEFFNAD(X)=PEEK(X)+256*PEEK(X+1)
  186. 52020 EA=2049
  187. 52050 IF FNAD(EA+2)<59800 THEN EA=FNAD(EA):GOTO 52050
  188. 58000 REM ZEICHENSATZ NACH $E0000 (ZS), VIDERRAM NACH $CC00 (BS)
  189. 58020 ZS=14*4096:ZV=53248
  190. 58040 IF(PEEK(53272)AND254)=56 THEN RETURN
  191. 58050 POKE 53272,56:POKE 56576,148:POKE 648,204:BS=204*256
  192. 58055 PRINT"[147]       GEDULD":PRINT:GOSUB 60400
  193. 58060 POKE 56334,0:POKE 1,51
  194. 58070 FOR I=0 TO 2047:POKE ZS+I,PEEK(ZV+I):NEXT
  195. 58075 POKE 1,55:POKE 56334,1:A=0
  196. 58090 READ C:A=A+C:IF C>255 THEN 59010
  197. 58095 H=ZS+8*(C+65):FOR I=0 TO 7:READ C:A=A+C:POKE H+I,C:NEXT
  198. 58098 GOTO 58090
  199. 58100 DATA 0,255,60,24,24,24,60,255,255
  200. 58110 DATA 1,66,66,66,66,255,24,24,255
  201. 58120 DATA 2,255,24,24,255,66,66,66,66
  202. 58130 DATA 3,66,66,126,66,66,66,126,66
  203. 58140 DATA 4,12,24,48,0,12,24,48,0
  204. 58150 DATA 5,48,24,12,0,48,24,12,0
  205. 58160 DATA 6,255,129,8,4,62,4,8,255
  206. 58170 DATA 7,255,129,16,32,124,32,16,255
  207. 58180 DATA 8,255,56,28,14,14,28,56,255
  208. 58190 DATA 9,255,28,56,112,112,56,28,255
  209. 58200 DATA 10,66,66,90,102,102,66,66,66
  210. 58210 DATA 11,66,66,102,102,90,66,66,66
  211. 58220 DATA 12,192,208,112,56,28,14,7,3
  212. 58230 DATA 13,3,7,14,28,56,112,208,192
  213. 58240 DATA 14,255,62,12,48,192,48,12,62
  214. 58250 DATA 15,0,0,0,0,0,0,0,0
  215. 58260 DATA 16,0,126,126,102,102,126,126,0
  216. 58270 DATA 17,24,60,60,126,126,126,60,24
  217. 58280 DATA 18,0,223,223,0,0,251,251,0
  218. 58290 DATA 19,0,102,255,153,153,56,56,0
  219. 58299 DATA 999
  220. 59000 REM ** MAPROS **
  221. 59010 IF A<>14182 THENPRINT"DATA-ERROR IN 58100FF":STOP
  222. 59014 A=0:FOR I=49152 TO 49378:READ N:POKE I,N:A=A+N:NEXTI
  223. 59016 IF A<>27365THENPRINT"DATA ERROR":STOP
  224. 59020 DATA 80,70,83,32,158,183,224,8,176,31,189,219,192,45,21,208,141
  225. 59022 DATA 21,208,96,32,158,183,224,16,176,14,134,2,32,253,174,32,235
  226. 59024 DATA 183,165,21,201,2,144,3,76,72,178,138,72,166,2,32,10,192
  227. 59026 DATA 189,219,192,45,16,208,141,16,208,70,21,144,9,189,211,192,13
  228. 59028 DATA 16,208,141,16,208,138,10,170,104,157,1,208,165,20,157,0,208
  229. 59030 DATA 166,2,189,211,192,13,21,208,141,21,208,96
  230. 59099 REM
  231. 59100 DATA 32, 20,192,173, 16,193, 73,254,141, 16
  232. 59102 DATA193,162, 7,189,248,207, 24,109, 16,193
  233. 59104 DATA157,248,207,202, 16,243,169, 7,133, 2
  234. 59106 DATA166, 2,189, 0,193, 24,125, 8,193,157
  235. 59108 DATA 0,193,201, 64,144, 11,189, 8,193, 73
  236. 59110 DATA254,157, 8,193,176,232,234, 24,125,240
  237. 59112 DATA192,133, 20, 42, 29,248,192, 41, 1,234
  238. 59114 DATA234,133, 21,189, 24,193, 32, 45,192,198
  239. 59116 DATA 2,208,203,173,30,208,96
  240. 59140 DATA 253,174,32
  241. 59142 DATA 9,185,211,192,13,29,208,141,29,208,70,2,144,9,185,211,192
  242. 59144 DATA 13,23,208,141,23,208,96,1,2,4,8,16,32,64,128,254,253
  243. 59146 DATA 251,247,239,223,191,127
  244. 59190 REM
  245. 59195 A=0:FORI=49440TO49505:READN:A=A+N:POKEI,N:NEXT
  246. 59196 IF A<>8224THEN PRINT"DATA ERROR":STOP
  247. 59200 DATA 32,238,183,102, 21,165, 20,106, 74, 74
  248. 59202 DATA133,211,201, 40,144, 4,169, 15,176, 42
  249. 59204 DATA133,211,138, 74, 74, 74,133,214, 32,108
  250. 59206 DATA229,164,211,177,209, 56,233, 65,201, 20
  251. 59208 DATA144, 2,169, 15,201, 15,240, 14,201, 18
  252. 59210 DATA240, 10,166,211,142, 18,193,166,214,142
  253. 59212 DATA 19,193,168, 76,162,179
  254. 59800 RETURN
  255. 59999 REM BILD 1
  256. 60000 :
  257. 60001 PRINT"ppppppppppppprpppppppppppppppppppppppps"
  258. 60002 PRINT"ppppljjjjaaaaaaaaqaaaapppiiiitpppppprps"
  259. 60003 PRINT"pppplpppppeppppppppppppppppppppppppppps"
  260. 60004 PRINT"pppplpppppepppppppppppppppppppprppaaaas"
  261. 60005 PRINT"pppplpppppeppppppppppppppppppaaaaapppss"
  262. 60006 PRINT"pprplprpppeppppppppssssssssspppppppppss"
  263. 60007 PRINT"paaacaaappeaaaappppppppppppppppppppprss"
  264. 60008 PRINT"ppppfpppppeppppppp2ppppppppppppppppppss"
  265. 60009 PRINT"ppppfpppppeppppaaaaaaaaaaaaaaaaoaaaaass"
  266. 60010 PRINT"ppppfpppppeppprpppppppppppppppppppppdpp"
  267. 60011 PRINT"ppppfpppppeppaaaaappppppppppppppppppdpp"
  268. 60012 PRINT"ppppfpppppepppppppppppppppppppppppppdpp"
  269. 60013 PRINT"ppp1fpppppepppppppppppppppppppppppppdpp"
  270. 60014 PRINT"ppppfpppppeppppppppppppppppprhhhhhhabac"
  271. 60015 PRINT"ppppppppppepppppppprpppppp3pfpppppppppd"
  272. 60016 PRINT"pppprpppppeppppppppappppppppfpppppppppd"
  273. 60017 PRINT"ppppggggggeppppppprkrpppppppfpppppppppd"
  274. 60018 PRINT"ppppppppppppppppppakapppiippfppppppprpd"
  275. 60019 PRINT"pppppppppppppppppppkppppkprpfpppprppaab"
  276. 60020 PRINT"pppppppppprppppppppkppppkppppppaaaapppp"
  277. 60021 PRINT"p0pprppppaaaaiiirppkppppkaaaapppppppppp"
  278. 60022 PRINT"aaaaaaaaasssssssaaabaiiikssssssssssssss"
  279. 60030 RETURN
  280. 60100 :
  281. 60101 PRINT"ppppppppppppppppppppppppppppppppppppppp"
  282. 60102 PRINT"ppppprpprppppppppppppppppppprppprpppppp"
  283. 60103 PRINT"aaraaaaaaaapppaaarpraaapppaaaaaaaaaaraa"
  284. 60104 PRINT"ppppppppppppppppppppppppppppppppppppppp"
  285. 60105 PRINT"pprpppppiiiip4pppppppppppjjjjppppppprpp"
  286. 60106 PRINT"ppppppppppppprjjjjaiiiirppppppppppppppp"
  287. 60107 PRINT"ppriiiipppppppppppppppppppppppjjjjjprpp"
  288. 60108 PRINT"pppppppjjjpppppppppppppppppiiippppppppp"
  289. 60109 PRINT"pprpppppppjjjjpppppppppiiiippppppppprpp"
  290. 60110 PRINT"ppppppppppppppjjjpppiiipppppppppppppppp"
  291. 60111 PRINT"pp0pppppppppppppppppppppppppppppppppppp"
  292. 60112 PRINT"caaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
  293. 60113 PRINT"dsppppppppppppppppppppppppppppppppppppp"
  294. 60114 PRINT"dsprppppppppppppppppppppppppppppppppptp"
  295. 60115 PRINT"dspapppppppppppppppppppppppppppppppppap"
  296. 60116 PRINT"dsppp5ppppprppppprpppppprpp6pprpppppppr"
  297. 60117 PRINT"dsaacppppcaaaaaaaaaaaaaaaaaaaaaaaacaaaa"
  298. 60118 PRINT"dpppdppppdppppppppppppppppppppppppdpppp"
  299. 60119 PRINT"dtppdppppdppppppppppppppppppppppppdpppp"
  300. 60120 PRINT"dappdppppdpppprpprppprpprpprpprpppdpppr"
  301. 60121 PRINT"dpppdppp2dppppppppppppp3ppppppppppdpppp"
  302. 60122 PRINT"baaabaaaabaaaaaaaaaaaaaaaaaaaaaaaabaaaa"
  303. 60150 RETURN
  304. 60199 REM BILD3
  305. 60200 :
  306. 60210 PRINT"ssssrhhpqpjjjciiipppiiiriipppaaaaaaaaar"
  307. 60214 PRINT"pppsfsppppsppdpssppqppplppppppppppppppn"
  308. 60216 PRINT"iirsfsppppsppdpssppppsplpppppppp0ppppnp"
  309. 60218 PRINT"kppsfspprpsppdpssppprsplppppppppapppnpp"
  310. 60220 PRINT"kplsfspprpsppdpssppaasplpppppppppppnppp"
  311. 60222 PRINT"kplsfspprpsppdpsspppppplppppppppppnpppp"
  312. 60224 PRINT"kplsfsppppsppdpssaapppplpppppppppnppppp"
  313. 60226 PRINT"kplsfsp5pppppdpspp6pppplppppppppnpppppp"
  314. 60228 PRINT"kplsfsppiilppdpsppaappplpppppppnppppppp"
  315. 60230 PRINT"kplsfspppplppdpspppaapplppppppnpppppppp"
  316. 60234 PRINT"kplsfspppplppdpsppppppplpppppnppspppppp"
  317. 60237 PRINT"kprsfspppplppdpsaaapppplppp4npppspppprp"
  318. 60240 PRINT"kppsfspppplppdpspppaaaplpppnppppspppaap"
  319. 60244 PRINT"kppsfspppplppdpspppppkplpprpppppsaaappp"
  320. 60247 PRINT"kppsfsppppiiidiiiiiiikplppmpppppppppppp"
  321. 60250 PRINT"kptslspppppppdppppppppplpppmppppppppaap"
  322. 60254 PRINT"kppslspppppppdppppppppplppppmpppsppp2pp"
  323. 60258 PRINT"kjjjjspprpp1pdppppppppplpppppmppsaaappp"
  324. 60260 PRINT"ppppppppaaappdppppppppplppppppmpppppppp"
  325. 60263 PRINT"pppppppppppppdppppppppplpppppppmppppaaa"
  326. 60264 PRINT"pppppppppppppdpppprpp3plppppppppmpppppp"
  327. 60270 PRINT"aaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaa"
  328. 60280 RETURN
  329. 60299 REM BILD4
  330. 60300 :
  331. 60301 PRINT"paaaraappppppppppppppppppppppsssprjjjjj"
  332. 60302 PRINT"pppppppiiiiiiiriiiiiciiiiiiilssnjj2pppk"
  333. 60303 PRINT"pppppppppppppprssssslseppppplsnpppppppk"
  334. 60304 PRINT"pppiiiippppjjjjssppplseppppplnppppppprk"
  335. 60305 PRINT"pppppppppppp3ppspppplseppjaabipppiippab"
  336. 60306 PRINT"jjjppppppppppppsarsslserppppppppppppppp"
  337. 60307 PRINT"pppppppppppppppssmsslseippppprppppppppr"
  338. 60308 PRINT"pppprjjjpppppppssspslseprppiiipppiippic"
  339. 60309 PRINT"ppfhhhhhppjjjppppsrslsepippppphhhhhhhhd"
  340. 60310 PRINT"ppfspppppppppppppspslsehhhhhhhppppppppd"
  341. 60311 PRINT"ppfspppppfppjjjjpsrslsepppppppppppppppr"
  342. 60312 PRINT"prfspppppppppppppspslsepprppprppppppppj"
  343. 60313 PRINT"fahsppppppppppiipsrslseppappjjjppopppap"
  344. 60314 PRINT"fpppppiiipiiippppspspsppahhhhhhhhhhhppr"
  345. 60315 PRINT"fpppiiipppppppppppppppppssssssssssssaaa"
  346. 60316 PRINT"iiiiiggggggggggggggggggggglssssssssssss"
  347. 60317 PRINT"sdsssssssssssssssssssssssslssspppppppps"
  348. 60318 PRINT"sdpssssssssssssssssssssssslsssppprppprs"
  349. 60319 PRINT"sdrsssssssssssssssssssssss0sssrppipppas"
  350. 60320 PRINT"sdpppppppppppppppppppppppppsssippppppps"
  351. 60321 PRINT"sdp1ppppppppppp4pppppppppppppppppp5ppps"
  352. 60322 PRINT"abaaaaaaaaaaaajjjjjjjjjjjjaaaaaaaaaaaas"
  353. 60380 RETURN
  354. 60399 REM BILD5
  355. 60400 :
  356. 60401 PRINT"aaaraqjpp1aragcharapppprjjjaaapcppppppp"
  357. 60402 PRINT"ppppssspppppppdppppppppppppppppkppppppp"
  358. 60403 PRINT"ppppssspppppppdppppppppppppppppkjjppppp"
  359. 60404 PRINT"pppnssspppprppdpprpppppmppppppppppppppp"
  360. 60405 PRINT"ppnpsssiiiiippdpppppppppppppppppppaappp"
  361. 60406 PRINT"ppmpssspppppqpeppppppppppppprppphhppppp"
  362. 60407 PRINT"pppmpsscapppppeppjjjcoppopppoppoppppppp"
  363. 60408 PRINT"pppimppdpsppppep3pppdpppppppppppppaaapp"
  364. 60409 PRINT"rppppmpdpsaarabaapppdpppiiiipjjjjpppprp"
  365. 60410 PRINT"aappppmdpsppppppppppdpp2pjjjjpppppppaap"
  366. 60411 PRINT"qjjjpppdpsaaaaaqjjjjdpppppppppppppiiipp"
  367. 60412 PRINT"pppppppdpsppppppppppdpppiiiipppioiqpppp"
  368. 60413 PRINT"pqjjpppdpsppppppppppdppppppppppkssssscp"
  369. 60414 PRINT"pppppppdppppppp4ppppdppppppppppkssssslp"
  370. 60415 PRINT"ppiiippbaaaaaaaaaaaabaaaaaaaaaakssssspp"
  371. 60416 PRINT"pppppppsssssssssssspqppkpplppkpplpppsps"
  372. 60417 PRINT"iipppppsssssssspppppdppkpplppkpplaacsps"
  373. 60418 PRINT"pppppppssssssssphhhpdppkpplppkpplppdsls"
  374. 60419 PRINT"ppqjjppppppppssrssspdppkpplppkpplpddsrs"
  375. 60420 PRINT"pppppppppppppsspssspdppkpplppkpplpdrsps"
  376. 60421 PRINT"iippppppppppp0ppssspdppkpplppkpplpdppls"
  377. 60422 PRINT"aaaaaaaaaqjjjjjaaaaibiqqqqqqqqqqqabaahs"
  378. 60480 RETURN
  379. 60499 REM BILD6
  380. 60500 :
  381. 60501 PRINT"ppppppppppppppppppppppppppppppppppppppq"
  382. 60502 PRINT"pppppppppppppppppppppppppppppppppqjjjpk"
  383. 60503 PRINT"pppppppphhhqjppppppppppppppppppppqppppk"
  384. 60504 PRINT"ppppppprpppppppjjjpppppppppppppppqppppk"
  385. 60505 PRINT"pppp4ppppppppppppppppppppppppjjjjqqjjjq"
  386. 60506 PRINT"pppppppcppppppppppojjppppppprpppppppppp"
  387. 60507 PRINT"ppppppnsmppppppppppppppjjjqqjppppppiiiq"
  388. 60508 PRINT"fppppnsssmppppppppppppppppppppppppppppp"
  389. 60509 PRINT"fpppnsspssmpppppppppppppppppppppppjjppp"
  390. 60510 PRINT"fppnssprpssmqqqpqqqpqqqqqmppppppppppppp"
  391. 60511 PRINT"fpnsssptpsssmqqrqqqrqqqqqqppppppppiiiiq"
  392. 60512 PRINT"fqsssssssssssiiiiiiiiiiiiimppppppppsppk"
  393. 60513 PRINT"rpsprpssspppsssssssssssssssmpppppppqppk"
  394. 60514 PRINT"irsptpsssprpssspppsssspppsssmpppppplppk"
  395. 60515 PRINT"prssdsssssnssss2rpsssspr3ssssmpppppkppk"
  396. 60516 PRINT"5hssdssssnsssssstsssssstssssssmppppkpps"
  397. 60517 PRINT"grssdssppppssssssssssssssssssssppppkppq"
  398. 60518 PRINT"rhssdssgggrsppppppppppppsppppssrpppkppk"
  399. 60519 PRINT"grssdssppptsrprrppprrpprspaarssiiiikppk"
  400. 60520 PRINT"rhssdssttttsiiiiqiiiiqiimppprssipsssspk"
  401. 60521 PRINT"rpp1dppppppssssssssssssssmprrssppssss0k"
  402. 60522 PRINT"aaaaaaaaaaassssssssssssssaqaaiiiqsssaab"
  403. 60580 RETURN
  404.