100 DIMF(19,12):DIMD(2):T1=1229 120 PRINT"[147]" 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"[144]" 460 PRINT" [169] [223][146] [169] [223][146] [169] [223][146] [169] [223][146] [169] [223][146] [169] [223][146]" 480 PRINT"  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]" 500 PRINT"  [146]  [146]  [146]  [146]  [146]  [146]" 520 PRINT"  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146] [223]" 540 PRINT" [223] [146][169]  [146]  [146] [223] [146][169] [223] [146][169]  [146]  [146] [223] [223] " 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"[147]" 1000 GOSUB40000 1100 FORI=1TO2:GOSUB10000:GOSUB15000:NEXTI:POKE53280,14:POKE53281,8 1200 PRINT"[147] OK. DIE LEGIONAERE SIND POSTIERT." 1300 PRINT" ICH WERDE MAL AUFDECKEN." 1400 GOSUB54000:FORT=1TO1000:NEXTT 1500 PRINT"[147]"; 1600 GOSUB10000 1700 GOSUB7000 1800 GOSUB50000 1900 TI$="000000" 2000 FORI=1TO2:RR=0 2005 IFI=1THENPRINT"[154]"; 2010 IFI=2THENPRINT"[150]"; 2020 GOSUB9000:PRINT" "SN$(I)" POSITION ZIEHENDER LEGIONAER":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?" 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 REM 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 REMPOKE1863+(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" "; 9100 PRINT""; 9200 RETURN 9500 GOSUB9000 9520 PRINT"[158] NICHT MOEGLICHER ZUG"; 9540 GOSUB9700:GOSUB9000:GOTO2120 9600 GOSUB9000 9620 PRINT"[158] U N M O E G L I C H "; 9640 GOSUB9700:GOSUB9000:GOTO2120 9700 FORHR=1TO1500:NEXTHR 9800 RETURN 10000 POKE53281,9:POKE53280,0 10100 PRINT"[144][176][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][174]" 10200 B1$="[221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]" 10300 B2$="[171][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][179]" 10400 FORB=1TO10:PRINTB1$:PRINTB2$:NEXTB 10500 PRINTB1$:PRINT"[173][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][189]" 10600 PRINT"":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$1THEN13000 12400 GETX$:IFX$>CHR$(47)ANDX$CHR$(47)ANDY$1THEN13900 13400 GETY$:IFY$>CHR$(47)ANDY$0THENGOSUB9000:PRINT"[158] UNMOEGLICH";:GOTO15400 15700 IFI=1ANDY>5THENGOSUB9000:PRINT"[158] UNMOEGLICH";:GOTO15400 15800 IFI=2ANDY<7THENGOSUB9000:PRINT"[158] UNMOEGLICH";:GOTO15400 15900 IFX=15ANDY=9THENGOSUB9000:PRINT" DAS IST DAS ZIELFELD";:GOTO15400 16000 IFX=3ANDY=3THENGOSUB9000:PRINT" DAS IST DAS ZIELFELD";:GOTO15400 16100 IFX=16ANDY=9THENGOSUB9000:PRINT"DAS IST DAS ZIELFELD";:GOTO15400 16200 IFX=4ANDY=3THENGOSUB9000:PRINT" 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"[147]CAESAR WUENSCHT JETZT DIE HEERESSTELLUNG" 17000 PRINTTAB(11)"VON HEERESFUEHRER" 17050 PRINTTAB(14)SN$(2) 17100 FORT=1TO3500:NEXTT 17300 FORT=1TO750:NEXTT 17400 PRINT"[147]";: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"[147]"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"[147][158]":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:[144]" 31900 PRINT" LINKS OBEN RECHTS" 32000 PRINT" [205] [221] [206] " 32100 PRINT" Q[144] W[144] E[144] " 32200 PRINT" [205][221][206] " 32300 PRINT" LINKS [195]A[144][195][209][195]D[144][195] RECHTS" 32400 PRINT" [206][221][205] " 32500 PRINT" Z[144] X[144] C[144] " 32600 PRINT" [206] [221][160] [205] " 32700 PRINT" LINKS UNTEN RECHTS" 32750 GETPQ$:IFPQ$=""THEN32750 32800 PRINT"[153]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"[144]V[158]I[144]E[158]L [144]S [158]P [144]A [158]S [144]S ":GOTO30400 34000 GOSUB52000:GOSUB52000 34050 PRINT"[147][158]":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"[144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]" 35150 PRINT"[144][221]DER SIEGER STEHT FEST![221]" 35200 PRINT"[144][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]" 35250 GOSUB54000 35300 PRINT"[147][158]":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" 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"[147][153]" 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" NOCH EINMAL?" 39100 GETNE$:IFNE$=""THEN39100 39200 IFNE$="J"THENCLR:GOTO100 39300 PRINT"[147]":POKE53280,1:POKE53281,1 39400 PRINT"BIS" 39500 PRINT"BALD" 39600 PRINT"BEI" 39700 PRINT"C A E S A R" 39800 PRINT"":END 40000 PRINT"[147][129]" 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 ( [214][214] ) DES GEGNERS" 42000 PRINT"MIT EIGENEN LEGIONAEREN ZU BESETZEN." 42060 PRINT" BITTE EINE TASTE DRUECKEN." 42100 GETB$:IFB$=""THEN42100 42150 GOSUB30000 42200 PRINT"[147]CAESAR WUENSCHT NOCH DIE NAMEN DER ZWEI" 42300 PRINT"HEERESFUEHRER KENNENZULERNEN." 42400 PRINT"" 42500 INPUT"1. HEERESFUEHRER";S1$ 42600 IFLEN(S1$)>9THENPRINT"BEIM ZEUS, DAS IST ZU LANG":GOTO42500 42700 PRINT:INPUT"2. HEERESFUEHRER";S2$ 42800 IFLEN(S2$)>9THENPRINT"BEIM ZEUS, DAS IST ZU LANG":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" TON ?" 43170 GETSD$:IFSD$=""THEN43170 43190 IFSD$<>"J"THENSD=0 43200 FORT=1TO200:NEXTT 43300 PRINT""SN$(1)" FAENGT AN." 43400 PRINT"[154]DIE GOETTER MOEGEN EUCH BEISTEHEN." 43500 GOSUB9700 43600 PRINT"[147]" 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 *****************************