%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:2522

File Name:MILLION

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\Lbl 0

0\->A~Z

\ViewWindow 1,127,1,63,1,1

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

\Plot 1,1

\Plot 1,63

\Green \Line

\Plot 127,63

\Green \Line

\Plot 127,1

\Green \Line

\Plot 1,1

\Green \Line

\Green \F-Line 1,9,127,9

\Green \F-Line 1,29,127,29

\Green \F-Line 1,55,127,55

\Green \F-Line 63,55,63,63

\Green \F-Line 94,1,94,9

\Green \F-Line 20,56,20,63

\Green \F-Line 40,56,40,63

\Text 57,3,"STAT CALL 50/50"

\Text 3,3,"GEWINNSUMME:"

\Text 3,103,".FRAGE"

1\->F

\Text 17,20,"                        "

1\->F

'JOKER':0\->G:0\->H:0\->I

\Prog "MILLSRC0"

\Lbl 1

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

F=01\=>0\->P

F=02\=>100\->P

F=03\=>200\->P

F=04\=>300\->P

F=05\=>500\->P

F=06\=>1000\->P

F=07\=>2000\->P

F=08\=>4000\->P

F=09\=>8000\->P

F=10\=>16000\->P

F=11\=>32000\->P

F=12\=>64000\->P

F=13\=>125000\->P

F=14\=>250000\->P

F=15\=>500000\->P

F=16\=>1000000\->P

\Text 3,59,P

\Text 3,96,F

F=16\=>\Text 3,96,"\(-)\(-)"

\Text 57,65,"(C)KAY STROBACH"

\Text 11,3,"                                       "

\Text 17,3,"                                       "

\Text 23,3,"                                       "

\Text 31,3,"A:                                     "

\Text 37,3,"B:                                     "

\Text 43,3,"C:                                     "

\Text 49,3,"D:                                     "

F=16\=>\Goto3

\If F=1\ Or F=4\ Or F=7\ Or F=10\ Or F=13\ Or F=15

\Then 0\->A:0\->N:0\->M:0\->B

\Prog "MILLSRC0"

\If B=0:\Then "KEINE FRAGEN!":\Stop:\IfEnd

\IfEnd

\Do

0\->D

\Do

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

\LpWhile A=M\ Or A=N

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

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

\Prog "MILLSRC0"

D=0\=>"KEINE ANTWORT"

D=0\=>\Stop

\LpWhile D=0

\Lbl 2

0\->C

\Do

\Text 3,3,"G"

\Do

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

\Getkey\->\r

\LpWhile \r=0

\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=59\ And G=0

\Then \Text 57,40,"      "

\Green \F-Line 40,55,63,63

\Green \F-Line 63,55,40,63

2D-1\->G

\Ran#>0.5\=>2D\->G

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

G=2\ Or G=5\ Or G=8\=>\Text 37,3,"                                        "

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

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

\IfEnd

\If (\r=79\ And I=0)\ Or (\r=69\ And H=0)

\Then \If \r=79:\Then 1\->I:\Text 57,3,"    ":\Green \F-Line 01,55,20,63:\Green \F-Line 20,55,01,63:\IfEnd

\If \r=69:\Then \Text 57,20,"     ":1\->H:\Green \F-Line 20,55,40,63:\Green \F-Line 40,55,20,63:\IfEnd

\Do

\Int (4\Ran#+1)\->J

\Ran#>0.2\=>D\->J

J=1\ And (G=3\ Or G=4\ Or G=6\ Or G=7)\=>0\->J

J=2\ And (G=2\ Or G=5\ Or G=8)\=>0\->J

J=3\ And (G=1\ Or G=3\ Or G=7\ Or G=8)\=>0\->J

J=4\ And (G=1\ Or G=2\ Or G=4\ Or G=5\ Or G=6)\=>0\->J

\LpWhile J=0

\Text 57,65,"TIP:            "

J=1\=>\Text 57,80,"A"

J=2\=>\Text 57,80,"B"

J=3\=>\Text 57,80,"C"

J=4\=>\Text 57,80,"D"

\IfEnd

\LpWhile C=0\ And \theta\<>78\ And \r\<>48\ And \r\<>47

\theta=78\=>\r=48\=>\Goto4

\r=47\=>\Return

\If C\<>D

\Then "LEIDER FALSCH"

\If \Ran#>0.4

\Then "LOESUNG:"

D=1\=>"A":D=2\=>"B"

D=3\=>"C":D=4\=>"D":\IfEnd:F<6\=>"SIE HAETTEN     0 DM"

F\>=6\=>F\<=10\=>"SIE HAETTEN  1000 DM"

F>10\=>"SIE HAETTEN 32000 DM"

"GEWONNEN"

"DRUECK <EXE>"

\Return

\Stop

\IfEnd

F+1\->F

\Goto1

\Lbl 3

\Text 17,3,"SIE HABEN DIE MILLION ERREICHT"

\Text 31,3,"  "

\Text 37,3,"  "

\Text 43,3,"  "

\Text 49,3,"  "

\Orange \Text 49,3,"  GELD GIBTS ABER KEINS!!!"

\Text 37,3,"  HERZLICHEN GLUECKWUNSCH"

\Return

\Lbl 4

" "

\Goto2

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:209

File Name:MILLSRC0

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

K=1\=>\Prog "MILLSRC1"

K=2\=>\Prog "MILLSRC2"

K\<>0\=>\Return

\ClrText

\Text 11,3,"BITTE WAEHLEN SIE EINEN"

\Text 17,3,"SPIELTYP"

\Text 31,3,"A:FRAGEN1 (LEICHT)"

\Text 37,3,"B:FRAGEN2 (SCHWER)"

\Text 3,3,"G"

\Do

\Getkey\->\r

\LpWhile \r\<>76\ And \r\<>66\ And \r\<>56

\r=76\=>1\->K

\r=66\=>2\->K

\Return

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:2383

File Name:MILLSRC1

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

F\>=1\=>F\<=3\=>\Goto1

F\>=4\=>F\<=6\=>\Goto2

F\>=7\=>F\<=9\=>\Goto3

F\>=10\=>F\<=12\=>\Goto4

F\>=13\=>F\<=14\=>\Goto5

F=15\=>\Goto6

\Return

\Lbl 1

3\->B

A=0\=>\Return

\If A=1

\Then \Text 11,3,"WIE HOCH IST DIE HAUSSTROM-"

\Text 17,3,"SPANNUNG? (D)"

\Text 31,11,"240 V"

\Text 37,11,"220 V"

\Text 43,11,"150 V"

\Text 49,11,"110 V"

2\->D:\IfEnd

\If A=2

\Then \Text 11,3,"WIE NENT MAN DEN TURM EINER"

\Text 17,3,"MOSCHEE?"

\Text 31,11,"MIRACLE"

\Text 37,11,"MINARET"

\Text 43,11,"MIMOSE"

\Text 49,11,"MIGARET"

2\->D:\IfEnd

\If A=3

\Then \Text 11,3,"STANDORT DES KREML'S?"

\Text 31,11,"KIEW"

\Text 37,11,"SMOLENSK":\Text 43,11,"MOSKAU"

\Text 49,11,"ST. PETERSBURG"

3\->D:\IfEnd

\Return

\Lbl 2

03\->B

A=0\=>\Return

\If A=1

\Then \Text 11,3,"AUFBAU EINES THRYSISTORS?"

\Text 31,11,"NPNP"

\Text 37,11,"NPN"

\Text 43,11,"PNP"

\Text 49,11,"NPPN"

1\->D:\IfEnd

\If A=2

\Then \Text 11,3,"ERSTE URKUNDLICHE ERWAEHNUNG"

\Text 17,1,"DRESDENS?"

\Text 31,11,"1100"

\Text 37,11,"1200"

\Text 43,11,"1250"

\Text 49,11,"1300"

2\->D:\IfEnd

\If A=3

\Then \Text 11,3,"WER WAR DER ERSTE PRAESIDENT"

\Text 17,3,"DES SAECHSICHEN LANDTAGES?"

\Text 31,11,"OTTO GROTEWOHL"

\Text 37,11,"GEORG MILBRADT"

\Text 43,11,"ERICH ILTGEN"

\Text 49,11,"KURT BIEDENKOPF"

3\->D:\IfEnd

\Return

\Lbl 3

3\->B

A=0\=>\Return

\If A=1

\Then \Text 11,3,"HAUPTSTADT DER MONGOLEI?"

\Text 31,11,"HARBIN"

\Text 37,11,"ULAN-BATOR"

\Text 43,11,"URUMTSCHI"

\Text 49,11,"ALMA-ATA"

2\->D:\IfEnd

\If A=2

\Then \Text 11,3,"WER HAT DIE DIGEDAGS ERFUNDEN?"

\Text 31,11,"HANS DEGEN"

\Text 37,11,"JOHANNES RICHTER"

\Text 43,11,"HANNES HEGEN"

\Text 49,11,"ALEXANDER WOLKOW"

3\->D:\IfEnd

\If A=3

\Then \Text 11,3,"ERFINDER DER DIDDLE-MAUS?"

\Text 31,11,"HERBERT FROESE"

\Text 37,11,"CHRISTINE LEMKE"

\Text 43,11,"SANDR DIETRICH"

\Text 49,11,"THOMAS GOLETZ"

4\->D:\IfEnd

\Return

\Lbl 4

3\->B

A=0\=>\Return

\If A=1

\Then \Text 11,3,"WAS IST KDE?"

\Text 31,11,"EINE GRAPHISCHE OBERFLAECHE"

\Text 37,11,"EIN BETRIEBSSYSTEM"

\Text 43,11,"EIN MALPROGRAMM"

\Text 49,11,"EIN SPIEL"

1\->D:\IfEnd

\If A=2

\Then \Text 11,3,"HAUPTSTADT VON ARMENIEN?"

\Text 31,11,"STAWROPOL"

\Text 37,11,"ERIWAN"

\Text 43,11,"TIFLIS"

\Text 49,11,"BACHTARAN"

2\->D:\IfEnd

\If A=3

\Then \Text 11,3,"HAUPTSTADT VON GEORGIEN?"

\Text 31,11,"STAWROPOL"

\Text 37,11,"ERIWAN"

\Text 43,11,"TIFLIS"

\Text 49,11,"BACHTARAN"

3\->D:\IfEnd

\Return

\Lbl 5

3\->B

A=0\=>\Return

\If A=1

\Then \Text 11,3,"IN WELCHEM LAND LIEGT SAMARA?"

\Text 31,11,"RUSSLAND"

\Text 37,11,"UKRAINE"

\Text 43,11,"FRANKREICH"

\Text 49,11,"GRIECHENLAND"

1\->D:\IfEnd

\If A=2

\Then \Text 11,3,"WELCHEN MASSSTAB HAT 'TT'?"

\Text 31,11,"1:087"

\Text 37,11,"1:120"

\Text 43,11,"1:160"

\Text 49,11,"1:220"

2\->D:\IfEnd

\If A=3

\Then \Text 11,3,"WAS IST EIN REEDKONTAKT?"

\Text 17,3,"EIN ..."

\Text 31,11,"SPEZ. RELAIS"

\Text 37,11,"SPEZ. TRANSISTOR"

\Text 43,11,"MAGNETSCHALTER"

\Text 49,11,"HIRNGESPINST"

3\->D:\IfEnd

\Return

\Lbl 6

1\->B

A=0\=>\Return

\If A=1

\Then \Text 11,3,"WIEVIEL GELD GEWINNEN SIE?"

\Text 31,11,"        0DM"

\Text 37,11,"   32 000DM"

\Text 43,11,"  500 000DM"

\Text 49,11,"1 000 000DM"

1\->D:\IfEnd

\Return

%End