Chinese zodiac: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 870: | Line 870: | ||
{{Out}} |
{{Out}} |
||
https://www.dropbox.com/s/ckhu3u5pbwq7p5n/Chinese_zodiac%20%28MSX%29.png?dl=0 |
https://www.dropbox.com/s/ckhu3u5pbwq7p5n/Chinese_zodiac%20%28MSX%29.png?dl=0 |
||
==={{header|IS-BASIC}}=== |
|||
<syntaxhighlight lang="is-basic">100 PROGRAM "Zodiac.bas" |
|||
110 STRING ANIMALS$(0 TO 11)*7,ELEMENTS$(0 TO 4)*5,YINYANG$(0 TO 1)*4 |
|||
120 FOR I=0 TO 11 |
|||
130 READ ANIMALS$(I) |
|||
140 NEXT |
|||
150 FOR I=0 TO 4 |
|||
160 READ ELEMENTS$(I) |
|||
170 NEXT |
|||
180 LET YINYANG$(0)="Yang":LET YINYANG$(1)="Yin" |
|||
190 CALL ZODIAC(1935):CALL ZODIAC(1938) |
|||
200 CALL ZODIAC(1968):CALL ZODIAC(1972) |
|||
210 CALL ZODIAC(1976):CALL ZODIAC(2017) |
|||
220 DEF ZODIAC(YEAR) |
|||
230 LET YELEMENT$=ELEMENTS$(MOD((YEAR-4),10)/2) |
|||
240 LET YANIMAL$=ANIMALS$(MOD((YEAR-4),12)) |
|||
250 LET YYINYANG$=YINYANG$(MOD(YEAR,2)) |
|||
260 PRINT YEAR;"is the year of the ";YELEMENT$;" ";YANIMAL$;" (";YYINYANG$;")." |
|||
270 END DEF |
|||
280 DATA Rat,Ox,Tiger,Rabbit,Dragon,Snake, Horse,Goat,Monkey,Rooster,Dog,Pig |
|||
290 DATA Wood,Fire,Earth,Metal,Water</syntaxhighlight> |
|||
==={{header|QBasic}}=== |
==={{header|QBasic}}=== |