%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:676
File Name:ANOXQUIZ
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl A:\ClrText
\For 1\->H \To 21
\Locate H,1,"*"
\Locate H,7,"*"
\Next 
\Locate 6,2,"AnoX\(-)Quiz"
\Locate 6,4,"[F1]Start"
\Locate 6,5,"[F2]Ende"
\Locate 6,6,"[F6]Readme"
\Do
\LpWhile \Getkey\<>79\ And \Getkey\<>69\ And \Getkey\<>29
\Getkey\->\theta
\If \theta=79
\Then \Prog "FRAGEN"
\IfEnd
\If \theta=69
\Then \GotoE
\IfEnd
\If \theta=29
\Then \Goto\r
\IfEnd
\Lbl \r:\ClrText
\Locate 1,1,"*******Read Me*******"
\Locate 1,2,"AnoX\(-)Quiz ist ein"
\Locate 1,3,"Ratespiel fuer Deinen"
\Locate 1,4,"Casio FX- oder CFX-"
\Locate 1,5,"Rechner."
\Locate 1,6,"Die Steuerung ist"
\Locate 1,7,"supereinfach\!mark"
\Do
\LpWhile \Getkey\<>37\ And \Getkey\<>48
\If \Getkey=37
\Then \GotoB
\IfEnd
\If \Getkey=48
\Then \GotoA
\IfEnd
\Lbl B:\ClrText
\Locate 1,1,"Die Quizfrage + vier"
\Locate 1,2,"Antw\ortmoeglichkeiten"
\Locate 1,3,"werden gestellt."
\Locate 1,4,"Nun gibst Du die Zahl"
\Locate 1,5,"Deiner gewaehlten"
\Locate 1,6,"Antw\ort ein\!mark"
\Locate 1,7,"Fertig \!mark\!mark\!mark"
\Do
\LpWhile \Getkey\<>28\ And \Getkey\<>48
\Getkey\->\r
\If \r=28
\Then \Goto\r
\IfEnd
\If \r=48
\Then \GotoA
\IfEnd
\Lbl E
\ClrText
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:5467
File Name:FRAGEN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Goto1
Type:Starterpack mit Fragen fuer AnoX\(-)Quiz
Name:FRAGEN
\Lbl 1:\ClrText
\Locate 7,1,"~Politik~"
\Locate 1,3,"Welcher Chef-Po\(-)"
\Locate 1,4,"litiker der PDS bee"
\Locate 1,5,"ndete 2000 seine Kar\(-)"
\Locate 1,6,"riere ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 7,1,"~Politik~"
\Locate 1,3,"1) Lothar de Maiziere"
\Locate 1,4,"2) Greg\or Gysi"
\Locate 1,5,"3) Erich Honecker"
\Locate 1,6,"4) Egon Grenz"
\Lbl N
\Getkey\->A
\If A=28:\Then \Goto1:\IfEnd
\If A=72:\Then \Goto\theta:\IfEnd
\If A=62:\Then \Goto2:\IfEnd
\If A=52:\Then \Goto\theta:\IfEnd
\If A=73:\Then \Goto\theta:\IfEnd
\GotoN
\Lbl 2:\ClrText
\Locate 8,1,"~Natur~"
\Locate 1,3,"Welcher dieser Maed-"
\Locate 1,4,"chennamen ist ein"
\Locate 1,5,"\anderer Name fuer das"
\Locate 1,6,"Heidekraut ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 8,1,"~Natur~"
\Locate 1,3,"1) Monika"
\Locate 1,4,"2) Ludmilla"
\Locate 1,5,"3) Erika"
\Locate 1,6,"4) Verena"
\Lbl O
\Getkey\->B
\If B=28:\Then \Goto2:\IfEnd
\If B=72:\Then \Goto\theta:\IfEnd
\If B=62:\Then \Goto\theta:\IfEnd
\If B=52:\Then \Goto3:\IfEnd
\If B=73:\Then \Goto\theta:\IfEnd
\GotoO
\Lbl 3:\ClrText
\Locate 8,1,"~Sp\ort~"
\Locate 1,3,"Wie heisst die Pferde"
\Locate 1,4,"Sp\ortdisziplin,welche"
\Locate 1,5,"Dressur,Gelaenderitt"
\Locate 1,6,"und Springpruefung"
\Locate 1,7,"umfasst ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 8,1,"~Sp\ort~"
\Locate 1,3,"1) Polo"
\Locate 1,4,"2) Military"
\Locate 1,5,"3) Biathlon"
\Locate 1,6,"4) Hohe Schule"
\Lbl P
\Getkey\->C
\If C=28:\Then \Goto3:\IfEnd
\If C=72:\Then \Goto\theta:\IfEnd
\If C=62:\Then \Goto4:\IfEnd
\If C=52:\Then \Goto\theta:\IfEnd
\If C=73:\Then \Goto\theta:\IfEnd
\GotoP
\Lbl 4:\ClrText
\Locate 7,1,"~Kultur~"
\Locate 1,3,"Welches dieser"
\Locate 1,4,"Kinderbuecher stammt"
\Locate 1,5,"nicht aus der Feder"
\Locate 1,6,"von Erich Kaestner ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 7,1,"~Kultur~"
\Locate 1,3,"1) Puenktchen \@26 Anton"
\Locate 1,4,"2) Emil\@26die Detektive"
\Locate 1,5,"3) Das fliegende"
\Locate 4,6,"Klassenzimmer"
\Locate 1,7,"4) Raeuber Hozenplotz"
\Lbl Q
\Getkey\->D
\If D=28:\Then \Goto4:\IfEnd
\If D=72:\Then \Goto\theta:\IfEnd
\If D=62:\Then \Goto\theta:\IfEnd
\If D=52:\Then \Goto\theta:\IfEnd
\If D=73:\Then \Goto5:\IfEnd
\GotoQ
\Lbl 5:\ClrText
\Locate 8,1,"~Spiel~"
\Locate 1,3,"Bei welchem Spiel"
\Locate 1,4,"kauft man sich"
\Locate 1,5,"Haeuser \@26 Hotels auf"
\Locate 1,6,"der Parkstrasse oder"
\Locate 1,7,"der Schlossallee ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 8,1,"~Spiel~"
\Locate 1,3,"1) Monopoly"
\Locate 1,4,"2) Die Siedler"
\Locate 1,5,"3) Das verrueckte"
\Locate 4,6,"Labyrinth"
\Locate 1,7,"4) Sagal\and"
\Lbl R
\Getkey\->E
\If E=28:\Then \Goto5:\IfEnd
\If E=72:\Then \Goto6:\IfEnd
\If E=62:\Then \Goto\theta:\IfEnd
\If E=52:\Then \Goto\theta:\IfEnd
\If E=73:\Then \Goto\theta:\IfEnd
\GotoR
\Lbl 6:\ClrText
\Locate 4,1,"~Wissenschaft~"
\Locate 1,3,"Welche bahnbrechende"
\Locate 1,4,"Erfindung geht auf"
\Locate 1,5,"den schwedischen"
\Locate 1,6,"Chemiker\@26Industriel\(-)"
\Locate 1,7,"en A.Nobel zurueck ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 4,1,"~Wissenschaft~"
\Locate 1,3,"1) Dampfmaschine"
\Locate 1,4,"2) Dynamit"
\Locate 1,5,"3) Generat\or"
\Locate 1,6,"4) Kunstduenger"
\Lbl S
\Getkey\->F
\If F=28:\Then \Goto6:\IfEnd
\If F=72:\Then \Goto\theta:\IfEnd
\If F=62:\Then \Goto7:\IfEnd
\If F=52:\Then \Goto\theta:\IfEnd
\If F=73:\Then \Goto\theta:\IfEnd
\GotoS
\Lbl 7:\ClrText
\Locate 5,1,"~Geschichte~"
\Locate 1,3,"Welchen Nachnamen"
\Locate 1,4,"trug der franz.Kaiser"
\Locate 1,5,"Napoleon ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 5,1,"~Geschichte~"
\Locate 1,3,"1) Bonjour"
\Locate 1,4,"2) Bonaqua"
\Locate 1,5,"3) Bonaparte"
\Locate 1,6,"4) Buenavista"
\Lbl T
\Getkey\->G
\If G=28:\Then \Goto7:\IfEnd
\If G=72:\Then \Goto\theta:\IfEnd
\If G=62:\Then \Goto\theta:\IfEnd
\If G=52:\Then \Goto8:\IfEnd
\If G=73:\Then \Goto\theta:\IfEnd
\GotoT
\Lbl 8:\ClrText
\Locate 8,1,"~Natur~"
\Locate 1,3,"Welches dieser Tiere"
\Locate 1,4,"ist kein Fisch ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 8,1,"~Natur~"
\Locate 1,3,"1) Huchen"
\Locate 1,4,"2) Quappe"
\Locate 1,5,"3) Ploetze"
\Locate 1,6,"4) Milan"
\Lbl U
\Getkey\->H
\If H=28:\Then \Goto8:\IfEnd
\If H=72:\Then \Goto\theta:\IfEnd
\If H=62:\Then \Goto\theta:\IfEnd
\If H=52:\Then \Goto\theta:\IfEnd
\If H=73:\Then \Goto9:\IfEnd
\GotoU
\Lbl 9:\ClrText
\Locate 5,1,"~Wissenschaft~"
\Locate 1,3,"Die DNS hat die F\orm"
\Locate 1,4,"einer \Doppelhelix."
\Locate 1,5,"Was aber ist eine"
\Locate 1,6,"Helix ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 5,1,"~Wissenschaft~"
\Locate 1,2,"1) 3-D Spirale"
\Locate 1,3,"2) 2-D Schachbrett-"
\Locate 4,4,"muster"
\Locate 1,5,"3) regelm. 6-Ecke"
\Locate 1,6,"4) Nach innen ge-"
\Locate 4,7,"woelbte Pyramide"
\Lbl V
\Getkey\->I
\If I=28:\Then \Goto9:\IfEnd
\If I=72:\Then \GotoA:\IfEnd
\If I=62:\Then \Goto\theta:\IfEnd
\If I=52:\Then \Goto\theta:\IfEnd
\If I=73:\Then \Goto\theta:\IfEnd
\GotoV
\Lbl A:\ClrText
\Locate 7,1,"~Politik~"
\Locate 1,3,"Welche Organisation"
\Locate 1,4,"gruendete der Schwei-"
\Locate 1,5,"zer Henry Dunant im"
\Locate 1,6,"Jahr 1863 ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 7,1,"~Politik~"
\Locate 1,3,"1) Die UNO"
\Locate 1,4,"2) Das Rote Kreuz"
\Locate 1,5,"3) Greenpeace"
\Locate 1,6,"4) Den Voelkerbund"
\Lbl W
\Getkey\->K
\If K=28:\Then \GotoA:\IfEnd
\If K=72:\Then \Goto\theta:\IfEnd
\If K=62:\Then \GotoB:\IfEnd
\If K=52:\Then \Goto\theta:\IfEnd
\If K=73:\Then \Goto\theta:\IfEnd
\GotoW
\Lbl B:\ClrText
\Locate 8,1,"~Sp\ort~"
\Locate 1,2,"Wie heisst die Show-"
\Locate 1,3,"sp\ortart,bei der die"
\Locate 1,4,"Muskelmaenner ohne"
\Locate 1,5,"klar erkennbare"
\Locate 1,6,"Rege\In echtes Frei-"
\Locate 1,7,"stilringen zeigen ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 8,1,"~Sp\ort~"
\Locate 1,3,"1) Caravaning"
\Locate 1,4,"2) Cash-\and-carry"
\Locate 1,5,"3) Catch-as-catch-can"
\Locate 1,6,"4) Carioka"
\Lbl X
\Getkey\->M
\If M=28:\Then \GotoB:\IfEnd
\If M=72:\Then \Goto\theta:\IfEnd
\If M=62:\Then \Goto\theta:\IfEnd
\If M=52:\Then \GotoC:\IfEnd
\If M=73:\Then \Goto\theta:\IfEnd
\GotoX
\Lbl C:\ClrText
\Locate 5,1,"~Wissenschaft~"
\Locate 1,2,"Wie nennt man in der"
\Locate 1,3,"Sprache der Physik"
\Locate 1,4,"die Hoehe eines"
\Locate 1,5,"Wellenberges oder die"
\Locate 1,6,"Tiefe eines Wellen-"
\Locate 1,7,"tales bei einer Welle"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 5,1,"~Wissenschaft~"
\Locate 1,3,"1) Kapillare"
\Locate 1,4,"2) Diode"
\Locate 1,5,"3) Anode"
\Locate 1,6,"4) Amplitude"
\Lbl Y
\Getkey\->O
\If O=28:\Then \GotoC:\IfEnd
\If O=72:\Then \Goto\theta:\IfEnd
\If O=62:\Then \Goto\theta:\IfEnd
\If O=52:\Then \Goto\theta:\IfEnd
\If O=73:\Then \GotoD:\IfEnd
\GotoY
\Lbl D:\ClrText
\Locate 4,1,"~Kunst \@26 Kultur~"
\Locate 1,3,"Welchem Orden gehoer-"
\Locate 1,4,"te der spaetere"
\Locate 1,5,"Ref\ormat\or Martin"
\Locate 1,6,"Luther an ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 4,1,"~Kunst \@26 Kultur~"
\Locate 1,3,"1) Jesuiten"
\Locate 1,4,"2) Augustiner"
\Locate 1,5,"3) Benediktiner"
\Locate 1,6,"4) Franziskaner"
\Lbl Z
\Getkey\->P
\If P=28:\Then \GotoD:\IfEnd
\If P=72:\Then \Goto\theta:\IfEnd
\If P=62:\Then \GotoE:\IfEnd
\If P=52:\Then \Goto\theta:\IfEnd
\If P=73:\Then \Goto\theta:\IfEnd
\GotoZ
\Lbl E:\ClrText
\Locate 8,1,"~Natur~"
\Locate 1,3,"W\orum h\andelt es sich"
\Locate 1,4,"bei einem Tier namens"
\Locate 1,5,"'Neuntoeter' bzw."
\Locate 1,6,"'Rotrueckenwuerger' ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 8,1,"~Natur~"
\Locate 1,3,"1) Fisch"
\Locate 1,4,"2) Vogel"
\Locate 1,5,"3) Insekt"
\Locate 1,6,"4) Saeugetier"
\Lbl \r
\Getkey\->S
\If S=28:\Then \GotoE:\IfEnd
\If S=72:\Then \Goto\theta:\IfEnd
\If S=62:\Then \GotoF:\IfEnd
\If S=52:\Then \Goto\theta:\IfEnd
\If S=73:\Then \Goto\theta:\IfEnd
\Goto\r
\Lbl F:\ClrText
\For 1\->Z \To 25
\Locate 7,4,"Finalfrage"
\Next 
\Lbl G:\ClrText
\Locate 4,1,"Kunst \@26 Kultur"
\Locate 1,3,"Wie hiess die Gattin"
\Locate 1,4,"des griech. Denkers"
\Locate 1,5,"Sokrates ?"
\Do
\LpWhile \Getkey\<>37
\ClrText
\Locate 4,1,"~Kunst \@26 Kultur~"
\Locate 1,3,"1) Penelope"
\Locate 1,4,"2) Elektra"
\Locate 1,5,"3) Xanthippe"
\Locate 1,6,"4) Hera"
\Lbl 0
\Getkey\->T
\If T=28:\Then \GotoG:\IfEnd
\If T=72:\Then \Goto\theta:\IfEnd
\If T=62:\Then \Goto\theta:\IfEnd
\If T=52:\Then \GotoL:\IfEnd
\If T=73:\Then \Goto\theta:\IfEnd
\Goto0
\Lbl L:\ClrText
\For 1\->A \To 21
\Locate A,1,"*"
\Locate A,7,"*"
\Next 
\For 1\->L \To 100
\Locate 3,4,"Du hast Gewonnen"
\Next 
\ClrText
\Stop
\Lbl \theta:\ClrText
\For 1\->A \To 21
\Locate A,1,"*"
\Locate A,7,"*"
\Next 
\For 1\->K \To 100
\Locate 9,4,"Loser"
\Next 
\ClrText
\Stop
%End