0 IF A=0 THEN A=1:LOAD"FLAGFIGHT1",8,1
1 IF A=1 THEN A=2:GOSUB51000
2 IF A=2 THEN A=3:LOAD"FLAGFIGHT2",8,1
3 IF A=3 THEN A=4:LOAD"FLAGFIGHT3",8,1
4 IF A=4 THEN A=5:LOAD"SCENE"+CHR$(C+64),8,1
5 IF A=5 THEN A=6:LOAD"FLAGFIGHT4",8,1
6 IF A=6 THEN A=7:LOAD"FLAGFIGHT5",8,1
7 IF A=7 THEN A=8:LOAD"FLAGFIGHT6",8,1
9 POKE53280,0:POKE53281,0:GOSUB5000
10 POKE53272,18
20 PRINT"[147][152]":POKE650,128
30 SYS49664  : REM *** BILDSCHIRM KOPIE
45 GOSUB50000
47 :SYS AD
50 F2=1:X=0:SP=0:ME=128:IFX1<>1THENGOSUB7000
55 GOSUB1000
60 F2=7:X=0:SP=1:ME=192:GOSUB7000:GOSUB1000
100 F2=1:X=0:SP=0:ME=128:GOSUB7500:GOSUB10000
110 F2=7:X=0:SP=1:ME=192:GOSUB7500:GOSUB10000
120 X1=1:SP=0:GOSUB7000:FORI=1TO30:MP(I,0,1)=MP(I,0,0):MP(I,1,1)=MP(I,1,0):NEXTI
130 FORI=1TO30:AN(I,0)=0:AN(I,1)=0:NEXTI
140 FORI=1TO30:EF(I,0)=EF(I,0)+5:EF(I,1)=EF(I,1)+5
150 IF EF(I,0)>99THEN EF(I,0)=99
160 IF EF(I,1)>99THEN EF(I,1)=99
165 IF GA(1,0) =0 THEN POKE53272,21:GOSUB60000
166 IF GA(1,1) =0 THEN POKE53272,21:GOSUB60100
170 NEXTI
500 GOTO50
990 END
991 :***   MOVE PHASE     ****
992 :
1000 F1=3:GOSUB3000:IF X=1THEN RETURN
1010 PE=PEEK(53244)*40+PEEK(53245)+1024
1020 BU=PEEK(PE):IFBU>ME AND BU<ME+30 THEN 1030
1025 GOTO1000
1030 IF X = 0 THEN GOSUB 4000
1040 GOSUB 2000
1045 POKE214,24:POKE211,0:SYS58732
1047 PRINT"                                       ";
1050 IF X=0 THEN 1000
1055 RETURN
2000 :
2010 :REM ***   MOVE SUBROUTINE    ***
2020 IF X=1 THEN RETURN
2030 GETKE$:IFKE$=""THEN2030
2040 ZW=PE
2060 IFKE$="M"THEN POKE53246,1:GOSUB2180:REM RUNTER
2070 IFKE$="I"THEN POKE53246,2:GOSUB2190:REM HOCH
2080 IFKE$="J"THEN POKE53246,4:GOSUB2200:REM LINKS
2090 IFKE$="K"THEN POKE53246,3:GOSUB2210:REM RECHTS
2100 IFKE$="U"THEN POKE53246,5:GOSUB2220:REM LHOCH
2110 IFKE$="O"THEN POKE53246,6:GOSUB2230:REM RHOCH
2120 IFKE$="N"THEN POKE53246,8:GOSUB2240:REM LRUNT
2130 IFKE$=","THEN POKE53246,7:GOSUB2250:REM RRUNT
2135 IFKE$="V"THEN EF(EI,SP)=EF(EI,SP)-10:GOSUB 2255
2137 IFKE$="E"THEN GOSUB6010:REM INFO
2140 IFKE$=CHR$(13) THEN POKE53248+39,3:RETURN
2150 :
2160 GOTO2030
2170 :
2180 GOSUB2270:PE=PE+40:GOSUB2290:POKEPE,BU:GOSUB2420:RETURN
2190 GOSUB2270:PE=PE-40:GOSUB2290:POKEPE,BU:GOSUB2420:RETURN
2200 GOSUB2270:PE=PE-1:GOSUB2290:POKEPE,BU:GOSUB2420:RETURN
2210 GOSUB2270:PE=PE+1:GOSUB2290:POKEPE,BU:GOSUB2420:RETURN
2220 GOSUB2270:PE=PE-41:GOSUB2290:POKEPE,BU:GOSUB2420:RETURN
2230 GOSUB2270:PE=PE-39:GOSUB2290:POKEPE,BU:GOSUB2420:RETURN
2240 GOSUB2270:PE=PE+39:GOSUB2290:POKEPE,BU:GOSUB2420:RETURN
2250 GOSUB2270:PE=PE+41:GOSUB2290:POKEPE,BU:GOSUB2420:RETURN
2251 :
2255 IF VE(EI,SP) = 1 THEN RETURN
2256 MP(EI,SP,1)=MP(EI,SP,1)-3
2257 IF MP(EI,SP,1)<0 THEN MP(EI,SP,1)=MP(EI,SP,1)+3:RETURN
2258 VE(EI,SP)=1:GOSUB4000:RETURN
2260 :
2270 BA=PEEK(PE+29696):BF=PEEK(PE+30720):POKEPE,BA:POKEPE+54272,BF:RETURN
2280 :
2290 IF PE>1983 OR PE<1024 OR PEEK(PE)>127ORPEEK(PE)=0 THEN PE=ZW:GOTO2400
2300 :
2310 :REM *** HIER MOVEPOINTS ABFRAGE
2315 :
2320 AB=1
2330 IF PEEK(PE)=65 THEN AB=2
2340 IF PEEK(PE)=66 THEN AB=3
2350 IF PEEK(PE)>66 AND PEEK(PE)<73THEN AB=4
2360 IF PEEK(PE)=74 THEN AB=3
2365 IF PEEK(PE)=73 THEN AB=5
2370 IF PEEK(PE)>74ANDPEEK(PE)<84 THEN AB=6
2380 MP(EI,SP,1)=MP(EI,SP,1)-AB:EF(EI,SP)=EF(EI,SP)-1
2390 IF MP(EI,SP,1)<0THENMP(EI,SP,1)=MP(EI,SP,1)+AB:PE=ZW:EF(EI,SP)=EF(EI,SP)+1
2395 VE(EI,SP)=0:GOSUB 4000
2400 RETURN
2410 :
2420 POKEPE+54272,F2:IF PE<>ZW THENSYSAD
2430 RETURN
3000 :
3010 :REM *** SPRMOVE SUBROUTINE    ***
3015 :
3020 POKE53248+21,1:POKE53248+39,F1
3030 GETKE$:IFKE$=""THEN3030
3040 :
3060 IFKE$="M"THEN POKE53246,1:SYSAD
3070 IFKE$="I"THEN POKE53246,2:SYSAD
3080 IFKE$="K"THEN POKE53246,3:SYSAD
3090 IFKE$="J"THEN POKE53246,4:SYSAD
3100 IFKE$="U"THEN POKE53246,5:SYSAD
3110 IFKE$="O"THEN POKE53246,6:SYSAD
3120 IFKE$=","THEN POKE53246,7:SYSAD
3130 IFKE$="N"THEN POKE53246,8:SYSAD
3135 IFKE$="H"THEN POKE53246,9:SYSAD
3140 IFKE$=CHR$(13) THENPOKE53248+39,6:RETURN
3145 IFKE$="X"THEN X=1:RETURN
3150 :
3160 GOTO3030
3170 :
3990 :
3991 : ***   EINHEIT ERMITTELN  ***
3992 :
4000 POKE214,24:POKE211,0:SYS58732:EI=BU-ME
4010 PRINT" EINHEIT NR. :";EI;"BEWEGUNGSPUNKTE :";MP(EI,SP,1);
4020 IF MP(EI,SP,1) < 10 THEN PRINT"[157] ";
4030 RETURN
5000 DIM MP(30,1,1),AN(30,1)
5010 DIMGA(30,1),AF(30,1),VF(30,1),ST(30,1),VE(30,1),RA(30,1),EF(30,1)
5015 FORI=0TO30:GA(I,0)=0:GA(I,1)=0:NEXTI
5020 GOSUB20000
5030 AD=49152:POKE53246,9:SYSAD:X=0:ZW=0:
5040 FORI=1TO30:EF(I,0)=99:EF(I,1)=99:NEXTI
5050 RETURN
6000 :
6001 REM***   INFORMATIONENAUFRUF  ***
6002 :
6010 POKE53248+21,0:SYS50176 :REM BILDSCHIRM SICHERN
6015 O=13:X$="":GOSUB6500:IF EI>9 THEN O=12
6020 PRINT"[152]";
6030 PRINT"[176]#############################[174]"
6035 FORI=0TO7:PRINT"                            ":NEXTI
6040 PRINT"";X$;"%EINHEIT NR.: ";EI;SPC(O);"%"
6050 PRINTX$;"%GATTUNG    : ";GA$;"%"
6055 O=13:IF MP(EI,SP,1) > 9 THEN O=12
6060 PRINTX$;"%BEWEGUNGSP.: ";MP(EI,SP,1);SPC(O);"%"
6065 O=13:IF VF(EI,SP) > 9 THEN O=12
6070 PRINTX$;"%VERTEID.FA.: ";VF(EI,SP);SPC(O);"%"
6075 O=13:IF AF(EI,SP) > 9 THEN O=12
6080 PRINTX$;"%ANGRIFFSFA.: ";AF(EI,SP);SPC(O);"%"
6085 O=13:IF RA(EI,SP) > 9 THEN O=12
6090 PRINTX$;"%AKTIONSRAD.: ";RA(EI,SP);SPC(O);"%"
6095 O=13:IF ST(EI,SP) > 9 THEN O=12
6096 IF ST(EI,SP) > 99THEN O=11
6100 PRINTX$;"%STAERKE    : ";ST(EI,SP);SPC(O);"%"
6105 O=13:IF EF(EI,SP) > 9 THEN O=12
6106 PRINTX$;"%MORAL      : ";EF(EI,SP);SPC(O);"%"
6120 IF VE(EI,SP)=1THEN PRINTX$;"% -VERSCHANZT                 %"
6130 PRINTX$;"[173]#############################[189]"
6140 GETKE$:IFKE$=""THEN6140
6150 POKE53248+21,1:SYS49920:RETURN
6500 IF GA(EI,SP)=1 THEN GA$="BOGENSCH&TZEN"
6510 IF GA(EI,SP)=2 THEN GA$="ARMBRUSTSCH&TZEN"
6520 IF GA(EI,SP)=3 THEN GA$="KREUZRITTER"
6530 IF GA(EI,SP)=4 THEN GA$="RITTER"
6540 IF GA(EI,SP)=5 THEN GA$="STEINSCHLEUDER"
6550 IF GA(EI,SP)=6 THEN GA$="BAUERN"
6560 IF GA(EI,SP)=7 THEN GA$="S'LDNER"
6570 IF GA(EI,SP)=8 THEN GA$="MORGENSTERNE"
6580 IF GA(EI,SP)=9 THEN GA$="KRIEGSELEFANTEN"
6590 IF GA(EI,SP)=10 THEN GA$="FAHNENTR^GER"
6600 RETURN
7000 SYS50176:X$="":PRINT"[152]";X$
7010 PRINTX$;"[176]####################[174]
7020 [153]X$;"%   BEWEGUNGSPHASE   %
7030 PRINTX$;"%     SPIELER";SP+1;"     %
7040 [153]X$;"/####################EXP
7050 FORI=0TO1425:NEXTI
7060 SYS49920:RETURN
7500 SYS50176:X$="":PRINT"[152]";X$
7510 PRINTX$;"[176]####################[174]
7520 [153]X$;"%   ANGRIFFSPHASE    %
7530 PRINTX$;"%     SPIELER";SP+1;"     %
7540 [153]X$;"/####################EXP
7550 FORI=0TO1425:NEXTI
7560 SYS49920:RETURN
9010 :
9020 :****      KAMPF RADIUSABFRAGE
9030 :
9040 :
10000 F1=3:GOSUB3000:POKE53248+39,6:IF X=1 THEN RETURN
10002 RD=0
10010 PE=PEEK(53244)*40+PEEK(53245)+1024
10020 BU=PEEK(PE):IFBU>ME AND BU<ME+30THEN 10030
10025 GOTO 10000
10030 GOSUB 4000
10035 KE$="":GOSUB10040
10037 GOTO10000
10040 GET KE$:IFKE$=""THEN 10040
10060 IF KE$="A" THEN 10100:REM ANGRIFF
10070 IF KE$="E" THEN GOSUB 6010:REM INFO
10075 IF KE$=CHR$(13)THEN 10090
10080 GOTO 10040
10090 POKE214,24:POKE211,0:SYS58732
10091 PRINT"                                       ";:RETURN
10100 IF AN(EI,SP)=1OR EF(EI,SP)<40 THEN RETURN
10200 F1=8:GOSUB3000
10210 P2=PEEK(53244)*40+PEEK(53245)+1024
10220 B2=PEEK(P2):IFB2<127 THEN RETURN
10230 IF PE > P2 THEN GOSUB 10500
10240 IF PE < P2 THEN GOSUB 10600
10250 IF RD=1 THEN AN(EI,SP)=1:GOSUB30000
10260 IF RD=0 THEN RD=0
10270 GOSUB10090:RETURN
10500 FORI=1TORA(EI,SP)
10510 P3=PE-(40*I)+RA(EI,SP)+1:P4=P3-(2*RA(EI,SP))-2
10520 IF P3 > P2 AND P4 < P2 THEN RD=1:H=I:I=RA(EI,SP)
10530 NEXTI
10540 GOSUB 10560
10550 RETURN
10560 IF PE+RA(EI,SP)+1> P2 AND PE-RA(EI,SP)-1 < P2 THEN RD=1
10570 RETURN
10600 FORI=1TORA(EI,SP)
10610 P3=PE+(40*I)-RA(EI,SP)-1:P4=P3+(2*RA(EI,SP))+2
10620 IF P3 < P2 AND P4 > P2 THEN RD=1:I=RA(EI,SP)
10630 NEXTI
10640 GOSUB 10560
10650 RETURN
20000 EI=1:SP=0:GE=150:AR=3080
20005 IF EI = 30 THEN GOSUB20660:GOTO20060
20010 GOSUB 20090
20020 GOSUB 20160
20030 SYS28672,9,1,10
20040 A=PEEK(53247)+1
20050 ON A GOSUB 20300,20340,20380,20420,20460,20500,20540,20580,20620,20660
20060 IF SP=0THENGOTO20005
20070 IF SP=1THENGOTO20005
20080 G=10:R=1:M=5:AG=1:V=10:SP=0:EI=1:S=25:GOSUB20980
20085 G=10:R=1:M=5:AG=1:V=10:SP=1:EI=1:S=25:GOSUB20980
20090 PRINT"[147][155]"
20100 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
20110 [153]"PEEK SPIELER : ";SP[170]1;"    PEEK"
20120 [153]"/LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP
20130 PRINT"MOBILISIERUNGSPUNKTE :";GE
20140 PRINT"BITTE WAEHLEN SIE EINHEIT NR.";EI+1;"AUS."
20150 RETURN
20160 PRINT"[152]"
20170 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
20180 [153]"PEEK BOGENSCHUETZEN    PEEK
20190 PRINT"[194] ARMBRUSTSCHUETZEN [194]
20200 [153]"PEEK KREUZRITTER       PEEK
20210 PRINT"[194] RITTER            [194]
20220 [153]"PEEK STEINSCHLEUDER    PEEK
20230 PRINT"[194] BAUERN            [194]
20240 [153]"PEEK SOELDNER          PEEK
20250 PRINT"[194] MORGENSTERNE      [194]
20260 [153]"PEEK KRIEGSELEFANTEN   PEEK
20270 PRINT"[194] ENDE              [194]
20280 [153]"/LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP
20295 PRINT"[159](C) BY ANDREAS SCHWEDHELM, MICHAEL KLAMT":RETURN
20300 R=3:S=60:G=1:M=7:AG=1:V=1:PR=6
20310 GOSUB20670
20320 ON A GOSUB 20950,20760
20330 RETURN
20340 R=2:S=35:G=2:M=8:AG=1:V=1:PR=7
20350 GOSUB20670
20360 ON A GOSUB 20950,20760
20370 RETURN
20380 R=1:S=50:G=3:M=12:AG=5:V=6:PR=12
20390 GOSUB20670
20400 ON A GOSUB 20950,20760
20410 RETURN
20420 R=1:S=75:G=4:M=14:AG=3:V=4:PR=10
20430 GOSUB20670
20440 ON A GOSUB 20950,20760
20450 RETURN
20460 R=5:S=10:G=5:M=6:AG=0:V=1:PR=2
20470 GOSUB20670
20480 ON A GOSUB 20950,20760
20490 RETURN
20500 R=1:S=225:G=6:M=7:AG=1:V=1:PR=7
20510 GOSUB20670
20520 ON A GOSUB 20950,20760
20530 RETURN
20540 R=1:S=100:G=7:M=8:AG=2:V=2:PR=8
20550 GOSUB20670
20560 ON A GOSUB 20950,20760
20570 RETURN
20580 R=1:S=65:G=8:M=8:AG=3:V=1:PR=4
20590 GOSUB20670
20600 ON A GOSUB 20950,20760
20610 RETURN
20620 R=1:S=5:G=9:M=5:AG=15:V=20:PR=8
20630 GOSUB20670
20640 ON A GOSUB 20950,20760
20650 RETURN
20660 AR=3592:SP=SP+1:GE=150:EI=1:RETURN
20670 PRINT"[152]"
20680 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
20690 PRINT"[194] KAUFEN      [194]"
20700 PRINT"[194] INFORMATION [194]"
20710 PRINT"[194] ZURUECK     [194]"
20720 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
20730 SYS28672,2,14,13
20740 A=PEEK(53247)+1
20750 RETURN
20760 PRINT"[152]"
20770 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
20780 PRINT"[194] BEWEGUNGSP.:    [194]"
20790 PRINT"[194] STAERKE    :    [194]"
20800 PRINT"[194] ANGRIFFSFA.:    [194]"
20810 PRINT"[194] VERTEID.FA.:    [194]"
20820 PRINT"[194] RADIUS     :    [194]"
20830 PRINT"[194] PREIS      :    [194]"
20840 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
20850 PRINT""
20860 X$=""
20870 PRINTX$;M
20880 PRINTX$;S
20890 PRINTX$;AG
20900 PRINTX$;V
20910 PRINTX$;R
20920 PRINTX$;PR
20930 GETKE$:IFKE$=""THEN20930
20940 RETURN
20950 GE=GE-PR
20960 IF GE<1 THEN GE=GE+PR:RETURN
20970 FORI=0TO7:POKEEI*8+AR+I,PEEK(3320+G*8+I):NEXTI:EI=EI+1
20980 MP(EI,SP,0)=M:MP(EI,SP,1)=M
20990 VF(EI,SP)=V:AF(EI,SP)=AG
21000 ST(EI,SP)=S:RA(EI,SP)=R
21010 GA(EI,SP)=G
21020 RETURN
30000 IF SP=0 THEN I=1:MU=192
30010 IF SP=1 THEN I=0:MU=128
30020 E1=PEEK(P2)-MU:HI=29696
30030 IF EF(E1,I)<25THEN POKEP2,PEEK(P2+29696):POKE54272+P2,PEEK(P2+30720)
30035 OF=1
30040 IF PEEK(PE+HI)=65 THEN OF=.9
30050 IF PEEK(PE+HI)=66 THEN OF=.8
30060 IF PEEK(PE+HI)>66 AND PEEK(PE+HI)<73THEN OF=.5
30070 IF PEEK(PE+HI)=74 THEN OF=1.2
30080 IF PEEK(PE+HI)=73 THEN OF=1.5
30090 IF PEEK(PE+HI)>74ANDPEEK(PE+HI)<84 THEN OF=.25:REM *******
30095 DE=1
30100 IF PEEK(P2+HI)=65 THEN DE=1.1
30110 IF PEEK(P2+HI)=66 THEN DE=1.3
30120 IF PEEK(P2+HI)>66 AND PEEK(P2+HI)<73THEN DE=0.5
30130 IF PEEK(P2+HI)=74 THEN DE=1.2
30140 IF PEEK(P2+HI)=73 THEN DE=1.5
30150 IF PEEK(P2+HI)>74ANDPEEK(P2+HI)<84 THEN DE=0.25
30151 IF VE(E1,I)=1THEN DE=DE+0.2
30152 IF GA(EI,SP)=1THEN DD = 3:GOTO 40000
30153 IF GA(EI,SP)=2THEN DD = 5:GOTO 40000
30154 IF GA(EI,SP)=5THEN DD = 20 :GOTO 40000
30155 AG=OF*ST(EI,SP)*AF(EI,SP)*(EF(EI,SP)/100)
30160 DF=AF(E1,I)*ST(E1,I)*DE*(EF(E1,I)/100)
30170 OD=ST(EI,SP)/ST(E1,I)
30180 IF OD < .14 THEN B=2:R=3
30190 IF OD > .13 AND OD < .26 THEN B=2:R=2.5
30200 IF OD > .25 AND OD < 5 THEN B=2:R=2
30210 IF OD > 4 AND OD < 7 THEN B=2.5:R=2
30220 IF OD > 6 THEN B=3:R=2
30222 RM = 1
30224 IF EF(E1,I)<75 THEN RM = 100/EF(E1,I)/1.1
30226 BM=1
30228 IF EF(E1,SP)<85 THEN BM= 100/EF(EI,SP)
30230 V1=DF/VF(EI,SP)/B*BM/1.5:V1=INT(V1)
30231 IF DE < 1 THEN DE=1
30232 V2=AG/VF(E1,I)/R*RM/1.5/DE:V2=INT(V2)
30233 D=ST(EI,SP):E=ST(E1,I)
30235 ST(EI,SP)=ST(EI,SP)-V1:ST(E1,I)=ST(E1,I)-V2
30240 IF ST(E1,I)<1 THEN GOSUB 30850
30245 IF ST(EI,SP)<1 THEN GOSUB 30800
30250 X1=V1/ST(EI,SP):X2=V2/ST(E1,I):X1=X1*10:X1=INT(X1):X2=X2*10:X2=INT(X2)
30252 EF(EI,SP)=EF(EI,SP)-5-X1
30255 EF(E1,I)=EF(E1,I)-2-X2
30260 IF EF(E1,I)<21 THEN GOSUB 30850
30270 IF V1 > D THEN V1 = D
30275 IF V2 > E THEN V2=E
30295 GOSUB30300
30297 RETURN
30300 POKE53248+21,0:SYS50176 :REM BILDSCHIRM SICHERN
30310 O=13:X$="":IF EI>9 THEN O=12
30320 PRINT"[152]";
30330 PRINT"[176]#############################[174]"
30340 FORZ=0TO3:PRINT"                           ":NEXTZ
30350 PRINT"";X$;"% ANGREIFER                   %"
30370 O=13:IF ST(EI,SP) > 9 THEN O=12
30375 IF ST(EI,SP) >99 THEN O=11
30380 PRINTX$;"%ST^RKE     : ";ST(EI,SP);SPC(O);"%"
30390 O=13
30391 IF V1 > 9 THEN O=12
30392 IF V1 > 99THEN O=11
30393 PRINTX$;"%VERLUSTE   : ";V1;SPC(O);"%"
30394 O=13:IF EF(EI,SP) > 9 THEN O=12
30400 PRINTX$;"%MORALE     : ";EF(EI,SP);SPC(O);"%"
30410 PRINTX$;"[173]#############################[189]"
30420 GETKE$:IFKE$=""THEN30420
30510 O=13:IF I>9 THEN O=12
30520 PRINT"[152]";
30530 PRINT"[176]#############################[174]"
30540 FORZ=0TO3:PRINT"                            ":NEXTZ
30550 PRINT"";X$;"% VERTEIDIGER                 %"
30570 O=13:IF ST(E1,I) > 9 THEN O=12
30575 IF ST(E1,I) > 99THEN O=11
30580 PRINTX$;"%ST^RKE     : ";ST(E1,I);SPC(O);"%"
30590 O=13
30591 IF V2 > 9 THEN O=12
30592 IF V2 > 99THEN O=11
30593 PRINTX$;"%VERLUSTE   : ";V2;SPC(O);"%"
30594 O=13:IF EF(E1,I) > 9 THEN O=12
30600 PRINTX$;"%MORALE     : ";EF(E1,I);SPC(O);"%"
30620 GETKE$:IFKE$=""THEN30620
30630 POKE53248+21,1:SYS49920:RETURN
30800 POKEPE,PEEK(PE+29696):POKE54272+PE,PEEK(PE+30720):EF(EI,SP)=0
30810 GA(EI,SP)=0:RETURN
30850 POKEP2,PEEK(P2+29696):POKE54272+P2,PEEK(P2+30720):EF(E1,I)=0
30860 GA(E1,I)=0:RETURN
40000 IF DE <= 0 THEN DE = 1
40005 D=ST(E1,I)
40010 FE=ST(EI,SP)*(EF(EI,SP)/100)/DE
40015 IF H <= 0 THEN H=1
40020 FE=(3/H)*FE
40030 AU=MP(E1,I,1)/8
40040 IF AU < 1 THEN AU =1
40050 SU = VF(E1,I)/DD
40060 IF SU > 10 THEN SU =10
40070 IF AU < .2 THEN SU =.3
40080 IF ST(E1,I)<30 THEN DN = .9
40090 IF ST(E1,I)>29 AND ST(E1,I)<60 THEN DN =1
40100 IF ST(E1,I)>59 THEN DN=1.1
40110 V1=0:V2=FE/AU/SU*DN/8:V2=INT (V2)
40115 ST(E1,I)=ST(E1,I)-V2
40120 EF(EI,SP)=EF(EI,SP)-5:EF(E1,I)=EF(E1,I)-5
40130 IF V2 > D THEN V2=D
40140 IF ST(E1,I)< 1 THEN GOSUB 30850
40150 IF EF(E1,I)< 21 THEN GOSUB 30850
40160 GOSUB 30300
40170 RETURN
50000 FORI=1TO15
50010 IF GA(I,0)=0THENI=16:GOTO50030
50020 POKE1225+I*40,I+128:POKE55296+201+I*40,1
50030 NEXTI
50040 FORI=1TO15
50050 IF GA(I+15,0)=0THENI=16:GOTO50070
50060 POKE1226+I*40,I+128+15:POKE55296+202+I*40,1
50070 NEXTI
50100 FORI=1TO15
50110 IF GA(I,1)=0THENI=16:GOTO50130
50120 POKE1262+I*40,I+192:POKE55296+I*40+238,7
50130 NEXTI
50140 FORI=1TO15
50150 IF GA(I+15,1)=0THENI=16:GOTO50170
50160 POKE1263+I*40,I+192+15:POKE55296+I*40+239,7
50170 NEXTI
50180 RETURN
51000 POKE53280,0:POKE53281,0:PRINT"[147][151]"
51010 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
51020 [153]"PEEK   SCENARIO ?    PEEK
51030 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]
51040 [153]"PEEK   SCENARIO 1    PEEK
51050 PRINT"[194]   SCENARIO 2    [194]
51052 [153]"PEEK   SCENARIO 3    PEEK
51053 PRINT"[194]   SCENARIO 4    [194]
51054 [153]"PEEK   SCENARIO 5    PEEK
51060 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
51070 [153]"PRINT#CURSOR UP/DOWN
51080 PRINT"UND RETURN FUER
51090 [153]"AUSWAHL.
51100 PRINT"[155] WRITTEN BY ANDREAS SCHWEDHELM"
51110 PRINT"                 AND MICHAEL KLAMT '89"
51150 SYS28672,4,1,8:C=PEEK(53247)+1
51160 RETURN
60000 SP=2:GOTO60200
60100 SP=1:GOTO60200
60200 PRINT"[152][147]
60220 [153]"
60221 PRINT"             SIEG !!!
60222 [153]"           -----------
60223 PRINT"
60224 [153]"   SPIELER";SP;"HAT NACH EINER LANGEN
60225 PRINT"   SCHLACHT GEWONNEN.
60226 [153]"           GRATULATION ...
60300 GETA$:IFA$=""THEN 60300
60310 PRINT"WOLLEN SIE NOCHEINMAL SPIELEN (J/N)?"
60320 GETA$:IFA$=""THEN60320
60330 IF A$="J"THEN RUN
60340 SYS 64378