# Hi-Lo for the TI-95
# guess random number between 0 and 99
# high message if number too high
# low message if number too low
# register 000 has random two digit number
# register 001 has guessed two digit number
# register 002 has number of tries
CMS # initialize
(
R# # random number
*
100 # get two digit number
)
INT # get integer part of the number
STO 000 # store in register 000
'Hi-Lo' # print opening message
PAU # pause for 1 second
CLR # clear screen
LBL A # guess prompt
'Guess?' 
BRK # wait for guess and pressing F1 (GO)
STO 001 # store guess in register 001
IF> 000 # if guess is greater than random number
GTL B # go to label B
IF< 000 # if guess is less than random number
GTL C # go to label C
IF= 000 # if guess is the random number
GTL D # go to label D
NOP # if not, do nothing
LBL B # number too high
'High!' # print message
PAU
CLR
INC 002 # increase number of tries
GTL A # go back to guess prompt
LBL C # number too low
'Low!' # print message
PAU
CLR
INC 002 # increase number of tries
GTL A # go back to guess prompt
LBL D # win game, terminate program
'You win!' # print winning message
PAU
CLR
'Tries:' # print tries
COL 16 # move to column 16
MRG 002 # print tries from register 002
PAU
CLR
HLT # end program