schild3 (zbsc mr ml mh zbsc rfgo30lfgo20hfgo25z1go7 z2dl zbsc vo go1 ml lfgo20go9 mh hfgo25go10 mr rfgo30go8 rundguck5 Y(zbsc mv mh dl zbsc zbsc dl vfgo28zbsc zbsc dl zbsc dl vfgo28 sc zbsc vfvo z2dr go1 dr ml zbsc vfvo ml zbsc vfvo z3go1 go30 laeufer (zbsc vo z2dl go1 diagonal {(zbsc mr mv dr vfgo19sc lfgo20vfvo zbsc dl zbsc vfvo z2dr go1 dr ml zbsc vfvo z2go1 go20 zweikampf *R&*Zweikampf  von B.Kamp ca. Ende der 80er 6000p  7000X mehrere Kaempfe  g(2) f$=""  6500d R1,0;1;147;" ";1;": ";n$(1);":";g(1) A2;151;" ";2;": ";n$(2);":";g(2) (p(1)=1:p(2)=1 >0.51035  <spi=1:(y(1),x(1))5791100L  3000 5(y(1),x(1))579f$""1100L  <spi=2:(y(2),x(2))58:1100L  3000 5f$""ū(y(2),x(2))58:1100L $ ="e": . 1015 NLf$=""f$="56"g(1+(spi-1))=g(1+(spi-1))+1 Q(f$="57"f$="58"g(spi)=g(spi)+1 ` 1005 Zweikampf f$="" (p(1)=1:p(2)=1 <spi=1:(y(1),x(1))57921004  3000 5(y(1),x(1))579f$""21004 <spi=2:(y(2),x(2))58:21004  3000 5f$""ū(y(2),x(2))58:21004  ="e": 1,1;"%";f$;"%"  2015 4Cװ".5","20":18,10 ;1;"TASTE DRUECKEN":"0": 6=f$=""f$="56""21","5";"Spieler ";spi;" hat verloren": 7If$="57"f$="58""21","5";"Spieler ";"(spi-1)+1";" hat verloren": > "8000" Interpreter c$=p$(spi,p(spi)) c$(2)" "3030 2p(spi)=p(spi)+1:p(spi)=41)f$="p": 3020 90102# c$(1)="z"9050Z# c$(1)="m"9030F# c$(2)="f"9060d# %b$,adr:b$=c$(2)3080 b$""3050 f$="s": p(spi)=p(spi)+1 p(spi)=41)f$="p": adr f$""p(spi)=p(spi)-1 : drehe rechts r(spi)=4r(spi)=0 r(spi)=r(spi)+1 5y(spi),x(spi);spi;(139+4*spi+r(spi))  drehe links r(spi)=1r(spi)=5 r(spi)=r(spi)-1 5y(spi),x(spi);spi;(139+4*spi+r(spi))   goto b$=c$(3) :f=1̱b$:b$(f)" "(b$(f)<"0"b$(f)>"9")f$="s": $b$>40(f$="z": .p(spi)=b$: t vor ~y(spi),x(spi);7;"a" Hr(spi)=3y(spi)=y(spi)+1:y(spi)=13 y(spi)=5 Hr(spi)=1y(spi)=y(spi)-1:y(spi)=4y(spi)=12 Ir(spi)=2x(spi)=x(spi)+1:x(spi)=19x(spi)=11 Ir(spi)=4x(spi)=x(spi)-1:x(spi)=10 x(spi)=18 1(y(spi),x(spi))63?f$=(y(spi),x(spi)) 5y(spi),x(spi);spi;(139+4*spi+r(spi))   Schuss x=x(spi):y=y(spi) f=14 f1y,x;7;" " 4r(spi)=1y=y-1:y=4y=12 5r(spi)=2x=x+1:x=19x=11  4r(spi)=3y=y+1:y=13 y=5 5r(spi)=4x=x-1:x=10 x=18 (y,x)63?3900< ( y,x;"" 2f <y,x;7;" " F nMine legen xrm13990 .y(spi)5y(spi)-1,x(spi);"": 12 ,x(spi);"": : rm34020 /y(spi)12 y(spi)+1,x(spi);"": 5,x(spi);"": : rm24050 /x(spi)18y(spi),x(spi)+1;"": y(spi),11 ;"": : /x(spi)11 y(spi),x(spi)-1;"": y(spi),18;""  Mine vorne  rm=r(spi)  3960x "Mine rechts ,+rm=r(spi)+1:rm=5rm=1 6 3960x @Mine links J+rm=r(spi)-1:rm=0rm=4 T 3960x ^Mine hinten h.rm=r(spi)+2:rm>4rm=rm-4 r 3960x Bedingungen c$=c$(3)  90102# f=19 b$,adr c$(2)=b$4330 f  f$="s": adr Zufall 1 <.5  4260 0Zufall 2 :<.8L D 4260 NZufall 3 S<.95s333 X 4260 b frei ? lrm14490 v7y(spi)5b=(y(spi)-1,x(spi))=63?: !b=(12 ,x(spi))=63?: rm34520 8y(spi)12 b=(y(spi)+1,x(spi))=63?:  b=(5,x(spi))=63?: rm24550 8x(spi)18b=(y(spi),x(spi)+1)=63?: !b=(y(spi),11 )=63?: 8x(spi)11 b=(y(spi),x(spi)-1)=63?: !b=(y(spi),18)=63?: vorne frei  rm=r(spi) 4450b:b  4260 rechts frei +rm=r(spi)+1:rm=5rm=1 4450b:b  4260  links frei +rm=r(spi)-1:rm=0rm=4  4450b:b % 4260 *hinten frei 4.rm=r(spi)+2:rm>4rm=rm-4 >4450b:b C 4260 \ Zeile a b=0 fx=x(spi):y=y(spi) pf=14 z4r(spi)=1y=y-1:y=4y=12 5r(spi)=2x=x+1:x=19x=11 4r(spi)=3y=y+1:y=13 y=5 5r(spi)=4x=x-1:x=10 x=18 (y,x)63?b=1 f  $Zeile frei .4705a:b 8 4260 VZeile besetzt `4705a:b j 4260  Editor  )"e:ENDE li:LISTING":"s:SYNTAXINFO": a$(11 ):" ";a$ 9a$(1)"9"a$(1)"0"5100:5010 +a$(2)="li"5200P:5010 a$(1)="s"85004! a$(1)="e":  5010 Zeile bearbeiten zei=a$(1) La$(2)"9"a$(2)"0"zei=a$(12):a$=a$(2) "a$(2)=" "a$=a$(2) a$=a$(2) ,a$(3)=" "a$(3)=a$(4) ,a$(5)=" "a$(5)=a$(6)  zei>40( p$(spi,zei)=a$ 3zei;" ";a$(̰"2");" ";a$("3"̰"4");" ";a$("5")  P Listen U nn=140( xcp$(spi,n)" "n;" ";p$(spi,n,2);" ";p$(spi,n,34);" ";p$(spi,n,5)  ="e": n   pVorbereiten z "udg""a"  spi="1" %s$("40","6"):p$("2","40","6") $p("2"):r("2"):x("2"):y("2")  v("2") ٰ"0":ڰ"7":ܰ"0":"7" n$(2,10 ) :  Info  :"IDEE:"'"2 Programme steuern 2 Spieler."'"Diese bekaempfen sich in einer"'"Arena durch Minen und Schuesse."''"MENUE-BEDIENUNG:"'"'3' wechselt aktiven Spieler."'"Fuer aktiven Spieler kann je-"'"weiliges Programm geladen,"'"gespeichert oder editiert werden."''"PROGRAMME und SYNTAX:"'"* nutzen Zeilennummern"'"* 2Zeichen-Befehle: z.B."'" 'sc' fuer Schuss"'"* bedingte Befehle durch Voran-"'" stellen Bedingung"'"* Beispiel-Programm / Befehls-"'" umfang siehe Editor." '"WEITER MIT TASTE" ""6170 $=""6180$ .: dSpielfeld i n"4","10";"" x"13","10";"" n="5"̰"12" )n,"10";"";ٰ"7";"aaaaaaaa";ٰ"0";"" n *r("1")="(*4)+1":r("2")="(*4)+1" v("1")="0":v("2")="0" x("1")="(*8)+11" x("2")="(*8)+11" y("1")="(*8)+5" y("2")="(*8)+5" y("2")=y("1")6600 %y("1"),x("1");ٰ"1";°"143+r(1)" %y("2"),x("2");ٰ"2";°"147+r(2)" %21,4;"Abbruch mit 'e'" , X Menue k2"0","0";" ZWEIKAMPF " l)"3","6";"aktiver Spieler: ";spi;spi m17;spi;n$(spi) v"7","6";"1 kaempfen"''"6";"2 editieren"''"6";"3 aktiven Spieler wechseln"''"6";"4 speichern"''"6";"5 laden" w '"6";"6 mehrere Kaempfe" y'"6";"7 Info" "="1""6500":"2000":"7000" ="6""1000":"7000" ="7""6100":"7000" ="2""5000":"7000" 4="3"spi="(spi-1)+1":n="1"̰"10":n:"7000" ="4""7300":"7000" ="5""7400":"7000"  7040 "n="1"̰"40":s$(n)=p$(spi,n):n :"Programmname :";b$  b$s$()  n$(spi)=b$  :"Welches Programm ? :";b$  n$(spi)=b$  b$s$() "n="1"̰"40":p$(spi,n)=s$(n):n : @ Fehler J"21","5"; Tf$="s""Syntaxfehler"; ^"f$="z""Zeilennummer zu gross"; hf$="p""Programmende"; r" in ";p(spi);" bei ";spi: !4Syntaxinfo !6"Beispielprogramm" !8"1 sc SCHUSS" !9A"2 z1 dr MIT 50% WAHRSCHEIN-"'" LICKEIT RECHTS DREHEN" !:""4 vf vo VOR, FALLS VORNE FREI" !;"7 go 1 GEHE ZU ZEILE 1" !>'"Befehle" !@" vo: VOR" !C$ " dr/dl: DREHE RECHTS/LINKS" !H" sc: SCHUSS" !M#"ml/mr/mh/mv: MINE LINKS/RECHTS/" !N" HINTEN/VORNE" !R$" go xx: SPRUNG in ZEILE xx" !W'"Bedingungen" !\$" z1/z2/z3: ZUFALL; WAHRSCHEIN-" !^$" LICHKEIT 50%/20%/5%" !a$" zb/zf: ZEILE BESETZT/FREI?" !f?"lf/rf/hf/vf: POSITION LINKS/RE/"'" HI/VO FREI?"' !p #( Befehle #2!"dr",3500 ,"dl",3550 #7!"go",3600,"vo",3700t #<"sc",3800 #F!"mv",4100,"mr",4130" #P!"ml",4160@,"mh",4200h #Z1"z1",4350,"z2",44000,"z3",4435S #d!"zf",4900$,"zb",4950V #i!"vf",4560,"rf",4600 #n!"lf",4620 ,"hf",4650* #x "",0 % Saven %&*"zweikampf"1:"udg""a",80P p(zbsc mr ml mh zbsc rfgo30lfgo20hfgo25z1go7 z2dl zbsc vo go1 ml lfgo20go9 mh hfgo25go10 mr rfgo30go8 zbsc mv mh dl zbsc zbsc dl vfgo28zbsc zbsc dl zbsc dl vfgo28 sc zbsc vfvo z2dr go1 dr ml zbsc vfvo ml zbsc vfvo z3go1 go30       schild3 rundguck5 (zbsc mv mh dl zbsc zbsc dl vfgo28zbsc zbsc dl zbsc dl vfgo28 sc zbsc vfvo z2dr go1 dr ml zbsc vfvo ml zbsc vfvo z3go1 go30 dhbxy pFCmh Bmhudg PXRpR<<~~f$p??p$f~<<??<~< 0xx0 <~<  <<