festung   90102#  100d :j=118 k=14 $4;q(j,1),q(j,2) !l$(j,k)>(j+64@)35# ^4;q(l$(j,k)-64@,1)-q(j,1),q(l$(j,k)-64@,2)-q(j,2) .05|L,j+2*k k #j (Xj=118:.05|L,j*1.5@:p(j,1),p(j,2);(j+64@):j 2 "r"1020 e$="KEIN DURCHGANG" j=14 $&m$(ap,j)=(i$-32 )1100L .dm$(ap,j)=42*l$(ap,j)=(i$-32 )e$="DURCHGANG BENUTZT":j=4:.5,-20 8j B60<:1000 L(.05|L,*502:nap=i$-96` Vm$(ap,j)=42* `j=14 j/m$(nap,j)=(ap+64@)m$(nap,j)=42* tj ~nap=dpw$="ANGREIFER" "x=ap:y=nap:nap>apx=nap:y=ap q(x,1),q(x,2) G1;4;q(y,1)-q(x,1),q(y,2)-q(x,2) -p(ap,1),p(ap,2);(ap+64@) ap=nap  70F =i$1220 w$=""520  7000X O21,0;"Verteidiger zieht(";2;145;9 ;") " i$=  i$=""i$=13 2010 "i$="a"i$="b"i$="d"2070 -e$="BLEIBE IM BEREICH!":.5,-20  60<  2000 (.05|L,*502:ndp=i$-96`  ndp=apw$="VERTEIDIGER" 4-p(dp,1),p(dp,2);(dp+64@) >dp=ndp:75K H=i$2120H Rw$=""500 \ 7000X 9'"A:Du bist der ANGREIFER"''"D:Du bist der VERTEIDIGER" !i$=:i$"a"i$"d"3010 no=i$: X,w$(1)="V"no=100dw$="Du hast" b;no=97a(no=100dw$(1)="A")w$="Ich habe" l521,0;w$;" gewonnen";:no=2"S"; v" " 5"P= Neues Spiel S= Stop ";i$ i$"p"i$"s"7040  i$="s"  150 @(i$=(c(ap)+64@+(c(ap)=3)) J621,0;"MEIN ZUG ";i$;" (Druecke ENTER)" T13 8020T ^!21,17;" " h*.05|L,*502:i$=(i$+32 ) r%1050+(1020no=97a) !4Dg=g+1:g=1i$=m$(ap,(*4)+1):8010J !>g(4):j=14 !Hpm=m$(ap,j)-64@ !R*pm=-22g(j)=-30:8600! !\(c(pm)=c(dp)g(j)=15:8600! !f"pm=dpg(j)=30:8600! !p3pm<3pm=4g(j)=-10 :8600! !zk=14 !'m$(pm,k)=42*g(j)=g(j)-1 !k !j !k=g(1) !#j=24:g(j)>kk=g(j) !j !+k=-30w$="VERTEIDIGER":7000X !j=14:g(j)kj !i$=m$(ap,j):8010J #2*p(18,2):q(18,2) #<1:j=118:p(j,1),p(j,2) #FXq(j,1)=4+p(j,2)*8:q(j,2)=172-p(j,1)*8 #Pj #Z*c(18):j=118:c(j):j #d4l$(18,4):j=118:l$(j):j #n #51,12 ,1,18,3,6,3,15,3,24,5,10 ,5,20,7,8,7,22,9 ,6,9 ,24,11 ,9 ,11 ,21,13 ,13 ,13 ,17,14,8,14,22,16,15 #1,2,3,3,3,2,1,1,2,2,1,3,3,2,1,1,2,3 $T"BCDF","ADEG","AFHJ","ABFG","BGIK","ADCH","BDEI","CFJL","GEKM","CHLP","EIMQ","HJPN","IKQO","LOPR","MNQR","JLNR","MKOR","NOPQ" $60<,60<,60<,126~,255,255,60<,60<,102f,255,255,126~,60<,60<,24,24 'A23637U\+256*23628L\-23755\;" Bytes used": 'W23730\+256*23731\-23653e\-256*23654f\;" Bytes Free"       d4|TDtt4ddLTTlDDD<<|,ed<]MBCDFADEGAFHJABFGBGIKADCHBDEICFJLGEKMCHLPEIMQHJPNIKQOLOPRMNQRJLNRMKORNOPQaMBCDFADEGAFHJABFGBGIKADCHBDEICFJLGEKMCHLPEIM*HJPNIKQOLOPRMNQRJLNRM*O*NOP* BLEIBE IM BEREICH! Wgdz!a xy dI