20 lines
731 B
Text
20 lines
731 B
Text
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
|