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

6ÞB
10ÞP
0ÞN
{0,0,0,0,0,0,0}ÞList 1
ClrText
For 1ÞL To 7
" "
Locate 1,L,"©©©©©©) (©©©©©©©"
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,"©©©©©©©©©©©©©©©©©©©©©"
Locate B,7,") ("
PàList 1[M] Or Pâ(List 1[M]‰5)ãGoto E
Next
LpWhile 1
Lbl E
" "
"SCORE:":S
Stop