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

6B
10P
0N
{0,0,0,0,0,0,0}List 1
ClrText
For 1L To 7
" "
Locate 1,L,") ("
7List 1[L]
Next
0S
Do
For 1L To 7
" "
GetkeyK
K=38P™1P
K=27P‰1P
S‰1S
Locate P,1,"œœ"
B™1‰2Int 2Ran#A
A>1 And A<14AB
BList 1[L]
L‰1M
M=81M
Locate 1,7,""
Locate B,7,") ("
PList 1[M] Or P(List 1[M]‰5)Goto E
Next
LpWhile 1
Lbl E
" "
"SCORE:":S
Stop