0->Y->E->P

1->F->Q

0->Y->E->P+1->F->Q

rand^35+1->R

35->S

rand^35+1->T

69->U

rand^35+1->V

rand^35+1->V

35->S*2-1->U

~1->X

For(12)

Pt-On(X,43,Pic2)^^r

X+8->X

End

~9->X

For(12)

Pt-On(X+8->X,43,Pic2)^^r

End

Repeat getKey(15)

<whatever>

End

While 1

<whatever>

EndIf getKey(15)

If E<<0

0->E

1->F

End

If E<<0

->F-1->E

End

!If F

E-38->E

If E<<0

->F-1->E

End

Else

E+25->E

End

!If F

If E<<0

->F-1->E

End

~38->E

Else

25

End

+E->E

A=B??

A-B?

If B=9

0->F

500->E

End

!If B-9

0->F

500->E

End

!If B-9

->F

500->E

End

rand^35+1->R

rand^35+1

Rect(83,0,10,R

Rect(83,R+24,10,39

T++

If T=256

0->T

End

T++

If =256

0->T

End

T++

!If -256

0->T

End

T++

!If -256

->T

End

Pic0+X

X+Pic0

Text(0,0,P>Dec

Text(0,,P>Dec)

Text(0,0,"Score: ",P>Dec

P+(Q=15??(S=15??U=15))->P