%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:2678

File Name:BIG QUIZ

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\ClrGraph

E=GELD

F=FRAGE

G=50/50

\Lbl 0

0\->A~Z

0\->E

1\->F

\Do

\ClrGraph

0\->A

\Prog "MSOURCE1"

\Text 20,10,"WER WIRD MILLIONAER ???"

\Text 40,20,"INITIALISIERE DATEN"

\If B=0

\Then "FEHLER"

"NEU START"

\Else \Text 50,70,"OK"

\IfEnd

\For 1\->Z \To 03

\Text 30,10,"(C)'2001 KAY STROBACH"

\Text 30,10,"                      "

\Next 

\LpWhile B=0

1\->S

\Cls

'JOKER 50/50  ':0\->G

'JOKER CALL   ':0\->H

'JOKER STATIST':0\->I

\Orange \Text 1,1,"GEWINNSUMME:"

\Orange \Text 1,94,". FRAGE"

\Lbl 1

\Orange \Text 1,57,E

\Orange \Text 1,84,F

\Text 23,1,"                 "

\Text 58,1,"                                  "

G=0\=>\Text 58,1,"50/50":H=0\=>\Text 58,45,"CALL":I=0\=>\Text 58,90,"STAT"

0\->Z

\Text 10,1," LADE!!!                          "

\Text 16,1,"                                  "

\Text 30,1,"A)                           "

\Text 36,1,"B)                           "

\Text 42,1,"C)                           "

\Text 48,1,"D)                           "

\Do

\Isz Z

0\->W

0\->D

\Do

\Int (B\Ran#+1)\->A

\Isz W

\LpWhile (A=M\ Or A=N)\ And W<10

(F\ab/c3)-(\Int (F\ab/c3))=1\ab/c3\=>A\->M

(F\ab/c3)-(\Int (F\ab/c3))=2\ab/c3\=>A\->N

F\>=01\=>F\<=03\=>\Prog "MSOURCE1"

F\>=04\=>F\<=06\=>\Prog "MSOURCE2"

F\>=07\=>F\<=09\=>\Prog "MSOURCE3"

F\>=10\=>F\<=12\=>\Prog "MSOURCE4"

F\>=13\=>F\<=15\=>\Prog "MSOURCE5"

\If Z>3

\Then \ClrText

"ERROR:"

\Orange "NO QUESTION FOUND!!!"

\Orange "(AFTER . RETRIES)"

\Locate 08,3,Z

\Stop

\IfEnd

D\<>1\=>D\<>2\=>D\<>3\=>D\<>4\=>0\->D

\LpWhile D=0

\Lbl 3

0\->C

\Do

\r\<>0\=>\r\<>\theta\=>\r\->\theta

\Getkey\->\r

\r=76\=>G\<>3\=>G\<>4\=>G\<>6\=>G\<>7\=>1\->C

\r=66\=>G\<>2\=>G\<>5\=>G\<>8\=>2\->C

\r=56\=>G\<>1\=>G\<>3\=>G\<>7\=>G\<>8\=>3\->C

\r=46\=>G\<>1\=>G\<>2\=>G\<>4\=>G\<>5\=>G\<>6\=>4\->C

\If (\r=41\ Or \r=32)\ And \theta=78

\Then \ClrText

\Locate 1,1,"FRAGE:"

\Locate 15,1,F

\Locate 1,2,"KATALOG:"

\Locate 15,2,\Int (F/3+1)

\Locate 1,3,"ORNUNGSZAHL:"

\Locate 15,3,A

\Locate 1,4,"LOESUNG:":D=1\=>\Locate 15,4,"A"

D=2\=>\Locate 15,4,"B"

D=3\=>\Locate 15,4,"C"

D=4\=>\Locate 15,4,"D"

\Locate 17,4,"\slash"

\Locate 19,4,D

\Locate 1,7,"DRUECK EXE"

\Do

\Getkey\->\r

\LpWhile \r\<>31

\PxlOff 1,1

\IfEnd

\If (\r=39\ And I=0)\ Or (\r=59\ And H=0)

\Then \Text 23,1,"ANTWORT:"

\r=39\=>1\->I

\r=59\=>1\->H

\If \Ran#>0.5

\Then D=1\=>\Text 23,40,"A"

D=2\=>\Text 23,40,"B"

D=3\=>\Text 23,40,"C"

D=4\=>\Text 23,40,"D"

\Else \Ran#\->Y

Y\>=000\ And Y\<=1\ab/c4\=>\Text 23,40,"A"

Y\>=1\ab/c4\ And Y\<=2\ab/c4\=>\Text 23,40,"B"

Y\>=2\ab/c4\ And Y\<=3\ab/c4\=>\Text 23,40,"C"

Y\>=3\ab/c4\ And Y\<=4\ab/c4\=>\Text 23,40,"D"

\IfEnd

\IfEnd

\If \r=79\ And G=0

\Then \If D=1

\Then \If \Ran#>0.5

\Then 1\->G

\Else 2\->G

\IfEnd

\IfEnd

\If D=2

\Then \If \Ran#>0.5

\Then 3\->G

\Else 4\->G

\IfEnd

\IfEnd

\If D=3

\Then \If \Ran#>0.5

\Then 5\->G

\Else 6\->G

\IfEnd

\IfEnd

\If D=4

\Then \If \Ran#>0.5

\Then 7\->G

\Else 8\->G

\IfEnd

\IfEnd

G=3\ Or G=4\ Or G=6\ Or G=7\=>\Text 30,1,"             "

G=2\ Or G=5\ Or G=8\=>\Text 36,1,"             "

G=1\ Or G=3\ Or G=7\ Or G=8\=>\Text 42,1,"             "

G=1\ Or G=2\ Or G=4\ Or G=5\ Or G=6\=>\Text 48,1,"             "

\IfEnd

\LpWhile C=0

G\<>0\=>\(-)1\->G

\If C\<>D

\Then \ClrText

\Orange "OOHHHH"

\Orange "LEIDER FALSCH"

"RICHTIG WAERE:"

D=1\=>"A"

D=2\=>"B"

D=3\=>"C"

D=4\=>"D"

" "

"DRUECK EXE"

\Do

\Getkey\->\r

\LpWhile \r\<>31

"STARTE NEU"

\Goto0

\IfEnd

\For 1\->Z \To 02

\Text 23,40,"RICHTIG"

\Text 23,40,"        ":\Next 

F=01\=>100\->E

F=02\=>200\->E

F=03\=>300\->E

F=04\=>500\->E

F=05\=>1000\->E

F=06\=>2000\->E

F=07\=>4000\->E

F=08\=>8000\->E

F=09\=>16000\->E

F=10\=>32000\->E

F=11\=>64000\->E

F=12\=>125000\->E

F=13\=>250000\->E

F=14\=>500000\->E

F=15\=>1000000\->E

F=3\ Or F=6\ Or F=9\ Or F=12\ Or F=15\=>0\->M~O

F+1\->F

F\<=15\=>\Goto1

\Do

\Cls

\Orange \F-Line \(-)6.3,3.1,6.3,\(-)3.1

\Orange \F-Line 6.3,3.1,\(-)6.3,\(-)3.1

\For 1\->E \To 25:\Next 

\Cls

\For 1\->E \To 02

\Green \Text 30,01,"SIE HABEN DIE MILLION ERREICHT"

\Text 40,1,"ABER GELD GIBTS KEINS"

\Green \Text 30,01,"                               ":\Next 

\LpWhile \Getkey\<>31

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1396

File Name:MSOURCE1

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

'VOLL'

010\->B

A=0\=>\Return

\If A=1

\Then \Text 10,1,"GROESSTE AEGYPTISCHE PYRAMIDE?"

\Text 30,11,"RAMSES"

\Text 36,11,"RHE"

\Text 42,11,"CHEOPS"

\Text 48,11,"PHARAO"

3\->D

\IfEnd

\If A=2

\Then \Text 10,1,"CHEMISCHES SYMBOL VON EISEN?"

\Text 30,11,"HE"

\Text 36,11,"FE"

\Text 42,11,"AU"

\Text 48,11,"AG"

2\->D

\IfEnd

\If A=3

\Then \Text 10,1,"WIE HEIST DIE HAUPTSTADT"

\Text 16,1,"VON AUSTRALIEN?"

\Text 30,11,"BRISBANE"

\Text 36,11,"SYDNEY"

\Text 42,11,"MELBOURNE"

\Text 48,11,"CANBERRA"

4\->D:\IfEnd

\If A=4

\Then \Text 10,1,"WAS BEDEUTET 'COURAGE'?"

\Text 30,11,"ANGST"

\Text 36,11,"VERWIRRUNG"

\Text 42,11,"TRAEGHEIT"

\Text 48,11,"TAPFERKEIT"

4\->D:\IfEnd

\If A=5

\Then \Text 10,1,"WER SCHRIEB 'TOM SAWYER'?"

\Text 30,11,"MARK TWAIN"

\Text 36,11,"MARK SHAIN"

\Text 42,11,"MARK TRAIN"

\Text 48,11,"DARK MAIN"

1\->D:\IfEnd

\If A=6

\Then \Text 10,1,"WAS IST EIN MOA?"

\Text 30,11,"EIN VOGEL"

\Text 36,11,"EINE MUENZE"

\Text 42,11,"EIN NAGER"

\Text 48,11,"EIN INDIANERSTAMM"

1\->D:\IfEnd

\If A=7

\Then \Text 10,1,"WO FLIESST DER 'IGUACO'"

\Text 30,11,"IN INDIEN"

\Text 36,11,"IN NORDAMERIKA"

\Text 42,11,"IN SUEDAMERIKA"

\Text 48,11,"IN AFRIKA"

3\->D:\IfEnd

\If A=8

\Then \Text 10,1,"AUS WELCHEN STOFFEN BESTEHT"

\Text 16,1,"MESSING?"

\Text 30,11,"KUPFER + ZINN"

\Text 42,11,"EISEN  + NATRIUM"

\Text 36,11,"KUPFER + ZINK"

\Text 48,11,"EISEN  + KUPFER"

2\->D:\IfEnd

\If A=9

\Then \Text 10,1,"WAS BEDEUTET '\microC'?"

\Text 30,11,"1 MIKRO COLUMB"

\Text 36,11,"MIKROCOMPUTER"

\Text 42,11,"MIKRO CASH"

\Text 48,11,"MIKRO COOLER"

2\->D:\IfEnd

\If A=10

\Then \Text 10,1,"IN WELCHEM BUNDESLAND LIEGT"

\Text 16,1,"TROISDORF"

\Text 30,11,"BAYERN"

\Text 36,11,"NORDRHEIN-WESTFALEN"

\Text 42,11,"HESSEN"

\Text 48,11,"SCHLESWIG-HOLSTEIN"

2\->D:\IfEnd

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:944

File Name:MSOURCE2

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

'VOLL'

007\->B

A=0\=>\Return

\If A=1

\Then \Text 10,1,"VORNAMEN DER 1. MENSCHEN?"

\Text 30,11,"ADAM+EVA"

\Text 36,11,"SARA+KARL"

\Text 42,11,"KURT+EVA"

\Text 48,11,"SHEWA+HEIN"

1\->D

\IfEnd

\If A=2

\Then \Text 10,1,"DEUTSCHER REGIERUNGSSITZ?"

\Text 30,11,"MUENCHEN"

\Text 36,11,"DRESDEN"

\Text 42,11,"BONN"

\Text 48,11,"BERLIN"

4\->D

\IfEnd

\If A=3

\Then \Text 10,1,"CHEM. SYMBOL VON SILIZIUM?"

\Text 30,11,"CO"

\Text 36,11,"H"

\Text 42,11,"O"

\Text 48,11,"SI"

4\->D

\IfEnd

\If A=4

\Then \Text 10,1,"IN WELCHEM BUNDESLAND"

\Text 16,1,"LIEGT BAMBERG?"

\Text 30,11,"BAYERN"

\Text 36,11,"NORDRHEIN-WESTFALEN"

\Text 42,11,"HESSEN"

\Text 48,11,"SCHLESWIG-HOLSTEIN"

1\->D:\IfEnd

\If A=5

\Then \Text 10,1,"WAS IST EIN 'POLDER'?"

\Text 30,11,"EIN KOOG"

\Text 36,11,"EINE BRIEFMARKE"

\Text 42,11,"EINE MUENZE"

\Text 48,11,"EIN TIER"

1\->D:\IfEnd

\If A=6

\Then \Text 10,1,"HAUPTSTADT VON"

\Text 16,1,"'TRINIDAD UND TOBAGO'?"

\Text 30,11,"TRIPOLIS"

\Text 36,11,"TOBAGO"

\Text 42,11,"PORT OF SPAIN"

\Text 48,11,"DODOMA"

3\->D:\IfEnd

\If A=7

\Then \Text 10,1,"WELCHER BRUCH ENTSPRICHT"

\Text 16,1,"0.1 PERIODE 1 ?"

\Text 30,11,"1\slash9"

\Text 36,11,"1\slash7"

\Text 42,11,"1\slash5"

\Text 48,11,"1\slash3"

1\->D

\IfEnd

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:895

File Name:MSOURCE3

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

'VOLL'

007\->B

A=0\=>\Return

\If A=1

\Then \Text 10,1,"2.VORNAME BACH'S?"

\Text 30,11,"JOACHIM"

\Text 36,11,"SEBASTIAN"

\Text 42,11,"JOHANN"

\Text 48,11,"WOLFGANG"

2\->D

\IfEnd

\If A=2

\Then \Text 10,1,"AEGYPTISCHER SONNENGOTT?"

\Text 30,11,"RAMSES"

\Text 36,11,"RHE"

\Text 42,11,"CHEOPS"

\Text 48,11,"AESOP"

2\->D

\IfEnd

\If A=3

\Then \Text 10,1,"UMRECHNUNUNGZAHL VON"

\Text 16,1,"BYTE ZU BIT?"

\Text 30,11,"1/8"

\Text 36,11,"1/4"

\Text 42,11,"8"

\Text 48,11,"16"

1\->D

\IfEnd

\If A=4

\Then \Text 10,1,"HAUPTSTADT VON JORDANIEN?"

\Text 30,11,"AMMAN"

\Text 36,11,"ER-RIAD"

\Text 42,11,"ERIWAN"

\Text 48,11,"MOSSUL"

1\->D:\IfEnd

\If A=5

\Then \Text 10,1,"WO HERRSCHT POSEIDON?"

\Text 30,11,"IM MEER"

\Text 36,11,"ZU HAUSE"

\Text 42,11,"IN DER UNTERWELT"

\Text 48,11,"IM HIMMEL"

1\->D:\IfEnd

\If A=6

\Then \Text 10,1,"DER WIEVIELTE BUCHSTABE DES"

\Text 16,1,"GRIESCH. ALPHABETS IST OMEGA?"

\Text 30,11,"08"

\Text 36,11,"16"

\Text 42,11,"24"

\Text 48,11,"32"

3\->D:\IfEnd

\If A=7

\Then \Text 10,1,"ES SCHUETTET WIE"

\Text 30,11,"AUS EIMERN"

\Text 36,11,"AUS GIESSKANNEN"

\Text 42,11,"AUS KANNEN"

\Text 48,11,"BEIM DUSCHEN"

1\->D:\IfEnd



%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:913

File Name:MSOURCE4

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

'VOLL'

007\->B

A=0\=>\Return

\If A=1

\Then \Text 10,1,"UNBEKANNTER TRANSISTOR TYP?"

\Text 30,11,"PNP"

\Text 36,11,"NPN"

\Text 42,11,"MOSFET"

\Text 48,11,"NQN"

4\->D

\IfEnd

\If A=2

\Then \Text 10,1,"GRIESCHISCHER GOETTERVATER?"

\Text 30,11,"IUPPITER"

\Text 36,11,"MARS"

\Text 42,11,"ZEUS"

\Text 48,11,"NEPTUN"

3\->D

\IfEnd

\If A=3

\Then \Text 10,1,"CHEM. SYMBOL VON KOHLENSTOFF?"

\Text 30,11,"H(2) O"

\Text 36,11,"H CL"

\Text 42,11,"H N O(3)"

\Text 48,11,"C"

4\->D

\IfEnd

\If A=4

\Then \Text 10,1,"HAUPTINSEL VON JAPAN?"

\Text 30,11,"MALAKKA"

\Text 36,11,"KIUSHU"

\Text 42,11,"HOKKAIDO"

\Text 48,11,"HONSHU"

4\->D:\IfEnd

\If A=5

\Then \Text 10,1,"WAS WAR FRIEDRICH HOELDERLIN?"

\Text 30,11,"DICHTER"

\Text 36,11,"PHILOSOPH"

\Text 42,11,"PRIESTER"

\Text 48,11,"'ZAUBERER', 'HEXER'"

1\->D:\IfEnd

\If A=6

\Then \Text 10,1,"WO FANDEN 1952 DIE OLYMP.":\Text 16,1,"SOMMERSPIELE STATT?"

\Text 30,11,"LOS ANGELES"

\Text 36,11,"HELSINKI"

\Text 42,11,"BERLIN"

\Text 48,11,"TOKIO"

2\->D:\IfEnd

\If A=7

\Then \Text 10,1,"WIE IST DIE FORMEL VON"

\Text 16,1,"BLAUSAEURE?"

\Text 30,11,"HC\nano"

\Text 36,11,"HCN"

\Text 42,11,"HNO(3)"

\Text 48,11,"H(2)SO(4)"

2\->D

\IfEnd



%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1053

File Name:MSOURCE5

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

'VOLL'

007\->B

A=0\=>\Return

\If A=1

\Then \Text 10,1,"WER HAT DAS PAPIER ERFUNDEN?"

\Text 30,11,"J. C. SCHAEFER"

\Text 36,11,"O. MERGENTHALER"

\Text 42,11,"J. GUTENBERG"

\Text 48,11,"A. BORSIG"

1\->D

\IfEnd

\If A=2

\Then \Text 10,1,"NAME EINES FREIHEITSKAEMPFERS?"

\Text 30,11,"GUEVERA"

\Text 36,11,"KOHL"

\Text 42,11,"SCHROEDER"

\Text 48,11,"MAHAPUTRA"

1\->D

\IfEnd

\If A=3

\Then \Text 10,1,"WAS IST KRYPTON?"

\Text 30,11,"GIFT"

\Text 36,11,"FESTSTOFF"

\Text 42,11,"ELEMENT"

\Text 48,11,"FATAMORGANA"

3\->D

\IfEnd

\If A=4

\Then \Text 10,1,"WANN LEBTE TIBERIUS"

\Text 16,1,"SEMBRONIUS GRACCHUS"

\Text 30,11,"117-138N.CHR"

\Text 36,11,"162-133V.CHR"

\Text 42,11,"405-167V.CHR"

\Text 48,11,"239-169V.CHR"

2\->D

\IfEnd

\If A=5

\Then \Text 10,1,"WER BAUTE 1941 DEN ERSTEN "

\Text 16,1,"FUNKTIONIERENDEN DUESENANTRIEB?"

\Text 30,11,"ALEXANDER MARROWITSCH"

\Text 36,11,"FRANK WHITTLE"

\Text 42,11,"G. S. GRAVESANDE"

\Text 48,11,"ISSAAC NEWTON"

2\->D:\IfEnd

\If A=6

\Then \Text 10,1,"WANN FAND DER 4. KREUZZUG":\Text 16,1,"STATT?"

\Text 30,11,"1270 - 1291"

\Text 42,11,"1096 - 1099"

\Text 36,11,"1202 - 1204"

\Text 48,11,"1147 - 1149"

2\->D:\IfEnd

\If A=7

\Then \Text 10,1,"HAUPTSTADT VON TOGO?"

\Text 30,11,"BEAUXBATON"

\Text 36,11,"LOME'"

\Text 42,11,"CHANSELISEA"

\Text 48,11,"LIBERIA"

2\->D:\IfEnd

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:73

File Name:EXAMPLE

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\If A=0

\Then \Text 10,1,"?"

\Text 30,11,""

\Text 36,11,""

\Text 42,11,""

\Text 48,11,""

1\->D:\IfEnd



%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:328

File Name:TEST

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

"1 S1 "

"2 S2 "

"3 S3 "

"4 S4 "

"5 S5 "

0\->I

\Do

\Getkey\->\r

\r=72\=>1\->I

\r=62\=>2\->I

\r=52\=>3\->I

\r=73\=>4\->I

\r=63\=>5\->I

\r=31\=>1\->H

\LpWhile I=0\ And H=0

H=1\=>1\->I

\Lbl 1

\For 1\->A \To B

\Cls

I=1\=>\Prog "MSOURCE1"

I=2\=>\Prog "MSOURCE2"

I=3\=>\Prog "MSOURCE3"

I=4\=>\Prog "MSOURCE4"

I=5\=>\Prog "MSOURCE5"

D=1\=>\Text 30,1,">"

D=2\=>\Text 36,1,">"

D=3\=>\Text 42,1,">"

D=4\=>\Text 48,1,">"

\For 1\->E \To 399:\Getkey=31\=>\Break:\Next 

\Next 

H=1\=>\Isz I

I=6\=>\Stop

H=1\=>\Goto1

%End