1 REM CARACTACUS
2 DIMCF$(1):CF$(0)=" [157]" :CF$(1)=" [146][157]":CF=-1:GOTO13
3 AX=0:FORAD=ITOIL:AX=(S(A,I)=0)ORAX:NEXT:RETURN
5 POKE 198,0:I$="":PRINT""
6 FOR IV=1TO300:NEXT:PRINTCF$(CF+1);:CF=NOTCF:GETA$:IFA$=""THEN6
7 IFLEN(I$)ANDA$=CHR$(13)THEN12
8 IFA$=CHR$(20)ANDLEN(I$)=0ORA$=CHR$(13)THEN6
9 IFA$=CHR$(20)THENI$=LEFT$(I$,LEN(I$)-1):PRINT"[157][157] [157]";:GOTO6:REM'DEL'
10 IFA$>CHR$(95)ORA$<CHR$(32)ORLEN(I$)=2THEN6
11 I$=I$+A$:PRINTA$;:GOTO6
12 POKE198,0:PRINT"":RETURN
13 GOSUB 63900
14 DIM M(2,26),S(2,26),P(2,26),D(2,26)
15 X=-120:T=0
16 UC=UC+124
18 H=US+164
20 G=US+124
22 DIM F(2,2)
23 POKEUB,14:POKEUG,UF
24 PRINTU7$;"[147] --- [195][193][210][193][195][212][193][195][213][211] ---"
25 PRINT" [211]CHOTTEN GEGEN [197]NGLAENDER!"
27 PRINT"[154] [194]EI [198]RAGE NACH [194]EFEHLEN"
28 PRINT" [210]ICHTUNGSANGABEN WIE BEI [203]OMPASS        EINGEBEN:"
29 PRINT" ([206], [206][207], [207] USW. [203]EIN [218]UG = [207][203]!)"
30 PRINT" [197]NGLAENDER SIND IN [210]EVERSZEICHEN":PRINT" ANGEZEIGT."
31 GETA$:IFA$=""THEN31
32 PRINT"[154] [197]INEN [205]OMENT [199]EDULD...":RR=0:BB=0
35 FOR A=1TO2
36 FORI=1TO26
37 GOSUB 700
38 S(A,I)=Q
39 NEXT I:NEXT A
40 FOR I=1 TO 26
41 BB=BB+S(1,I):RR=RR+S(2,I):NEXT I
42 PRINTU1$;"[147] [196]IE [208]UNKTE SIND WIE FOLGT:"
43 PRINTU7$;" [211]CHOTTEN:    "RR
44 PRINTU9$;" [197]NGLAENDER:  "BB
45 PRINTU1$;" [218]UFRIEDEN ([202]/[206])?"
46 GET W$:IF W$<>"J"ANDW$<>"N"GOTO46
47 IF W$="N"THENRUN
50 FOR I=1 TO26
51 D(1,I)=I:D(2,I)=I+128
52 NEXT I
53 FOR A=1 TO 2
54 FOR I=1 TO 26
56 READ  P(A,I)
58 NEXTI
59 NEXTA
60 DATA 453,413,412,493,492,452,333,293,253,252,292,573,613,653,652,612
61 DATA 449,409,489,448,91,131,171,811,771,731
62 DATA 455,415,416,495,496,456,575,615,655,656,616,335,295,255,256,296
63 DATA 459,419,499,460,817,777,737,97,137,177
65 RESTORE
90 POKEUG,U3:PRINTCHR$(142)"[147]":POKEUG,U6
100 FOR I=0TO28
110 POKE H+1,43
120 POKE H+800+I,43
130 NEXT I
140 FOR I=0 TO 20
150 POKE H+I*40,43
160 POKE H+28+I*40,43
170 NEXT I
200 FOR I=1 TO 26
202 IF S(1,I)<=0 THEN P(1,I)=X:GOTO207
205 POKE G+P(1,I),D(1,I):POKEUC+P(1,I),U9
207 IF S(2,I)<=0 THEN P(2,I)=X :GOTO215
210 POKE G+P(2,I),D(2,I):POKEUC+P(2,I),U7
215 NEXT I
220 FORA=1 TO 2
221 FOR J=1 TO8
222 NA$(1)=U9$+"SCHOTTISCHE":NA$(2)=U7$+"ENGLISCHE"
224 PRINT""NA$(A)"BEFEHLE"
227 PRINT"                                    "
229 ON J GOTO 230,240,250,260,270,276,280,286
230 I=1:IL=6:GOSUB3:IFAXTHEN235
231 PRINT"[145]MITTE   (ABCDEF)?";:GOSUB5:N$=I$:GOSUB 800:IF N=99 THEN 224
232 FOR I=1 TO 6
233 M(A,I)=N
234 NEXT I
235 NEXT J
240 I=7:IL=11:GOSUB3:IFAXTHEN245
241 PRINT"[145]LINKS   (GHIJK)?";:GOSUB5:N$=I$:GOSUB 800:IF N=99 THEN 224
242 FOR I=7 TO 11
243 M(A,I)=N
244 NEXT I
245 NEXT J
250 I=12:IL=16:GOSUB 3:IFAXTHEN255
251 PRINT"[145]RECHTS   (LMNOP)?";:GOSUB5:N$=I$:GOSUB 800:IF N=99 THEN 224
252 FOR I=12 TO 16
253 M(A,I)=N
254 NEXT I
255 NEXTJ
260 I=17:IL=20:GOSUB3:IFAXTHEN265
261 PRINT"[145]RESERVE   (QRST)?";:GOSUB5:N$=I$:GOSUB 800:IF N=99 THEN 224
262 FOR I=17 TO 20
263 M(A,I)=N
264 NEXT I
265 NEXT J
270 I=21:IL=23:GOSUB3:IFAXTHENJ=J+1:GOTO278
271 PRINT"[145]BOGENSCHUETZEN LINKS   (UVW)?";:GOSUB5:N$=I$:GOSUB 800:IFN=99THEN224
272 FOR I=21 TO23
273 M(A,I)=N
274 NEXT I
275 NEXT J
276 PRINT"[145]SCHUSSRICHTUNG?";:GOSUB5:N$=I$
277 GOSUB 800:IF N=99 THEN 224
278 F(A,1)=N
279 NEXT J
280 I=24:IL=26:GOSUB3:IFAXTHENJ=J+1:GOTO288
281 PRINT"[145]BOGENSCHUETZEN RECHTS   (XYZ)?";:GOSUB5:N$=I$:GOSUB 800:IF N=99 THEN 224
282 FOR I=24 TO 26
283 M(A,I)=N
284 NEXT I
285 NEXT J
286 PRINT"[145]SCHUSSRICHTUNG?  ";:GOSUB5:N$=I$
287 GOSUB 800:IF N=99 THEN 224
288 F(A,2)=N
289 NEXTJ
290 PRINT"                    "
297 NEXT A
299 PRINT"                         "
300 FOR C=1 TO 30
310 FOR B= 1TO2
312 BB=0:RR=0
320 GOSUB 600
323 IF S(B,Q)<=0 THEN GOTO 320
325 POKEUC+P(B,Q),U1
330 IF B=1 THEN E=2
335 IF B=2 THEN E=1
337 IF PEEK(G+P(B,Q)+M(B,Q))=43 THEN490
340 FOR A=1 TO 26
345 IF P(B,Q)+M(B,Q)=P(B,A) GOTO490
360 IF P(B,Q)+M(B,Q)=P(E,A) GOTO 370
365 NEXTA
366 GOTO 480
370 GOSUB 650
372 POKEG+P(B,Q),32
375 IF(S(B,Q)+R)>=(S(E,A)+V)GOTO420
385 S(B,Q)=S(B,Q)-1
390 S(E,A)=S(E,A)-1
395 IF S(B,Q)=0 THEN P(B,Q)=X
400 IF S(E,A)>9 THEN S(E,A)=9
405 M(B,Q)=0
410 GOTO 480
420 S(B,Q)=S(B,Q)+1
425 S(E,A)=S(E,A)-1
426 IF E=1 THEN P(E,A)=P(E,A)-1
427 IF E=2 THEN P(E,A)=P(E,A)+1
430 IF S(E,A)=0 THEN P(E,A)=X
435 POKE G+P(B,Q),32:POKEUC+P(B,Q),U3
440 IF S(B,Q)>9 THEN S(B,Q)=9
455 FOR Y=1 TO 26
457 IF A=Y GOTO 463
460 IF P(E,A)<>P(E,Y) AND P(E,A)<>P(B,Y)GOTO 463
461 S(E,A)=0:P(E,A)=X
462 GOTO475
463 NEXTY
475 POKE G+ P(E,A),D(E,A):POKEUC+P(E,A),18-4*E
480 POKEG+P(B,Q),32:P(B,Q)=P(B,Q)+M(B,Q)
482 IF P(B,Q)<30 THEN P(B,Q)=X:S(B,Q)=0
483 IF P(B,Q)>830 THEN P(B,Q)=X:S(B,Q)=0
490 POKE G+ P(B,Q),D(B,Q):POKEUC+P(B,Q),18-4*B
492 IF Q>20 THEN GOSUB 900
495 NEXT B
496 FOR A=1TO26
497 RR=RR+S(2,A):BB=BB+S(1,A)
498 NEXT A
499 PRINTUE$;"...TOT"
500 PRINT"                                      "
501 PRINTU8$;"[145]PUNKTE..."U7$;"R:"RR;U9$;"B:"BB;UR$;"    MINUTEN:"C:PRINTU8$;
510 NEXTC
511 T=T+1
515 PRINTUE$;"***ENDE EINER HALBEN STUNDE KAMPF***"
516 FORA=1TO5:FORJ=1TO100:POKEUG,UU:NEXTJ:POKEUG,U6:FORJ=1TO100:NEXTJ:NEXTA
520 FORA=1TO3500:NEXTA:PRINTU1$;
521 IFBB=>3*RR/2THENPRINT"ENGLISCHE NIEDERLAGE!!!HOCH BONNIE PRINCE CHARLIE!":GOTO1000
522 IFRR=>3*BB/2THEN PRINT"ENGLISCHER SIEG!+++++++++++++FUCK!":GOTO1000
524 IF T>=3THEN PRINT"*ES WIRD SPAET- DIE LEUTE SIND MUEDE!*":GOTO550
525 GOTO 90
550 FOR A=1 TO 3000:NEXTA
552 PRINT"GEHT'S WEITER? (J/N)";
555 GETN$:IFN$="" THEN 555
557 PRINTN$:IF N$="J"THEN570
559 PRINTU7$;"ENGLAENDER HABEN NOCH "RR"TRUPPEN"
560 PRINTU9$;"SCHOTTEN:NOCH";BB;"TRUPPEN":PRINTU8$;
562 IF BB>RR THEN PRINT"KNAPPER SCHOTTISCHER SIEG!":GOTO1000
564 IF RR>BB THEN PRINT"KNAPPER ENGLISCHER SIEG!":GOTO1000
566 PRINT"*** UNENTSCHIEDEN ***":GOTO1000
570 PRINT"NEUORDNUNG DER STREITKRAEFTE ? (J/N)"
574 PRINT""
575 GETN$:IFN$="" THEN 575
576 IF N$="N" THEN 90
578 GOTO 53
600 Q=RND(1)*26+1
610 Q=INT(Q)
620 RETURN
650 FOR Z=1 TO 10:POKEUV,15:POKEUW,33:POKE UH,INT(RND(1)*20+2)
675 POKE G+P(B,Q),102
680 POKE G+P(E,A),102
685 POKE G+P(B,Q),D(B,Q)
690 POKEG+P(E,A),D(E,A)
691 NEXTZ:POKEUV,0:POKEUW,129
692 R=RND(1)*4+1
693 V=RND(1)*4+1
694 R=INT(R)
695 V=INT(V)
696 RETURN
700 Q=RND(1)*4+2
705 Q=INT(Q)
710 RETURN
800 IF N$="NO" THEN N=-39:RETURN
805 IF N$="NW" THEN N=-41:RETURN
810 IF N$="SO" THEN N=41:RETURN
815 IF N$="SW" THEN N= 39:RETURN
818 IF N$="OK" THEN N=0:RETURN
820 IF N$="O" THEN N=1:RETURN
825 IF N$="W" THEN N=-1:RETURN
830 IF N$="N" THEN N=-40:RETURN
835 IF N$="S" THEN N=40:RETURN
836 N=99
837 PRINT"*** ILLEGALER BEFEHL! ***
838 [129] Y[178]1 [164] 2000:[130] Y
839 [153]"                                  "
840 [142]
900 M[178]1
901 [139] Q[177]23 [167] M[178]2
902 [139] F(B,M)[178]1 [176] F(B,M)[178][171]1 [167] FF[178]64
903 [139] F(B,M)[178]40 [176] F(B,M)[178][171]40 [167] FF[178]93
904 [139] F(B,M)[178]41 [176] F(B,M)[178][171]41 [167] FF[178]77
905 [139] F(B,M)[178]39 [176] F(B,M)[178][171]39 [167] FF[178]78
906 [139] F(B,M)[178]0 [167] [142]
907 [129] A[178]1[164]5
908 F[178]A[172]F(B,M)
909 KL[178][194](G[170]P(B,Q)[170]F):[139]KL[178]43[167] [151]UV,0:[142]
910 [139] KL[178]32[167] [151] G[170]P(B,Q)[170]F,FF:[137]916
911 [151] UV,15:[151]UW,33
912 [129] I[178]1 [164]26:[151]UH,200[171]I
913 [139] P(B,I)[178]P(B,Q)[170]F [167] [137]920
914 [139] P(E,I)[178]P(B,Q)[170]F [167] [137] 930
915 [130] I
916 [151] G[170]P(B,Q)[170]F,32:[151]UC[170]P(B,Q)[170]F,U3
917 [151] UV,15:[151]UL,250[171]A[172]48:[151]UH,244:[129]Z[178]1[164]10:[130]Z,A:[151]UV,0
918 [142]
920 [151] G[170]P(B,I),32:[151]UC[170]P(B,I),U3
922 S(B,I)[178]0:P(B,I)[178]X
923 [151] G[170]P(B,I),D(B,I):[151]UC[170]P(B,I),18[171]4[172]B
925 [151]UV,0:[151]UW,129:[142]
930 [151] G[170]P(E,I),32:[151]UC[170]P(E,I),U3
932 S(E,I)[178]0:P(E,I)[178]X
933 [151] G[170]P(E,I),D(E,I):[151]UC[170]P(E,I),18[171]4[172]E
935 [151]UV,0:[151]UW,129:[142]
1000 [161]A$:[139]A$[178]""[167]1000
1001 [138]
63900 [143] FARB/TON CODES
63902 US[178]1024:UC[178]55296:UG[178]53281:UB[178]53280:UV[178]54296:UA[178]54277:UD[178]54278:UH[178]54273
63905 UL[178]54272:UW[178]54276:U0[178]0:U0$[178]"STOP":UI[178]1:U1$[178]"":U2[178]2:U2$[178]"":U3[178]5:U3$[178]""
63910 U4[178]6:U4$[178]"":U5[178]8:U5$[178]"FOR":U6[178]9:U6$[178]"VERIFY":U7[178]10:U7$[178]"DEF":U8[178]13:U8$[178]"PRINT"
63915 U9[178]14:U9$[178]"CONT":UU[178]4:UU$[178]"CLR":UR[178]12:UR$[178]"PRINT#":UE[178]7:UE$[178]"SYS":UF[178]11:UF$[178]"POKE"
63920 [151] UA,55:[151]UD,100:[151]UW,129
63930 [142]