%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:670

File Name:STARWARS

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\Lbl 0

1\->E

9\->G

9\->S

\Cls

\ClrText

0\->F

3\->T

11\->A

11\->C

\Do

\ClrText

\Getkey\->\r

\r=27\=>A<19\=>A+1\->A

\r=38\=>A>1\=>A-1\->A

\If \r=73:\Then \Do:\LpWhile \Getkey=73:\Do:\LpWhile \Getkey\<>73:\IfEnd

\Locate A,7,"\<= \>="

\Locate A+1,7,S

\Ran#\->B

B<0.5\=>\(-)1\->B

B\>=0.5\=>1\->B

C+B>0\=>C+B<20\=>C+B\->C

\Locate C,1,"< >"

\Locate C+1,1,G

\If \Ran#>0.956:\Then \Locate 4,3,"MEGATONBOMBE":S-1\->S:\IfEnd

\r=28\=>A+1\->D

\r=28\=>6\->E

\If D\<>0\ And E\>=1:\Then \Locate D,E,"^":E\<=2\=>D\>=C\=>D\<=C+2\=>1\->F:\Dsz E:E\<=1\=>0\->D:\IfEnd

\If F:\Then \Locate 7,3,"TREFFER":0\->F:G-1\->G:G=10\=>0\->S

\IfEnd

\LpWhile G*S>0

\If S

\Then \ClrText:\For A\->B \To 21:\Locate B,7,"\<==\>=":\ClrText:\Next :"SIE HABENS":"GESCHAFFT":" ":"SIE HABEN":"ALLE GEGNER":"GEKILLT":\IfEnd

\If G

\Then \ClrText:\For A\->B \To 21:\Locate B,1,"<=>":\ClrText:\Next :"SIE HABENS":"VERMASSELT":" ":"SIE WURDEN":"GEKILLT":\IfEnd

"EXE --> WEITER"

\Do:\For 7\->E \To 1 \Step \(-)1:\Getkey\->\r:\Locate 21,E,"^":\Int (0.9*0.05*E)\->B

\Locate 21,E+B," ":\r=31\=>\Break:\Next :\LpWhile \r\<>31

\Goto0

%End