64er Magazin 84_4

C64
Caesar
860 DATA-1.. -1) 0
see OOSlJB51000
900 PRINT":J"
11211210 OOSlJB40000
1100 FORI=lT02:GOSUB10000:GOSUBI5000:NEXTI:POkE53280,14:POKE53281,8'
12121121 PR I ~~T"~ OK. I1! E LEG I Ot'~AERE SI t·m PO::;T I ERT • "
1300 PR I NT" ',I(.[fJ I CH L~ER1JE r1AL A/JF1JECKE"'~."
141210 OOSUB~400e:FORT=IT01000:NEXTT
1~00 PRINT";:']";
1600 GOSI-'B100ell~
17'00 OOSUB7'000
11300 GOSIJ.B50000
1900 TI$="e00000"
2000 FORI=lT02:RR=0
2005 I FI=1THENF'R It-n ":1" ,;
212110 I FI =2THE~~PR It-n" a" ,:
2020 GOSU:e:~000; PR I ~n" "SN$ (, I )" POS I TI ON ZIEHENDER LEG I Ot'4AEF~;,:!" :Gor::IJE:5€1000
2040 GOSUB12000:GOSUB9000
2060 I FF (X" ',J;' (>I THEt'H:,10SUB9000 : PF.: I t-n" FALSCHE EI t'WA:E:E" .: : GO:3UB97~30 : GOTiJ2~341!:1
2100 FORP=0TOS
2120 POKEI863+(X*Z)-«11-Y)*80),224
2140 POKE56135+(X*2)-«11-Y>*80),9
2160 GO!:;UB56000
2180 POKE56135+(X"2)-«11-~)*80),1
21~e POKEle63+(X*2)-«11-~).80),86
2195 NEXTP
2200 GOSUBSet00
2240 PR I NT" "St'~$ ( I )" WELCHE F~ I CHTU~W?~"
2280 GETR$:IFR$=""THEN2280
231210 IFR$=CHR$(81)THENZX=-1:Z~=-1:GOT02450
2310 IFR$=CHR$(S3)THEN25000
2320 IFR$=CHR$ (87') THENZX=0 :Z'T'=-1 ;GOTCl2450
233121 IFR$=CHR$(7'7')THEN34000
2340IFR$=CHR$(69)THENZX=1:ZY=-1:GOT02450
236121 IFR$=CHR$(65)THENZX=-1:Z~=0:GOT02450
238121 IFR$=CHR$(68)THENZX=1:ZY=0:GOT02450
2400 IFR$=CHR$(90)THENZX=-1:Z~=i:GOT02450
2420 IFR$=CHR$(88)THENZX=0:Z~=1:GOT02450
2440 IFR$=CHR$(67)THENZX=1:ZY=1:GOT02450
2445 OOT0228e
2450 IFX+(ZX)<10RX+(ZX»180R~+(ZY)(10R~+(ZY»11THEN22000
2~00 W=F(X+(ZX»)Y+(Z~»:G08UB55000
L1sting des Taktlk- und Strategiespiels "Caesar«
(Fortsetzung)
2~20 W2·F(X+(ZX~2),~+<ZY~2»
2~30 IFRR·1THEN2~7'0
2~4e IFW·I+4TH~N22000
2560 IFW=0THENF(X)~)=0:GOSUB20000:F(X+(ZX),~+(Z~»=I:BX=X+ZX:B~=Y+Z~
2565 IFW.0THEHF<X,~)=0:GOSUB21000:00T06800
2566 IFW)4THENOOSUB20000:BX=X+ZX:B~=',J+Z~:GOT06800
2570 IFW2=I+40RW=I+4THEN22000
257'~ IFX+(ZX~2)<10RX+(ZX*,2»180R~+(ZY~2)<10R~+(Z'~"2»liTHEN22000
2580 IFW=IANDW2=00RW=IANDW2>3THENF(X,~)=0:GOSUB20000
2600 IFW=IANDW2=00RW=IANDW2)3THENF(X+(ZX~2),~+(ZY~2»=I
2620 IFW=IANDW2=00RW=IANDW2)3THENBX=X+(ZX~2):B~=~+('Z~*2):GOSUB21000:GOT06000
2640 REM
2660 IFW=0ANDW2=0THEN22000
2680 IFW<3ANDW2=00RW(3ANDW2>3THENF(X,Y)=0:GOSUB20e00:Fex+(Zx),~+eZY»=0
2700 IFW<3ANDW2=00RW(3ANDW2)3THENBX=X+ZX:BY=~+Z~:GOSUB23000
2720 IFW(3ANDW2=00RW(3ANDW2)3THENF(X+(ZX*2),Y+(ZY*2»=I:BX=X+(ZX*2):BY=~+(ZY~2)
2740 IFW(3ANDW2=00RW<3ANDW2)3THENGOSUB21000: GOSUB53000: GOTO6000
2760 IFW)2GOT06S00
2800 GOT024000
6000 IFFCBX)BY»2THEN6800
6200 GOSIJBS000: PR It·n 11 ~'~E I TEF.:S:PF.: I t·~GEt·~? ..TA=F 1 ~'~E I t'~=F7" .:
6500 OETSS$: I FSS.:!t-= 11 11 THEt-~6500
6520 IFSS$=CHR$(133)THENX=X+(ZX*2):Y=~+(Z~*2):ZX=0:Z~=0:RR=1:GOT02100
6540 IFSS$=CHR$(134)THEN6800
6560 IFSS$=CHR$(135)THEN6800
Ausgabe 4/ April 1984
~.::it 79