ClrHome
Output(3,3,"GETGOLD")
Output(6,1,"BY NACHTKRIECHER")
Pause
ClrHome
Lbl M
menu("MENU","play", P, "help", H, "hi scores", S, "quit", Q)
Lbl P
ClrHome
8->X
4->Y
0->G
0->K
0->S
Output(Y,X,"E")
randInt(1,16)->LX[1]
randInt(1,8)->LY(1)
randInt(1,16)->LX(2)
randInt(1,8)->LY(2)
randInt(1,16)->LX(3)
randInt(1,8)->LY(3)
randInt(1,16)->LX(4)
randInt(1,8)->LY(4)
randInt(1,16)->LX(5)
randInt(1,8)->LY(5)
randInt(1,16)->LX(6)
randInt(1,8)->LY(6)
randInt(1,16)->LX(7)
randInt(1,8)->LY(7)
randInt(1,16)->LX(8)
randInt(1,8)->LY(8)
Pause
Output(LY(1),LX(1),"*")
Output(LY(2),LX(2),"*")
Output(LY(3),LX(3),"*")
Output(LY(4),LX(4),"*")
Output(LY(5),LX(5),"*")
Output(LY(6),LX(6),"*")
Output(LY(7),LX(7),"*")
Output(LY(8),LX(8),"*")
while (G<8)
if (X = LX(1) and Y = LY(1))
then
G+1->G
100->LX(1)
end
if (X = LX(2) and Y = LY(2))
then
G+1->G
100->LX(2)
end
if (X = LX(3) and Y = LY(3))
then
G+1->G
100->LX(3)
end
if (X = LX(4) and Y = LY(4))
then
G+1->G
100->LX(4)
end
if (X = LX(5) and Y = LY(5))
then
G+1->G
100->LX(5)
end
if (X = LX(6) and Y = LY(6))
then
G+1->G
100->LX(6)
end
if (X = LX(7) and Y = LY(7))
then
G+1->G
100->LX(7)
end
if (X = LX(8) and Y = LY(8))
then
G+1->G
100->LX(8)
end
getkey->K
if (K&#8800;0)
output(Y,X," ")
if (K = 24)
X-1->X
if (K = 25)
Y-1->Y
if (K = 26)
X+1->X
if (K = 34)
Y+1->Y
if (X = 0)
16->X
if (X = 17)
1->X
if (Y = 0)
8->Y
if (Y = 9)
1->Y
output(Y,X,"E")
S+1->S
end
1000000/S->S
iPart(S)->S
ClrHome
if (Lgghs(1) < S)
then
Disp "Congrats"
Disp "best score evar!"
Disp "Score: ", S
Disp "Enter Initials:"
Input Str7
S->Lgghs(5)
SortD(Lgghs)
else
Disp "Congrats!"
Disp "All gold got!"
if (Lgghs(5) < S)
S->Lgghs(5)
SortD(Lgghs)
Pause
end
ClrHome
Goto M
Lbl H
Disp "You are Einstein","You like gold","Get it fast"
Pause
ClrHome
Goto M
Lbl S
ClrHome
Disp Lgghs(1)
Disp Lgghs(2)
Disp Lgghs(3)
Disp Lgghs(4)
Disp Lgghs(5)
Output 1,1,Str7
Pause
ClrHome
Goto M
Lbl Q
ClrHome