22 lines
848 B
Text
22 lines
848 B
Text
100 rem Chinese zodiac
|
|
110 cls
|
|
120 dim animals$(12)
|
|
130 for i = 0 to ubound(animals$)-1 : read animals$(i) : next i
|
|
140 dim elements$(5)
|
|
150 for i = 0 to ubound(elements$)-1 : read elements$(i) : next i
|
|
160 dim yinyang$(2)
|
|
170 yinyang$(0) = "Yang" : yinyang$(1) = "Yin"
|
|
180 dim years(7)
|
|
190 for i = 0 to ubound(years)-1 : read years(i) : next i
|
|
200 for i = 0 to ubound(years)-1
|
|
210 xyear = years(i)
|
|
220 yelement$ = elements$(((xyear-4) mod 10)/2)
|
|
230 yanimal$ = animals$((xyear-4) mod 12)
|
|
240 yyinyang$ = yinyang$(xyear mod 2)
|
|
250 nn = ((xyear-4) mod 60)+1
|
|
260 print xyear "is the year of the " yelement$ " " yanimal$ " (" yyinyang$ ")."
|
|
270 next i
|
|
280 end
|
|
290 data "Rat","Ox","Tiger","Rabbit","Dragon","Snake","Horse","Goat","Monkey","Rooster","Dog","Pig"
|
|
300 data "Wood","Fire","Earth","Metal","Water"
|
|
310 data 1935,1938,1968,1972,1976,1984,2017
|