'Det our.1
ClrText
Locate 6,2,"DETOUR .1"
Locate 9,4,"BY"
Locate 4,6,"™Jerod Fritz™"
Locate 5,7,"(c)1996 V.1"Ý
0ÞM
0ÞS
0ÞE
Lbl D
ClrText
" "
"‰™‰"
"| |"
"| |"
"| |"
"‰™‰"
For 1ÞK To 70
Next
Locate 1,3,"|©| READY"
For 1ÞK To 70
Next
Locate 1,4,"|©|  SET"
For 1ÞK To 70
Next
Locate 1,5,"|©|  GO!"
For 1ÞK To 70
Next
0ÞW
0ÞI
0ÞH
6ÞC
5ÞB
5ÞA
0ÞN
5ÞR
10ÞV
9ÞK
7ÞO
While 1
Q‰1ÞQ
10‰SÞS
10‰MÞM
If M=2500
Then 0ÞM
E‰1ÞE
Locate 15,4,"‰1 MAN"
IfEnd
IÞJ
HÞI
UÞN
XÞU
(Int 11Ran#)‰5ÞG
If G=5
Then 6ÞG
IfEnd
GÞH
Locate G,7,"™"
(Int 11Ran#)‰5ÞW
If W=5
Then 6ÞW
IfEnd
WÞX
Locate W,7,"™"
" "
Locate 5,7,"|"
Locate 16,7,"|"
Locate 21,1,E
If Getkey=73
Then V™1ÞV
IfEnd
If Getkey=53
Then V‰1ÞV
IfEnd
If Getkey=64
Then Locate 8,1,"PAUSED"
While Getkeyá31
Locate 8,1,"PAUSED"
WhileEnd
Locate 8,1,"             "
IfEnd
Locate K,3,"V"
Locate V,4,"Y"
VÞK
If V=5 Or V=16 Or V=J Or V=N
Then Goto C
IfEnd
CÞD
BÞC
AÞB
RÞA
WhileEnd
Lbl C
0ÞX
While Xà2
Locate V™X,4™X,"©"
Locate V‰X,4‰X,"©"
Locate V™X,4‰X,"©"
Locate V‰X,4™X,"©"
Locate V,4‰X,"©"
Locate V,4™X,"©"
Locate V‰X,4,"©"
Locate V™X,4,"©"
X‰1ÞX
WhileEnd
0ÞX
While Xà2
Locate V™X,4™X," "
Locate V™X,4‰X," "
Locate V‰X,4™X," "
Locate V,4‰X," "
Locate V,4™X," "
Locate V‰X,4," "
Locate V™X,4," "
X‰1ÞX
WhileEnd
Lbl 0
ClrText
" "
" "
" "
Locate 1,1,"SCORE: "
Locate 7,1,S
E™1ÞE
Locate 1,3,"LIVES: "
Locate 7,3,E
For 1ÞA To 500
Next
If E=0
Then Locate 6,7,"GAME OVER"
Locate 6,6,"GAME OVER"
Locate 6,5,"GAME OVER"Ý
Prog "Det our.1"
IfEnd
Goto D