Re: TI-81 games (for everyone's benefit)

[Prev][Next][Index][Thread]

Re: TI-81 games (for everyone's benefit)

On Tue, 27 Aug 1996 16:04:55 -0400, in bit.listserv.calc-ti you wrote:


>hi, my sister just gave me her old ti-81 calculator and i was wondering
>if anyone had any games for it... i know it's pretty old, but any games
>would be appreciated for those long, boring math classes :)
>
>thanx :)
>-paul
>(bergel@cris.com)


Hey Paul... I saw your desperate cry for help and pulled out 2 programs I
wrote for the 81 (back in the dark ages! :). Here they are: a number guessing
game and blackjack. As you can see, there is NO WAY to make these programs
more compact without seriously injuring the user interface. The blackjack prog
is just the bare minimum for a game of bj. The chances are about right for
winning, and 4 of every 16 cards are worth 10 (10,J,K,Q) but those letters
aren't displayed as it would take so much space to program. Tell me what you
think after you get around to programming it.


Moshe Jacobson


P.S. I have also attached the file in case that's easier.






prgmGUESS  (189 Bytes)


0->C
ClrHome
Disp "NUM GUESS GM! 1->"
Input R
Int (log R/log 2)+1->S
Int RRand+1->R
Lbl 1
C+1->C
Disp "GUESS"
Input G
ClrHome
Disp "PREV->"
Disp G
If R>G
Disp "HIGHER"
If R<G
Disp "LOWER"
If R =/ G
Goto 1
Disp "RIGHT! HIT ENTR"
Pause
ClrHome
Disp "TOOK"
Disp C
Disp "TRIES W/"
Disp S
Disp "MAX"
If C <= S
Disp "GR8!"


***************************************************


Program: BLAKJACK  (444 Bytes)


100->M
Lbl A
0->J
0->I
ClrHome
Disp "MONEY"
Disp M
Disp "BET"
Input Z
If Z>M
Goto A
Int 13Rand+1->A
Int 13Rand+1->B
If A>10
10->A
If A=1
11->A
If B>10
10->B
A+B->F
Lbl 8
ClrHome
Disp "CRDS WRTH"
Disp A
Disp B
Lbl 1
Disp "TOTL"
Disp F
If F>21
Goto B
Disp "1)HIT 2)STAY"
Input C
If C=2
Goto 3
If C =/ 1
Goto 8
Lbl 2
ClrHome
Int Rand12+1->E
If E>10
10->E
E+F->F
Goto 1
Lbl B
Disp ">21"
Pause
1->I
Lbl 3
ClrHome
Int 8Rand+17->G
Disp "DEALR TOTL"
Disp G
If G <= 21
Goto 9
Disp ">21"
1->J
Lbl 9
If I+J=2
Goto 4
If I=1
Goto 5
If J=1
Goto 6
If F<G
Goto 5
If F<G
Goto 6
If F=G
Goto 7
Lbl 4
Disp "DBL BUST!"
Pause
Goto A
Lbl 6
Disp "U WIN!"
M+Z->M
Pause
Goto A
Lbl 7
Disp "TIE!"
Pause
Goto A
Lbl 5
Disp "U LOSE!"
M-Z->M
Pause
If M>0
Goto A
Disp "UR BROKE!"
References: