Basic


135


CLS
' INPUT " "; YEAR ' =( (9910-YEAR) MOD 60)\12 =(YEAR-3) MOD 12 ' SELECT CASE CASE 0
PRINT ""; CASE I
PRINT ""; CASE 2
PRINT ""; CASE 3
PRINT ""; CASE A
PRINT ""; END SELECT
' SELECT CASE CASE 0
PRINT " " CASE 1
PRINT " " CASE 2
PRINT " " CASE 3
PRINT " " CASE 4
PRINT " " CASE 5
PRINT " " CASE 6
PRINT " " CASE 7
PRINT " "
CASE 8
PRINT " " CASE 9
PRINT " " CASE 10
PRINT " " CASE 11
PRINT " " END SELECT PRINT " !" END