(HP12C) Always a number further !

[Thomas Klemm]

(09-07-2024 09:32 AM)C.Ret Wrote:  In order to illustrate your words, I share a code for my HP-15C based on your algorithm...

This listing can be used with this HP-15C simulator:

Code:

   001 { 42 21 11 } f LBL A    ; f A: Start a new game
   002 {    45 36 } RCL 36     ;
   003 { 42 21 15 } f LBL E    ; f E: given seed game
   004 {    44  0 } STO 0      ;
   005 {        2 } 2          ; Default dificulty
   006 {    44  1 } STO 1      ;
   007 { 42 21 14 } f LBL D    ; f D: set difficulty
   008 {       13 } 10^x       ;
   009 {    44  2 } STO 2      ;
   010 { 42 21 12 } f LBL B    ; f B: Repeat sequence
   011 {    32  7 } GSB 7      ;
   012 { 42 21  0 } f LBL 0    ; Displayed seq loop
   013 {    32  8 } GSB 8      ; get next element
   014 {    42 31 } f PSE      ; temporary display ele
   015 {    42 31 } f PSE      ;
   016 { 42  5 25 } f DSE I    ;
   017 {    22  0 } GTO 0      ; loop
   018 { 42 21 13 } f LBL C    ; f C: Restart inputs
   019 {    32  7 } GSB 7      ;
   020 { 42 21  1 } f LBL 1    ; Inputed seq loop
   021 {    45 25 } RCL I      ;
   022 { 45 30  1 } RCL - 1    ; Seq index Prompt
   023 {       31 } R/S        ; Wait for USER entry
   024 {    32  8 } GSB 8      ; get next element
   025 { 43 30  6 } g TEST 6   ; (test6) test entry
   026 {    22  9 } GTO 9      ; Wrong => Game over
   027 { 42  5 25 } f DSE I    ; Right => loop
   028 {    22  1 } GTO 1      ;
   029 {        1 } 1          ; All entry OK
   030 { 44 40  1 } STO + 1    ; increase seq length
   031 {    22 12 } GTO B      ; and continue game
   032 { 42 21  7 } f LBL 7    ; ss-prg: Reset seq
   033 {    45  1 } RCL 1      ;
   034 {    44 25 } STO I      ; Reset seq length
   035 {    45  0 } RCL 0      ;
   036 {    44 36 } STO 36     ; Reset PRN generator
   037 { 42  5 25 } f DSE I    ; Adjust index
   038 {    43 32 } g RTN      ;
   039 { 42 21  8 } f LBL 8    ; ss-prg: Next element
   040 {    42 36 } f RAN #    ;      of the sequence
   041 { 45 20  2 } RCL * 2    ;
   042 { 42  7  0 } f FIX 0    ;
   043 {    43 34 } g RND      ; to integer value
   044 {    43 32 } g RTN      ;
   045 { 42 21  9 } f LBL 9    ; End of GAME
   046 {    45  1 } RCL 1      ;
   047 { 45 20  2 } RCL * 2    ; display end score
   048 { 42  8  4 } f SCI 4    ;
   049 {    43 32 } g RTN      ; End of Program