TankBattle    40999' 50,8;1;2;"PANZERSCHLACHT" H5,6;"idea & program by Wolfgang Hillner" G8,6;"taped by Steffen Schader" F12 ,6;" Steffen Schader Gross-Rohrheim"  "PANZER1":"PANZER2" 1x(yY)=(y+256*(y+1))/32 /a$="0800070006000500040004010402050206020601" :a$=a$+"080407040604050404040405040605060606070608060605" (>a$=a$+"0808070806080508040805090610071108120712061205120412" 2>a$=a$+"0414041504160417041805170616071508140815081608170818" <6a$=a$+"04220421042005200620072008200821082206210622" F:a$=a$+"082407240624052404240425042605260626062507250826" Pa$=a$+"062806290630" Z6a$=a$+"14021401140015001600160116021702180218011800" d.a$=a$+"140614051404150416041704180418051806" n6a$=a$+"14081508160817081808160914101510161017101810" x&a$=a$+"1412151216121712181218131814" :a$=a$+"181617161616151614161417141815181618171818181617" .a$=a$+"142214211420152016201720182018211822" 6a$=a$+"14241524162417241824162514261526162617261826" &a$=a$+"1428142914301529162917291829" '1:4:2::6: i=1̱a$/4 ,a=a$(4*i-34*i-2) $b=a$(4*i-14*i) a,b;"" i i=116 a:b a,b i +.25~,2,.375?,7,.125},2,.25~,7,.125},11 ,.125},11 ,.5,7,.25~,2,.125},7,.125},11 ,.25~,9 ,.25~,2,.25~,2,.125},4,.125},6,.75@,7 -a=2:b=7:c=11 :d=5 0 i=06 a,b+i;"":c,d+i;"" 10 a,b+i;" ":c,d+i;" " i /2,13 ;"":11 ,11 ;"" "/a=3:b=13 :c=11 :d=12 , 10 111 ,11 ;" " 6i=03 @ c,d+i;"" Jj=i*3i*3+2 T a+j,b;"" ^ 5 h a+j,b;" " rj | c,d+i;" " i 11 ,15;""  10 11 ,15;" " 2,13 ;"" 11 ,16;""  10 11 ,16;" " 2,13 ;"" 11 ,17;""  10 11 ,17;" " 2,13 ;"" 11 ,18;""  10 2,13 ;" " &11 ,18;" " 01,14;"" :11 ,19;"" D 10 N1,14;" " X0,15;"" b11 ,19;"" l 10 v0,15;"" 11 ,19;""  10 11 ,19;" " i=11 7-1 i,19;""  10 i,19;" " i 6,19;"" 0,15;""  10 6,19;" " 5,19;""  5 i=02 1+i,16+i;""  5  1+i,16+i;" " 5,19;" " i  )4,19;1;0;"" % &i=116 'a:b (a,b )i * 200 &7:7:0:0: B10 ;1;"Spielregel":10 ;1;"==========" 3,0;"Zwei Spieler Fahren je einen","Panzer, der sich auf dem ","Spielfeld in acht verschie-","dene Richtungen bewegen","lt."  "Ziel des Spiels ist es, den ge-","gnerischen Panzer abzuschie-","en, ohne dabei selbst getrof-","fen zu werden, auf eine Mine,","oder gegen eine Mauer zu","fahren." O16,5;" = Mine; durch sie kann"," man hindurchschieen." B19,5;" = Mauer; sie hlt Schs-"," se ab."  1200  K"Panzer A befindet sich in der","linken unteren Ecke des Spiel-","felds."  "Bewegungen:"  """Q"" = links drehen"  """A"" = rechts drehen"  """Q"" und ""A"" = fahren" $ ."""Z"" = schieen" 8-21,0;"Drcken Sie eine Taste!" B 4e4@ L VK"Panzer B befindet sich in der","rechten oberen Ecke des Spiel-","felds." ` j"Bewegungen," t ~"""ENTER"" = links drehen"  """P"" = rechts drehen"   """ENTER"" und ""P"" = fahren"  """0"" = schieen" -21,0;"Drcken Sie eine Taste!"  4e4@ p1=5:p2=5   4  i=190Z Ra=((42599g+2*i-1)+256*(42599g+2*i))/32 +6;2;a,(a-a)*32 ;""  i i=130 Ra=((42499+2*i-1)+256*(42499+2*i))/32 ("3;a,(a-a)*32 ;"" 2i < 1,"k" Pi=1p1 Z#1;" "; di n#1;" "; xi=1p2 #1;" "; i z=41000( *50006V,0:50017a,0 z71520 q=x(50000P) +q,(q-q)*32 ;1;1;" " i=114 .25~,30 i  /11 ,8;1;"Abschu Panzer A" p1=p1-1 z81600@ q=x(50011[) +q,(q-q)*32 ;1;1;" " i=114 .25~,30 "i , 6/11 ,8;1;"Abschu Panzer B" ;p2=p2-1 @z11690 Jq=x(50000P) O 3000 T!q,(q-q)*32 ;1;b$ ^i=130.75@ h.1}L,-30-i ri | .11 ,8;1;"Panzer A ist am" %8;1;"Rand zerschellt" p1=p1-1 z21780 q=x(50011[)  3003 !q,(q-q)*32 ;1;b$ i=130.75@ .1}L,-30-i i  .11 ,8;1;"Panzer B ist am" %8;1;"Rand zerschellt" p2=p2-1 z31860D q=x(50009Y) "q,(q-q)*32 ;1;"" i=17 (.25~,10 :.25~,30 &i 0 :]11 ,6;1;"Panzer A wurde durch":6;1;" eine Mine zerstrt " ?p1=p1-1 Dz41940 Nq=x(50009Y) X"q,(q-q)*32 ;1;"" bi=17 l(.25~,10 :.25~,30 vi  ]11 ,6;1;"Panzer B wurde durch":6;1;" eine Mine zerstrt " p2=p2-1 z52020 q=x(50000P)  3000 !q,(q-q)*32 ;1;b$ i=130.75@ .1}L,-30-i i  _11 ,6;1;"Panzer A ist an einer":6;1;" Mauer zerschellt! " p1=p1-1 z621004 q=x(50011[)  3003 !q,(q-q)*32 ;1;b$ i=130.75@  .1}L,-30-i i   *_11 ,6;1;"Panzer B ist an einer":6;1;" Mauer zerschellt! " /p2=p2-1 4 100d >p102150f C H'3;"Spieler B hat die Schlacht" R'3;"---------gewonnen---------" \ 2230 fp201250 p z'3;"Spieler A hat die Schlacht" '3;"---------gewonnen---------"  2230   1240 ,9 ,9 ;1;"**************" $9 ;1;"**************" 9 ;1;"**"; ;"Gratuliere"; 1;"**" $9 ;1;"**************" $9 ;1;"**************" i=13 j=13 '.15~,0:.55 ,15 j  10 i  "Wollen Sie noch einmal.(J/N)" z$=:z$=""2282 z$"n"1240 "Gut, dann eben nicht!"  9999' c=50002R 3010  c=50013] 3010  )c=128c=1c=2b$="" c=4b$="" )c=8c=16c=32 b$="" c=64@b$=""  #(Y"TankBattle"1:"PANZER1"41000(,4200h:"PANZER2"65368X,160 PANZER1 h(怖j!R6!"P!]6 !>"[>2W>2X>A= !W5 46!RxG xG !]xG xG !X5 06xG %xG !="֯KPȯ:R*P,"P:RO>8O*{\ "֯KPȯ:X .xG %xG !="֯K[ȯ:]*[,t"[:]O>8O*{\ "֯K[ȯxO :V > 2V*P"S:R2U!V~(95 (!="֯KSȯ:V( :U*S,ؤ"S*{\@ "֯KSȯxG :a > 2a*["^:]2`!a~(95 (!="֯K^ȯ:a( :`*^,<"^*{\@ "֯K^ȯH"YB8KY!˂͠B(!hZ˂͠B(*Y"YB8KY!˂͠B(!hZ˂͠B(*Y"YB8 >2VHKY!˂͠B( :U*Y,KY!hZ˂͠B( >2VH*[çB *Y"YB8 >2aHKY!˂͠B( :`*Y,KY!hZ˂͠B( >2aH*PçB *Y+#y# x  */3LU7531/+ sj +./0BKSTUVWXYZbfr"&9BFY}tlkjihgfe]YM=9- }yf!@ = w$ G(O(W(_(!g( o(w(( >PANZER2 Xb~~~~7~~>xxxx>~~7~~~~8|~?~~?~|8B<<<