Post Reply 
(32S) Nimb
09-03-2019, 07:03 AM (This post was last modified: 09-03-2019 07:32 AM by NoEqualsButton.)
Post: #1
(32S) Nimb
Nimb for the HP 32S. No cheating allowed!

Usage:

XEQ N

< initial value is 15 >

Loop:
Display remaining value
< Enter 1 2 or 3 >
R/S
If you took remaining value then display 55178 ( BLISS ) and halt
Displays program move briefly ( 1,2 or 3)
If program took remaining value then display 3507.1 ( I.LOSE ) and halt
Loop back to start
Code:

N01    LBL N
N02    15
N03    FIX 0
N03    STO A
A01    LBL A
A02    RCL A
A03    STOP
A04    4
A05    X<>Y
A06    X<Y ?
A07    GTO B
A08    GT0 A    # Input greater than 3
B01    LBL B
B02    X>0 ?
B03    GTO C
B04    GTO A    # Input less than 0
C01    LBL C
C02    RCL A
C03    X<Y?
C04    GTO A    # Input more than remaining value
C05    X<>Y
C06    STO-A    # Player move
C07    RCL A
C08    X<>0 ?
C09    GTO D
C10    55178    # Bliss, program wins
C11    FIX 0
C12    RTN
D01    LBL D
D02    1
D03    -
D04    4
D05    /
D06    FP
D07    4
D08    *
D09    IP
D10    X=0 ?
D11    1
D12    STO-A    # Program move
D13    PSE 
D14    RCL A
D15    X<>0 ?
D16    GTO A
D17    3507.1        # I lose
D18    FIX 1
D19    RTN

Steve

HP11C, HP12C, HP15C, HP16C, HP25, HP32S, HP33C, HP41CV, DM42, HP46, HP65
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)