100 LET A = 17
110 GOSUB 1000
120 LET A = 50
130 GOSUB 1000
140 END
1000 PRINT A;
1010 PRINT " is an ";
1020 IF A % 2 = 0 THEN PRINT "even"; 
1025 IF A % 2 # 0 THEN PRINT "odd";
1030 PRINT " number."
1040 RETURN
