Chinese zodiac: Difference between revisions

==={{header|Chipmunk Basic}}===

{{works with|Chipmunk Basic|3.6.4}}

<syntaxhighlight lang="qbasic">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</syntaxhighlight>

{{out}}

<pre>Same as Yabasic entry.</pre>

==={{header|GW-BASIC}}===

The [[#MSX_BASIC|MSX BASIC]] solution works without any changes.

==={{header|MSX Basic}}===

{{works with|Chipmunk Basic}}

{{works with|GW-BASIC}}

{{works with|PC-BASIC}}

{{works with|QBasic}}

<syntaxhighlight lang="qbasic">100 REM Chinese zodiac

110 CLS

120 PRINT " **** Chinese zodiac ****"

130 DIM animals$(12)

140 FOR i = 0 TO 11

150 READ animals$(i)

160 NEXT i

170 DIM elements$(5)

180 FOR i = 0 TO 4

190 READ elements$(i)

200 NEXT i

210 DIM yinyang$(2)

220 yinyang$(0) = "Yang"

230 yinyang$(1) = "Yin"

240 DIM years(7)

250 FOR i = 0 TO 6

260 READ years(i)

270 NEXT i

280 FOR i = 0 TO 6

290 xyear = years(i)

300 yelement$ = elements$(((xyear-4) MOD 10)/2)

310 yanimal$ = animals$((xyear-4) MOD 12)

320 yyinyang$ = yinyang$(xyear MOD 2)

330 nn = ((xyear-4) MOD 60)+1

340 PRINT xyear; "is the year of the "; yelement$; " "; yanimal$; " ("; yyinyang$; ")."

350 NEXT i

360 END

370 DATA "Rat","Ox","Tiger","Rabbit","Dragon","Snake","Horse","Goat","Monkey","Rooster","Dog","Pig"

380 DATA "Wood","Fire","Earth","Metal","Water"

390 DATA 1935,1938,1968,1972,1976,1984,2017</syntaxhighlight>

{{Out}}

https://www.dropbox.com/s/ckhu3u5pbwq7p5n/Chinese_zodiac%20%28MSX%29.png?dl=0

==={{header|QBasic}}===

{{works with|QBasic|1.1}}

{{works with|QuickBasic|4.5}}

{{works with|Chipmunk Basic}}

{{works with|GW-BASIC}}

{{works with|MSX_BASIC}}

{{works with|PC-BASIC}}

<syntaxhighlight lang="qbasic">10 REM Chinese zodiac

20 CLS

30 DIM animals$(12)

40 DIM elements$(5)

50 DIM yinyang$(2)

70 FOR i = 0 TO 11

80 READ animals$(i)

90 NEXT i

110 FOR i = 0 TO 4

120 READ elements$(i)

130 NEXT i

140 yinyang$(0) = "Yang": yinyang$(1) = "Yin"

150 DIM years(7)

170 FOR i = 0 TO 6

180 READ years(i)

190 NEXT i

200 FOR i = 0 TO 6

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</syntaxhighlight>

{{out}}

<pre>Same as Yabasic entry.</pre>