'Tunnel by Lionel Baboud
'casio site:http://perso.wanadoo.fr/duobab/
'e-mail:roland.baboud@wanadoo.fr
'---------

Characters translation :
------------------------
|  >=   : greater or equal
|  <=   : less or equal
|  <>   : not equal
|  ->   : the single arrow
|  =>   : the double arrow
|  @    : théta (the greek symbol)


6 -> B
10 -> P
0 -> N
{0,0,0,0,0,0,0} -> List 1
ClrText
For 1 -> L To 7
" "
Locate 1,L,"xxxxxx)      (xxxxxxx"
7 -> List 1[L]
Next
0 -> S
Do
For 1 -> L To 7
" "
Getkey -> K
K=38 => P-1 -> P
K=27 => P+1 -> P
S+1 -> S
Locate P,1,"°@°"
B-1+2Int 2Ran# -> A
A>1 And A<14 => A -> B
B -> List 1[L]
L+1 -> M
M=8 => 1 -> M
Locate 1,7,"xxxxxxxxxxxxxxxxxxxxx"
Locate B,7,")      ("
P<=List 1[M] Or P>=(List 1[M]+5) => Goto E
Next
LpWhile 1
Lbl E
" "
"SCORE:":S
Stop