1 IFPEEK(50307)=120THENPOKE50257,16
10 POKE53280,2:POKE53281,0:PRINT"[158]";:GOTO190
20 POKESP(N),B+127:POKEV+2*N,X:POKEV+2*N+1,Y:POKESE,PEEK(SE)OR2^N
30 POKEV+39+N,1:IFCTHENPOKEV+39+N,C
40 N=N+1:C=0:RETURN
50 POKE211,X:POKE214,Y:SYS58640:RETURN
60 FORNN=0TOE:NEXT:RETURN
70 RESTORE:POKEBS,27:D$="":E=600:GOSUB60:IFW=1OR(P=2ANDP(1))ORPEEK(JS)=111THENRETURN
80 READH$:IFVAL(H$)<>ATHEN80
90 READH$:IFH$THEND$=D$+H$:GOTO90
100 PRINT"[159]":H$=MID$(M$,60,40):D$=H$+D$+H$:X=1:Y=6:E=75:FORN=1TOLEN(D$)-40
105 IFW=1OR(P=2ANDP(1))ORPEEK(JS)=111THENN=1000:GOTO112
110 GOSUB50:PRINT">"MID$(D$,N,36)"<":GOSUB60
112 NEXT:GOSUB50:PRINTMID$(M$,60,39):RETURN
120 J=PEEK(JS):Y=PEEK(V+1):IF(JAND1)=0THENPOKEV+1,Y+4
130 IF(JAND2)=0THENPOKEV+1,Y-4
140 IF(JAND4)=0THENSYSMR,1:SYSMR,1
150 IF(JAND8)=0THENSYSML,1:SYSML,1
160 RETURN
170 POKE29671,160:POKE56295,6:RETURN
180 REM
190 PRINTCHR$(142)CHR$(8)CHR$(147):HH=5E4
195 PRINT"                     "
196 PRINT"FANTASYA (C) INPUT 64"
197 PRINT"                     "
200 PRINT"[213][192][192][201]":PRINT"[221]F1[146][221]  1 SPIELER":PRINT"[202][192][192][203]":PRINT"[213][192][192][201]"
210 PRINT"[221]F3[146][221] [160]2 SPIELER":PRINT"[202][192][192][203]"
215 IFHH<>0THEN220
217 FORJS=1TOPEEK(828):JS$=JS$+CHR$(PEEK(828+JS)):NEXT:HH=VAL(JS$)
220 GETA$:IFA$=""THEN220
230 REM
240 JO=34816:SC=JO+124:PZ=JO+230
250 TM=JO+267:ML=JO+330:MR=JO+408:MH=JO+484:GE=JO+570:NE=JO+623
260 IFA$=CHR$(133)THENAP=1:P(2)=0
270 IFA$=CHR$(134)THENAP=2:P(2)=5
280 IFR(1)=0THENR(1)=1
290 P(1)=5:H(1)=0:H(2)=0:R(2)=R(1):P=1
300 JS=32912:T=198:V=53248:BS=V+17
310 HB=V+16:SE=V+21:KS=V+30:KH=V+31:M$=CHR$(31):FORN=0TO39
320 M$=M$+CHR$(59):NEXT:M$=M$+CHR$(18):FORN=0TO158:M$=M$+CHR$(32):NEXT
330 M$=M$+CHR$(19):FORN=0TO7:SP(N)=29688+N:NEXT
340 SI=54272:S0=32860:S1=SI+5:S2=SI+6:S3=SI+19:S4=SI+20
350 FORN=0TO24:POKESI+N,0:NEXT:POKESI+12,15:POKESI+13,0
360 POKESI+24,15:SYS32768:POKE56576,2:POKE648,112:POKE53272,203:GOTO430
370 IFBRTHENP(P)=P(P)-1:W=1:GOTO420
380 R(P)=R(P)+1:IFR(P)=11THENR(P)=2
390 A=3E4:C=7E4:B=H(P):H(P)=B+S:W=0:IFB<AANDB+S>ATHENP(P)=P(P)+1
400 IFB<CANDB+S>CTHENP(P)=P(P)+1
410 IFB+S>HHTHENHH=B+S
420 IFAP=2THENP=(PAND1)+1:IFR=1THENR(1)=2:R(2)=2:P=1
430 POKEBS,11:IFP(P)=0THENP=(PAND1)+1
440 IFP(P)THEN480
450 POKET,0:POKESE,0:POKEBS,27:PRINT"[147]"TAB(54)"W[146]EITER[192]A[146]NFANG":GETB$:IFB$=""THEN450
460 IFB$<>"A"THEN260
470 JS$=STR$(HH):FORJS=1TOLEN(JS$):POKE828+JS,ASC(MID$(JS$,JS,1)):NEXT:CLR:GOTO200
480 POKES1,3:POKES2,160:IFR(P)AND2THENPOKES1,8:POKES2,0
490 POKES3,0:POKES4,176:POKES0,33:IFR(P)AND4THENPOKES0,21:POKES3,6:POKES4,0
500 POKEHB,0:POKESE,0:POKEV+23,0:POKEV+28,255:FORN=29TO33:POKEV+N,0:NEXT
510 POKEV+37,10:POKEV+38,6:S=0:BR=0:A=0:B=0:C=0:N=0:PRINTCHR$(147)CHR$(5)
520 X=2:Y=1:GOSUB50:PRINT"HI[192]SCORE"HH;:PRINTTAB(26)"[154]))[158]POWER[154])))"
530 PRINT"  1' UP[154]"H(1);:IFP=1THENPRINTTAB(15)"*[154]";
540 PRINTTAB(26)"[154]="TAB(35)"(":R=R(P):H$="= 03000  ("
550 IFRAND1THENH$="= 10000  ("
560 PRINT"  2' UP[154]"H(2);:IFP=2THENPRINTTAB(15)"*[154]";
570 PRINTTAB(26)H$:H$="=      KM(":IFRAND1THENH$="=        ("
580 IFR=2THENH$="=[209][209][209][209][209][209][209][209][154]("
590 PRINT"[158]  +,  "AP"-./"R"*"P(P);:PRINTTAB(26)CHR$(154)H$:PRINTTAB(26)"??????????"
600 ONRGOSUB610,820,1050,1240,1410,1620,1850,2050,2200,2520:WAITJS,127,127:GOTO370
610 X=14:Y=16:GOSUB50:PRINT"[129][169] [223]":PRINT,"   [169]   [223]":PRINT,"  [169][146];;;;;[223]"
620 PRINT," [169] &  & &[223]"
630 PRINT";;;;;;;;;;[129]               [146];;;;;;;;;";
640 PRINT"          [129]       [146]*[129] [146]*[129]              ";
650 PRINTRIGHT$(M$,120):GOSUB170:B=30:X=180:Y=190:GOSUB20
660 B=23:X=104:Y=210:C=5:GOSUB20:B=24:X=240:C=5:GOSUB20
670 B=25:X=210:Y=195:GOSUB20:B=15:X=100:Y=190:GOSUB20
680 B=16:X=50:Y=100:GOSUB20:X=180:Y=120:GOSUB20:X=254:Y=110:GOSUB20
690 POKEV+29,6:POKEV+37,6:POKEV+38,8:POKEV+28,31:POKEHB,16:POKEBS,27
700 H$=MID$(M$,60,38)
710 H$=H$+"(C)  BY STEFAN INGENHORST '86"+H$:D$="[154][159][159][154]"
720 RESTORE:FORN=0TO4:READD$(N):NEXT
730 FORN=9TO13:X=3:Y=N:GOSUB50:PRINTMID$(D$,B,1)" "D$(N-9):B=B+1:IFB>6THENB=1
740 SYSMR,224:NEXT:X=1:Y=23:GOSUB50:Z=Z+1:IFZ=85THENZ=1
750 PRINTCHR$(31)""MID$(H$,Z,38);:SYSMR,224:IFPEEK(JS)<>111THEN730
760 Y=23:GOSUB50:PRINTMID$(H$,34,38);:W=0:A=1:GOSUB70:FORN=0TO50
770 E=99:GOSUB60:SYSML,16:NEXT:FORN=0TO9:SYSML,15:FORNN=0TO8
780 POKE53270,NN:NEXT:SYSMR,15:NEXT:X=20:Y=21:GOSUB50:PRINT"[129] ";
790 E=999:GOSUB60:FORN=0TO50:E=9:GOSUB60:SYSMR,16:NEXT
800 PRINT" ":A=2:GOSUB70:FORN=190TO50STEP-1:POKEV+1,N
810 SYSMR,-INT(RND(8)*(N-49)<20):E=N-49:GOSUB60:NEXT:RETURN
820 X=0:Y=20:GOSUB50:PRINTM$:GOSUB170:B=30:X=60:Y=110:GOSUB20
830 B=15:X=170:Y=170:C=2:GOSUB20:B=17:X=200:Y=150:GOSUB20
840 N=5:B=16:X=100:Y=100:GOSUB20:X=180:Y=120:GOSUB20:X=240:Y=110:GOSUB20
850 POKEV+28,7:POKEV+29,2:POKEV+23,2:POKEHB,1:A=3:GOSUB70:H=150:Y=0:Z=0
860 FORN=2990TO0STEP-10:SYSPZ,10:SYSJO:SYSML,224:SYSML,96:SYSJO
870 X=PEEK(HB):X2=(XAND1)-(XAND2)/2:X2=X2*255+PEEK(V)-PEEK(V+2)-30
880 IFX2>0THENSYSMR,2
890 IFX2<0THENSYSML,2
900 IFZ=99THEN1000
910 H=H-4:POKEV+5,H:IFH>82THEN980
920 POKESE,PEEK(SE)AND251:IFZ=15THENZ=99:GOTO980
930 X1=PEEK(V+2)+128*(XAND2)+30:POKEHB,XAND251
940 POKEV+4,X1AND255:POKEV+5,150:IFX1>255THENPOKEHB,XOR4
950 Z=Z+1:POKEINT(28867-Z/2),32:IFX2<0THENY=1
960 IFX2>0THENY=0
970 POKESE,PEEK(SE)OR4:H=150
980 IFY=1THENSYSML,4:SYSML,4
990 IFY=0THENSYSMR,4:SYSMR,4
1000 B=PEEK(KS):IFX2<0ANDABS(PEEK(V+1)-174)<3AND(BAND3)=3THENS=N:N=0:GOTO1030
1010 IFPEEK(V+1)>188THENN=0
1020 IFB=3ORB=5THENN=0
1030 NEXT:IFS=0THENBR=1
1040 RETURN
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]   "
1060 PRINT"  "TAB(21)"[146]V"TAB(36)"  ":FORN=0TO14:PRINTTAB(38)"V":NEXT
1070 X=0:Y=9:GOSUB50:H$="V        V":PRINT"V"TAB(21)H$:PRINT"V"TAB(14)"V":PRINT"V"
1080 PRINT"V"TAB(21)H$TAB(35)"VVV":PRINT"V    V      [146]         "H$
1090 PRINT"V    V     [146]VVVVV":PRINT"V"SPC(8)"  [146]    V":PRINTH$SPC(6)H$
1100 PRINTH$SPC(6)"V":PRINTH$"   VVVV"SPC(12)H$:PRINTH$;SPC(19)H$:PRINTH$;SPC(16)"VVVV"
1110 PRINTH$SPC(9)"V"H$:PRINTH$"V"H$:PRINTH$
1120 PRINT"VVVVVVVV[207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208]VVVVVVVVVVVVV"CHR$(19)
1130 N=0:B=6:X=60:Y=178:GOSUB20:B=13:X=80:Y=119:GOSUB20
1140 X=141:Y=138:GOSUB20:X=200:Y=200:GOSUB20:X=180:Y=174:GOSUB20
1150 X=130:Y=202:GOSUB20:B=12:X=122:Y=172:GOSUB20
1160 B=1:X=0:Y=160:GOSUB20:A=4:GOSUB70:M1=ML
1170 FORN=9980TO0STEP-20:SYSPZ,20:SYSJO:SYSTM:SYSJO:SYSMH:B=PEEK(KS)AND65
1180 IFB=65THENS=N:N=0
1190 IFB=1THENN=0
1200 IF(PEEK(KH)AND1)=1THENGOSUB120
1210 B=(NAND4)/4+140:FORNN=1TO5:POKESP(NN),B:NEXT:NEXT:IFS=0THENBR=1:RETURN
1220 W=0:A=5:GOSUB70:FORN=0TO198:E=9:GOSUB60:SYSML,128:NEXT:FORN=0TO60
1230 E=9:GOSUB60:SYSML,192:NEXT:RETURN
1240 H$="[154]^_[157][157]!#[145]":PRINT,,,,,H$:PRINT,,H$TAB(35)H$:PRINTTAB(5)H$
1250 X=8:Y=18:GOSUB50:PRINT"XY":PRINT"        XJ   XY"SPC(14)"XY"
1260 PRINT" QY      [129][181]   QJ"SPC(14)"QJ"
1270 PRINT"[129]ZXJ[129]ZZZZZ [181]ZZZ [181]ZZZZZZZZZZZZZZ [181] ZZZZZZZZ";
1280 PRINT"  [181]           [181]"SPC(15)"[181]":PRINT"  [181]"CHR$(19)
1290 B=30:X=50:Y=150:GOSUB20:B=1:X=254:Y=100:GOSUB20
1300 X=150:Y=120:GOSUB20:X=INT(RND(0)*62)*2+100:N=5:B=28:Y=200:GOSUB20
1310 B=17:Y=170:GOSUB20:POKEHB,6:A=6:GOSUB70:H=170
1320 FORN=2995TO0STEP-5:SYSPZ,5:SYSML,102:SYSGE:SYSJO:SYSSC
1330 SYSML,102:SYSGE:SYSML,102:SYSML,96:H=H-3:POKEV+13,H:IFH=149THENPOKESP(5),156
1340 IFH=83THENPOKESP(5),155:H=170:POKEV+13,H
1350 A=PEEK(KH)AND1:B=PEEK(KS):IFA*(PEEK(V+1)>150)THENBR=1:N=0
1360 IFBAND1THENBR=1:N=0
1370 IFB=66THENPOKEV+2,120:POKEHB,PEEK(HB)OR2
1380 IFB=68THENPOKEV+4,120:POKEHB,PEEK(HB)OR4
1390 A=PEEK(KS):NEXT:IFBR=0THENS=3000
1400 RETURN
1410 PRINT"JJJJJ":PRINT"QJJQ":PRINT"QQQ"SPC(33)"[129][166][166][166][166]";:PRINT"Q[129]Z"SPC(34)"[166][166][166][166]";
1420 H$="[129][185]ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ[162]"
1430 PRINTH$"[157][157][157][157][157]QQJJ[129][162]";:FORN=0TO10:PRINT"[185][168]"SPC(36)"[168][185]";:NEXT
1440 X=0:Y=12:GOSUB50:PRINT,"[194][194]QJ"SPC(20)"[129][209] [209]",,"[202][203]":PRINTH$;
1450 PRINT"[162]QJQ"SPC(21)"QJ[194][194][129]":PRINT"[162]QJQ"SPC(23)"[202][203]":PRINTH$;:PRINT:PRINT:PRINTH$;CHR$(19)::
1460 N=0:B=6:X=40:Y=215:GOSUB20:B=18:X=0:Y=149:GOSUB20
1470 N=4:B=12:X=66:Y=102:C=6:GOSUB20:B=19:X=66:Y=118:C=8:GOSUB20
1480 B=1:X=42:Y=108:GOSUB20:B=17:X=46:GOSUB20
1490 POKEHB,80:A=7:GOSUB70:X=4:H=118:FORN=9995TO0STEP-5:SYSPZ,5
1500 SYSMR,2:SYSMR,2:SYSNE:IFNAND1THENSYSTM
1510 A=PEEK(HB):B=ML:IFPEEK(V)+(AAND1)*255>PEEK(V+10)+(AAND32)*8THENB=MR
1520 SYSB,32:H=H+4:POKEV+15,H:IFH<240THEN1560
1530 C=PEEK(SE):POKESE,CAND127:H=118:POKEV+14,PEEK(V+10):POKEV+15,H
1540 B=AAND127:POKEHB,B:IFBAND32THENPOKEHB,BOR128
1550 POKESE,C
1560 X=X+1:IFX=128THENPOKEV+3,INT(RND(0)*3)*32+149:X=0
1570 A=PEEK(KS):IFA=17THENS=N:N=0
1580 IFA=129ORA=3THENN=0
1590 NEXT:IFS=0THENBR=1
1600 IFBR=0THENW=0:A=8:GOSUB70
1610 RETURN
1620 PRINT" QJ  QJ   QJ   QJ    QJ  QJ     QJ   QJ"
1630 PRINT"YX  QJ   YX      QJ XY  XY   QY  QJ  QY"
1640 PRINT" [129][181]QY QYY  [129][181]YXX  X [129][181] XY  QY  QJ  QY    [129][181]"
1650 PRINT"      [129][181]   YXX   [129][181]  XY  Q [129][181]   [129][181]"
1660 PRINT,"  [129][181]    XY [129][181]":PRINT,"    QX  XY":PRINT,"     [129][181]   [181]"
1670 PRINTTAB(215)"QJ    QJ  QJ"
1680 PRINT" QJ  QJ QY  QJY  QJX  [129][181] QJ   QJ   QJ  QJ";
1690 PRINT"   QJ [129][181] QJ   QJ YY  QJ  QJ    QJ   QJ"
1700 PRINT" QJ  X  X XY  QXX YY QJ  [129][181]QJ    QJ   QJ"
1710 PRINT" QJ  YYQJ Y QJ X YQJ  QJ YXX QJ   QJ"CHR$(19)
1720 B=6:X=60:Y=170:GOSUB20:B=20:X=6:Y=156:C=7:GOSUB20
1730 B=22:X=148:Y=140:GOSUB20:POKEHB,4:A=9:GOSUB70:H=140:A=0
1740 FORN=2996TO0STEP-4:SYSPZ,4:SYSML,4:SYSML,4:SYSMR,2:SYSSC
1750 SYSMR,2:SYSJO:IFH=140THENSYSML,4:SYSML,4
1760 B=PEEK(KS):C=PEEK(KH):POKESP(0),133+(NAND4)/4:POKESP(1),147+(NAND8)/8
1770 IF(BORC)AND1THENN=0:BR=1
1780 A=A+1:IFA=126THENPOKEV+3,RND(0)*24+156:A=0
1790 C=PEEK(HB):B=PEEK(V+4)+(CAND4)*64:IFB<6THENH=140:POKEV+5,H
1800 IFABS(B-PEEK(V)-(CAND1)*256)<3THENH=141
1810 IFH>200THENSYSML,4:SYSML,4:H=H-5
1820 IFH>140THENH=H+5:POKEV+5,H
1830 NEXT:IFBR=0THENS=3000
1840 RETURN
1850 PRINT"X XXX QXY  QJ"SPC(21)"XYQJQJ";
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]"
1870 PRINT"     [181]"SPC(13)"[129][205][206]"SPC(13)"X   [129][181]":PRINTTAB(19)"[129][169][223]"
1880 PRINTTAB(18)"[169][209][209][129][223]":PRINTTAB(17)"[169][209][209][129][223]":PRINTTAB(17)"    "
1890 PRINT,"     [205][206]":PRINT,"     [169][223][146]   [161]    [205][206]"
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]"
1910 PRINT,"       [146] [161][160] [169][209][209][129][223]":PRINT,,"[161] [160]    ":PRINTTAB(38)"QJ";
1920 PRINT"  QJ"SPC(32)"QJQJ";:PRINT" Q[129] [181]QJ"SPC(30)"QJ[129][182]"
1930 PRINT"XX[129] [181] [161]"SPC(31)"[161][182]"CHR$(19):B=6:X=60:Y=170:GOSUB20
1940 B=4:X=136:Y=112:GOSUB20:X=232:Y=118:GOSUB20:X=250:Y=228:GOSUB20
1950 X=92:Y=210:GOSUB20:X=100:Y=215:GOSUB20:B=12:X=174:Y=178:GOSUB20
1960 B=26:Y=205:GOSUB20:A=10:GOSUB70:FORN=9975TO0STEP-25:SYSPZ,25
1970 POKESP(7),153.5+RND(0):B=131+(NAND2)/2:FORNN=1TO5:POKESP(NN),B:NEXT
1980 SYSJO:SYSTM:SYSMH:B=PEEK(KS)AND65:IFB=65THENS=N:N=0
1990 IFB=1THENN=0
2000 IFPEEK(KH)AND1THENGOSUB120
2010 NEXT:IFS=0THENBR=1:RETURN
2020 W=0:A=11:GOSUB70:POKEHB,PEEK(HB)OR1:N=0:B=2:X=122:Y=160:GOSUB20
2030 FORN=0TO100:POKESP(0),129+(NAND1):E=50:GOSUB60:SYSML,1:NEXT
2040 POKESE,PEEK(SE)AND191:FORN=0TO100:POKESP(0),129+(NAND1):E=9:GOSUB60:SYSML,1:NEXT:RETURN
2050 X=0:Y=20:GOSUB50:PRINTM$:GOSUB170:B=30:X=50:Y=158:GOSUB20
2060 B=2:X=100:Y=X:GOSUB20:X=130:Y=X:GOSUB20:X=180:Y=X:GOSUB20
2070 X=130:Y=150:GOSUB20:B=16:X=100:Y=X:GOSUB20:X=180:Y=120:GOSUB20
2080 X=240:Y=90:GOSUB20:POKEV+28,31:POKEHB,6:A=12:GOSUB70:A=3:C=0
2090 FORN=2996TO0STEP-4:SYSPZ,4
2100 SYSML,254:SYSML,12:SYSML,94:SYSML,30:SYSJO:SYSJO:B=(NAND4)/4+129
2110 FORNN=1TO4:POKESP(NN),B:NEXT:C=C+1:IFC<64THEN2160
2120 B=RND(8)-.5:A=A+2:IFA=11THENA=3
2130 Y=PEEK(V+A):IFY<90THENB=1
2140 IFY>180THENB=-1
2150 POKEV+A,Y+B*40:C=0
2160 B=PEEK(KS):IFPEEK(V+1)>188THENBR=1:N=0
2170 IFBAND1AND(B<32)THENBR=1:N=0
2180 NEXT:IFBR=0THENS=3000
2190 RETURN
2200 X=4:Y=14:GOSUB50:PRINT"[169][223]"SPC(28)"[169][223]":H$="   [169]  [223][146]":PRINTH$SPC(23)H$
2210 H$="    [154][214][214] [146]":PRINTH$SPC(23)H$
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$
2230 PRINT"  [206]"H$SPC(26)H$"[205]":PRINT" [206][180]"H$SPC(26)H$"[167][205]"
2240 H$="[166][154][213][201][166]":PRINT"[206][180][180]"H$SPC(26)H$"[167][167][205]";
2250 H$="[166][154][171][179][166]":PRINT"[180][180][180]"H$SPC(26)H$"[167][167][167]";
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]???";
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]"
2280 PRINT"       [146][175][198][177][196][197][183]"SPC(14)"[183][197][196][177][198][175]    "CHR$(19)
2290 B=30:X=90:Y=100:GOSUB20:B=2:X=10:Y=80:GOSUB20:X=0:Y=100:GOSUB20
2300 X=90:Y=120:GOSUB20:X=100:Y=155:GOSUB20:B=31:X=166:Y=168:GOSUB20
2310 B=17:Y=154:GOSUB20:B=12:X=172:Y=210:GOSUB20
2320 POKEHB,30:A=13:GOSUB70:Z=0:H=154:FORN=9990TO0STEP-10:SYSPZ,10
2330 SYSML,30:SYSJO:SYSML,30:SYSJO:SYSML,20
2340 X=PEEK(HB):X2=(XAND1)-(XAND32)/32:Y=PEEK(V+10):X2=X2*255+PEEK(V)-Y
2350 IFX2>0ANDY<>254THENSYSMR,32
2360 IFX2<0ANDY>80THENSYSML,32
2370 C=PEEK(SE):IFC=129THEN2430
2380 IFC=161THENX=18:Y=17:GOSUB50:PRINT"    ":C=129:POKESE,C
2390 H=H-4:POKEV+13,H:IFH>82THEN2430
2400 POKESE,CAND191:POKEV+12,PEEK(V+10):H=154:POKEV+13,H
2410 B=PEEK(HB)AND191:POKEHB,B:IFBAND32THENPOKEHB,BOR64
2420 POKESE,COR64
2430 A=PEEK(KH)AND1:B=PEEK(KS):IFB=129THENS=N:N=0:GOTO2490
2440 IF(AANDPEEK(V+1)>120)ORBAND1THENN=0
2450 IF(BAND64)=0THEN2480
2460 IFZ<10THENPOKEHB,PEEK(HB)OR(BAND30):Z=Z+1:GOTO2480
2470 POKESE,CAND255-B
2480 B=129+(NAND2)/2:FORNN=1TO4:POKESP(NN),B:NEXT
2490 NEXT:IFS=0THENBR=1
2500 IFBR=0THENW=0:A=14:GOSUB70
2510 RETURN
2520 FORN=0TO999:POKE55296+N,PEEK(31719+N):NEXT
2530 POKE53272,228:POKE53270,144:POKEBS,59:WAITJS,127,127
2540 POKEBS,11:POKE53272,203:POKE53270,200:S=1E4:RETURN
2550 DATA "   [161] [146][187] [161]   [146][161] [161]   [146][188] [146][187][172] [146][190]  "
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]"
2570 DATA "  [190][184][188][161][146][161][188]   [190][184][188][146][223] [223][161][146][161]  [190][184][188]"
2580 DATA "  [161][146][161][188]    [146][172][223] [161][146][161]    "
2590 DATA "  [161][146][161]    [161]   [161][146][161]    "
2600 DATA1,"ICH HEI@E EUCH WILLKOMMEN AUF TOM UND BETTY'S INSEL !"
2610 DATA"    DIE BEIDEN LEBEN DORT VERLIEBT UND GL_CKLICH.[160]"
2620 DATA"DOCH WIE SCHNELL KANN SICH DAS BLATT WENDEN.",
2630 DATA2,"IM HANUMDREHEN IST IHR GL_CK ZERST^RT. BETTY WIRD VON PIRATEN "
2640 DATA"ENTF_HRT. DOCH TOM, UNSER HELD, NIMMT OHNE ZU Z^GERN[160]"
2650 DATA"IN SEINEM BALLON DIE VERFOLGUNG DER KIDNAPPER AUF !!!!",
2660 DATA3,"TOM HAT NUN DIE SCHWIERIGE AUFGABE, IM KANONENHAGEL UNVERLETZT[160]"
2670 DATA"LINKS AUF DER LANDEFL\CHE DES PIRATENSCHIFFS ZU LANDEN ..",
2680 DATA4,"TOM IST DIE LANDUNG GEGL_CKT, DOCH ES WIMMELT AN BORD NUR SO VON "
2690 DATA"PIRATEN. TOM MU@ SICH AN IHNEN VORBEISCHLEICHEN, OHNE "
2700 DATA"DABEI _BER DIE RELING ZU GEHEN.",
2710 DATA5,"DOCH WIEDER HAT TOM PECH. KAUM H\LLT ER SEINE BETTY IN DEN ARMEN"
2720 DATA", WIRD SIE VON EINEM RIESENGEIER ERGRIFFEN UND WEGGETRAGEN.",
2730 DATA6,"TOM STEIGT UNVERDROSSEN WIEDER IN SEINEN BALLON UND VERSUCHT, "
2740 DATA"DEN GEIERN BIS IN IHR NEST ZU FOLGEN .",
2750 DATA7,"ABER AUCH DER WEG INS GEIERNEST IST DORNENREICH. EIN PAVIAN "
2760 DATA"UND EIN GEF\HRLICHES EICHH^RNCHEN BEHINDERN DEN AUFSTIEG .",
2770 DATA8,"GERADE ALS TOM SEINE HAND ZU BETTY AUSSTRECKT WIRD SIE VON EINEM "
2780 DATA"EINGEBORENEN DER HUMWADAWADAS GERAUBT UND IN SEIN DORF GEZERRT.",
2790 DATA9,"WIEDER MU@ TOM DIE SUCHE FORTSETZEN. DIESMAL "
2800 DATA"F_HRT SIE IHN DURCH DEN URWALD, IN DEM MENSCHENFRESSENDE TIGER[160]"
2810 DATA"UND GRIMMIGE RIESENEULEN AUF DER SUCHE NACH IHREM ABENDBROT SIND.",
2820 DATA10,"ALS TOM DAS DORF DER HUMWADAWADAS ERREICHT, STELLT ER "
2830 DATA"ENTSETZT FEST, WOZU MAN SEINE BETTY GERAUBT HAT. DIE "
2840 DATA"EINGEFLEISCHTEN KANNIBALEN WOLLEN EIN FILET A LA BETTY BEREITEN.",
2850 DATA11,"DOCH TOM KOMMT WIEDER EINMAL ZU SP\T. ALS ER SICH ZU "
2860 DATA"BETTY HERANGEPIRSCHT HAT, SCHNAPPT IHM IM LETZTEN "
2870 DATA"MOMENT EIN HUBSCHRAUBER SEINE BETTY VOR DER NASE WEG.",
2880 DATA12,"F_R TOM KEINE FRAGE: ER BESTEIGT SOFORT SEINEN BALLON "
2890 DATA"UND NIMMT DIE VERFOLGUNG DER HUBIS AUF.",
2900 DATA13,"TOM ENTDECKT BETTY VERSTECKT IN DER TOWER BRIDGE. "
2910 DATA"NUN MU@ ER DIE HUBIS DURCH IHRE EIGENE "
2920 DATA"BODENKANONE AUSTRICKSEN, UM ENDLICH WIEDER MIT BETTY "
2930 DATA"VEREINT ZU SEIN.",
2940 DATA14,"SO, JETZT HAT TOM ES DOCH WIRKLICH GEPACKT. WER "
2950 DATA"H\TTE DAS GEDACHT ?!",