home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 1 / Tiger_Disk_001_1994-04_Tiger-Crew-Disk_de_Side_B.d64 / erdkunde-quiz (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  376 lines
  1. 5 print"[147]"
  2. 10 print:print:print:print:print"     e r d k u n d e  -  q u i z      [146]"
  3. 20 cn=0 : rem fehlversuche
  4. 21 dm=0 : rem richtige antworten
  5. 22 poke53281,0:poke53280,0:print"[158]     by      t i g e r - c r e w"
  6. 25 poke198,0:wait198,1:poke198,0:print"[147]"
  7. 26 print:print:print"          meine erste frage:"
  8. 30 print:print"wie heisst die hauptstadt von thailand?"
  9. 40 print:print"      rangun"
  10. 50 print"      hanoi"
  11. 60 print"      bangkok" : print
  12. 70 read a$
  13. 80 input aa$
  14. 90 if aa$=a$ then gosub 2000
  15. 100 if aa$<>a$ then gosub 1000
  16. 105 for t=1to5000 : next t
  17. 106 print"[147]"
  18. 110 print:print:print:print"          naechste frage:"
  19. 120 print:print"in welchem erdteil liegt bolivien?"
  20. 130 print:print"      australien"
  21. 140 print"      asien"
  22. 150 print"      suedamerika" : print
  23. 160 read a$
  24. 170 input ab$
  25. 180 if ab$=a$ then gosub 2000
  26. 190 if ab$<>a$ then gosub 1000
  27. 195 for t=1to5000 : next t
  28. 196 print"[147]"
  29. 200 print:print:print:print"          naechste frage:"
  30. 210 print:print"wie heisst der kontinent am suedpol?"
  31. 220 print:print"      alaska"
  32. 230 print"      arktis"
  33. 240 print"      antarktis" : print
  34. 250 read a$
  35. 260 input ac$
  36. 270 if ac$=a$ then gosub 2000
  37. 280 if ac$<>a$ then gosub 1000
  38. 285 for t=1to5000 : next t
  39. 286 print"[147]"
  40. 290 print:print:print:print"          naechste frage:"
  41. 300 print:print"in welchem land liegt der kanal,"
  42. 305 print"der atlantik und pazifik verbindet?"
  43. 310 print:print"wegen der wenigen moeglichkeiten"
  44. 320 print"     bitte ohne hilfe antworten!" : print : print
  45. 330 read a$
  46. 340 input ad$
  47. 350 if ad$=a$ then gosub 2000
  48. 360 if ad$<>a$ then gosub 1000
  49. 365 for t=1to5000 : next t
  50. 366 print"[147]"
  51. 370 print:print:print:print"          wie heisst die grosse insel"
  52. 371 print:print"          oestlich afrikas?"
  53. 380 print:print"      tasmanien"
  54. 390 print"      neuseeland"
  55. 400 print"      madagaskar" : print
  56. 410 read a$
  57. 420 input ae$
  58. 430 if ae$=a$then gosub 2000
  59. 440 if ae$<>a$then gosub 1000
  60. 445 for t=1to5000 : next t
  61. 446 print"[147]"
  62. 450 print:print:print:print"        wie nennt man den"
  63. 451 print:print"      laengsten breitengrad?"
  64. 460 print:print:print"fuer eine auswahl auch zu einfach!" : print : print
  65. 470 read a$
  66. 480 input af$
  67. 490 if af$=a$ then gosub 2000
  68. 500 if af$<>a$then gosub 1000
  69. 505 for t=1to5000 : next t
  70. 506 print"[147]"
  71. 510 print:print:print:print"          wie heisst die"
  72. 511 print:print"       hauptstadt von japan?"
  73. 520 print:print"(leichter geht's wohl kaum....)" : print
  74. 530 read a$
  75. 540 input ag$
  76. 550 if ag$=a$then gosub 2000
  77. 560 if ag$<>a$then gosub 1000
  78. 565 for t=1to5000 : next t
  79. 566 print"[147]"
  80. 570 print:print:print:print"          wie heisst das
  81. 571 [153]:[153]"         hoechste gebirge?"
  82. 580 [153]:[153]"      anden"
  83. 590 [153]"      rocky mountains"
  84. 600 [153]"      himalaja" : [153]
  85. 610 [135] a$
  86. 620 [133] ah$
  87. 630 [139] ah$[178]a$[167] [141] 2000
  88. 640 [139] ah$[179][177]a$[167] [141] 1000
  89. 645 [129] t[178]1[164]5000 : [130] t
  90. 646 [153]"load"
  91. 650 [153]:[153]:[153]:[153]"          welche stadt liegt"
  92. 651 [153]:[153]"           am suedlichsten?"
  93. 660 [153]:[153]"      muenchen"
  94. 670 [153]"      london"
  95. 680 [153]"      montreal" : [153]
  96. 690 [135] a$
  97. 700 [133] ai$
  98. 710 [139] ai$[178]a$[167] [141] 2000
  99. 720 [139] ai$[179][177]a$[167] [141] 1000
  100. 725 [129] t[178]1[164]5000 : [130] t
  101. 726 [153]"load"
  102. 730 [153]:[153]:[153]:[153]"          wie heisst der"
  103. 731 [153]:[153]"        laengste fluss afrikas?"
  104. 740 [153]:[153]"(es geht also doch noch leichter......)" : [153]
  105. 750 [135] a$
  106. 760 [133] ak$
  107. 770 [139] ak$[178]a$[167] [141] 2000
  108. 780 [139] ak$[179][177]a$[167] [141] 1000
  109. 785 [129] t[178]1[164]5000 : [130] t
  110. 786 [153]"load"
  111. 790 [153]:[153]:[153]:[153]"          welches land ist groesser?"
  112. 800 [153]:[153]"      u s a"
  113. 810 [153]"      udssr"
  114. 820 [153]"      china" : [153]
  115. 830 [135] a$
  116. 840 [133] al$
  117. 850 [139] al$[178]a$[167] [141] 2000
  118. 860 [139] al$[179][177]a$[167] [141] 1000
  119. 865 [129] t[178]1[164]5000 : [130] t
  120. 866 [153]"load"
  121. 870 [153]:[153]:[153]:[153]"          wie heisst die"
  122. 871 [153]:[153]"            hauptstadt"
  123. 872 [153]:[153]"            von  peru?"
  124. 880 [153]:[153]"      santiago"
  125. 890 [153]"      lima"
  126. 900 [153]"      la paz" : [153]
  127. 910 [135] a$
  128. 920 [133] am$
  129. 930 [139] am$[178]a$[167] [141] 2000
  130. 940 [139] am$[179][177]a$[167] [141] 1000
  131. 945 [129] t[178]1[164]5000 : [130] t
  132. 946 [153]"load"
  133. 950 [153]:[153]:[153]:[153]"          wie heisst der"
  134. 951 [153]:[153]"            grenzfluss"
  135. 952 [153]:[153]"      zwischen udssr und china?"
  136. 960 [153]:[153]"      wolga"
  137. 970 [153]"      lena"
  138. 980 [153]"      amur" : [153] : [137] 1100
  139. 1000 [153]:[153]:[153]"dies ist leider nicht richtig."
  140. 1010 cn[178]cn[170]1
  141. 1020 [153]:[153]"die richtige antwort ist: ";a$
  142. 1030 [142]
  143. 1100 [135] a$
  144. 1110 [133] an$
  145. 1120 [139] an$[178]a$[167] [141] 2000
  146. 1130 [139] an$[179][177]a$[167] [141] 1000
  147. 1135 [129] t[178]1[164]5000 : [130] t
  148. 1136 [153]"load"
  149. 1140 [153]:[153]:[153]:[153]"          wie heisst der"
  150. 1141 [153]:[153]"       groesste der ozeane?"
  151. 1150 [153]:[153]:[153]"  da es nur 3 gibt, wirst du es wissen,"
  152. 1151 [153]:[153]"      ohne dass ich diese aufzaehle!" : [153]
  153. 1170 [135] a$
  154. 1180 [133] ao$
  155. 1190 [139] ao$[178]a$[167] [141] 2000
  156. 1200 [139] ao$[179][177]a$[167] [141] 1000
  157. 1205 [129] t[178]1[164]5000 : [130] t
  158. 1206 [153]"load"
  159. 1210 [153]:[153]"da wir eben beim wasser waren,"
  160. 1215 [153]"jetzt die entsprechende land-frage:"
  161. 1220 [153]:[153]:[153]"          wie heisst der"
  162. 1225 [153]:[153]"       groessere kontinent?"
  163. 1230 [153]:[153]"      amerika  (nord + sued!)"
  164. 1240 [153]"      asien"
  165. 1250 [153]"      afrika" : [153]
  166. 1260 [135] a$
  167. 1270 [133] ap$
  168. 1280 [139] ap$[178]a$[167] [141] 2000
  169. 1290 [139] ap$[179][177]a$[167] [141] 1000
  170. 1295 [129] t[178]1[164]5000 : [130] t
  171. 1296 [153]"load"
  172. 1300 [153]:[153]:[153]:[153]"          wie heisst die"
  173. 1301 [153]:[153]"      groesste insel zwischen"
  174. 1302 [153]:[153]"       nord- und suedamerika?"
  175. 1310 [153]:[153]"      puerto rico"
  176. 1320 [153]"      jamaika"
  177. 1330 [153]"      kuba" : [153]
  178. 1340 [135] a$
  179. 1350 [133] aq$
  180. 1360 [139] aq$[178]a$[167] [141] 2000
  181. 1370 [139] aq$[179][177]a$[167] [141] 1000
  182. 1375 [129] t[178]1[164]5000 : [130] t
  183. 1376 [153]"load"
  184. 1380 [153]:[153]:[153]"es wird wieder ganz leicht!"
  185. 1390 [153]:[153]:[153]"          wie heisst der"
  186. 1391 [153]:[153]"          groesste fluss"
  187. 1392 [153]:[153]"          sued-amerikas?" : [153] : [153]
  188. 1400 [135] a$
  189. 1410 [133] ar$
  190. 1420 [139] ar$[178]a$[167] [141] 2000
  191. 1430 [139] ar$[179][177]a$[167] [141] 1000
  192. 1435 [129] t[178]1[164]5000 : [130] t
  193. 1436 [153]"load"
  194. 1440 [153]:[153]:[153]:[153]"          welches dieser 3 laender"
  195. 1441 [153]:[153]"          liegt nicht in suedamerika?"
  196. 1450 [153]:[153]"      uruguay"
  197. 1460 [153]"      honduras"
  198. 1470 [153]"      guayana" : [153]
  199. 1480 [135] a$
  200. 1490 [133] at$
  201. 1500 [139] at$[178]a$[167] [141] 2000
  202. 1510 [139] at$[179][177]a$[167] [141] 1000
  203. 1515 [129] t[178]1[164]5000 : [130] t
  204. 1516 [153]"load"
  205. 1520 [153]:[153]:[153]:[153]"          wie heisst die"
  206. 1521 [153]:[153]"     groesste wueste asiens?"
  207. 1530 [153]:[153]"close     kalahari"
  208. 1540 [153]"      gobi"
  209. 1550 [153]"      sahara" : [153]
  210. 1560 [135] a$
  211. 1570 [133] as$
  212. 1580 [139] as$[178]a$[167] [141] 2000
  213. 1590 [139] as$[179][177]a$[167] [141] 1000
  214. 1595 [129] t[178]1[164]5000 : [130] t
  215. 1596 [153]"load"
  216. 1600 [153]:[153]:[153]:[153]"          wie heisst die"
  217. 1601 [153]:[153]"           australische"
  218. 1602 [153]:[153]"          straussen-art?"
  219. 1610 [153]:[153]"      tapir"
  220. 1620 [153]"      emu"
  221. 1630 [153]"      koala" : [153]
  222. 1640 [135] a$
  223. 1650 [133] au$
  224. 1660 [139] au$[178]a$[167] [141] 2000
  225. 1670 [139] au$[179][177]a$[167] [141] 1000
  226. 1675 [129] t[178]1[164]5000 : [130] t
  227. 1676 [153]"load"
  228. 1680 [153]:[153]:[153]:[153]"          von welchem land ist"
  229. 1681 [153]:[153]"             t e h e r a nwait"
  230. 1682 [153]:[153]"            die hauptstadt?"
  231. 1690 [153]:[153]"      irak"
  232. 1700 [153]"      syrien"
  233. 1710 [153]"      iran" : [153]
  234. 1720 [135] a$
  235. 1730 [133] av$
  236. 1740 [139] av$[178]a$[167] [141] 2000
  237. 1750 [139] av$[179][177]a$[167] [141] 1000
  238. 1755 [129] t[178]1[164]5000 : [130] t
  239. 1756 [153]"load"
  240. 1760 [153]:[153]:[153]"  zuviel aus fernen landen?"
  241. 1770 [153]:[153]"  nun, dann mal was naeheres:"
  242. 1780 [153]:[153]:[153]"          wie heisst der"
  243. 1781 [153]:[153]"     laengste fluss europas?" : [153] : [153]
  244. 1790 [135] a$
  245. 1800 [133] aw$
  246. 1810 [139] aw$[178]a$[167] [141] 2000
  247. 1820 [139] aw$[179][177]a$[167] [141] 1000
  248. 1825 [129] t[178]1[164]5000 : [130] t
  249. 1826 [153]"load"
  250. 1830 [153]:[153]:[153]:[153]"          wie heisst die"
  251. 1831 [153]:[153]"       hauptstadt spaniens?"
  252. 1840 [153]:[153]"      lissabon"
  253. 1850 [153]"      barcelona"
  254. 1860 [153]"      madrid" : [153]
  255. 1870 [135] a$
  256. 1880 [133] ax$
  257. 1890 [139] ax$[178]a$[167] [141] 2000
  258. 1900 [139] ax$[179][177]a$[167] [141] 1000
  259. 1905 [129] t[178]1[164]5000 : [130] t
  260. 1906 [153]"load"
  261. 1910 [153]:[153]:[153]"     noch 'ne hauptstadt ?wait"
  262. 1920 [153]:[153]:[153]"          also bitte! :"
  263. 1930 [153]:[153]:[153]"          wie heisst die"
  264. 1931 [153]:[153]"     hauptstadt von norwegen?"
  265. 1940 [153]:[153]"      stockholm"
  266. 1950 [153]"      helsinki"
  267. 1960 [153]"      oslo" :[153]:[137] 2100
  268. 2000 [153]:[153]:[153]"das ist eine voellig korrekte antwort!"
  269. 2005 dm[178]dm[170]1
  270. 2010 [153]:[153]"gratuliere!"
  271. 2020 [142]
  272. 2100 [135] a$
  273. 2110 [133] ay$
  274. 2120 [139] ay$[178]a$[167] [141] 2000
  275. 2130 [139] ay$[179][177]a$[167] [141] 1000
  276. 2135 [129] t[178]1[164]5000 : [130] t
  277. 2136 [153]"load"
  278. 2140 [153]:[153]"     zu hoch im norden ?wait"
  279. 2150 [153]:[153]"     k  e  i  n    problem!"
  280. 2160 [153]:[153]:[153]"  wie heisst die aegyptische halbinsel?"
  281. 2170 [153]:[153]"      assuan"
  282. 2180 [153]"      sues"
  283. 2190 [153]"      sinai" : [153]
  284. 2200 [135] a$
  285. 2210 [133] az$
  286. 2220 [139] az$[178]a$[167] [141] 2000
  287. 2230 [139] az$[179][177]a$[167] [141] 1000
  288. 2235 [129] t[178]1[164]5000 : [130] t
  289. 2236 [153]"load"
  290. 2240 [153]:[153]:[153]:[153]"          wo stehen die"
  291. 2241 [153]:[153]"      groessten pyramiden?"
  292. 2250 [153]:[153]:[153]"                 n  e  i  n  !         wait"
  293. 2251 [153]:[153]"     es gibt  k e i n e  auswahl!!" : [153] : [153]
  294. 2260 [135] a$
  295. 2270 [133] ba$
  296. 2280 [139] ba$[178]a$[167] [141] 2000
  297. 2290 [139] ba$[179][177]a$[167] [141] 1000
  298. 2295 [129] t[178]1[164]5000 : [130] t
  299. 2296 [153]"load"
  300. 2300 [153]:[153]:[153]:[153]"     welche dieser inseln"
  301. 2301 [153]:[153]"gehoert   nicht wait  zu italien?"
  302. 2310 [153]:[153]"      sardinien"
  303. 2320 [153]"      korsika"
  304. 2330 [153]"      sizilien" : [153]
  305. 2340 [135] a$
  306. 2350 [133] bb$
  307. 2360 [139] bb$[178]a$[167] [141] 2000
  308. 2370 [139] bb$[179][177]a$[167] [141] 1000
  309. 2375 [129] t[178]1[164]5000 : [130] t
  310. 2376 [153]"load"
  311. 2380 [153]:[153]"     und nun noch ganz schnell"
  312. 2390 [153]:[153]"     aus deutschen landen....."
  313. 2400 [153]:[153]:[153]"     wie heisst die hauptstadt"
  314. 2410 [153]:[153]"  des bundeslandes baden-wuerttemberg?"
  315. 2420 [153]:[153]"      karlsruhe"
  316. 2430 [153]"      heidelberg"
  317. 2440 [153]"      stuttgart" : [153]
  318. 2450 [135] a$
  319. 2460 [133] bc$
  320. 2470 [139] bc$[178]a$[167] [141] 2000
  321. 2480 [139] bc$[179][177]a$[167] [141] 1000
  322. 2485 [129] t[178]1[164]5000 : [130] t
  323. 2486 [153]"load"
  324. 2490 [153]:[153]:[153]:[153]"   weisst du auch, wie die hauptstadt"
  325. 2500 [153]:[153]"   von      niedersachsen      heisst?"
  326. 2510 [153]:[153]"      osnabrueck"
  327. 2520 [153]"      bielefeld"
  328. 2530 [153]"      hannover" : [153]
  329. 2540 [135] a$
  330. 2550 [133] bd$
  331. 2560 [139] bd$[178]a$[167] [141] 2000
  332. 2570 [139] bd$[179][177]a$[167] [141] 1000
  333. 2575 [129] t[178]1[164]5000 : [130] t
  334. 2576 [153]"load"
  335. 2580 [153]:[153]:[153]"    und jetzt verrate mir bitte noch"
  336. 2590 [153]:[153]"          die  hauptstadt"
  337. 2591 [153]:[153]"        von rheinland-pfalz"
  338. 2610 [153]:[153]"      bingen"
  339. 2620 [153]"      worms"
  340. 2630 [153]"      mainz" : [153]
  341. 2640 [135] a$
  342. 2650 [133] be$
  343. 2660 [139] be$[178]a$[167] [141] 2000
  344. 2670 [139] be$[179][177]a$[167] [141] 1000
  345. 2675 [129] t[178]1[164]5000 : [130] t
  346. 2676 [153]"load"
  347. 2680 [153]:[153]:[153]"             zum schluss wait"
  348. 2690 [153]:[153]:[153]"           noch bitte die"
  349. 2691 [153]:[153]"           hauptstadt von"
  350. 2692 [153]:[153]"        nordrhein-westfalen"
  351. 2700 [153]:[153]"      duesseldorf"
  352. 2710 [153]"      duisburg"
  353. 2720 [153]"      dortmund" : [153]
  354. 2730 [135] a$
  355. 2740 [133] bf$
  356. 2750 [139] bf$[178]a$[167] [141] 2000
  357. 2760 [139] bf$[179][177]a$[167] [141] 1000
  358. 2765 [129] t[178]1[164]5000 : [130] t
  359. 2766 [153]"load"
  360. 2770 [153]:[153]:[153]:[153]:[153]:[153]"du hattest ";dm;" richtige antworten"
  361. 2780 [153]:[153]:[153]:[153]"und ";cn;" fehler."
  362. 2790 [153]"kannst du auch gut englisch ?"
  363. 2800 [129]t[178]1[164]8000:[130]t:[153]"loadich lade jetzt einen englisch-test !"
  364. 2810 [153]"load";[199](34);"vokabel-test";[199](34);",8ononon"
  365. 2820 [151]631,13:[151]632,82:[151]633,85
  366. 2830 [151]634,78:[151]635,13:[151]198,5:[128]
  367. 5000 [131]bangkok,suedamerika,antarktis
  368. 5010 [131]panama,madagaskar,aequator
  369. 5020 [131]tokio,himalaja,montreal,nil
  370. 5030 [131]udssr,lima,amur,pazifik,asien
  371. 5040 [131]kuba,amazonas,honduras,gobi
  372. 5050 [131]emu,iran,donau,madrid,oslo
  373. 5060 [131]sinai,aegypten,korsika
  374. 5070 [131]stuttgart,hannover,mainz
  375. 5080 [131]duesseldorf
  376.