[AXE] MENU

.MENU

ClrDraw

[0103030303030100]->Pic1
[80C0C0C0C0C08000]

7->X
4->Y->W

Fix 5

Text(X+5,Y,"PLAY
Text(X+1,Y+8,"SCORES
Text(X+5,Y+16,"HELP
Text(X+5,Y+24,"QUIT

RectI(X,Y,25,7

Pt-Change(X-9,Y,Pic1
Pt-Change(X+26,Y,Pic1+8

DispGraph

Repeat getKey(15)

If Y!=(W+24)
If getKey(1)

Y+8->theta

RectI(X,Y,25,7
Pt-Change(X-9,Y,Pic1
Pt-Change(X+26,Y,Pic1+8

Repeat Y=theta
RectI(X,Y,25,7
Pt-Change(X-9,Y,Pic1
Pt-Change(X+26,Y,Pic1+8
DispGraph
RectI(X,Y,25,7
Pt-Change(X-9,Y,Pic1
Pt-Change(X+26,Y,Pic1+8
Y++
End
RectI(X,Y,25,7
Pt-Change(X-9,Y,Pic1
Pt-Change(X+26,Y,Pic1+8
DispGraph
End
End

If Y!=W
If getKey(4)

Y-8->theta

RectI(X,Y,25,7
Pt-Change(X-9,Y,Pic1
Pt-Change(X+26,Y,Pic1+8

Repeat Y=theta
RectI(X,Y,25,7
Pt-Change(X-9,Y,Pic1
Pt-Change(X+26,Y,Pic1+8
DispGraph
RectI(X,Y,25,7
Pt-Change(X-9,Y,Pic1
Pt-Change(X+26,Y,Pic1+8
Y--
End
RectI(X,Y,25,7
Pt-Change(X-9,Y,Pic1
Pt-Change(X+26,Y,Pic1+8
DispGraph
End
End

Pause 10

End

Fix 4