" "
Green "    WILLKOMMEN IM          PROGRAMM:"
" "
Orange " "
" "
Locate 11,5,"List "
Locate 8,5,"Tenn"
Locate 14,5," "
ClrText
" "
Green " "
Locate 9,2,"MENU:"
" "
Orange "   1NEUES SPIEL"
" "
Orange "   2ALTES SPIEL"
Lbl 8
GetKey=72=>Goto 0
GetKey=62=>Goto 9
Goto 8
Lbl 0
ViewWindow 1,127,200,63,1,200
Green F-Line 24,57,102,57
Green F-Line 102,57,102,7
Green F-Line 102,7,24,7
Green F-Line 24,7,24,57
Green F-Line 24,32,102,32
0->M
0->N
0->O
0->P
0->Q
0->R
0->S
Lbl 4
53->B
4->F
Ran#*9->H
Intg H+1->H
H*4->H
H+38->H
H=62=>0->E
H<62=>4->E
H>62=>(-)4->E
13->I
0->L
H->C
15->D
H->A
E=(-)4=>H-20->A
E=4=>H+20->A
Lbl 1
Orange Text D,C," "
C+E->C
D+F->D
Orange Text D,C,"(deg)"
D<11=>Goto 5
D>51=>Goto 5
C<26=>Goto 5
C>98=>Goto 5
Text B,A," "
GetKey=38=>A>32=>A-4->A
GetKey=37=>B<51=>B+4->B
GetKey=28=>B>40=>B-4->B
GetKey=27=>A<92=>A+4->A
Text B,A,""
If GetKey=48
Then Text 1,1,"PetaAUSE"
Text 1,1,"      "
IfEnd
GetKey->G
If G=49 Or G=39 Or G=29
Then Text B-1,A+3,"-"
If A+4=C And G=29 And B-2=D
Then 4->E:(-)4->F
IfEnd
If A+4=C And G=39 And B-2=D
Then 0->E:(-)4->F
IfEnd
If A+4=C And G=49 And B-2=D
Then (-)4->E:(-)4->F
IfEnd
Text B,A+3," "
IfEnd
GetKey->G
If G=79 Or G=69 Or G=59
Then Text B-1,A-5,"-"
If A-4=C And G=59 And B-2=D
Then 4->E:(-)4->F
IfEnd
If A-4=C And G=69 And B-2=D
Then 0->E:(-)4->F
IfEnd
If A-4=C And G=79 And B-2=D
Then (-)4->E:(-)4->F
IfEnd
Text B,A-5," "
IfEnd
If E=0 And C=H And I+2=D
Then Text I,H," "
H<62=>H+4->H
H>=62=>H-4->H
Text I,H,""
IfEnd
If H+4=C And I+2=D And F<0
Then Text I-1,H+3,"-"
Text I,H+3," "
Goto 2
IfEnd
If H-4=C And I+2=D And F<0
Then Text I-1,H-5,"-"
Text I,H-5," "
Goto 2
IfEnd
Lbl 3
Text I,H," "
H>C=>H>32=>H-4->H
H<C=>H<92=>H+4->H
L=1=>I<25=>I+4->I
Text I,H,""
0->L
Goto 1
Lbl 2
For 1->K To 2
Ran#*3->J
Intg J->J
If J=0
Then C-26->X
35-D->Y
If X>=Y
Then (-)4->E:4->F
Else 1->K
IfEnd
IfEnd
If J=1
Then 0->E:4->F
IfEnd
If J=2
Then 98-C->X
35-D->Y
If X>=Y
Then 4->E:4->F
Else 1->K
IfEnd
IfEnd
Next
1->L
Goto 3
Lbl 5
If D<31
Then 1->X
M+15->M
S+1->S
IfEnd
If D>31
Then 2->X
N+15->N
S-1->S
IfEnd
If D=31 And F<0
Then 2->X
N+15->N
S-1->S
IfEnd
If D=31 And F>0
Then 1->X
M+15->M
S+1->S
IfEnd
X=1=>M>30=>M-5->M
X=2=>N>30=>N-5->N
If M=50
Then 0->M
0->N
O+1->O
IfEnd
If N=50
Then 0->N
0->M
P+1->P
IfEnd
If O=3
Then 0->O
0->P
Q+1->Q
IfEnd
If P=3
Then 0->P
0->O
R+1->R
IfEnd
Lbl 9
ClrText
Orange " "
Green " "
" "
" "
" "
Orange " "
Locate 8,1,"PUNKTE:"
Locate 1,2,"SPIELER       GEGNER"
Locate 8,3,"PUNKTE:"
Locate 8,4,"SPIELE:"
Locate 8,5,"SAETZE:"
Locate 4,3,M
Locate 17,3,N
Locate 4,4,O
Locate 17,4,P
Locate 4,5,Q
Locate 17,5,R
Locate 1,6,"UNTERSCHIED:"
Locate 14,6,S
Q=2=>Goto 6
R=2=>Goto 7
Orange Text D,C," "
Text B,A," "
Text I,H," "
Goto 4
Lbl 6
ClrText
" "
" "
" "
Orange "  DU HAST GEWONNEN!"
Stop
Lbl 7
ClrText
" "
" "
" "
Orange "  DU HAST VERLOREN!"
Stop