Screenshot 1 Screenshot 2 Screenshot 3 Screenshot 4
1000 3ba5 0000 b ... AFRIKA
Bei diesem Wissenstest koennen Sie eine beliebige Anzahl von Fragen ueber AFRIKA beantworten. Am Ende erfolgt eine Auswertung, die die Anzahl der richtigen Antworten absolut und in Prozent angibt. Sie erhalten eine Note, die dem in Schulen ueblichen Bewertungsgrundsatz entspricht.
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

110 TAB(1024-96)
120 P."           "
130 P."            "
140 P."             "
145 POKE(HEX(EFE0)),32
150 GOSUB 20000
160 FOR K=0 TO 5000
170 NEXT K
180 O.12
190 TAB(64)
200 P."Bei diesem Wissenstest koennen";P.
210 P."Sie eine beliebige Anzahl von";P.
220 P."Fragen ueber AFRIKA beantworten.";P.
230 P."Am Ende erfolgt eine Auswertung,"
240 P."die die Anzahl der richtigen";P.
250 P."Antworten absolut und in Prozent"
260 P."angibt.";P.
265 P.
270 P."Sie erhalten eine Note, die dem";P.
275 P.
280 P."in Schulen ueblichen Bewertungs-";P.
290 P."grundsatz entspricht."
300 P.;P.;P."                  Alles klar J/N"
310 F=INCHAR
500 FOR K=101 TO 140
510 @(K)=1
520 NEXT K
530 P=0;Z=0
540 C=1
600 O.12;TAB(96)
610 P."Es sind 40 Fragen programmiert."
615 P.
616 P."Davon koennen Sie bis zu 32";P.
617 P."Fragen pro Runde beantworten.";P.;P.
618 P."Die Auswahl der Fragen erfolgt";P.
619 P."rein zufaellig !"
620 P.;P.
621 P."Wieviele Fragen wollen Sie be-";P.
622 INPUT"antworten "N
630 IF N>32 N=32
640 TAB(64)
1000 IF Z=N GOTO 2000
1010 IF Z>35 GOTO 1110
1020 A=RND(40)
1030 IF @(A+100)=0 GOTO 1020
1040 @(A+100)=0
1050 Z=Z+1
1060 GOSUB 21500
1065 IF C=0 GOTO 1080
1070 GOSUB 21200
1075 C=0
1080 GOSUB(10000+A*100)
1090 GOSUB 21600
1100 GOTO 1000
1110 FOR I=101 TO 140
1120 IF @(I)=0 GOTO 1200
1130 @(I)=0
1140 Z=Z+1
1150 GOSUB 21500
1160 GOSUB 21200
1170 GOSUB(10000+(I-100)*100)
1180 GOSUB 21600
1190 IF Z=N GOTO 2000
1200 NEXT I
2000 GOSUB 21000
2010 Q=P*1000/N
2020 M=Q-Q/10*10
2030 TAB(96)
2040 P."Sie haben ",#1,P," von ",#1,N," Fragen";P.
2045 P."richtig beantwortet."
2060 TAB(64)
2070 P."Das sind ",#1,Q/10,",",#1,M,"% und entspricht"
2075 P.
2080 P."der Note",
2090 IF Q>=960 P." 1.";GOTO 2140
2100 IF Q>=800 P." 2.";GOTO 2140
2110 IF Q>=600 P." 3.";GOTO 2140
2120 IF Q>=400 P." 4.";GOTO 2140
2130 P." 5."
2140 TAB(64)
2150 P."Moechten Sie es noch einmal"
2160 P.
2170 P."probieren ?"
2180 P.
2190 P."                           J/N"
2200 F=INCHAR
2210 IF F='J' GOTO 110
2220 TAB(96)
2230 P."  AUF WIEDERSEHEN !"
2240 FOR K=0 TO 2000;NEXT K
2250 O.12
2260 STOP
10100 PRINT"Wo liegt der Kilimandscharo ?"
10101 P.
10102 P."A,B oder C"
10105 R='B'
10106 C=1
10110 POKEW+169,65
10115 POKEW+170,208
10120 POKEW+467,66
10125 POKEW+468,208
10130 POKEW+619,67
10135 POKEW+620,208
10140 RETURN
10200 PRINT"Wo liegt der Emi Koussi ?"
10205 P.
10206 C=1
10210 P."A,B oder C"
10215 R='C'
10220 POKEW+36,65
10225 POKEW+37,223
10230 POKEW+686,66
10235 POKEW+687,208
10240 POKEW+139,67
10245 POKEW+140,223
10250 RETURN
10300 PRINT"Wo liegt der Mount Kenia ?"
10305 PRINT
10306 C=1
10310 P."A,B oder C"
10315 R='A'
10320 POKEW+435,65
10325 POKEW+436,210
10330 POKEW+4,66
10335 POKEW+5,223
10340 POKEW+560,67
10345 POKEW+561,210
10350 RETURN
10400 PRINT"Wie hoch ist der                Kilimandscharo ?"
10405 P.
10410 P."A=4738m,B=6217m oder C=5895m"
10415 R='C'
10420 RETURN
10500 PRINT"Wie hoch ist der                Emi Koussi ?
10505 P.
10510 P."A=3415m,B=48I2m oder C=1976m ?"
10515 R='A'
10520 RETURN
10600 PRINT"Wie hoch ist der                Mount Kenia ?"
10605 P.
10610 P."A=5200m,B=5812m oder C=4660m"
10615 R='A'
10620 RETURN
10700 PRINT"Wie gross ist Afrika ?"
10710 P."A=45 Mio km^2"
10715 P."B=30 Mio km^2"
10720 P."C=85 Mio km^2"
10725 R='B'
10730 RETURN
10800 PRINT"Wie heisst dieser See ?"
10805 V=W+435
10806 C=1
10810 GOSUB25100
10815 GOSUB21300
10820 P."A Tschad"
10825 P."B Viktoriasee"
10830 P."C Turkanasee"
10835 R='B'
10840 RETURN
10900 P."Wie heisst dieser See ?"
10906 C=1
10910 P."A Njassasee"
10915 P."B Tschad"
10920 P."C Victoriasee"
10925 R='B'
10930 GOSUB 25400
10935 V=W+236
10940 GOSUB 21300
10950 RETURN
11000 P."Wie heisst dieser See ?"
11006 C=1
11010 GOSUB 25600
11015 V=W+532
11020 GOSUB 21300
11022 R='C'
11025 P."A Tanganjika-See"
11030 P."B Victoriasee"
11035 P."C Njassasee"
11040 RETURN
11100 P."Wie heisst dieser Fluss ?"
11110 C=1
11115 GOSUB 25000
11120 V=W+243
11125 GOSUB 21300
11130 R='C'
11135 P."A Kongo"
11140 P."B Okavango"
11145 P."C Nil"
11150 RETURN
11200 P."Wie heisst dieser Fluss ?"
11206 C=1
11210 GOSUB 25200
11215 V=W+433
11220 GOSUB 21300
11225 P."A Kongo"
11230 P."B Sambesi"
11235 P."C Nil"
11240 R='A'
11245 RETURN
11300 P."Wie heisst dieser Fluss ?"
11306 C=1
11310 GOSUB 25300
11315 V=W+264
11320 GOSUB 21300
11325 R='B'
11330 P."A Ubangi"
11335 P."B Niger"
11340 P."C Senegal"
11345 RETURN
11400 P."Wie heisst dieser Fluss ?"
11406 C=1
11410 GOSUB 25500
11415 V=W+559
11420 GOSUB 21300
11425 R='A'
11430 P."A Sambesi"
11435 P."B Niger"
11440 P."C Lukuga"
11445 RETURN
11500 P."Wo liegt Zaire ?"
11505 P.
11506 C=1
11510 POKEW+463,65
11515 POKEW+625,66
11520 POKEW+105,67
11525 P."A,B oder C"
11530 R='A'
11535 RETURN
11600 P."Welches Land liegt hier ?"
11606 C=1
11610 V=W+104
11615 GOSUB 21300
11620 POKEV,175
11625 P."A Botswana"
11630 P."B Algerien"
11635 P."C Sudan"
11640 R='B'
11645 RETURN
11700 P."Wie heisst diese Insel ?"
11710 V=W+664
11715 GOSUB 21300
11720 P."A Sao Tome"
11725 P."B Malabo"
11730 P."C Madagaskar"
11735 R='C'
11740 RETURN
11800 P."Wo liegt Aegypten ?"
11805 P.
11806 C=1
11810 POKEW+463,65
11815 POKEW+623,66
11820 POKEW+112,67
11825 R='C'
11830 P."A,B oder C"
11835 RETURN
11900 P."Wie heisst diese Insel ?"
11910 V=W+2
11915 GOSUB 21300
11920 P."A Teneriffa"
11925 P."B Madeira"
11930 P."C Zanzibar"
11935 R='B'
11940 RETURN
12000 P."Welches Land liegt hier ?"
12006 C=1
12010 V=W+436
12015 GOSUB 21300
12020 POKEV,175
12025 P."A Kenia"
12030 P."B Namibia"
12035 P."C Mali"
12040 R='A'
12045 RETURN
12100 P."Wie heisst diese Insel ?"
12110 V=W+635
12115 GOSUB 21300
12120 P."A Pemba"
12125 P."B Las Palmas"
12130 P."C St.Denis"
12135 R='C'
12140 RETURN
12200 P."Wo liegt das Land Kongo ?"
12205 P.
12210 POKEW+498,65
12215 POKEW+428,66
12220 POKEW+362,67
12225 C=1
12230 R='B'
12233 P."A,B oder C"
12235 RETURN
12300 P."Wo liegt Sued-Afrika ?"
12305 P.
12310 POKEW+104,65
12315 POKEW+428,66
12320 POKEW+782,67
12325 C=1
12330 R='C'
12335 P."A,B oder C"
12340 RETURN
12400 P."Wo liegt Sao Tome ?"
12405 P.
12410 C=1
12415 POKEW+423,65
12420 POKEW+665,66
12425 POKEW+64,67
12430 R='A'
12435 P."A,B oder C"
12440 RETURN
12500 PRINT"Wie heisst dieses Land ?"
12505 V=W+311
12510 GOSUB21300
12515 POKEV,175
12520 C=1
12525 P."A Guinea"
12530 P."B Somalia"
12535 P."C Angola"
12540 R='B'
12545 RETURN
12600 P."Wo liegt der Aequador ?"
12604 J=64
12605 FORK=28TO796STEP64
12610 J=J+1
12615 POKEW+K+32,J
12620 NEXTK
12625 R='G'
12630 C=1
12635 RETURN
0  NW=HEX(EC00)
12700 P."Wo liegt Guinea ?"
12705 P.
12710 POKEW+362,65
12715 POKEW+290,66
12720 POKEW+782,67
12725 R='B'
12730 C=1
12735 P."A,B oder C"
12740 RETURN
12800 P."Wie heisst diese Inselgruppe ?"
12810 V=W+67
12815 GOSUB21300
12820 P."A Kanarische Inseln"
12825 P."B Azoren"
12830 P."C Seychellen"
12835 R='A'
12840 RETURN
12900 P."Wie heisst die Hauptstadt von   Mocambique ?"
12910 P."A Mombasa"
12915 P."B Malabo        C Maputo"
12925 R='C'
12930 RETURN
13000 P."Welches Meer grenzt hier an     Afrika ?"
13010 V=W+12
13015 GOSUB21300
13020 POKEV,175
13025 P."A Rotes Meer"
13030 P."B Totes Meer       C Mittelmeer"
13040 C=1
13045 R='C'
13050 RETURN
13100 P."Von welchem Land ist Addis Abebadie Hauptstadt ?"
13105 P."A Algerien"
13110 P."B Aethiopien    C Tansania"
13120 R='B'
13125 RETURN
13200 P."Wie heisst dieses Kap ?"
13205 V=W+814
13210 GOSUB21300
13215 P."A Kap Horn"
13220 P."B Kap Arkona"
13225 P."C Kap der guten Hoffnung"
13230 R='C'
13235 RETURN
13300 P."Wo liegt Kamerun ?"
13310 POKEW+496,65
13315 POKEW+104,66
13320 POKEW+362,67
13325 P.
13330 P."A,B oder C"
13335 R='C'
13340 C=1
13345 RETURN
13400 P."Wo liegt Tansania ?"
13405 P.
13410 POKEW+498,65
13415 POKEW+112,66
13420 POKEW+311,67
13425 P."A,B oder C"
13430 R='A'
13435 C=1
13440 RETURN
13500 P."Welche Wueste befindet sich in  diesem Gebiet ?"
13510 V=W+112
13515 GOSUB 21300
13520 POKEV,175
13525 C=1
13530 P."A Wueste Gobi"
13535 P."B Libysche Wueste      C Sahara"
13545 R='B'
13550 RETURN
13600 P."Wie gross ist die NORD-SUED-"
13605 P."Ausdehnung AFRIKA's ?"
13610 POKEW+12,164
13615 FOR O=44 TO 812 STEP 32
13620 POKEW+O,161
13625 NEXT O
13630 POKEW+812,162
13635 P.
13640 P."A 8000km  B 10000km  C 12000km"
13645 C=1
13650 R='A'
13695 RETURN
13700 P."Wie gross ist die WEST-OST-"
13705 P."Ausdehnung AFRIKA's ?"
13710 P.
13715 C=1
13720 R='C'
13725 POKEW+192,163
13730 FOR O=193 TO 216
13735 POKEW+O,160
13740 NEXT O
13745 POKEW+217,165
13750 P."A 4500km  B 6000km  C 7500km"
13755 RETURN
13800 P."Welcher Ozean grenzt hier an ?"
13805 V=W+67
13810 GOSUB21300
13815 V=W+394
13820 GOSUB21300
13825 V=W+684
13830 GOSUB21300
13835 P."A Stiller Ozean"
13840 P."B Antlantischer Ozean"
13845 P."C Indischer Ozean"
13850 R='B'
13855 RETURN
13900 P."Wie heisst die Hauptstadt von   Angola ?"
13905 P."A Lagos"
13910 P."B Lobito     C Luanda"
13930 R='C'
13935 RETURN
14000 P."Wie gross ist AFRIKA's Anteil"
14005 P."an der Weltproduktion von Gold ?"
14010 P."A ~37%    B ~65%     C ~79%"
14015 R='C'
14020 RETURN
20000 W=HEX(EC00)
20001 POKE(W+10),173
20002 POKE(W+9),158
20003 POKE(W+8),158
20004 POKE(W+7),147
20005 POKE(W+6),150
20006 POKE(W+5),147
20007 POKE(W+4),134
20008 POKE(W+36),152
20009 POKE(W+67),144
20010 POKE(W+98),174
20011 POKE(W+129),144
20012 POKE(W+161),159
20013 POKE(W+193),159
20014 POKE(W+224),153
20015 POKE(W+256),156
20016 POKE(W+289),159
20017 POKE(W+321),150
20018 POKE(W+322),135
20019 POKE(W+354),133
20020 POKE(W+355),149
20021 POKE(W+356),146
20022 POKE(W+357),149
20023 POKE(W+358),144
20024 POKE(W+359),158
20025 POKE(W+360),173
20026 POKE(W+393),158
20027 POKE(W+394),159
20028 POKE(W+425),153
20029 POKE(W+457),133
20030 POKE(W+458),135
20031 POKE(W+490),156
20032 POKE(W+523),155
20033 POKE(W+555),152
20034 POKE(W+587),159
20035 POKE(W+618),129
20036 POKE(W+651),155
20037 POKE(W+683),156
20038 POKE(W+716),159
20039 POKE(W+748),155
20040 POKE(W+780),156
20041 POKE(W+813),145
20042 POKE(W+814),248
20043 POKE(W+815),146
20044 POKE(W+816),132
20045 POKE(W+784),134
20046 POKE(W+785),132
20047 POKE(W+753),153
20048 POKE(W+722),144
20049 POKE(W+691),159;                POKE(W+659),174
20050 POKE(W+628),144
20051 POKE(W+596),192
20052 POKE(W+565),159
20053 POKE(W+532),156
20054 POKE(W+500),153
20055 POKE(W+469),152
20056 POKE(W+437),134
20057 POKE(W+438),132
20058 POKE(W+406),153
20059 POKE(W+375),172
20060 POKE(W+344),152
20061 POKE(W+312),153
20062 POKE(W+280),149
20063 POKE(W+279),146
20064 POKE(W+310),130
20065 POKE(W+277),145
20066 POKE(W+244),171
20067 POKE(W+212),159
20068 POKE(W+179),156
20069 POKE(W+147),135
20070 POKE(W+146),133
20071 POKE(W+114),155
20072 POKE(W+82),159
20073 POKE(W+49),149
20074 POKE(W+48),146
20075 POKE(W+47),149
20076 POKE(W+46),150
20077 POKE(W+45),153
20078 POKE(W+77),132
20079 POKE(W+76),133
20080 POKE(W+44),135
20081 POKE(W+43),150
20082 POKE(W+600),135
20083 POKE(W+632),152
20084 POKE(W+663),153
20085 POKE(W+695),152
20086 POKE(W+726),144
20087 POKE(W+725),129
20088 POKE(W+694),159
20089 POKE(W+662),128
20090 POKE(W+630),144
20091 POKE(W+599),146
20092 POKE(W+424),211
20094 POKE(W+666),216
20095 POKE(W+597),215
20096 POKE W+598,218;                 POKE W+1,218
20097 POKE W+64,219;                  POKE W+65,217
20098 POKE W+66,216;                  POKE W+97,211
20099 RETURN
21000 POKE HEX(1B),0
21010 POKE HEX(1C),HEX(EC)
21020 POKE HEX(1D),0
21030 POKE HEX(1E),HEX(F0)
21035 CALL HEX(F6D1)
21040 O.12
21050 RETURN
21100 POKE HEX(1B),HEX(60)
21110 POKE HEX(1C),HEX(EF)
21120 POKE HEX(1D),0
21130 POKE HEX(1E),HEX(F0)
21135 CALL HEX(F6D1)
21140 O.12
21150 RETURN
21200 GOSUB 21000
21210 GOSUB 21100
21220 GOSUB 20000
21230 RETURN
21300 @(0)=PEEK(V)
21301 @(1)=PEEK(V+1)
21302 @(2)=PEEK(V+2)
21303 @(3)=PEEK(V+32)
21304 @(4)=PEEK(V+33)
21305 @(5)=PEEK(V+34)
21310 FOR D=0 TO 12
21320 POKEV,190
21330 POKEV+1,251
21340 POKEV+2,251
21350 POKEV+32,191
21360 POKEV+33,182
21370 POKEV+34,182
21380 FOR J=0 TO 9
21390 NEXT J
21400 POKEV,@(0)
21410 POKEV+1,@(1)
21420 POKEV+2,@(2)
21430 POKEV+32,@(3)
21440 POKEV+33,@(4)
21450 POKEV+34,@(5)
21460 NEXT D
21470 RETURN
21500 O.12
21505 RETURN
21600 F=INCHAR
21605 IF F=R P=P+1
21610 IF F=R P."                  ...Richtig",
21615 IF F#R P."                   ...Falsch",
21620 FOR K=0 TO 1000;NEXT K
21625 RETURN
25000 POKEW+81,152
25005 POKEW+113,145
25010 POKEW+145,192
25015 POKEW+177,153
25020 POKEW+209,133
25025 POKEW+210,149
25030 POKEW+242,144
25035 POKEW+274,155
25040 POKEW+306,152
25045 POKEW+337,129
25050 POKEW+369,192
25055 POKEW+401,172
25060 RETURN
25100 POKEW+434,131
25110 POKEW+466,130
25120 RETURN
25200 POKEW+491,147
25205 POKEW+460,152
25210 POKEW+428,134
25215 POKEW+429,132
25220 POKEW+397,134
25225 POKEW+398,149
25230 POKEW+431,173
25235 POKEW+463,192
25240 POKEW+496,155
25245 POKEW+528,132
25250 RETURN
25300 POKEW+361,159
25305 POKEW+328,156
25310 POKEW+296,155
25315 POKEW+263,145
25320 POKEW+230,173
25325 POKEW+229,174
25330 POKEW+260,147
25335 POKEW+259,134
25340 POKEW+291,132
25345 POKEW+290,134
25350 RETURN
25400 POKEW+235,16
25405 POKEW+267,210
25410 RETURN
25500 POKEW+558,131
25505 POKEW+590,192
25510 POKEW+623,171
25515 POKEW+624,146
25520 POKEW+625,147
25525 POKEW+626,173
25530 POKEW+627,248
25535 RETURN
25600 POKEW+530,192
25605 POKEW+531,155
25610 POKEW+562,192
25615 POKEW+563,152
25620 RETURN
61464 !563,152
25620 RETURN
17746