----Ski Jump----



By: Marcus Lundstr"m

E mail: Marcusbest@hotmail.com 



What:Compete with casio the one who jump longest wins.



Size: 600 bytes



I made this program on my 7700GB calc but it probably will work on other.

-------------------------------------------------------------------------

 Command translation:

 ->      Single arrow (located on the keyboard)                   

 =>      Double arrow (press: [shift] [prgm] [f1] [f1])           

 _       Display, -Disp- (press: [shift] [prgm] [f5])

 >=      Greater or equal (press: [shift] [prgm] [f2] [f5])                                        

 <=      Less or equal (press: [shift] [prgm] [f2] [f6])

-------------------------------------------------------------------------

"*-*-*-*-*-*-*-*"

"    SKI JUMP"

"*-*-*-*-*-*-*-*"_

Range 1,127,0,1,63,0

Fix 0

0->Q

Lbl 7

Cls

Q+1->Q

20Ran#+30->I

10Ran#+10->J

Plot 127,50

Plot 117,50:Line

Plot 95,25:Line

Plot 85,20:Line

Plot 79,20:Line

Plot 74,23:Line

Plot 73,15:Line

Plot 127,15:Line

Plot 1,15:Line_

Q=1=>"CASIO‹S TURN"_

Q=2=>"YOUR TURN"_

117->A

53->B

Lbl 0

A-2->A

B-2.2->B

A->C

B->D

B<=23=>Goto 1

Plot 117,53

Plot A,B:Line

Goto 0

Lbl 1

A-2->A

A<=78=>Goto 2

A->E

Plot C,D

Plot A,B:Line

Goto 1

Lbl 2

A-2->A

B+2.2->B

A->G

B->H

A<=70=>Goto 3

Plot E,D

Plot A,B:Line

Goto 2

Lbl 3

A-2->A

I+1->I

B+2.2->B

A->L

B->M

A-10Ran#+2->K

B>=I=>Goto 4

Plot G,H

Plot A,B:Line

Goto 3

Lbl 4

A-2->A

A->O

M->F

A<=K=>Goto 5

Plot L,M

Plot A,M:Line

Goto 4

Lbl 5

A-1->A

M-2.2->M

M<=15=>Goto 6

Plot O,F

Plot A,M:Line

Goto 5

Lbl 6

"JUMP:"

Q=1=>100-A+30->P_

Q=1=>100-A+30->R_

"METERS"_

Q=1=>Goto 7

" "

R>P=>"YOU WIN!"_

P>R=>"CAIO WIN!"_

--------------------------------------------------------------------------

(c) Copyright 1997 Marcus Lundstr"m