Divination for the HP-41

Overview
 

 0°)  Random Number Generator
 1°)  Futhark Runes
 2°)  13 Witches' Runes
 3°)  Yi-King
 4°)  Mah-Jong
 5°)  Thibetan Oracle: MO
 

-Essentially 5 "divination programs" which call the M-code routine RAND which requires the TIME module ( or an HP41CX )
-But they may also be used without a TIME module, after minor modifications.

-Don't attach too much importance to the results.
-I wrote these routines just for the fun of it...
 
 
 

0°)  Random Number Generator
 

 RAND uses the TIME module to return a pseudo-random number in X-register
 

084  "D"
00E  "N"
001  "A"
012  "R"
130  LDI S&X
010  16d
270  RAMSLCT
130  LDI S&X
0FB 251d
3F0  PRPH SLCT
3E8  WRIT 15(e)
038  READDATA
1BC RCR 11
046  C=0 S&X
270  RAMSLCT
05E  C=0 MS
130  LDI S&X
041  65d
2A0  SETDEC
10E  A=C ALL
04E  C=0 ALL
35C  PT=12
1D0  LD@PT- 7
210  LD@PT- 8
110  LD@PT- 4
050  LD@PT- 1
090  LD@PT- 2
250  LD@PT- 9
190  LD@PT- 6
1D0 LD@PT- 7
210  LD@PT- 8
1D0  LD@PT- 7
044  CLRF 4
070  N=C ALL
171  ?NCXQ
064  195C
10E  A=C ALL
0B0  C=N ALL
261  ?NCXQ
060  1898
0E8  WRIT 3(X)
3E0  RTN

( 42 words / SIZE 000 )
 
 

STACK	INPUT	OUTPUT
X	/	r

   with 0 < r < 1

Notes:

-Registers L Y Z T are unchanged.
-The previous content of register X is overwritten.
-Execution time = 0.22 second
 

1°) Futhark Runes
 
 

Data Registers:   R00: random numbers                   R25-R26-R27: temp                   R01 to R24: the 24 runes
Flags: /
Subroutine:   RAND
 
 
 

01 LBL "RUNES"  02 STO 26  03 STO 27  04 RAND  05 STO 00  06 24  07 STO 25  08 LBL 28  09 STO IND X   10 DSE X  11 GTO 28  12 LBL 25  13 RCL 25  14 RCL 00  15 R-D  16 FRC  17 STO 00  18 *  19 1  20 +  21 INT  22 RCL IND X  23 RCL 00  24 R-D  25 FRC  26 STO 00  27 .5  28 -  29 SIGN  30 *  31 X<> IND 25   32 STO IND Y  33 DSE 25  34 CLX  35 DSE 27  36 GTO 25  37 LBL 41  38 RCL 25  39 INT  40  E3  41 /  42 24  43 +  44 STO 25  45 LBL 42  46 RCL 25  47 RCL IND X                     48 XEQ IND X

49 AVIEW  50 PSE  51 DSE 25  52 GTO 42  53 GTO 99  54 LBL 01  55 X<0?  56 GTO 01  57 "FEOH DESIRES FU"  58 >"LFILLED"  59 RTN  60 LBL 01  61 "FEOH R FRUSTRAT"  62 >"ION DOUBT"  63 RTN  64 LBL 02  65 X<0?  66 GTO 02  67 "UR VITALITY"  68 >" STRENGTH"  69 RTN  70 LBL 02  71 "UR R DIFFICULT"  72 >"IES"  73 RTN  74 LBL 03  75 X<0?  76 GTO 03  77 "THORN PROTECTIO"  78 >"N"  79 RTN  80 LBL 03  81 "THORN R BAD NEW"  82 >"S"  83 RTN  84 LBL 04  85 X<0?  86 GTO 04  87 "AS MESSAGES REC"  88 >"EIVED"  89 RTN  90 LBL 04  91 "AS R BAD COMMUN"  92 >"ICATION"  93 RTN  94 LBL 05  95 X<0?  96 GTO 05

97 "RAD JOURNEY"  98 RTN  99 LBL 05 100 "RAD R DELAY" 101 RTN 102 LBL 06 103 X<0? 104 GTO 06 105 "KEN HOPE INSPIR" 106 >"ATION" 107 RTN 108 LBL 06 109 "KEN R DOUBT RIS" 110 >"K" 111 RTN 112 LBL 07 113 "GYFU LOVE GIFT" 114 >" REUNION" 115 RTN 116 LBL 08 117 X<0? 118 GTO 08 119 "WYNN JOY LOVE S" 120 >"UCCESS" 121 RTN 122 LBL 08 123 "WYNN R SADNESS" 124 RTN 125 LBL 09 126 "HAGEL PERTURBAT" 127 >"ION" 128 RTN 129 LBL 10 130 X<0? 131 GTO 10 132 "NYD PRUDENCE" 133 RTN 134 LBL 10 135 "NYD R TENSIONS" 136 RTN 137 LBL 11 138 "IS DIFFICULT" 139 >"IES DELAY" 140 RTN 141 LBL 12 142 "GAR SLOWLY FAVO" 143 >"RABLE" 144 RTN

145 LBL 13 146 "EOH TIME OF WAI" 147 >"TING" 148 RTN 149 LBL 14 150 X<0? 151 GTO 14 152 "PEORTH JOY LOVE" 153 >" SURPRISE" 154 RTN 155 LBL 14 156 "PEORTH R DELAY " 157 >"PATIENCE" 158 RTN 159 LBL 15 160 X<0? 161 GTO 00 162 "EOLH CHANGES ME" 163 >"ETING" 164 RTN 165 LBL 00 166 "EOLH R INSTABIL" 167 >"ITY" 168 RTN 169 LBL 16 170 "SIGEL LOVE SEX " 171 >"HAPPINESS" 172 RTN 173 LBL 17 174 X<0? 175 GTO 00 176 "TYR SUCCESS REW" 177 >"ARD" 178 RTN 179 LBL 00 180 "TYR R FAILURE B" 181 >"ETRAYAL" 182 RTN 183 LBL 18 184 X<0? 185 GTO 00 186 "BEORC GOOD" 187 >" CHANGES LOVE" 188 RTN 189 LBL 00 190 "BEORC R SPLEEN" 191 RTN 192 LBL 19

193 X<0? 194 GTO 00 195 "EH GOOD BUT PRU" 196 >"DENCE" 197 RTN 198 LBL 00 199 "EH R AGITATION" 200 RTN 201 LBL 20 202 X<0? 203 GTO 00 204 "MAN GOOD FOR LO" 205 >"VE" 206 RTN 207 LBL 00 208 "MAN R TENSIONS " 209 >"QUARREL" 210 RTN 211 LBL 21 212 X<0? 213 GTO 00 214 "LAGU COMPLICATI" 215 >"ONS DOUBT" 216 RTN 217 LBL 00 218 "LAGU R ILLUSION" 219 >" NAIVETY" 220 RTN 221 LBL 22 222 "ING FAVORABLE A" 223 >"LL FIELDS" 224 RTN 225 LBL 23 226 "DAEG HAPPY CHAN" 227 >"GES" 228 RTN 229 LBL 24 230 X<0? 231 GTO 00 232 "ODAL CALM HAPPI" 233 >"NESS $$$" 234 RTN 235 LBL 00 236 "ODAL R DISAPPOI" 237 >"NTMENT" 238 RTN 239 LBL 99 240 END

 
      ( 1113 bytes / SIZE 028 )
 
 

STACK	INPUT	OUTPUT
X	N	/

   with 0 < N < 25

-Place an integer N in X-register and XEQ "RUNES"
-Your HP-41 will display the names of N runes and the corresponding interpretation.

-Usually N = 1 or 3 or 9

-When the name of a rune is followed by "R", it means that the rune is reversed.

-The results depend on RAND, but to take an example, if you choose N =3
  and if RAND returns 0.71, you'll get the following messages:

   TYR SUCCESS REWARD
   UR VITALITY STRENGTH
   GAR SLOWLY FAVORABLE

-So, the 3 runes are Tyr, Ur, Gar and no rune is reversed.

Notes:

-If you want to display the runes again, press  XEQ 41
-If you don't have a TIME module, delete lines 04-05 and initialize R00 with a random seed of your own
 

2°)  13 Witches' Runes
 

- "WITCH" uses 13 witches' runes
-If a rune is reversed, it's not taken into account.

-This program doesn't need any input
-RAND is also employed
 
 

Data Registers:    R00: random numbers      R01 thru R13: the 13 runes      R14: temp
Flags: /
Subroutine:  RAND
 
 
 

01 LBL "WITCH"  02 RAND  03 STO 00  04 13  05 STO 14  06 LBL 15  07 STO IND X   08 DSE X  09 GTO 15  10 LBL 14  11 RCL 14  12 RCL 00  13 R-D  14 FRC  15 STO 00  16 *  17 1  18 +  19 INT  20 RCL IND X                     21 RCL 00  22 R-D  23 FRC  24 STO 00  25 .5  26 -

27 SIGN  28 *  29 X<> IND 14  30 STO IND Y  31 DSE 14  32 GTO 14  33 LBL 41  34 13  35 STO 14  36 LBL 00  37 RCL IND 14  38 X<0?  39 GTO 00  40 XEQ IND X  41 PSE  42 AVIEW  43 PSE  44 LBL 00  45 DSE 14  46 GTO 00  47 GTO 99  48 LBL 01  49 "1-SUN GOOD NEWS"  50 >" VITALITY"  51 AVIEW  52 " MONEY"

53 RTN  54 LBL 02  55 "2-MOON LONG TER"  56 >"M CHANGES"  57 AVIEW  58 "DEEP WISDOM"  59 RTN  60 LBL 03  61 "3-FLIGHT MESSAG"  62 >"E TRAVEL"  63 AVIEW  64 "INFORMATION"  65 RTN  66 LBL 04  67 "4-RINGS CONNECT"  68 >" PEOPLE"  69 AVIEW  70 " MARRIAGE"  71 RTN  72 LBL 05  73 "5-ROMANCE LOVE "  74 >"RELATION"  75 AVIEW  76 " LUCK HARMONY"  77 RTN  78 LBL 06

79 "6-WOMAN HEALING"  80 >" CREATION"  81 AVIEW  82 " REJUVENATION"  83 RTN  84 LBL 07  85 "7-MAN STRENGTH"  86 >" SPEED"  87 AVIEW  88 " ACTION ENERGY"  89 RTN  90 LBL 08  91 "8-HARVEST REWAR"  92 >"DS"  93 AVIEW  94 " LUCK COMPLETIO"  95 >"N"  96 RTN  97 LBL 09  98 "9-CROSSROADS UN"  99 >"KNOWN" 100 AVIEW 101 " MAJOR CHOICES" 102 RTN 103 LBL 10

104 "10-STAR FREEDOM" 105 >" HOPE" 106 AVIEW 107 " DREAMS" 108 RTN 109 LBL 11 110 "11-WAVES OUT OF" 111 >" CONTROL" 112 AVIEW 113 " SPIRITUALITY" 114 RTN 115 LBL 12 116 "12-SCYTHE DANGE" 117 >"R" 118 AVIEW 119 " SUDDEN CHANGES" 120 RTN 121 LBL 13 122 "13-EYE PSYCHIC " 123 >"ABILITIES" 124 AVIEW 125 " SPELLBINDING" 126 RTN 127 LBL 99 128 END

 
        ( 610 bytes / SIZE 015 )
 
 

STACK	INPUT	OUTPUT
X	/	/

-Assuming RAND returns .51  in X-register, you will get:

 3-FLIGHT MESSAGE TRAVEL
    INFORMATION
 6-WOMAN HEALING CREATION
     REJUVENATION
 2-MOON LONG TERM CHANGES
     DEEP WISDOM
 5-ROMANCE LOVE RELATION
    LUCK HARMONY
 9-CROSSROADS UNKNOWN
     MAJOR CHOICES
 8-HARVEST REWARDS
     LUCK COMPLETION
10-STAR FREEDOM HOPE
     DREAMS
 

Notes:

-If you want to display the messages again, press  XEQ 41
-If you don't have a TIME module, delete lines 02-03 and initialize R00 with a random seed of your own before executing "WITCH"
 

 3°)  Yi-King
 

-Due to the length of this program, it's divided in 2 parts ( "YIKING" & "YK2" ),
  though it's not absolutely necessary.
 

Data Registers: /
Flags: /
Subroutine:  RAND
 
 
 

01 LBL "YIKING"  02 RAND  03 64  04 *  05 INT  06 1  07 +  08 32  09 X<>Y  10 LBL 41  11 X<=Y?  12 GTO 00  13 XEQ "YK2"  14 GTO 99  15 LBL 00  16 XEQ IND X   17 GTO 99  18 LBL 01  19 "1-HEAVEN"  20 RTN  21 LBL 02  22 "2-EARTH"  23 RTN  24 LBL 03  25 "3-WATER/THUNDER"  26 AVIEW  27 "DIFFICULTY"  28 RTN  29 LBL 04  30 "4-MOUNTAIN/WATE"  31 >"R"  32 AVIEW  33 "IMMATURITY"  34 RTN  35 LBL 05  36 "5-WATER/HEAVEN"  37 AVIEW  38 "WAITING INACTON"  39 RTN

40 LBL 06  41 "6-HEAVEN/WATER"  42 AVIEW  43 "CONFLIT"  44 RTN  45 LBL 07  46 "7-EARTH/WATER"  47 AVIEW  48 "MULTITUDE"  49 RTN  50 LBL 08  51 "8-WATER/EARTH"  52 AVIEW  53 "UNION ALLIANCE"  54 RTN  55 LBL 09  56 "9-WIND/HEAVEN"  57 AVIEW  58 "SMALL CULTIVATI"  59 >"ON"  60 RTN  61 LBL 10  62 "10-HEAVEN/LAKE"  63 AVIEW  64 "TREADING CONDUC"  65 >"T"  66 RTN  67 LBL 11  68 "11-EARTH/HEAVEN"  69 AVIEW  70 "THE GREAT WAY P"  71 >"EACE"  72 RTN  73 LBL 12  74 "12-HEAVEN/EARTH"  75 AVIEW  76 "THE SMALL THE P"  77 >"ETTY"  78 RTN

79 LBL 13  80 "13-HEAVEN/FIRE"  81 AVIEW  82 "ASSEMBLING PEOP"  83 >"LE"  84 RTN  85 LBL 14  86 "14-FIRE/HEAVEN"  87 AVIEW  88 "GREAT POSSESSIO"  89 >"N"  90 RTN  91 LBL 15  92 "15-EARTH/MOUNTA"  93 >"IN"  94 AVIEW  95 "MODESTY"  96 RTN  97 LBL 16  98 "16-THUNDER/EART"  99 >"H" 100 AVIEW 101 "ENTHUSIASM" 102 RTN 103 LBL 17 104 "17-CLOUD/THUNDE" 105 >"R" 106 AVIEW 107 "PURSUIT" 108 RTN 109 LBL 18 110 "18-MOUNTAIN/WIN" 111 >"D" 112 AVIEW 113 "DETERIORATION" 114 RTN 115 LBL 19 116 "19-EARTH/LAKE" 117 AVIEW

118 "WAILING" 119 RTN 120 LBL 20 121 "20-WIND/EARTH" 122 AVIEW 123 "CONTEMPLATION" 124 RTN 125 LBL 21 126 "21-FIRE/THUNDER" 127 AVIEW 128 "BITING CHEWING" 129 RTN 130 LBL 22 131 "22-MOUNTAIN/FIR" 132 >"E" 133 AVIEW 134 "ADORNMENT" 135 RTN 136 LBL 23 137 "23-MOUNTAIN/EAR" 138 >"TH" 139 AVIEW 140 "FLAYING" 141 RTN 142 LBL 24 143 "24-EARTH/THUNDE" 144 >"R" 145 AVIEW 146 "RETURN" 147 RTN 148 LBL 25 149 "25-HEAVEN/THUND" 150 >"ER" 151 AVIEW 152 "THE UNEXPECTED" 153 RTN 154 LBL 26 155 "26-MOUNTAIN/HEA" 156 >"VEN"

157 AVIEW 158 "GREAT CULTIVATI" 159 >"ON" 160 RTN 161 LBL 27 162 "27-MOUNTAIN/THU" 163 >"NDER" 164 AVIEW 165 "NOURISHING" 166 RTN 167 LBL 28 168 "28-LAKE/WOOD" 169 AVIEW 170 "GREAT EXCESS" 171 RTN 172 LBL 29 173 "29-WATER/WATER" 174 AVIEW 175 "DANGER PITFALL" 176 RTN 177 LBL 30 178 "30-FIRE/FIRE" 179 AVIEW 180 "LIGHT" 181 RTN 182 LBL 31 183 "31-LAKE/MOUNTAI" 184 >"N" 185 AVIEW 186 "ATTRACTION" 187 RTN 188 LBL 32 189 "32-THUNDER/WIND" 190 AVIEW 191 "CONSTANCY" 192 RTN 193 LBL 99 194 PSE 195 AVIEW 196 END

 
      ( 1075 bytes / SIZE 000 )
 
 
 

01 LBL "YK2"  02 GTO IND X  03 LBL 33  04 "33-HEAVEN/MOUNT"  05 >"AIN"  06 AVIEW  07 "WITHDRAWAL RETR"  08 >"EAT"  09 RTN  10 LBL 34  11 "34-THUNDER/HEAV"  12 >"EN"  13 AVIEW  14 "STRENGTH POWER"  15 RTN  16 LBL 35  17 "35-FIRE/EARTH"  18 >" PROGRESS"  19 RTN  20 LBL 36  21 "36-EARTH/FIRE"  22 AVIEW  23 "DARKENING LIGHT"  24 RTN  25 LBL 37  26 "37-WIND/FIRE"  27 >" FAMILY"  28 RTN  29 LBL 38  30 "38-FIRE/LAKE"  31 AVIEW  32 "OPPOSITION"  33 RTN  34 LBL 39

35 "39-WATER/MOUNTA"  36 >"IN"  37 AVIEW  38 "OBSTRUCTION"  39 RTN  40 LBL 40  41 "40-THUNDER/WATE"  42 >"R"  43 AVIEW  44 "LIBERATION"  45 RTN  46 LBL 41  47 "41-MOUTAIN/LAKE"  48 AVIEW  49 "LOSS DECREASE"  50 RTN  51 LBL 42  52 "42-WIND/THUNDER"  53 AVIEW  54 "GAIN INCREASE"  55 RTN  56 LBL 43  57 "43-LAKE/HEAVEN"  58 AVIEW  59 "RESOLUTION"  60 RTN  61 LBL 44  62 "44-HEAVEN/WIND"  63 AVIEW  64 "MEETING"  65 RTN  66 LBL 45  67 "45-LAKE/EARTH"  68 AVIEW

69 "GATHERING"  70 RTN  71 LBL 46  72 "46-EARTH/WOOD"  73 AVIEW  74 "RISING"  75 RTN  76 LBL 47  77 "47-LAKE/WATER"  78 AVIEW  79 "ADVERSITY"  80 RTN  81 LBL 48  82 "48-WATER/WOOD"  83 AVIEW  84 "THE WELL"  85 RTN  86 LBL 49  87 "49-LAKE/FIRE"  88 AVIEW  89 "RADICAL CHANGE"  90 RTN  91 LBL 50  92 "50-FIRE/WOOD"  93 AVIEW  94 "TRANSFORMATION"  95 RTN  96 LBL 51  97 "51-THUNDER/THUN"  98 >"DER"  99 AVIEW 100 "AROUSING" 101 RTN 102 LBL 52

103 "52-MONTAIN/" 104 >"MOUNTAIN" 105 AVIEW 106 "STILLING" 107 RTN 108 LBL 53 109 "53-WIND/MOUNTAI" 110 >"N" 111 AVIEW 112 "GRADUAL  ADVANCE" 113 RTN 114 LBL 54 115 "54-THUNDER/LAKE" 116 AVIEW 117 "MARRYING MAID EN" 118 RTN 119 LBL 55 120 "55-THUNDER/FIRE" 121 AVIEW 122 "ABUNDANCE" 123 RTN 124 LBL 56 125 "56-FIRE/MOUNTAI" 126 >"N" 127 AVIEW 128 "TRAVELLING" 129 RTN 130 LBL 57 131 "57-WIND/WIND" 132 AVIEW 133 "GENTLENESS" 134 RTN 135 LBL 58 136 "58-LAKE/LAKE"

137 AVIEW 138 "PLEASING JOY" 139 RTN 140 LBL 59 141 "59-WIND/WATER" 142 AVIEW 143 "DISPERSION" 144 RTN 145 LBL 60 146 "60-WATER/LAKE" 147 AVIEW 148 "LIMITATION" 149 RTN 150 LBL 61 151 "61-WIND/LAKE" 152 AVIEW 153 "CONFIDENCE" 154 RTN 155 LBL 62 156 "62-THUNDER/MOUN" 157 >"TAIN" 158 AVIEW 159 "EXCESSIVE SMALL" 160 RTN 161 LBL 63 162 "63-WATER/FIRE" 163 AVIEW 164 "ALREADY COMPLET" 165 >"ED" 166 RTN 167 LBL 64 168 "64-FIRE/WATER" 169 AVIEW 170 "BEFORE COMPLETI" 171 >"ON" 172 END

 
      ( 1048 bytes )
 
 

STACK	INPUT	OUTPUT
X	/	/

 
-YIKING returns just one result ( one among 64 ) and uses RAND too.

-If this M-code routine places .71 in X-register, you will get

   46-EARTH/WOOD
         RISING
 
 

Notes:

-If you want to display again, press  XEQ 41
-If you don't have a TIME module, replace line 02 by RCL 00  R-D  FRC   STO 00
  or another RNG  of your own and initialize R00 with a random seed.
 

4°)  Mah-Jong
 

-Mah-jong is a game but the 144 tiles may also be used as an oracle.

 "MAHJONG" takes at random 13 tiles and displays the interpretations:
 

                                                                                      R52-R53-R54 = obstacles
                          R55-R56-R57 = outcome                            R45 = central tile                         R49-R50-R51 = near future
                                                                                      R46-R47-R48 = your personality
 
 

Data Registers:       R00: random numbers        R01 thru R42: 144 tiles      R43-R44-R58: temp      R45 thru R57 = the 13 tiles

   R01 to R09 = Bamboos(4)            R28 = East Wind(4)           R29 = South Wind(4)         R30 = West Wind(4)        R31 = North Wind(4)
   R10 to R18 = Circles(4)                R32 = Green Dragon(4)     R33 = Red Dragon(4)         R34 = White Dragon(4)
   R19 to R27 = Wan(4)                   R35 to R38 = Flowers(1)   R39 to R42 = Seasons(1)

Flags: /
Subroutine:   RAND
 
 
 

01 LBL "MAHJONG"  02 RAND  03 STO 00  04 144  05 STO 43  06 45.057  07 STO 58  08 42.034  09 SIGN  10 LBL 00  11 STO IND L  12 DSE L  13 GTO 00  14 LASTX  15 INT  16 4  17 LBL 46  18 STO IND Y   19 DSE Y  20 GTO 46  21 LBL 47  22 CLX  23 SIGN  24 STO 44  25 RCL 00  26 R-D  27 FRC  28 STO 00  29 RCL 43  30 *  31 INT  32 GTO 44  33 LBL 45  34 -  35 ISG 44  36 LBL 44  37 RCL IND 44   38 X<=Y?  39 GTO 45  40 DSE IND 44   41 CLX  42 DSE 43  43 RCL 44  44 STO IND 58                   45 ISG 58  46 GTO 47  47 LBL 77  48 XEQ 99  49 PSE  50 " YOU"

51 AVIEW  52 PSE  53 46.048  54 STO 44  55 XEQ 43  56 "NEAR FUTURE"  57 AVIEW  58 PSE  59 .003  60 STO 58  61 ST+ 44  62 XEQ 43  63 " OBSTACLES"  64 AVIEW  65 PSE  66 RCL 58  67 ST+ 44  68 XEQ 43  69 " OUTCOME"  70 AVIEW  71 PSE  72 RCL 58  73 ST+ 44  74 XEQ 43  75 GTO 99  76 LBL 43  77 RCL IND 44  78 XEQ IND X  79 AVIEW  80 PSE  81 ISG 44  82 GTO 43  83 RTN  84 LBL 35  85 "F1 LOVE "  86 >"HAPPINESS"  87 RTN  88 LBL 36  89 "F2 REFINEMENT"  90 RTN  91 LBL 37  92 "F3 LEISURE ENTE"     93 >"RTAINMENT"  94 RTN  95 LBL 38  96 "F4 WRITING "  97 >"LEARNING"  98 RTN  99 LBL 39 100 "S1 PATIENCE"

101 RTN 102 LBL 40 103 "S2 SUCCESS IF" 104 >" ACTIVITY" 105 RTN 106 LBL 41 107 "S3 REWARDED" 108 >" EFFORTS" 109 RTN 110 LBL 42 111 "S4 PRUDENCE" 112 RTN 113 LBL 01 114 "B1 PERSONAL " 115 >"SUCCESS" 116 RTN 117 LBL 02 118 "B2 LOVE FIDELIT" 119 >"Y" 120 RTN 121 LBL 03 122 "B3 HEALING AMBI" 123 >"TION" 124 RTN 125 LBL 04 126 "B4 PEACE " 127 >"CONTENTMENT" 128 RTN 129 LBL 05 130 "B5 REJUVENATION" 131 RTN 132 LBL 06 133 "B6 TRAVEL " 134 >"MESSAGE" 135 RTN 136 LBL 07 137 "B7 PROGRESS " 138 >"LONGEVITY" 139 RTN 140 LBL 08 141 "B8 UNEXPECTED"  142 >" EVENT" 143 RTN 144 LBL 09 145 "B9 DIPLOMACY" 146 RTN 147 LBL 10 148 "C1 LUXURY " 149 >"WEALTH" 150 RTN

151 LBL 11 152 "C2 VITAL POWER" 153 RTN 154 LBL 12 155 "C3 HAPPINESS " 156 >"JOY UNION" 157 RTN 158 LBL 13 159 "C4 LASTING " 160 >"VALUES" 161 RTN 162 LBL 14 163 "C5 GOOD LUCK " 164 >"FORTUNE" 165 RTN 166 LBL 15 167 "C6 FEMINITY " 168 >"MARRIAGE" 169 RTN 170 LBL 16 171 "C7 BUSY ACTIV" 172 >"ITY" 173 RTN 174 LBL 17 175 "C8 AUTHORITY" 176 >" PROTECTION" 177 RTN 178 LBL 18 179 "C9 ABILITY TO " 180 >"FORESEE" 181 RTN 182 LBL 19 183 "W1 NEW " 184 >"OPPORTUNITIES" 185 RTN 186 LBL 20 187 "W2 DILEMMA " 188 >"DECISION" 189 RTN 190 LBL 21 191 "W3 STABILITY "  192 >"LAND" 193 RTN 194 LBL 22 195 "W4 MUSIC " 196 >"LEISURE" 197 RTN 198 LBL 23 199 "W5 HOUSE " 200 >"BUILDING"

201 RTN 202 LBL 24 203 "W6 INSPIRATION " 204 >"DANGER" 205 RTN 206 LBL 25 207 "W7 IMAGINATION" 208 >" HOPE" 209 RTN 210 LBL 26 211 "W8 UNION OR " 212 >"SEPARATION" 213 RTN 214 LBL 27 215 "W9 HEAVEN " 216 >"FULFILMENT" 217 RTN 218 LBL 28 219 "EW SUCCESS " 220 >"FOR YOU" 221 RTN 222 LBL 29 223 "SW POSITIVE " 224 >"ALL FIELDS" 225 RTN 226 LBL 30 227 "WW VARIABLE" 228 RTN 229 LBL 31 230 "NW DIFFICULTIES" 231 RTN 232 LBL 32 233 "GD BEGINNINGS" 234 RTN 235 LBL 33 236 "RD SUCCESS " 237 >"ACHIEVEMENTS" 238 RTN 239 LBL 34 240 "WD UNKNOWN "  241 >"MYSTERIOUS" 242 RTN 243 LBL 99 244 "CENTRAL TILE" 245 AVIEW 246 PSE 247 XEQ IND 45 248 AVIEW 249 CLA 250 END

 
         ( 1202 bytes / SIZE 059 )
 
 

STACK	INPUT	OUTPUT
X	/	/

 
-Assuming  RAND  returns  0.41  you'll get the following messages   ( usually more than 1 minute before the 1st message is displayed )
 

       CENTRAL TILE

       C9 ABILITY TO FORESEE                     C9 = circle n°9

       YOU

        B6 TRAVEL MESSAGE                          B6 = bamboo n°6
        C8 AUTHORITY PROTECTION            C8 = circle n°8
        C7 BUSY ACTIVITY                               C7 = circle n°7

        NEAR FUTURE

        B5 REJUVENATION                               B5 = bamboo n°5
        C7 BUSY ACTIVITY                               C7 = circle n°7
        C6 FEMINITY MARRIAGE                    C6 = circle n°6

        OBSTACLES

        W8 UNION OR SEPARATION              W8 = Wan n°8
         C8 AUTHORITY PROTECTION            C8 = circle n°8
         W2 DILEMMA DECISION                     W2 = Wan n°2

         OUTCOME

         C2 VITAL POWER                                   C2 = circle n°2
         W7 IMAGINATION HOPE                      W7 = Wan n°7
         B5 REJUVENATION                               B5 = bamboo n°5

         CENTRAL TILE                                                                                    The central tile is always displayed a second time

         C9 ABILITY TO FORESEE                     C9 = circle n°9
 

Notes:

-If you want to display the messages again, press  XEQ 77
-If you don't have a TIME module, replace line 02 by RCL 00  R-D  FRC
  or another RNG  of your own and initialize R00 with a random seed.
 

5°)  Thibetan Oracle: MO
 
 

Data Registers: /
Flags: /
Subroutine:  RAND
 
 
 

01 LBL "MO"  02 RAND  03 36  04 *  05 1  06 +  07 XEQ IND X  08 GTO 99  09 LBL 01  10 "PURIFICATION"   11 RTN  12 LBL 02  13 "CLEARING UP"  14 RTN  15 LBL 03  16 " FULFILMENT"  17 >" DELIGHT"  18 RTN  19 LBL 04  20 " ATTENTION->"  21 >"GOOD RESULTS"      22 RTN  23 LBL 05  24 " PATIENCE->"  25 >"SUCCESS"  26 RTN  27 LBL 06  28 " MEDITATION"

29 >"->HAPPINESS"  30 RTN  31 LBL 07  32 " LUCID MIND"  33 RTN  34 LBL 08  35 " INCREASING JOY"  36 RTN  37 LBL 09  38 " DESTRUCTION"  39 >" FAILURE"  40 RTN  41 LBL 10  42 " INCREASING"  43 >" POWER"  44 RTN  45 LBL 11  46 "BAD RESULTS"  47 RTN  48 LBL 12  49 " TRUST YOUR"            50 >" INTUITION"  51 RTN  52 LBL 13  53 " PEACEFUL"  54 >" ACTIVITIES"  55 RTN  56 LBL 14

57 " DECREASING JOY"  58 RTN  59 LBL 15  60 " INCREASING"  61 >" WEALTH"  62 RTN  63 LBL 16  64 " BETRAYAL"  65 >" SORROW"  66 RTN  67 LBL 17  68 " SUCCESS"  69 >" HAPPINESS"  70 RTN  71 LBL 18  72 " HEALING"  73 RTN  74 LBL 19  75 " GOOD LUCK"  76 RTN  77 LBL 20  78 " REWARD SUCCESS"  79 RTN  80 LBL 21  81 " EMPTY THOUGHTS"  82 RTN  83 LBL 22  84 " FAME"

85 RTN  86 LBL 23  87 " NEGATIVE"  88 >" ALL FIELDS"  89 RTN  90 LBL 24  91 " POSITIVE"  92 >" ALL FIELDS"  93 RTN  94 LBL 25  95 " STABILITY"  96 >" DONT MOVE"  97 RTN  98 LBL 26  99 " BAD OMEN" 100 RTN 101 LBL 27 102 " IMPROVEMENT" 103 >" ALL FIELDS" 104 RTN 105 LBL 28 106 " BAD FOUNDATION" 107 RTN 108 LBL 29 109 " GOOD STABILITY" 110 RTN 111 LBL 30 112 " PERFECT"

113 >" PROSPERITY" 114 RTN 115 LBL 31 116 " ALL WISHES" 117 >" FULFILLED" 118 RTN 119 LBL 32 120 " PLEASANT" 121 >" SPECTACLE" 122 RTN 123 LBL 33 124 " INCREASING" 125 >" LUCK AND JOY"  126 RTN 127 LBL 34 128 " SUCCESS" 129 >" ALL FIELDS" 130 RTN 131 LBL 35 132 " PROSPERITY" 133 >" WELL-BEING" 134 RTN 135 LBL 36 136 " SUCCESS" 137 >" VICTORY" 138 RTN 139 LBL 99 140 AVIEW 141 END

 
      ( 801 bytes / SIZE 000 )
 
 

STACK	INPUT	OUTPUT
X	/	/

 
-Assuming  RAND  returns  0.41  you'll get the following message:

         "INCREASING WEALTH"
 

Note:

-If you don't have a TIME module, replace line 02 by RCL 00  R-D  FRC   STO 00
  or another RNG  of your own and initialize R00 with a random seed.
 

Remark:

-All these programs may of course be improved by adding more complete interpretations...