Basic -




117

1 -
CLS
INPUT " "; N
IF N MOD 2=0 THEN LOCATE 12, 35: PRINT " "
ELSE LOCATE 12, 35: PRINT " "
END

120

X

  • =1
  • =2
  • =0

123

S=6

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