+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (25) Nimb (/thread-13582.html)
(25) Nimb - NoEqualsButton - 09-03-2019 06:55 AM
Nimb for the HP 25. This version does not allow cheating.
Usage:
f PRGM R/S < 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:
01 f FIX 0
02 1
03 5
04 STO 0
05 RCL 0
06 R/S
07 x<->y
08 f x<y
09 GTO 05 # move GT value
10 x<->y
11 3
12 f x<y
13 GTO 05 # Move bigger than 3
14 CLx
15 f x>= y
16 GTO 05 #move LEQ 0
17 x<->y
18 STO-0 # Player move
19 RCL 0
20 g x<>0
21 GTO 28
22 5
23 5
24 1
25 7
26 8
27 GTO 00 # BLISS, Program wins
28 1 # Compute program move
29 -
30 4
31 /
32 g FRAC
33 4
34 *
35 g x=0
36 1
37 STO-0 # Program move
38 f PAUSE
39 RCL 0
40 g x<>0
41 GTO 05
42 3
43 5
44 0
45 7
46 .
47 1 # 1.LOSE, Program looses
48 f FIX 1
49 GTO 00