PROGRAM NAME: RISE

Return to program description page.

Lbl A

:ClrHome

[A]((C-1),3)->V

Disp "---HILL RISE----"

Output(4,1,"ENTER '0' TO GO"):Output(5,1,"BACK"

Input "RISE (M)=",H

If H=0:Then:Return:End

If (V‰-2*G*H)<0:Then

ClrHome

Disp " "

Disp "THE CAR WON'T"

Disp "MAKE IT UP THE"

Disp "HILL.":Disp " ":Disp " "

Output(8,10,"[ENTER]")

Pause :Goto A:End

Ã(V‰-2*G*H)->U:abs ((U-V)/G)->T

Disp "VELOCITY AT THE":Disp "HILL'S TOP IS":Disp "M/S:"

Output(5,6,U)

Disp "TIME (S):":Output(6,11,T)

Disp :Output(8,7,"ACCEPT Y/N")

getKey->K

While (K=0):getKey->K:End

If K=71:Then:Goto A:End

ClrHome:Disp "YES"

3->[A](C,1)

T->[A](C,2)

U->[A](C,3)

H->[A](C,4)

C+1->C