home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_86-11_1986_Verlag_Heinz_Weise_de.d64 / fantasia (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  34KB  |  304 lines
  1. 1 ifpeek(50307)=120thenpoke50257,16
  2. 10 poke53280,2:poke53281,0:print"[158]";:goto190
  3. 20 pokesp(n),b+127:pokev+2*n,x:pokev+2*n+1,y:pokese,peek(se)or2^n
  4. 30 pokev+39+n,1:ifcthenpokev+39+n,c
  5. 40 n=n+1:c=0:return
  6. 50 poke211,x:poke214,y:sys58640:return
  7. 60 fornn=0toe:next:return
  8. 70 restore:pokebs,27:d$="":e=600:gosub60:ifw=1or(p=2andp(1))orpeek(js)=111thenreturn
  9. 80 readh$:ifval(h$)<>athen80
  10. 90 readh$:ifh$thend$=d$+h$:goto90
  11. 100 print"[159]":h$=mid$(m$,60,40):d$=h$+d$+h$:x=1:y=6:e=75:forn=1tolen(d$)-40
  12. 105 ifw=1or(p=2andp(1))orpeek(js)=111thenn=1000:goto112
  13. 110 gosub50:print">"mid$(d$,n,36)"<":gosub60
  14. 112 next:gosub50:printmid$(m$,60,39):return
  15. 120 j=peek(js):y=peek(v+1):if(jand1)=0thenpokev+1,y+4
  16. 130 if(jand2)=0thenpokev+1,y-4
  17. 140 if(jand4)=0thensysmr,1:sysmr,1
  18. 150 if(jand8)=0thensysml,1:sysml,1
  19. 160 return
  20. 170 poke29671,160:poke56295,6:return
  21. 180 rem
  22. 190 printchr$(142)chr$(8)chr$(147):hh=5e4
  23. 195 print"                     "
  24. 196 print"fantasya (c) input 64"
  25. 197 print"                     "
  26. 200 print"[213][192][192][201]":print"[221]f1[146][221]  1 spieler":print"[202][192][192][203]":print"[213][192][192][201]"
  27. 210 print"[221]f3[146][221] [160]2 spieler":print"[202][192][192][203]"
  28. 215 ifhh<>0then220
  29. 217 forjs=1topeek(828):js$=js$+chr$(peek(828+js)):next:hh=val(js$)
  30. 220 geta$:ifa$=""then220
  31. 230 rem
  32. 240 jo=34816:sc=jo+124:pz=jo+230
  33. 250 tm=jo+267:ml=jo+330:mr=jo+408:mh=jo+484:ge=jo+570:ne=jo+623
  34. 260 ifa$=chr$(133)thenap=1:p(2)=0
  35. 270 ifa$=chr$(134)thenap=2:p(2)=5
  36. 280 ifr(1)=0thenr(1)=1
  37. 290 p(1)=5:h(1)=0:h(2)=0:r(2)=r(1):p=1
  38. 300 js=32912:t=198:v=53248:bs=v+17
  39. 310 hb=v+16:se=v+21:ks=v+30:kh=v+31:m$=chr$(31):forn=0to39
  40. 320 m$=m$+chr$(59):next:m$=m$+chr$(18):forn=0to158:m$=m$+chr$(32):next
  41. 330 m$=m$+chr$(19):forn=0to7:sp(n)=29688+n:next
  42. 340 si=54272:s0=32860:s1=si+5:s2=si+6:s3=si+19:s4=si+20
  43. 350 forn=0to24:pokesi+n,0:next:pokesi+12,15:pokesi+13,0
  44. 360 pokesi+24,15:sys32768:poke56576,2:poke648,112:poke53272,203:goto430
  45. 370 ifbrthenp(p)=p(p)-1:w=1:goto420
  46. 380 r(p)=r(p)+1:ifr(p)=11thenr(p)=2
  47. 390 a=3e4:c=7e4:b=h(p):h(p)=b+s:w=0:ifb<aandb+s>athenp(p)=p(p)+1
  48. 400 ifb<candb+s>cthenp(p)=p(p)+1
  49. 410 ifb+s>hhthenhh=b+s
  50. 420 ifap=2thenp=(pand1)+1:ifr=1thenr(1)=2:r(2)=2:p=1
  51. 430 pokebs,11:ifp(p)=0thenp=(pand1)+1
  52. 440 ifp(p)then480
  53. 450 poket,0:pokese,0:pokebs,27:print"[147]"tab(54)"w[146]eiter[192]a[146]nfang":getb$:ifb$=""then450
  54. 460 ifb$<>"a"then260
  55. 470 js$=str$(hh):forjs=1tolen(js$):poke828+js,asc(mid$(js$,js,1)):next:clr:goto200
  56. 480 pokes1,3:pokes2,160:ifr(p)and2thenpokes1,8:pokes2,0
  57. 490 pokes3,0:pokes4,176:pokes0,33:ifr(p)and4thenpokes0,21:pokes3,6:pokes4,0
  58. 500 pokehb,0:pokese,0:pokev+23,0:pokev+28,255:forn=29to33:pokev+n,0:next
  59. 510 pokev+37,10:pokev+38,6:s=0:br=0:a=0:b=0:c=0:n=0:printchr$(147)chr$(5)
  60. 520 x=2:y=1:gosub50:print"hi[192]score"hh;:printtab(26)"[154]))[158]power[154])))"
  61. 530 print"  1' up[154]"h(1);:ifp=1thenprinttab(15)"*[154]";
  62. 540 printtab(26)"[154]="tab(35)"(":r=r(p):h$="= 03000  ("
  63. 550 ifrand1thenh$="= 10000  ("
  64. 560 print"  2' up[154]"h(2);:ifp=2thenprinttab(15)"*[154]";
  65. 570 printtab(26)h$:h$="=      km(":ifrand1thenh$="=        ("
  66. 580 ifr=2thenh$="=[209][209][209][209][209][209][209][209][154]("
  67. 590 print"[158]  +,  "ap"-./"r"*"p(p);:printtab(26)chr$(154)h$:printtab(26)"??????????"
  68. 600 onrgosub610,820,1050,1240,1410,1620,1850,2050,2200,2520:waitjs,127,127:goto370
  69. 610 x=14:y=16:gosub50:print"[129][169] [223]":print,"   [169]   [223]":print,"  [169][146];;;;;[223]"
  70. 620 print," [169] &  & &[223]"
  71. 630 print";;;;;;;;;;[129]               [146];;;;;;;;;";
  72. 640 print"          [129]       [146]*[129] [146]*[129]              ";
  73. 650 printright$(m$,120):gosub170:b=30:x=180:y=190:gosub20
  74. 660 b=23:x=104:y=210:c=5:gosub20:b=24:x=240:c=5:gosub20
  75. 670 b=25:x=210:y=195:gosub20:b=15:x=100:y=190:gosub20
  76. 680 b=16:x=50:y=100:gosub20:x=180:y=120:gosub20:x=254:y=110:gosub20
  77. 690 pokev+29,6:pokev+37,6:pokev+38,8:pokev+28,31:pokehb,16:pokebs,27
  78. 700 h$=mid$(m$,60,38)
  79. 710 h$=h$+"(c)  by stefan ingenhorst '86"+h$:d$="[154][159][159][154]"
  80. 720 restore:forn=0to4:readd$(n):next
  81. 730 forn=9to13:x=3:y=n:gosub50:printmid$(d$,b,1)" "d$(n-9):b=b+1:ifb>6thenb=1
  82. 740 sysmr,224:next:x=1:y=23:gosub50:z=z+1:ifz=85thenz=1
  83. 750 printchr$(31)""mid$(h$,z,38);:sysmr,224:ifpeek(js)<>111then730
  84. 760 y=23:gosub50:printmid$(h$,34,38);:w=0:a=1:gosub70:forn=0to50
  85. 770 e=99:gosub60:sysml,16:next:forn=0to9:sysml,15:fornn=0to8
  86. 780 poke53270,nn:next:sysmr,15:next:x=20:y=21:gosub50:print"[129] ";
  87. 790 e=999:gosub60:forn=0to50:e=9:gosub60:sysmr,16:next
  88. 800 print" ":a=2:gosub70:forn=190to50step-1:pokev+1,n
  89. 810 sysmr,-int(rnd(8)*(n-49)<20):e=n-49:gosub60:next:return
  90. 820 x=0:y=20:gosub50:printm$:gosub170:b=30:x=60:y=110:gosub20
  91. 830 b=15:x=170:y=170:c=2:gosub20:b=17:x=200:y=150:gosub20
  92. 840 n=5:b=16:x=100:y=100:gosub20:x=180:y=120:gosub20:x=240:y=110:gosub20
  93. 850 pokev+28,7:pokev+29,2:pokev+23,2:pokehb,1:a=3:gosub70:h=150:y=0:z=0
  94. 860 forn=2990to0step-10:syspz,10:sysjo:sysml,224:sysml,96:sysjo
  95. 870 x=peek(hb):x2=(xand1)-(xand2)/2:x2=x2*255+peek(v)-peek(v+2)-30
  96. 880 ifx2>0thensysmr,2
  97. 890 ifx2<0thensysml,2
  98. 900 ifz=99then1000
  99. 910 h=h-4:pokev+5,h:ifh>82then980
  100. 920 pokese,peek(se)and251:ifz=15thenz=99:goto980
  101. 930 x1=peek(v+2)+128*(xand2)+30:pokehb,xand251
  102. 940 pokev+4,x1and255:pokev+5,150:ifx1>255thenpokehb,xor4
  103. 950 z=z+1:pokeint(28867-z/2),32:ifx2<0theny=1
  104. 960 ifx2>0theny=0
  105. 970 pokese,peek(se)or4:h=150
  106. 980 ify=1thensysml,4:sysml,4
  107. 990 ify=0thensysmr,4:sysmr,4
  108. 1000 b=peek(ks):ifx2<0andabs(peek(v+1)-174)<3and(band3)=3thens=n:n=0:goto1030
  109. 1010 ifpeek(v+1)>188thenn=0
  110. 1020 ifb=3orb=5thenn=0
  111. 1030 next:ifs=0thenbr=1
  112. 1040 return
  113. 1050 print:print"[129]   [146][183][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][183]   "
  114. 1060 print"  "tab(21)"[146]v"tab(36)"  ":forn=0to14:printtab(38)"v":next
  115. 1070 x=0:y=9:gosub50:h$="v        v":print"v"tab(21)h$:print"v"tab(14)"v":print"v"
  116. 1080 print"v"tab(21)h$tab(35)"vvv":print"v    v      [146]         "h$
  117. 1090 print"v    v     [146]vvvvv":print"v"spc(8)"  [146]    v":printh$spc(6)h$
  118. 1100 printh$spc(6)"v":printh$"   vvvv"spc(12)h$:printh$;spc(19)h$:printh$;spc(16)"vvvv"
  119. 1110 printh$spc(9)"v"h$:printh$"v"h$:printh$
  120. 1120 print"vvvvvvvv[207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208]vvvvvvvvvvvvv"chr$(19)
  121. 1130 n=0:b=6:x=60:y=178:gosub20:b=13:x=80:y=119:gosub20
  122. 1140 x=141:y=138:gosub20:x=200:y=200:gosub20:x=180:y=174:gosub20
  123. 1150 x=130:y=202:gosub20:b=12:x=122:y=172:gosub20
  124. 1160 b=1:x=0:y=160:gosub20:a=4:gosub70:m1=ml
  125. 1170 forn=9980to0step-20:syspz,20:sysjo:systm:sysjo:sysmh:b=peek(ks)and65
  126. 1180 ifb=65thens=n:n=0
  127. 1190 ifb=1thenn=0
  128. 1200 if(peek(kh)and1)=1thengosub120
  129. 1210 b=(nand4)/4+140:fornn=1to5:pokesp(nn),b:next:next:ifs=0thenbr=1:return
  130. 1220 w=0:a=5:gosub70:forn=0to198:e=9:gosub60:sysml,128:next:forn=0to60
  131. 1230 e=9:gosub60:sysml,192:next:return
  132. 1240 h$="[154]^_[157][157]!#[145]":print,,,,,h$:print,,h$tab(35)h$:printtab(5)h$
  133. 1250 x=8:y=18:gosub50:print"xy":print"        xj   xy"spc(14)"xy"
  134. 1260 print" qy      [129][181]   qj"spc(14)"qj"
  135. 1270 print"[129]zxj[129]zzzzz [181]zzz [181]zzzzzzzzzzzzzz [181] zzzzzzzz";
  136. 1280 print"  [181]           [181]"spc(15)"[181]":print"  [181]"chr$(19)
  137. 1290 b=30:x=50:y=150:gosub20:b=1:x=254:y=100:gosub20
  138. 1300 x=150:y=120:gosub20:x=int(rnd(0)*62)*2+100:n=5:b=28:y=200:gosub20
  139. 1310 b=17:y=170:gosub20:pokehb,6:a=6:gosub70:h=170
  140. 1320 forn=2995to0step-5:syspz,5:sysml,102:sysge:sysjo:syssc
  141. 1330 sysml,102:sysge:sysml,102:sysml,96:h=h-3:pokev+13,h:ifh=149thenpokesp(5),156
  142. 1340 ifh=83thenpokesp(5),155:h=170:pokev+13,h
  143. 1350 a=peek(kh)and1:b=peek(ks):ifa*(peek(v+1)>150)thenbr=1:n=0
  144. 1360 ifband1thenbr=1:n=0
  145. 1370 ifb=66thenpokev+2,120:pokehb,peek(hb)or2
  146. 1380 ifb=68thenpokev+4,120:pokehb,peek(hb)or4
  147. 1390 a=peek(ks):next:ifbr=0thens=3000
  148. 1400 return
  149. 1410 print"jjjjj":print"qjjq":print"qqq"spc(33)"[129][166][166][166][166]";:print"q[129]z"spc(34)"[166][166][166][166]";
  150. 1420 h$="[129][185]zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz[162]"
  151. 1430 printh$"[157][157][157][157][157]qqjj[129][162]";:forn=0to10:print"[185][168]"spc(36)"[168][185]";:next
  152. 1440 x=0:y=12:gosub50:print,"[194][194]qj"spc(20)"[129][209] [209]",,"[202][203]":printh$;
  153. 1450 print"[162]qjq"spc(21)"qj[194][194][129]":print"[162]qjq"spc(23)"[202][203]":printh$;:print:print:printh$;chr$(19)::
  154. 1460 n=0:b=6:x=40:y=215:gosub20:b=18:x=0:y=149:gosub20
  155. 1470 n=4:b=12:x=66:y=102:c=6:gosub20:b=19:x=66:y=118:c=8:gosub20
  156. 1480 b=1:x=42:y=108:gosub20:b=17:x=46:gosub20
  157. 1490 pokehb,80:a=7:gosub70:x=4:h=118:forn=9995to0step-5:syspz,5
  158. 1500 sysmr,2:sysmr,2:sysne:ifnand1thensystm
  159. 1510 a=peek(hb):b=ml:ifpeek(v)+(aand1)*255>peek(v+10)+(aand32)*8thenb=mr
  160. 1520 sysb,32:h=h+4:pokev+15,h:ifh<240then1560
  161. 1530 c=peek(se):pokese,cand127:h=118:pokev+14,peek(v+10):pokev+15,h
  162. 1540 b=aand127:pokehb,b:ifband32thenpokehb,bor128
  163. 1550 pokese,c
  164. 1560 x=x+1:ifx=128thenpokev+3,int(rnd(0)*3)*32+149:x=0
  165. 1570 a=peek(ks):ifa=17thens=n:n=0
  166. 1580 ifa=129ora=3thenn=0
  167. 1590 next:ifs=0thenbr=1
  168. 1600 ifbr=0thenw=0:a=8:gosub70
  169. 1610 return
  170. 1620 print" qj  qj   qj   qj    qj  qj     qj   qj"
  171. 1630 print"yx  qj   yx      qj xy  xy   qy  qj  qy"
  172. 1640 print" [129][181]qy qyy  [129][181]yxx  x [129][181] xy  qy  qj  qy    [129][181]"
  173. 1650 print"      [129][181]   yxx   [129][181]  xy  q [129][181]   [129][181]"
  174. 1660 print,"  [129][181]    xy [129][181]":print,"    qx  xy":print,"     [129][181]   [181]"
  175. 1670 printtab(215)"qj    qj  qj"
  176. 1680 print" qj  qj qy  qjy  qjx  [129][181] qj   qj   qj  qj";
  177. 1690 print"   qj [129][181] qj   qj yy  qj  qj    qj   qj"
  178. 1700 print" qj  x  x xy  qxx yy qj  [129][181]qj    qj   qj"
  179. 1710 print" qj  yyqj y qj x yqj  qj yxx qj   qj"chr$(19)
  180. 1720 b=6:x=60:y=170:gosub20:b=20:x=6:y=156:c=7:gosub20
  181. 1730 b=22:x=148:y=140:gosub20:pokehb,4:a=9:gosub70:h=140:a=0
  182. 1740 forn=2996to0step-4:syspz,4:sysml,4:sysml,4:sysmr,2:syssc
  183. 1750 sysmr,2:sysjo:ifh=140thensysml,4:sysml,4
  184. 1760 b=peek(ks):c=peek(kh):pokesp(0),133+(nand4)/4:pokesp(1),147+(nand8)/8
  185. 1770 if(borc)and1thenn=0:br=1
  186. 1780 a=a+1:ifa=126thenpokev+3,rnd(0)*24+156:a=0
  187. 1790 c=peek(hb):b=peek(v+4)+(cand4)*64:ifb<6thenh=140:pokev+5,h
  188. 1800 ifabs(b-peek(v)-(cand1)*256)<3thenh=141
  189. 1810 ifh>200thensysml,4:sysml,4:h=h-5
  190. 1820 ifh>140thenh=h+5:pokev+5,h
  191. 1830 next:ifbr=0thens=3000
  192. 1840 return
  193. 1850 print"x xxx qxy  qj"spc(21)"xyqjqj";
  194. 1860 print"  y yx [129][181]qj qj"spc(20)"qj [129][181]qxx";:print" y   [129][181]x"spc(27)"x x [129][181]"
  195. 1870 print"     [181]"spc(13)"[129][205][206]"spc(13)"x   [129][181]":printtab(19)"[129][169][223]"
  196. 1880 printtab(18)"[169][209][209][129][223]":printtab(17)"[169][209][209][129][223]":printtab(17)"    "
  197. 1890 print,"     [205][206]":print,"     [169][223][146]   [161]    [205][206]"
  198. 1900 print,"    [169][209][209][129][223][146]  [161][160]   [169][223]":print,"   [169][209][209][129][223][146] [161][160]  [169][209][209][129][223]"
  199. 1910 print,"       [146] [161][160] [169][209][209][129][223]":print,,"[161] [160]    ":printtab(38)"qj";
  200. 1920 print"  qj"spc(32)"qjqj";:print" q[129] [181]qj"spc(30)"qj[129][182]"
  201. 1930 print"xx[129] [181] [161]"spc(31)"[161][182]"chr$(19):b=6:x=60:y=170:gosub20
  202. 1940 b=4:x=136:y=112:gosub20:x=232:y=118:gosub20:x=250:y=228:gosub20
  203. 1950 x=92:y=210:gosub20:x=100:y=215:gosub20:b=12:x=174:y=178:gosub20
  204. 1960 b=26:y=205:gosub20:a=10:gosub70:forn=9975to0step-25:syspz,25
  205. 1970 pokesp(7),153.5+rnd(0):b=131+(nand2)/2:fornn=1to5:pokesp(nn),b:next
  206. 1980 sysjo:systm:sysmh:b=peek(ks)and65:ifb=65thens=n:n=0
  207. 1990 ifb=1thenn=0
  208. 2000 ifpeek(kh)and1thengosub120
  209. 2010 next:ifs=0thenbr=1:return
  210. 2020 w=0:a=11:gosub70:pokehb,peek(hb)or1:n=0:b=2:x=122:y=160:gosub20
  211. 2030 forn=0to100:pokesp(0),129+(nand1):e=50:gosub60:sysml,1:next
  212. 2040 pokese,peek(se)and191:forn=0to100:pokesp(0),129+(nand1):e=9:gosub60:sysml,1:next:return
  213. 2050 x=0:y=20:gosub50:printm$:gosub170:b=30:x=50:y=158:gosub20
  214. 2060 b=2:x=100:y=x:gosub20:x=130:y=x:gosub20:x=180:y=x:gosub20
  215. 2070 x=130:y=150:gosub20:b=16:x=100:y=x:gosub20:x=180:y=120:gosub20
  216. 2080 x=240:y=90:gosub20:pokev+28,31:pokehb,6:a=12:gosub70:a=3:c=0
  217. 2090 forn=2996to0step-4:syspz,4
  218. 2100 sysml,254:sysml,12:sysml,94:sysml,30:sysjo:sysjo:b=(nand4)/4+129
  219. 2110 fornn=1to4:pokesp(nn),b:next:c=c+1:ifc<64then2160
  220. 2120 b=rnd(8)-.5:a=a+2:ifa=11thena=3
  221. 2130 y=peek(v+a):ify<90thenb=1
  222. 2140 ify>180thenb=-1
  223. 2150 pokev+a,y+b*40:c=0
  224. 2160 b=peek(ks):ifpeek(v+1)>188thenbr=1:n=0
  225. 2170 ifband1and(b<32)thenbr=1:n=0
  226. 2180 next:ifbr=0thens=3000
  227. 2190 return
  228. 2200 x=4:y=14:gosub50:print"[169][223]"spc(28)"[169][223]":h$="   [169]  [223][146]":printh$spc(23)h$
  229. 2210 h$="    [154][214][214] [146]":printh$spc(23)h$
  230. 2220 h$="[166][214][214][166]":print"   "h$"[154][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"h$
  231. 2230 print"  [206]"h$spc(26)h$"[205]":print" [206][180]"h$spc(26)h$"[167][205]"
  232. 2240 h$="[166][154][213][201][166]":print"[206][180][180]"h$spc(26)h$"[167][167][205]";
  233. 2250 h$="[166][154][171][179][166]":print"[180][180][180]"h$spc(26)h$"[167][167][167]";
  234. 2260 print"[154]???[215][215][215][215][146][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][215][215][215][215][146][154]???";
  235. 2270 print"       [146][221][221][221][221][221][221][175][198][177][196][197][183][183][183][183][197][196][177][198][175][221][221][221][221][221][221]    [146]"
  236. 2280 print"       [146][175][198][177][196][197][183]"spc(14)"[183][197][196][177][198][175]    "chr$(19)
  237. 2290 b=30:x=90:y=100:gosub20:b=2:x=10:y=80:gosub20:x=0:y=100:gosub20
  238. 2300 x=90:y=120:gosub20:x=100:y=155:gosub20:b=31:x=166:y=168:gosub20
  239. 2310 b=17:y=154:gosub20:b=12:x=172:y=210:gosub20
  240. 2320 pokehb,30:a=13:gosub70:z=0:h=154:forn=9990to0step-10:syspz,10
  241. 2330 sysml,30:sysjo:sysml,30:sysjo:sysml,20
  242. 2340 x=peek(hb):x2=(xand1)-(xand32)/32:y=peek(v+10):x2=x2*255+peek(v)-y
  243. 2350 ifx2>0andy<>254thensysmr,32
  244. 2360 ifx2<0andy>80thensysml,32
  245. 2370 c=peek(se):ifc=129then2430
  246. 2380 ifc=161thenx=18:y=17:gosub50:print"    ":c=129:pokese,c
  247. 2390 h=h-4:pokev+13,h:ifh>82then2430
  248. 2400 pokese,cand191:pokev+12,peek(v+10):h=154:pokev+13,h
  249. 2410 b=peek(hb)and191:pokehb,b:ifband32thenpokehb,bor64
  250. 2420 pokese,cor64
  251. 2430 a=peek(kh)and1:b=peek(ks):ifb=129thens=n:n=0:goto2490
  252. 2440 if(aandpeek(v+1)>120)orband1thenn=0
  253. 2450 if(band64)=0then2480
  254. 2460 ifz<10thenpokehb,peek(hb)or(band30):z=z+1:goto2480
  255. 2470 pokese,cand255-b
  256. 2480 b=129+(nand2)/2:fornn=1to4:pokesp(nn),b:next
  257. 2490 next:ifs=0thenbr=1
  258. 2500 ifbr=0thenw=0:a=14:gosub70
  259. 2510 return
  260. 2520 forn=0to999:poke55296+n,peek(31719+n):next
  261. 2530 poke53272,228:poke53270,144:pokebs,59:waitjs,127,127
  262. 2540 pokebs,11:poke53272,203:poke53270,200:s=1e4:return
  263. 2550 data "   [161] [146][187] [161]   [146][161] [161]   [146][188] [146][187][172] [146][190]  "
  264. 2560 data "[161][221][146][161][161][172] [146][187]  [161][221][146][161][161] [223][146][188][188]  [146][190] [161][221][146][161]"
  265. 2570 data "  [190][184][188][161][146][161][188]   [190][184][188][146][223] [223][161][146][161]  [190][184][188]"
  266. 2580 data "  [161][146][161][188]    [146][172][223] [161][146][161]    "
  267. 2590 data "  [161][146][161]    [161]   [161][146][161]    "
  268. 2600 data1,"ich hei@e euch willkommen auf tom und betty's insel !"
  269. 2610 data"    die beiden leben dort verliebt und gl_cklich.[160]"
  270. 2620 data"doch wie schnell kann sich das blatt wenden.",
  271. 2630 data2,"im hanumdrehen ist ihr gl_ck zerst^rt. betty wird von piraten "
  272. 2640 data"entf_hrt. doch tom, unser held, nimmt ohne zu z^gern[160]"
  273. 2650 data"in seinem ballon die verfolgung der kidnapper auf !!!!",
  274. 2660 data3,"tom hat nun die schwierige aufgabe, im kanonenhagel unverletzt[160]"
  275. 2670 data"links auf der landefl\che des piratenschiffs zu landen ..",
  276. 2680 data4,"tom ist die landung gegl_ckt, doch es wimmelt an bord nur so von "
  277. 2690 data"piraten. tom mu@ sich an ihnen vorbeischleichen, ohne "
  278. 2700 data"dabei _ber die reling zu gehen.",
  279. 2710 data5,"doch wieder hat tom pech. kaum h\llt er seine betty in den armen"
  280. 2720 data", wird sie von einem riesengeier ergriffen und weggetragen.",
  281. 2730 data6,"tom steigt unverdrossen wieder in seinen ballon und versucht, "
  282. 2740 data"den geiern bis in ihr nest zu folgen .",
  283. 2750 data7,"aber auch der weg ins geiernest ist dornenreich. ein pavian "
  284. 2760 data"und ein gef\hrliches eichh^rnchen behindern den aufstieg .",
  285. 2770 data8,"gerade als tom seine hand zu betty ausstreckt wird sie von einem "
  286. 2780 data"eingeborenen der humwadawadas geraubt und in sein dorf gezerrt.",
  287. 2790 data9,"wieder mu@ tom die suche fortsetzen. diesmal "
  288. 2800 data"f_hrt sie ihn durch den urwald, in dem menschenfressende tiger[160]"
  289. 2810 data"und grimmige rieseneulen auf der suche nach ihrem abendbrot sind.",
  290. 2820 data10,"als tom das dorf der humwadawadas erreicht, stellt er "
  291. 2830 data"entsetzt fest, wozu man seine betty geraubt hat. die "
  292. 2840 data"eingefleischten kannibalen wollen ein filet a la betty bereiten.",
  293. 2850 data11,"doch tom kommt wieder einmal zu sp\t. als er sich zu "
  294. 2860 data"betty herangepirscht hat, schnappt ihm im letzten "
  295. 2870 data"moment ein hubschrauber seine betty vor der nase weg.",
  296. 2880 data12,"f_r tom keine frage: er besteigt sofort seinen ballon "
  297. 2890 data"und nimmt die verfolgung der hubis auf.",
  298. 2900 data13,"tom entdeckt betty versteckt in der tower bridge. "
  299. 2910 data"nun mu@ er die hubis durch ihre eigene "
  300. 2920 data"bodenkanone austricksen, um endlich wieder mit betty "
  301. 2930 data"vereint zu sein.",
  302. 2940 data14,"so, jetzt hat tom es doch wirklich gepackt. wer "
  303. 2950 data"h\tte das gedacht ?!",
  304.