%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1138
File Name:GOLDMINE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If \List 5[1]=1
\Then 0\->\List 5[1]
\ClrText
\Locate 7,4,"LOADING"
\For 1\->I \To 400
\Next 
\GotoP
\IfEnd
\Lbl O
\ClrText
\Locate 7,3,"\GigaolD \Mega\{i}n\Exa"
\Locate 3,4,"V\Re\Cor. 1.\Deg> 19(C)98"
\Locate 2,5,"\RbY \hAn\RdR\e^xAS TI\Cnt\hD1U\Cnt\Rd"
\For 1\->I \To 10
\For 3\->J \To 4
\Locate J,1,">\Ra>\Ra>\Ra>\Ra>\Ra>\Ra>\Ra>\Ra>"
\Locate J,7,">\Ra>\Ra>\Ra>\Ra>\Ra>\Ra>\Ra>\Ra>"
\Next 
\Next 
0\->\theta
0\->A~Z
\Lbl P
0\->F
10\->A
0\->M~Z
" "
" "
" "
" "
" "
" "
" "
\Locate 6,7,"#       #"
\Locate 7,6,"#     #"
\Locate 8,5,"#   #"
7\->G~I
\For 1\->I \To 400
\Next 
\While 1
" "
F+1\->F
H\->I
G\->H
G-1\->G
2\Ran#>1\=>G+2\->G
G=1\=>2\->G
G=15\=>14\->G
\Locate G-1,7,"#       #"
A\->B
P\->M
Q\->N
R\->O
S\->T
U\->P
V\->Q
W\->R
X\->S
\Int 5\Ran#+G+1\->U
\Int 5\Ran#+G+1\->V
\Int 5\Ran#+G+1\->W
\Int 5\Ran#+G+1\->X
\If \Getkey=52
\Then \Do
\LpWhile \Getkey\<>31
\IfEnd
\Getkey=72\=>A-2\->A
\Getkey=62\=>A-1\->A
\Getkey=42\=>A+1\->A
\Getkey=32\=>A+2\->A
\Locate B,4," "
\Locate A,5,"W"
\Locate U,7,"#"
\Locate V,7,"#"
\Locate W,7,"#"
\Locate X,7,"\Deg>"
\If A=T
\Then E+1\->E
\Else A=M\ Or A=N\ Or A=O\ Or A>I+6\ Or A<I\=>\GotoD
\IfEnd
F=80\=>\GotoH
\WhileEnd
\Lbl D
\ClrText
\Locate 9,2,"CRASH"
\Locate 7,4,"YOU DIED"
\Getkey
\Locate 5,6,"SCORE"
\Locate 11,6,E*10+\theta
\While 1
\Getkey=31\=>\GotoO
\WhileEnd
\Lbl H
\For 1\->I \To 400
\Next 
" "
" "
" "
" "
" "
" "
" "
\Locate 6,2,"You ma\Rd\Re it"
\Locate 7,4,"Gol\Rd"
\Locate 6,5,"S\Rcor\Re"
\Locate 12,4,E
\Locate 12,5,\theta
\Do
E-1\->E
\Locate 12,4,E
E=9\=>\Locate 13,4," "
E>40\=>(E-40)*10+\theta\->\theta
E>35\=>10+\theta\->\theta
E>30\=>10+\theta\->\theta
E>20\=>10+\theta\->\theta
\theta+20\->\theta
\Locate 12,5,\theta
\LpWhile E\<>0
\For 1\->I \To 400
\Next 
\ClrText
\Locate 2,3,"[EXP] Sav\Re an\Rd \Rexit"
\Locate 2,5,"[EXE] \Next  l\Rev\Rel"
\Do
\Getkey=31\=>\GotoP
\LpWhile \Getkey\<>51
1\->\List 5[1]
\ClrText
\Locate 7,4,"[SAVING]"
\For 1\->I \To 400
\Next 
\Stop

%End