PROGRAM NAME: COASTER

Return to program description page.

Disp "ROLLER COASTER"

Disp " DESIGNER "

Disp " "

Disp " BY T. WAYNE"

Disp "================"

Output(8,10,"[ENTER]"

0->J

1->W

0->K

While K=0

J+1->J

Output(5,J," ")

If J=1:Then:Output(5,16,"="):End

If J­1:Then:Output(5,(J-1),"="):End

If J=16:Then:0->J:End

getKey->K

End

Lbl Y

Menu(" MENU CHOICES ","NEW COASTER",X,"CONTINUE",D,"REVIEW TRACK",C,"QUIT PROGRAM",Q)

Lbl X

ClrHome

Disp " "

Disp " THE COASTER

Disp " CAR'S MASS"

Disp " IS 500 KG."

Output(8,10,"[ENTER]"

Pause

500->M

1->C

9.8->G

Fix 2

{1,1}->dim [A]

{10,50}->dim [A]

Menu(" RIDE START ","LINEAR FORCE",A,"HILL TOP DROP",B)

Lbl A

1->[A](1,1):0->[A](1,2):0->[A](1,3)

C+1->C

prgmSTRAIGHT

Goto D

Lbl B

ClrHome

Disp "--HILL TOP DROP-":Disp " "

Disp "INITIAL VELOCITY"

Disp "OVER THE HILL"

Input "IN (M/S):",V

Output(8,1,"BACK")

1->[A](1,1):0->[A](1,2):V->[A](1,3)

C+1->C

prgmDROP

Goto D

Lbl C

prgmREVIEW

Goto Y

Lbl D

Menu(" TRACK ELEMENT ","LOOP",F,"DOWN HILL",H,"UP HILL",I,"SPEED CHANGE",J,"BANK CURVE",K,"FINISHED",L)

Lbl F

prgmLOOP

Goto D

Lbl H

prgmDROP

Goto D

Lbl I

prgmRISE

Goto D

Lbl J

prgmSTRAIGHT

Goto D

Lbl K

prgmBANK

Goto D

Lbl L

Goto Y

Lbl Q

ClrHome

Disp " "

Disp " "

Disp " "

Disp " GOOD BYE :) "

Disp " "

Disp " "

Stop