Draw pegs
------------------------------------------------------------------
Version: 1.0, 971216
Creator: Mattias Morén
Description: Draw one, two, or three pegs. If you take the last peg - you loose.
Comments: "->" is the "STO>"-button.
Known bugs: None.
Size: 229 bytes.

For more games and programs, please visit http://ti80.burtrask.net.

PROGRAM:PEG
CLRHOME
LBL 0
RANDINT(10,20->A
IF FPART (A/4)=.25:GOTO 0
LBL 1
DISP "PEGS LEFT:",A
IF A=1:GOTO 2
INPUT "YOU TAKE: ",B
IF B>3:GOTO 1
IF B<1:GOTO 1
A-B->A
IF A<1:GOTO 2
FPART (A/4)->B
IF B=0:3->B
IF B=.25:RANDINT(1,3->B
IF B=.5:1->B
IF B=.75:2->B
A-B->A
DISP "I TAKE:"
IF A<1:GOTO 3
DISP B
GOTO 1
LBL 2
DISP "I WIN!"
STOP
LBL 3
DISP 1,"YOU WIN!"

--------------------------------------------------------------------
Copyright (C) 1998 by Daniel Bergman & Mattias Morén
http://ti80.burtrask.net