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
