*The Museum of HP Calculators*

#
NIM for the HP-35S

This program is by Paul Dale and is used here by permission.

This program is supplied without representation or warranty of any kind.
Paul Dale and The Museum of HP Calculators therefore assume no responsibility
and shall have no liability, consequential or otherwise, of any kind arising
from the use of this program material or any part thereof.

##
Overview

This program plays the classic game of NIM.
To run it, enter the number in the pile and press XEQ N ENTER. You and the calculator will take turns taking from 1 to 3 from the pile, whoever takes the last one loses. You know it is your turn when the pile's remaining count is displayed negative.

After you turn, the new pile count will display followed by the calculator's grab count.

##
Listing

N001 LBL N
N002 STO S
N003 FS? 10
N004 GTO N008
N005 XEQ N008
N006 CF 10
N007 RTN
N008 STO O
N009 SF 10
N010 4
N011 STO I
N012 ALL
N013 GTO N016
N014 eqn ERROR
N015 PSE
N016 RCL O
N017 +/-
N018 STO N
N019 INPUT N
N020 RCL N
N021 INTG
N022 x<=0?
N023 GTO N014
N024 RCL I
N025 x<=y?
N026 GTO N014
N027 x<>y
N028 STO- O
N029 RCL O
N030 x<=0?
N031 GTO N040
N032 2
N033 x<=y?
N034 GTO N043
N035 eqn I LOSE
N036 PSE
N037 CLSTK
N038 RCL S
N039 RTN
N040 eqn I WIN!
N041 PSE
N042 GTO N037
N043 RCL O
N044 STO N
N045 VIEW N
N046 PSE
N047 1
N048 -
N049 RCL/ I
N050 FP
N051 RCL* I
N052 x<>0?
N053 GTO N062
N054 RANDOM
N055 RCL I
N056 1
N057 -
N058 *
N059 1
N060 +
N061 INTG
N062 STO- O
N063 STO T
N064 VIEW T
N065 PSE
N066 GTO N016

Go back to the software library

Go
back to the main exhibit hall