Kämpfe wie im alten ROM
Mit »Caesar« können Sie Ihr taktisches Geschick als Feldherr beweisen. Es ist ein Spiel für zwei Personen. Die Anleitung befindet sich im Programm. Der Commodore 64 dient Ihnen als Schlachtfeld und Lageplan.
|
100 dimf(19,12):dimd(2):t1=1229
120 print"{clr}"
140 sd=1
160 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3
180 w9=si+4:a=si+5:h=si+6:l=si+24
200 f(3,3)=5:f(4,3)=5:t2=1231
220 f(15,9)=6:f(16,9)=6:t3=56005
240 d(1)=25:d(2)=25:t4=56007
420 poke53280,0:poke53281,0
440 print"{down}{down}{down}{down}{down}{down}{down}{blk}"
460 print" {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon}{SHIFT-POUND} {CBM-*}{rvof}"
480 print" {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}"
500 print" {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}"
520 print" {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {CBM-*}"
540 print" {CBM-*}{rvon} {rvof}{SHIFT-POUND} {rvon} {rvof} {rvon} {rvof} {CBM-*}{rvon} {rvof}{SHIFT-POUND} {CBM-*}{rvon} {rvof}{SHIFT-POUND} {rvon} {rvof} {rvon} {rvof} {CBM-*} {CBM-*} "
580 poke53281,1:fort=1to1500:nextt
600 data10,89,200,16,109,200,27,160,200
620 data34,207,200,-1,-1,0
640 data15,129,70,15,129,70,13,10,70
660 data29,69,100,-1,-1,0
680 data5,123,200,17,103,200,14,162,200
700 data87,182,270,-1,-1,0
720 data16,109,130,16,109,130
740 data16,109,150,3,116,270,-1,-1,0
760 data17,103,200,21,237,200,26,20
780 data330,21,237,80,26,20,200,29
800 data69,200,26,20,200,0,0,200,21
820 data237,200,26,20,200,29,69,600
840 data26,20,200,0,0,200
860 data-1,-1,0
880 gosub51000
900 print"{clr}"
1000 gosub40000
1100 fori=1to2:gosub10000:gosub15000:nexti:poke53280,14:poke53281,8
1200 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down} ok. die legionaere sind postiert."
1300 print"{down}{down} ich werde mal aufdecken."
1400 gosub54000:fort=1to1000:nextt
1500 print"{clr}";
1600 gosub10000
1700 gosub7000
1800 gosub50000
1900 ti$="000000"
2000 fori=1to2:rr=0
2005 ifi=1thenprint"{lblu}";
2010 ifi=2thenprint"{lred}";
2020 gosub9000:print" "sn$(i)" position ziehender legionaer{home}":gosub50000
2040 gosub12000:gosub9000
2060 iff(x,y)<>ithengosub9000:print"falsche eingabe";:gosub9700:goto2040
2100 forp=0to9
2120 poke1863+(x*2)-((11-y)*80),224
2140 poke56135+(x*2)-((11-y)*80),9
2160 gosub56000
2180 poke56135+(x*2)-((11-y)*80),1
2190 poke1863+(x*2)-((11-y)*80),86
2195 nextp
2200 gosub9000
2240 print" "sn$(i)" welche richtung?{home}"
2280 getr$:ifr$=""then2280
2300 ifr$=chr$(81)thenzx=-1:zy=-1:goto2450
2310 ifr$=chr$(83)then25000
2320 ifr$=chr$(87)thenzx=0:zy=-1:goto2450
2330 ifr$=chr$(77)then34000
2340 ifr$=chr$(69)thenzx=1:zy=-1:goto2450
2360 ifr$=chr$(65)thenzx=-1:zy=0:goto2450
2380 ifr$=chr$(68)thenzx=1:zy=0:goto2450
2400 ifr$=chr$(90)thenzx=-1:zy=1:goto2450
2420 ifr$=chr$(88)thenzx=0:zy=1:goto2450
2440 ifr$=chr$(67)thenzx=1:zy=1:goto2450
2445 goto2280
2450 ifx+(zx)<1orx+(zx)>18ory+(zy)<1ory+(zy)>11then22000
2500 w=f(x+(zx),y+(zy)):gosub55000
2520 w2=f(x+(zx*2),y+(zy*2))
2530 ifrr=1then2570
2540 ifw=i+4then22000
2560 ifw=0thenf(x,y)=0:gosub20000:f(x+(zx),y+(zy))=i:bx=x+zx:by=y+zy
2565 ifw=0thenf(x,y)=0:gosub21000:goto6800
2566 ifw>4thengosub20000:bx=x+zx:by=y+zy:goto6800
2570 ifw2=i+4orw=i+4then22000
2575 ifx+(zx*2)<1orx+(zx*2)>18ory+(zy*2)<1ory+(zy*2)>11then22000
2580 ifw=iandw2=0orw=iandw2>3thenf(x,y)=0:gosub20000
2600 ifw=iandw2=0orw=iandw2>3thenf(x+(zx*2),y+(zy*2))=i
2620 ifw=iandw2=0orw=iandw2>3thenbx=x+(zx*2):by=y+(zy*2):gosub21000:goto6000
2640 rem
2660 ifw=0andw2=0then22000
2680 ifw<3andw2=0orw<3andw2>3thenf(x,y)=0:gosub20000:f(x+(zx),y+(zy))=0
2700 ifw<3andw2=0orw<3andw2>3thenbx=x+zx:by=y+zy:gosub23000
2720 ifw<3andw2=0orw<3andw2>3thenf(x+(zx*2),y+(zy*2))=i:bx=x+(zx*2):by=y+(zy*2)
2740 ifw<3andw2=0orw<3andw2>3thengosub21000:gosub53000:goto6000
2760 ifw>2goto6800
2800 goto24000
6000 iff(bx,by)>2then6800
6200 gosub9000:print" weiterspringen? ja=f1 nein=f7";
6500 getss$:ifss$=""then6500
6520 ifss$=chr$(133)thenx=x+(zx*2):y=y+(zy*2):zx=0:zy=0:rr=1:goto2100
6540 ifss$=chr$(134)then6800
6560 ifss$=chr$(135)then6800
6580 ifss$=chr$(136)then6800
6600 goto6500
6800 ifbx=3andby=3andi=2thenpoke55501,14:poket1,88:f(3,3)=3:l2=l2+1:d(2)=d(2)-1
6820 ifbx=4andby=3andi=2thenpoke55503,14:poket2,88:f(4,3)=3:l2=l2+1:d(2)=d(2)-1
6840 ifbx=15andby=9andi=1thenpoket3,10:poke1733,88:f(15,9)=3:l1=l1+1:d(1)=d(1)-1
6860 ifbx=16andby=9andi=1thenpoket4,10:poke1735,88:f(16,9)=3:l1=l1+1:d(1)=d(1)-1
6880 ifl1=2orl2=2then35000
6900 ifd(1)=0ord(2)=0then38000
6920 gosub9000:nexti
6940 rz=rz+1:i=0:goto2000
7000 forxx=1to18
7200 foryy=1to11
7300 iff(xx,yy)=1thengosub7600
7400 iff(xx,yy)=2thengosub7700
7450 iff(xx,yy)=3thengosub7800
7500 nextyy,xx:xx=0:yy=0:return
7600 poke1863+(xx*2)-((11-yy)*80),224:poke56135+(xx*2)-((11-yy)*80),14:return
7700 poke1863+(xx*2)-((11-yy)*80),224:poke56135+(xx*2)-((11-yy)*80),10:return
7800 poke1863+(xx*2)-((11-yy)*80),224:poke56135+(xx*2)-((11-yy)*80),9:return
8000 ifi=2then8200
8100 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),14:return
8200 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),10:return
9000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} ";
9100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
9200 return
9500 gosub9000
9520 print"{yel} nicht moeglicher zug{wht}";
9540 gosub9700:gosub9000:goto2120
9600 gosub9000
9620 print"{yel} u n m o e g l i c h {wht}";
9640 gosub9700:gosub9000:goto2120
9700 forhr=1to1500:nexthr
9800 return
10000 poke53281,9:poke53280,0
10100 print"{home}{blk}{CBM-A}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-R}C{CBM-S}"
10200 b1$="{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}"
10300 b2$="{CBM-Q}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{SHIFT-+}C{CBM-W}"
10400 forb=1to10:printb1$:printb2$:nextb
10500 printb1$:print"{CBM-Z}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-E}C{CBM-X}"
10600 print"{home}":forb=1to11:printtab(37)b;:print:nextb
10700 poke55501,14:poke55503,14:poke1229,86:poke1231,86
10800 poke56005,10:poke56007,10:poke1733,86:poke1735,86
10900 print" 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8":gosub11000
11000 forb=56216to56255:pokeb,13:nextb
11100 forb=55334to56294step40:pokeb,13:pokeb+1,13:nextb
11200 return
12000 getx$:ifx$>chr$(47)andx$<chr$(58)then12200
12100 goto12000
12200 x=val(x$):poke56215+(x*2),0
12300 gosub9000:ifx>1then13000
12400 getx$:ifx$>chr$(47)andx$<chr$(57)then12600
12450 ifx$=chr$(13)then13000
12500 goto12400
12600 x=val(x$):x=x+10:poke56215+(x*2),0
12700 rem
13000 gety$:ify$>chr$(47)andy$<chr$(58)then13200
13100 goto13000
13200 y=val(y$):poke55294+(y*80),0:poke55295+(y*80),0
13300 ify>1then13900
13400 gety$:ify$>chr$(47)andy$<chr$(50)then13600
13450 ify$=chr$(13)then13900
13500 goto13400
13600 poke55375,0:y=val(y$):y=y+10:poke55294+(y*80),0:poke55295+(y*80),0
13900 fort=1to500:nextt:gosub11000
14000 return
15000 gosub9000
15100 print" "sn$(i)" gebe deine figuren jetzt ein";:gosub9700
15300 fors=1to25:gosub9000:print"{wht} "s". figur";
15400 gosub12000:gosub9000
15600 iff(x,y)>0thengosub9000:print"{yel} unmoeglich";:goto15400
15700 ifi=1andy>5thengosub9000:print"{yel} unmoeglich";:goto15400
15800 ifi=2andy<7thengosub9000:print"{yel} unmoeglich";:goto15400
15900 ifx=15andy=9thengosub9000:print"{wht} das ist das zielfeld";:goto15400
16000 ifx=3andy=3thengosub9000:print"{wht} das ist das zielfeld";:goto15400
16100 ifx=16andy=9thengosub9000:print"{wht}{rght}das ist das zielfeld";:goto15400
16200 ifx=4andy=3thengosub9000:print"{wht} das ist das zielfeld";:goto15400
16300 gosub9000
16400 f(x,y)=i
16500 gosub8000
16600 nexts:ifi=2then17300
16700 fort=1to800:nextt
16800 gosub50000
16900 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}caesar wuenscht jetzt die heeresstellung{down}"
17000 printtab(11)"von heeresfuehrer{down}{down}"
17050 printtab(14)sn$(2)
17100 fort=1to3500:nextt
17300 fort=1to750:nextt
17400 print"{clr}";:return
20000 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),9:return
21000 ifi=1then21300
21100 ifi=2then21500
21300 poke1863+(bx*2)-((11-by)*80),224:poke56135+(bx*2)-((11-by)*80),14:return
21400 return
21500 poke1863+(bx*2)-((11-by)*80),224:poke56135+(bx*2)-((11-by)*80),10:return
21600 return
22000 gosub9000
22100 print" caesar erlaubt dies nicht.";
22200 gosub9700
22300 gosub9000
22320 ifi=1then22400
22340 ifi=2then22600
22400 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),14:goto6800
22600 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),10:goto6800
23000 poke1863+(bx*2)-((11-by)*80),224:poke56135+(bx*2)-((11-by)*80),9:return
24000 gosub9000
24100 print" caesar duldet keine meuchelmoerder.";:goto22200
25000 gosub9700
25100 gosub9000
25200 ifi=1then25400
25300 ifi=2then25500
25400 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),14:goto6800
25500 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),10:goto6800
30000 print"{clr}{down}{down}{down}{down}{down}{down}"spc(8)"soll ich die steuerungs-"
30100 printtab(10)"funktionen naeher er-"
30200 printtab(15)"laeutern?"
30400 gety3$:ify3$=""then30400
30500 ify3$="j"then30700
30600 return
30700 print"{clr}{yel}{down}{down}":poke53281,2:poke53280,0
30800 print"die ansteuerung jedes einzelnen soldaten";
30900 print" erfolgt ueber eingabe der einzelnen"
31000 print"koordinaten desselben. wenn sie zb. den"
31100 print" soldaten mit der koordinate 4 / 6 an-"
31200 print" steuern wollen druecken sie 4; dann 6."
31300 print"bei einem soldaten mit den koordinaten"
31400 print"1 / 11 sieht die sache etwas anders aus;";
31500 print"hier geben sie ein: 1 - return - 1 - 1."
31600 print" nachdem sie die position eingegeben"
31700 print" haben muessen sie noch die zugrichtung"
31800 print" eingeben. das geschieht wie folgt:{blk}{down}"
31900 print" links oben rechts"
32000 print" M {SHIFT--} N "
32100 print" {wht}q{blk} {wht}w{blk} {wht}e{blk} "
32200 print" M{SHIFT--}N "
32300 print" links C{wht}a{blk}CQC{wht}d{blk}C rechts"
32400 print" N{SHIFT--}M "
32500 print" {wht}z{blk} {wht}x{blk} {wht}c{blk} "
32600 print" N {SHIFT--}{$a0} M "
32700 print" links unten rechts"
32750 getpq$:ifpq$=""then32750
32800 print"{lgrn}{down}{down}{down}{down}{down}wenn sie zwischenzeitig aufhoeren wollen";
32900 print"druecken sie 'm' wenn sie einen zug, der";
33000 print"bereits mit koordinaten eingegeben wurde";
33100 print"nicht machen wollen, druecken sie 's'."
33200 print"beachten sie: sie duerfen nicht mit eig-";
33300 print"enen legionaeren ins eigene lager. sie"
33400 print"sollen nicht versuchen aus dem schlacht-";
33500 print"feld herauszuziehen und weiterhin nicht"
33600 print"auf soldaten springen - all dies be-"
33700 print"straft caeser dadurch indem der naechste";
33800 print"heerfuehrer an die reihe kommt."
33900 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{blk}v{yel}i{blk}e{yel}l {blk}s {yel}p {blk}a {yel}s {blk}s {down}{down}{down}{down}{down}":goto30400
34000 gosub52000:gosub52000
34050 print"{clr}{down}{down}{down}{down}{down}{down}{yel}":poke53281,0:poke53280,2
34100 print" caesar bewundert diese strategische"
34150 print" leistung nicht besonders. schon nach"
34200 print" "rz" zuegen aufzuhoeren ist nicht"
34300 print" eines caesars heerfuehrer angemessen."
34350 print" vielleicht solltet ihr es ein paar"
34400 print" jahrhunderte spaeter bei dem ehrvol-"
34450 print" len kaiser wilhelm noch einmal ver-"
34500 print" suchen; oder ihr koenntet es bei mir"
34550 print" in einer meiner arenen probieren."
34600 fort=1to4000:nextt:goto39000
35000 fort=1to900:nextt
35100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{blk}UCCCCCCCCCCCCCCCCCCCCCCI"
35150 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{blk}{SHIFT--}der sieger steht fest!{SHIFT--}"
35200 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{blk}JCCCCCCCCCCCCCCCCCCCCCCK"
35250 gosub54000
35300 print"{clr}{yel}{down}{down}{down}":poke53280,0:poke53281,2
35350 ifl1=2theng$=sn$(1)
35370 ifl2=2theng$=sn$(2)
35400 ifrz<27then38000
35500 ifrz<65then36300
35550 gosub52000:gosub52000
35600 print" meinen glueckwunsch "g$";"
35650 print" deine leistung haette zwar wesentlich"
35700 print" besser sein koennen, da du "rz/2
35750 print" verschiebungen deiner heeresformation"
35800 print" gebraucht hast um zu gewinnen."
35850 print" mit ein bisschen uebung solltst du "
35900 print" deine leistung aber noch steigern"
35950 print" koennen. zur zeit kann ich dich aber"
36000 print" nur als vorkoster in meinem stab ge-"
36050 print" brauchen; da der letzte, merkwuerdiger-";
36100 print" weise,nachdem brutus sein gastgeschenk;";
36150 print" eine sachertorte; vorbeibrachte; an"
36200 print" magenkraempfen von uns gegangen ist."
36250 fort=1to4000:nextt:goto39000
36300 gosub54000:print" meinen glueckwunsch, "g$:gosub52000
36350 print"{down} deine art der heeresfuehrung"
36400 print" erinnert an die von nero den"
36450 print" ich zwar nicht so mag, aber ich"
36500 print" gratuliere dir trotzdem. deine"
36550 print" legionaere finden, das du"
36600 print" ein barscher, unliebsamer"
36650 print" fuehrer bist, und, offen"
36700 print" gesagt, sie hassen dich."
36750 print" zwar kann ich dir zur zeit"
36800 print" keinen posten als heeres-"
36850 print" fuehrer in meiner legion"
36900 print" anbieten, aber ein leib-"
36950 print" eigener bei cleopatra"
37000 print" waere ja auch nicht von"
37050 print" der hand zu weisen."
37100 fort=1to4000:nextt:goto39000
38000 gosub54000
38050 poke53280,1
38100 print"{clr}{down}{down}{down}{down}{lgrn}"
38150 print" caesar beglueckwuenscht den sieger"
38200 print:printtab(16)g$
38250 print:gosub54000
38300 print" eine hervorragende strategische"
38350 print" leistung. jefferson, karl der"
38400 print" grosse und ich zusammen"
38450 print" haetten es nicht besser machen"
38500 print" koennen. du wirst ab heute in"
38550 print" meinen engsten fuehrungsstab"
38600 print" uebernommen und bekommst den"
38650 print" honorigen auftrag diese merk-"
38700 print" wuerdigen gallier aus diesem"
38750 print" dorf zu vertreiben.":gosub54000
38800 fort=1to4000:nextt:goto39000
39000 print"{down}{down}{wht} noch einmal?"
39100 getne$:ifne$=""then39100
39200 ifne$="j"thenclr:goto100
39300 print"{clr}{red}":poke53280,1:poke53281,1
39400 print"{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}bis"
39500 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}bald"
39600 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}bei"
39700 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}c a e s a r"
39800 print"{down}{down}{down}{down}{down}{down}":end
40000 print"{clr}{orng}"
40100 poke53280,11:poke53281,11
40200 print"hallo, hier ist caesar. ich hoerte, das"
40300 print"ihr strategisch was drauf habt - soso -"
40400 print"na, das werden wir ja gleich sehen. ich"
40450 print"habe mir fuer euch ein kleines spiel ein";
40500 print"-fallen lassen. mein gedachtes schlacht-";
40600 print"feld hat eine groesse von achtzehn mal"
40700 print"elf feldern und jeder heeresfuehrer hat"
40800 print"fuenfundzwanzig legionaere.jeder heeres-";
40900 print"fuehrer stellt seine eigene formation "
41000 print"auf. daher sollte der gegner bei der je-";
41100 print"weiligen eingabe nicht auf den schirm"
41200 print"schauen. eure legionaere springen oder"
41300 print"ziehen gerade oder schraeg in alle"
41400 print"richtungen. mit einem legionaer kann so"
41500 print"weit gesprungen werden, wie es die je-"
41600 print"weilige stellung erlaubt. beim springen"
41700 print"bleiben eigene legionaere stehen, geg-"
41800 print"nerische werden getoetet. ziel ist es"
41900 print"die zwei lagerfelder ( VV ) des gegners"
42000 print"mit eigenen legionaeren zu besetzen."
42060 print"{down}{down} bitte eine taste druecken."
42100 getb$:ifb$=""then42100
42150 gosub30000
42200 print"{clr}{down}{down}{down}{down}{down}{wht}caesar wuenscht noch die namen der zwei"
42300 print"heeresfuehrer kennenzulernen."
42400 print"{down}{down}"
42500 input"1. heeresfuehrer";s1$
42600 iflen(s1$)>9thenprint"{down}beim zeus, das ist zu lang{down}":goto42500
42700 print:input"2. heeresfuehrer";s2$
42800 iflen(s2$)>9thenprint"{down}beim zeus, das ist zu lang{down}":goto42700
42900 w=int(rnd(1)*2)+1
43000 ifw=1thensn$(1)=s1$:sn$(2)=s2$
43100 ifw=2thensn$(1)=s2$:sn$(2)=s1$
43150 print"{down} ton ?"
43170 getsd$:ifsd$=""then43170
43190 ifsd$<>"j"thensd=0
43200 fort=1to200:nextt
43300 print"{down}{down}"sn$(1)" faengt an."
43400 print"{down}{down}{lblu}die goetter moegen euch beistehen."
43500 gosub9700
43600 print"{clr}"
43700 return
50000 ifsd=0thenreturn
50050 fort=1to5:readmx:readmy:readmd:nextt
50100 pokel,15:poketh,13:poketl,15
50200 pokea,3*16+15:pokeh,9
50300 readmx:readmy:readmd
50400 ifmx=-1thenrestore:return
50500 pokefh,mx:pokefl,my:pokew9,65
50600 fort=1tomd:nextt
50700 pokew9,0:goto50300
51000 pokel,15:poketh,13:poketl,15
51100 pokea,3*16+15:pokeh,9
51200 readmx:readmy:readmd
51300 ifmx=-1thenrestore:return
51400 pokefh,mx:pokefl,my:pokew9,65
51500 fort=1tomd:nextt
51600 pokew9,0:goto51200
52000 ifsd=0thenreturn
52050 fort=1to10:readmx:readmy:readmd:nextt
52100 pokel,15:poketh,13:poketl,15
52200 pokea,3*16+15:pokeh,9
52300 readmx:readmy:readmd
52400 ifmx=-1thenrestore:return
52500 pokefh,mx:pokefl,my:pokew9,65
52600 fort=1tomd:nextt
52700 pokew9,0:goto52300
53000 ifsd=0then53700
53050 fort=1to15:readmx:readmy:readmd:nextt
53100 pokea,3*16+15:pokeh,9
53200 readmx:readmy:readmd
53300 ifmx=-1thenrestore:goto53700
53400 pokefh,mx:pokefl,my:pokew9,33
53500 fort=1tomd:nextt
53600 pokew9,0:goto53200
53700 ifi=1thend(2)=d(2)-1:return
53800 ifi=2thend(1)=d(1)-1:return
54000 ifsd=0thenreturn
54050 fort=1to20:readmx:readmy:readmd:nextt:pokel,10
54100 pokea,3*16+15:pokeh,9
54200 readmx:readmy:readmd
54300 ifmx=-1thenrestore:return
54400 pokefh,mx:pokefl,my:pokew9,33
54500 fort=1tomd:nextt
54600 pokew9,0:goto54200
55000 ifsd=0thenreturn
55100 pokel,15:pokea,16+9:pokeh,64
55200 pokefh,29:pokefl,69
55300 pokew9,129
55400 fort=1to200:nextt
55600 pokew9,0:pokea,0:pokeh,0
55700 return
56000 ifsd=0thenfort=1to60:nextt:return
56100 ifkj=0thenkj=1:goto56300
56200 ifkj=1thenkj=0:goto56600
56300 pokefh,20:pokefl,178:pokew9,17
56400 fort=1to25:nextt
56500 pokew9,0:return
56600 pokefh,12:pokefl,78:pokew9,17
56700 fort=1to25:nextt
56800 pokew9,0:return
61000 rem
62000 rem *****************************
62100 rem * *
62200 rem * geschrieben von *
62300 rem * *
62400 rem * andreas groebe *
62500 rem * *
62600 rem * *
62700 rem * *
62800 rem * *
62900 rem * fuer vc-64 5/1983 *
63000 rem * *
63200 rem *****************************
100 DIM F(19,12):DIM D(2):T1=1229 120 PRINT"{CLR}" 140 SD=1 160 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3 180 W9=SI+4:A=SI+5:H=SI+6:L=SI+24 200 F(3,3)=5:F(4,3)=5:T2=1231 220 F(15,9)=6:F(16,9)=6:T3=56005 240 D(1)=25:D(2)=25:T4=56007 420 POKE 53280,0:POKE 53281,0 440 PRINT"{7DOWN,BLACK}" 460 PRINT"{2SPACE,RVSON}£{3SPACE}*{RVOFF,SPACE,RVSON}£{3SPACE}*{RVOFF,SPACE,RVSON}£{3SPACE}*{RVOFF,SPACE,RVSON}£{3SPACE}*{RVOFF,SPACE,RVSON}£{3SPACE}*{RVOFF,SPACE,RVSON}£{3SPACE}*{RVOFF}" 480 PRINT"{2SPACE,RVSON,SPACE,RVOFF,5SPACE,RVSON,SPACE,RVOFF,3SPACE,RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,5SPACE,RVSON,SPACE,RVOFF,5SPACE,RVSON,SPACE,RVOFF,3SPACE,RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,3SPACE,RVSON,SPACE,RVOFF}" 500 PRINT"{2SPACE,RVSON,SPACE,RVOFF,5SPACE,RVSON,5SPACE,RVOFF,SPACE,RVSON,4SPACE,RVOFF,2SPACE,RVSON,5SPACE,RVOFF,SPACE,RVSON,5SPACE,RVOFF,SPACE,RVSON,5SPACE,RVOFF}" 520 PRINT"{2SPACE,RVSON,SPACE,RVOFF,5SPACE,RVSON,SPACE,RVOFF,3SPACE,RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,9SPACE,RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,3SPACE,RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,2SPACE}*" 540 PRINT"{2SPACE}*{RVSON,3SPACE,RVOFF}£{SPACE,RVSON,SPACE,RVOFF,3SPACE,RVSON,SPACE,RVOFF,SPACE}*{RVSON,3SPACE,RVOFF}£ *{RVSON,3SPACE,RVOFF}£{SPACE,RVSON,SPACE,RVOFF,3SPACE,RVSON,SPACE,RVOFF,SPACE}*{3SPACE}* " 580 POKE 53281,1:FOR T=1 TO1500:NEXT T 600 DATA 10,89,200,16,109,200,27,160,200 620 DATA 34,207,200,-1,-1,0 640 DATA 15,129,70,15,129,70,13,10,70 660 DATA 29,69,100,-1,-1,0 680 DATA 5,123,200,17,103,200,14,162,200 700 DATA 87,182,270,-1,-1,0 720 DATA 16,109,130,16,109,130 740 DATA 16,109,150,3,116,270,-1,-1,0 760 DATA 17,103,200,21,237,200,26,20 780 DATA 330,21,237,80,26,20,200,29 800 DATA 69,200,26,20,200,0,0,200,21 820 DATA 237,200,26,20,200,29,69,600 840 DATA 26,20,200,0,0,200 860 DATA -1,-1,0 880 GOSUB 51000 900 PRINT"{CLR}" 1000 GOSUB 40000 1100 FOR I=1 TO2:GOSUB 10000:GOSUB 15000:NEXT I:POKE 53280,14:POKE 53281,8 1200 PRINT"{CLR,9DOWN,4SPACE}OK. DIE LEGIONAERE SIND POSTIERT." 1300 PRINT"{2DOWN,9SPACE}ICH WERDE MAL AUFDECKEN." 1400 GOSUB 54000:FOR T=1 TO1000:NEXT T 1500 PRINT"{CLR}"; 1600 GOSUB 10000 1700 GOSUB 7000 1800 GOSUB 50000 1900 TI$="000000" 2000 FOR I=1 TO2:RR=0 2005 IF I=1 THENPRINT"{LIG.BLUE}"; 2010 IF I=2 THENPRINT"{LIG.RED}"; 2020 GOSUB 9000:PRINT" "SN$(I)" POSITION ZIEHENDER LEGIONAER{HOME}":GOSUB 50000 2040 GOSUB 12000:GOSUB 9000 2060 IF F(X,Y)<>I THENGOSUB 9000:PRINT"FALSCHE EINGABE";:GOSUB 9700:GOTO 2040 2100 FOR P=0 TO9 2120 POKE 1863+(X*2)-((11-Y)*80),224 2140 POKE 56135+(X*2)-((11-Y)*80),9 2160 GOSUB 56000 2180 POKE 56135+(X*2)-((11-Y)*80),1 2190 POKE 1863+(X*2)-((11-Y)*80),86 2195 NEXT P 2200 GOSUB 9000 2240 PRINT" "SN$(I)" WELCHE RICHTUNG?{HOME}" 2280 GET R$:IF R$="" THEN2280 2300 IF R$=CHR$ (81) THENZX=-1:ZY=-1:GOTO 2450 2310 IF R$=CHR$ (83) THEN25000 2320 IF R$=CHR$ (87) THENZX=0:ZY=-1:GOTO 2450 2330 IF R$=CHR$ (77) THEN34000 2340 IF R$=CHR$ (69) THENZX=1:ZY=-1:GOTO 2450 2360 IF R$=CHR$ (65) THENZX=-1:ZY=0:GOTO 2450 2380 IF R$=CHR$ (68) THENZX=1:ZY=0:GOTO 2450 2400 IF R$=CHR$ (90) THENZX=-1:ZY=1:GOTO 2450 2420 IF R$=CHR$ (88) THENZX=0:ZY=1:GOTO 2450 2440 IF R$=CHR$ (67) THENZX=1:ZY=1:GOTO 2450 2445 GOTO 2280 2450 IF X+(ZX)<1OR X+(ZX)>18OR Y+(ZY)<1OR Y+(ZY)>11 THEN22000 2500 W=F(X+(ZX),Y+(ZY)):GOSUB 55000 2520 W2=F(X+(ZX*2),Y+(ZY*2)) 2530 IF RR=1 THEN2570 2540 IF W=I+4 THEN22000 2560 IF W=0 THENF(X,Y)=0:GOSUB 20000:F(X+(ZX),Y+(ZY))=I:BX=X+ZX:BY=Y+ZY 2565 IF W=0 THENF(X,Y)=0:GOSUB 21000:GOTO 6800 2566 IF W>4 THENGOSUB 20000:BX=X+ZX:BY=Y+ZY:GOTO 6800 2570 IF W2=I+4OR W=I+4 THEN22000 2575 IF X+(ZX*2)<1OR X+(ZX*2)>18OR Y+(ZY*2)<1OR Y+(ZY*2)>11 THEN22000 2580 IF W=IAND W2=0OR W=IAND W2>3 THENF(X,Y)=0:GOSUB 20000 2600 IF W=IAND W2=0OR W=IAND W2>3 THENF(X+(ZX*2),Y+(ZY*2))=I 2620 IF W=IAND W2=0OR W=IAND W2>3 THENBX=X+(ZX*2):BY=Y+(ZY*2):GOSUB 21000:GOTO 6000 2640 REM 2660 IF W=0AND W2=0 THEN22000 2680 IF W<3AND W2=0OR W<3AND W2>3 THENF(X,Y)=0:GOSUB 20000:F(X+(ZX),Y+(ZY))=0 2700 IF W<3AND W2=0OR W<3AND W2>3 THENBX=X+ZX:BY=Y+ZY:GOSUB 23000 2720 IF W<3AND W2=0OR W<3AND W2>3 THENF(X+(ZX*2),Y+(ZY*2))=I:BX=X+(ZX*2):BY=Y+(ZY*2) 2740 IF W<3AND W2=0OR W<3AND W2>3 THENGOSUB 21000:GOSUB 53000:GOTO 6000 2760 IF W>2GOTO 6800 2800 GOTO 24000 6000 IF F(BX,BY)>2 THEN6800 6200 GOSUB 9000:PRINT"{2SPACE}WEITERSPRINGEN? JA=F1 NEIN=F7"; 6500 GET SS$:IF SS$="" THEN6500 6520 IF SS$=CHR$ (133) THENX=X+(ZX*2):Y=Y+(ZY*2):ZX=0:ZY=0:RR=1:GOTO 2100 6540 IF SS$=CHR$ (134) THEN6800 6560 IF SS$=CHR$ (135) THEN6800 6580 IF SS$=CHR$ (136) THEN6800 6600 GOTO 6500 6800 IF BX=3AND BY=3AND I=2 THENPOKE 55501,14:POKE T1,88:F(3,3)=3:L2=L2+1:D(2)=D(2)-1 6820 IF BX=4AND BY=3AND I=2 THENPOKE 55503,14:POKE T2,88:F(4,3)=3:L2=L2+1:D(2)=D(2)-1 6840 IF BX=15AND BY=9AND I=1 THENPOKE T3,10:POKE 1733,88:F(15,9)=3:L1=L1+1:D(1)=D(1)-1 6860 IF BX=16AND BY=9AND I=1 THENPOKE T4,10:POKE 1735,88:F(16,9)=3:L1=L1+1:D(1)=D(1)-1 6880 IF L1=2OR L2=2 THEN35000 6900 IF D(1)=0OR D(2)=0 THEN38000 6920 GOSUB 9000:NEXT I 6940 RZ=RZ+1:I=0:GOTO 2000 7000 FOR XX=1 TO18 7200 FOR YY=1 TO11 7300 IF F(XX,YY)=1 THENGOSUB 7600 7400 IF F(XX,YY)=2 THENGOSUB 7700 7450 IF F(XX,YY)=3 THENGOSUB 7800 7500 NEXT YY,XX:XX=0:YY=0:RETURN 7600 POKE 1863+(XX*2)-((11-YY)*80),224:POKE 56135+(XX*2)-((11-YY)*80),14:RETURN 7700 POKE 1863+(XX*2)-((11-YY)*80),224:POKE 56135+(XX*2)-((11-YY)*80),10:RETURN 7800 POKE 1863+(XX*2)-((11-YY)*80),224:POKE 56135+(XX*2)-((11-YY)*80),9:RETURN 8000 IF I=2 THEN8200 8100 POKE 1863+(X*2)-((11-Y)*80),224:POKE 56135+(X*2)-((11-Y)*80),14:RETURN 8200 POKE 1863+(X*2)-((11-Y)*80),224:POKE 56135+(X*2)-((11-Y)*80),10:RETURN 9000 PRINT"{HOME,24DOWN,39SPACE}"; 9100 PRINT"{HOME,24DOWN}"; 9200 RETURN 9500 GOSUB 9000 9520 PRINT"{YELLOW,8SPACE}NICHT MOEGLICHER ZUG{WHITE}"; 9540 GOSUB 9700:GOSUB 9000:GOTO 2120 9600 GOSUB 9000 9620 PRINT"{YELLOW,8SPACE}U N M O E G L I C H{SPACE,WHITE}"; 9640 GOSUB 9700:GOSUB 9000:GOTO 2120 9700 FOR HR=1 TO1500:NEXT HR 9800 RETURN 10000 POKE 53281,9:POKE 53280,0 10100 PRINT"{HOME,BLACK}ACRCRCRCRCRCRCRCRCRCRCRCRCRCRCRCRCRCS" 10200 B1$="-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-{SHIFT-SPACE}-" 10300 B2$="QC+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+CW" 10400 FOR B=1 TO10:PRINTB1$:PRINTB2$:NEXT B 10500 PRINTB1$:PRINT"ZCECECECECECECECECECECECECECECECECECX" 10600 PRINT"{HOME}":FOR B=1 TO11:PRINTTAB( 37)B;:PRINT:NEXT B 10700 POKE 55501,14:POKE 55503,14:POKE 1229,86:POKE 1231,86 10800 POKE 56005,10:POKE 56007,10:POKE 1733,86:POKE 1735,86 10900 PRINT" 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8":GOSUB 11000 11000 FOR B=56216 TO56255:POKE B,13:NEXT B 11100 FOR B=55334 TO56294STEP 40:POKE B,13:POKE B+1,13:NEXT B 11200 RETURN 12000 GET X$:IF X$>CHR$ (47)AND X$<CHR$ (58) THEN12200 12100 GOTO 12000 12200 X=VAL (X$):POKE 56215+(X*2),0 12300 GOSUB 9000:IF X>1 THEN13000 12400 GET X$:IF X$>CHR$ (47)AND X$<CHR$ (57) THEN12600 12450 IF X$=CHR$ (13) THEN13000 12500 GOTO 12400 12600 X=VAL (X$):X=X+10:POKE 56215+(X*2),0 12700 REM 13000 GET Y$:IF Y$>CHR$ (47)AND Y$<CHR$ (58) THEN13200 13100 GOTO 13000 13200 Y=VAL (Y$):POKE 55294+(Y*80),0:POKE 55295+(Y*80),0 13300 IF Y>1 THEN13900 13400 GET Y$:IF Y$>CHR$ (47)AND Y$<CHR$ (50) THEN13600 13450 IF Y$=CHR$ (13) THEN13900 13500 GOTO 13400 13600 POKE 55375,0:Y=VAL (Y$):Y=Y+10:POKE 55294+(Y*80),0:POKE 55295+(Y*80),0 13900 FOR T=1 TO500:NEXT T:GOSUB 11000 14000 RETURN 15000 GOSUB 9000 15100 PRINT" "SN$(I)" GEBE DEINE FIGUREN JETZT EIN";:GOSUB 9700 15300 FOR S=1 TO25:GOSUB 9000:PRINT"{WHITE,SPACE}"S". FIGUR"; 15400 GOSUB 12000:GOSUB 9000 15600 IF F(X,Y)>0 THENGOSUB 9000:PRINT"{YELLOW,SPACE}UNMOEGLICH";:GOTO 15400 15700 IF I=1AND Y>5 THENGOSUB 9000:PRINT"{YELLOW,SPACE}UNMOEGLICH";:GOTO 15400 15800 IF I=2AND Y<7 THENGOSUB 9000:PRINT"{YELLOW,SPACE}UNMOEGLICH";:GOTO 15400 15900 IF X=15AND Y=9 THENGOSUB 9000:PRINT"{WHITE,SPACE}DAS IST DAS ZIELFELD";:GOTO 15400 16000 IF X=3AND Y=3 THENGOSUB 9000:PRINT"{WHITE,SPACE}DAS IST DAS ZIELFELD";:GOTO 15400 16100 IF X=16AND Y=9 THENGOSUB 9000:PRINT"{WHITE,RIGHT}DAS IST DAS ZIELFELD";:GOTO 15400 16200 IF X=4AND Y=3 THENGOSUB 9000:PRINT"{WHITE,SPACE}DAS IST DAS ZIELFELD";:GOTO 15400 16300 GOSUB 9000 16400 F(X,Y)=I 16500 GOSUB 8000 16600 NEXT S:IF I=2 THEN17300 16700 FOR T=1 TO800:NEXT T 16800 GOSUB 50000 16900 PRINT"{CLR,9DOWN}CAESAR WUENSCHT JETZT DIE HEERESSTELLUNG{DOWN}" 17000 PRINTTAB( 11)"VON HEERESFUEHRER{2DOWN}" 17050 PRINTTAB( 14)SN$(2) 17100 FOR T=1 TO3500:NEXT T 17300 FOR T=1 TO750:NEXT T 17400 PRINT"{CLR}";:RETURN 20000 POKE 1863+(X*2)-((11-Y)*80),224:POKE 56135+(X*2)-((11-Y)*80),9:RETURN 21000 IF I=1 THEN21300 21100 IF I=2 THEN21500 21300 POKE 1863+(BX*2)-((11-BY)*80),224:POKE 56135+(BX*2)-((11-BY)*80),14:RETURN 21400 RETURN 21500 POKE 1863+(BX*2)-((11-BY)*80),224:POKE 56135+(BX*2)-((11-BY)*80),10:RETURN 21600 RETURN 22000 GOSUB 9000 22100 PRINT"{6SPACE}CAESAR ERLAUBT DIES NICHT."; 22200 GOSUB 9700 22300 GOSUB 9000 22320 IF I=1 THEN22400 22340 IF I=2 THEN22600 22400 POKE 1863+(X*2)-((11-Y)*80),224:POKE 56135+(X*2)-((11-Y)*80),14:GOTO 6800 22600 POKE 1863+(X*2)-((11-Y)*80),224:POKE 56135+(X*2)-((11-Y)*80),10:GOTO 6800 23000 POKE 1863+(BX*2)-((11-BY)*80),224:POKE 56135+(BX*2)-((11-BY)*80),9:RETURN 24000 GOSUB 9000 24100 PRINT" CAESAR DULDET KEINE MEUCHELMOERDER.";:GOTO 22200 25000 GOSUB 9700 25100 GOSUB 9000 25200 IF I=1 THEN25400 25300 IF I=2 THEN25500 25400 POKE 1863+(X*2)-((11-Y)*80),224:POKE 56135+(X*2)-((11-Y)*80),14:GOTO 6800 25500 POKE 1863+(X*2)-((11-Y)*80),224:POKE 56135+(X*2)-((11-Y)*80),10:GOTO 6800 30000 PRINT"{CLR,6DOWN}"SPC( 8)"SOLL ICH DIE STEUERUNGS-" 30100 PRINTTAB( 10)"FUNKTIONEN NAEHER ER-" 30200 PRINTTAB( 15)"LAEUTERN?" 30400 GET Y3$:IF Y3$="" THEN30400 30500 IF Y3$="J" THEN30700 30600 RETURN 30700 PRINT"{CLR,YELLOW,2DOWN}":POKE 53281,2:POKE 53280,0 30800 PRINT"DIE ANSTEUERUNG JEDES EINZELNEN SOLDATEN"; 30900 PRINT"{2SPACE}ERFOLGT UEBER EINGABE DER EINZELNEN" 31000 PRINT"KOORDINATEN DESSELBEN. WENN SIE ZB. DEN" 31100 PRINT" SOLDATEN MIT DER KOORDINATE 4 / 6 AN-" 31200 PRINT" STEUERN WOLLEN DRUECKEN SIE 4; DANN 6." 31300 PRINT"BEI EINEM SOLDATEN MIT DEN KOORDINATEN" 31400 PRINT"1 / 11 SIEHT DIE SACHE ETWAS ANDERS AUS;"; 31500 PRINT"HIER GEBEN SIE EIN: 1 - RETURN - 1 - 1." 31600 PRINT"{2SPACE}NACHDEM SIE DIE POSITION EINGEGEBEN" 31700 PRINT" HABEN MUESSEN SIE NOCH DIE ZUGRICHTUNG" 31800 PRINT"{2SPACE}EINGEBEN.{2SPACE}DAS GESCHIEHT WIE FOLGT:{BLACK,DOWN}" 31900 PRINT"{10SPACE}LINKS{2SPACE}OBEN{3SPACE}RECHTS" 32000 PRINT"{16SPACE}M{2SPACE}-{2SPACE}N{7SPACE}" 32100 PRINT"{17SPACE,WHITE}Q{BLACK,SPACE,WHITE}W{BLACK,SPACE,WHITE}E{BLACK,8SPACE}" 32200 PRINT"{18SPACE}M-N{9SPACE}" 32300 PRINT"{10SPACE}LINKS C{WHITE}A{BLACK}CQC{WHITE}D{BLACK}C RECHTS" 32400 PRINT"{18SPACE}N-M{9SPACE}" 32500 PRINT"{17SPACE,WHITE}Z{BLACK,SPACE,WHITE}X{BLACK,SPACE,WHITE}C{BLACK,8SPACE}" 32600 PRINT"{16SPACE}N{2SPACE}-{SHIFT-SPACE,SPACE}M{7SPACE}" 32700 PRINT"{10SPACE}LINKS{2SPACE}UNTEN{2SPACE}RECHTS" 32750 GET PQ$:IF PQ$="" THEN32750 32800 PRINT"{LIG.GREEN,5DOWN}WENN SIE ZWISCHENZEITIG AUFHOEREN WOLLEN"; 32900 PRINT"DRUECKEN SIE 'M' WENN SIE EINEN ZUG, DER"; 33000 PRINT"BEREITS MIT KOORDINATEN EINGEGEBEN WURDE"; 33100 PRINT"NICHT MACHEN WOLLEN, DRUECKEN SIE 'S'." 33200 PRINT"BEACHTEN SIE: SIE DUERFEN NICHT MIT EIG-"; 33300 PRINT"ENEN LEGIONAEREN INS EIGENE LAGER. SIE" 33400 PRINT"SOLLEN NICHT VERSUCHEN AUS DEM SCHLACHT-"; 33500 PRINT"FELD HERAUSZUZIEHEN UND WEITERHIN NICHT" 33600 PRINT"AUF SOLDATEN SPRINGEN - ALL DIES BE-" 33700 PRINT"STRAFT CAESER DADURCH INDEM DER NAECHSTE"; 33800 PRINT"HEERFUEHRER AN DIE REIHE KOMMT." 33900 PRINT"{3DOWN,6RIGHT,BLACK}V{YELLOW}I{BLACK}E{YELLOW}L{SPACE,BLACK}S{SPACE,YELLOW}P{SPACE,BLACK}A{SPACE,YELLOW}S{SPACE,BLACK}S{SPACE,5DOWN}":GOTO 30400 34000 GOSUB 52000:GOSUB 52000 34050 PRINT"{CLR,6DOWN,YELLOW}":POKE 53281,0:POKE 53280,2 34100 PRINT"{2SPACE}CAESAR BEWUNDERT DIESE STRATEGISCHE" 34150 PRINT"{2SPACE}LEISTUNG NICHT BESONDERS. SCHON NACH" 34200 PRINT"{2SPACE}"RZ" ZUEGEN AUFZUHOEREN IST NICHT" 34300 PRINT"{2SPACE}EINES CAESARS HEERFUEHRER ANGEMESSEN." 34350 PRINT"{2SPACE}VIELLEICHT SOLLTET IHR ES EIN PAAR" 34400 PRINT"{2SPACE}JAHRHUNDERTE SPAETER BEI DEM EHRVOL-" 34450 PRINT"{2SPACE}LEN KAISER WILHELM NOCH EINMAL VER-" 34500 PRINT"{2SPACE}SUCHEN; ODER IHR KOENNTET ES BEI MIR" 34550 PRINT"{2SPACE}IN EINER MEINER ARENEN PROBIEREN." 34600 FOR T=1 TO4000:NEXT T:GOTO 39000 35000 FOR T=1 TO900:NEXT T 35100 PRINT"{HOME,9DOWN,8RIGHT,BLACK}UCCCCCCCCCCCCCCCCCCCCCCI" 35150 PRINT"{8RIGHT,BLACK}-DER SIEGER STEHT FEST!-" 35200 PRINT"{8RIGHT,BLACK}JCCCCCCCCCCCCCCCCCCCCCCK" 35250 GOSUB 54000 35300 PRINT"{CLR,YELLOW,3DOWN}":POKE 53280,0:POKE 53281,2 35350 IF L1=2 THENG$=SN$(1) 35370 IF L2=2 THENG$=SN$(2) 35400 IF RZ<27 THEN38000 35500 IF RZ<65 THEN36300 35550 GOSUB 52000:GOSUB 52000 35600 PRINT" MEINEN GLUECKWUNSCH "G$";" 35650 PRINT" DEINE LEISTUNG HAETTE ZWAR WESENTLICH" 35700 PRINT" BESSER SEIN KOENNEN, DA DU "RZ/2 35750 PRINT" VERSCHIEBUNGEN DEINER HEERESFORMATION" 35800 PRINT" GEBRAUCHT HAST UM ZU GEWINNEN." 35850 PRINT" MIT EIN BISSCHEN UEBUNG SOLLTST DU " 35900 PRINT" DEINE LEISTUNG ABER NOCH STEIGERN" 35950 PRINT" KOENNEN. ZUR ZEIT KANN ICH DICH ABER" 36000 PRINT" NUR ALS VORKOSTER IN MEINEM STAB GE-" 36050 PRINT" BRAUCHEN; DA DER LETZTE, MERKWUERDIGER-"; 36100 PRINT" WEISE,NACHDEM BRUTUS SEIN GASTGESCHENK;"; 36150 PRINT" EINE SACHERTORTE; VORBEIBRACHTE; AN" 36200 PRINT" MAGENKRAEMPFEN VON UNS GEGANGEN IST." 36250 FOR T=1 TO4000:NEXT T:GOTO 39000 36300 GOSUB 54000:PRINT"{3SPACE}MEINEN GLUECKWUNSCH, "G$:GOSUB 52000 36350 PRINT"{DOWN,3SPACE}DEINE ART DER HEERESFUEHRUNG" 36400 PRINT"{3SPACE}ERINNERT AN DIE VON NERO DEN" 36450 PRINT"{3SPACE}ICH ZWAR NICHT SO MAG, ABER ICH" 36500 PRINT"{3SPACE}GRATULIERE DIR TROTZDEM. DEINE" 36550 PRINT"{3SPACE}LEGIONAERE FINDEN, DAS DU" 36600 PRINT"{3SPACE}EIN BARSCHER, UNLIEBSAMER" 36650 PRINT"{3SPACE}FUEHRER BIST, UND, OFFEN" 36700 PRINT"{3SPACE}GESAGT, SIE HASSEN DICH." 36750 PRINT"{3SPACE}ZWAR KANN ICH DIR ZUR ZEIT" 36800 PRINT"{3SPACE}KEINEN POSTEN ALS HEERES-" 36850 PRINT"{3SPACE}FUEHRER IN MEINER LEGION" 36900 PRINT"{3SPACE}ANBIETEN, ABER EIN LEIB-" 36950 PRINT"{3SPACE}EIGENER BEI CLEOPATRA" 37000 PRINT"{3SPACE}WAERE JA AUCH NICHT VON" 37050 PRINT"{3SPACE}DER HAND ZU WEISEN." 37100 FOR T=1 TO4000:NEXT T:GOTO 39000 38000 GOSUB 54000 38050 POKE 53280,1 38100 PRINT"{CLR,4DOWN,LIG.GREEN}" 38150 PRINT"{3SPACE}CAESAR BEGLUECKWUENSCHT DEN SIEGER" 38200 PRINT:PRINTTAB( 16)G$ 38250 PRINT:GOSUB 54000 38300 PRINT"{3SPACE}EINE HERVORRAGENDE STRATEGISCHE" 38350 PRINT"{3SPACE}LEISTUNG. JEFFERSON, KARL DER" 38400 PRINT"{3SPACE}GROSSE UND ICH ZUSAMMEN" 38450 PRINT"{3SPACE}HAETTEN ES NICHT BESSER MACHEN" 38500 PRINT"{3SPACE}KOENNEN. DU WIRST AB HEUTE IN" 38550 PRINT"{3SPACE}MEINEN ENGSTEN FUEHRUNGSSTAB" 38600 PRINT"{3SPACE}UEBERNOMMEN UND BEKOMMST DEN" 38650 PRINT"{3SPACE}HONORIGEN AUFTRAG DIESE MERK-" 38700 PRINT"{3SPACE}WUERDIGEN GALLIER AUS DIESEM" 38750 PRINT"{3SPACE}DORF ZU VERTREIBEN.":GOSUB 54000 38800 FOR T=1 TO4000:NEXT T:GOTO 39000 39000 PRINT"{2DOWN,WHITE,3SPACE}NOCH EINMAL?" 39100 GET NE$:IF NE$="" THEN39100 39200 IF NE$="J" THENCLR :GOTO 100 39300 PRINT"{CLR,RED}":POKE 53280,1:POKE 53281,1 39400 PRINT"{6DOWN,6RIGHT}BIS" 39500 PRINT"{2DOWN,10RIGHT}BALD" 39600 PRINT"{2DOWN,15RIGHT}BEI" 39700 PRINT"{2DOWN,19RIGHT}C A E S A R" 39800 PRINT"{6DOWN}":END 40000 PRINT"{CLR,ORANGE}" 40100 POKE 53280,11:POKE 53281,11 40200 PRINT"HALLO, HIER IST CAESAR. ICH HOERTE, DAS" 40300 PRINT"IHR STRATEGISCH WAS DRAUF HABT - SOSO -" 40400 PRINT"NA, DAS WERDEN WIR JA GLEICH SEHEN. ICH" 40450 PRINT"HABE MIR FUER EUCH EIN KLEINES SPIEL EIN"; 40500 PRINT"-FALLEN LASSEN. MEIN GEDACHTES SCHLACHT-"; 40600 PRINT"FELD HAT EINE GROESSE VON ACHTZEHN{2SPACE}MAL" 40700 PRINT"ELF FELDERN UND JEDER HEERESFUEHRER HAT" 40800 PRINT"FUENFUNDZWANZIG LEGIONAERE.JEDER HEERES-"; 40900 PRINT"FUEHRER STELLT{2SPACE}SEINE EIGENE FORMATION " 41000 PRINT"AUF. DAHER SOLLTE DER GEGNER BEI DER JE-"; 41100 PRINT"WEILIGEN EINGABE NICHT AUF DEN SCHIRM" 41200 PRINT"SCHAUEN.{2SPACE}EURE LEGIONAERE SPRINGEN ODER" 41300 PRINT"ZIEHEN{2SPACE}GERADE{2SPACE}ODER{2SPACE}SCHRAEG{2SPACE}IN{2SPACE}ALLE" 41400 PRINT"RICHTUNGEN. MIT EINEM LEGIONAER KANN SO" 41500 PRINT"WEIT GESPRUNGEN WERDEN,{2SPACE}WIE ES DIE JE-" 41600 PRINT"WEILIGE STELLUNG ERLAUBT. BEIM SPRINGEN" 41700 PRINT"BLEIBEN EIGENE LEGIONAERE STEHEN,{2SPACE}GEG-" 41800 PRINT"NERISCHE WERDEN GETOETET. ZIEL IST ES" 41900 PRINT"DIE ZWEI LAGERFELDER ( VV ) DES GEGNERS" 42000 PRINT"MIT EIGENEN LEGIONAEREN ZU BESETZEN." 42060 PRINT"{2DOWN,5SPACE}BITTE EINE TASTE DRUECKEN." 42100 GET B$:IF B$="" THEN42100 42150 GOSUB 30000 42200 PRINT"{CLR,5DOWN,WHITE}CAESAR WUENSCHT NOCH DIE NAMEN DER ZWEI" 42300 PRINT"HEERESFUEHRER KENNENZULERNEN." 42400 PRINT"{2DOWN}" 42500 INPUT"1. HEERESFUEHRER";S1$ 42600 IF LEN (S1$)>9 THENPRINT"{DOWN}BEIM ZEUS, DAS IST ZU LANG{DOWN}":GOTO 42500 42700 PRINT:INPUT"2. HEERESFUEHRER";S2$ 42800 IF LEN (S2$)>9 THENPRINT"{DOWN}BEIM ZEUS, DAS IST ZU LANG{DOWN}":GOTO 42700 42900 W=INT (RND (1)*2)+1 43000 IF W=1 THENSN$(1)=S1$:SN$(2)=S2$ 43100 IF W=2 THENSN$(1)=S2$:SN$(2)=S1$ 43150 PRINT"{DOWN,3SPACE}TON{10SPACE}?" 43170 GET SD$:IF SD$="" THEN43170 43190 IF SD$<>"J" THENSD=0 43200 FOR T=1 TO200:NEXT T 43300 PRINT"{2DOWN}"SN$(1)" FAENGT AN." 43400 PRINT"{2DOWN,LIG.BLUE}DIE GOETTER MOEGEN EUCH BEISTEHEN." 43500 GOSUB 9700 43600 PRINT"{CLR}" 43700 RETURN 50000 IF SD=0 THENRETURN 50050 FOR T=1 TO5:READ MX:READ MY:READ MD:NEXT T 50100 POKE L,15:POKE TH,13:POKE TL,15 50200 POKE A,3*16+15:POKE H,9 50300 READ MX:READ MY:READ MD 50400 IF MX=-1 THENRESTORE :RETURN 50500 POKE FH,MX:POKE FL,MY:POKE W9,65 50600 FOR T=1 TOMD:NEXT T 50700 POKE W9,0:GOTO 50300 51000 POKE L,15:POKE TH,13:POKE TL,15 51100 POKE A,3*16+15:POKE H,9 51200 READ MX:READ MY:READ MD 51300 IF MX=-1 THENRESTORE :RETURN 51400 POKE FH,MX:POKE FL,MY:POKE W9,65 51500 FOR T=1 TOMD:NEXT T 51600 POKE W9,0:GOTO 51200 52000 IF SD=0 THENRETURN 52050 FOR T=1 TO10:READ MX:READ MY:READ MD:NEXT T 52100 POKE L,15:POKE TH,13:POKE TL,15 52200 POKE A,3*16+15:POKE H,9 52300 READ MX:READ MY:READ MD 52400 IF MX=-1 THENRESTORE :RETURN 52500 POKE FH,MX:POKE FL,MY:POKE W9,65 52600 FOR T=1 TOMD:NEXT T 52700 POKE W9,0:GOTO 52300 53000 IF SD=0 THEN53700 53050 FOR T=1 TO15:READ MX:READ MY:READ MD:NEXT T 53100 POKE A,3*16+15:POKE H,9 53200 READ MX:READ MY:READ MD 53300 IF MX=-1 THENRESTORE :GOTO 53700 53400 POKE FH,MX:POKE FL,MY:POKE W9,33 53500 FOR T=1 TOMD:NEXT T 53600 POKE W9,0:GOTO 53200 53700 IF I=1 THEND(2)=D(2)-1:RETURN 53800 IF I=2 THEND(1)=D(1)-1:RETURN 54000 IF SD=0 THENRETURN 54050 FOR T=1 TO20:READ MX:READ MY:READ MD:NEXT T:POKE L,10 54100 POKE A,3*16+15:POKE H,9 54200 READ MX:READ MY:READ MD 54300 IF MX=-1 THENRESTORE :RETURN 54400 POKE FH,MX:POKE FL,MY:POKE W9,33 54500 FOR T=1 TOMD:NEXT T 54600 POKE W9,0:GOTO 54200 55000 IF SD=0 THENRETURN 55100 POKE L,15:POKE A,16+9:POKE H,64 55200 POKE FH,29:POKE FL,69 55300 POKE W9,129 55400 FOR T=1 TO200:NEXT T 55600 POKE W9,0:POKE A,0:POKE H,0 55700 RETURN 56000 IF SD=0 THENFOR T=1 TO60:NEXT T:RETURN 56100 IF KJ=0 THENKJ=1:GOTO 56300 56200 IF KJ=1 THENKJ=0:GOTO 56600 56300 POKE FH,20:POKE FL,178:POKE W9,17 56400 FOR T=1 TO25:NEXT T 56500 POKE W9,0:RETURN 56600 POKE FH,12:POKE FL,78:POKE W9,17 56700 FOR T=1 TO25:NEXT T 56800 POKE W9,0:RETURN 61000 REM 62000 REM ***************************** 62100 REM * * 62200 REM * GESCHRIEBEN VON * 62300 REM * * 62400 REM * ANDREAS GROEBE * 62500 REM * * 62600 REM * * 62700 REM * * 62800 REM * * 62900 REM * FUER VC-64 5/1983 * 63000 REM * * 63200 REM *****************************
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen