home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 September / 64er_Magazin_87-09_1987_Markt__Technik_de_Side_B.d64 / belagerung (.txt) next >
Encoding:
Commodore BASIC  |  1987-01-01  |  9.7 KB  |  312 lines
  1. 0 rem     copyright by : frank abbing
  2. 1 rem
  3. 2 rem    4422 ahaus, margarethenstr.13
  4. 3 rem
  5. 4 ei=255
  6. 5 z1$="abcdef":z2$="12345678":z3$="234567"
  7. 10 poke53280,11:poke53281,11:print"[147][158]"
  8. 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
  9. 16 pokel,15:poketh,8:poketl,8:pokea,0:pokeh,240:pokew,0
  10. 17 poketh+7,8:poketl+7,8:pokea+7,0:pokeh+7,240:pokew+7,0
  11. 20 fora=828to828+45:readb:pokea,b:next
  12. 25 sys828:vc=53248:ci=56576:pokevc+24,8+48
  13. 27 pokeci,peek(ci)and252:poke648,204
  14. 30 print"[147]"
  15. 32 rem *** zeichensatz verschieben ***
  16. 35 data234,165,1,120,41,251,133,1,160,0,132,251,132,253,169,208,133,252,169,224
  17. 40 data133,254,162,16,177,251,145,253,200,208,249,230,252,230,254,202,208,242
  18. 45 data165,1,9,4,133,1,88,96
  19. 50 ad=57344
  20. 55 readx:ifx=-1then410
  21. 60 cg=ad+x*8:fori=0to7:readq:pokecg+i,q:next:goto55
  22. 65 rem *** datas fuer neue zeichen ***
  23. 70 data0,255,255,255,255,255,255,255,255
  24. 80 data85,7,31,63,127,127,255,255,255
  25. 90 data74,255,255,255,127,127,63,31,7
  26. 100 data112,248,224,192,128,128,0,0,0
  27. 110 data109,0,0,0,128,128,192,224,248
  28. 120 data73,224,248,252,254,254,255,255,255
  29. 130 data75,255,255,255,254,254,252,248,224
  30. 140 data110,31,7,3,1,1,0,0,0
  31. 150 data125,0,0,0,1,1,3,7,31
  32. 160 data28,60,66,153,161,161,153,66,60
  33. 170 data65,0,255,255,255,255,255,255,255
  34. 180 data83,255,255,255,255,255,255,255,0
  35. 190 data90,127,127,127,127,127,127,127,127
  36. 200 data88,254,254,254,254,254,254,254,254
  37. 210 data76,127,127,127,127,127,127,127,0
  38. 220 data79,0,127,127,127,127,127,127,127
  39. 230 data80,0,254,254,254,254,254,254,254
  40. 240 data122,254,254,254,254,254,254,254,0
  41. 250 data31,127,127,127,126,125,125,126,126
  42. 260 data30,255,227,235,107,170,221,247,221
  43. 270 data94,255,255,255,63,223,223,191,191
  44. 280 data91,93,107,107,182,190,190,128,255
  45. 290 data86,127,127,127,255,255,255,255,255
  46. 300 data35,0,255,255,255,255,255,255,231
  47. 305 data38,255,255,255,255,255,255,255,231
  48. 310 data37,231,255,255,255,255,255,255,255
  49. 400 data-1
  50. 405 rem *** sprite daten einlesen ***
  51. 410 poke53240,0:v=53248:poke53241,1:poke53242,1:poke53243,1:poke53244,2
  52. 411 poke53245,2:poke53246,2:poke53247,2
  53. 412 forn=0to62:readq:poke49152+n,q:next
  54. 414 forn=0to62:readq:poke49216+n,q:next
  55. 416 forn=0to62:readq:poke49280+n,q:next
  56. 420 pokev+0,120:pokev+1,146:pokev+39,0
  57. 430 pokev+2,120:pokev+3,162:pokev+40,0
  58. 440 pokev+4,104:pokev+5,162:pokev+41,0
  59. 450 pokev+6,88:pokev+7,162:pokev+42,0
  60. 460 pokev+8,120:pokev+9,178:pokev+43,0
  61. 470 pokev+10,104:pokev+11,178:pokev+44,0
  62. 480 pokev+12,88:pokev+13,178:pokev+45,0
  63. 490 pokev+14,72:pokev+15,178:pokev+46,0
  64. 495 dimm1(26),m2(26),m3(26):forp=1to25:readm1(p),m2(p),m3(p):next
  65. 500 na$(1)="":na$(2)=""
  66. 505 rem *** vorspann ***
  67. 510 print"[147]"
  68. 560 print"[145][144][164][164][164] [164][164][164][164][164][164][164]   [164]   [164][164][164][164][164][164]
  69. 570 [153]"print#^@^right$^@or^^@or  (NULL)orright$ (NULL)or^^@or^
  70. 580 print"[155] @[189][203] @[173]  @   @[185]@ @   @[173]
  71. 590 [153]"open @^right$ @or  @   @usr@ @^@ @or
  72. 600 print"[189]@[189][203][189]@[173][189][189]@[173][189][189]@ @[173][202][173][203][189]@[173][189]
  73. 611 [153]"tab(tab(tab( tab(tab(tab(tab(tab(tab(tab(tab(tab(tab( tab(tab( tab( tab(tab(tab(tab( 
  74. 620 printtab(24)"[145][144][164][164][164] [164][164] [164][164][164] [164][164] [164][164]
  75. 630 [153][163]24)"onprint#^@^right$^@ @or@/@or(NULL)or^
  76. 640 printtab(24)"[145][155] @[189][203] @ @ @@@ @
  77. 650 [153][163]24)"open @^right$ @ @ @^@ @^@
  78. 660 printtab(24)"[145][189]@ @[173][202][173][203][189]@ @ [202][173][203]
  79. 670 [153][163]24)"ontab(tab( tab(tab( tab( tab(tab( tab(  tab(
  80. 680 print"[158]\ ein strategie-spiel von frank abbing \[155]
  81. 682 [153]""[163]15)"1 burgherr"
  82. 684 [153]""[163]15)"3 landsknechte"
  83. 686 [153]""[163]15)"4 ritteronononononononononon"
  84. 690 [151]v[170]21,255:q3[178]q3[170]1:[139]q3[178]1[167][141]7000
  85. 691 [153]"print# bitte namen eingeben (1-5 buchstaben)list
  86. 692 input" name von spieler 1 (reiter) ";na$(1)
  87. 693 ifna$(1)=""then692
  88. 694 iflen(na$(1))>5then500
  89. 695 input" name von spieler 2  (burg)  ";na$(2)
  90. 696 print""
  91. 700 ifna$(2)=""then695
  92. 705 iflen(na$(2))>5then500
  93. 710 na$(1)=left$(na$(1),5)
  94. 720 na$(2)=left$(na$(2),5)
  95. 725 ifna$(1)=na$(2)then500
  96. 730 print"[158]                                        "
  97. 732 rem *** spriteausgangsstellung ***
  98. 735 pokev+21,0
  99. 740 pokev+0,185:pokev+1,114:pokev+2,161:pokev+3,130:pokev+4,185:pokev+5,130
  100. 745 pokev+6,161:pokev+7,146:pokev+8,137:pokev+9,194:pokev+10,161:pokev+11,194
  101. 747 pokev+12,185:pokev+13,194:pokev+14,209:pokev+15,194
  102. 748 rem *** spielbrett zeichnen ***
  103. 749 print"[145]         1  2  3  4  5  6  7  8
  104. 750 [153]"      a @&@(NULL)@@print#(NULL)@@_^(NULL)_^(NULL)(NULL)@@sys(NULL)@@(NULL)&@
  105. 755 printtab(8)"@%@[218]@@[152][218]@@[218][219][214][218][219][214][218]@@[158][218]@@[218]%@
  106. 760 [153][163]6)"b atn#atn(NULL)atnatnprint#(NULL)atnatn(NULL)atnatn(NULL)atnatn(NULL)atnatnsys(NULL)atnatn(NULL)#atn
  107. 765 printtab(8)"@%@[218]@@[152][218]@@[218]@@[218]@@[218]@@[158][218]@@[218]%@
  108. 770 [153][163]6)"c atn#atn(NULL)atnatnprint#(NULL)atnatn(NULL)atnatn(NULL)atnatn(NULL)atnatnsys(NULL)atnatn(NULL)#atn
  109. 775 printtab(8)"@%@[218]@@[152][218]@@[218]@@[218]@@[218]@@[158][218]@@[218]%@
  110. 780 [153][163]6)"d atn#atn(NULL)atnatnprint#(NULL)atnatn(NULL)atnatn(NULL)atnatn(NULL)atnatnsys(NULL)atnatn(NULL)#atn
  111. 785 printtab(8)"@%@[218]@@[152][218]@@[218]@@[218]@@[218]@@[158][218]@@[218]%@
  112. 790 [153][163]6)"e atn#atn(NULL)atnatn(NULL)atnatn(NULL)atnatn(NULL)atnatn(NULL)atnatn(NULL)atnatn(NULL)#atn
  113. 795 printtab(8)"@%@[218]@@[218]@@[218]@@[218]@@[218]@@[218]@@[218]%@
  114. 800 [153][163]6)"f atn#atn(NULL)atnatn(NULL)atnatn(NULL)atnatn(NULL)atnatn(NULL)atnatn(NULL)atnatn(NULL)#atn
  115. 805 print"        @%@[218]@@[218]@@[218]@@[218]@@[218]@@[218]@@[218]%@       "
  116. 810 print"                                      "
  117. 815 print"belagerer[158]                    [144]verteidiger[158]
  118. 816 [153]"on                                     "
  119. 817 [153]"                                     "
  120. 818 [151]v[170]21,255
  121. 819 [143] *** sprite datas ***
  122. 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
  123. 830 [131]0,4,58,0,4,56,0,4,40,0,8,68,0,8,198,0,0,0,0,,,,,,,,,,,,,,,
  124. 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
  125. 850 [131]56,0,0,56,0,0,40,0,0,36,0,0,102,0,,,,,,,,,,,,,,,,,,
  126. 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
  127. 870 [131]254,0,1,255,0,2,255,0,0,165,0,1,40,128,,,,,,,,,,,,,,,,,,
  128. 877 :
  129. 878 [143] *** musik-data's ***
  130. 879 :
  131. 880 [131]29,69,85,26,20,65,29,69,1000,0,0,750,26,20,100,23,59,100,21,237,100,19
  132. 885 [131]137,100,18,112,300,19,137,75,19,137,600,0,0,25,14,162,100,13,10,100,14
  133. 890 [131]162,800,0,0,500,10,247,500,11,158,525,9,56,550,9,196,1,0,0,1500,14,162
  134. 895 [131]1000,15,129,1250,13,10,1250,14,162,2500
  135. 900 [153]""na$(1)[163]33)"stop"na$(2)"sys":bb[178]0
  136. 910 [143] *** spieler 1 zieht ***
  137. 911 [151]w,65:[151]fh,100:[129]io[178]1[164]250:[130]:[151]w,0
  138. 912 [129]u[178]1[164]4:a$(u)[178]"":[130]
  139. 915 [153]"                                       "
  140. 920 [153]"onzug von "na$(1)" = @cmd";
  141. 930 j[178]0:[129]a[178]1[164]4
  142. 940 [161]a$(a):[139]a$(a)[178]""[167]940
  143. 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
  144. 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
  145. 946 [130]z
  146. 947 [137]940
  147. 950 [153]a$(a)"@cmd";
  148. 955 [151]w,65:[151]fh,100:[129]io[178]1[164]25:[130]:[151]w,0
  149. 960 [139]a[178]2[167][153]"-@cmd";
  150. 970 [130] a
  151. 980 zu$(1)[178]a$(1)[170]a$(2)
  152. 985 zu$(2)[178]a$(3)[170]a$(4)
  153. 987 w$(1)[178]a$(1):w$(2)[178]a$(2)
  154. 990 [153]:[153]"onvon "zu$(1)" nach "zu$(2)"            "
  155. 991 [139]bb[178]1[167]a$(3)[178]a$(1):a$(4)[178]a$(2)
  156. 992 [139]bb[178]3[167]a$(3)[178]a$(1):a$(4)[178]a$(2)
  157. 995 [139]bb[178]5[167]a$(3)[178]a$(1):a$(4)[178]a$(2)
  158. 996 [139]bb[178]7[167]a$(3)[178]a$(1):a$(4)[178]a$(2)
  159. 1000 [139]a$(1[170]j)[178]"a"[167]x[178]114
  160. 1010 [139]a$(1[170]j)[178]"b"[167]x[178]130
  161. 1020 [139]a$(1[170]j)[178]"c"[167]x[178]146
  162. 1030 [139]a$(1[170]j)[178]"d"[167]x[178]162
  163. 1040 [139]a$(1[170]j)[178]"e"[167]x[178]178
  164. 1050 [139]a$(1[170]j)[178]"f"[167]x[178]194
  165. 1060 [139]a$(2[170]j)[178]"1"[167]y[178]89
  166. 1070 [139]a$(2[170]j)[178]"2"[167]y[178]113
  167. 1080 [139]a$(2[170]j)[178]"3"[167]y[178]137
  168. 1090 [139]a$(2[170]j)[178]"4"[167]y[178]161
  169. 1100 [139]a$(2[170]j)[178]"5"[167]y[178]185
  170. 1110 [139]a$(2[170]j)[178]"6"[167]y[178]209
  171. 1120 [139]a$(2[170]j)[178]"7"[167]y[178]233
  172. 1130 [139]a$(2[170]j)[178]"8"[167]y[178]255
  173. 1135 [139]j[178]2[167]j[178]0:[142]
  174. 1140 [139][194](v[170]8)[178]y[175][194](v[170]9)[178]x[167]px[178]8:py[178]9:[137]1200
  175. 1150 [139][194](v[170]10)[178]y[175][194](v[170]11)[178]x[167]px[178]10:py[178]11:[137]1200
  176. 1160 [139][194](v[170]12)[178]y[175][194](v[170]13)[178]x[167]px[178]12:py[178]13:[137]1200
  177. 1170 [139][194](v[170]14)[178]y[175][194](v[170]15)[178]x[167]px[178]14:py[178]15:[137]1200
  178. 1180 [153]"on                                       ":[137]910
  179. 1200 [143]
  180. 1201 j[178]2:[141]1000
  181. 1205 un(1)[178]([182]([198](a$(1)))[171]([198](a$(3)))):un(1)[178][182](un(1))
  182. 1210 un(2)[178]([182]([198](a$(2)))[171]([198](a$(4)))):un(2)[178][182](un(2))
  183. 1211 [129]s[178]8[164]15[169]2
  184. 1212 [139]s[178]px[167]a[178]a:s[178]s[170]2
  185. 1213 [139]y[178][194](v[170]s)[175]x[178][194](v[170]s[170]1)[167]f[178]f:[137]910
  186. 1214 [130]s
  187. 1220 [139]un(1)[178]1[175]un(2)[178]2[167]1300
  188. 1230 [139]un(1)[178]2[175]un(2)[178]1[167]1300
  189. 1240 [137]910
  190. 1300 [139][194](v[170]px)[177]136[175][194] (v[170]px)[179]210[175][194](v[170]py)[179]163[167]1305
  191. 1303 [137]1310
  192. 1305 [139]y[177]136[175]y[179]210[175]x[179]163[167]1310
  193. 1307 [137]910
  194. 1310 [151]v[170]px,y:[151]v[170]py,x
  195. 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
  196. 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
  197. 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
  198. 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
  199. 1315 [151]v[170]21,ei
  200. 1320 [139]l3[178]2[167]l3[178]0:[137]910
  201. 1330 [137]1400
  202. 1340 :
  203. 1350 [143] *** verteidiger spielt ***
  204. 1360 :
  205. 1400 [153]"                                       "
  206. 1410 [153]"onstopzug von "na$(2)" = @cmd";
  207. 1411 [151]w,65:[151]fh,10:[129]io[178]1[164]250:[130]:[151]w,0
  208. 1415 [129]t[178]1[164]4:b$(t)[178]"":[130]
  209. 1420 j[178]0:[129]a[178]1[164]4
  210. 1430 [161]b$(a):[139]b$(a)[178]""[167]1430
  211. 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
  212. 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
  213. 1460 [130]z
  214. 1470 [137]1430
  215. 1480 [143]
  216. 1500 [153]b$(a)"@cmd";
  217. 1505 [151]w,65:[151]fh,10:[129]io[178]1[164]25:[130]:[151]w,0
  218. 1510 [139]a[178]2[167][153]"-@cmd";
  219. 1520 [130] a
  220. 1530 w$(3)[178]b$(1):w$(4)[178]b$(2)
  221. 1540 [139]b$(1)[178]"a"[175]b$(2)[178]"4"[175]b$(3)[178]"a"[175]b$(4)[178]"5"[167]5000
  222. 1550 [139]b$(1)[178]"a"[175]b$(2)[178]"5"[175]b$(3)[178]"a"[175]b$(4)[178]"4"[167]6000
  223. 1551 zu$(3)[178]b$(1)[170]b$(2)
  224. 1552 zu$(4)[178]b$(3)[170]b$(4)
  225. 1560 [153]:[153]"onvon "zu$(3)" nach "zu$(4)"            "
  226. 1600 [139]b$(1[170]j)[178]"a"[167]x[178]114
  227. 1610 [139]b$(1[170]j)[178]"b"[167]x[178]130
  228. 1620 [139]b$(1[170]j)[178]"c"[167]x[178]146
  229. 1630 [139]b$(1[170]j)[178]"d"[167]x[178]162
  230. 1631 [139]b$(1[170]j)[178]"e"[167]x[178]178
  231. 1632 [139]b$(1[170]j)[178]"f"[167]x[178]194
  232. 1635 [139]b$(2[170]j)[178]"2"[167]y[178]113
  233. 1640 [139]b$(2[170]j)[178]"3"[167]y[178]137
  234. 1650 [139]b$(2[170]j)[178]"4"[167]y[178]161
  235. 1660 [139]b$(2[170]j)[178]"5"[167]y[178]185
  236. 1670 [139]b$(2[170]j)[178]"6"[167]y[178]209
  237. 1675 [139]b$(2[170]j)[178]"7"[167]y[178]233
  238. 1680 [139]j[178]2[167]j[178]0:[137]1810
  239. 1700 [139][194](v[170]0)[178]y[175][194](v[170]1)[178]x[167]bx[178]0:by[178]1:[137]  2000
  240. 1710 [139][194](v[170]2)[178]y[175][194](v[170]3)[178]x[167]bx[178]2:by[178]3:[137]1800
  241. 1720 [139][194](v[170]4)[178]y[175][194](v[170]5)[178]x[167]bx[178]4:by[178]5:[137]1800
  242. 1730 [139][194](v[170]6)[178]y[175][194](v[170]7)[178]x[167]bx[178]6:by[178]7:[137]1800
  243. 1740 [153]"on                                       ":[137]1400
  244. 1800 j[178]2:[141]1600
  245. 1810 [143]
  246. 1850 un(3)[178]([182]([198](b$(1)))[171]([198](b$(3)))):un(3)[178][182](un(3))
  247. 1860 un(4)[178]([182]([198](b$(2)))[171]([198](b$(4)))):un(4)[178][182](un(4))
  248. 1900 [139]un(3)[178]1[175]un(4)[178]1[167]1930
  249. 1910 [139]un(3)[178]0[175]un(4)[178]1[167]1930
  250. 1915 [139]un(3)[178]1[175]un(4)[178]0[167]1930
  251. 1920 [137]1400
  252. 1930 [129]s[178]0[164]5[169]2
  253. 1935 [139]s[178]bx[167]a[178]a:s[178]s[170]2
  254. 1940 [139]y[178][194](v[170]s)[175]x[178][194](v[170]s[170]1)[167]i[178]i:[137] 1400
  255. 1945 [130]
  256. 1950 [151]v[170]bx,y:[151]v[170]by,x
  257. 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
  258. 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
  259. 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
  260. 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
  261. 1959 [151]v[170]21,ei
  262. 1960 [139]sp[178]4[167]si$[178]na$(2):[137]10000
  263. 1965 [153]"on                                       "
  264. 1970 [137]910
  265. 1980 [143] *** burgherr wird bewegt ***
  266. 2000 [139]b$(3)[178]"a"[167]x[178]114:[137]2040
  267. 2010 [139]b$(3)[178]"b"[167]x[178]130:[137]2040
  268. 2020 [139]b$(3)[178]"c"[167]x[178]146:[137]2040
  269. 2030 [139]b$(3)[178]"d"[167]x[178]162:[137]2040
  270. 2035 [139]b$(3)[178]"e"[167]1400
  271. 2037 [139]b$(3)[178]"f"[167]1400
  272. 2040 [139]b$(4)[178]"3"[167]y[178]137:[137]2100
  273. 2050 [139]b$(4)[178]"4"[167]y[178]161:[137]2100
  274. 2060 [139]b$(4)[178]"5"[167]y[178]185:[137]2100
  275. 2070 [139]b$(4)[178]"6"[167]y[178]209:[137]2100
  276. 2080 [137]1400
  277. 2100 un(3)[178]([182]([198](b$(1)))[171]([198](b$(3)))):un(3)[178][182](un(3))
  278. 2110 un(4)[178]([182]([198](b$(2)))[171]([198](b$(4)))):un(4)[178][182](un(4))
  279. 2130 [139]un(3)[178]3[175]un(4)[178]3[167]2160
  280. 2140 [139]un(3)[178]2[175]un(4)[178]2[167]2160
  281. 2150 [139]un(3)[178]1[175]un(4)[178]1[167]2160
  282. 2155 [137]1400
  283. 2160 [153]"on                                       "
  284. 2200 [137]1930
  285. 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
  286. 5010 [137]1400
  287. 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
  288. 6010 [137]1400
  289. 6999 [143] *** musikstueck abspielen ***
  290. 7000 [129]e[178]1[164]1000:[130]
  291. 7005 ms[178]0:[129]mu[178]1[164]25
  292. 7010 [151]w[170]ms,33
  293. 7020 [151]fh[170]ms,m1(mu):[151]fl[170]ms,m2(mu)
  294. 7030 [129]et[178]1[164]m3(mu):[130]
  295. 7035 [139]mu[178]20[167]ms[178]7
  296. 7040 [151]w[170]ms,0
  297. 7050 [130]:[151]w,0
  298. 7060 [129]e[178]1[164]1000:[130]:[142]
  299. 9999 [143] *** endauswertung ***
  300. 10000 [151]v[170]21,0
  301. 10010 [153]"loadsys"
  302. 10020 [153]"die belagerung zwischen "na$(1)" und "na$(2)""
  303. 10030 [153]"ist zuende. gewonnen hat "si$" !"
  304. 10040 [139]si$[178]na$(2)[167] [153]""na$(2)" hat die burg tapfer gerettet.
  305. 10050 ifsi$=na$(1)then print""na$(1)"'s reiter haben die burg gestuermt.
  306. 10060 [153]"listwollen sie noch ein spiel spielen (j/n)?
  307. 10061 poke56325,51:gosub7000
  308. 10070 getr$
  309. 10080 ifr$="j"then run
  310. 10090 ifr$="n"then sys64738
  311. 10100 goto10070
  312.