113 700 IF second 710 PRINT ;second; " " 720 ENDPROC 730 740 DEF PROCOFF 750 VDU 23,1,0;0;0;0; 760 ENDPROC 770 780 790 DEF PROCincdate 800 day=day+1 810 IF (month=2) AND (day>29) THEN day=1:month=3 820 IF (month=2) AND (day=29) THEN IF NOT FNLEAP(year) THEN day=1:month=3 830 IF ((month=4 OR month=6 OR month=9 OR month=11) AND (day=31)) THEN day=1: month=month+1 840 IF day>31 THEN day=1:month=month+1 850 IF month>12 THEN month=1:year=year+1 860 ENDPROC 870 880 890 DEF FNLEAP(Y) 900 REM RETURNS TRU IF Y IS LEAP YEAR 910 IF Y MOD 4=0 AND (Y MOD 100 0 OR Y MOD 400=0) THEN =TRUE ELSE =FALSE