1 REM***********************
2 REM*  IMPERIUM ROMANUM   *
3 REM*   GESCHRIEBEN VON   *
4 REM*   RALF TRABHARDT    *
5 REM* PHILIPPSBERGSTR. 45 *
6 REM*  6200   WIESBADEN   *
7 REM***********************
10 POKE646,14:IFA=0THENA=1:LOAD"ROMANUM",8,1
15 SYS49152
17 DIMA(21),B(21),L(21),M(21),N(21)
20 FB=53280:GOSUB8000
25 JA=395:Z=0:ZT=0
27 Q$="----------------"
28 C$="                "
29 V=53248:S=54272
30 POKES+5,9:POKES+15,30:POKES+24,15
32 O2=0:O1=14:GOSUB5000
40 FORI=1TO20:READA(I):L(I)=70:M(I)=100:NEXTI
45 FORI=1TO15:READB(I):NEXTI
50 FORI=1TO5:READK(I):NEXTI
100 REM*ERSTELLEN DER KARTE*
106 SYS50178
109 POKEV+21,127:QL=0:GOTO250
111 PRINT"[144]"
112 PRINTTAB(103)Q$
113 IFZ=0THENP$=P1$:KA=L(I)
114 IFZ=1THENP$=P2$:KA=M(I)
115 PRINTTAB(23)P$
116 PRINTTAB(23)Q$
117 PRINTTAB(23)"ZEIT:"JA+ZT"N.CHR"
118 PRINTTAB(23)Q$:IFQL=0THENQL=1:PRINT"":RETURN
119 PRINTTAB(23)"DIES IST DIE"
120 IFZ=0THENPRINTTAB(22)I". LEGION ROMS"
121 IFZ=1THENPRINTTAB(22)I".GERMAN.HORDE"
122 PRINTTAB(23)"KAMPFKRAFT:"KA
123 RETURN
124 PRINTTAB(23)Q$:FORY=1TO20:IFL(Y)>0THENLG=LG+1:S4=S4+L(Y)
125 NEXTY:IFLG<1THEN2000
126 S1=INT((100/70)*(S4/LG)):S4=0:PRINTTAB(23)P1$:PRINTTAB(23)"LEGIONEN :"LG
127 PRINTTAB(23)"STAERKE  :"S1"%":LG=0
128 PRINTTAB(23)Q$:FORY=1TO15:IFM(Y)>0THENHO=HO+1:S3=S3+M(Y)
129 NEXTY:IFHO<1THEN2500
130 S2=INT(S3/HO):S3=0:PRINTTAB(23)P2$:PRINTTAB(23)"HORDEN   :"HO
131 PRINTTAB(23)"STAERKE  :"S2"%":HO=0
132 PRINTTAB(23)Q$
133 PRINTTAB(23)"EROBERTE STAEDTE"
134 IFK(3)=5THENPRINTTAB(23)"ROMA"
135 IFK(4)=5THENPRINTTAB(23)"BYZANTIUM"
136 IFK(2)=5THENPRINTTAB(23)"SAGUNTUM"
137 IFK(5)=5THENPRINTTAB(23)"CARTHAGO"
138 IFK(1)=5THENPRINTTAB(23)"LUTETIA"
200 FORI=1TO20:IFL(I)>0THENPOKEA(I),216
201 IFM(I)>0THENPOKEB(I),214
205 NEXTI
210 FORY=1TO5:IFK(Y)>5THENPOKEK(Y),213
212 NEXTY
215 RETURN
220 POKE214,7:SYS58460:FORY=1TO3
230 PRINTTAB(23)C$:NEXTY
240 RETURN
250 GOSUB111
260 GOSUB124
322 REM*BEWEGUNG DES FADENKREUZES*
328 X1=152:Y1=152
333 IFZ=0THENJO=56320
334 IFZ=1THENJO=56321
335 POKEV+14,X1:POKEV+15,Y1:POKEV+21,255
337 GOSUB3005
338 IFU=5THEN350
339 IFU=4THENY1=Y1+4
340 IFU=1THENX1=X1-4
341 IFU=3THENX1=X1+4
342 IFU=2THENY1=Y1-4
344 IFY1<70THENY1=68
345 IFY1>234THENY1=236
346 IFX1<18THENX1=16
347 IFX1>182THENX1=184
348 IFPEEK(197)=4THEN800
349 GOTO335
350 REM*FEUERTASTE*
351 X2=X1/8-2:Y2=Y1/8-4.5
352 GS=984+X2+(Y2*40)
354 FORI=1TO20:IFZ=0ANDL(I)>0ANDA(I)=GSTHEN360
355 IFZ=1ANDM(I)>0ANDB(I)=GSTHEN360
356 NEXTI
358 GOTO335
360 GOSUB220
370 GOSUB111
480 REM*BEWEGUNG DER LEGIONEN*
500 X=GS:POKES+1,130:POKES+4,21
502 POKEV+21,127:W1=59
503 GOSUB3005
505 W2=PEEK(X-40):IFW2<>32ANDW2<>214ANDW2<>216THENSW=1
510 IFU=2ANDN(I)<2ANDSW=1THENPOKEX,W1:X=X-40:N(I)=N(I)+1:W1=W2:GOTO600
515 W3=PEEK(X+40):IFW3<>32ANDW3<>214ANDW3<>216THENSW=2
517 IFX>2004THENSW=0
520 IFU=4ANDN(I)<2ANDSW=2THENPOKEX,W1:X=X+40:N(I)=N(I)+1:W1=W3:GOTO600
521 W4=PEEK(X-1):IFW4<>32ANDW4<>214ANDW4<>216THENSW=3
530 IFU=1ANDN(I)<2ANDSW=3THENPOKEX,W1:X=X-1:N(I)=N(I)+1:W1=W4:GOTO600
532 W5=PEEK(X+1):IFW5<>32ANDW5<>214ANDW5<>216THENSW=4
540 IFU=3ANDN(I)<2ANDSW=4THENPOKEX,W1:X=X+1:N(I)=N(I)+1:W1=W5
600 SW=0:IFZ=0THENPOKEX,216:A(I)=X
610 IFZ=1THENPOKEX,214:B(I)=X
615 FORY=1TO5:IFB(I)=K(Y)THENK(Y)=5:POKES+4,21:BE=BE+1:IFBE>3THENBE=0:GOTO2000
616 POKES+4,20:NEXTY
620 IFU=5THENPOKES+4,21:POKES+4,20:GOTO335
700 GOTO503
800 POKEV+21,127:Z=Z+1:IFZ=2THENZ=0:ZT=ZT+1:IFZT=25THEN2500
801 POKE56334,PEEK(56334)AND254
802 IFZT=9THENGOSUB9000
810 FORT=1TO20:IFL(T)<1THEN870
812 POKES+1,100+T
813 POKES+4,21
815 I=A(T)+40:K=A(T)+1
816 C=A(T)-1:G=A(T)-40
818 FORL=1TO15:IFM(L)<1THEN860
819 Q=B(L)
820 IFI=QORG=QORC=QORK=QTHEN840
830 GOTO860
840 O=INT(RND(1)*20)+1:L(T)=L(T)-O:IFL(T)<1THENPOKEA(T),217
850 P=INT(RND(1)*20)+1:M(L)=M(L)-P
855 IFM(L)<1THENPOKEB(L),215
860 NEXTL
870 POKES+4,20:NEXTT
880 FORI=1TO20:N(I)=0:NEXTI
890 POKE56334,PEEK(56334)OR1
1020 GOTO106
2000 REM*SIEG DER GERMANEN*
2010 POKEFB+1,8:POKEFB,9:POKEV+21,0
2020 PRINT"[147][158]":PRINTTAB(3)P2$", HERRSCHER DER GERMANEN !"
2100 PRINTTAB(41)"DAS ROEMISCHE IMPERIUM LIEGT AM BODEN !"
2101 PRINTTAB(10)"( VAE VICTIS !!! )"
2105 PRINTTAB(40)"----------------------------------------"
2110 PRINTTAB(83)"DIE GERMANEN HABEN SIE WEGEN IHRER"
2120 PRINTTAB(43)"FUEHRUNGSFAEHIGKEITEN ZUM KOENIG AUF"
2125 PRINTTAB(43)"LEBENSZEIT ERNANNT !!!"
2130 PRINTTAB(83)"(DAS IST EINE GROSSE EHRE, WENN MAN"
2135 PRINTTAB(43)"BEDENKT, DASS BALD DIE HUNNEN"
2140 PRINTTAB(43)"KOMMEN)!!"
2150 GOTO2640
2490 REM*SIEG DER ROEMER*
2500 POKEFB+1,9:POKEFB,8:POKEV+21,0
2550 PRINT"[147][158]":PRINTTAB(3)"AVE "P1$", KAISER VON ROM"
2560 PRINTTAB(40)"----------------------------------------"
2600 PRINTTAB(82)"DAS ROEMISCHE IMPERIUM KONNTE DIESEN"
2605 PRINTTAB(42)"KLAEGLICHEN VERSUCH EINER HORDE"
2610 PRINTTAB(42)"BARBAREN LAESSIG ABWEHREN."
2620 PRINTTAB(124)"DEN GERMANEN FOLGENDEN TIP:"
2630 PRINTTAB(84)"VERSUCHT ES IN HUNDERT JAHREN":PRINTTAB(44)"NOCHEINMAL!"
2640 PRINTTAB(52)"- FEUERKNOPF -";
2650 GOSUB3005
2660 IFU=5THEN9500
2670 GOTO2650
3000 REM*JOYSTICKABFRAGE*
3005 U=0:J=PEEK(JO)
3007 IF(JAND16)=0THENU=5
3010 IF(JAND1)=0THENU=2
3015 IF(JAND2)=0THENU=4
3020 IF(JAND4)=0THENU=1
3025 IF(JAND8)=0THENU=3
3040 RETURN
4990 REM*BILDSCHIRMFARBEN*
5000 PRINT"[147][144]":PRINTTAB(164)"WAEHLEN SIE DIE BILDSCHIRMFARBEN:"
5001 PRINTTAB(3)"--------------------------------"
5002 PRINTTAB(129)"F1[146] = BILDSCHIRMFARBE"
5003 PRINTTAB(89)"F3[146] = RAHMENFARBE "
5004 PRINTTAB(89)"F7[146] = START"
5005 POKEFB,O2:POKEFB+1,O1:GETZ$
5007 IFZ$="[133]"THENO1=O1+1:IFO1>15THENO1=2
5008 IFZ$="[134]"THENO2=O2+1:IFO2>15THENO2=0
5020 IFZ$="[136]"THENRETURN
5030 FORI=1TO50:NEXTI:GOTO5005
6000 DATA1312,1393,1429,1474,1515,1516,1518
6010 DATA1520,1522,1511,1549,1601,1625,1632
6020 DATA1639,1720,1746,1796,1948,1965
6030 DATA1275,1314,1315,1316,1355,1356,1395
6040 DATA1396,1397,1398,1436,1437,1438,1439
6050 DATA1440,1430,1745,1755,1845,1952
8000 REM* NAMEN*
8001 D=0:JO=56320
8002 PO=1549:POKEFB,0:POKEFB+1,0
8005 PRINT"[147]":PRINTTAB(52)"[176][192][192][192][192][192][192][192][192][192][192][192][174]"
8010 PRINTTAB(12)"[221][153] SPIELER";1+D;"[221]"
8020 PRINTTAB(12)"[173][192][192][192][192][192][192][192][192][192][192][192][189]"
8025 IFD=0THENPRINTTAB(51)"[156]KAISER VON ROM!"
8026 IFD=1THENPRINTTAB(47)"[156]HERRSCHER DER GERMANEN"
8030 PRINTTAB(86)"[159]GEBEN SIE IHREN NAMEN EIN :"
8040 PRINTTAB(83)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
8050 PRINTTAB(3)"[221][158]ABCDEFGHIJKLMNOPQRSTUVWXYZ?! [221]"
8060 PRINTTAB(3)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
8070 PRINTTAB(253)"[150]----------"
8080 X=PEEK(PO):POKEPO,X+128
8090 GOSUB3005
8100 IFU=1THEN8140
8110 IFU=3THEN8160
8120 IFU=5THEN8180
8130 GOTO8090
8140 IFPEEK(PO-1)<>32THENPOKEPO,X:X=PEEK(PO-1):PO=PO-1:POKEPO,X+128
8150 GOTO8090
8160 IFPEEK(PO+1)<>32THENPOKEPO,X:X=PEEK(PO+1):PO=PO+1:POKEPO,X+128
8170 GOTO8090
8180 IFX=33THEN8240
8190 IFLEN(A$)<11THENA$=A$+CHR$(X+64)
8200 IFX=63THENA$="":POKE781,21:SYS59903
8210 POKE781,21:POKE782,0:SYS58636:PRINTTAB(13)A$
8220 IFLEN(A$)>9THEN8240
8230 FORI=1TO50:NEXTI:GOTO8090
8240 IFD=0THENP1$=A$:A$="":D=1:JO=56321:GOTO8002
8250 P2$=A$
8260 RETURN
9000 FORL=1TO20:IFL(L)>0THENL(L)=L(L)+50
9010 IFM(L)>0THENM(L)=M(L)+35
9020 NEXTL
9030 RETURN
9500 SYS58784
9510 RUN17