Stone, scissor and bag ----------------------------------------------------------------- Version: 1.0, 971126 Creator: Daniel Bergman. Description: The classic game. Comments: "->" is the "STO>"-button. Known bugs: None. Size: ca 260 bytes. For more games and programs, please visit http://ti80.burtrask.net. PROGRAM:SSB LBL 0 CLRHOME DISP "1. STONE" DISP "2. SCISSOR" DISP "3. BAG" DISP "0. EXIT" INPUT "YOUR CHOICE?",V IF V=0:STOP IF V>3:GOTO 0 IF V<0:GOTO 0 RANDINT(1,3->C DISP "I TAKE" IF C=1 DISP "STONE" IF C=2 DISP "SCISSOR" IF C=3 DISP "BAG" IF V=C:THEN DISP "DRAW" PAUSE:GOTO 0 END IF(C=1)(V=3) GOTO 1 IF(C=2)(V=1) GOTO 1 IF(C=3)(V=2) GOTO 1 DISP "I WIN!" PAUSE GOTO 0 LBL 1 DISP "YOU WIN..." PAUSE GOTO 0 -------------------------------------------------------------------- Copyright (C) 1998 by Daniel Bergman & Mattias Morén http://ti80.burtrask.net