home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2001-06_2001_CSW_Side_A.d64 / memory (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  13KB  |  417 lines
  1. 1000 a=500:goto20:rem memory
  2. 1010 dimne$(14),en$(14),fr$(14),du$(14),la$(14)
  3. 1020 p=0:su$=", suche zwei [203]arten aus"
  4. 1030 hs=100:hs$="niemand":bs=0:bs$="niemand"
  5. 1040 forq=0 to14:readne$(q):nextq
  6. 1050 forq=0 to14:readen$(q):nextq
  7. 1060 forq=0 to14:readfr$(q):nextq
  8. 1070 forq=0 to14:readdu$(q):nextq
  9. 1080 forq=0 to14:readla$(q):nextq
  10. 1090 hl=ho:vl=ve:goto6010:rem menu
  11. 2000 gosub600
  12. 2010 cn=0
  13. 2020 forho=0 to0.99 step0.16666
  14. 2030 ve=0:gosub620
  15. 2040 ve=0.8:gosub630
  16. 2050 nextho
  17. 2060 ve=0:ho=0.999:gosub620:ve=0.8:gosub630
  18. 2070 forve=0 to0.81 step0.16
  19. 2080 ho=0:gosub620
  20. 2090 ho=0.999:gosub630
  21. 2100 nextve
  22. 2110 forsr=1 to30
  23. 2120 sr=sr-1:ve=int(sr/6+1)*0.16+0.01-0.16:sr=sr+1
  24. 2130 sr=sr-1:ho=(sr-((int(sr/6))*6))*0.166666+0.01:sr=sr+1
  25. 2140 gosub300:gosub650
  26. 2150 nextsr
  27. 2160 return
  28. 2500 rem karten mischen
  29. 2510 b$=".aabbccddeeffgghhiijjkkllmmnnoo.":b=0
  30. 2520 c$=".000000000000000000000000000000."
  31. 2530 gosub260:rv=int(rv*30+1)
  32. 2540 b=b+1
  33. 2550 ifb>30 thenreturn
  34. 2560 c$=mid$(c$,1,b)+mid$(b$,rv+1,1)+mid$(c$,b+2,32-b)
  35. 2570 ifmid$(b$,rv+1,1)<>"-" then2600
  36. 2580 rv=rv+1:ifrv>30 thenrv=rv-30
  37. 2590 goto2560
  38. 2600 b$=mid$(b$,1,rv)+"-"+mid$(b$,rv+2,32-rv)
  39. 2610 goto2530
  40. 3000 rem **tros**
  41. 3010 gosub620:ho=ho+0.03:gosub630:ho=ho-0.015:gosub620
  42. 3020 ve=ve+0.07:gosub630:ho=ho+0.023:gosub620:ve=ve-0.07
  43. 3030 gosub630:ho=ho+0.03:gosub630:ve=ve+0.035:gosub630
  44. 3040 ho=ho-0.03:gosub630:ho=ho+0.03:ve=ve+0.035:gosub630
  45. 3050 ho=ho+0.01:gosub620:ve=ve-0.07:gosub630:ho=ho+0.03
  46. 3060 gosub630:ve=ve+0.07:gosub630:ho=ho-0.03:gosub630
  47. 3070 ho=ho+0.04:gosub620:ho=ho+0.03:gosub630:ve=ve-0.035
  48. 3080 gosub630:ho=ho-0.03:gosub630:ve=ve-0.035:gosub630
  49. 3090 ho=ho+0.03:gosub630
  50. 3100 return
  51. 3200 rem **dose**
  52. 3210 ho=ho+0.03:ve=ve+0.02:gosub620:ho=ho+0.06:gosub630
  53. 3220 ve=ve+0.04:gosub630:ho=ho-0.06:gosub630:ve=ve-0.04
  54. 3230 gosub630:ve=ve-0.02:ho=ho+0.02:gosub630:ho=ho+0.06
  55. 3240 gosub630:ve=ve+0.02:ho=ho-0.02:gosub630:ve=ve-0.02
  56. 3250 ho=ho+0.02:gosub620:ve=ve+0.04:gosub630:ve=ve+0.02
  57. 3260 ho=ho-0.02:gosub630
  58. 3270 ho=ho+0.01:gosub630
  59. 3280 return
  60. 3400 rem **buch**
  61. 3410 ho=ho+0.04:ve=ve+0.01:gosub620:ve=ve+0.05:gosub630
  62. 3420 ho=ho+0.03:ve=ve+0.02:gosub630:ve=ve-0.05:gosub630
  63. 3430 ve=ve-0.02:ho=ho+0.03:gosub630:ve=ve+0.05:gosub630
  64. 3440 ve=ve+0.02:ho=ho-0.03:gosub630:ve=ve-0.06:gosub630
  65. 3450 ve=ve+0.01:gosub620:ho=ho-0.03:ve=ve-0.02:gosub630
  66. 3460 ho=ho+0.01:ve=ve-0.01:gosub630:ho=ho+0.02:ve=ve+0.02
  67. 3470 gosub630:ho=ho+0.02:ve=ve-0.02:gosub630:ve=ve+0.01
  68. 3480 ho=ho+0.01:gosub630
  69. 3490 return
  70. 3600 rem **tv**
  71. 3610 ho=ho+0.03:gosub620:ho=ho+0.1:gosub630
  72. 3620 ve=ve+0.08:gosub630:ho=ho-0.1:gosub630:ve=ve-0.08
  73. 3630 gosub630:ho=ho+0.01:ve=ve+0.01:gosub620:ho=ho+0.06
  74. 3640 gosub630:ve=ve+0.06:gosub630:ho=ho-0.06:gosub630
  75. 3650 ve=ve-0.06:gosub630:ho=ho+0.07:gosub620:ho=ho+0.01
  76. 3660 gosub620:ve=ve+0.01:gosub620:ho=ho-0.01:gosub620
  77. 3670 ve=ve+0.01:gosub620:ho=ho+0.01:gosub620:ho=ho-0.03
  78. 3680 ve=ve-0.03:gosub620:ho=ho+0.02:ve=ve-0.04:gosub630
  79. 3690 ho=ho-0.06:gosub620:ve=ve+0.04:ho=ho+0.02:gosub630
  80. 3700 return
  81. 3800 rem **haus**
  82. 3810 ho=ho+0.05:ve=ve+0.02:gosub620:ho=ho+0.05:gosub630
  83. 3820 ve=ve+0.06:gosub630:ho=ho-0.05:gosub630:ve=ve-0.06
  84. 3830 gosub630:ho=ho+0.025:ve=ve-0.06:gosub630:ho=ho+0.025
  85. 3840 ve=ve+0.06:gosub630:ve=ve+0.02
  86. 3850 gosub620:ho=ho-0.02:gosub630:ve=ve+0.04:gosub630
  87. 3860 ho=ho-0.01:ve=ve-0.02:gosub620:ho=ho-0.01:gosub630
  88. 3870 ve=ve-0.015
  89. 3880 gosub630:ho=ho+0.01:gosub630:ve=ve+0.015:gosub630
  90. 3890 ho=ho-0.015
  91. 3900 ve=ve-0.065:gosub620:ve=ve-0.03:gosub630:ho=ho+0.01
  92. 3910 gosub630:ve=ve+0.015:gosub630
  93. 3920 return
  94. 4000 rem **schuh**
  95. 4010 ho=ho+0.04:gosub620:ve=ve+0.07:gosub630:ho=ho+0.08
  96. 4020 gosub630:ve=ve-0.01:ho=ho+0.01:gosub630:ve=ve-0.01
  97. 4030 gosub630:ho=ho-0.01:ve=ve-0.01:gosub630:ho=ho-0.04
  98. 4040 gosub630:ve=ve-0.04:gosub630:ho=ho-0.04:gosub630
  99. 4050 return
  100. 4200 rem **bleistift**
  101. 4210 ho=ho+0.02:ve=ve+0.02:gosub620:ho=ho+0.08:gosub630
  102. 4220 ho=ho+0.03:ve=ve+0.02:gosub630:ve=ve+0.02:ho=ho-0.03
  103. 4230 gosub630:ho=ho-0.08:gosub630:ve=ve-0.04:gosub630
  104. 4240 return
  105. 4400 rem **glas**
  106. 4410 ho=ho+0.02:ve=ve+0.01:gosub620:ve=ve+0.06:ho=ho+0.02
  107. 4420 gosub630:ho=ho+0.03:gosub630:ve=ve-0.06:ho=ho+0.02
  108. 4430 gosub630:ho=ho-0.05:ve=ve+0.06:gosub620:ho=ho+0.06
  109. 4440 ve=ve-0.08:gosub630:ho=ho+0.02:gosub630:ve=ve-0.01
  110. 4450 gosub620:ho=ho-0.025:gosub630:ho=ho-0.06
  111. 4460 ve=ve+0.08:gosub630
  112. 4470 return
  113. 4600 rem **tisch**
  114. 4610 ho=ho+0.03:ve=ve+0.03:gosub620:ho=ho+0.07:gosub630
  115. 4620 ve=ve-0.03:ho=ho+0.02:gosub630:ho=ho-0.07:gosub630
  116. 4630 ho=ho-0.02:ve=ve+0.03:gosub630:ve=ve+0.05:gosub630
  117. 4640 ho=ho+0.07:gosub620:ve=ve-0.05:gosub630:ve=ve-0.03
  118. 4650 ho=ho+0.02:gosub620:ve=ve+0.05:gosub630
  119. 4660 return
  120. 4800 rem **stuhl**
  121. 4810 ho=ho+0.05:gosub620:ve=ve+0.08:gosub630:ve=ve-0.04
  122. 4820 gosub620:ho=ho+0.04:gosub630:ve=ve+0.04:gosub630
  123. 4830 return
  124. 5000 rem **pfeil oben**
  125. 5010 ho=ho+0.05:ve=ve+0.07:gosub620:ho=ho+0.04:gosub630
  126. 5020 ve=ve-0.07:gosub630:ho=ho+0.03:ve=ve+0.03:gosub630
  127. 5030 ho=ho-0.05:ve=ve-0.07:gosub630:ho=ho-0.05:ve=ve+0.07
  128. 5040 gosub630:ve=ve-0.03:ho=ho+0.03
  129. 5050 gosub630:ve=ve+0.07:gosub630
  130. 5060 return
  131. 5200 rem **pfeil unten**
  132. 5210 ho=ho+0.05:ve=ve-0.04:gosub620:ho=ho+0.04:gosub630
  133. 5220 ve=ve+0.07:gosub630:ho=ho+0.03:ve=ve-0.03:gosub630
  134. 5230 ho=ho-0.05:ve=ve+0.07:gosub630:ho=ho-0.05:ve=ve-0.07
  135. 5240 gosub630:ho=ho+0.03:ve=ve+0.03:gosub630:ve=ve-0.07
  136. 5250 gosub630
  137. 5260 return
  138. 5400 rem **schluessel**
  139. 5410 ho=ho+0.01:ve=ve+0.03:gosub620:ve=ve+0.04:gosub630
  140. 5420 ho=ho+0.04:(NULL)qub630:ve=ve-0.01:gosub630:ho=ho+0.09
  141. 5430 gosub630:ve=ve-0.02:gosub630
  142. 5440 forz=1 to2:ho=ho-0.01:gosub630:ve=ve-0.01:gosub630
  143. 5450 ho=ho-0.01:gosub630:ve=ve+0.01:gosub630:nextz
  144. 5460 ho=ho-0.05:gosub630:ve=ve-0.01:gosub630:ho=ho-0.04
  145. 5470 gosub630
  146. 5480 return
  147. 5490 rem **stern**
  148. 5500 ho=ho+0.04:ve=ve+0.03:gosub620:ho=ho+0.08:gosub630
  149. 5510 ho=ho-0.04:ve=ve-0.04:gosub620:ve=ve+0.08:gosub630
  150. 5520 ho=ho+0.03:ve=ve-0.01:gosub620:ho=ho-0.06:ve=ve-0.06
  151. 5530 gosub630:ho=ho+0.06:gosub620
  152. 5540 ho=ho-0.06:ve=ve+0.06:gosub630:
  153. 5550 return
  154. 5600 rem **figur**
  155. 5610 ho=ho+0.03:ve=ve+0.02:gosub620:ho=ho+0.05:ve=ve+0.05
  156. 5620 gosub630:ho=ho+0.05:ve=ve-0.05:gosub630:ho=ho-0.05
  157. 5630 ve=ve-0.05:gosub630:ve=ve+0.05:ho=ho-0.05:gosub630
  158. 5640 ve=ve+0.025:ho=ho+0.025:gosub620:ho=ho+0.05:gosub630
  159. 5650 ve=ve-0.05:gosub630:ho=ho-0.05
  160. 5660 gosub630:ve=ve+0.05:gosub630:ho=ho+0.025:gosub620
  161. 5670 ho=ho+0.025
  162. 5680 ve=ve-0.025:gosub630:ho=ho-0.025:ve=ve-0.025:gosub630
  163. 5690 ve=ve+0.025:ho=ho-0.025:gosub630:ho=ho+0.025:ve=ve+0.025
  164. 5700 gosub630
  165. 5710 return
  166. 6000 rem **menu**
  167. 6010 gosub100
  168. 6020 ho=int(hl/2)-7:ve=1:gosub110:sr$="[205][197][205][207][210][217]":gosub150
  169. 6030 ho=ho+4:ve=3:gosub110:print"[205][197][206][213]":ho=ho-5:print
  170. 6040 printtab(ho);"1 - 1 [211]pieler":print
  171. 6050 printtab(ho);"2 - 2 [211]pieler":print
  172. 6060 printtab(ho);"3 - [200]inweise":print
  173. 6070 printtab(ho);"4 - [197]nde":print
  174. 6080 ho=1:ve=vl-1:gosub110:print"  [198]unktion  :";
  175. 6090 gosub210
  176. 6100 ifin$="1" thenns=1:goto6510
  177. 6110 ifin$="2" thenns=2:goto6510
  178. 6120 ifin$="3" then10010
  179. 6130 ifin$="4" then950
  180. 6140 goto6090
  181. 6500 rem **namen eingeben**
  182. 6510 gosub100
  183. 6520 print"[206]ame des 1. [211]pielers:";:inputn1$
  184. 6530 ifns=1 then6560
  185. 6540 print:print"[206]ame des 2. [211]pielers:";:inputn2$
  186. 6550 rem **wort-oder bildspiele**
  187. 6560 gosub100
  188. 6570 print" 1 - [194]ild-[211]piel"
  189. 6580 print" 2 - [215]ort-[211]piel"
  190. 6590 gosub210
  191. 6600 ifin$="1" thenpw=20:goto7000
  192. 6610 ifin$="2" then6640
  193. 6620 goto6590
  194. 6630 rem **welche sprache**
  195. 6640 gosub100
  196. 6650 print"[215]orte in: 1 - niederlaendisch"
  197. 6660 print"          2 - englisch"
  198. 6670 print"          3 - franzoesisch"
  199. 6680 print"          4 - deutsch"
  200. 6690 print"          5 - lateinisch"
  201. 6700 print"          6 - niederl.und englisch"
  202. 6710 print"          7 - niederl.und franzoesisch"
  203. 6720 print"          8 - niederl.und deutsch"
  204. 6730 print"          9 - niederl.und lateinisch"
  205. 6740 print"         10 - englisch und franzoesisch"
  206. 6750 print"         11 - englisch und deutsch"
  207. 6760 print"         12 - englisch und lateinisch"
  208. 6770 print"         13 - franzoesisch und deutsch"
  209. 6780 print"         14 - franzoesisch und lqtein."
  210. 6790 print"         15 - deutsch und lateinisch"
  211. 6800 print:inputpw:if(pw<1)or(pw>15) then6640
  212. 7000 gosub2000
  213. 7010 af=0:sr$="[205]oment, [203]arten mischen":ho=0.1:ve=0.81
  214. 7020 gosub650:gosub2510:rem karten mischen
  215. 7030 if(pw>5)and(pw<16) then gosub11000
  216. 7040 cn=1:ve=0.81:ho=0.1:gosub650
  217. 7050 cn=0:t1=0:t2=0:w=1
  218. 7060 cn=0:ho=0.1:ve=0.82
  219. 7070 if(w=1)and(ns=2) thensr$=n1$+su$
  220. 7080 if(w=1)and(ns=2) thenw=2:goto7110
  221. 7090 ifw=1 thensr$=n1$+su$
  222. 7100 ifw=2 thenw=1:sr$=n2$+su$
  223. 7110 gosub650
  224. 7120 sr$="[206]r 1":ho=0.01:ve=0.87:gosub650
  225. 7500 nr$="":gosub7800:n1=val(nr$)
  226. 7510 gosub9500
  227. 7520 sr$="[206]r 2":ho=0.01:ve=0.92:gosub650
  228. 7530 nr$="":p=1:gosub7800:p=0:n2=val(nr$)
  229. 7540 gosub9500
  230. 7550 sr$="[206]r 1":ho=0.01:ve=0.87:cn=1:gosub650
  231. 7560 sr$="[206]r 2":ho=0.01:ve=0.92:gosub650
  232. 7570 sr=n2:gosub300:sr$=mid$(sr$,1,1):ho=0.2:gosub650
  233. 7580 sr=n2:gosub300:sr$=mid$(sr$,2,1):ho=0.25:gosub650
  234. 7590 sr=n1:gosub300:sr$=mid$(sr$,1,1):ho=0.2:ve=0.87:gosub650
  235. 7600 sr=n1:gosub300:sr$=mid$(sr$,2,1):ho=0.25:gosub650:cn=0
  236. 7610 if(n1=n2)or(n1<1)or(n1>30)or(n2<1)or(n2>30) then7120
  237. 7620 if(mid$(c$,n1+1,1)="*")or(mid$(c$,n2+1,1)="*") then7120
  238. 7630 gosub8500
  239. 7640 ifaf=1 then9000
  240. 7650 ifns=1 thent1=t1+1
  241. 7660 goto7060
  242. 7800 gosub210
  243. 7810 ifin<>127 then8000
  244. 7820 iflen(nr$)=1 thensr$=nr$:ho=0.2:cn=1:gosub650:cn=0
  245. 7830 iflen(nr$)=1 thennr$="":goto7800
  246. 7840 iflen(nr$)=2 thensr$=mid$(nr$,2,1):cn=1:ho=0.25:gosub650
  247. 7850 iflen(nr$)=2 thennr$=mid$(nr$,1,1):cn=0:goto7800
  248. 7860 goto7800
  249. 8000 if(in=13)and(len(nr$)>0) then8060
  250. 8010 if(in<asc("0"))or(in>asc("9")) then7800
  251. 8020 iflen(nr$)<2 thennr$=nr$+in$:sr$=in$
  252. 8030 iflen(nr$)=1 thenho=0.2:gosub650:goto7800
  253. 8040 iflen(nr$)=2 thenho=0.25:gosub650:goto7800
  254. 8050 goto7800
  255. 8060 nr=val(nr$)
  256. 8070 if(nr>30)or(nr<1)or(mid$(c$,nr+1,1))="*" then8010
  257. 8080 ifp=1 thenifnr=n1 then8010
  258. 8090 return
  259. 8500 ve=0.82:ho=0.1
  260. 8510 if(w=1)and(ns=2) thensr$=n2$+su$:cn=1
  261. 8520 if(w=1)and(ns=2) then gosub650:cn=0:goto8550
  262. 8530 sr$=n1$+su$:cn=1:gosub650:cn=0
  263. 8540 goto8550
  264. 8550 ifmid$(c$,n1+1,1)=mid$(c$,n2+1,1) then8620
  265. 8560 sr$="[211]chade, falsch geguckt!":ve=0.87:ho=0.2:gosub650
  266. 8570 sv=7:sp=50:sd=10:gosub400:rem signal
  267. 8580 ho=0.2:cn=1:gosub650:cn=0
  268. 8590 nr=n1:cn=1:gosub9500
  269. 8600 nr=n2:gosub9500:cn=0
  270. 8610 goto8700
  271. 8620 sr$="[210]ichtig !":ve=0.87
  272. 8630 forq=1 to3:sv=7:sp=75:sd=2:gosub400:cn=0:gosub650
  273. 8640 sp=90:gosub400:cn=1:gosub650:nextq
  274. 8650 c$=mid$(c$,1,n1)+"*"+mid$(c$,n1+2,32-n1)
  275. 8660 c$=mid$(c$,1,n2)+"*"+mid$(c$,n2+2,32-n2)
  276. 8670 if(ns=2)and(w=1) thent2=t2+1:w=2:goto8690
  277. 8680 if(ns=2)and(w=2) thent1=t1+1:w=1
  278. 8690 ifc$=".******************************." thenaf=1:return
  279. 8700 return
  280. 9000 gosub100
  281. 9010 forr=0 tohl-1:print"*";:nextr
  282. 9020 ve=vl-1:ho=0:gosub110:forr=0 tohl-2:print"*";:nextr
  283. 9030 ho=0:forr=1 tovl-2:ve=r:gosub110:print"*";:nextr
  284. 9040 ho=hl-1:forr=1 tovl-2:ve=r:gosub110:print"*";:nextr
  285. 9050 ifns=2 then9200
  286. 9060 ve=5:ho=4:gosub110
  287. 9070 print" [196]u hast alle [203]arten gefunden,"
  288. 9080 ho=int((hl/2)-(len(n1$)/2)):ve=7:gosub110:printn1$
  289. 9090 sr=t1:gosub300
  290. 9100 ho=7:ve=10:gosub110:sr$="[193]nzahl der [214]ersuche :"+sr$
  291. 9110 gosub150
  292. 9120 ift1<hs thenhs=t1:hs$=n1$
  293. 9130 ho=3:ve=15:gosub110:sr=hs:gosub300
  294. 9140 print"[210]ekord haelt: ";hs$;" ";sr$;" [214]ersuche"
  295. 9150 ho=2:ve=vl-2:gosub110:print"eine [212]aste ..... ";
  296. 9160 gosub210:goto6010
  297. 9200 ho=3:ve=5:sr=t1:gosub300:sr$=n1$+" :"+sr$+" [208]unkte"
  298. 9210 gosub110:gosub150
  299. 9220 ho=3:ve=7:sr=t2:gosub300:sr$=n2$+" :"+sr$+" [208]unkte"
  300. 9230 gosub110:gosub150
  301. 9240 ho=5:ve=13:gosub110:print"[199]ewinner ist :"
  302. 9250 ift1>t2 thensr$=n1$:goto9270
  303. 9260 sr$=n2$
  304. 9270 ho=int((hl/2)-((len(sr$)+6)/2)):ve=15:gosub110
  305. 9280 gosub150
  306. 9290 if(t1>t2)and(t1>bs) thenbs=t1:bs$=n1$:goto9310
  307. 9300 ift2>bs thenbs=t2:bs$=n2$
  308. 9310 sr=bs:gosub300
  309. 9320 ho=3:ve=18:gosub110
  310. 9330 print"[210]ekord haelt: ";bs$;" ";sr$;" [208]unkte"
  311. 9340 goto9150
  312. 9500 nr=nr-1:ve=int(nr/6+1)*0.16+0.07-0.16
  313. 9510 ho=(nr-((int(nr/6))*6))*0.166666+0.01:nr=nr+1
  314. 9520 y$=mid$(c$,nr+1,1):y=asc(y$)-asc("a")+1
  315. 9530 ifpw<>20 then9600
  316. 9540 ify>9 then9570
  317. 9550 ony gosub3010,3210,3410,3610,3810,4010,4210,4410,4610
  318. 9560 return
  319. 9570 y=y-9
  320. 9580 ony gosub4810,5010,5210,5410,5500,5610
  321. 9590 y=y+9:return
  322. 9600 y=y-1:ifpw>5 then9670
  323. 9610 ifpw=1 thensr$=ne$(y)
  324. 9620 ifpw=2 thensr$=en$(y)
  325. 9630 ifpw=3 thensr$=fr$(y)
  326. 9640 ifpw=4 thensr$=du$(y)
  327. 9650 ifpw=5 thensr$=la$(y)
  328. 9660 gosub650:return
  329. 9670 ifpw>9 then9740
  330. 9680 ifmid$(d$,nr+1,1)="1" thensr$=ne$(y):goto9860
  331. 9690 ifpw=6 thensr$=en$(y)
  332. 9700 ifpw=7 thensr$=fr$(y)
  333. 9710 ifpw=8 thensr$=du$(y)
  334. 9720 ifpw=9 thensr$=la$(y)
  335. 9730 goto9860
  336. 9740 ifpw>12 then9800
  337. 9750 ifmid$(d$,nr+1,1)="1" thensr$=en$(y(:goto9860
  338. 9760 ifpw=10 thensr$=fr$(y)
  339. 9770 ifpw=11 thensr$=du$(y)
  340. 9780 ifpw=12 thensr$=la$(y)
  341. 9790 goto9860
  342. 9800 ifpw>14 then9840
  343. 9810 ifmid$(d$,nr+1,1)="1" thensr$=fr$(y):goto9860
  344. 9820 ifpw=13 thensr$=du$(y)
  345. 9830 ifpw=14 thensr$=la$(y)
  346. 9840 ifmid$(d$,nr+1,1)="1" thensr$=du$(y):goto9860
  347. 9850 sr$=la$(y)
  348. 9860 gosub650:return
  349. 10000 rem **bescireibung**
  350. 10010 gosub100:printtab(10);"[205][197][205][207][210][217]"
  351. 10020 print:print"[193]uf dem [194]ildschirm erscheinen 30 ver-"
  352. 10030 print"deckte [203]arten. [202]eweils zwei gehoeren"
  353. 10040 print"zusammen. [218]iel des [211]pieles ist es,"
  354. 10050 print"moeglichst viele [208]aerchen aufzudecken."
  355. 10060 print"[205][197][205][207][210][217] kann allein, zu zweit, mit [194]ild-"
  356. 10070 print"oder [215]ortkarten gespielt werden."
  357. 10080 print"[194]ei den [215]ortspielen kannst [196]u zwischen"
  358. 10090 print"sechs [211]prachen waehlen oder [214]okabeln"
  359. 10100 print"lernen. ([208]aerchen zweispachig)"
  360. 10110 print"[211]pielst [196]u allein, so bemuehe [196]ich,"
  361. 10120 print"mit wenigen [214]ersuchen alle [203]arten"
  362. 10130 print"aufzudecken."
  363. 10140 print"[194]ei zwei [211]pielern werden dagegen"
  364. 10150 print"[208]unkte vertehlt. [197]gal ob durch [199]lueck"
  365. 10160 print"oder [199]edaechtnisleistung, der [198]inder"
  366. 10170 print"darf das [211]piel fortsetzen bis er"
  367. 10180 print"einen [198]ehler macht."
  368. 10190 print
  369. 10200 ho=hl-15:printtab(ho);"[197]dwin [214]an [215]aes"
  370. 10205 ho=hl-8:printtab(ho);"dt. [213].[218]."
  371. 10210 ve=vl-1:ho=0:gosub110:print"eine [212]aste .....";
  372. 10220 gosub210:goto6010
  373. 11000 d$=".000000000000000000000000000000."
  374. 11010 forr=1 to15
  375. 11020 gosub260:rv=int(rv*30+1)
  376. 11030 ifmid$(d$,rv+1,1)="0" then11060
  377. 11040 rv=rv+1:ifrv>30 thenrv=1:goto11030
  378. 11050 goto11030
  379. 11060 d$=mid$(d$,1,rv)+"1"+mid$(d$,rv+2,32-rv)
  380. 11070 x$=mid$(c$,rv+1,1)
  381. 11080 rv=rv+1:ifrv=31 thenrv=1
  382. 11090 ifmid$(c$,rv+1,1)=x$ then11110
  383. 11100 goto11080
  384. 11110 d$=mid$(d$,1,rv)+"2"+mid$(d$,rv+2,32-rv)
  385. 11120 nextr
  386. 11130 return
  387. 25000 data"man","hond","vuur","hoofd","tafel","dag","dood"
  388. 25010 data"jaar","bos","goud","hand","god","deur","boom"
  389. 25020 data"zee"
  390. 25030 data"man","dog","fire","head","table","day","dead"
  391. 25040 data"year","wood","gold","hand","god","door","tree"
  392. 25050 data"sea"
  393. 25060 data"homme","chien","feu","tete","table","jour"
  394. 25070 data"mort","annee","bois","or","main","dieu","porte"
  395. 25080 data"arbre","mer"
  396. 25090 data"[205]ann","[200]und","[198]euer","[203]opf","[212]isch"
  397. 25100 data"[212]ag","[212]od","[202]ahr","[215]ald","[199]old","[200]and","[199]ott"
  398. 25110 data"[212]uer","[194]aum","[205]eer"
  399. 25120 data"vir","canis","ignis","caput","mensa","dies"
  400. 25130 data"mors","annus","silva","aurum","palma","deus"
  401. 25140 data"ianua","arbor","mare"
  402. 32000 rem ******************************
  403. 32010 rem *          memory            *
  404. 32020 rem *         --------           *
  405. 32030 rem * gemaakt op een cbm-64 door *
  406. 32040 rem *                            *
  407. 32050 rem *  edwin van waes (13 jaar)  *
  408. 32060 rem *                            *
  409. 32070 rem * eindhoven          23-1-88 *
  410. 32080 rem *                            *
  411. 32090 rem * deutsch auf kc85/4 von     *
  412. 32100 rem * uwe zierott/lehnin 24-8-89 *
  413. 32110 rem ******************************
  414. 32120 rem 
  415. 32130 rem -computernacht 15/16.9.89
  416. 32140 rem    acorn-master
  417.