home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 5 / Commodore_Disc_05_19xx_-_de.d64 / taktik.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  17KB  |  612 lines
  1. 100 rem *******************************
  2. 110 rem *******************************
  3. 120 rem ** t a k t i k  v2.1  (c) 87 **
  4. 130 rem **                           **
  5. 140 rem **  version vom 11.05. 1987  **
  6. 150 rem **                           **
  7. 160 rem **   hans joachim conradi    **
  8. 170 rem **   am fischerweg 5         **
  9. 180 rem **   3540 korbach            **
  10. 190 rem **   tel. 05631/1464         **
  11. 200 rem *******************************
  12. 210 rem *******************************
  13. 220 :
  14. 230 ifpeek(2)=0thenpoke2,1:poke52,96:poke56,96:clr
  15. 240 ifpeek(2)=1thenpoke2,2:load"sprites",8,1
  16. 250 ifpeek(2)=2thenpoke2,3:sys29376:load"asc1",8,1
  17. 260 ifpeek(2)=3thenpoke2,4:sys29269:load"clear",8,1
  18. 270 ifpeek(2)=4thenpoke2,5:sys36864:load"map",8,1
  19. 280 ifpeek(2)=5thenpoke2,6:load"asc2",8,1
  20. 290 ifpeek(2)=6thenpoke2,7:load"char",8,1
  21. 300 ifpeek(2)=7thenpoke2,8:load"asc3",8,1
  22. 310 ifpeek(2)=8thenpoke2,9:load"asc4",8,1
  23. 320 ifpeek(2)=9thenpoke2,10:poke56576,148:poke648,192:poke53272,2:clr:gosub5870
  24. 330 sys38450:poke53265,11:poke198,0
  25. 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)
  26. 350 dimko(5),da%(25),ly(4),sy(4):ti$="000000"
  27. 360 deffnjo(x)=int((log(255.5-(peek(56322-x)or224)))/log(2)+2)
  28. 370 fora=1to5:reada$(a),pr(a),ko(a):ge(a)=1000000:la(a)=1:next
  29. 380 fora=0to25:readb:da%(a)=b:next
  30. 390 un$=""
  31. 400 rc$="[212][213]"
  32. 410 ri$="[158]"
  33. 420 rk$=""
  34. 430 bi$="          "
  35. 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]"
  36. 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]           "
  37. 460 bi$=bi$+"[157][157][157][157][157][157][157][157][157][157][157]          "
  38. 470 mm$="1.[158]  ....[157][157][157][157][157][157][157][157]"
  39. 480 mm$=mm$+"2.[158]  ....[157][157][157][157][157][157][157][157]3.  [158]...."
  40. 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]"
  41. 500 p$(0)=" _![157][157]$#":p$(1)=" $#[157][157]&'"
  42. 510 p$(2)=" +([157][157]*)":p$(3)=" =[214][157][157]>[192]"
  43. 520 p$(4)=" [193][194][157][157][195][196]"
  44. 530 m1$="suchen[157][157][157][157][157][157]setzen[157][157][157][157][157][157]kaufen"
  45. 540 m2$="suchen[157][157][157][157][157][157]setzen[157][157][157][157][157][157]kaufen"
  46. 550 m3$="suchen[157][157][157][157][157][157]setzen[157][157][157][157][157][157]kaufen"
  47. 560 v=53248:p=1:ka=38450:a=fre(8)
  48. 570 si=54272:pokesi+24,15
  49. 580 k1=28672:k2=32768:k3=24576:rr=1
  50. 590 printchr$(147)chr$(14)chr$(8)
  51. 600 gosub5270
  52. 610 poke50168,193:poke50169,194
  53. 620 poke50170,195:poke50171,193
  54. 630 poke50172,196:poke50173,195
  55. 640 poke50174,199:poke50175,200
  56. 650 pokev+21,255:pokev+29,63
  57. 660 pokev+28,255:poke53287,2
  58. 670 poke53285,1:poke53286,6
  59. 680 pokev,48:pokev+2,95
  60. 690 pokev+4,147:pokev+6,185
  61. 700 pokev+8,220:pokev+10,255
  62. 710 pokev+13,155:pokev+15,155
  63. 720 gosub6110:gosub 5420
  64. 730 pokev+21,0:pokev+29,0
  65. 740 pokev+28,0:poke50168,192
  66. 750 sys1024:sys1089:rn=1
  67. 760 pokev,64:pokev+1,116:pokev+39,1
  68. 770 pokev+16,0:b2=255:poke53265,27
  69. 780 ifpo=0thengosub1630
  70. 790 ifpo=1thengosub6000:gosub1920:gosub1390:gosub2990:goto810
  71. 800 gosub1390
  72. 810 poke53265,11:sys1204
  73. 820 x1=lx(rn):x2=x1:y1=ly(rn):y2=y1
  74. 830 poke828,x1:poke830,y1
  75. 840 poke814,x1:poke815,x1
  76. 850 pokev+21,1:poke53265,27
  77. 860 poke20530,193:poke20531,4
  78. 870 print"":poke211,27:printpl$(rn)
  79. 880 print"";:poke646,rn:print"/"
  80. 890 print""rr
  81. 900 ze=ti:ma=679:sysma
  82. 910 ifti-ze>3600then4210
  83. 920 getta$:poke198,0:getb$:ifta$="[133]"thengosub5710
  84. 930 ifta$="_"then4210
  85. 940 print""spc(33)m1$
  86. 950 b1=(val(mid$(str$(peek(k1+x1+80*y1)),3,1)))
  87. 960 onfnjo(2)goto910,1010,1040,1070,1100,970
  88. 970 la=peek(k2+x1+80*y1)
  89. 980 ifpeek(56320)=111andla<200andval(right$(str$(la),1))=rnthengosub3090
  90. 990 ifpeek(56320)=111andla>=200thengosub2510
  91. 1000 goto910
  92. 1010 y1=y1-1:ify1<6theny1=6
  93. 1020 poke830,y1:sysma:printri$" nord "
  94. 1030 goto910
  95. 1040 y1=y1+1:ify1>44theny1=44
  96. 1050 poke830,y1:sysma:printri$" sued "
  97. 1060 goto910
  98. 1070 x1=x1-1:ifx1<0thenx1=0
  99. 1080 poke828,x1:sysma:printri$" west "
  100. 1090 goto910
  101. 1100 x1=x1+1:ifx1>80thenx1=80
  102. 1110 poke828,x1:sysma::printri$" ost "
  103. 1120 goto910
  104. 1130 pr(1)=120000:pr(2)=70000
  105. 1140 pr(3)=70000:pr(4)=20000
  106. 1150 if a1(rn)<1thena1(rn)=0
  107. 1160 if a2(rn)<1thena2(rn)=0
  108. 1170 if a3(rn)<1thena3(rn)=0
  109. 1180 if a4(rn)<1thena4(rn)=0
  110. 1190 return
  111. 1200 print""un$tab(18)p$(4)
  112. 1210 print""spc(33)m2$
  113. 1220 x2=x1:y2=y1:p=5
  114. 1230 onfnjo(2)goto1230,1230,1230,1250,1270,1330
  115. 1240 goto1230
  116. 1250 p=p-1:ifp<1thenp=5
  117. 1260 goto1280
  118. 1270 p=p+1:ifp>5thenp=1
  119. 1280 ifp=1thenprintun$""p$(0)un$tab(5)""p$(1)un$tab(18)p$(4):goto1230
  120. 1290 ifp=2thenprintun$""p$(0)un$tab(5)""p$(1)un$tab(9)""p$(2):goto1230
  121. 1300 ifp=3thenprintun$tab(5)""p$(1)un$tab(9)""p$(2)un$tab(14)""p$(3):goto1230
  122. 1310 ifp=4thenprintun$tab(9)""p$(2)un$tab(14)""p$(3)un$tab(18)""p$(4):goto1230
  123. 1320 ifp=5thenprintun$tab(14)""p$(3)un$tab(18)""p$(4)""un$""p$(0):goto1230
  124. 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)
  125. 1340 ifp=1theny2=y2-1:printri$"nord ":return
  126. 1350 ifp=2theny2=y2+1:printri$"sued ":return
  127. 1360 ifp=3thenx2=x2+1:printri$" ost ":return
  128. 1370 ifp=4thenx2=x2-1:printri$"west ":return
  129. 1380 ifp=5thenprint""spc(33)m1$:return
  130. 1390 poke53265,11:print"[147]"ub$
  131. 1400 print"  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
  132. 1410 print"  ; runde:     [152] ; spieler: ........ [152];"
  133. 1420 print";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;";
  134. 1430 print";          ; status:[152]           ; modus:[152];";
  135. 1440 print";          ;                   ;       ;";
  136. 1450 print";          ; hubschrauber:[158]   0 [152]; suchen[152];";
  137. 1460 print";          ; artillerie..:[158]   0[152] ; setzen[152];";
  138. 1470 print";          ; panzer......:[158]   0[152] ; kaufen[152];";
  139. 1480 print";          ; infanterie..:[158]   0[152] ;;;;;;;;;";
  140. 1490 print";          ; ------------  ---[152] ;[197][197][197][197][197][197][197];";
  141. 1500 print";          ; gesamt......:  0  [152];[197][197][197][197][197][197][197];";
  142. 1510 print";          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;";
  143. 1520 print";          ; -----[152] ;;;;;;[151][216]////////////[217][152];";
  144. 1530 print";;;;;;;;;;;;;;;;;;;;;;;;;[151]/[207]          [209]/[152];";
  145. 1540 print"; restbetrag: [158]1000000[152] ;/[152];[151]/            /[152];;";
  146. 1550 print";;;;;;;;;;;;;;;;;;;;;;;;[151][151]/            /[152];";
  147. 1560 print"; eingabefeld:[152]          ;[151]/            /[152];";
  148. 1570 print";                       ;[151]/            /[152];";
  149. 1580 print"; _!  $%  +(   =[214]  [193][194]   [152];[151]/            /[152];";
  150. 1590 print"; $#  &'  *)   >[192]  [195][196]   [152];[151]/[213]          [215]/[152];";
  151. 1600 print";                       ;[151][216]////////////[217][152];";
  152. 1610 print";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
  153. 1620 return
  154. 1630 print"[147]"ub$""
  155. 1640 print"eingabe:","[158]anzahl der spieler:":ta=2
  156. 1650 print,"   maximal vier [145]";
  157. 1660 poke211,30:printchr$(48+ta);
  158. 1670 j=peek(56320):ifj=111thenl1=ta:goto1710
  159. 1680 ifj=126orj=119thenta=ta+1:ifta=5thenta=2
  160. 1690 ifj=125orj=123thenta=ta-1:ifta=1thenta=4
  161. 1700 forb=1to50:next:goto1660
  162. 1710 print"[158]":fora=1tota:print,"spieler nr."chr$(48+a);":":next:t2=65:pl=ta
  163. 1720 print," max. acht buchstaben":fora=1tota:sp=24
  164. 1730 poke211,sp:printchr$(t2);:j=peek(56320):ifj=127then1730
  165. 1740 ifj=111andt2=64andsp>24thenpoke211,sp:printchr$(32);:sp=sp-1:t2=65:goto1790
  166. 1750 ifj=111andt2=63then1810
  167. 1760 ifj=111then1800
  168. 1770 ifj=126orj=119thent2=t2+1:ift2=91thent2=63
  169. 1780 ifj=125orj=123thent2=t2-1:ift2=62thent2=90
  170. 1790 forb=1to50:next:goto1730
  171. 1800 sp=sp+1:t2=65:ifsp<32then1790
  172. 1810 forb=1tosp-24:pl$(a)=pl$(a)+chr$(peek(49152+(23+b)+40*(8+((a-1))*2))+64)
  173. 1820 t2=65:next
  174. 1830 print"":next:jn=1
  175. 1840 print," eingabe ok ,   ja nein ";
  176. 1850 j=peek(56320):ifj=111then1890
  177. 1860 ifj=119orj=125thenjn=2:print"[157][157][157][157][157][157][157][157] ja nein";
  178. 1870 ifj=123orj=126thenjn=1:print"[157][157][157][157][157][157][157][157] ja nein";
  179. 1880 goto1850
  180. 1890 ifjn=2thenforb=1to4:pl$(b)="":next:goto1630
  181. 1900 fora=1tota:ifasc(pl$(a))=127thenpl$(a)="        "
  182. 1910 next
  183. 1920 on ta-1 goto 1930,2060,2250
  184. 1930 x3=20:y3=31:w1=210:gosub2490
  185. 1940 y3=32:w1=212:gosub2490
  186. 1950 x3=21:y3=31:w1=211:gosub2490
  187. 1960 y3=32:w1=213:gosub2490
  188. 1970 x3=30:y3=17:w1=220:gosub2490
  189. 1980 y3=18:w1=222:gosub2490
  190. 1990 x3=31:y3=17:w1=221:gosub2490
  191. 2000 y3=18:w1=223:gosub2490
  192. 2010 sx(1)=20:sy(1)=31
  193. 2020 sx(2)=30:sy(2)=17
  194. 2030 lx(1)=sx(1):ly(1)=sy(1)
  195. 2040 lx(2)=sx(2):ly(2)=sy(2)
  196. 2050 return
  197. 2060 x3=22:y3=31:w1=210:gosub2490
  198. 2070 y3=32:w1=212:gosub2490
  199. 2080 x3=23:y3=31:w1=211:gosub2490
  200. 2090 y3=32:w1=213:gosub2490
  201. 2100 x3=58:y3=20:w1=220:gosub2490
  202. 2110 y3=21:w1=222:gosub2490
  203. 2120 x3=59:y3=20:w1=221:gosub2490
  204. 2130 y3=21:w1=223:gosub2490
  205. 2140 x3=40:y3=29:w1=230:gosub2490
  206. 2150 y3=30:w1=232:gosub2490
  207. 2160 x3=41:y3=29:w1=231:gosub2490
  208. 2170 y3=30:w1=233:gosub2490
  209. 2180 sx(1)=22:sy(1)=31
  210. 2190 sx(2)=57:sy(2)=20
  211. 2200 sx(3)=40:sy(3)=30
  212. 2210 fora=1to3
  213. 2220 lx(a)=sx(a):ly(a)=sy(a)
  214. 2230 next
  215. 2240 return
  216. 2250 x3=10:y3=11:w1=210:gosub2490
  217. 2260 y3=12:w1=212:gosub2490
  218. 2270 x3=11:y3=11:w1=211:gosub2490
  219. 2280 y3=12:w1=213:gosub2490
  220. 2290 x3=40:y3=20:w1=220:gosub2490
  221. 2300 y3=21:w1=222:gosub2490
  222. 2310 x3=41:y3=20:w1=221:gosub2490
  223. 2320 y3=21:w1=223:gosub2490
  224. 2330 x3=20:y3=30:w1=230:gosub2490
  225. 2340 y3=31:w1=232:gosub2490
  226. 2350 x3=21:y3=30:w1=231:gosub2490
  227. 2360 y3=31:w1=233:gosub2490
  228. 2370 x3=50:y3=40:w1=240:gosub2490
  229. 2380 y3=41:w1=242:gosub2490
  230. 2390 x3=51:y3=40:w1=241:gosub2490
  231. 2400 y3=41:w1=243:gosub2490
  232. 2410 sx(1)=10:sy(1)=11
  233. 2420 sx(2)=40:sy(2)=20
  234. 2430 sx(3)=20:sy(3)=30
  235. 2440 sx(4)=50:sy(4)=40
  236. 2450 fora=1to4
  237. 2460 lx(a)=sx(a):ly(a)=sy(a)
  238. 2470 next
  239. 2480 return
  240. 2490 pokek2+x3+80*y3,w1
  241. 2500 pokek1+x3+80*y3,w1:return
  242. 2510 ob=peek(k2+x1+80*y1)
  243. 2520 ifob<200then5640:return
  244. 2530 oc=val(mid$(str$(ob),3,1))
  245. 2540 ifoc<>rnthen5640:return
  246. 2550 gosub1200:ifp=5thenreturn
  247. 2560 ifpeek(k2+x2+80*y2)>100then5640:return
  248. 2570 x1=x2:y1=y2:poke828,x1:poke830,y1
  249. 2580 printbi$
  250. 2590 print""spc(33)m3$
  251. 2600 print""spc(237);
  252. 2610 fora=1to6:printspc(29)" "left$(a$(a),10);:next
  253. 2620 poke49978,85:poke56122,11
  254. 2630 ka=1
  255. 2640 poke55882+(ka*40),11:poke49738+(ka*40),78
  256. 2650 on fnjo(2)goto2650,2670,2690,2650,2650,2710
  257. 2660 goto2650
  258. 2670 poke49738+(ka*40),32:ka=ka-1:ifka<1thenka=5
  259. 2680 goto2640
  260. 2690 poke49738+(ka*40),32:ka=ka+1:ifka>5thenka=1
  261. 2700 goto2640
  262. 2710 poke49738+(ka*40),32
  263. 2720 c1=a1(rn):c2=a2(rn)
  264. 2730 c3=a3(rn):c4=a4(rn)
  265. 2740 c5=ge(rn):sysma
  266. 2750 ifka=5then2990
  267. 2760 ifge(rn)-pr(ka)<0then2990
  268. 2770 onkagoto2780,2830,2880,2930,2990
  269. 2780 a1(rn)=a1(rn)+1
  270. 2790 ge(rn)=ge(rn)-pr(ka)
  271. 2800 ifa1(rn)>99thena1(rn)=c1:goto3010
  272. 2810 pokek2+x1+80*y1,140+rn
  273. 2820 sysma:goto2990
  274. 2830 a2(rn)=a2(rn)+1
  275. 2840 ge(rn)=ge(rn)-pr(ka)
  276. 2850 ifa2(rn)>99thena2(rn)=c2:goto3010
  277. 2860 pokek2+x1+80*y1,150+rn
  278. 2870 sysma:goto2990
  279. 2880 a3(rn)=a3(rn)+1
  280. 2890 ge(rn)=ge(rn)-pr(ka)
  281. 2900 ifa3(rn)>99thena3(rn)=c3:goto3010
  282. 2910 pokek2+x1+80*y1,160+rn
  283. 2920 sysma:goto2990
  284. 2930 a4(rn)=a4(rn)+1
  285. 2940 ge(rn)=ge(rn)-pr(ka)
  286. 2950 ifa4(rn)>99thena4(rn)=c4:goto3010
  287. 2960 pokek2+x1+80*y1,170+rn
  288. 2970 sysma
  289. 2980 gosub1130
  290. 2990 printrk$"        "
  291. 3000 printrk$"[158]"ge(rn)
  292. 3010 printbi$
  293. 3020 print""spc(33)m1$
  294. 3030 print""spc(28)a1(rn);
  295. 3040 printspc(37)a2(rn);
  296. 3050 printspc(37)a3(rn);
  297. 3060 printspc(37)a4(rn)
  298. 3070 print""spc(27)"    [157][157][157][157][157]"a1(rn)+a2(rn)+a3(rn)+a4(rn)
  299. 3080 return
  300. 3090 b0=peek(k2+x1+80*y1)
  301. 3100 ify1<7ory1>43orx1<0orx1>80then5640:return
  302. 3110 b9=peek(k3+x1+80*y1)
  303. 3120 ifb9=0then3170
  304. 3130 ifge(rn)-ko(val(mid$(str$(b0),3,1))-3)<0then5640:return
  305. 3140 z1=0:onint((b0/10)-13)gosub3340,3360,3380,3400
  306. 3150 print""spc(33)m2$
  307. 3160 ifz1=1then5640:return
  308. 3170 gosub1200:ifp=5thenreturn
  309. 3180 b1=peek(k2+x2+80*y2)
  310. 3190 b2=val(mid$(str$(ob),3,1))
  311. 3200 b3=peek(k1+x2+80*y2)/10
  312. 3210 b5=val(right$(str$(peek(k1+x1+80*y1)),1))
  313. 3220 b6=val(right$(str$(peek(k1+x2+80*y2)),1))
  314. 3230 ifb1>140andval(right$(str$(b0),1))=val(right$(str$(b1),1))then5640:return
  315. 3240 ifb1>200andval(right$(str$(b0),1))=val(mid$(str$(b1),3,1))then5640:return
  316. 3250 ifb1>200 and b0<180 and b0>170then4390
  317. 3260 ifb1>140then3420
  318. 3270 ge(rn)=ge(rn)-ko(val(mid$(str$(b0),3,1))-3)
  319. 3280 printrk$"[158]"ge(rn)
  320. 3290 pokek3+x2+80*y2,b9+1
  321. 3300 pokek3+x1+80*y1,0
  322. 3310 pokek2+x2+80*y2,b0
  323. 3320 pokek2+x1+80*y1,peek(k1+x1+80*y1):x1=x2:y1=y2
  324. 3330 poke828,x1:poke830,y1:sysma:return
  325. 3340 ifb0<150andb9>7thenz1=1:return
  326. 3350 return
  327. 3360 ifb0<160andb9>5thenz1=1:return
  328. 3370 return
  329. 3380 ifb0<170andb9>6thenz1=1:return
  330. 3390 return
  331. 3400 ifb0<180andb9>4thenz1=1:return
  332. 3410 return
  333. 3420 onb3-9gosub3530,3700,3870,4040
  334. 3430 b7=(peek(k1+x1+80*y1)/10)*10
  335. 3440 b8=(peek(k1+x2+80*y2)/10)*10
  336. 3450 ifb5>9then3500
  337. 3460 ifb6>9then3510
  338. 3470 ifpr=1thenpr=0:sysma:return
  339. 3480 pokek1+x1+80*y1,b7+b5
  340. 3490 pokek1+x2+80*y2,b8+b6:return
  341. 3500 pokek1+x1+80*y1,b7:pokek2+x1+80*y1,b7:pr=1:d1=b0:gosub5030:goto3460
  342. 3510 pokek1+x2+80*y2,b8:pokek2+x2+80*y2,b8:sysma:pr=0:d1=b1:gosub5030
  343. 3520 return
  344. 3530 on(b0/10)-13goto3540,3580,3620,3660
  345. 3540 ifb1<150thenb5=b5+5:b6=b6+5:return 
  346. 3550 ifb1<160thenb5=b5+4:b6=b6+6:return 
  347. 3560 ifb1<170thenb5=b5+5:b6=b6+5:return 
  348. 3570 ifb1<180thenb5=b5+3:b6=b6+7:return 
  349. 3580 ifb1<150thenb5=b5+6:b6=b6+4:return 
  350. 3590 ifb1<160thenb5=b5+5:b6=b6+5:return 
  351. 3600 ifb1<170thenb5=b5+7:b6=b6+3:return 
  352. 3610 ifb1<180thenb5=b5+1:b6=b6+9:return 
  353. 3620 ifb1<150thenb5=b5+5:b6=b6+5:return 
  354. 3630 ifb1<160thenb5=b5+3:b6=b6+7:return 
  355. 3640 ifb1<170thenb5=b5+5:b6=b6+5:return 
  356. 3650 ifb1<180thenb5=b5+3:b6=b6+7:return 
  357. 3660 ifb1<150thenb5=b5+7:b6=b6+3:return 
  358. 3670 ifb1<160thenb5=b5+9:b6=b6+1:return 
  359. 3680 ifb1<170thenb5=b5+7:b6=b6+3:return 
  360. 3690 ifb1<180thenb5=b5+5:b6=b6+5:return 
  361. 3700 on(b0/10)-13goto3710,3750,3790,3830
  362. 3710 ifb1<150thenb5=b5+5:b6=b6+5:return 
  363. 3720 ifb1<160thenb5=b5+5:b6=b6+5:return 
  364. 3730 ifb1<170thenb5=b5+3:b6=b6+7:return 
  365. 3740 ifb1<180thenb5=b5+4:b6=b6+6:return 
  366. 3750 ifb1<150thenb5=b5+5:b6=b6+5:return 
  367. 3760 ifb1<160thenb5=b5+5:b6=b6+5:return 
  368. 3770 ifb1<170thenb5=b5+4:b6=b6+6:return 
  369. 3780 ifb1<180thenb5=b5+5:b6=b6+5:return 
  370. 3790 ifb1<150thenb5=b5+7:b6=b6+3:return 
  371. 3800 ifb1<160thenb5=b5+6:b6=b6+4:return 
  372. 3810 ifb1<170thenb5=b5+5:b6=b6+5:return 
  373. 3820 ifb1<180thenb5=b5+5:b6=b6+5:return 
  374. 3830 ifb1<150thenb5=b5+6:b6=b6+4:return 
  375. 3840 ifb1<160thenb5=b5+5:b6=b6+5:return 
  376. 3850 ifb1<760thenb5=b5+5:b6=b6+5:return 
  377. 3860 ifb1<180thenb5=b5+5:b6=b6+5:return 
  378. 3870 on(b0/10)-13goto3880,3920,3960,4000
  379. 3880 ifb1<150thenb5=b5+5:b6=b6+5:return 
  380. 3890 ifb1<160thenb5=b5+7:b6=b6+3:return 
  381. 3900 ifb1<170thenb5=b5+7:b6=b6+3:return 
  382. 3910 ifb1<180thenb5=b5+6:b6=b6+4:return 
  383. 3920 ifb1<150thenb5=b5+3:b6=b6+7:return 
  384. 3930 ifb1<160thenb5=b5+5:b6=b6+5:return 
  385. 3940 ifb1<170thenb5=b5+5:b6=b6+5:return 
  386. 3950 ifb1<180thenb5=b5+7:b6=b6+3:return 
  387. 3960 ifb1<150thenb5=b5+3:b6=b6+7:return 
  388. 3970 ifb1<160thenb5=b5+5:b6=b6+5:return 
  389. 3980 ifb1<170thenb5=b5+5:b6=b6+5:return 
  390. 3990 ifb1<180thenb5=b5+6:b6=b6+4:return 
  391. 4000 ifb1<150thenb5=b5+4:b6=b6+6:return 
  392. 4010 ifb1<160thenb5=b5+3:b6=b6+7:return 
  393. 4020 ifb1<170thenb5=b5+4:b6=b6+6:return 
  394. 4030 ifb1<180thenb5=b5+5:b6=b6+5:return 
  395. 4040 on(b0/10)-13goto4050,4090,4130,4170
  396. 4050 ifb1<150thenb5=b5+5:b6=b6+5:return 
  397. 4060 ifb1<160thenb5=b5+7:b6=b6+3:return 
  398. 4070 ifb1<170thenb5=b5+6:b6=b6+4:return 
  399. 4080 ifb1<180thenb5=b5+4:b6=b6+6:return 
  400. 4090 ifb1<150thenb5=b5+3:b6=b6+7:return 
  401. 4100 ifb1<160thenb5=b5+5:b6=b6+5:return 
  402. 4110 ifb1<170thenb5=b5+4:b6=b6+6:return 
  403. 4120 ifb1<180thenb5=b5+6:b6=b6+4:return 
  404. 4130 ifb1<150thenb5=b5+4:b6=b6+6:return 
  405. 4140 ifb1<160thenb5=b5+6:b6=b6+4:return 
  406. 4150 ifb1<170thenb5=b5+5:b6=b6+5:return 
  407. 4160 ifb1<180thenb5=b5+5:b6=b6+5:return 
  408. 4170 ifb1<150thenb5=b5+6:b6=b6+4:return 
  409. 4180 ifb1<160thenb5=b5+4:b6=b6+6:return 
  410. 4190 ifb1<170thenb5=b5+5:b6=b6+5:return 
  411. 4200 ifb1<180thenb5=b5+5:b6=b6+5:return 
  412. 4210 sys685:fora=828to880:pokea,0:next
  413. 4220 print"":poke211,27:print"wechsel "
  414. 4230 ge(rn)=ge(rn)+10000
  415. 4240 lx(rn)=x1:ly(rn)=y1
  416. 4250 wait56320,16,16
  417. 4260 print"":poke211,27:print"        "
  418. 4270 rn=rn+1:ifrn>tathenrn=1:rr=rr+1
  419. 4280 ifla(rn)=0 and a1(rn)+a2(rn)+a3(rn)+a4(rn)=0then4270
  420. 4290 gosub1130
  421. 4300 print"";
  422. 4310 printspc(28)a1(rn)
  423. 4320 printspc(28)a2(rn);
  424. 4330 printspc(37)a3(rn)
  425. 4340 printspc(28)a4(rn)
  426. 4350 printtab(27)a1(rn)+a2(rn)+a3(rn)+a4(rn)
  427. 4360 printrk$"        "
  428. 4370 printrk$"[158]"ge(rn)
  429. 4380 goto820
  430. 4390 d0=val(mid$(str$(peek(32768+x2+80*y2)),3,1))
  431. 4400 l1=l1-1
  432. 4410 goto4460
  433. 4420 printleft$(bi$,42)"gewinner  [157][157][157][157][157][157][157][157][157][157]"pl$(rn)
  434. 4430 fora=1to2000:next
  435. 4440 pokev+21,0
  436. 4450 sys691:run
  437. 4460 on ta-1 gosub4490,4610,4780
  438. 4470 printleft$(bi$,140):sysma
  439. 4480 la(d0)=0:goto5130
  440. 4490 on (d0) gosub4500,4560
  441. 4500 return
  442. 4510 x3=20:y3=31:w1=0:gosub5000
  443. 4520 y3=32:w1=2:gosub5000
  444. 4530 x3=21:y3=31:w1=1:gosub5000
  445. 4540 y3=32:w1=3:gosub5000
  446. 4550 return
  447. 4560 x3=25:y3=31:w1=0:gosub5000
  448. 4570 y3=32:w1=2:gosub5000
  449. 4580 x3=26:y3=31:w1=1:gosub5000
  450. 4590 y3=32:w1=3:gosub5000
  451. 4600 return
  452. 4610 on (d0) gosub4630,4680,4730
  453. 4620 return
  454. 4630 x3=22:y3=31:w1=0:gosub5000
  455. 4640 y3=32:w1=2:gosub5000
  456. 4650 x3=23:y3=31:w1=1:gosub5000
  457. 4660 y3=32:w1=3:gosub5000
  458. 4670 return
  459. 4680 x3=22:y3=36:w1=0:gosub5000
  460. 4690 y3=37:w1=2:gosub5000
  461. 4700 x3=23:y3=36:w1=1:gosub5000
  462. 4710 y3=37:w1=3:gosub5000
  463. 4720 return
  464. 4730 x3=27:y3=36:w1=0:gosub5000
  465. 4740 y3=37:w1=2:gosub5000
  466. 4750 x3=28:y3=36:w1=1:gosub5000
  467. 4760 y3=37:w1=3:gosub5000
  468. 4770 return
  469. 4780 on (d0) gosub4800,4850,4900,4950
  470. 4790 return
  471. 4800 x3=10:y3=11:w1=0:gosub5000
  472. 4810 y3=12:w1=2:gosub5000
  473. 4820 x3=11:y3=11:w1=1:gosub5000
  474. 4830 y3=12:w1=3:gosub5000
  475. 4840 return
  476. 4850 x3=40:y3=20:w1=0:gosub5000
  477. 4860 y3=21:w1=2:gosub5000
  478. 4870 x3=41:y3=20:w1=1:gosub5000
  479. 4880 y3=21:w1=3:gosub5000
  480. 4890 return
  481. 4900 x3=20:y3=30:w1=0:gosub5000
  482. 4910 y3=31:w1=2:gosub5000
  483. 4920 x3=21:y3=30:w1=1:gosub5000
  484. 4930 y3=31:w1=3:gosub5000
  485. 4940 return
  486. 4950 x3=50:y3=40:w1=0:gosub5000
  487. 4960 y3=41:w1=2:gosub5000
  488. 4970 x3=51:y3=40:w1=1:gosub5000
  489. 4980 y3=41:w1=3:gosub5000
  490. 4990 return
  491. 5000 pokek1+x3+80*y3,100
  492. 5010 pokek2+x3+80*y3,100
  493. 5020 return
  494. 5030 d2=val(right$(str$(d1),1))
  495. 5040 d3=val(mid$(str$(d1),3,1))
  496. 5050 on(d3-3)gosub5190,5210,5230,5250
  497. 5060 ifd2<>rnthen5640:return
  498. 5070 gosub1130
  499. 5080 print""spc(28)a1(rn);
  500. 5090 printspc(37)a2(rn);
  501. 5100 printspc(37)a3(rn);
  502. 5110 printspc(37)a4(rn)
  503. 5120 print""spc(27)a1(rn)+a2(rn)+a3(rn)+a4(rn)
  504. 5130 m1=1:fora=1 to ta
  505. 5140 if a=rn then5160
  506. 5150 ifa1(a)+a2(a)+a3(a)+a4(a)=0thenm1=0
  507. 5160 next
  508. 5170 ifm1=0 andl1=1 then4420
  509. 5180 return
  510. 5190 a1(d2)=a1(d2)-1
  511. 5200 return
  512. 5210 a2(d2)=a2(d2)-1
  513. 5220 return
  514. 5230 a3(d2)=a3(d2)-1
  515. 5240 return
  516. 5250 a4(d2)=a4(d2)-1
  517. 5260 return
  518. 5270 sys26330
  519. 5280 print"[144][205][201][195][210][207][214][201][211][201][207][206]"
  520. 5290 print"[218][197][201][199][212]"
  521. 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]"
  522. 5310 print"[208][210][207][199][210][193][205][205][197][201][206][200][197][210][218][204][201][195][200][197][211]"
  523. 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]"
  524. 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]";
  525. 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]"
  526. 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]"
  527. 5360 print"[199][210][193][198][201][203][206][219][205][193][206][206]"
  528. 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]"
  529. 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]"
  530. 5390 poke53265,27:sys26453
  531. 5400 poke53265,11:poke53281,0
  532. 5410 return
  533. 5420 print"[147]";
  534. 5430 print"////////////////////////////////////////";
  535. 5440 print"[151] ein microvision programm  version v2.1"
  536. 5450 print"////////////////////////////////////////[154]";
  537. 5460 fora=1to120:print"[181]";:next
  538. 5470 print"[156]vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv[146]";
  539. 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]";
  540. 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]";
  541. 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]";
  542. 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]";
  543. 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]";
  544. 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]";
  545. 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]";
  546. 5550 fora=1to39:print"v";:next
  547. 5560 poke50151,150:poke56295,4
  548. 5570 sys24576
  549. 5580 poke53265,27
  550. 5590 wait56320,16,16
  551. 5600 poke53265,11
  552. 5610 sys26112
  553. 5620 poke828,20:poke830,31
  554. 5630 print"[147]":return
  555. 5640 pokesi+5,61
  556. 5650 pokesi+6,26:pokesi+3,8
  557. 5660 pokesi+2,0:pokesi+1,14
  558. 5670 pokesi,162:pokesi+4,33
  559. 5680 fora=1to500:next
  560. 5690 pokesi+4,0
  561. 5700 return
  562. 5710 pokev+21,0
  563. 5720 sys691:open1,8,15,"s:part01,part02":close1
  564. 5730 open1,8,2,"part01,u,w"
  565. 5740 fora=1to4
  566. 5750 print#1,ge(a):print#1,pl$(a)
  567. 5760 print#1,lx(a):print#1,ly(a)
  568. 5770 print#1,a1(a):print#1,a2(a)
  569. 5780 print#1,a3(a):print#1,a4(a)
  570. 5790 next
  571. 5800 print#1,ta:print#1,rn
  572. 5810 print#1,rr:close1
  573. 5820 sys(57812)"part02",8
  574. 5830 poke193,0:poke194,112
  575. 5840 poke174,0:poke175,145
  576. 5850 sys62957:pokev+21,1
  577. 5860 sys1204:return
  578. 5870 poke53280,0:poke53281,0
  579. 5880 poke53269,0:poke2,0
  580. 5890 open1,8,15,"r:part01=part01"
  581. 5900 input#1,a,ta$:close1
  582. 5910 ifa=62thenpo=0:return
  583. 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]"
  584. 5930 print," altes spiel ,  ja nein ";
  585. 5940 j=peek(56320):ifj=111then5980
  586. 5950 ifj=119orj=125thenjn=2:print"[157][157][157][157][157][157][157][157] ja nein";
  587. 5960 ifj=123orj=126thenjn=1:print"[157][157][157][157][157][157][157][157] ja nein";
  588. 5970 goto5940
  589. 5980 ifjn=2thenpo=0:return
  590. 5990 po=1:return
  591. 6000 open1,8,3,"part01,u,r"
  592. 6010 fora=1to4
  593. 6020 input#1,ge(a),pl$(a)
  594. 6030 input#1,lx(a),ly(a)
  595. 6040 input#1,a1(a),a2(a)
  596. 6050 input#1,a3(a),a4(a)
  597. 6060 next
  598. 6070 input#1,ta,rn
  599. 6080 input#1,rr:close1
  600. 6090 sys57812"part02",8,1:poke780,0
  601. 6100 sys65493:return
  602. 6110 fora=0to25:poke679+a,da%(a):next
  603. 6120 return
  604. 6130 data hubschrauber,120000,1000
  605. 6140 data artillerie.., 70000, 600
  606. 6150 data panzer......, 70000, 600
  607. 6160 data infanterie...,20000, 250
  608. 6170 data nichts......,     0,   0
  609. 6180 data120,32,0,144,88,96,120,32
  610. 6190 data0,4,88,96,120,169,49,141,20
  611. 6200 data3,169,234,141,21,3,88,96,0
  612.