TIB: Source to Sports.82P

To: TI-85 Basic <ti-basic@lists.ticalc.org>
Subject: TIB: Source to Sports.82P
From: Christopher Robin MacDougald <crmacd@mail.utexas.edu>
Date: Thu, 05 Feb 1998 20:34:28 -0600
Reply-To: ti-basic@lists.ticalc.org

Here you go...

\START82\
\COMMENT=4ЅЦз8 file dated 07М>h> file dated 07/19
\NAME=SPORTS
\FILE=D:\PERSONAL\SPORTS.82P
:FullScreen
:ClrHome
:RectGC
:CoordOff
:GridOff
:AxesOff
:LabelOff
:FnOff 
:ZStandard
:ClrDraw
:Text(24,15,"SPORTS VERSION V2.0"
:Text(30,12,"BY: CHRIS MACDOUGALD"
:Lbl A
:Menu("SPORTS GAMES 2.0","C.G. V2.0",B,"C.R. V1.0",E,"C.T.
V1.0",H,"EXI\#\
T",\@\
:Lbl B
:FullScreen
:ClrDraw
:Menu("CALCULATOR GOLF ","PLAY",D,"",B,"HELP",C,"MENU",A
:Lbl C
:Text(0,37,"-HELP-"
:Text(6,9,"*ENTER THE NUMBER OF"
:Text(12,9,"HOLES YOU WANT TO PLAY"
:Text(18,9,", SELECT YOUR CLUB and "
:Text(24,9,"POWER LEVEL. YOU WANT"
:Text(30,9,"TO GET THE BALL IN THE"
:Text(36,9,"HOLE IN THE LEAST NUM-"
:Text(42,9,"BER OF SHOOTS."
:Text(57,27,"PRESS ENTER"
:Pause 
:Goto B
:Lbl D
:Split
:Text(0,15,"-CALCULATOR GOLF-"
:Text(12,2,"ENTER THE NUMBER OF HOLES"
:Text(18,2,"YOU WANT TO PLAY: 1-18"
:Repeat A\>=\1 and A\<=\18
:ClrHome
:Input "(1-18): ",A
:iPart A\->\A
:End
:0\->\B
:0\->\J
:0\->\K
:0\->\L
:Repeat B\>=\A
:B+1\->\B
:iPart (rand(6)+3)*65\->\C
:C\->\D
:iPart (C/75)\->\E
:(90/C)\->\F
:0\->\G
:Repeat D=0
:G+1\->\G
:ClrDraw
:ClrHome
:Disp "  PRESS  ENTER"
:Text(0,32,"-HOLE:",B,"-"
:Text(25,iPart (abs (C-D)*F),"\deg\"
:Text(25,91,"F"
:Text(6,12,"DISTANCE TO HOLE:",D
:Text(12,12,"HOLE PAR:",E
:Text(18,12,"SHOOT NUMBER:",G
:Pause 
:ClrDraw
:Text(0,32,"-HOLE:",B,"-"
:Text(6,2,"1)PUTTER"
:Text(12,2,"2)SAND WEDGE"
:Text(18,2,"3)WEDGE"
:Text(24,15,"SELECT A CLUB (1-6):"
:Text(6,60,"4)IRON"
:Text(12,60,"5)WOOD"
:Text(18,60,"6)DRIVER"
:Repeat H\>=\1 and H\<=\6
:ClrHome
:Disp "ENTER 9 TO QUIT"
:Input "(1-6): ",H
:iPart H\->\H
:If H=9
:Goto B
:End
:ClrDraw
:Text(0,32,"-HOLE:",B,"-"
:Text(12,9,"SELECT A POWER LEVEL:"
:Repeat I\>=\1 and I\<=\7
:ClrHome
:Disp "ENTER 9 TO QUIT"
:Input "(1-7): ",I
:iPart I\->\I
:If I=9
:Goto B
:End
:D-(H\^2\*I)\->\D
:abs D\->\D
:End
:J+C\->\J
:K+E\->\K
:L+G\->\L
:ClrDraw
:Text(0,16,"-HOLE",B,"COMPLETE-"
:If G\<=\E
:Text(12,32,"NICE SHOT"
:Text(18,12,"YOU ARE NOW"
:Text(24,41,"PAR."
:If L=K
:Text(18,54,"EVEN"
:If L>K
:Text(18,54,L-K,"OVER"
:If L<K
:Text(18,54,K-L,"UNDER"
:ClrHome
:Disp "  PRESS  ENTER"
:Pause 
:End
:ClrDraw
:Text(0,13,"-COURSE COMPLETE-"
:Text(6,2,"TOTAL NUMBER OF HOLES:",A
:Text(12,2,"COURSE DISTANCE:",J
:Text(18,2,"COURSE PAR:",K,"
:Text(24,2,"YOUR PAR:",L
:Pause 
:Goto B
:Lbl E
:ClrDraw
:Menu("CALCULATOR RACER","PLAY",G,"",E,"HELP",F,"MENU",A
:Lbl F
:Text(0,37,"-HELP-"
:Text(6,2,"*YOU WANT TO FINISH THE"
:Text(12,8,"TRACK AS FAST AS YOU"
:Text(18,8,"CAN. WITHOUT CRASHING."
:Text(24,2,"\deg\MOVE: ARROW KEYS"
:Text(30,2,"\deg\PAUSE: 8/ENTER  QUIT: 9"
:Text(57,27,"PRESS ENTER"
:Pause 
:Goto E
:Lbl G
:0\->\A
:Repeat A=50
:A+5\->\A
:3\->\B
:0\->\C
:ClrDraw
:Text(0,13,"-CALCULATOR RACER-"
:Text(24,30,"DISTANCE:",A
:Text(30,35,"LIVES:",B
:Text(57,27,"PRESS ENTER"
:Pause 
:ClrDraw
:Text(6,12,"\deg\"
:Text(24,20+(A/5),"V"
:Text(24,65+(A/5),"Y"
:Horizontal .5
:Line(2,.5,\(-)\4,5
:Line(\(-)\4,5,\(-)\10,.5
:Line(\(-)\.2,2.2,4,7
:Line(10,.5,4,7
:Line(.5,.5,5,\(-)\10
:Line(\(-)\.5,.5,\(-)\5,\(-)\10
:Text(36,2,"DIST:"
:Text(30,2,"SPEED:"
:Text(36,70,"LIVES:"
:56\->\D
:45\->\E
:0\->\G
:45\->\H
:Repeat C\>=\A+1
:Text(36,90,B
:Text(36,18,iPart C
:Text(30,24,10*(abs (D-56))
:getKey\->\F
:If F=73
:Then
:Text(30,75,"PAUSE"
:Pause 
:Text(30,75,"                   "
:End
:If F=74
:Goto E
:If F=24 and E>35 and abs (D-56)\<>\0
:Then
:Text(D,E,"     "
:E-5\->\E
:End
:If F=26 and E<55 and abs (D-56)\<>\0
:Then
:Text(D,E,"     "
:E+5\->\E
:End
:If F=25 and D>50
:Then
:D-1\->\D
:Pxl-Off(D+6,E
:Pxl-Off(D+6,E+1
:Pxl-Off(D+6,E+4
:End
:If F=34 and D<56
:D+1\->\D
:Text(D,E,"]"
:Text(D+1,E+2,"'"
:Text(D,E+3,"["
:C-(.003*(D-56))\->\C
:If G=0
:Then
:30\->\G
:iPart (3)rand\->\I
:45\->\H
:End
:If G>0 and G<57 and abs (D-56)\<>\0
:Then
:G+1\->\G
:If I=0 and (fPart (G/2)=0)
:H-1\->\H
:If I=2 and (fPart (G/2)=0)
:Then
:Text(G-1,H," "
:H+1\->\H
:End
:Text(G,H,"\deg\"
:End
:If (G=D-4 and H\>=\50 and E=55) or (G=D-4 and H=E) or (G=D-4 and
H\<=\\#\
40 and E=35)
:Then
:B-1\->\B
:Text(G,H,"    "
:For(I,1,25)
:Text(D,E,"C"
:Text(D,E,"R"
:Text(D,E,"A"
:Text(D,E,"S"
:Text(D,E,"H"
:End
:0\->\G
:End
:If G=57
:Then
:Text(G,H,"    "
:0\->\G
:End
:If B\<=\0
:Then
:Text(0,30,"GAME OVER"
:Text(6,27,"PRESS ENTER"
:Pause 
:Goto E
:End
:End
:Text(0,23,"LEVEL COMPLETE"
:Text(6,27,"PRESS ENTER"
:Pause 
:End
:Goto E
:Lbl H
:ClrDraw
:Menu("CALCULATORTENNIS","PLAY",J,"",H,"HELP",I,"MENU",A
:Lbl I
:Text(0,37,"-HELP-"
:Text(6,2,"*YOU SIMPLY HIT THE BALL."
:Text(12,2,"\deg\MOVE: ARROW KEYS"
:Text(18,2,"\deg\PAUSE: 8/ENTER  QUIT: 9"
:Text(57,27,"PRESS ENTER"
:Pause 
:Goto H
:Lbl J
:Split
:Text(0,12,"-CALCULATOR TENNIS-"
:Text(12,12,"1)VERSUS CALCULATOR"
:Text(18,12,"2)PRACTICE"
:Repeat A=1 or A=2
:ClrHome
:Input "(1 or 2): ",A
:End
:FullScreen
:ClrDraw
:0\->\C
:0\->\D
:Text(0,2,"CALC"
:Text(0,78,"-P1-"
:If A=2
:Then
:Text(0,2,"PRAC"
:Vertical \(-)\10
:End
:Horizontal 7.8
:Horizontal \(-)\10
:33\->\F
:0\->\K
:8\->\L
:Repeat B=7
:If K=0
:Then
:9\->\G
:9\->\H
:1\->\I
:1\->\J
:\(-)\1\->\K
:End
:getKey\->\E
:If E=25 and F>8
:Then
:F-1\->\F
:Pxl-Off(F+6,92
:End
:If E=34 and F<55
:F+1\->\F
:Text(F,92,"I"
:If A=1
:Then
:If H>12 and H<60
:J+L\->\L
:If J=\(-)\1
:Pxl-Off(L+6,3
:Text(L,3,"I"
:End
:If E=74
:Goto H
:If E=73
:Then
:Text(0,38,"PAUSE"
:Pause 
:Text(0,38,"                   "
:End
:Pxl-Off(H,G
:I+G\->\G
:J+H\->\H
:If pxl-Test(H,G+I)\<>\0 or G>92 or G<2
:\(-)\I\->\I
:If pxl-Test(H+J,G)\<>\0
:\(-)\J\->\J
:Pxl-On(H,G
:For(K,1,25)
:End
:If G=93
:C+1\->\C
:If G=1
:D+1\->\D
:C+D\->\B
:Text(0,19,C
:Text(0,73,D
:End
:If C>D
:Text(30,27,"YOU LOST GAME OVER"
:If C<D
:Text(24,15,"YOU WON! GAME OVER"
:Text(30,27,"PRESS ENTER"
:Pause 
:Goto H
:Lbl \@\
:ClrDraw
:RectGC
:CoordOn
:GridOff
:AxesOn
:LabelOff
:ZStandard
:FnOn 
:ClrHome
\STOP82\