Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
2 A1$="HEIMCOMPUTER robotron Z9001"
4 A2$="LEHRE UND LERNEN":A9=5
6 A3$="R+AFRI2"
8 A4$="WISSENSTEST"
10 A5$="GEOGRAPHIE - AFRIKA"
12 REM VERFASSER:Richter,Koenig,Kuechler
14 REM ANSCHRIFT:RED/PSF
16 REM DATUM 05.10.1984 VERSION 125789
18 WINDOW:CLS
20 BORDER A9:INK 8:PAPER 1:CLS:E0$=">ENTER<"
22 PRINT AT(2,2);A1$:PRINT AT(4,2);"",STRING$(34,""),""
24 PRINT AT(5,2);"":PRINT AT(5,37);""
26 PRINT AT(6,2);"",STRING$(34,""),""
28 PRINT AT(5,3);A2$:PRINT INK 3;AT(5,29);A3$
30 INK A9:PRINT AT(8,2);STRING$(36,"")
32 FOR J=9 TO 13:PRINT AT(J,2);"":PRINT AT(J,37);"":NEXT J
34 PRINT AT(14,2);STRING$(36,"")
36 INK 8:PRINT AT(10,36-LEN(A4$));A4$:PRINT AT(12,36-LEN(A5$));A5$
38 INK 3:PRINT AT(18,2);"VEB ROBOTRON-MESSELEKTRONIK"
40 PRINT AT(20,2);">OTTO SCHOEN< DRESDEN":Z=22:S=31:C=4:GOSUB 42:GOTO 48
42 PRINT INK C;AT(Z,S);E0$
44 PRINT AT(0,0);" "
46 T$=INKEY$:IF T$=""THEN 46 ELSE RETURN
48 DATA 11,4391,1,1,1,37,1,1,39,1,39,1
50 DATA 5,5038,39,1,38,1
52 DATA 10,4544,178,1,183,1,183,38,181,1,255,1,255,38,177,1,255,1,255
54 DATA 39,177,1,182,"TANSANIA","DARESSALAM"
56 DATA 10,4419,190,1,179,38,178,1,255,1,176,38,186,1,255,39,189
58 DATA 1,142,39,177,1,176,"MADAGASKAR","TANANARIVE"
60 DATA 7,5116,196,1,178,37,178,1,186,1,255,1,255,37,186,1,176
62 DATA "MAROKKO","RABAT"
64 DATA 11,4505,181,1,187,37,186,1,255,1,183,1,188,36,181,1,255,1,182
66 DATA 1,182,37,177,1,176,"SAMBIA","LUSAKA"
68 DATA 13,4998,178,1,143,38,186,1,255,1,180,37,189,1,255,1,255,1,180,37
70 DATA 177,1,189,1,255,1,180,38,177,"MAURETANIEN","NUWAKSCHUT"
72 DATA 3,4584,1,40
74 DATA 4,4464,1,39,1
76 DATA 2,4544,40
78 DATA 4,4830,1,39,1
80 DATA "GABUN",4,4631,1,39,1
82 DATA "SENEGAL",4,4840,1,39,1
84 DATA "TUNESIEN",4,5113,1,39,1
86 DATA "BOTSWANA",7,4387,39,1,1,38,1,1,
88 DATA "DJIBOUTI",3,4821,40,1
90 DATA 4,4989,1,39,1,45
92 DATA 33,4798,144,-39,172,-39,146,1,149,41,145,41,159,40,145,40,192
94 DATA 130,152,-40,153,-40,145,-40,152,-40,153,-40,192,-40,145,-1
96 DATA 154,-40,159,-40,152,-40,155,-41,156,-40,154
98 DATA 600,153,-40,192,-40,156,-40,155,-41,173,-1,174,39,147,-1
100 DATA 146,39,172
102 DATA 284,147,-1,150,-41,248,-1,248
104 DATA 3,4466,1,39
106 CLS:OUT 136,4:CLS:CLEAR 300
108 PRINT:PRINT:PRINT " WUENSCHEN SIE NACH JEDER ANTWORT"
110 PRINT " DIE AUSSAGE RICHTIG/FALSCH:";
112 INPUT " J/(N)";F$
114 PRINT:PRINT:PRINT " WOLLEN SIE, DASS DAS RICHTIGE ERGEBNIS ERSCHEINT:";
116 INPUT " J/(N)";G$
118 DIM R(40),S(40),T(40),Q(28),B$(6),A$(6):RA=0:FA=0:WINDOW 0,23,0,39:CLS
120 BORDER 1:PRINT AT(23,23);"0 VON 0 PUNKTEN":Z=0
122 FOR I=1 TO 28:Q(I)=I:NEXT I
123 DATA 4873,4506,4307,4744
124 GOSUB 714:RESTORE 123
125 DATA "NIGER","KONGO","ORANJE","NIL"
126 FOR I=1 TO 4:READ AR:POKE-AR,48+I:POKE-AR-1024,64:NEXT I
127 INK 4:PRINT:PRINT "WIE HEISSEN":PRINT "DIESE FLUESSE?":PRINT:PRINT
128 RESTORE 125:FOR I=1 TO 4
129 INK 6:WINDOW 4+I*2,6+I*2,23,39:PRINT I;:INPUT " - ";A$(1)
130 READ B$(1):IF A$(1)=""THEN VV=1:GOTO 132
131 IF INSTR(B$(1),A$(1))>0 THEN RA=RA+1:ELSE VV=1
132 WINDOW 15,22,23,39:CLS:GOSUB 646:GOSUB 858:CLS
133 NEXT I:RESTORE 123:FOR I=1 TO 4:READ AR:POKE-AR,32:NEXT I
152 FOR I=1 TO 28
154 M=3:Z=18:MM=7
156 F=INT(RND(1)*(30-I)):IF F=0 THEN 156:ELSE NF=Q(F)
158 IF F=28 THEN 156
160 FOR J=1 TO 29-I-F:Q(F+J-1)=Q(F+J):NEXT J
162 VV=0:F=NF:D=0
164 IF F>1 THEN 170
166 GOSUB 714:B$="NAMIBIA":RESTORE 48:GOSUB 562
168 B$="WESTSAHARA":RESTORE 50:GOSUB 562:GOTO 502
170 IF F>6 THEN 204
172 GOSUB 714:FV=32
174 IF F=2 THEN RESTORE 52
176 IF F=3 THEN RESTORE 56
178 IF F=4 THEN RESTORE 60
179 IF F=5 THEN RESTORE 64
180 IF F=6 THEN RESTORE 68
181 WINDOW 0,21,23,39:CLS:GOSUB 544:INK 4
182 PRINT:PRINT " WELCHER STAAT":PRINT " IST DAS?":PRINT:INK 6:INPUT " -> ";A$(1)
183 READ B$(1):INK 4:IF A$(1)=""THEN VV=1:GOTO 185
184 IF INSTR(B$(1),A$(1))>0 THEN RA=RA+1:ELSE VV=1
185 GOSUB 646:GOSUB 858:INK 4
186 IF F<>4 THEN 194
187 PRINT:PRINT " WICHTIGE EXPORT- GUETER:":PRINT:PRINT " PHOSPHAT (!),"
188 PRINT " MANGAN,BLEIERZ, TEXTILIEN,":PRINT " NAHRUNGSMITTEL"
189 PAUSE 150:CLS
194 PRINT:PRINT " WIE HEISST DIE":PRINT " HAUPTSTADT?"
196 PRINT
198 W=RA:INK 6:INPUT " -> ";A$(1):READ B$(1):IF A$(1)=""THEN VV=1:GOTO 202
200 IF INSTR(B$(1),A$(1))>0 THEN RA=RA+1:ELSE VV=1
202 D=9:GOSUB 678:GOSUB 646:GOSUB 858:GOTO 502
204 IF F>7 THEN 234
206 B$(1)="SWASILAND":B$(2)="LESOTHO"
208 KO=0:GOSUB 506:INK 4
210 PRINT:PRINT:PRINT " WELCHE STAATEN WERDEN VON SUEDAFRIKA"
212 PRINT " EINGESCHLOSSEN?":PRINT:PRINT:M=2
214 INK 2:INPUT " -> ";A$(1)
216 IF A$(1)=""THEN 220
218 IF INSTR(B$(1),A$(1))>0 OR INSTR(B$(2),A$(1))>0 THEN RA=RA+1:ELSE VV=2
220 GOSUB 646:INPUT " -> ";A$(2)
222 IF A$(2)=""THEN VV=2:GOTO 232
224 IF INSTR(B$(1),A$(2))>0 OR INSTR(B$(2),A$(2))>0 THEN RA=RA+1:ELSE VV=2
226 IF A$(1)=""THEN 232
228 IF INSTR(B$(1),A$(1))>0 AND INSTR(B$(1),A$(2))>0 THEN RA=RA-1:VV=2
230 IF INSTR(B$(2),A$(1))>0 AND INSTR(B$(2),A$(2))>0 THEN RA=RA-1:VV=2
232 GOSUB 646:GOSUB 858:GOTO 502
234 IF F>8 THEN 286
236 KO=0:GOSUB 506:INK 4
238 DATA "VICTORIA","MALAWI","TANGANJIKA","TSCHAD"
240 PRINT:PRINT:PRINT " NENNEN SIE DIE 4 GROSSEN SEEN"
242 PRINT " AFRIKAS!":PRINT:PRINT:M=4:MM=MM-1
244 RESTORE 238:FOR JJ=1 TO 4:READ B$(JJ):NEXT JJ
246 FOR J=1 TO 4:INK 2:INPUT " -> ";A$(J)
248 IF A$(J)=""THEN VV=-4:GOTO 260
250 IF J=1 THEN 258
252 FOR JJ=1 TO J-1:IF A$(JJ)=""THEN GOTO 256
254 IF INSTR(A$(J),A$(JJ))>0 THEN VV=-4:GOTO 260
256 NEXT JJ
258 FOR JJ=1 TO 4:IF INSTR(B$(JJ),A$(J))>0 THEN RA=RA+1:GOTO 260:ELSE NEXT JJ:VV=-4
260 GOSUB 646:NEXT J:GOSUB 858:WINDOW 10,22,0,39:CLS
262 INK 4:PRINT:PRINT:PRINT " ( DER MALAWISEE HIESS FRUEHER"
264 PRINT " NJASSASEE! )":PRINT:PRINT SPC(4);"IM GEBIET UM DEN";
266 PRINT " TSCHADSEE":PRINT SPC(4);"(SAHELZONE) KOMMT ES DURCH HAEUFIG"
268 PRINT SPC(4);"AUFTRETENDE DUERREKATASTROPHEN"
270 PRINT SPC(4);"OFT ZU HUNGERSNOETEN.":PAUSE 90
272 GOSUB 714
274 FOR J=1 TO 4:RESTORE 238
276 FOR JJ=1 TO J:READ B$:NEXT JJ:C$="DEN":D=2:FV=100:IF J=1 THEN RESTORE 72
278 IF J=2 THEN RESTORE 74
280 IF J=3 THEN RESTORE 76
282 IF J=4 THEN RESTORE 78
284 B$=B$+"SEE":GOSUB 562:NEXT J:D=0:GOTO 502
286 IF F>13 THEN 300
288 GOSUB 714:FV=100:IF F=13 THEN RESTORE 80
290 IF F=9 THEN RESTORE 82
292 IF F=10 THEN RESTORE 84
294 IF F=11 THEN RESTORE 86
296 IF F=12 THEN RESTORE 88
298 READ B$:GOSUB 562:GOTO 502
300 IF F>14 THEN 338
302 KO=0:GOSUB 506:INK 4
304 PRINT:PRINT:PRINT " WELCHER AFRIKANISCHE STAAT HAT DIE"
306 PRINT " MEISTEN EINWOHNER?":PRINT:PRINT
308 INK 2:INPUT " -> ";A$(1):B$(1)="NIGERIA"
310 IF A$(1)=""THEN GOTO 312:ELSE IF INSTR(B$(1),A$(1))>0 THEN RA=RA+1:ELSE VV=1
312 IF A$(1)=""THEN VV=1
314 GOSUB 646
316 INK 4:GOSUB 858:PRINT:PRINT:PRINT " WIEVIEL MENSCHEN LEBEN IN NIGERIA?"
318 PRINT " A,B ODER C":PRINT:A$(1)=""
320 PRINT " A=75 MIO B=100 MIO C=20 MIO":PRINT:PRINT
322 INK 2:INPUT " -> ";A$(1):B$(1)="A"
324 IF A$(1)=""THEN VV=1:GOTO 336
326 IF INSTR("A",A$(1))>0 THEN S=1
328 IF INSTR("B",A$(1))=0 THEN T=1
330 IF INSTR("C",A$(1))=0 THEN U=1
332 IF S=1 AND T=1 AND U=1 THEN RA=RA+1:ELSE VV=1
334 S=0:T=0:U=0
336 GOSUB 646:GOSUB 858:GOTO 502
338 IF F>15 THEN 352
340 GOSUB 756:INK 4:PRINT:PRINT "WIE HEISST DIE":PRINT "HAUPTSTADT"
342 PRINT "AEGYPTENS?":PRINT:PRINT
344 INK 6:INPUT " -> ";A$(1):B$(1)="KAIRO":IF A$(1)=""THEN VV=1:GOTO 348
346 IF INSTR("KAIRO",A$(1))>0 THEN RA=RA+1:ELSE VV=1
348 GOSUB 646:GOSUB 858:WINDOW 8,21,23,39:CLS
350 PRINT:B$="KAIRO":RESTORE 90:GOSUB 562:GOTO 502
352 IF F>16 THEN 368
354 WINDOW 0,21,24,39:CLS:GOSUB 756
356 INK 4:PRINT:PRINT " WIE HEISST":PRINT " DIESE STADT?"
358 B$(1)="PORT SAID":Y=5065:GOSUB 694
360 PRINT:PRINT " DER SUEZKANAL:":PRINT:PRINT " -EROEFFNET 1869"
362 PRINT " -LAENGE 173 KM
364 PRINT " -ZWISCHEN SUEZ":PRINT " UND PORT SAID":PRINT " -VERKUERZT DEN"
366 PRINT " SEEWEG NACH":PRINT " ASIEN.":PAUSE 150:GOTO 502
368 IF F>17 THEN 374
370 GOSUB 756:INK 4:PRINT:PRINT " WIE HEISST":PRINT " DIESES MEER?"
372 B$(1)="MITTELMEER":Y=5112:GOSUB 694:GOTO 502
374 IF F>18 THEN 380:ELSE GOSUB 756
376 INK 4:PRINT:PRINT " WIE HEISST":PRINT " DIESER":PRINT " MEERESTEIL?"
378 B$(1)="GOLF VON SUEZ":Y=4864:GOSUB 694:GOTO 502
380 IF F>19 THEN 388:ELSE GOSUB 756
382 INK 4:PRINT:PRINT " WIE HEISST":PRINT " DIESER":PRINT " NACHBARSTAAT"
384 PRINT " AEGYPTENS?"
386 B$(1)="LIBYEN":Y=4600:GOSUB 694:GOTO 502
388 IF F>20 THEN 396:ELSE GOSUB 756
390 INK 4:PRINT:PRINT " WIE HEISST":PRINT " DIESER":PRINT " NACHBARSTAAT"
392 PRINT " AEGYPTENS?"
394 B$(1)="ISRAEL":Y=5018:GOSUB 694:GOTO 502
396 IF F>21 THEN 432:ELSE KO=0:GOSUB 506
398 PRINT:PRINT:INK 4:PRINT " WIE LANG IST DER NIL? (A,B ODER C)":PRINT
400 PRINT " A=5673 KM B=6671 KM C=6982 KM":PRINT:PRINT
402 INK 2:INPUT " -> ";A$(1):IF A$(1)=""THEN VV=1:GOTO 410
404 IF INSTR("A",A$(1))>0 THEN VV=1:GOTO 410
406 IF INSTR("C",A$(1))>0 THEN VV=1:GOTO 410
408 IF INSTR("B",A$(1))>0 THEN RA=RA+1:ELSE VV=1
410 B$(1)="B":GOSUB 646:GOSUB 858:GOSUB 506:PRINT
412 INK 4:PRINT:PRINT " WIE HEISSEN DIE STROMSCHNELLEN":PRINT " DES NILS?"
414 PRINT:PRINT:INK 2:INPUT " -> ";A$(1):B$(1)="KATARAKTE"
416 IF A$(1)=""THEN VV=1:GOTO 420
418 IF INSTR(B$(1),A$(1))>0 THEN RA=RA+1:ELSE VV=1
420 GOSUB 646:GOSUB 858:INK 4:PRINT:PRINT
422 PRINT " WIEVIEL KATARAKTE BESITZT":PRINT " DER NIL?":PRINT:PRINT
424 K=0
426 INK 2:INPUT " -> ";A$(1):IF A$(1)=""THEN VV=1:GOTO 430
428 B$(1)="6":IF INSTR("6",A$(1))>0 THEN RA=RA+1:ELSE VV=1
430 B$(1)="6":GOSUB 646:GOSUB 858:GOTO 502
432 IF F>22 THEN 440
434 GOSUB 822:INK 4:PRINT "DIE HAUPTSTADT":PRINT "VON MOCAMBIQUE"
436 PRINT "IST MAPUTO."
438 B$="MAPUTO":RESTORE 104:GOSUB 562:GOTO 502
440 IF F>23 THEN 446
442 B$="KAP DER GUTEN HOFFNUNG":GOSUB 822:RESTORE 880
444 INK 4:PRINT:PRINT "ZEIGEN SIE DAS":GOSUB 570:GOTO 502
446 IF F>24 THEN 462
448 GOSUB 822:PRINT:INK 4:PRINT "WIE HEISST DER"
450 PRINT "NOERDLICHE FLUSS?":PRINT:PRINT
452 B$(1)="SAMBESI"
454 INK 6:INPUT "-> ";A$(1)
456 IF A$(1)=""THEN VV=1:GOTO 460
458 IF INSTR(B$(1),A$(1))>0 THEN RA=RA+1:ELSE VV=1
460 GOSUB 646:GOSUB 858:GOTO 502
462 IF F>25 THEN 478
464 GOSUB 822:INK 4:PRINT:PRINT "WIE HEISST DIE":PRINT "PROVINZ ANGOLAS,"
466 PRINT "DIE SICH AUSSER-":PRINT "HALB DES EIGENT-":PRINT "LICHEN"
468 PRINT "TERRITORIUMS":PRINT "BEFINDET?":PRINT:PRINT
470 INK 6:INPUT "->";A$(1):B$(1)="CABINDA":IF A$(1)=""THEN VV=1:GOTO 474
472 IF INSTR(B$(1),A$(1))>0 THEN RA=RA+1:ELSE VV=1
474 GOSUB 858
476 GOSUB 646:PRINT:B$="DIE PROVINZ":RESTORE 890:GOSUB 562:GOTO 502
478 IF F>26 THEN 494
480 GOSUB 822:INK 7:WINDOW 13,18,4,8:CLS:PRINT STRING$(25,"");
482 WINDOW 0,22,23,39:CLS:INK 4:PRINT:PRINT "WIE HEISST"
484 PRINT "DIESES GROSSE":PRINT "TROCKENGEBIET IM":PRINT "SUEDEN AFRIKAS?"
486 PRINT:PRINT:INK 6:INPUT "->";A$(1):B$(1)="KALAHARI"
488 IF A$(1)=""THEN VV=1:GOTO 492
490 IF INSTR(B$(1),A$(1))>0 THEN RA=RA+1:ELSE VV=1
492 GOSUB 646:GOSUB 858:WINDOW 13,18,4,8:CLS:GOTO 502
494 IF F>27 THEN 500
496 GOSUB 822:INK 4:PRINT "DIE HAUPTSTADT":PRINT "VON ANGOLA IST":PRINT "LUANDA."
498 B$="LUANDA":RESTORE 892:GOSUB 562:GOTO 502
500 GOSUB 822:B$="KINSHASA":RESTORE 894:GOSUB 562
502 NEXT I
504 GOTO 896
506 REMUP LOESCHEN
508 FOR ZU=4200 TO 4178 STEP-1:POKE-ZU,32:NEXT ZU
510 WINDOW 0,22,0,39:BORDER 1:CLS
512 RETURN
514 REM UP KARTE ZEICHNEN
516 YF=PEEK(-4177-1024)
518 Y=PEEK(X-4177):POKE-4177,32
520 WINDOW 0,23,0,23:CLS
522 POKE X-4177,Y
524 POKE-4177-1024,YF
526 ZZ=0
528 READ ZE
530 IF ZE>0 THEN PRINT CHR$(ZE);:GOTO 528
532 IF ZE<0 THEN PRINT TAB(ABS(ZE));:GOTO 528
534 ZZ=ZZ+1
536 IF ZZ<24 THEN PRINT:GOTO 528
538 PAPER 1
540 WINDOW 0,22,23,39:CLS
542 RETURN
544 REM UP FLAECHENFUELLEN
546 READ AN,BW,ZE:T(1)=PEEK(-BW-1024):R(1)=-BW:S(1)=PEEK(-BW):POKE-BW-1024,FV
548 POKE X-BW,ZE:K=1
550 FOR J=1 TO AN
552 READ AD,ZE:BW=BW-AD:AR=-BW:GOSUB 668
554 POKE-BW-1024,FV:POKE X-BW,ZE
556 NEXT J
558 D=9
560 RETURN
562 REM UP ZEIGEN
564 INK 4:FV=100
566 PRINT:PRINT "ZEIGEN SIE BITTE"
568 IF D=2 THEN PRINT C$
570 INK 6:PRINT B$;"!":PRINT:AR=4746
572 WINDOW 18,18,23,39:CLS
574 SP=AR
576 S(2)=PEEK(-SP-1024)
578 S(1)=PEEK(X-SP):INK 7
580 POKE-AR-1024,FV
582 POKE X-AR,207
584 INK 1:CLS:C$=INKEY$:IF C$=""THEN 584
586 A=ASC(C$)
588 IF A=8 THEN AD=1
590 IF A=11 THEN AD=40
592 IF A=9 THEN AD=-1
594 IF A=10 THEN AD=-40
596 IF A=13 THEN 606
598 AR=AR+AD
600 POKE-SP-1024,S(2)
602 POKE X-SP,S(1)
604 GOTO 574
606 READ AN,BW
608 VV=INT(AN/2)
610 IF BW=SP THEN RA=RA+1:GOTO 636
612 FOR L=1 TO AN-1
614 READ AD:BW=BW-AD
616 IF L<>VV THEN 622
618 IF PEEK(-BW)<>32 THEN VV=VV+1:GOTO 622
620 IF L=VV THEN VV=BW
622 IF BW=SP THEN RA=RA+1:GOTO 636
624 NEXT L
626 IF G$<>"J"THEN 636
628 FOR L=1 TO 8
630 IF L/2-INT(L/2)>0 THEN POKE-VV,255:ELSE POKE-VV,32
632 BEEP:PAUSE 2
634 NEXT L
636 POKE-SP-1024,S(2)
638 POKE X-SP,S(1)
640 IF D=3 THEN WINDOW 10,21,23,39:CLS:D=0:GOTO 644
642 WINDOW 0,21,23,39:CLS
644 GOSUB 646:RETURN
646 REM UP AUSWERTUNG
648 IF F$<>"J"THEN 658
650 KH=RA
652 IF W<KH THEN PRINT INK 5;AT(21,32);"RICHTIG":GOTO 656
654 PRINT INK 2;AT(21,32);"FALSCH"
656 PAUSE 10:PRINT AT(21,32);" "
658 GA=GA+1:PRINT INK 3;AT(23,22);RA,"VON",GA,"PUNKTEN"
666 W=RA:RETURN
668 REM UP ZEICHEN SICHERN
670 K=K+1
672 R(K)=AR
674 S(K)=PEEK(AR):T(K)=PEEK(AR-1024)
676 RETURN
678 REM UP RUECKSETZEN
680 IF D<>9 THEN 692
682 D=0
684 FOR K=1 TO AN+1
686 POKE X+R(K),S(K)
688 POKE+R(K)-1024,T(K)
690 NEXT K
692 RETURN
694 REM UP FRAGEN
696 SF=PEEK(-Y-1024):POKE-Y-1024,80
698 PRINT:PRINT:SP=PEEK(X-Y):POKE X-Y,255:INK 6
700 IF D=1 THEN PRINT:INPUT "->";A$(1):INK 4:ELSE INPUT " ->";A$(1):INK 4
702 POKE X-Y,SP
704 POKE-Y-1024,SF
706 IF A$(1)=""THEN VV=1:GOTO 710
708 IF INSTR(B$(1),A$(1))>0 THEN RA=RA+1:ELSE VV=1
710 GOSUB 646:GOSUB 858
712 RETURN
714 REM UP AFRIKA
716 M=1:Z=0:MM=9
718 IF KO=1 THEN GOSUB 678:WINDOW 0,21,23,39:CLS:GOTO 754
720 KO=1:INK 2:BORDER 1:PAPER 1:FV=100
722 GOSUB 506
724 DATA-4,157,146,147,158,155,0
726 DATA-2,134,147,-8,133,149,32,134,149,248,248,248,146,135,0
728 DATA-2,152,-10,150,132,-17,152,0,134,147,-17,155,0
730 DATA 152,-17,156,0,155,-18,155,0,156,-18,156,0
732 DATA 153,-19,145,32,146,135,0,152,-20,130,32,152,0,145,-22,159,0
734 DATA 32,150,149,-22,159,0,-3,150,147,158,158,158,150,135,-21,153,0
736 DATA-8,134,132,-21,152,0,-8,156,-20,144,0,-8,192,-19,174,0
738 DATA-9,145,-19,159,0,-9,192,-19,159,0,-9,153,-19,155,32,174,155,0
740 DATA-9,152,-18,146,132,153,32,152,0,-9,145,-17,153,-20,152,32,159,0
742 DATA-10,155,-16,134,132,-20,155,153,0,-10,156,-16,152,-20,133,132,0
744 DATA-11,155,-15,144,0,-11,156,248,146,147,0
746 RESTORE 724
748 GOSUB 514:RESTORE 92:FV=64
750 PRINT INK 4;AT(12,0);"--------":PRINT INK 4;AT(12,10);"-----------"
752 PRINT INK 4;AT(12,22);"-":PRINT INK 4;AT(12,0);"0":GOSUB 544
754 RETURN
756 REM UP AEGYPTEN
758 M=1:Z=0:MM=9
760 IF KO=2 THEN GOSUB 678:WINDOW 0,21,23,39:CLS:GOTO 754
762 KO=2:BORDER 1:INK 2:FV=100
764 GOSUB 506
766 DATA-11,248,248,146,149,248,-21,152,0
768 DATA 137,158,158,130,150,149,248,32,248,131,144,154,154,-16,150
770 DATA 149,146,149,172,155,0,192,-7,130,-11,156,152,-21,152,0
772 DATA 192,-11,192,-14,134,149,-21,155,0
774 DATA 192,-11,192,-14,156,32,155,-21,156,144,0
776 DATA 192,-12,159,-15,155,156,-21,153,159,0
778 DATA 192,-12,159,-15,156,32,159,-21,152,151,0
780 DATA 192,-11,153,-16,159,159,-20,153,153,0
782 DATA 192,-11,156,-16,155,171,-20,152,152,0
784 DATA 192,-11,153,-16,133,135,145,144,32,145,0
786 DATA 192,-11,156,-17,156,-22,155,0,192,-12,173,-18,155,-22,156,0
788 DATA 192,-13,145,131,146,135,32,156,0,192,-15,134,132,-19,155,0
790 DATA 192,-15,133,135,-19,156,0,192,-16,152,-20,155,0
792 DATA 192,-15,192,-20,156,0,192,-15,192,-21,155,0
794 DATA 192,-16,155,-21,156,0,192,-16,152,-22,155,0
796 DATA 192,-15,172,-22,152,0,192,-14,174,-21,172,145,0
798 DATA 192,248,248,248,248,248,248,248,248,248,248,248,248,248,159
800 DATA 248,248,248,248,131,129,0,192,-13,192,158,-20,130,0
802 RESTORE 766
804 GOSUB 514
806 DATA 5069,1,39,1,39,40,41,40,39,40,40,40,41,41,1,1,1,40
808 DATA-1,40,1,40,39,40,41,40,39,39,40,39
810 RESTORE 806:READ BW:POKE-BW-1024,64
812 FOR BB=1 TO 29
814 READ AD:POKE-BW+AD-1024,64
816 BW=BW-AD
818 NEXT BB
820 RETURN
822 REMUP SUEDAFRIKA
824 M=0:Z=0:MM=9
826 IF KO=3 THEN GOSUB 678:WINDOW 0,21,23,39:CLS:GOTO 856
828 KO=3:BORDER 1:INK 2:FV=100
830 GOSUB 506
832 DATA 192,158,158,158,158,158,158,158,158,158,158,158,158,158,158
834 DATA 158,158,158,158,158,137
836 DATA 0,153,-20,174,0,133,135,-20,159,0,-1,156,-19,153,0
838 DATA-1,192,-19,156,0,-2,155,-20,159,0,-2,156,-20,155,0
840 DATA-2,192,-20,156,0,-2,192,-20,153,0,-2,153,-20,152,0
842 DATA-2,152,-19,153,0,-1,192,-19,152,0,-1,153,-18,144,0
844 DATA-1,156,-16,134,147,0,-1,192,-16,156,0,-2,155,-17,159,0
846 DATA-2,156,-16,172,0,-2,192,-14,174,158,0,-3,155,-13,153,0
848 DATA-3,156,-13,152,0,-4,155,-12,144,0,-4,156,-11,144,0
850 DATA-4,192,-9,146,147,0,-5,150,147,158,158,0
852 RESTORE 832
854 GOSUB 514:RESTORE 882:FV=64:GOSUB 544:GOSUB 544:FV=100
856 RETURN
858 REM
860 IF VV=0 OR G$<>"J"GOTO 878
862 INK 6:PRINT:PRINT SPC(M);"RICHTIG:";SPC(MM);
864 FOR II=1 TO ABS(VV)
866 FOR JJ=1 TO ABS(VV)
868 IF A$(JJ)=B$(II)THEN JJ=ABS(VV):GOTO 876
870 NEXT JJ
872 INK 7:PRINT TAB(Z);B$(II);:IF VV<0 THEN PRINT "SEE":ELSE PRINT
874 INK 4
876 NEXT II:PAUSE 30:VV=0
878 RETURN
880 DATA 3,4236,1,40
882 DATA 12,4753,174,40,155,40,156,41,171,1,248,41,130,-39,146,1,147:INK 5
884 DATA-39,146,1,147,1,150,1,149,41,145
886 DATA 8,4388,144,39,130,-41,248,-1,131,39,172,-1,248,39,147
888 DATA-1,150,-41,131
890 DATA 5,4999,1,1,39,1
892 DATA 3,4878,1,40
894 DATA 6,4997,1,1,38,1,1
896 BORDER 2:PAPER 4:INK 5:CLS
898 WINDOW 0,23,0,39:CLS
900 WINDOW 6,23,0,39
902 PRINT " DAMIT IST UNSER WISSENSTEST UEBER"
904 PRINT " AFRIKA BEENDET.":PRINT:PRINT
906 PRINT " VON 51 MOEGLICHEN PUNKTEN ERREICHTEN"
908 PRINT " SIE";RA;"."
910 PR=(RA*100)/51:PRINT
912 PR=(INT(PR*100))/100
914 PRINT " DAS SIND";PR;"%."
916 IF PR>=96 THEN Z=1:GOTO 926
918 IF PR>=80 THEN Z=2:GOTO 926
920 IF PR>=60 THEN Z=3:GOTO 926
922 IF PR>=38 THEN Z=4:GOTO 926
924 Z=5
926 PRINT:PRINT " IN DER SCHULE WAERE DAS EINE";:INK 6:PRINT Z;:INK 5:PRINT "."
928 PRINT AT(16,0);" ":PAUSE 150
930 CLS:PRINT AT(12,11);"AUF WIEDERSEHEN!":PRINT AT(0,0);" ":PAUSE 20
932 WINDOW 0,23,0,39:PAPER 1:BORDER 1:INK 4:CLS:END