%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:712

File Name:AUSWAHL

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\Lbl 0

G\<>\Int G\=>"FEHLER 0001\slashG\<>\Int G":G\<>\Int G\=>\Int G\->G\DispG>6\=>"FEHLER 0002\slashG>6":G>6\=>6\->G\DispG<2\=>"FEHLER 0003\slashG<2":G<2\=>2\->G\Disp\Isz G

'\ClrText'

\For 2\->A \To G

\Locate 4,A,A-1

\Next 

'ANZAHL PUNKTE':G\->G

'MENUE PUNKT:A\->A

1\->C

1\->E

1\->B

2\->A

0\->F

0\->\r

'PFEILE':5\->D

\Goto2

\Lbl 1

\Getkey\->\r

\Isz C

\If C\>=2\ And A>D

\Then B>2\=>2\->E

B<2\=>1\->E

\Locate 1,A,"   "

\Locate 19,A,"   "

E=1\=>\Isz B

E=2\=>\Dsz B

\Locate B,A,">"

\Locate 22-B,A,"<"

0\->C

\IfEnd

\r=0\=>\Goto1

\Locate 1,A,"   "

\Locate 19,A,"   "

\r=37\=>A<G\=>\Isz A

\r=28\=>A>2\=>\Dsz A

\Lbl 2

A<D+1\=>\Locate 1,A,"-->"

A<D+1\=>\Locate 19,A,"<--"

\If \r\<>31\ And \r\<>37\ And \r\<>28\ And \r\<>0\ And \r\<>72\ And \r\<>62\ And \r\<>52\ And \r\<>73\ And \r\<>63\ And \r\<>53\ And \r\<>27

\Then \Cls

\AxesOff

\Orange \Text 30,1,"DIESE TASTE IST NICHT ERLAUBT!!!"

\For 1\->C \To 299

\Next 

1\->C

\AxesOn

\Cls

\Locate 21,1," "

\IfEnd

\r<40\ And \r\<>31\ And \r\<>27\=>\Goto1

G\>=1\=>\r=72\=>1\->F

G\>=2\=>\r=62\=>2\->F

G\>=3\=>\r=52\=>3\->F

G\>=4\=>\r=73\=>4\->F

G\>=5\=>\r=63\=>5\->F

G\>=6\=>\r=53\=>6\->F

\r=31\=>0\->F

F=0\ And \r\<>31\ And \r\<>27\=>\Goto1

F\<>0\=>F\->A

F=0\=>A-1\->A

\Return

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1781

File Name:FIGHT1SP

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

0\->A

A=1\=>\GotoZ

\Mat Y[1,3]=0\=>\GotoZ

\Lbl 0

\AxesOff

\ClrGraph

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

\Plot 1,1

\Plot 127,1

\Orange \Line

\Plot 127,63

\Orange \Line

\Plot 1,63

\Orange \Line

\Plot 1,1

\Orange \Line

3\->D

3\->C

0\->G

\For 1\->A \To 10

\For 1\->B \To 16

\Int \Mat Z[A,B]\->E

B\<>16\=>(\Mat Z[A,B]-\Int \Mat Z[A,B])*10\->F

B=16\=>0\->F

\If \r\<>47

\Then E=1\=>\Orange \Text D,C,"X"

E=2\=>\Green \Text D,C,"G"

E=3\=>\Text D,C,"L"

E=4\=>\Text D,C,"D"

E=5\=>\Text D,C,"S"

C+4\->C

F=1\=>\Orange \Text D,C,"X"

F=2\=>\Green \Text D,C,"G"

F=3\=>\Text D,C,"L"

F=4\=>\Text D,C,"D"

F=5\=>\Text D,C,"S"

C+4\->C

\IfEnd

\Getkey\->\r

\r=47\=>\Break

\Next 

D+6\->D

3\->C

\r=47\=>\Break

\Next 

\r\<>47\=>\StoPict 6

\Mat Y[2,1]\->C

\Mat Y[2,2]\->D

\Mat Y[2,3]\->K

C\->G

D\->H

\Mat Y[1,2]\->S

\RclPict 6

\Lbl 1

\StoPict 6

\Mat Y[1,3]<1\=>\GotoZ

\Getkey\->\r

\r=0\=>\Goto1

\r=32\ Or \r=33\ Or \r=42\ Or \r=43\=>\Goto3

G\->C

H\->D

\Text H,G," "

\r=48\=>\Goto2

\r=38\=>C>3\=>C-4\->C

\r=27\=>C<123\=>C+4\->C

\r=28\=>D>3\=>D-6\->D

\r=37\=>D<57\=>D+6\->D

(D+3)/6\->B

((C+1)/8)+0.5\->A

\If A=\Int A

\Then (\Int (\Mat Z[B,\Int A]))\->E

\Else \Mat Z[B,\Int A]-(\Int (\Mat Z[B,\Int A]))\->E

10E\->E

\IfEnd

0\->I

\If E\<>1\ Or S>0

\Then E=1\=>\Dsz S

C\->G

D\->H

\IfEnd

S\<=2\=>\Text H,G,"/"

S>2\=>\Text H,G,"+"

\If E=2

\Then \ClrText

\Mat Y[1,1]<2\=>"ACHTUNG DU HAST"

\Mat Y[1,1]<2\=>"NUR NOCH 1 LEBEN"

\If (2\Ran#>\Ran#)

\Then \Green \Text H,G," "

\Text H,G,"!"

\Mat Y[1,3]-1\->\Mat Y[1,3]

1\->I

\Else \Mat Y[1,1]-1\->\Mat Y[1,1]

0\->I

\Green \Text H,G,"V"

\IfEnd

\IfEnd

\If E=3

\Then \ClrText

\Mat Y[1,1]+1\ab/c2\->\Mat Y[1,1]

1\->I

\IfEnd

\If E=4

\Then \Mat Y[2,3]+3\->\Mat Y[2,3]

1\->I

\IfEnd

\If E=5

\Then S+0.5\->S

1\->I

\IfEnd

\Mat Y[1,1]<1\=>\GotoL

S\->\Mat Y[1,2]

C\->\Mat Y[2,1]

D\->\Mat Y[2,2]

I\<>1\=>\Goto1

\If (A=\Int A)\ And (I=1)

\Then 0\->I

\Mat Z[B,A]-E\->\Mat Z[B,A]

\Else \Mat Z[B,\Int A]-(E\ab/c10)\->\Mat Z[B,\Int A]

\IfEnd

\Mat Y[1,3]<1\=>\GotoZ

\Goto1

\Lbl 2

\ClrText

"LEBEN:"

"SPRUENGE:"

"LEBENDE GEGNER:"

"DIAMANTEN:"

" "

"EXIT = ENDE"

"EXE  = WEITER"

\Locate 17,1,\Int \Mat Y[1,1]

\Locate 17,2,\Int S

\Locate 17,3,\Mat Y[1,3]

\Locate 17,4,\Mat Y[2,3]

\Do

\Getkey\->\r

\LpWhile \r\<>31\ And \r\<>47

S\->\Mat Y[1,2]

C\->\Mat Y[2,1]

D\->\Mat Y[2,2]

\r=47\=>\Stop

\Goto1

\Lbl 3

\ClrText

"BITTE GEBEN SIE IHRE RECHNUNG EIN:"?\->Z

" "

" "

"ERGEBNIS:"

\Locate 1,7,Z

\Goto1

\Lbl L

\Cls

\Text 1,1,"TOTE KAEMPFEN NICHT"

\Stop

\Lbl Z

\ClrText

\Orange "DU HAST ALLE MONSTER GETOETET"

\Green "LEBEN:"

\Green "SPRUENGE:"

\Green "DIAMANTEN:"

\Green " "

\Locate 1,6,"---------------------"

\Orange "PUNKTE:"

\Locate 17,3,\Int \Mat Y[1,1]

\Mat Y[1,2]\->S

\Locate 17,4,\Int S

\Locate 17,7,\Int (S+\Mat Y[1,1]+\Mat Y[2,3])

\Cls

\Orange \Text 57,1,"DRUECK EXE \=> ERSTELLE SPIEL"

\Locate 17,5,\Mat Y[2,3]

\Do

\Getkey\->\r

\LpWhile \r\<>31

\Prog "FIGHT1LE"

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1024

File Name:FIGHT1LE

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\ClrText

[[0,0,0][0,0,0]]\->\Mat Y

[[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]]\->\Mat Z

\Orange "ERSTELLE LEVEL"

\Orange "FORTSCHRITT: 1.TEIL"

\Green "   0 BYTE VON 1600"

0\->B

0\->D

0\->\Mat Y[1,3]

\For 1\->E \To 10

\For 1\->F \To 16

(\Int (5.5\Ran#))\->B

(\Int (5.5\Ran#))\->C

B+C\ab/c10\->\Mat Z[E,F]

B=2\=>\Mat Y[1,3]+1\->\Mat Y[1,3]

F\<>16\=>C=2\=>\Mat Y[1,3]+1\->\Mat Y[1,3]

\Isz D

D<10\=>3\->A

D\>=10\=>2\->A

D\>=100\=>1\->A

\Locate A,3,10D

\Next 

\Next 

\Orange "FERTIG"

"FORTSCHRITT: 2.TEIL"

"   0 BYTE VON 50"

3\->\Mat Y[1,1]

\Locate 3,6,10

1\->\Mat Y[1,2]

\Locate 3,6,20

3\->\Mat Y[2,1]

\Locate 3,6,30

3\->\Mat Y[2,2]

\Locate 3,6,40

0\->\Mat Y[2,3]

\Locate 3,6,50

\Orange "FERTIG"

\For 1\->A \To 300

\Next 

\ClrText

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

\Cls

\Orange "WOLLEN SIE JETZT"

\Orange "SPIELEN?"

\Plot 3,63

\Plot 3,56

\Line

\Plot 20,56

\Line

\Text 58,7,"YES"

\Plot 110,63

\Plot 110,56

\Line

\Plot 127,56

\Line

\Text 58,114,"NO"

\Orange \Text 58,25,"(C)'2000 KAY STROBACH"

\Locate 21,7," "

\Do

\Getkey\->\r

\LpWhile \r\<>79\ And \r\<>29

\r=79\=>\Prog "FIGHT1SP"

\r=29\=>"DANN EBEN NICHT"

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:416

File Name:FIGHT1CH

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\Lbl 0

\ClrText

"CHEAT MODE:"

"     LEBEN:"

"     SPRUENGE:"

"     DIAMANTEN:"

"     GEGNER:"

"     ENDE"

"KLICK \=> WERT + ?"

\Locate 16,2,\Int \Mat Y[1,1]

\Locate 16,3,\Int \Mat Y[1,2]

\Locate 16,4,\Int \Mat Y[2,3]

\Locate 16,5,\Int \Mat Y[1,3]

5\->G

\Prog "AUSWAHL"

\ClrText

\If A=1\ Or A=2\ Or A=3

\Then "WIEVIELE"

A=1\=>\Locate 10,1,"LEBEN"

A=2\=>\Locate 10,1,"SPRUENGE"

A=3\=>\Locate 10,1,"DIAMANTEN"

"WILLST DU DAZU HABEN"?\->B

A=1\=>\Mat Y[1,1]+B\->\Mat Y[1,1]

A=2\=>\Mat Y[1,2]+B\->\Mat Y[1,2]

A=3\=>\Mat Y[2,3]+B\->\Mat Y[2,3]

\IfEnd

A\<>5\=>\Goto0

\Prog "FIGHT1SP"

%End