%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1400

File Name:FEUER

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\ClrText

\Text 57,01,"VIDEO CLIP"

\For 1\->F \To 15

\Locate \Int (20\Ran#+1),1,"IOI"

\Locate \Int (20\Ran#+1),1,"IOI"

\Locate \Int (20\Ran#+1),7,")-("

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

\ClrText

\Next 

" "

\Locate 1,1,"SETUP:"

" "

\Locate 1,2,"FEUER:      LINKS"

\Do

\Getkey\->M

\LpWhile M=0

" "

\Locate 1,3,"FEUER:      MITTE"

\Do

\Getkey\->N

\LpWhile N=M\ Or N=0

" "

\Locate 1,4,"FEUER:      RECHTS"

\Do

\Getkey\->O

\LpWhile O=M\ Or N=O\ Or O=0

" "

\Locate 1,5,"LENKEN:     LINKS"

\Do

\Getkey\->Q

\LpWhile Q=M\ Or N=Q\ Or O=Q\ Or Q=0

" "

\Locate 1,6,"LENKEN:     RECHTS"

\Do

\Getkey\->R

\LpWhile R=M\ Or N=R\ Or O=R\ Or Q=R\ Or R=0

100\->Z

" "

\Locate 1,7,"TIMER:"

\Do

\Getkey\->\r

\r=27\ Or \r=28\=>Z<1500\=>Z+10\->Z

\If (\r=37\ Or \r=38)\ And Z>10

\Then Z-10\->Z

\Locate 13,7,"      "

\IfEnd

\Locate 13,7,Z

\LpWhile \r\<>31

" "

\Locate 1,7,"SCHUSSDAUER:"

1\->S

\Do

\Getkey\->\r

\r=27\ Or \r=28\=>S>1\=>\Dsz S

\r=37\ Or \r=38\=>S<3\=>\Isz S

\Locate 13,7,4-S

\LpWhile \r\<>31

Z\->K

5\->A

0\->C

6\->E

12\->J

0\->P

0\->F

\Lbl 1

Z-1\->Z

Z<1\=>\Goto2

\Getkey\->\r

\r=Q\=>A-2>00\=>A-2\->A

\r=R\=>A+2\<=19\=>A+2\->A

\Locate A,7,")-("

0\->B

\If \Ran#>0.5

\Then J<19\=>\Isz J

\Else J>1\=>\Dsz J

\IfEnd

0\->F

\If \Ran#>0.05

\Then \If \Ran#>0.5

\Then E<19\=>\Isz E

\Else E>01\=>\Dsz E

\IfEnd

\Else \For 1\->I \To 7

\Locate E+1,I,"Y"

\Next 

E\>=A\=>E\<=A+2\=>P-3\->P

\IfEnd

\Locate E,1,"IOI"

\Locate J,1,"IOI"

J\->L

E\->J

L\->E

\r=N\=>A+1\->B

\r=O\=>A+2\->B

\r=M\=>A\->B

\If (\r=N\ Or \r=O\ Or \r=M)\ Or C>0

\Then B>0\=>B\->D

D\->B

C=0\=>6\->C

\Locate B,C,"^"

C-S\->C

C=0\=>B\>=E\=>B\<=E+2\=>1\->F

C=0\=>B\>=J\=>B\<=J+2\=>\Isz F

\Isz G

\IfEnd

\ClrText

F=0\=>\Goto1

F=2\=>5\->F

P+F\->P

\Locate 3,3,"TREFFER"

F=5\=>\Locate 3,3,"STRIKE!"

0\->F

\For 1\->F \To 99

\Next 

\Locate 3,3,"        "

\Locate 1,1,"                     "

\Int (20\Ran#+1)\->E

0\->G

\Goto1

\Lbl 2

\ClrText

\If P=0\ Or K>500

\Then 1000\->P

\For 1\->F \To 6

" "

F=5\=>\Green " "

\Next 

\Locate 1,6,"MIT DIPLOMATIE BONUS"

\IfEnd

\Locate 1,1,"TIMEOUT"

\Locate 1,2,"PUNKTE:"

\Locate 17,2,1500+P-K

\Locate 1,3,"TREFFER:"

\Locate 17,3,P

\Locate 1,4,"ZEITEINHEITEN:"

\Locate 17,4,K

1\->P

\Locate 1,7,"DRUECK EXE"

9000\->P

\Do

\Dsz P

P\<=0\=>\Stop

\LpWhile \Getkey\<>31

K\->Z

0\->P

\Goto1

%End