5 PRINT"[147]"
10 PRINT:PRINT:PRINT:PRINT:PRINT"     E R D K U N D E  -  Q U I Z      [146]"
20 CN=0 : REM FEHLVERSUCHE
21 DM=0 : REM RICHTIGE ANTWORTEN
22 POKE53281,0:POKE53280,0:PRINT"[158]     BY      T I G E R - C R E W"
25 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]"
26 PRINT:PRINT:PRINT"          MEINE ERSTE FRAGE:"
30 PRINT:PRINT"WIE HEISST DIE HAUPTSTADT VON THAILAND?"
40 PRINT:PRINT"      RANGUN"
50 PRINT"      HANOI"
60 PRINT"      BANGKOK" : PRINT
70 READ A$
80 INPUT AA$
90 IF AA$=A$ THEN GOSUB 2000
100 IF AA$<>A$ THEN GOSUB 1000
105 FOR T=1TO5000 : NEXT T
106 PRINT"[147]"
110 PRINT:PRINT:PRINT:PRINT"          NAECHSTE FRAGE:"
120 PRINT:PRINT"IN WELCHEM ERDTEIL LIEGT BOLIVIEN?"
130 PRINT:PRINT"      AUSTRALIEN"
140 PRINT"      ASIEN"
150 PRINT"      SUEDAMERIKA" : PRINT
160 READ A$
170 INPUT AB$
180 IF AB$=A$ THEN GOSUB 2000
190 IF AB$<>A$ THEN GOSUB 1000
195 FOR T=1TO5000 : NEXT T
196 PRINT"[147]"
200 PRINT:PRINT:PRINT:PRINT"          NAECHSTE FRAGE:"
210 PRINT:PRINT"WIE HEISST DER KONTINENT AM SUEDPOL?"
220 PRINT:PRINT"      ALASKA"
230 PRINT"      ARKTIS"
240 PRINT"      ANTARKTIS" : PRINT
250 READ A$
260 INPUT AC$
270 IF AC$=A$ THEN GOSUB 2000
280 IF AC$<>A$ THEN GOSUB 1000
285 FOR T=1TO5000 : NEXT T
286 PRINT"[147]"
290 PRINT:PRINT:PRINT:PRINT"          NAECHSTE FRAGE:"
300 PRINT:PRINT"IN WELCHEM LAND LIEGT DER KANAL,"
305 PRINT"DER ATLANTIK UND PAZIFIK VERBINDET?"
310 PRINT:PRINT"WEGEN DER WENIGEN MOEGLICHKEITEN"
320 PRINT"     BITTE OHNE HILFE ANTWORTEN!" : PRINT : PRINT
330 READ A$
340 INPUT AD$
350 IF AD$=A$ THEN GOSUB 2000
360 IF AD$<>A$ THEN GOSUB 1000
365 FOR T=1TO5000 : NEXT T
366 PRINT"[147]"
370 PRINT:PRINT:PRINT:PRINT"          WIE HEISST DIE GROSSE INSEL"
371 PRINT:PRINT"          OESTLICH AFRIKAS?"
380 PRINT:PRINT"      TASMANIEN"
390 PRINT"      NEUSEELAND"
400 PRINT"      MADAGASKAR" : PRINT
410 READ A$
420 INPUT AE$
430 IF AE$=A$THEN GOSUB 2000
440 IF AE$<>A$THEN GOSUB 1000
445 FOR T=1TO5000 : NEXT T
446 PRINT"[147]"
450 PRINT:PRINT:PRINT:PRINT"        WIE NENNT MAN DEN"
451 PRINT:PRINT"      LAENGSTEN BREITENGRAD?"
460 PRINT:PRINT:PRINT"FUER EINE AUSWAHL AUCH ZU EINFACH!" : PRINT : PRINT
470 READ A$
480 INPUT AF$
490 IF AF$=A$ THEN GOSUB 2000
500 IF AF$<>A$THEN GOSUB 1000
505 FOR T=1TO5000 : NEXT T
506 PRINT"[147]"
510 PRINT:PRINT:PRINT:PRINT"          WIE HEISST DIE"
511 PRINT:PRINT"       HAUPTSTADT VON JAPAN?"
520 PRINT:PRINT"(LEICHTER GEHT'S WOHL KAUM....)" : PRINT
530 READ A$
540 INPUT AG$
550 IF AG$=A$THEN GOSUB 2000
560 IF AG$<>A$THEN GOSUB 1000
565 FOR T=1TO5000 : NEXT T
566 PRINT"[147]"
570 PRINT:PRINT:PRINT:PRINT"          WIE HEISST DAS
571 [153]:[153]"         HOECHSTE GEBIRGE?"
580 [153]:[153]"      ANDEN"
590 [153]"      ROCKY MOUNTAINS"
600 [153]"      HIMALAJA" : [153]
610 [135] A$
620 [133] AH$
630 [139] AH$[178]A$[167] [141] 2000
640 [139] AH$[179][177]A$[167] [141] 1000
645 [129] T[178]1[164]5000 : [130] T
646 [153]"LOAD"
650 [153]:[153]:[153]:[153]"          WELCHE STADT LIEGT"
651 [153]:[153]"           AM SUEDLICHSTEN?"
660 [153]:[153]"      MUENCHEN"
670 [153]"      LONDON"
680 [153]"      MONTREAL" : [153]
690 [135] A$
700 [133] AI$
710 [139] AI$[178]A$[167] [141] 2000
720 [139] AI$[179][177]A$[167] [141] 1000
725 [129] T[178]1[164]5000 : [130] T
726 [153]"LOAD"
730 [153]:[153]:[153]:[153]"          WIE HEISST DER"
731 [153]:[153]"        LAENGSTE FLUSS AFRIKAS?"
740 [153]:[153]"(ES GEHT ALSO DOCH NOCH LEICHTER......)" : [153]
750 [135] A$
760 [133] AK$
770 [139] AK$[178]A$[167] [141] 2000
780 [139] AK$[179][177]A$[167] [141] 1000
785 [129] T[178]1[164]5000 : [130] T
786 [153]"LOAD"
790 [153]:[153]:[153]:[153]"          WELCHES LAND IST GROESSER?"
800 [153]:[153]"      U S A"
810 [153]"      UDSSR"
820 [153]"      CHINA" : [153]
830 [135] A$
840 [133] AL$
850 [139] AL$[178]A$[167] [141] 2000
860 [139] AL$[179][177]A$[167] [141] 1000
865 [129] T[178]1[164]5000 : [130] T
866 [153]"LOAD"
870 [153]:[153]:[153]:[153]"          WIE HEISST DIE"
871 [153]:[153]"            HAUPTSTADT"
872 [153]:[153]"            VON  PERU?"
880 [153]:[153]"      SANTIAGO"
890 [153]"      LIMA"
900 [153]"      LA PAZ" : [153]
910 [135] A$
920 [133] AM$
930 [139] AM$[178]A$[167] [141] 2000
940 [139] AM$[179][177]A$[167] [141] 1000
945 [129] T[178]1[164]5000 : [130] T
946 [153]"LOAD"
950 [153]:[153]:[153]:[153]"          WIE HEISST DER"
951 [153]:[153]"            GRENZFLUSS"
952 [153]:[153]"      ZWISCHEN UDSSR UND CHINA?"
960 [153]:[153]"      WOLGA"
970 [153]"      LENA"
980 [153]"      AMUR" : [153] : [137] 1100
1000 [153]:[153]:[153]"DIES IST LEIDER NICHT RICHTIG."
1010 CN[178]CN[170]1
1020 [153]:[153]"DIE RICHTIGE ANTWORT IST: ";A$
1030 [142]
1100 [135] A$
1110 [133] AN$
1120 [139] AN$[178]A$[167] [141] 2000
1130 [139] AN$[179][177]A$[167] [141] 1000
1135 [129] T[178]1[164]5000 : [130] T
1136 [153]"LOAD"
1140 [153]:[153]:[153]:[153]"          WIE HEISST DER"
1141 [153]:[153]"       GROESSTE DER OZEANE?"
1150 [153]:[153]:[153]"  DA ES NUR 3 GIBT, WIRST DU ES WISSEN,"
1151 [153]:[153]"      OHNE DASS ICH DIESE AUFZAEHLE!" : [153]
1170 [135] A$
1180 [133] AO$
1190 [139] AO$[178]A$[167] [141] 2000
1200 [139] AO$[179][177]A$[167] [141] 1000
1205 [129] T[178]1[164]5000 : [130] T
1206 [153]"LOAD"
1210 [153]:[153]"DA WIR EBEN BEIM WASSER WAREN,"
1215 [153]"JETZT DIE ENTSPRECHENDE LAND-FRAGE:"
1220 [153]:[153]:[153]"          WIE HEISST DER"
1225 [153]:[153]"       GROESSERE KONTINENT?"
1230 [153]:[153]"      AMERIKA  (NORD + SUED!)"
1240 [153]"      ASIEN"
1250 [153]"      AFRIKA" : [153]
1260 [135] A$
1270 [133] AP$
1280 [139] AP$[178]A$[167] [141] 2000
1290 [139] AP$[179][177]A$[167] [141] 1000
1295 [129] T[178]1[164]5000 : [130] T
1296 [153]"LOAD"
1300 [153]:[153]:[153]:[153]"          WIE HEISST DIE"
1301 [153]:[153]"      GROESSTE INSEL ZWISCHEN"
1302 [153]:[153]"       NORD- UND SUEDAMERIKA?"
1310 [153]:[153]"      PUERTO RICO"
1320 [153]"      JAMAIKA"
1330 [153]"      KUBA" : [153]
1340 [135] A$
1350 [133] AQ$
1360 [139] AQ$[178]A$[167] [141] 2000
1370 [139] AQ$[179][177]A$[167] [141] 1000
1375 [129] T[178]1[164]5000 : [130] T
1376 [153]"LOAD"
1380 [153]:[153]:[153]"ES WIRD WIEDER GANZ LEICHT!"
1390 [153]:[153]:[153]"          WIE HEISST DER"
1391 [153]:[153]"          GROESSTE FLUSS"
1392 [153]:[153]"          SUED-AMERIKAS?" : [153] : [153]
1400 [135] A$
1410 [133] AR$
1420 [139] AR$[178]A$[167] [141] 2000
1430 [139] AR$[179][177]A$[167] [141] 1000
1435 [129] T[178]1[164]5000 : [130] T
1436 [153]"LOAD"
1440 [153]:[153]:[153]:[153]"          WELCHES DIESER 3 LAENDER"
1441 [153]:[153]"          LIEGT NICHT IN SUEDAMERIKA?"
1450 [153]:[153]"      URUGUAY"
1460 [153]"      HONDURAS"
1470 [153]"      GUAYANA" : [153]
1480 [135] A$
1490 [133] AT$
1500 [139] AT$[178]A$[167] [141] 2000
1510 [139] AT$[179][177]A$[167] [141] 1000
1515 [129] T[178]1[164]5000 : [130] T
1516 [153]"LOAD"
1520 [153]:[153]:[153]:[153]"          WIE HEISST DIE"
1521 [153]:[153]"     GROESSTE WUESTE ASIENS?"
1530 [153]:[153]"CLOSE     KALAHARI"
1540 [153]"      GOBI"
1550 [153]"      SAHARA" : [153]
1560 [135] A$
1570 [133] AS$
1580 [139] AS$[178]A$[167] [141] 2000
1590 [139] AS$[179][177]A$[167] [141] 1000
1595 [129] T[178]1[164]5000 : [130] T
1596 [153]"LOAD"
1600 [153]:[153]:[153]:[153]"          WIE HEISST DIE"
1601 [153]:[153]"           AUSTRALISCHE"
1602 [153]:[153]"          STRAUSSEN-ART?"
1610 [153]:[153]"      TAPIR"
1620 [153]"      EMU"
1630 [153]"      KOALA" : [153]
1640 [135] A$
1650 [133] AU$
1660 [139] AU$[178]A$[167] [141] 2000
1670 [139] AU$[179][177]A$[167] [141] 1000
1675 [129] T[178]1[164]5000 : [130] T
1676 [153]"LOAD"
1680 [153]:[153]:[153]:[153]"          VON WELCHEM LAND IST"
1681 [153]:[153]"             T E H E R A NWAIT"
1682 [153]:[153]"            DIE HAUPTSTADT?"
1690 [153]:[153]"      IRAK"
1700 [153]"      SYRIEN"
1710 [153]"      IRAN" : [153]
1720 [135] A$
1730 [133] AV$
1740 [139] AV$[178]A$[167] [141] 2000
1750 [139] AV$[179][177]A$[167] [141] 1000
1755 [129] T[178]1[164]5000 : [130] T
1756 [153]"LOAD"
1760 [153]:[153]:[153]"  ZUVIEL AUS FERNEN LANDEN?"
1770 [153]:[153]"  NUN, DANN MAL WAS NAEHERES:"
1780 [153]:[153]:[153]"          WIE HEISST DER"
1781 [153]:[153]"     LAENGSTE FLUSS EUROPAS?" : [153] : [153]
1790 [135] A$
1800 [133] AW$
1810 [139] AW$[178]A$[167] [141] 2000
1820 [139] AW$[179][177]A$[167] [141] 1000
1825 [129] T[178]1[164]5000 : [130] T
1826 [153]"LOAD"
1830 [153]:[153]:[153]:[153]"          WIE HEISST DIE"
1831 [153]:[153]"       HAUPTSTADT SPANIENS?"
1840 [153]:[153]"      LISSABON"
1850 [153]"      BARCELONA"
1860 [153]"      MADRID" : [153]
1870 [135] A$
1880 [133] AX$
1890 [139] AX$[178]A$[167] [141] 2000
1900 [139] AX$[179][177]A$[167] [141] 1000
1905 [129] T[178]1[164]5000 : [130] T
1906 [153]"LOAD"
1910 [153]:[153]:[153]"     NOCH 'NE HAUPTSTADT ?WAIT"
1920 [153]:[153]:[153]"          ALSO BITTE! :"
1930 [153]:[153]:[153]"          WIE HEISST DIE"
1931 [153]:[153]"     HAUPTSTADT VON NORWEGEN?"
1940 [153]:[153]"      STOCKHOLM"
1950 [153]"      HELSINKI"
1960 [153]"      OSLO" :[153]:[137] 2100
2000 [153]:[153]:[153]"DAS IST EINE VOELLIG KORREKTE ANTWORT!"
2005 DM[178]DM[170]1
2010 [153]:[153]"GRATULIERE!"
2020 [142]
2100 [135] A$
2110 [133] AY$
2120 [139] AY$[178]A$[167] [141] 2000
2130 [139] AY$[179][177]A$[167] [141] 1000
2135 [129] T[178]1[164]5000 : [130] T
2136 [153]"LOAD"
2140 [153]:[153]"     ZU HOCH IM NORDEN ?WAIT"
2150 [153]:[153]"     K  E  I  N    PROBLEM!"
2160 [153]:[153]:[153]"  WIE HEISST DIE AEGYPTISCHE HALBINSEL?"
2170 [153]:[153]"      ASSUAN"
2180 [153]"      SUES"
2190 [153]"      SINAI" : [153]
2200 [135] A$
2210 [133] AZ$
2220 [139] AZ$[178]A$[167] [141] 2000
2230 [139] AZ$[179][177]A$[167] [141] 1000
2235 [129] T[178]1[164]5000 : [130] T
2236 [153]"LOAD"
2240 [153]:[153]:[153]:[153]"          WO STEHEN DIE"
2241 [153]:[153]"      GROESSTEN PYRAMIDEN?"
2250 [153]:[153]:[153]"                 N  E  I  N  !         WAIT"
2251 [153]:[153]"     ES GIBT  K E I N E  AUSWAHL!!" : [153] : [153]
2260 [135] A$
2270 [133] BA$
2280 [139] BA$[178]A$[167] [141] 2000
2290 [139] BA$[179][177]A$[167] [141] 1000
2295 [129] T[178]1[164]5000 : [130] T
2296 [153]"LOAD"
2300 [153]:[153]:[153]:[153]"     WELCHE DIESER INSELN"
2301 [153]:[153]"GEHOERT   NICHT WAIT  ZU ITALIEN?"
2310 [153]:[153]"      SARDINIEN"
2320 [153]"      KORSIKA"
2330 [153]"      SIZILIEN" : [153]
2340 [135] A$
2350 [133] BB$
2360 [139] BB$[178]A$[167] [141] 2000
2370 [139] BB$[179][177]A$[167] [141] 1000
2375 [129] T[178]1[164]5000 : [130] T
2376 [153]"LOAD"
2380 [153]:[153]"     UND NUN NOCH GANZ SCHNELL"
2390 [153]:[153]"     AUS DEUTSCHEN LANDEN....."
2400 [153]:[153]:[153]"     WIE HEISST DIE HAUPTSTADT"
2410 [153]:[153]"  DES BUNDESLANDES BADEN-WUERTTEMBERG?"
2420 [153]:[153]"      KARLSRUHE"
2430 [153]"      HEIDELBERG"
2440 [153]"      STUTTGART" : [153]
2450 [135] A$
2460 [133] BC$
2470 [139] BC$[178]A$[167] [141] 2000
2480 [139] BC$[179][177]A$[167] [141] 1000
2485 [129] T[178]1[164]5000 : [130] T
2486 [153]"LOAD"
2490 [153]:[153]:[153]:[153]"   WEISST DU AUCH, WIE DIE HAUPTSTADT"
2500 [153]:[153]"   VON      NIEDERSACHSEN      HEISST?"
2510 [153]:[153]"      OSNABRUECK"
2520 [153]"      BIELEFELD"
2530 [153]"      HANNOVER" : [153]
2540 [135] A$
2550 [133] BD$
2560 [139] BD$[178]A$[167] [141] 2000
2570 [139] BD$[179][177]A$[167] [141] 1000
2575 [129] T[178]1[164]5000 : [130] T
2576 [153]"LOAD"
2580 [153]:[153]:[153]"    UND JETZT VERRATE MIR BITTE NOCH"
2590 [153]:[153]"          DIE  HAUPTSTADT"
2591 [153]:[153]"        VON RHEINLAND-PFALZ"
2610 [153]:[153]"      BINGEN"
2620 [153]"      WORMS"
2630 [153]"      MAINZ" : [153]
2640 [135] A$
2650 [133] BE$
2660 [139] BE$[178]A$[167] [141] 2000
2670 [139] BE$[179][177]A$[167] [141] 1000
2675 [129] T[178]1[164]5000 : [130] T
2676 [153]"LOAD"
2680 [153]:[153]:[153]"             ZUM SCHLUSS WAIT"
2690 [153]:[153]:[153]"           NOCH BITTE DIE"
2691 [153]:[153]"           HAUPTSTADT VON"
2692 [153]:[153]"        NORDRHEIN-WESTFALEN"
2700 [153]:[153]"      DUESSELDORF"
2710 [153]"      DUISBURG"
2720 [153]"      DORTMUND" : [153]
2730 [135] A$
2740 [133] BF$
2750 [139] BF$[178]A$[167] [141] 2000
2760 [139] BF$[179][177]A$[167] [141] 1000
2765 [129] T[178]1[164]5000 : [130] T
2766 [153]"LOAD"
2770 [153]:[153]:[153]:[153]:[153]:[153]"DU HATTEST ";DM;" RICHTIGE ANTWORTEN"
2780 [153]:[153]:[153]:[153]"UND ";CN;" FEHLER."
2790 [153]"KANNST DU AUCH GUT ENGLISCH ?"
2800 [129]T[178]1[164]8000:[130]T:[153]"LOADICH LADE JETZT EINEN ENGLISCH-TEST !"
2810 [153]"LOAD";[199](34);"VOKABEL-TEST";[199](34);",8ONONON"
2820 [151]631,13:[151]632,82:[151]633,85
2830 [151]634,78:[151]635,13:[151]198,5:[128]
5000 [131]BANGKOK,SUEDAMERIKA,ANTARKTIS
5010 [131]PANAMA,MADAGASKAR,AEQUATOR
5020 [131]TOKIO,HIMALAJA,MONTREAL,NIL
5030 [131]UDSSR,LIMA,AMUR,PAZIFIK,ASIEN
5040 [131]KUBA,AMAZONAS,HONDURAS,GOBI
5050 [131]EMU,IRAN,DONAU,MADRID,OSLO
5060 [131]SINAI,AEGYPTEN,KORSIKA
5070 [131]STUTTGART,HANNOVER,MAINZ
5080 [131]DUESSELDORF