0 REM     COPYRIGHT BY : FRANK ABBING
1 REM
2 REM    4422 AHAUS, MARGARETHENSTR.13
3 REM
4 EI=255
5 Z1$="ABCDEF":Z2$="12345678":Z3$="234567"
10 POKE53280,11:POKE53281,11:PRINT"[147][158]"
15 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6:L=SI+24
16 POKEL,15:POKETH,8:POKETL,8:POKEA,0:POKEH,240:POKEW,0
17 POKETH+7,8:POKETL+7,8:POKEA+7,0:POKEH+7,240:POKEW+7,0
20 FORA=828TO828+45:READB:POKEA,B:NEXT
25 SYS828:VC=53248:CI=56576:POKEVC+24,8+48
27 POKECI,PEEK(CI)AND252:POKE648,204
30 PRINT"[147]"
32 REM *** ZEICHENSATZ VERSCHIEBEN ***
35 DATA234,165,1,120,41,251,133,1,160,0,132,251,132,253,169,208,133,252,169,224
40 DATA133,254,162,16,177,251,145,253,200,208,249,230,252,230,254,202,208,242
45 DATA165,1,9,4,133,1,88,96
50 AD=57344
55 READX:IFX=-1THEN410
60 CG=AD+X*8:FORI=0TO7:READQ:POKECG+I,Q:NEXT:GOTO55
65 REM *** DATAS FUER NEUE ZEICHEN ***
70 DATA0,255,255,255,255,255,255,255,255
80 DATA85,7,31,63,127,127,255,255,255
90 DATA74,255,255,255,127,127,63,31,7
100 DATA112,248,224,192,128,128,0,0,0
110 DATA109,0,0,0,128,128,192,224,248
120 DATA73,224,248,252,254,254,255,255,255
130 DATA75,255,255,255,254,254,252,248,224
140 DATA110,31,7,3,1,1,0,0,0
150 DATA125,0,0,0,1,1,3,7,31
160 DATA28,60,66,153,161,161,153,66,60
170 DATA65,0,255,255,255,255,255,255,255
180 DATA83,255,255,255,255,255,255,255,0
190 DATA90,127,127,127,127,127,127,127,127
200 DATA88,254,254,254,254,254,254,254,254
210 DATA76,127,127,127,127,127,127,127,0
220 DATA79,0,127,127,127,127,127,127,127
230 DATA80,0,254,254,254,254,254,254,254
240 DATA122,254,254,254,254,254,254,254,0
250 DATA31,127,127,127,126,125,125,126,126
260 DATA30,255,227,235,107,170,221,247,221
270 DATA94,255,255,255,63,223,223,191,191
280 DATA91,93,107,107,182,190,190,128,255
290 DATA86,127,127,127,255,255,255,255,255
300 DATA35,0,255,255,255,255,255,255,231
305 DATA38,255,255,255,255,255,255,255,231
310 DATA37,231,255,255,255,255,255,255,255
400 DATA-1
405 REM *** SPRITE DATEN EINLESEN ***
410 POKE53240,0:V=53248:POKE53241,1:POKE53242,1:POKE53243,1:POKE53244,2
411 POKE53245,2:POKE53246,2:POKE53247,2
412 FORN=0TO62:READQ:POKE49152+N,Q:NEXT
414 FORN=0TO62:READQ:POKE49216+N,Q:NEXT
416 FORN=0TO62:READQ:POKE49280+N,Q:NEXT
420 POKEV+0,120:POKEV+1,146:POKEV+39,0
430 POKEV+2,120:POKEV+3,162:POKEV+40,0
440 POKEV+4,104:POKEV+5,162:POKEV+41,0
450 POKEV+6,88:POKEV+7,162:POKEV+42,0
460 POKEV+8,120:POKEV+9,178:POKEV+43,0
470 POKEV+10,104:POKEV+11,178:POKEV+44,0
480 POKEV+12,88:POKEV+13,178:POKEV+45,0
490 POKEV+14,72:POKEV+15,178:POKEV+46,0
495 DIMM1(26),M2(26),M3(26):FORP=1TO25:READM1(P),M2(P),M3(P):NEXT
500 NA$(1)="":NA$(2)=""
505 REM *** VORSPANN ***
510 PRINT"[147]"
560 PRINT"[145][144][164][164][164] [164][164][164][164][164][164][164]   [164]   [164][164][164][164][164][164]
570 [153]"PRINT#^@^RIGHT$^@OR^^@OR  (null)ORRIGHT$ (null)OR^^@OR^
580 PRINT"[155] @[189][203] @[173]  @   @[185]@ @   @[173]
590 [153]"OPEN @^RIGHT$ @OR  @   @USR@ @^@ @OR
600 PRINT"[189]@[189][203][189]@[173][189][189]@[173][189][189]@ @[173][202][173][203][189]@[173][189]
611 [153]"TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB( TAB( TAB(TAB(TAB(TAB( 
620 PRINTTAB(24)"[145][144][164][164][164] [164][164] [164][164][164] [164][164] [164][164]
630 [153][163]24)"ONPRINT#^@^RIGHT$^@ @OR@/@OR(null)OR^
640 PRINTTAB(24)"[145][155] @[189][203] @ @ @@@ @
650 [153][163]24)"OPEN @^RIGHT$ @ @ @^@ @^@
660 PRINTTAB(24)"[145][189]@ @[173][202][173][203][189]@ @ [202][173][203]
670 [153][163]24)"ONTAB(TAB( TAB(TAB( TAB( TAB(TAB( TAB(  TAB(
680 PRINT"[158]\ EIN STRATEGIE-SPIEL VON FRANK ABBING \[155]
682 [153]""[163]15)"1 BURGHERR"
684 [153]""[163]15)"3 LANDSKNECHTE"
686 [153]""[163]15)"4 RITTERONONONONONONONONONON"
690 [151]V[170]21,255:Q3[178]Q3[170]1:[139]Q3[178]1[167][141]7000
691 [153]"PRINT# BITTE NAMEN EINGEBEN (1-5 BUCHSTABEN)LIST
692 INPUT" NAME VON SPIELER 1 (REITER) ";NA$(1)
693 IFNA$(1)=""THEN692
694 IFLEN(NA$(1))>5THEN500
695 INPUT" NAME VON SPIELER 2  (BURG)  ";NA$(2)
696 PRINT""
700 IFNA$(2)=""THEN695
705 IFLEN(NA$(2))>5THEN500
710 NA$(1)=LEFT$(NA$(1),5)
720 NA$(2)=LEFT$(NA$(2),5)
725 IFNA$(1)=NA$(2)THEN500
730 PRINT"[158]                                        "
732 REM *** SPRITEAUSGANGSSTELLUNG ***
735 POKEV+21,0
740 POKEV+0,185:POKEV+1,114:POKEV+2,161:POKEV+3,130:POKEV+4,185:POKEV+5,130
745 POKEV+6,161:POKEV+7,146:POKEV+8,137:POKEV+9,194:POKEV+10,161:POKEV+11,194
747 POKEV+12,185:POKEV+13,194:POKEV+14,209:POKEV+15,194
748 REM *** SPIELBRETT ZEICHNEN ***
749 PRINT"[145]         1  2  3  4  5  6  7  8
750 [153]"      A @&@(null)@@PRINT#(null)@@_^(null)_^(null)(null)@@SYS(null)@@(null)&@
755 PRINTTAB(8)"@%@[218]@@[152][218]@@[218][219][214][218][219][214][218]@@[158][218]@@[218]%@
760 [153][163]6)"B ATN#ATN(null)ATNATNPRINT#(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATNSYS(null)ATNATN(null)#ATN
765 PRINTTAB(8)"@%@[218]@@[152][218]@@[218]@@[218]@@[218]@@[158][218]@@[218]%@
770 [153][163]6)"C ATN#ATN(null)ATNATNPRINT#(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATNSYS(null)ATNATN(null)#ATN
775 PRINTTAB(8)"@%@[218]@@[152][218]@@[218]@@[218]@@[218]@@[158][218]@@[218]%@
780 [153][163]6)"D ATN#ATN(null)ATNATNPRINT#(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATNSYS(null)ATNATN(null)#ATN
785 PRINTTAB(8)"@%@[218]@@[152][218]@@[218]@@[218]@@[218]@@[158][218]@@[218]%@
790 [153][163]6)"E ATN#ATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)#ATN
795 PRINTTAB(8)"@%@[218]@@[218]@@[218]@@[218]@@[218]@@[218]@@[218]%@
800 [153][163]6)"F ATN#ATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)#ATN
805 PRINT"        @%@[218]@@[218]@@[218]@@[218]@@[218]@@[218]@@[218]%@       "
810 PRINT"                                      "
815 PRINT"BELAGERER[158]                    [144]VERTEIDIGER[158]
816 [153]"ON                                     "
817 [153]"                                     "
818 [151]V[170]21,255
819 [143] *** SPRITE DATAS ***
820 [131]0,0,0,0,224,0,0,192,0,0,128,0,1,16,0,1,56,0,1,16,0,2,184,0,2,124,0,2,58
830 [131]0,4,58,0,4,56,0,4,40,0,8,68,0,8,198,0,0,0,0,,,,,,,,,,,,,,,
840 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,56,0,0,18,0,12,58,0,10,252,0,1,56,0,0
850 [131]56,0,0,56,0,0,40,0,0,36,0,0,102,0,,,,,,,,,,,,,,,,,,
860 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,48,0,0,34,0,0,51,128,0,55,0,0
870 [131]254,0,1,255,0,2,255,0,0,165,0,1,40,128,,,,,,,,,,,,,,,,,,
877 :
878 [143] *** MUSIK-DATA'S ***
879 :
880 [131]29,69,85,26,20,65,29,69,1000,0,0,750,26,20,100,23,59,100,21,237,100,19
885 [131]137,100,18,112,300,19,137,75,19,137,600,0,0,25,14,162,100,13,10,100,14
890 [131]162,800,0,0,500,10,247,500,11,158,525,9,56,550,9,196,1,0,0,1500,14,162
895 [131]1000,15,129,1250,13,10,1250,14,162,2500
900 [153]""NA$(1)[163]33)"STOP"NA$(2)"SYS":BB[178]0
910 [143] *** SPIELER 1 ZIEHT ***
911 [151]W,65:[151]FH,100:[129]IO[178]1[164]250:[130]:[151]W,0
912 [129]U[178]1[164]4:A$(U)[178]"":[130]
915 [153]"                                       "
920 [153]"ONZUG VON "NA$(1)" = @CMD";
930 J[178]0:[129]A[178]1[164]4
940 [161]A$(A):[139]A$(A)[178]""[167]940
942 [139]A[178]1[176]A[178]3[167][129]Z[178]1[164][195](Z1$):[139]A$(A)[178][202](Z1$,Z,1)[167]950
943 [139]A[178]2[176]A[178]4[167][129]Z[178]1[164][195](Z2$):[139]A$(A)[178][202](Z2$,Z,1)[167]950
946 [130]Z
947 [137]940
950 [153]A$(A)"@CMD";
955 [151]W,65:[151]FH,100:[129]IO[178]1[164]25:[130]:[151]W,0
960 [139]A[178]2[167][153]"-@CMD";
970 [130] A
980 ZU$(1)[178]A$(1)[170]A$(2)
985 ZU$(2)[178]A$(3)[170]A$(4)
987 W$(1)[178]A$(1):W$(2)[178]A$(2)
990 [153]:[153]"ONVON "ZU$(1)" NACH "ZU$(2)"            "
991 [139]BB[178]1[167]A$(3)[178]A$(1):A$(4)[178]A$(2)
992 [139]BB[178]3[167]A$(3)[178]A$(1):A$(4)[178]A$(2)
995 [139]BB[178]5[167]A$(3)[178]A$(1):A$(4)[178]A$(2)
996 [139]BB[178]7[167]A$(3)[178]A$(1):A$(4)[178]A$(2)
1000 [139]A$(1[170]J)[178]"A"[167]X[178]114
1010 [139]A$(1[170]J)[178]"B"[167]X[178]130
1020 [139]A$(1[170]J)[178]"C"[167]X[178]146
1030 [139]A$(1[170]J)[178]"D"[167]X[178]162
1040 [139]A$(1[170]J)[178]"E"[167]X[178]178
1050 [139]A$(1[170]J)[178]"F"[167]X[178]194
1060 [139]A$(2[170]J)[178]"1"[167]Y[178]89
1070 [139]A$(2[170]J)[178]"2"[167]Y[178]113
1080 [139]A$(2[170]J)[178]"3"[167]Y[178]137
1090 [139]A$(2[170]J)[178]"4"[167]Y[178]161
1100 [139]A$(2[170]J)[178]"5"[167]Y[178]185
1110 [139]A$(2[170]J)[178]"6"[167]Y[178]209
1120 [139]A$(2[170]J)[178]"7"[167]Y[178]233
1130 [139]A$(2[170]J)[178]"8"[167]Y[178]255
1135 [139]J[178]2[167]J[178]0:[142]
1140 [139][194](V[170]8)[178]Y[175][194](V[170]9)[178]X[167]PX[178]8:PY[178]9:[137]1200
1150 [139][194](V[170]10)[178]Y[175][194](V[170]11)[178]X[167]PX[178]10:PY[178]11:[137]1200
1160 [139][194](V[170]12)[178]Y[175][194](V[170]13)[178]X[167]PX[178]12:PY[178]13:[137]1200
1170 [139][194](V[170]14)[178]Y[175][194](V[170]15)[178]X[167]PX[178]14:PY[178]15:[137]1200
1180 [153]"ON                                       ":[137]910
1200 [143]
1201 J[178]2:[141]1000
1205 UN(1)[178]([182]([198](A$(1)))[171]([198](A$(3)))):UN(1)[178][182](UN(1))
1210 UN(2)[178]([182]([198](A$(2)))[171]([198](A$(4)))):UN(2)[178][182](UN(2))
1211 [129]S[178]8[164]15[169]2
1212 [139]S[178]PX[167]A[178]A:S[178]S[170]2
1213 [139]Y[178][194](V[170]S)[175]X[178][194](V[170]S[170]1)[167]F[178]F:[137]910
1214 [130]S
1220 [139]UN(1)[178]1[175]UN(2)[178]2[167]1300
1230 [139]UN(1)[178]2[175]UN(2)[178]1[167]1300
1240 [137]910
1300 [139][194](V[170]PX)[177]136[175][194] (V[170]PX)[179]210[175][194](V[170]PY)[179]163[167]1305
1303 [137]1310
1305 [139]Y[177]136[175]Y[179]210[175]X[179]163[167]1310
1307 [137]910
1310 [151]V[170]PX,Y:[151]V[170]PY,X
1311 [139]Y[178][194](V[170]0)[175]X[178][194](V[170]1)[167]EI[178]EI[171]1:SI$[178]NA$(1):[137]10000
1312 [139]Y[178][194](V[170]2)[175]X[178][194](V[170]3)[167]EI[178]EI[171]2:[151]V[170]2,0:[151]V[170]3,0
1313 [139]Y[178][194](V[170]4)[175]X[178][194](V[170]5)[167]EI[178]EI[171]4:[151]V[170]4,0:[151]V[170]5,0
1314 [139]Y[178][194](V[170]6)[175]X[178][194](V[170]7)[167]EI[178]EI[171]8:[151]V[170]6,0:[151]V[170]7,0
1315 [151]V[170]21,EI
1320 [139]L3[178]2[167]L3[178]0:[137]910
1330 [137]1400
1340 :
1350 [143] *** VERTEIDIGER SPIELT ***
1360 :
1400 [153]"                                       "
1410 [153]"ONSTOPZUG VON "NA$(2)" = @CMD";
1411 [151]W,65:[151]FH,10:[129]IO[178]1[164]250:[130]:[151]W,0
1415 [129]T[178]1[164]4:B$(T)[178]"":[130]
1420 J[178]0:[129]A[178]1[164]4
1430 [161]B$(A):[139]B$(A)[178]""[167]1430
1440 [139]A[178]1[176]A[178]3[167][129]Z[178]1[164][195](Z1$):[139]B$(A)[178][202](Z1$,Z,1)[167]1480
1450 [139]A[178]2[176]A[178]4[167][129]Z[178]1[164][195](Z3$):[139]B$(A)[178][202](Z3$,Z,1)[167]1480
1460 [130]Z
1470 [137]1430
1480 [143]
1500 [153]B$(A)"@CMD";
1505 [151]W,65:[151]FH,10:[129]IO[178]1[164]25:[130]:[151]W,0
1510 [139]A[178]2[167][153]"-@CMD";
1520 [130] A
1530 W$(3)[178]B$(1):W$(4)[178]B$(2)
1540 [139]B$(1)[178]"A"[175]B$(2)[178]"4"[175]B$(3)[178]"A"[175]B$(4)[178]"5"[167]5000
1550 [139]B$(1)[178]"A"[175]B$(2)[178]"5"[175]B$(3)[178]"A"[175]B$(4)[178]"4"[167]6000
1551 ZU$(3)[178]B$(1)[170]B$(2)
1552 ZU$(4)[178]B$(3)[170]B$(4)
1560 [153]:[153]"ONVON "ZU$(3)" NACH "ZU$(4)"            "
1600 [139]B$(1[170]J)[178]"A"[167]X[178]114
1610 [139]B$(1[170]J)[178]"B"[167]X[178]130
1620 [139]B$(1[170]J)[178]"C"[167]X[178]146
1630 [139]B$(1[170]J)[178]"D"[167]X[178]162
1631 [139]B$(1[170]J)[178]"E"[167]X[178]178
1632 [139]B$(1[170]J)[178]"F"[167]X[178]194
1635 [139]B$(2[170]J)[178]"2"[167]Y[178]113
1640 [139]B$(2[170]J)[178]"3"[167]Y[178]137
1650 [139]B$(2[170]J)[178]"4"[167]Y[178]161
1660 [139]B$(2[170]J)[178]"5"[167]Y[178]185
1670 [139]B$(2[170]J)[178]"6"[167]Y[178]209
1675 [139]B$(2[170]J)[178]"7"[167]Y[178]233
1680 [139]J[178]2[167]J[178]0:[137]1810
1700 [139][194](V[170]0)[178]Y[175][194](V[170]1)[178]X[167]BX[178]0:BY[178]1:[137]  2000
1710 [139][194](V[170]2)[178]Y[175][194](V[170]3)[178]X[167]BX[178]2:BY[178]3:[137]1800
1720 [139][194](V[170]4)[178]Y[175][194](V[170]5)[178]X[167]BX[178]4:BY[178]5:[137]1800
1730 [139][194](V[170]6)[178]Y[175][194](V[170]7)[178]X[167]BX[178]6:BY[178]7:[137]1800
1740 [153]"ON                                       ":[137]1400
1800 J[178]2:[141]1600
1810 [143]
1850 UN(3)[178]([182]([198](B$(1)))[171]([198](B$(3)))):UN(3)[178][182](UN(3))
1860 UN(4)[178]([182]([198](B$(2)))[171]([198](B$(4)))):UN(4)[178][182](UN(4))
1900 [139]UN(3)[178]1[175]UN(4)[178]1[167]1930
1910 [139]UN(3)[178]0[175]UN(4)[178]1[167]1930
1915 [139]UN(3)[178]1[175]UN(4)[178]0[167]1930
1920 [137]1400
1930 [129]S[178]0[164]5[169]2
1935 [139]S[178]BX[167]A[178]A:S[178]S[170]2
1940 [139]Y[178][194](V[170]S)[175]X[178][194](V[170]S[170]1)[167]I[178]I:[137] 1400
1945 [130]
1950 [151]V[170]BX,Y:[151]V[170]BY,X
1952 [139]Y[178][194](V[170]8)[175]X[178][194](V[170]9)[167]EI[178]EI[171]16:SP1[178]SP1[170]1:[151]V[170]8,0:[151]V[170]9,0
1954 [139]Y[178][194](V[170]10)[175]X[178][194](V[170]11)[167]EI[178]EI[171]32:SP1[178]SP1[170]1:[151]V[170]10,0:[151]V[170]11,0
1956 [139]Y[178][194](V[170]12)[175]X[178][194](V[170]13)[167]EI[178]EI[171]64:SP1[178]SP1[170]1:[151]V[170]12,0:[151]V[170]13,0
1958 [139]Y[178][194](V[170]14)[175]X[178][194](V[170]15)[167]EI[178]EI[171]128:SP1[178]SP1[170]1:[151]V[170]14,0:[151]V[170]15,0
1959 [151]V[170]21,EI
1960 [139]SP[178]4[167]SI$[178]NA$(2):[137]10000
1965 [153]"ON                                       "
1970 [137]910
1980 [143] *** BURGHERR WIRD BEWEGT ***
2000 [139]B$(3)[178]"A"[167]X[178]114:[137]2040
2010 [139]B$(3)[178]"B"[167]X[178]130:[137]2040
2020 [139]B$(3)[178]"C"[167]X[178]146:[137]2040
2030 [139]B$(3)[178]"D"[167]X[178]162:[137]2040
2035 [139]B$(3)[178]"E"[167]1400
2037 [139]B$(3)[178]"F"[167]1400
2040 [139]B$(4)[178]"3"[167]Y[178]137:[137]2100
2050 [139]B$(4)[178]"4"[167]Y[178]161:[137]2100
2060 [139]B$(4)[178]"5"[167]Y[178]185:[137]2100
2070 [139]B$(4)[178]"6"[167]Y[178]209:[137]2100
2080 [137]1400
2100 UN(3)[178]([182]([198](B$(1)))[171]([198](B$(3)))):UN(3)[178][182](UN(3))
2110 UN(4)[178]([182]([198](B$(2)))[171]([198](B$(4)))):UN(4)[178][182](UN(4))
2130 [139]UN(3)[178]3[175]UN(4)[178]3[167]2160
2140 [139]UN(3)[178]2[175]UN(4)[178]2[167]2160
2150 [139]UN(3)[178]1[175]UN(4)[178]1[167]2160
2155 [137]1400
2160 [153]"ON                                       "
2200 [137]1930
5000 [139][194](V[170]1)[178]114[175][194](V[170]0)[178]161[167]BX[178]0:BY[178]1:X[178]114:Y[178]185:[137]1930
5010 [137]1400
6000 [139][194](V[170]1)[178]114[175][194](V[170]0)[178]185[167]BX[178]0:BY[178]1:X[178]114:Y[178]161:[137]1930
6010 [137]1400
6999 [143] *** MUSIKSTUECK ABSPIELEN ***
7000 [129]E[178]1[164]1000:[130]
7005 MS[178]0:[129]MU[178]1[164]25
7010 [151]W[170]MS,33
7020 [151]FH[170]MS,M1(MU):[151]FL[170]MS,M2(MU)
7030 [129]ET[178]1[164]M3(MU):[130]
7035 [139]MU[178]20[167]MS[178]7
7040 [151]W[170]MS,0
7050 [130]:[151]W,0
7060 [129]E[178]1[164]1000:[130]:[142]
9999 [143] *** ENDAUSWERTUNG ***
10000 [151]V[170]21,0
10010 [153]"LOADSYS"
10020 [153]"DIE BELAGERUNG ZWISCHEN "NA$(1)" UND "NA$(2)""
10030 [153]"IST ZUENDE. GEWONNEN HAT "SI$" !"
10040 [139]SI$[178]NA$(2)[167] [153]""NA$(2)" HAT DIE BURG TAPFER GERETTET.
10050 IFSI$=NA$(1)THEN PRINT""NA$(1)"'S REITER HABEN DIE BURG GESTUERMT.
10060 [153]"LISTWOLLEN SIE NOCH EIN SPIEL SPIELEN (J/N)?
10061 POKE56325,51:GOSUB7000
10070 GETR$
10080 IFR$="J"THEN RUN
10090 IFR$="N"THEN SYS64738
10100 GOTO10070