1 REM *** PROGRAM BY AUDRY VILKAS AND JAMES CENTANNI * COPYRIGHT 1986 ***
2 PRINTCHR$(147):DIM W$(64,2):T=0:Z=0
3 INPUT"INTEGER 1";X
4 INPUT"INTEGER 2";Y:PRINT:PRINT
5 FOR X=1 TO 6
6 FOR L=INT(RND(0)*X) TO INT(RND(1)*Y)
7 I=INT(RND(1)*2)
8 J=INT(RND(1)*2)
9 K=INT(RND(1)*2)
10 NEXT
11 IF I=0 AND J=0 AND K=0 THEN S=1:P=2:GOTO 21
12 IF I=1 AND J=1 AND K=1 THEN S=2:P=1:GOTO 22
13 S=I+J+K
14 P=S
15 IF I=0 AND J=0 AND K=1 GOTO 23
16 IF I=0 AND J=1 AND K=0 GOTO 23
17 IF I=1 AND J=0 AND K=0 GOTO 23
18 IF I=0 AND J=1 AND K=1 GOTO 24
19 IF I=1 AND J=0 AND K=1 GOTO 24
20 IF I=1 AND J=1 AND K=0 GOTO 24
21 PRINT"6 [192][192] [192][192]   [192][192][192][192][192]   ";TI$:GOTO 25:REM MOVING YIN LINE
22 PRINT"9 [192][192][192][192][192]   [192][192] [192][192]   ";TI$:GOTO 25:REM MOVING YANG LINE
23 PRINT"8 [192][192] [192][192]   [192][192] [192][192]   ";TI$:GOTO 25:REM STATIC YIN
24 PRINT"7 [192][192][192][192][192]   [192][192][192][192][192]   ";TI$:GOTO 25:REM STATIC YANG
25 T=(2^X)*S+T
26 Z=(2^X)*P+Z
27 NEXT X
29 FOR X=1 TO 64
30 FOR Y=1 TO 2
31 READ W$(X,Y)
32 NEXT Y:NEXT X
33 FOR M=1 TO 64
34 IF T=VAL(W$(M,1)) THEN TY$=W$(M,2)
35 IF Z=VAL(W$(M,1)) THEN Z$=W$(M,2)
36 NEXT M
37 PRINT:PRINT:PRINT"DATA #:"T:PRINT"  HEXAGRAM: "TY$:PRINT
38 PRINT"DATA #:"Z:PRINT"  HEXAGRAM: "Z$
39 PRINT:PRINT:PRINT"AGAIN? (Y/N)"
40 GET A$:IF A$="" THEN 40
41 IF A$="Y" THEN RUN
42 END
126 DATA 126,  2 RECEPTIVE*TENTH MONTH
128 DATA 128, 23 SPLITTING APART*NINTH MONTH
130 DATA 130, 30 HOLDING TOGETHER*THIRD MONTH
132 DATA 132, 20 CONTEMPLATION*FOURTH OR FIFTH OR SIXTH MONTH
134 DATA 134, 16 ENTHUSIASM*SECOND MONTH
136 DATA 136, 35 PROGRESS*FIRST MONTH
138 DATA 138, 45 GATHERING TOGETHER*SECOND MONTH (APPROX. MARCH)
140 DATA 140, 12 STAGNATION*SEVENTH MONTH
142 DATA 142, 15 MODESTY*ELEVENTH MONTH
144 DATA 144, 52 KEEPING STILL*NINTH MONTH (APPROX. OCT.)
146 DATA 146, 39 OBSTRUCTION*TENTH MONTH (APPROX. NOV.)
148 DATA 148, 53 GRADUAL DEVELOPMENT*TWELFTH MONTH (APPROX. JAN.)
150 DATA 150, 62 PREPONDERENCE OF THE SMALL*TWELFTH MONTH (APPROX. JAN.)
152 DATA 152, 56 WANDERER*THIRD MONTH (APPROX. APRIL)
154 DATA 154, 31 INFLUENCE*FOURTH MONTH (APPROX. MAY)
156 DATA 156, 33 RETREAT*SIXTH MONTH (APPROX. JULY)
158 DATA 158,  7 ARMY*THIRD MONTH
160 DATA 160,  4 FOLLY*TWELFTH MONTH
162 DATA 162, 29 DANGER*TENTH OR ELEVENTH OR TWELVETH MONTH
164 DATA 164, 59 DISPERSION*FIFTH MONTH
166 DATA 166, 40 DELIVERANCE*FIRST MONTH (APPROX. FEB.)
168 DATA 168, 64 BEFORE COMPLETION*TENTH MONTH
170 DATA 170, 47 OPPRESSION*EIGHTH MONTH
172 DATA 172,  6 CONFLICT*SECOND MONTH
174 DATA 174, 46 PUSHING UPWARDS*ELEVENTH MONTH
176 DATA 176, 18 WORK ON WHAT IS SPOILED*SECOND MONTH
178 DATA 178, 48 THE WELL*FOURTH MONTH
180 DATA 180, 57 GENTLENESS*SEVENTH MONTH
182 DATA 182, 32 DURATION*SIXTH MONTH
184 DATA 184, 50 THE CAULDRON*FIFTH MONTH
186 DATA 186, 62 PREPONDERANCE OF THE GREAT*NINTH MONTH
188 DATA 188, 44 COMING TO MEET*FIFTH MONTH
190 DATA 190, 24 RETURN*ELEVENTH MONTH
192 DATA 192, 27 PROVIDING NOURISHMENT*TENTH MONTH
194 DATA 194,  3 DIFFICULTY IN THE BEGINNING*ELEVENTH MONTH
196 DATA 196, 42 INCREASE*TWELFTH MONTH
198 DATA 198, 51 SHOCK*FIRST OR SECOND OR THIRD MONTH
200 DATA 200, 21 BITING THROUGH*NINTH MONTH
202 DATA 202, 17 FOLLOWING*FIRST MONTH
204 DATA 204, 25 INNOCENCE*EIGHTH MONTH
206 DATA 206, 36 DARKENING OF THE LIGHT*EIGHTH MONTH
208 DATA 208, 22 GRACE*SEVENTH MONTH
210 DATA 210, 63 AFTER COMPLETION*NINTH MONTH
212 DATA 212, 37 FAMILY*FOURTH MONTH
214 DATA 214, 55 ABUNDANCE*FIFTH MONTH
216 DATA 216, 30 THE CLINGING*EIGHTH MONTH
218 DATA 218, 49 REVOLUTION*SEVENTH MONTH
220 DATA 220, 13 FELLOWSHIP*SIXTH MONTH
222 DATA 222, 19 APPROACH*TWELFTH MONTH
224 DATA 224, 41 DECREASE*SIXTH MONTH
226 DATA 226, 60 LIMITATION*SIXTH MONTH
228 DATA 228, 61 INNER TRUTH*TENTH MONTH
230 DATA 230, 54 MARRYING MAIDEN*EIGHTH MONTH
232 DATA 232, 38 OPPOSITION*ELEVENTH MONTH
234 DATA 234, 58 JOY*SEVENTH OR EIGHTH OR NINTH MONTH
236 DATA 236, 10 CONDUCT*FIFTH MONTH
238 DATA 238, 11 PEACE*FIRST MONTH
240 DATA 240, 26 THE TAMING POWER OF THE GREAT*SEVENTH MONTH
242 DATA 242,  5 WAITING*FIRST MONTH
244 DATA 244,  9 THE TAMING POWER OF THE SMALL*THIRD MONTH
246 DATA 246, 34 GREAT POWER*SECOND MONTH
248 DATA 248, 14 GREAT POSSESSIONS*FOURTH MONTH
250 DATA 250, 43 BREAKTHROUGH*THIRD MONTH
252 DATA 252,  1 THE CREATIVE*FOURTH MONTH