PROGRAM NAME: STRAIGHT

Return to program description page.

Lbl A

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

ClrHome:Disp "&endash;STRAIGHT TRACK&endash;"

Disp "----------------"

Disp "TO ACCELERATE":Disp "THE CAR, TYPE A"

Disp "POSITIVE FORCE:"

Disp "TO DECCELERATE,"

Disp "NEGATIVE FORCE."

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

Pause

Lbl B

ClrHome:Disp "&endash;STRAIGHT TRACK&endash;"

Disp "----------------"

Output(3,1,"FORCE(N)=")

Output(4,1,"TRACK LENGTH"):Output(5,1," IN (M)=")

Output(7,1,"ENTER '0' TO GO"):Output(8,1,"BACK")

Input "FORCE(N)=",F:Disp "TRACK LENGTH"

If F=0:Then:Return:End

Input " IN (M)=",L

If L=0:Then:Goto B:End

ClrHome

Disp "M (KG)="

Disp "F (N)="

Disp "L (M)="

Disp "A (G'S)="

Disp "VF (M/S)="

Disp "TIME (S)="

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

Float

Output(1,8,"500"):Output(2,7,F):Output(3,7,L):Fix 2

F/(M*G)->A

Output(4,9,A)

If (V‰+(2*L*A*G))<0:Then

ClrHome

Disp "-----OH NO------"

Disp " :("

Disp "THE CAR IS NOW"

Disp "GOING IN"

Disp "REVERSE."

Disp "THE FORCE IS TOO"

Disp "NEGATIVE. REDO."

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

Pause

Goto B

End

Ã(V‰+2*L*A*9.8)->U:Output(5,10,U)

(V-(U*500/F))->T:Output(6,10,T)

Output(8,1," ACCEPT? Y/N")

getKey->K

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

If K=71:Then:Goto A:End

ClrHome:Disp "YES"

1->[A](C,1)

(U*500/F)->[A](C,2)

U->[A](C,3)

A->[A](C,4)

F->[A](C,5)

L->[A](C,6)

C+1->C