Screenshot 1 Screenshot 2
2bc0 3c85 0000 B ... GEO-TEST
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

   10 WINDOW:CLS
   20 REM STRINGVEREINBARUNGEN
   30 R$="RICHTIG":NR$="FALSCH"
   40 A$=" IST DAS ?":RA$="LAUTET DIE RICHTIGE ANTWORT" 
   50 L$="WELCHES LAND":S$="WELCHE STADT"
   60 I$="WELCHE INSEL":F$="WELCHER FLUSS"
   70 G$="WELCHES GEBIRGE"
   80 N$="WELCHES NACHBARLAND":B$="WELCHE BEZIRKSSTADT"
   90 PRINT AT(12,7);"WISSENSTEST  D D R":PAUSE 50
  100 REM UMRISS DDR 
  110 CLS:RESTORE 3000:FOR N=1 TO 74:READ X,Y,Z 
  120 PRINT AT(X,Y);CHR$(Z):NEXT N
  130 WINDOW 24,31,0,31:CLS
  140 PRINT AT(2,25);"PRUEFE":PRINT AT(8,26);"DEIN":PRINT AT(14,25);"WISSEN"
  200 REM  FRAGEPROGRAMM:R=0:F=0
  210 REM  ABFRAGE DDR
  220 PRINT L$+A$:PRINT:INPUT LL$:PRINT
  230 IF LL$<>"DDR"THEN GOSUB 2200:ELSE 250
  240 PRINT "DDR":GOSUB 2220
  250 IF LL$="DDR"THEN GOSUB 2100
  300 REM  ABFRAGE BERLIN
  310 CLS:PRINT S$+A$:PRINT
  320 X=11:Y=12:GOSUB 2000
  330 INPUT SS$:PRINT
  340 IF SS$<>"BERLIN" THEN GOSUB 2200:ELSE 360 
  350 PRINT "BERLIN":GOSUB 2220 
  360 IF SS$="BERLIN" THEN GOSUB 2100
  370 PRINT AT(11,12);CHR$(140):PAUSE 10
  400 REM ABFRAGE NACHBARLAENGER
  410 PRINT N$+A$:PRINT:PRINT AT(9,18);"??":PRINT AT(10,19);"?????"
  420 INPUT NN$:PRINT
  430 IF NN$<>"VR POLEN"THEN GOSUB 2200:ELSE 450
  440 PRINT "VR POLEN":GOSUB 2220
  450 IF NN$="VR POLEN"THEN GOSUB 2100 
  460 PRINT AT(9,18);"VR":PRINT AT(10,19);"POLEN"::PAUSE 10
  470 PRINT N$+A$:PRINT:PRINT AT(20,16);"????":INPUT NN$:PRINT
  480 IF NN$<>"CSSR"THEN GOSUB 2200:ELSE 500 
  490 PRINT "CSSR":GOSUB 2220 
  500 IF NN$="CSSR" THEN GOSUB 2100
  510 PRINT AT(20,16);"CSSR":PAUSE 10
  520 PRINT N$+A$:PRINT:PRINT AT(10,1);"???":INPUT NN$:PRINT 
  530 IF NN$<>"BRD"THEN GOSUB 2200:ELSE 550  
  540 PRINT "BRD":GOSUB 2220
  550 IF NN$="BRD"THEN GOSUB 2100
  560 PRINT AT(10,1);"BRD":PAUSE 10
  600 REM ABFRAGE FLUESSE
  610 RESTORE 3130
  620 FOR N=1 TO 16:READ X,Y,Z
  630 PRINT AT(X,Y);CHR$(Z):NEXT N
  640 PRINT F$+A$:PRINT:INPUT FF$:PRINT
  650 IF FF$<>"ELBE"THEN GOSUB 2200:ELSE 670
  660 PRINT "ELBE":GOSUB 2220
  670 IF FF$="ELBE"THEN GOSUB 2100
  680 FOR N=1 TO 6:READ X,Y,Z
  690 PRINT AT(X,Y);CHR$(Z):NEXT N
  700 PRINT F$+A$:PRINT:INPUT FF$:PRINT
  710 IF FF$<>"SAALE"THEN GOSUB 2200:ELSE 730
  720 PRINT "SAALE":GOSUB 2220
  730 IF FF$="SAALE"THEN GOSUB 2100
  800 REM ABFRAGE INSELN
  810 CLS:PRINT I$+A$:PRINT
  820 X=0:Y=14:GOSUB 2000
  830 INPUT II$:PRINT
  840 IF II$<>"RUEGEN"THEN GOSUB 2200:ELSE 860
  850 PRINT "RUEGEN":GOSUB 2220
  860 IF II$="RUEGEN"THEN GOSUB 2100
  870 PRINT AT(0,14);"RUEGEN":PAUSE 10
  880 PRINT I$+A$:PRINT
  890 X=3:Y=17:GOSUB 2000
  900 INPUT II$:PRINT
  910 IF II$<>"USEDOM"THEN GOSUB 2200:ELSE 930
  920 PRINT "USEDOM":GOSUB 2220
  930 IF II$="USEDOM"THEN GOSUB 2100
  940 PRINT AT(3,17);"USEDOM":PAUSE 10
 1000 REM  ABFRAGE BEZIRKSSTAEDTE
 1010 RESTORE 1100
 1020 FOR N=1 TO 14:READ X$,X,Y
 1030 PRINT B$+A$:PRINT:GOSUB 2000
 1040 INPUT BB$:PRINT
 1050 IF BB$<>X$ THEN GOSUB 2200:ELSE 1070
 1060 PRINT X$:GOSUB 2220
 1070 IF BB$=X$ THEN GOSUB 2100
 1080 PRINT AT(X,Y);"o":PAUSE 10
 1090 NEXT N
 1100 DATA COTTBUS,15,15,DRESDEN,19,13,ERFURT,18,4 
 1110 DATA FRANKFURT,12,17,GERA,18,9,HALLE,16,8,KARL-MARX-STADT
 1120 DATA 20,10,LEIPZIG,17,10,MAGDEBURG,13,7,NEUBRANDENBURG
 1130 DATA 6,12,POTSDAM,12,11,ROSTOCK,2,8 
 1140 DATA SCHWERIN,6,6,SUHL,20,3
 1200 REM ABFRAGE GEBIRGE
 1210 PRINT G$+A$:PRINT:RESTORE 3170
 1220 FOR N=1 TO 5:READ X,Y
 1230 PRINT AT(X,Y);CHR$(199):NEXT N
 1240 INPUT GG$:PRINT
 1250 IF GG$<>"ERZGEBIRGE"THEN GOSUB 2200:ELSE 1270
 1260 PRINT "ERZGEBIRGE":GOSUB 2220
 1270 IF GG$="ERZGEBIRGE"THEN GOSUB 2100
 1280 PRINT G$+A$:PRINT:RESTORE 3180
 1290 FOR N=1 TO 12:READ X,Y
 1300 PRINT AT(X,Y);CHR$(199):NEXT N
 1310 INPUT GG$:PRINT
 1320 IF GG$<>"THUERINGER WALD"THEN GOSUB 2200:ELSE 1340
 1330 PRINT "THUERINGER WALD":GOSUB 2220
 1340 IF GG$="THUERINGER WALD"THEN  GOSUB 2100
 1350 PRINT G$+A$:PRINT:RESTORE 3190
 1360 FOR N=1 TO 7:READ X,Y
 1370 PRINT AT(X,Y);CHR$(199):NEXT N
 1380 INPUT GG$:PRINT
 1390 IF GG$<>"HARZ"THEN  GOSUB 2200:ELSE 1410
 1400 PRINT "HARZ":GOSUB 2220
 1410 IF GG$="HARZ"THEN GOSUB 2100
 1500 REM AUSWERTUNG
 1505 CLS:A=R+F
 1510 PRINT "ANZAHL DER FRAGEN  :  ";A:PRINT
 1520 PRINT "RICHTIGE ANTWORTEN :  ";R:PRINT
 1530 PRINT "FALSCHE ANTWORTEN  :  ";F:PRINT
 1540 END
 2000 REM UP BLINKEN
 2010 FOR Z=1 TO 5:PRINT AT(X,Y);" ":PAUSE 5
 2020 PRINT AT(X,Y);"?":PAUSE 5
 2030 NEXT Z:RETURN 
 2100 REM UP RICHTIG
 2110 PRINT R$:PAUSE 30:CLS:R=R+1:RETURN
 2200 REM UP FALSCH
 2210 PRINT NR$:PAUSE 30:CLS:F=F+1:RETURN
 2220 PRINT:PRINT RA$:PRINT:PAUSE 30:CLS:RETURN
 3000 DATA 0,11,129,0,12,150,0,13,147,0,14,145,1,8,144,1,9,158,1,10,158,1,11
 3010 DATA 145,1,12,130,1,13,150,1,14,149,1,15,159,2,6,146,2,7,147,2,12,158
 3020 DATA 2,13,145,2,15,131,3,4,131,3,5,144,3,14,145,3,15,145,3,16,150,3,17,149
 3030 DATA 4,16,145,4,17,144,5,3,152,5,15,192,6,3,145,4,3,153,4,15,145  
 3040 DATA 6,16,155,7,4,145,7,16,156,8,5,159,8,16,148
 3050 DATA 9,4,153,9,16,192,10,4,156,10,17,145,11,5,159
 3060 DATA 11,18,155,12,4,144,12,18,152,13,3,153,13,18,159
 3070 DATA 14,3,152,14,18,155,15,2,144,15,18,156,16,1,148
 3080 DATA 16,19,155,17,1,153,17,19,161,18,1,152,18,17,144
 3090 DATA 18,18,150,18,19,132,19,1,159,19,16,144
 3100 DATA 20,1,145,20,15,144,21,2,154,21,3,130,21,4,154
 3110 DATA 21,5,158,21,6,130,21,7,145,21,8,144,21,9,158 
 3120 DATA 21,10,130,21,11,158,21,12,158,21,13,150,21,14,147
 3130 DATA 9,6,145,10,7,155,11,7,161,12,7,161,13,7,156,14,7,242,14,8,164,14,9
 3140 DATA 160,14,10,149,15,11,145,16,12,145,17,13,145,18,14,155,19,14,152
 3150 DATA 20,14,145,9,5,130
 3160 DATA 15,8,161,16,8,156,17,8,144,18,7,153,19,7,152,20,6,153
 3170 DATA 21,9,21,10,20,11,21,11,20,12
 3180 DATA 19,1,19,2,19,3,19,4,20,1,20,2,20,4,21,1,21,2,21,3,21,4,21,5
 3190 DATA 12,4,12,5,13,4,13,5,14,4,14,5,14,6