The Museum of HP Calculators
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.
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.
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