home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_24_1988_Transactor_Publishing.d64 / hexagram (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  106 lines
  1. 1 rem *** program by audry vilkas and james centanni * copyright 1986 ***
  2. 2 printchr$(147):dim w$(64,2):t=0:z=0
  3. 3 input"integer 1";x
  4. 4 input"integer 2";y:print:print
  5. 5 for x=1 to 6
  6. 6 for l=int(rnd(0)*x) to int(rnd(1)*y)
  7. 7 i=int(rnd(1)*2)
  8. 8 j=int(rnd(1)*2)
  9. 9 k=int(rnd(1)*2)
  10. 10 next
  11. 11 if i=0 and j=0 and k=0 then s=1:p=2:goto 21
  12. 12 if i=1 and j=1 and k=1 then s=2:p=1:goto 22
  13. 13 s=i+j+k
  14. 14 p=s
  15. 15 if i=0 and j=0 and k=1 goto 23
  16. 16 if i=0 and j=1 and k=0 goto 23
  17. 17 if i=1 and j=0 and k=0 goto 23
  18. 18 if i=0 and j=1 and k=1 goto 24
  19. 19 if i=1 and j=0 and k=1 goto 24
  20. 20 if i=1 and j=1 and k=0 goto 24
  21. 21 print"6 [192][192] [192][192]   [192][192][192][192][192]   ";ti$:goto 25:rem moving yin line
  22. 22 print"9 [192][192][192][192][192]   [192][192] [192][192]   ";ti$:goto 25:rem moving yang line
  23. 23 print"8 [192][192] [192][192]   [192][192] [192][192]   ";ti$:goto 25:rem static yin
  24. 24 print"7 [192][192][192][192][192]   [192][192][192][192][192]   ";ti$:goto 25:rem static yang
  25. 25 t=(2^x)*s+t
  26. 26 z=(2^x)*p+z
  27. 27 next x
  28. 29 for x=1 to 64
  29. 30 for y=1 to 2
  30. 31 read w$(x,y)
  31. 32 next y:next x
  32. 33 for m=1 to 64
  33. 34 if t=val(w$(m,1)) then ty$=w$(m,2)
  34. 35 if z=val(w$(m,1)) then z$=w$(m,2)
  35. 36 next m
  36. 37 print:print:print"data #:"t:print"  hexagram: "ty$:print
  37. 38 print"data #:"z:print"  hexagram: "z$
  38. 39 print:print:print"again? (y/n)"
  39. 40 get a$:if a$="" then 40
  40. 41 if a$="y" then run
  41. 42 end
  42. 126 data 126,  2 receptive*tenth month
  43. 128 data 128, 23 splitting apart*ninth month
  44. 130 data 130, 30 holding together*third month
  45. 132 data 132, 20 contemplation*fourth or fifth or sixth month
  46. 134 data 134, 16 enthusiasm*second month
  47. 136 data 136, 35 progress*first month
  48. 138 data 138, 45 gathering together*second month (approx. march)
  49. 140 data 140, 12 stagnation*seventh month
  50. 142 data 142, 15 modesty*eleventh month
  51. 144 data 144, 52 keeping still*ninth month (approx. oct.)
  52. 146 data 146, 39 obstruction*tenth month (approx. nov.)
  53. 148 data 148, 53 gradual development*twelfth month (approx. jan.)
  54. 150 data 150, 62 preponderence of the small*twelfth month (approx. jan.)
  55. 152 data 152, 56 wanderer*third month (approx. april)
  56. 154 data 154, 31 influence*fourth month (approx. may)
  57. 156 data 156, 33 retreat*sixth month (approx. july)
  58. 158 data 158,  7 army*third month
  59. 160 data 160,  4 folly*twelfth month
  60. 162 data 162, 29 danger*tenth or eleventh or twelveth month
  61. 164 data 164, 59 dispersion*fifth month
  62. 166 data 166, 40 deliverance*first month (approx. feb.)
  63. 168 data 168, 64 before completion*tenth month
  64. 170 data 170, 47 oppression*eighth month
  65. 172 data 172,  6 conflict*second month
  66. 174 data 174, 46 pushing upwards*eleventh month
  67. 176 data 176, 18 work on what is spoiled*second month
  68. 178 data 178, 48 the well*fourth month
  69. 180 data 180, 57 gentleness*seventh month
  70. 182 data 182, 32 duration*sixth month
  71. 184 data 184, 50 the cauldron*fifth month
  72. 186 data 186, 62 preponderance of the great*ninth month
  73. 188 data 188, 44 coming to meet*fifth month
  74. 190 data 190, 24 return*eleventh month
  75. 192 data 192, 27 providing nourishment*tenth month
  76. 194 data 194,  3 difficulty in the beginning*eleventh month
  77. 196 data 196, 42 increase*twelfth month
  78. 198 data 198, 51 shock*first or second or third month
  79. 200 data 200, 21 biting through*ninth month
  80. 202 data 202, 17 following*first month
  81. 204 data 204, 25 innocence*eighth month
  82. 206 data 206, 36 darkening of the light*eighth month
  83. 208 data 208, 22 grace*seventh month
  84. 210 data 210, 63 after completion*ninth month
  85. 212 data 212, 37 family*fourth month
  86. 214 data 214, 55 abundance*fifth month
  87. 216 data 216, 30 the clinging*eighth month
  88. 218 data 218, 49 revolution*seventh month
  89. 220 data 220, 13 fellowship*sixth month
  90. 222 data 222, 19 approach*twelfth month
  91. 224 data 224, 41 decrease*sixth month
  92. 226 data 226, 60 limitation*sixth month
  93. 228 data 228, 61 inner truth*tenth month
  94. 230 data 230, 54 marrying maiden*eighth month
  95. 232 data 232, 38 opposition*eleventh month
  96. 234 data 234, 58 joy*seventh or eighth or ninth month
  97. 236 data 236, 10 conduct*fifth month
  98. 238 data 238, 11 peace*first month
  99. 240 data 240, 26 the taming power of the great*seventh month
  100. 242 data 242,  5 waiting*first month
  101. 244 data 244,  9 the taming power of the small*third month
  102. 246 data 246, 34 great power*second month
  103. 248 data 248, 14 great possessions*fourth month
  104. 250 data 250, 43 breakthrough*third month
  105. 252 data 252,  1 the creative*fourth month
  106.