100 REM *******************************
110 REM *******************************
120 REM ** T A K T I K  V2.1  (C) 87 **
130 REM **                           **
140 REM **  VERSION VOM 11.05. 1987  **
150 REM **                           **
160 REM **   HANS JOACHIM CONRADI    **
170 REM **   AM FISCHERWEG 5         **
180 REM **   3540 KORBACH            **
190 REM **   TEL. 05631/1464         **
200 REM *******************************
210 REM *******************************
220 :
230 IFPEEK(2)=0THENPOKE2,1:POKE52,96:POKE56,96:CLR
240 IFPEEK(2)=1THENPOKE2,2:LOAD"SPRITES",8,1
250 IFPEEK(2)=2THENPOKE2,3:SYS29376:LOAD"ASC1",8,1
260 IFPEEK(2)=3THENPOKE2,4:SYS29269:LOAD"CLEAR",8,1
270 IFPEEK(2)=4THENPOKE2,5:SYS36864:LOAD"MAP",8,1
280 IFPEEK(2)=5THENPOKE2,6:LOAD"ASC2",8,1
290 IFPEEK(2)=6THENPOKE2,7:LOAD"CHAR",8,1
300 IFPEEK(2)=7THENPOKE2,8:LOAD"ASC3",8,1
310 IFPEEK(2)=8THENPOKE2,9:LOAD"ASC4",8,1
320 IFPEEK(2)=9THENPOKE2,10:POKE56576,148:POKE648,192:POKE53272,2:CLR:GOSUB5870
330 SYS38450:POKE53265,11:POKE198,0
340 DIMPL$(4),P$(4),A$(6),SX(4),LX(4),GE(5),A1(4),A2(4),A3(4),A4(4),LA(5),PR(5)
350 DIMKO(5),DA%(25),LY(4),SY(4):TI$="000000"
360 DEFFNJO(X)=INT((LOG(255.5-(PEEK(56322-X)OR224)))/LOG(2)+2)
370 FORA=1TO5:READA$(A),PR(A),KO(A):GE(A)=1000000:LA(A)=1:NEXT
380 FORA=0TO25:READB:DA%(A)=B:NEXT
390 UN$=""
400 RC$="[212][213]"
410 RI$="[158]"
420 RK$=""
430 BI$="          "
440 BI$=BI$+"[157][157][157][157][157][157][157][157][157][157]           [157][157][157][157][157][157][157][157][157][157][157]           [157][157][157][157][157][157][157][157][157][157][157]"
450 BI$=BI$+"           [157][157][157][157][157][157][157][157][157][157][157]           [157][157][157][157][157][157][157][157][157][157][157]           "
460 BI$=BI$+"[157][157][157][157][157][157][157][157][157][157][157]          "
470 MM$="1.[158]  ....[157][157][157][157][157][157][157][157]"
480 MM$=MM$+"2.[158]  ....[157][157][157][157][157][157][157][157]3.  [158]...."
490 UB$="[152][146]      [165][162][163][165][167][168][169][170] - [160][161][162][163][160][161][164][163] - [165][162][163][165][167][163]"
500 P$(0)=" _![157][157]$#":P$(1)=" $#[157][157]&'"
510 P$(2)=" +([157][157]*)":P$(3)=" =[214][157][157]>[192]"
520 P$(4)=" [193][194][157][157][195][196]"
530 M1$="SUCHEN[157][157][157][157][157][157]SETZEN[157][157][157][157][157][157]KAUFEN"
540 M2$="SUCHEN[157][157][157][157][157][157]SETZEN[157][157][157][157][157][157]KAUFEN"
550 M3$="SUCHEN[157][157][157][157][157][157]SETZEN[157][157][157][157][157][157]KAUFEN"
560 V=53248:P=1:KA=38450:A=FRE(8)
570 SI=54272:POKESI+24,15
580 K1=28672:K2=32768:K3=24576:RR=1
590 PRINTCHR$(147)CHR$(14)CHR$(8)
600 GOSUB5270
610 POKE50168,193:POKE50169,194
620 POKE50170,195:POKE50171,193
630 POKE50172,196:POKE50173,195
640 POKE50174,199:POKE50175,200
650 POKEV+21,255:POKEV+29,63
660 POKEV+28,255:POKE53287,2
670 POKE53285,1:POKE53286,6
680 POKEV,48:POKEV+2,95
690 POKEV+4,147:POKEV+6,185
700 POKEV+8,220:POKEV+10,255
710 POKEV+13,155:POKEV+15,155
720 GOSUB6110:GOSUB 5420
730 POKEV+21,0:POKEV+29,0
740 POKEV+28,0:POKE50168,192
750 SYS1024:SYS1089:RN=1
760 POKEV,64:POKEV+1,116:POKEV+39,1
770 POKEV+16,0:B2=255:POKE53265,27
780 IFPO=0THENGOSUB1630
790 IFPO=1THENGOSUB6000:GOSUB1920:GOSUB1390:GOSUB2990:GOTO810
800 GOSUB1390
810 POKE53265,11:SYS1204
820 X1=LX(RN):X2=X1:Y1=LY(RN):Y2=Y1
830 POKE828,X1:POKE830,Y1
840 POKE814,X1:POKE815,X1
850 POKEV+21,1:POKE53265,27
860 POKE20530,193:POKE20531,4
870 PRINT"":POKE211,27:PRINTPL$(RN)
880 PRINT"";:POKE646,RN:PRINT"/"
890 PRINT""RR
900 ZE=TI:MA=679:SYSMA
910 IFTI-ZE>3600THEN4210
920 GETTA$:POKE198,0:GETB$:IFTA$="[133]"THENGOSUB5710
930 IFTA$="_"THEN4210
940 PRINT""SPC(33)M1$
950 B1=(VAL(MID$(STR$(PEEK(K1+X1+80*Y1)),3,1)))
960 ONFNJO(2)GOTO910,1010,1040,1070,1100,970
970 LA=PEEK(K2+X1+80*Y1)
980 IFPEEK(56320)=111ANDLA<200ANDVAL(RIGHT$(STR$(LA),1))=RNTHENGOSUB3090
990 IFPEEK(56320)=111ANDLA>=200THENGOSUB2510
1000 GOTO910
1010 Y1=Y1-1:IFY1<6THENY1=6
1020 POKE830,Y1:SYSMA:PRINTRI$" NORD "
1030 GOTO910
1040 Y1=Y1+1:IFY1>44THENY1=44
1050 POKE830,Y1:SYSMA:PRINTRI$" SUED "
1060 GOTO910
1070 X1=X1-1:IFX1<0THENX1=0
1080 POKE828,X1:SYSMA:PRINTRI$" WEST "
1090 GOTO910
1100 X1=X1+1:IFX1>80THENX1=80
1110 POKE828,X1:SYSMA::PRINTRI$" OST "
1120 GOTO910
1130 PR(1)=120000:PR(2)=70000
1140 PR(3)=70000:PR(4)=20000
1150 IF A1(RN)<1THENA1(RN)=0
1160 IF A2(RN)<1THENA2(RN)=0
1170 IF A3(RN)<1THENA3(RN)=0
1180 IF A4(RN)<1THENA4(RN)=0
1190 RETURN
1200 PRINT""UN$TAB(18)P$(4)
1210 PRINT""SPC(33)M2$
1220 X2=X1:Y2=Y1:P=5
1230 ONFNJO(2)GOTO1230,1230,1230,1250,1270,1330
1240 GOTO1230
1250 P=P-1:IFP<1THENP=5
1260 GOTO1280
1270 P=P+1:IFP>5THENP=1
1280 IFP=1THENPRINTUN$""P$(0)UN$TAB(5)""P$(1)UN$TAB(18)P$(4):GOTO1230
1290 IFP=2THENPRINTUN$""P$(0)UN$TAB(5)""P$(1)UN$TAB(9)""P$(2):GOTO1230
1300 IFP=3THENPRINTUN$TAB(5)""P$(1)UN$TAB(9)""P$(2)UN$TAB(14)""P$(3):GOTO1230
1310 IFP=4THENPRINTUN$TAB(9)""P$(2)UN$TAB(14)""P$(3)UN$TAB(18)""P$(4):GOTO1230
1320 IFP=5THENPRINTUN$TAB(14)""P$(3)UN$TAB(18)""P$(4)""UN$""P$(0):GOTO1230
1330 PRINT""UN$P$(0)UN$TAB(5)P$(1)UN$TAB(9)P$(2)UN$TAB(14)P$(3)UN$TAB(18)P$(4)
1340 IFP=1THENY2=Y2-1:PRINTRI$"NORD ":RETURN
1350 IFP=2THENY2=Y2+1:PRINTRI$"SUED ":RETURN
1360 IFP=3THENX2=X2+1:PRINTRI$" OST ":RETURN
1370 IFP=4THENX2=X2-1:PRINTRI$"WEST ":RETURN
1380 IFP=5THENPRINT""SPC(33)M1$:RETURN
1390 POKE53265,11:PRINT"[147]"UB$
1400 PRINT"  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
1410 PRINT"  ; RUNDE:     [152] ; SPIELER: ........ [152];"
1420 PRINT";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;";
1430 PRINT";          ; STATUS:[152]           ; MODUS:[152];";
1440 PRINT";          ;                   ;       ;";
1450 PRINT";          ; HUBSCHRAUBER:[158]   0 [152]; SUCHEN[152];";
1460 PRINT";          ; ARTILLERIE..:[158]   0[152] ; SETZEN[152];";
1470 PRINT";          ; PANZER......:[158]   0[152] ; KAUFEN[152];";
1480 PRINT";          ; INFANTERIE..:[158]   0[152] ;;;;;;;;;";
1490 PRINT";          ; ------------  ---[152] ;[197][197][197][197][197][197][197];";
1500 PRINT";          ; GESAMT......:  0  [152];[197][197][197][197][197][197][197];";
1510 PRINT";          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;";
1520 PRINT";          ; -----[152] ;;;;;;[151][216]////////////[217][152];";
1530 PRINT";;;;;;;;;;;;;;;;;;;;;;;;;[151]/[207]          [209]/[152];";
1540 PRINT"; RESTBETRAG: [158]1000000[152] ;/[152];[151]/            /[152];;";
1550 PRINT";;;;;;;;;;;;;;;;;;;;;;;;[151][151]/            /[152];";
1560 PRINT"; EINGABEFELD:[152]          ;[151]/            /[152];";
1570 PRINT";                       ;[151]/            /[152];";
1580 PRINT"; _!  $%  +(   =[214]  [193][194]   [152];[151]/            /[152];";
1590 PRINT"; $#  &'  *)   >[192]  [195][196]   [152];[151]/[213]          [215]/[152];";
1600 PRINT";                       ;[151][216]////////////[217][152];";
1610 PRINT";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
1620 RETURN
1630 PRINT"[147]"UB$""
1640 PRINT"EINGABE:","[158]ANZAHL DER SPIELER:":TA=2
1650 PRINT,"   MAXIMAL VIER [145]";
1660 POKE211,30:PRINTCHR$(48+TA);
1670 J=PEEK(56320):IFJ=111THENL1=TA:GOTO1710
1680 IFJ=126ORJ=119THENTA=TA+1:IFTA=5THENTA=2
1690 IFJ=125ORJ=123THENTA=TA-1:IFTA=1THENTA=4
1700 FORB=1TO50:NEXT:GOTO1660
1710 PRINT"[158]":FORA=1TOTA:PRINT,"SPIELER NR."CHR$(48+A);":":NEXT:T2=65:PL=TA
1720 PRINT," MAX. ACHT BUCHSTABEN
":FORA=1TOTA:SP=24
1730 POKE211,SP:PRINTCHR$(T2);:J=PEEK(56320):IFJ=127THEN1730
1740 IFJ=111ANDT2=64ANDSP>24THENPOKE211,SP:PRINTCHR$(32);:SP=SP-1:T2=65:GOTO1790
1750 IFJ=111ANDT2=63THEN1810
1760 IFJ=111THEN1800
1770 IFJ=126ORJ=119THENT2=T2+1:IFT2=91THENT2=63
1780 IFJ=125ORJ=123THENT2=T2-1:IFT2=62THENT2=90
1790 FORB=1TO50:NEXT:GOTO1730
1800 SP=SP+1:T2=65:IFSP<32THEN1790
1810 FORB=1TOSP-24:PL$(A)=PL$(A)+CHR$(PEEK(49152+(23+B)+40*(8+((A-1))*2))+64)
1820 T2=65:NEXT
1830 PRINT"":NEXT:JN=1
1840 PRINT," EINGABE OK ,   JA NEIN ";
1850 J=PEEK(56320):IFJ=111THEN1890
1860 IFJ=119ORJ=125THENJN=2:PRINT"[157][157][157][157][157][157][157][157] JA NEIN";
1870 IFJ=123ORJ=126THENJN=1:PRINT"[157][157][157][157][157][157][157][157] JA NEIN";
1880 GOTO1850
1890 IFJN=2THENFORB=1TO4:PL$(B)="":NEXT:GOTO1630
1900 FORA=1TOTA:IFASC(PL$(A))=127THENPL$(A)="        "
1910 NEXT
1920 ON TA-1 GOTO 1930,2060,2250
1930 X3=20:Y3=31:W1=210:GOSUB2490
1940 Y3=32:W1=212:GOSUB2490
1950 X3=21:Y3=31:W1=211:GOSUB2490
1960 Y3=32:W1=213:GOSUB2490
1970 X3=30:Y3=17:W1=220:GOSUB2490
1980 Y3=18:W1=222:GOSUB2490
1990 X3=31:Y3=17:W1=221:GOSUB2490
2000 Y3=18:W1=223:GOSUB2490
2010 SX(1)=20:SY(1)=31
2020 SX(2)=30:SY(2)=17
2030 LX(1)=SX(1):LY(1)=SY(1)
2040 LX(2)=SX(2):LY(2)=SY(2)
2050 RETURN
2060 X3=22:Y3=31:W1=210:GOSUB2490
2070 Y3=32:W1=212:GOSUB2490
2080 X3=23:Y3=31:W1=211:GOSUB2490
2090 Y3=32:W1=213:GOSUB2490
2100 X3=58:Y3=20:W1=220:GOSUB2490
2110 Y3=21:W1=222:GOSUB2490
2120 X3=59:Y3=20:W1=221:GOSUB2490
2130 Y3=21:W1=223:GOSUB2490
2140 X3=40:Y3=29:W1=230:GOSUB2490
2150 Y3=30:W1=232:GOSUB2490
2160 X3=41:Y3=29:W1=231:GOSUB2490
2170 Y3=30:W1=233:GOSUB2490
2180 SX(1)=22:SY(1)=31
2190 SX(2)=57:SY(2)=20
2200 SX(3)=40:SY(3)=30
2210 FORA=1TO3
2220 LX(A)=SX(A):LY(A)=SY(A)
2230 NEXT
2240 RETURN
2250 X3=10:Y3=11:W1=210:GOSUB2490
2260 Y3=12:W1=212:GOSUB2490
2270 X3=11:Y3=11:W1=211:GOSUB2490
2280 Y3=12:W1=213:GOSUB2490
2290 X3=40:Y3=20:W1=220:GOSUB2490
2300 Y3=21:W1=222:GOSUB2490
2310 X3=41:Y3=20:W1=221:GOSUB2490
2320 Y3=21:W1=223:GOSUB2490
2330 X3=20:Y3=30:W1=230:GOSUB2490
2340 Y3=31:W1=232:GOSUB2490
2350 X3=21:Y3=30:W1=231:GOSUB2490
2360 Y3=31:W1=233:GOSUB2490
2370 X3=50:Y3=40:W1=240:GOSUB2490
2380 Y3=41:W1=242:GOSUB2490
2390 X3=51:Y3=40:W1=241:GOSUB2490
2400 Y3=41:W1=243:GOSUB2490
2410 SX(1)=10:SY(1)=11
2420 SX(2)=40:SY(2)=20
2430 SX(3)=20:SY(3)=30
2440 SX(4)=50:SY(4)=40
2450 FORA=1TO4
2460 LX(A)=SX(A):LY(A)=SY(A)
2470 NEXT
2480 RETURN
2490 POKEK2+X3+80*Y3,W1
2500 POKEK1+X3+80*Y3,W1:RETURN
2510 OB=PEEK(K2+X1+80*Y1)
2520 IFOB<200THEN5640:RETURN
2530 OC=VAL(MID$(STR$(OB),3,1))
2540 IFOC<>RNTHEN5640:RETURN
2550 GOSUB1200:IFP=5THENRETURN
2560 IFPEEK(K2+X2+80*Y2)>100THEN5640:RETURN
2570 X1=X2:Y1=Y2:POKE828,X1:POKE830,Y1
2580 PRINTBI$
2590 PRINT""SPC(33)M3$
2600 PRINT""SPC(237);
2610 FORA=1TO6:PRINTSPC(29)" "LEFT$(A$(A),10);:NEXT
2620 POKE49978,85:POKE56122,11
2630 KA=1
2640 POKE55882+(KA*40),11:POKE49738+(KA*40),78
2650 ON FNJO(2)GOTO2650,2670,2690,2650,2650,2710
2660 GOTO2650
2670 POKE49738+(KA*40),32:KA=KA-1:IFKA<1THENKA=5
2680 GOTO2640
2690 POKE49738+(KA*40),32:KA=KA+1:IFKA>5THENKA=1
2700 GOTO2640
2710 POKE49738+(KA*40),32
2720 C1=A1(RN):C2=A2(RN)
2730 C3=A3(RN):C4=A4(RN)
2740 C5=GE(RN):SYSMA
2750 IFKA=5THEN2990
2760 IFGE(RN)-PR(KA)<0THEN2990
2770 ONKAGOTO2780,2830,2880,2930,2990
2780 A1(RN)=A1(RN)+1
2790 GE(RN)=GE(RN)-PR(KA)
2800 IFA1(RN)>99THENA1(RN)=C1:GOTO3010
2810 POKEK2+X1+80*Y1,140+RN
2820 SYSMA:GOTO2990
2830 A2(RN)=A2(RN)+1
2840 GE(RN)=GE(RN)-PR(KA)
2850 IFA2(RN)>99THENA2(RN)=C2:GOTO3010
2860 POKEK2+X1+80*Y1,150+RN
2870 SYSMA:GOTO2990
2880 A3(RN)=A3(RN)+1
2890 GE(RN)=GE(RN)-PR(KA)
2900 IFA3(RN)>99THENA3(RN)=C3:GOTO3010
2910 POKEK2+X1+80*Y1,160+RN
2920 SYSMA:GOTO2990
2930 A4(RN)=A4(RN)+1
2940 GE(RN)=GE(RN)-PR(KA)
2950 IFA4(RN)>99THENA4(RN)=C4:GOTO3010
2960 POKEK2+X1+80*Y1,170+RN
2970 SYSMA
2980 GOSUB1130
2990 PRINTRK$"        "
3000 PRINTRK$"[158]"GE(RN)
3010 PRINTBI$
3020 PRINT""SPC(33)M1$
3030 PRINT""SPC(28)A1(RN);
3040 PRINTSPC(37)A2(RN);
3050 PRINTSPC(37)A3(RN);
3060 PRINTSPC(37)A4(RN)
3070 PRINT""SPC(27)"    [157][157][157][157][157]"A1(RN)+A2(RN)+A3(RN)+A4(RN)
3080 RETURN
3090 B0=PEEK(K2+X1+80*Y1)
3100 IFY1<7ORY1>43ORX1<0ORX1>80THEN5640:RETURN
3110 B9=PEEK(K3+X1+80*Y1)
3120 IFB9=0THEN3170
3130 IFGE(RN)-KO(VAL(MID$(STR$(B0),3,1))-3)<0THEN5640:RETURN
3140 Z1=0:ONINT((B0/10)-13)GOSUB3340,3360,3380,3400
3150 PRINT""SPC(33)M2$
3160 IFZ1=1THEN5640:RETURN
3170 GOSUB1200:IFP=5THENRETURN
3180 B1=PEEK(K2+X2+80*Y2)
3190 B2=VAL(MID$(STR$(OB),3,1))
3200 B3=PEEK(K1+X2+80*Y2)/10
3210 B5=VAL(RIGHT$(STR$(PEEK(K1+X1+80*Y1)),1))
3220 B6=VAL(RIGHT$(STR$(PEEK(K1+X2+80*Y2)),1))
3230 IFB1>140ANDVAL(RIGHT$(STR$(B0),1))=VAL(RIGHT$(STR$(B1),1))THEN5640:RETURN
3240 IFB1>200ANDVAL(RIGHT$(STR$(B0),1))=VAL(MID$(STR$(B1),3,1))THEN5640:RETURN
3250 IFB1>200 AND B0<180 AND B0>170THEN4390
3260 IFB1>140THEN3420
3270 GE(RN)=GE(RN)-KO(VAL(MID$(STR$(B0),3,1))-3)
3280 PRINTRK$"[158]"GE(RN)
3290 POKEK3+X2+80*Y2,B9+1
3300 POKEK3+X1+80*Y1,0
3310 POKEK2+X2+80*Y2,B0
3320 POKEK2+X1+80*Y1,PEEK(K1+X1+80*Y1):X1=X2:Y1=Y2
3330 POKE828,X1:POKE830,Y1:SYSMA:RETURN
3340 IFB0<150ANDB9>7THENZ1=1:RETURN
3350 RETURN
3360 IFB0<160ANDB9>5THENZ1=1:RETURN
3370 RETURN
3380 IFB0<170ANDB9>6THENZ1=1:RETURN
3390 RETURN
3400 IFB0<180ANDB9>4THENZ1=1:RETURN
3410 RETURN
3420 ONB3-9GOSUB3530,3700,3870,4040
3430 B7=(PEEK(K1+X1+80*Y1)/10)*10
3440 B8=(PEEK(K1+X2+80*Y2)/10)*10
3450 IFB5>9THEN3500
3460 IFB6>9THEN3510
3470 IFPR=1THENPR=0:SYSMA:RETURN
3480 POKEK1+X1+80*Y1,B7+B5
3490 POKEK1+X2+80*Y2,B8+B6:RETURN
3500 POKEK1+X1+80*Y1,B7:POKEK2+X1+80*Y1,B7:PR=1:D1=B0:GOSUB5030:GOTO3460
3510 POKEK1+X2+80*Y2,B8:POKEK2+X2+80*Y2,B8:SYSMA:PR=0:D1=B1:GOSUB5030
3520 RETURN
3530 ON(B0/10)-13GOTO3540,3580,3620,3660
3540 IFB1<150THENB5=B5+5:B6=B6+5:RETURN 
3550 IFB1<160THENB5=B5+4:B6=B6+6:RETURN 
3560 IFB1<170THENB5=B5+5:B6=B6+5:RETURN 
3570 IFB1<180THENB5=B5+3:B6=B6+7:RETURN 
3580 IFB1<150THENB5=B5+6:B6=B6+4:RETURN 
3590 IFB1<160THENB5=B5+5:B6=B6+5:RETURN 
3600 IFB1<170THENB5=B5+7:B6=B6+3:RETURN 
3610 IFB1<180THENB5=B5+1:B6=B6+9:RETURN 
3620 IFB1<150THENB5=B5+5:B6=B6+5:RETURN 
3630 IFB1<160THENB5=B5+3:B6=B6+7:RETURN 
3640 IFB1<170THENB5=B5+5:B6=B6+5:RETURN 
3650 IFB1<180THENB5=B5+3:B6=B6+7:RETURN 
3660 IFB1<150THENB5=B5+7:B6=B6+3:RETURN 
3670 IFB1<160THENB5=B5+9:B6=B6+1:RETURN 
3680 IFB1<170THENB5=B5+7:B6=B6+3:RETURN 
3690 IFB1<180THENB5=B5+5:B6=B6+5:RETURN 
3700 ON(B0/10)-13GOTO3710,3750,3790,3830
3710 IFB1<150THENB5=B5+5:B6=B6+5:RETURN 
3720 IFB1<160THENB5=B5+5:B6=B6+5:RETURN 
3730 IFB1<170THENB5=B5+3:B6=B6+7:RETURN 
3740 IFB1<180THENB5=B5+4:B6=B6+6:RETURN 
3750 IFB1<150THENB5=B5+5:B6=B6+5:RETURN 
3760 IFB1<160THENB5=B5+5:B6=B6+5:RETURN 
3770 IFB1<170THENB5=B5+4:B6=B6+6:RETURN 
3780 IFB1<180THENB5=B5+5:B6=B6+5:RETURN 
3790 IFB1<150THENB5=B5+7:B6=B6+3:RETURN 
3800 IFB1<160THENB5=B5+6:B6=B6+4:RETURN 
3810 IFB1<170THENB5=B5+5:B6=B6+5:RETURN 
3820 IFB1<180THENB5=B5+5:B6=B6+5:RETURN 
3830 IFB1<150THENB5=B5+6:B6=B6+4:RETURN 
3840 IFB1<160THENB5=B5+5:B6=B6+5:RETURN 
3850 IFB1<760THENB5=B5+5:B6=B6+5:RETURN 
3860 IFB1<180THENB5=B5+5:B6=B6+5:RETURN 
3870 ON(B0/10)-13GOTO3880,3920,3960,4000
3880 IFB1<150THENB5=B5+5:B6=B6+5:RETURN 
3890 IFB1<160THENB5=B5+7:B6=B6+3:RETURN 
3900 IFB1<170THENB5=B5+7:B6=B6+3:RETURN 
3910 IFB1<180THENB5=B5+6:B6=B6+4:RETURN 
3920 IFB1<150THENB5=B5+3:B6=B6+7:RETURN 
3930 IFB1<160THENB5=B5+5:B6=B6+5:RETURN 
3940 IFB1<170THENB5=B5+5:B6=B6+5:RETURN 
3950 IFB1<180THENB5=B5+7:B6=B6+3:RETURN 
3960 IFB1<150THENB5=B5+3:B6=B6+7:RETURN 
3970 IFB1<160THENB5=B5+5:B6=B6+5:RETURN 
3980 IFB1<170THENB5=B5+5:B6=B6+5:RETURN 
3990 IFB1<180THENB5=B5+6:B6=B6+4:RETURN 
4000 IFB1<150THENB5=B5+4:B6=B6+6:RETURN 
4010 IFB1<160THENB5=B5+3:B6=B6+7:RETURN 
4020 IFB1<170THENB5=B5+4:B6=B6+6:RETURN 
4030 IFB1<180THENB5=B5+5:B6=B6+5:RETURN 
4040 ON(B0/10)-13GOTO4050,4090,4130,4170
4050 IFB1<150THENB5=B5+5:B6=B6+5:RETURN 
4060 IFB1<160THENB5=B5+7:B6=B6+3:RETURN 
4070 IFB1<170THENB5=B5+6:B6=B6+4:RETURN 
4080 IFB1<180THENB5=B5+4:B6=B6+6:RETURN 
4090 IFB1<150THENB5=B5+3:B6=B6+7:RETURN 
4100 IFB1<160THENB5=B5+5:B6=B6+5:RETURN 
4110 IFB1<170THENB5=B5+4:B6=B6+6:RETURN 
4120 IFB1<180THENB5=B5+6:B6=B6+4:RETURN 
4130 IFB1<150THENB5=B5+4:B6=B6+6:RETURN 
4140 IFB1<160THENB5=B5+6:B6=B6+4:RETURN 
4150 IFB1<170THENB5=B5+5:B6=B6+5:RETURN 
4160 IFB1<180THENB5=B5+5:B6=B6+5:RETURN 
4170 IFB1<150THENB5=B5+6:B6=B6+4:RETURN 
4180 IFB1<160THENB5=B5+4:B6=B6+6:RETURN 
4190 IFB1<170THENB5=B5+5:B6=B6+5:RETURN 
4200 IFB1<180THENB5=B5+5:B6=B6+5:RETURN 
4210 SYS685:FORA=828TO880:POKEA,0:NEXT
4220 PRINT"":POKE211,27:PRINT"WECHSEL "
4230 GE(RN)=GE(RN)+10000
4240 LX(RN)=X1:LY(RN)=Y1
4250 WAIT56320,16,16
4260 PRINT"":POKE211,27:PRINT"        "
4270 RN=RN+1:IFRN>TATHENRN=1:RR=RR+1
4280 IFLA(RN)=0 AND A1(RN)+A2(RN)+A3(RN)+A4(RN)=0THEN4270
4290 GOSUB1130
4300 PRINT"";
4310 PRINTSPC(28)A1(RN)
4320 PRINTSPC(28)A2(RN);
4330 PRINTSPC(37)A3(RN)
4340 PRINTSPC(28)A4(RN)
4350 PRINTTAB(27)A1(RN)+A2(RN)+A3(RN)+A4(RN)
4360 PRINTRK$"        "
4370 PRINTRK$"[158]"GE(RN)
4380 GOTO820
4390 D0=VAL(MID$(STR$(PEEK(32768+X2+80*Y2)),3,1))
4400 L1=L1-1
4410 GOTO4460
4420 PRINTLEFT$(BI$,42)"GEWINNER  [157][157][157][157][157][157][157][157][157][157]"PL$(RN)
4430 FORA=1TO2000:NEXT
4440 POKEV+21,0
4450 SYS691:RUN
4460 ON TA-1 GOSUB4490,4610,4780
4470 PRINTLEFT$(BI$,140):SYSMA
4480 LA(D0)=0:GOTO5130
4490 ON (D0) GOSUB4500,4560
4500 RETURN
4510 X3=20:Y3=31:W1=0:GOSUB5000
4520 Y3=32:W1=2:GOSUB5000
4530 X3=21:Y3=31:W1=1:GOSUB5000
4540 Y3=32:W1=3:GOSUB5000
4550 RETURN
4560 X3=25:Y3=31:W1=0:GOSUB5000
4570 Y3=32:W1=2:GOSUB5000
4580 X3=26:Y3=31:W1=1:GOSUB5000
4590 Y3=32:W1=3:GOSUB5000
4600 RETURN
4610 ON (D0) GOSUB4630,4680,4730
4620 RETURN
4630 X3=22:Y3=31:W1=0:GOSUB5000
4640 Y3=32:W1=2:GOSUB5000
4650 X3=23:Y3=31:W1=1:GOSUB5000
4660 Y3=32:W1=3:GOSUB5000
4670 RETURN
4680 X3=22:Y3=36:W1=0:GOSUB5000
4690 Y3=37:W1=2:GOSUB5000
4700 X3=23:Y3=36:W1=1:GOSUB5000
4710 Y3=37:W1=3:GOSUB5000
4720 RETURN
4730 X3=27:Y3=36:W1=0:GOSUB5000
4740 Y3=37:W1=2:GOSUB5000
4750 X3=28:Y3=36:W1=1:GOSUB5000
4760 Y3=37:W1=3:GOSUB5000
4770 RETURN
4780 ON (D0) GOSUB4800,4850,4900,4950
4790 RETURN
4800 X3=10:Y3=11:W1=0:GOSUB5000
4810 Y3=12:W1=2:GOSUB5000
4820 X3=11:Y3=11:W1=1:GOSUB5000
4830 Y3=12:W1=3:GOSUB5000
4840 RETURN
4850 X3=40:Y3=20:W1=0:GOSUB5000
4860 Y3=21:W1=2:GOSUB5000
4870 X3=41:Y3=20:W1=1:GOSUB5000
4880 Y3=21:W1=3:GOSUB5000
4890 RETURN
4900 X3=20:Y3=30:W1=0:GOSUB5000
4910 Y3=31:W1=2:GOSUB5000
4920 X3=21:Y3=30:W1=1:GOSUB5000
4930 Y3=31:W1=3:GOSUB5000
4940 RETURN
4950 X3=50:Y3=40:W1=0:GOSUB5000
4960 Y3=41:W1=2:GOSUB5000
4970 X3=51:Y3=40:W1=1:GOSUB5000
4980 Y3=41:W1=3:GOSUB5000
4990 RETURN
5000 POKEK1+X3+80*Y3,100
5010 POKEK2+X3+80*Y3,100
5020 RETURN
5030 D2=VAL(RIGHT$(STR$(D1),1))
5040 D3=VAL(MID$(STR$(D1),3,1))
5050 ON(D3-3)GOSUB5190,5210,5230,5250
5060 IFD2<>RNTHEN5640:RETURN
5070 GOSUB1130
5080 PRINT""SPC(28)A1(RN);
5090 PRINTSPC(37)A2(RN);
5100 PRINTSPC(37)A3(RN);
5110 PRINTSPC(37)A4(RN)
5120 PRINT""SPC(27)A1(RN)+A2(RN)+A3(RN)+A4(RN)
5130 M1=1:FORA=1 TO TA
5140 IF A=RN THEN5160
5150 IFA1(A)+A2(A)+A3(A)+A4(A)=0THENM1=0
5160 NEXT
5170 IFM1=0 ANDL1=1 THEN4420
5180 RETURN
5190 A1(D2)=A1(D2)-1
5200 RETURN
5210 A2(D2)=A2(D2)-1
5220 RETURN
5230 A3(D2)=A3(D2)-1
5240 RETURN
5250 A4(D2)=A4(D2)-1
5260 RETURN
5270 SYS26330
5280 PRINT"[144][205][201][195][210][207][214][201][211][201][207][206]"
5290 PRINT"[218][197][201][199][212]"
5300 PRINT"[197][201][206][203][207][205][194][201][206][201][197][210][212][197][211][212][193][203][212][201][203][211][212][210][193][212][197][199][201][197][211][208][201][197][204]"
5310 PRINT"[208][210][207][199][210][193][205][205][197][201][206][200][197][210][218][204][201][195][200][197][211]"
5320 PRINT"[200][193][206][211][202][207][193][195][200][201][205][195][207][206][210][193][196][201][196][193][206][203][197][193][206][196][201][197][157][157][157][157][157][157][157][157][157][157][193][213][212][207][210][197][206]"
5330 PRINT"[201][196][197][197][145][198][207][204][199][197][206][196][197][210][208][210][207][199][210][193][205][205][197]";
5340 PRINT"[193][216][197][204][203][213][200][206][200][197][206][206][211][212][197][208][200][193][206][194][193][210][212][207][211][195][200]"
5350 PRINT"[200][193][206][211][202][207][193][195][200][201][205][195][207][206][210][193][196][201][198][213][197][210][193][211][195][207][205][208][201][204][197][210]"
5360 PRINT"[199][210][193][198][201][203][206][219][205][193][206][206]"
5370 PRINT"[199][197][210][210][201][212][213][204][210][201][195][200][195][207][206][210][193][196][201][196][219][215][197][201][206][197][195][203]"
5380 PRINT"[200][193][206][211][202][207][193][195][200][201][205][195][207][206][210][193][196][201][198][213][197][210][211][205][207][206]"
5390 POKE53265,27:SYS26453
5400 POKE53265,11:POKE53281,0
5410 RETURN
5420 PRINT"[147]";
5430 PRINT"////////////////////////////////////////";
5440 PRINT"[151] EIN MICROVISION PROGRAMM  VERSION V2.1"
5450 PRINT"////////////////////////////////////////[154]";
5460 FORA=1TO120:PRINT"[181]";:NEXT
5470 PRINT"[156]VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV[146]";
5480 PRINT"[212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212]";
5490 PRINT"[212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][190][191]@[146][212][212][212][212][212][212][212][212]";
5500 PRINT"[212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][180][212][212][212][212][212][212][212][212][212][212][187][188][189][212][212][212][212][212][212][212][212]";
5510 PRINT"[212][212][212]PT[146][212][212][212][212][212][212][212][212][212][212][212][212][177][178][179][212][212][212][212][212][212][212][212][212][184][185][186][212][212][212][212][212][212][212]";
5520 PRINT"[212][212][212][212]OP[146][212][212][212][212][212][212][212][212][212][212][212][212][176][174][180][212][212][212][212][212][212][212][212][212][212][129][183][212][212][212][212][212][212][212][212][212]";
5530 PRINT"[212][212][212][129]MN[146][212][212][212][212][212][212][212][212][212][212][212][212][212][129][172][173][212][212][212][212][212][212][212][212][212][212][129][182][212][212][212][212][212][212][212][212][212][212]";
5540 PRINT"[212][212][129]L[146][212][212][212][212][212][212][212][212][212][212][212][212][212][212][129][171][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][156]";
5550 FORA=1TO39:PRINT"V";:NEXT
5560 POKE50151,150:POKE56295,4
5570 SYS24576
5580 POKE53265,27
5590 WAIT56320,16,16
5600 POKE53265,11
5610 SYS26112
5620 POKE828,20:POKE830,31
5630 PRINT"[147]":RETURN
5640 POKESI+5,61
5650 POKESI+6,26:POKESI+3,8
5660 POKESI+2,0:POKESI+1,14
5670 POKESI,162:POKESI+4,33
5680 FORA=1TO500:NEXT
5690 POKESI+4,0
5700 RETURN
5710 POKEV+21,0
5720 SYS691:OPEN1,8,15,"S:PART01,PART02":CLOSE1
5730 OPEN1,8,2,"PART01,U,W"
5740 FORA=1TO4
5750 PRINT#1,GE(A):PRINT#1,PL$(A)
5760 PRINT#1,LX(A):PRINT#1,LY(A)
5770 PRINT#1,A1(A):PRINT#1,A2(A)
5780 PRINT#1,A3(A):PRINT#1,A4(A)
5790 NEXT
5800 PRINT#1,TA:PRINT#1,RN
5810 PRINT#1,RR:CLOSE1
5820 SYS(57812)"PART02",8
5830 POKE193,0:POKE194,112
5840 POKE174,0:POKE175,145
5850 SYS62957:POKEV+21,1
5860 SYS1204:RETURN
5870 POKE53280,0:POKE53281,0
5880 POKE53269,0:POKE2,0
5890 OPEN1,8,15,"R:PART01=PART01"
5900 INPUT#1,A,TA$:CLOSE1
5910 IFA=62THENPO=0:RETURN
5920 PRINT"[147][152][146]      [165][162][163][165][167][168][169][170] - [160][161][162][163][160][161][164][163] - [165][162][163][165][167][163]"
5930 PRINT," ALTES SPIEL ,  JA NEIN ";
5940 J=PEEK(56320):IFJ=111THEN5980
5950 IFJ=119ORJ=125THENJN=2:PRINT"[157][157][157][157][157][157][157][157] JA NEIN";
5960 IFJ=123ORJ=126THENJN=1:PRINT"[157][157][157][157][157][157][157][157] JA NEIN";
5970 GOTO5940
5980 IFJN=2THENPO=0:RETURN
5990 PO=1:RETURN
6000 OPEN1,8,3,"PART01,U,R"
6010 FORA=1TO4
6020 INPUT#1,GE(A),PL$(A)
6030 INPUT#1,LX(A),LY(A)
6040 INPUT#1,A1(A),A2(A)
6050 INPUT#1,A3(A),A4(A)
6060 NEXT
6070 INPUT#1,TA,RN
6080 INPUT#1,RR:CLOSE1
6090 SYS57812"PART02",8,1:POKE780,0
6100 SYS65493:RETURN
6110 FORA=0TO25:POKE679+A,DA%(A):NEXT
6120 RETURN
6130 DATA HUBSCHRAUBER,120000,1000
6140 DATA ARTILLERIE.., 70000, 600
6150 DATA PANZER......, 70000, 600
6160 DATA INFANTERIE...,20000, 250
6170 DATA NICHTS......,     0,   0
6180 DATA120,32,0,144,88,96,120,32
6190 DATA0,4,88,96,120,169,49,141,20
6200 DATA3,169,234,141,21,3,88,96,0