20 print " Dieses Programm ist frei kopierbar (Public Domain)"
21 print " Jeder der dieses Programm benützt, sollte mir aber ein"
22 print " kleines Anerkennunshonorar von 10 DM zusenden."
23 print " sollten sich viele PD Anwender bei mir melden, so werde"
24 print " ich mit zimlicher Sicherheit noch viele weitere PD Programme"
25 print " von mir in Umlauf bringen."
26 print " Falls jemand andere Fragen und Antworten benötigt, kann er mir auch schreiben."
90 print a$
99 print tab(27)" Bitte eine Taste drücken":beep
100 a$=inkey$:if a$="" then 100
999 CLS
1000 DIM D$(55,5)
1030 GOTO 1280
1040 CLS
1082 REM LOCATE 22:PRINT E$
1090 LOCATE 7,5 :PRINT " Punktestand : 0"
1100 RETURN
1120 LOCATE 8,5 :PRINT " Frage Nr. :"
1200 LOCATE 16,3 :PRINT " [1] "
1210 LOCATE 17,3 :PRINT " [2] "
1220 LOCATE 18,3 :PRINT " [3] "
1221 LOCATE 19,3 :PRINT " [4] "
1222 LOCATE 19,12:PRINT "S p i e l e n d e "
1270 RETURN
1280 FOR D=1 TO 50 :REM Anzahl der Fragen !!!!!!!!!!!!!!!!!!!!!!!!!
1290 READ D$(D,1),D$(D,2),D$(D,3),D$(D,4),D$(D,5)
1300 NEXT D
1310 GOTO 1820
1320 DATA "Was ist ein Blauer Reiter ?","ein Angehöriger der Blauen Division","ein Tagfalter mit blaugrundiger Flügelzeichnung","der Name einer deutschen Künstlergemeinschaft","3"
1330 DATA "Ist der Blaukopf","die Bezeichnung für einen Quartalssäufer ?","eine Bergkuppe im Schwarzwald ?","ein Nachtschmetterling ?","3"
1340 DATA "Ist das Grüne Band","ein Schmetterling mit grüner Flügelzeichnung ?","ein schwedischer Orden ?","eine Auszeichnung des Landeswirtschaftsministerium ?","2"
1350 DATA "Ist Grünkreuz","der Name des Roten-Kreuz in islamischen Ländern ?","eine bestimmte Kreuzblüten-Art ?","ein lungenschädigender Kampfstoff ?","3"
1360 DATA "Bezeichnet man als Grüngürtel","einen bestimmten Rang im Judo ?","eine zusammenhängende bepflanzte Zone ?","eine islamische Ordensschärpe ?","2"
1370 DATA "Bezeichnet man als Gelblinge","Vögel mit gelblicher Flügelzeichnung ?","gelb blühende Pflanzen wie Sumpfdotterblumen ?","bestimmte Blätterpilze ?","3"
1380 DATA "Ist Schwarezkitel die volkstümliche Bezeichnung ","für einen Richter in seiner Robe ?","einen katholischen Geistlichen ?","das Wildschwein ?","3"
1390 DATA "Ist Schwarzerde die Bezeichnung für","das Gebiet rund um das Schwarze Meer ?","einen humusreichen Steppenboden ?","eine kohleführende Schicht im Bergbau ?","2"
1400 DATA "Bezeichnet man als Grauwacke","einen Vogel ?","ein Sedimentgestein ?","einen Berg im Allgäu","2"
1410 DATA "Ist die Goldorfe","eine edle Apfelsorte ?","ein Zierfisch ?","ein prächtiger Käfigvogel ?","2"
1420 DATA "Was versteht man unter nullifizieren ?","mit null multiplizieren ?","zunichte machen, für nichtig erklären ?","gegen Ansteckung immun machen ?","2"
1430 DATA "Was bedeutet Absolution ?","unumschränkte Herrschaft ?","Freisprechung ?","Abschlußprüfung ?","1"