home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 April / 64er_Magazin_84-04_1984_Markt__Technik_de.d64 / caesar (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  14KB  |  445 lines
  1. 100 dimf(19,12):dimd(2):t1=1229
  2. 120 print"[147]"
  3. 140 sd=1
  4. 160 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3
  5. 180 w9=si+4:a=si+5:h=si+6:l=si+24
  6. 200 f(3,3)=5:f(4,3)=5:t2=1231
  7. 220 f(15,9)=6:f(16,9)=6:t3=56005
  8. 240 d(1)=25:d(2)=25:t4=56007
  9. 420 poke53280,0:poke53281,0
  10. 440 print"[144]"
  11. 460 print"  [169]   [223][146] [169]   [223][146] [169]   [223][146] [169]   [223][146] [169]   [223][146] [169]   [223][146]"
  12. 480 print"   [146]      [146]    [146]  [146]      [146]      [146]    [146]  [146]    [146]"
  13. 500 print"   [146]          [146]     [146]       [146]      [146]      [146]"
  14. 520 print"   [146]      [146]    [146]  [146]          [146]  [146]    [146]  [146]  [223]"
  15. 540 print"  [223]   [146][169]  [146]    [146] [223]   [146][169] [223]   [146][169]  [146]    [146] [223]   [223] "
  16. 580 poke53281,1:fort=1to1500:nextt
  17. 600 data10,89,200,16,109,200,27,160,200
  18. 620 data34,207,200,-1,-1,0
  19. 640 data15,129,70,15,129,70,13,10,70
  20. 660 data29,69,100,-1,-1,0
  21. 680 data5,123,200,17,103,200,14,162,200
  22. 700 data87,182,270,-1,-1,0
  23. 720 data16,109,130,16,109,130
  24. 740 data16,109,150,3,116,270,-1,-1,0
  25. 760 data17,103,200,21,237,200,26,20
  26. 780 data330,21,237,80,26,20,200,29
  27. 800 data69,200,26,20,200,0,0,200,21
  28. 820 data237,200,26,20,200,29,69,600
  29. 840 data26,20,200,0,0,200
  30. 860 data-1,-1,0
  31. 880 gosub51000
  32. 900 print"[147]"
  33. 1000 gosub40000
  34. 1100 fori=1to2:gosub10000:gosub15000:nexti:poke53280,14:poke53281,8
  35. 1200 print"[147]    ok. die legionaere sind postiert."
  36. 1300 print"         ich werde mal aufdecken."
  37. 1400 gosub54000:fort=1to1000:nextt
  38. 1500 print"[147]";
  39. 1600 gosub10000
  40. 1700 gosub7000
  41. 1800 gosub50000
  42. 1900 ti$="000000"
  43. 2000 fori=1to2:rr=0
  44. 2005 ifi=1thenprint"[154]";
  45. 2010 ifi=2thenprint"[150]";
  46. 2020 gosub9000:print" "sn$(i)" position ziehender legionaer":gosub50000
  47. 2040 gosub12000:gosub9000
  48. 2060 iff(x,y)<>ithengosub9000:print"falsche eingabe";:gosub9700:goto2040
  49. 2100 forp=0to9
  50. 2120 poke1863+(x*2)-((11-y)*80),224
  51. 2140 poke56135+(x*2)-((11-y)*80),9
  52. 2160 gosub56000
  53. 2180 poke56135+(x*2)-((11-y)*80),1
  54. 2190 poke1863+(x*2)-((11-y)*80),86
  55. 2195 nextp
  56. 2200 gosub9000
  57. 2240 print" "sn$(i)" welche richtung?"
  58. 2280 getr$:ifr$=""then2280
  59. 2300 ifr$=chr$(81)thenzx=-1:zy=-1:goto2450
  60. 2310 ifr$=chr$(83)then25000
  61. 2320 ifr$=chr$(87)thenzx=0:zy=-1:goto2450
  62. 2330 ifr$=chr$(77)then34000
  63. 2340 ifr$=chr$(69)thenzx=1:zy=-1:goto2450
  64. 2360 ifr$=chr$(65)thenzx=-1:zy=0:goto2450
  65. 2380 ifr$=chr$(68)thenzx=1:zy=0:goto2450
  66. 2400 ifr$=chr$(90)thenzx=-1:zy=1:goto2450
  67. 2420 ifr$=chr$(88)thenzx=0:zy=1:goto2450
  68. 2440 ifr$=chr$(67)thenzx=1:zy=1:goto2450
  69. 2445 goto2280
  70. 2450 ifx+(zx)<1orx+(zx)>18ory+(zy)<1ory+(zy)>11then22000
  71. 2500 w=f(x+(zx),y+(zy)):gosub55000
  72. 2520 w2=f(x+(zx*2),y+(zy*2))
  73. 2530 ifrr=1then2570
  74. 2540 ifw=i+4then22000
  75. 2560 ifw=0thenf(x,y)=0:gosub20000:f(x+(zx),y+(zy))=i:bx=x+zx:by=y+zy
  76. 2565 ifw=0thenf(x,y)=0:gosub21000:goto6800
  77. 2566 ifw>4thengosub20000:bx=x+zx:by=y+zy:goto6800
  78. 2570 ifw2=i+4orw=i+4then22000
  79. 2575 ifx+(zx*2)<1orx+(zx*2)>18ory+(zy*2)<1ory+(zy*2)>11then22000
  80. 2580 ifw=iandw2=0orw=iandw2>3thenf(x,y)=0:gosub20000
  81. 2600 ifw=iandw2=0orw=iandw2>3thenf(x+(zx*2),y+(zy*2))=i
  82. 2620 ifw=iandw2=0orw=iandw2>3thenbx=x+(zx*2):by=y+(zy*2):gosub21000:goto6000
  83. 2640 rem
  84. 2660 ifw=0andw2=0then22000
  85. 2680 ifw<3andw2=0orw<3andw2>3thenf(x,y)=0:gosub20000:f(x+(zx),y+(zy))=0
  86. 2700 ifw<3andw2=0orw<3andw2>3thenbx=x+zx:by=y+zy:gosub23000
  87. 2720 ifw<3andw2=0orw<3andw2>3thenf(x+(zx*2),y+(zy*2))=i:bx=x+(zx*2):by=y+(zy*2)
  88. 2740 ifw<3andw2=0orw<3andw2>3thengosub21000:gosub53000:goto6000
  89. 2760 ifw>2goto6800
  90. 2800 goto24000
  91. 6000 iff(bx,by)>2then6800
  92. 6200 gosub9000:print"  weiterspringen? ja=f1 nein=f7";
  93. 6500 getss$:ifss$=""then6500
  94. 6520 ifss$=chr$(133)thenx=x+(zx*2):y=y+(zy*2):zx=0:zy=0:rr=1:goto2100
  95. 6540 ifss$=chr$(134)then6800
  96. 6560 ifss$=chr$(135)then6800
  97. 6580 ifss$=chr$(136)then6800
  98. 6600 goto6500
  99. 6800 ifbx=3andby=3andi=2thenpoke55501,14:poket1,88:f(3,3)=3:l2=l2+1:d(2)=d(2)-1
  100. 6820 ifbx=4andby=3andi=2thenpoke55503,14:poket2,88:f(4,3)=3:l2=l2+1:d(2)=d(2)-1
  101. 6840 ifbx=15andby=9andi=1thenpoket3,10:poke1733,88:f(15,9)=3:l1=l1+1:d(1)=d(1)-1
  102. 6860 ifbx=16andby=9andi=1thenpoket4,10:poke1735,88:f(16,9)=3:l1=l1+1:d(1)=d(1)-1
  103. 6880 ifl1=2orl2=2then35000
  104. 6900 ifd(1)=0ord(2)=0then38000
  105. 6920 gosub9000:nexti
  106. 6940 rz=rz+1:i=0:goto2000
  107. 7000 forxx=1to18
  108. 7200 foryy=1to11
  109. 7300 iff(xx,yy)=1thengosub7600
  110. 7400 iff(xx,yy)=2thengosub7700
  111. 7450 rem   iff(xx,yy)=3thengosub7800
  112. 7500 nextyy,xx:xx=0:yy=0:return
  113. 7600 poke1863+(xx*2)-((11-yy)*80),224:poke56135+(xx*2)-((11-yy)*80),14:return
  114. 7700 poke1863+(xx*2)-((11-yy)*80),224:poke56135+(xx*2)-((11-yy)*80),10:return
  115. 7800 rempoke1863+(xx*2)-((11-yy)*80),224:poke56135+(xx*2)-((11-yy)*80),9:return
  116. 8000 ifi=2then8200
  117. 8100 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),14:return
  118. 8200 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),10:return
  119. 9000 print"                                       ";
  120. 9100 print"";
  121. 9200 return
  122. 9500 gosub9000
  123. 9520 print"[158]        nicht moeglicher zug";
  124. 9540 gosub9700:gosub9000:goto2120
  125. 9600 gosub9000
  126. 9620 print"[158]        u n m o e g l i c h ";
  127. 9640 gosub9700:gosub9000:goto2120
  128. 9700 forhr=1to1500:nexthr
  129. 9800 return
  130. 10000 poke53281,9:poke53280,0
  131. 10100 print"[144][176][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][178][195][174]"
  132. 10200 b1$="[221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]"
  133. 10300 b2$="[171][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][219][195][179]"
  134. 10400 forb=1to10:printb1$:printb2$:nextb
  135. 10500 printb1$:print"[173][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][177][195][189]"
  136. 10600 print"":forb=1to11:printtab(37)b;:print:nextb
  137. 10700 poke55501,14:poke55503,14:poke1229,86:poke1231,86
  138. 10800 poke56005,10:poke56007,10:poke1733,86:poke1735,86
  139. 10900 print" 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8":gosub11000
  140. 11000 forb=56216to56255:pokeb,13:nextb
  141. 11100 forb=55334to56294step40:pokeb,13:pokeb+1,13:nextb
  142. 11200 return
  143. 12000 getx$:ifx$>chr$(47)andx$<chr$(58)then12200
  144. 12100 goto12000
  145. 12200 x=val(x$):poke56215+(x*2),0
  146. 12300 gosub9000:ifx>1then13000
  147. 12400 getx$:ifx$>chr$(47)andx$<chr$(57)then12600
  148. 12450 ifx$=chr$(13)then13000
  149. 12500 goto12400
  150. 12600 x=val(x$):x=x+10:poke56215+(x*2),0
  151. 12700 rem
  152. 13000 gety$:ify$>chr$(47)andy$<chr$(58)then13200
  153. 13100 goto13000
  154. 13200 y=val(y$):poke55294+(y*80),0:poke55295+(y*80),0
  155. 13300 ify>1then13900
  156. 13400 gety$:ify$>chr$(47)andy$<chr$(50)then13600
  157. 13450 ify$=chr$(13)then13900
  158. 13500 goto13400
  159. 13600 poke55375,0:y=val(y$):y=y+10:poke55294+(y*80),0:poke55295+(y*80),0
  160. 13900 fort=1to500:nextt:gosub11000
  161. 14000 return
  162. 15000 gosub9000
  163. 15100 print" "sn$(i)" gebe deine figuren jetzt ein";:gosub9700
  164. 15300 fors=1to25:gosub9000:print" "s". figur";
  165. 15400 gosub12000:gosub9000
  166. 15600 iff(x,y)>0thengosub9000:print"[158] unmoeglich";:goto15400
  167. 15700 ifi=1andy>5thengosub9000:print"[158] unmoeglich";:goto15400
  168. 15800 ifi=2andy<7thengosub9000:print"[158] unmoeglich";:goto15400
  169. 15900 ifx=15andy=9thengosub9000:print" das ist das zielfeld";:goto15400
  170. 16000 ifx=3andy=3thengosub9000:print" das ist das zielfeld";:goto15400
  171. 16100 ifx=16andy=9thengosub9000:print"das ist das zielfeld";:goto15400
  172. 16200 ifx=4andy=3thengosub9000:print" das ist das zielfeld";:goto15400
  173. 16300 gosub9000
  174. 16400 f(x,y)=i
  175. 16500 gosub8000
  176. 16600 nexts:ifi=2then17300
  177. 16700 fort=1to800:nextt
  178. 16800 gosub50000
  179. 16900 print"[147]caesar wuenscht jetzt die heeresstellung"
  180. 17000 printtab(11)"von heeresfuehrer"
  181. 17050 printtab(14)sn$(2)
  182. 17100 fort=1to3500:nextt
  183. 17300 fort=1to750:nextt
  184. 17400 print"[147]";:return
  185. 20000 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),9:return
  186. 21000 ifi=1then21300
  187. 21100 ifi=2then21500
  188. 21300 poke1863+(bx*2)-((11-by)*80),224:poke56135+(bx*2)-((11-by)*80),14:return
  189. 21400 return
  190. 21500 poke1863+(bx*2)-((11-by)*80),224:poke56135+(bx*2)-((11-by)*80),10:return
  191. 21600 return
  192. 22000 gosub9000
  193. 22100 print"      caesar erlaubt dies nicht.";
  194. 22200 gosub9700
  195. 22300 gosub9000
  196. 22320 ifi=1then22400
  197. 22340 ifi=2then22600
  198. 22400 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),14:goto6800
  199. 22600 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),10:goto6800
  200. 23000 poke1863+(bx*2)-((11-by)*80),224:poke56135+(bx*2)-((11-by)*80),9:return
  201. 24000 gosub9000
  202. 24100 print" caesar duldet keine meuchelmoerder.";:goto22200
  203. 25000 gosub9700
  204. 25100 gosub9000
  205. 25200 ifi=1then25400
  206. 25300 ifi=2then25500
  207. 25400 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),14:goto6800
  208. 25500 poke1863+(x*2)-((11-y)*80),224:poke56135+(x*2)-((11-y)*80),10:goto6800
  209. 30000 print"[147]"spc(8)"soll ich die steuerungs-"
  210. 30100 printtab(10)"funktionen naeher er-"
  211. 30200 printtab(15)"laeutern?"
  212. 30400 gety3$:ify3$=""then30400
  213. 30500 ify3$="j"then30700
  214. 30600 return
  215. 30700 print"[147][158]":poke53281,2:poke53280,0
  216. 30800 print"die ansteuerung jedes einzelnen soldaten";
  217. 30900 print"  erfolgt ueber eingabe der einzelnen"
  218. 31000 print"koordinaten desselben. wenn sie zb. den"
  219. 31100 print" soldaten mit der koordinate 4 / 6 an-"
  220. 31200 print" steuern wollen druecken sie 4; dann 6."
  221. 31300 print"bei einem soldaten mit den koordinaten"
  222. 31400 print"1 / 11 sieht die sache etwas anders aus;";
  223. 31500 print"hier geben sie ein: 1 - return - 1 - 1."
  224. 31600 print"  nachdem sie die position eingegeben"
  225. 31700 print" haben muessen sie noch die zugrichtung"
  226. 31800 print"  eingeben.  das geschieht wie folgt:[144]"
  227. 31900 print"          links  oben   rechts"
  228. 32000 print"                [205]  [221]  [206]       "
  229. 32100 print"                 q[144] w[144] e[144]        "
  230. 32200 print"                  [205][221][206]         "
  231. 32300 print"          links [195]a[144][195][209][195]d[144][195] rechts"
  232. 32400 print"                  [206][221][205]         "
  233. 32500 print"                 z[144] x[144] c[144]        "
  234. 32600 print"                [206]  [221][160] [205]       "
  235. 32700 print"          links  unten  rechts"
  236. 32750 getpq$:ifpq$=""then32750
  237. 32800 print"[153]wenn sie zwischenzeitig aufhoeren wollen";
  238. 32900 print"druecken sie 'm' wenn sie einen zug, der";
  239. 33000 print"bereits mit koordinaten eingegeben wurde";
  240. 33100 print"nicht machen wollen, druecken sie 's'."
  241. 33200 print"beachten sie: sie duerfen nicht mit eig-";
  242. 33300 print"enen legionaeren ins eigene lager. sie"
  243. 33400 print"sollen nicht versuchen aus dem schlacht-";
  244. 33500 print"feld herauszuziehen und weiterhin nicht"
  245. 33600 print"auf soldaten springen - all dies be-"
  246. 33700 print"straft caeser dadurch indem der naechste";
  247. 33800 print"heerfuehrer an die reihe kommt."
  248. 33900 print"[144]v[158]i[144]e[158]l [144]s [158]p [144]a [158]s [144]s ":goto30400
  249. 34000 gosub52000:gosub52000
  250. 34050 print"[147][158]":poke53281,0:poke53280,2
  251. 34100 print"  caesar bewundert diese strategische"
  252. 34150 print"  leistung nicht besonders. schon nach"
  253. 34200 print"  "rz" zuegen aufzuhoeren ist nicht"
  254. 34300 print"  eines caesars heerfuehrer angemessen."
  255. 34350 print"  vielleicht solltet ihr es ein paar"
  256. 34400 print"  jahrhunderte spaeter bei dem ehrvol-"
  257. 34450 print"  len kaiser wilhelm noch einmal ver-"
  258. 34500 print"  suchen; oder ihr koenntet es bei mir"
  259. 34550 print"  in einer meiner arenen probieren."
  260. 34600 fort=1to4000:nextt:goto39000
  261. 35000 fort=1to900:nextt
  262. 35100 print"[144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  263. 35150 print"[144][221]der sieger steht fest![221]"
  264. 35200 print"[144][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  265. 35250 gosub54000
  266. 35300 print"[147][158]":poke53280,0:poke53281,2
  267. 35350 ifl1=2theng$=sn$(1)
  268. 35370 ifl2=2theng$=sn$(2)
  269. 35400 ifrz<27then38000
  270. 35500 ifrz<65then36300
  271. 35550 gosub52000:gosub52000
  272. 35600 print" meinen glueckwunsch "g$";"
  273. 35650 print" deine leistung haette zwar wesentlich"
  274. 35700 print" besser sein koennen, da du "rz/2
  275. 35750 print" verschiebungen deiner heeresformation"
  276. 35800 print" gebraucht hast um zu gewinnen."
  277. 35850 print" mit ein bisschen uebung solltst du "
  278. 35900 print" deine leistung aber noch steigern"
  279. 35950 print" koennen. zur zeit kann ich dich aber"
  280. 36000 print" nur als vorkoster in meinem stab ge-"
  281. 36050 print" brauchen; da der letzte, merkwuerdiger-";
  282. 36100 print" weise,nachdem brutus sein gastgeschenk;";
  283. 36150 print" eine sachertorte; vorbeibrachte; an"
  284. 36200 print" magenkraempfen von uns gegangen ist."
  285. 36250 fort=1to4000:nextt:goto39000
  286. 36300 gosub54000:print"   meinen glueckwunsch, "g$:gosub52000
  287. 36350 print"   deine art der heeresfuehrung"
  288. 36400 print"   erinnert an die von nero den"
  289. 36450 print"   ich zwar nicht so mag, aber ich"
  290. 36500 print"   gratuliere dir trotzdem. deine"
  291. 36550 print"   legionaere finden, das du"
  292. 36600 print"   ein barscher, unliebsamer"
  293. 36650 print"   fuehrer bist, und, offen"
  294. 36700 print"   gesagt, sie hassen dich."
  295. 36750 print"   zwar kann ich dir zur zeit"
  296. 36800 print"   keinen posten als heeres-"
  297. 36850 print"   fuehrer in meiner legion"
  298. 36900 print"   anbieten, aber ein leib-"
  299. 36950 print"   eigener bei cleopatra"
  300. 37000 print"   waere ja auch nicht von"
  301. 37050 print"   der hand zu weisen."
  302. 37100 fort=1to4000:nextt:goto39000
  303. 38000 gosub54000
  304. 38050 poke53280,1
  305. 38100 print"[147][153]"
  306. 38150 print"   caesar beglueckwuenscht den sieger"
  307. 38200 print:printtab(16)g$
  308. 38250 print:gosub54000
  309. 38300 print"   eine hervorragende strategische"
  310. 38350 print"   leistung. jefferson, karl der"
  311. 38400 print"   grosse und ich zusammen"
  312. 38450 print"   haetten es nicht besser machen"
  313. 38500 print"   koennen. du wirst ab heute in"
  314. 38550 print"   meinen engsten fuehrungsstab"
  315. 38600 print"   uebernommen und bekommst den"
  316. 38650 print"   honorigen auftrag diese merk-"
  317. 38700 print"   wuerdigen gallier aus diesem"
  318. 38750 print"   dorf zu vertreiben.":gosub54000
  319. 38800 fort=1to4000:nextt:goto39000
  320. 39000 print"   noch einmal?"
  321. 39100 getne$:ifne$=""then39100
  322. 39200 ifne$="j"thenclr:goto100
  323. 39300 print"[147]":poke53280,1:poke53281,1
  324. 39400 print"bis"
  325. 39500 print"bald"
  326. 39600 print"bei"
  327. 39700 print"c a e s a r"
  328. 39800 print"":end
  329. 40000 print"[147][129]"
  330. 40100 poke53280,11:poke53281,11
  331. 40200 print"hallo, hier ist caesar. ich hoerte, das"
  332. 40300 print"ihr strategisch was drauf habt - soso -"
  333. 40400 print"na, das werden wir ja gleich sehen. ich"
  334. 40450 print"habe mir fuer euch ein kleines spiel ein";
  335. 40500 print"-fallen lassen. mein gedachtes schlacht-";
  336. 40600 print"feld hat eine groesse von achtzehn  mal"
  337. 40700 print"elf feldern und jeder heeresfuehrer hat"
  338. 40800 print"fuenfundzwanzig legionaere.jeder heeres-";
  339. 40900 print"fuehrer stellt  seine eigene formation "
  340. 41000 print"auf. daher sollte der gegner bei der je-";
  341. 41100 print"weiligen eingabe nicht auf den schirm"
  342. 41200 print"schauen.  eure legionaere springen oder"
  343. 41300 print"ziehen  gerade  oder  schraeg  in  alle"
  344. 41400 print"richtungen. mit einem legionaer kann so"
  345. 41500 print"weit gesprungen werden,  wie es die je-"
  346. 41600 print"weilige stellung erlaubt. beim springen"
  347. 41700 print"bleiben eigene legionaere stehen,  geg-"
  348. 41800 print"nerische werden getoetet. ziel ist es"
  349. 41900 print"die zwei lagerfelder ( [214][214] ) des gegners"
  350. 42000 print"mit eigenen legionaeren zu besetzen."
  351. 42060 print"     bitte eine taste druecken."
  352. 42100 getb$:ifb$=""then42100
  353. 42150 gosub30000
  354. 42200 print"[147]caesar wuenscht noch die namen der zwei"
  355. 42300 print"heeresfuehrer kennenzulernen."
  356. 42400 print""
  357. 42500 input"1. heeresfuehrer";s1$
  358. 42600 iflen(s1$)>9thenprint"beim zeus, das ist zu lang":goto42500
  359. 42700 print:input"2. heeresfuehrer";s2$
  360. 42800 iflen(s2$)>9thenprint"beim zeus, das ist zu lang":goto42700
  361. 42900 w=int(rnd(1)*2)+1
  362. 43000 ifw=1thensn$(1)=s1$:sn$(2)=s2$
  363. 43100 ifw=2thensn$(1)=s2$:sn$(2)=s1$
  364. 43150 print"   ton          ?"
  365. 43170 getsd$:ifsd$=""then43170
  366. 43190 ifsd$<>"j"thensd=0
  367. 43200 fort=1to200:nextt
  368. 43300 print""sn$(1)" faengt an."
  369. 43400 print"[154]die goetter moegen euch beistehen."
  370. 43500 gosub9700
  371. 43600 print"[147]"
  372. 43700 return
  373. 50000 ifsd=0thenreturn
  374. 50050 fort=1to5:readmx:readmy:readmd:nextt
  375. 50100 pokel,15:poketh,13:poketl,15
  376. 50200 pokea,3*16+15:pokeh,9
  377. 50300 readmx:readmy:readmd
  378. 50400 ifmx=-1thenrestore:return
  379. 50500 pokefh,mx:pokefl,my:pokew9,65
  380. 50600 fort=1tomd:nextt
  381. 50700 pokew9,0:goto50300
  382. 51000 pokel,15:poketh,13:poketl,15
  383. 51100 pokea,3*16+15:pokeh,9
  384. 51200 readmx:readmy:readmd
  385. 51300 ifmx=-1thenrestore:return
  386. 51400 pokefh,mx:pokefl,my:pokew9,65
  387. 51500 fort=1tomd:nextt
  388. 51600 pokew9,0:goto51200
  389. 52000 ifsd=0thenreturn
  390. 52050 fort=1to10:readmx:readmy:readmd:nextt
  391. 52100 pokel,15:poketh,13:poketl,15
  392. 52200 pokea,3*16+15:pokeh,9
  393. 52300 readmx:readmy:readmd
  394. 52400 ifmx=-1thenrestore:return
  395. 52500 pokefh,mx:pokefl,my:pokew9,65
  396. 52600 fort=1tomd:nextt
  397. 52700 pokew9,0:goto52300
  398. 53000 ifsd=0then53700
  399. 53050 fort=1to15:readmx:readmy:readmd:nextt
  400. 53100 pokea,3*16+15:pokeh,9
  401. 53200 readmx:readmy:readmd
  402. 53300 ifmx=-1thenrestore:goto53700
  403. 53400 pokefh,mx:pokefl,my:pokew9,33
  404. 53500 fort=1tomd:nextt
  405. 53600 pokew9,0:goto53200
  406. 53700 ifi=1thend(2)=d(2)-1:return
  407. 53800 ifi=2thend(1)=d(1)-1:return
  408. 54000 ifsd=0thenreturn
  409. 54050 fort=1to20:readmx:readmy:readmd:nextt:pokel,10
  410. 54100 pokea,3*16+15:pokeh,9
  411. 54200 readmx:readmy:readmd
  412. 54300 ifmx=-1thenrestore:return
  413. 54400 pokefh,mx:pokefl,my:pokew9,33
  414. 54500 fort=1tomd:nextt
  415. 54600 pokew9,0:goto54200
  416. 55000 ifsd=0thenreturn
  417. 55100 pokel,15:pokea,16+9:pokeh,64
  418. 55200 pokefh,29:pokefl,69
  419. 55300 pokew9,129
  420. 55400 fort=1to200:nextt
  421. 55600 pokew9,0:pokea,0:pokeh,0
  422. 55700 return
  423. 56000 ifsd=0thenfort=1to60:nextt:return
  424. 56100 ifkj=0thenkj=1:goto56300
  425. 56200 ifkj=1thenkj=0:goto56600
  426. 56300 pokefh,20:pokefl,178:pokew9,17
  427. 56400 fort=1to25:nextt
  428. 56500 pokew9,0:return
  429. 56600 pokefh,12:pokefl,78:pokew9,17
  430. 56700 fort=1to25:nextt
  431. 56800 pokew9,0:return
  432. 61000 rem
  433. 62000 rem *****************************
  434. 62100 rem *                           *
  435. 62200 rem *      geschrieben  von     *
  436. 62300 rem *                           *
  437. 62400 rem *    andreas groebe         *
  438. 62500 rem *                           *
  439. 62600 rem *                           *
  440. 62700 rem *                           *
  441. 62800 rem *                           *
  442. 62900 rem *     fuer vc-64  5/1983    *
  443. 63000 rem *                           *
  444. 63200 rem *****************************
  445.