64er Magazin 84_4

Caesar
C64
658121 IFSS'=CHR$(186)THEN68ee
66121121 OOT065121e
6see IFBX=3ANDBY=3ANDI=2THENPOKE55501,14:POKET1.88:F(3.3)=3:l2=l2+1:D(2)=D(2)-1
682121 IFBX=4ANDBY=3ANDI=2THENPOKE55503,14:POKET2,88:F(4,3)=3:l2=L2+1:D(2)=D(2)-1
684121 IFBX=15ANDBY=9ANDI=1THENPOKET3.10:POKE1733,88:F(15.9)=3:Ll=Ll+l :D(1)=DC1)-1
686121 IFBX=16ANDBY=9ANDI=lTHENPOKET4,i0:POKE1735.88:F(16,9)=3:Ll=Ll+1:D(1)=De1)-1
666121 IFL1=20Rl2=2THEN35088
691218 IFD(1)=80RD(2)=0THEN38080
6928 GOSUBge08:NEXTI
694121 RZ=RZ+l:I=8:GOT02800
7808 FORXX=lT018
72121121 FORYY=1T011
73121121 IFFeXX,YY)=lTHENOOSUB7688
74121121 IFFeXX,YY)=2THENOOSUB7700
745121'" IFF(~·:~<.,'T"T')=8THEtiOOSIJB7800
75121121 NEXTYY,XX:XX=0:YY=8:RETURN
76121121 POKE1868+eXX:+:2)-e(11-YY)*88).224:POKE56135+(XX*2)-«11-YY)*S0).14:RETURN
77121121 POKE1868+(XX*2)-«11-yy)*e0).224:POKE56135+(XXW2)-«11-YY):+:S0),10:RETURN
78121121 ~O~~E 1863+ (;<:;<::+:2) - e( 11-'T"1') :+:80) .' 224 :F'OI<E56135+ (:"::-::*2"- ( ( 11·-',.",.') :;::3121::' .. SI : F::ETUFl·1
8121121121 IFI=2THEN8200
81121121 POKE1863+eX:+:2)-(C11-Y):+:S8,,224:POKE56i35+(X*2)-«11-Y)*S0),14:RETURN
8200 POKE1863+(X*2)-«11-Y)*80)~224:POKE56135+~X*2)-«i~-Y)*80))10:RETURt~
98121121 PR I tH" ~!!t![~!!t~~l!t!f,[l!!ml!!mtP!l!f.[l!!l)!Q
91121121 PR I ~n 11 ~iU!!te.oo:l'.l'.@l.:rl91l!f,[!!Well!f,[p.!tP.!re.:r!!l:I!!l" .:
9200 RETIJRt·4
950121 OOStJB9000
9~20 F'RI~n":il t'~ICHT f'10ECI_:i:CHER ZUG:::I";
9540 00SUB971210:00SUBge00:GOT02120
96121121 OOSUB912100
9620 F'Rlt·n"fiI U t'4 t'1 I) E Ci L ICH ::11".:
9640 GOSUB978121:00SUB9000:00T02120
9700 FORHR=lT01580:NEXTHR
9800 RETURt·~
10000 POKE53281.9:PI)KE53280,0
1011210 PR I ~n"* r-~..,.....--r--r-"'-""-"'-"'-""-'T-"'-'T-""-",,-,,,,-'''''-"1"
10200 B1$. 11 I I I 1 I I I I 1 I I I I I I I I I I"
10300 B2$a:" 1--+-+ +-+-+ + +-+ + +-+-+-+-+-+-+-+-1"
1121400 FORB-1TOll21:PRINTB1$:PRINTB2$:NEXTB
10~12I0 PR I NTB 1$ :PR I NT 11 &.--.J",-.J.-...l,,-.J.-..&-..&-..&-..&-..J.r-..L .J. ..&-..&-..&-...L-..J.-.J.-.J"
10600 PRINT"~": FORB-1 TOll: PRINTTAB(37)B.: :PRUiT: ~4E~<:TB
1070121 F'OKE55501~14:POKE~551213~14:POKE1229,86:POKE1231.86
10S00 POKE5600~, 1e-: POKE!5601217, 1121 : PO~~E 17:;;3, 86 :POKE 1735.' 86
10900 PR I NT 11 1 2 8 4 5 6 7 8 9 €I 1 2 3 4 5 6 7 8": GOSUB 11121~10
11000 FORB=56216T056255:POKEB,13:NEXTB
11100 FORB=55334T056294STEP4121:POKEB,18:POKEB+l,18:NEXTB
11200 RETURN
121211210 OETX$:IFX$)CHR$(47)ANDX$(CHR$(58)THE~l12280
1210121 00T012121121121
12200 XsVALeX$):POKE56215+eX:+:2),0
123121000SUB91210121:IFX>lTHEN13008
1240e OETX$:IFX$)CHR$(47)ANDX$(CHR$(57)THEN12600
12450 IFX$=CHR$(13)THEN1312100
12500 00T012400
12600 X=VAL(X$):X=X+1121:POKE56215+(X:+:2),0
12700 REM
180000ETY$:IFY$)CHR$e47)RNDY$(CHR$C58)THEN13200
131121121 OOT0131210121
132121121 Y=VAL(Y$):POKE55294+(Y~80),0:F'OKE55295+(Y~80) .. 0
133121121 IFY)lTHEN1391210
13400 GETY$:IFY$)CHR$(47)ANDY$(CHR$(50)THEN13600
1345121 IFY$=CHR$(13)THEN13900
13500 00T0184121121
11 •
.'
L1stlng des Taktlk- und Strategiespiels "Caesar«
(Fortsetzung)
1361210 POKE55875,I2I:Y=VALeY$):Y=Y+10:POKE55294+(Y:+:S0).0:POKE55295+(Y:+:80) .. 0
1391210 FORT=1T050121:NEXTT:OOSUB1112108
14000 RETllR~~
1512100 OOSIJB90121121
1510121 PRun" "S~~$(I) 11 GEBE DEH~E FIOUF~Et··1 JETZT EH4".: : CiO::;:UE:::Q!210
80 ~.:it
Ausgabe4/Aprill984