Setvirtualresolution(640,480)
SetPrintSize(25)
ResetTimer()
date$=GetCurrentDate()
year$=Left(date$,4)
leap=GetLeapYear(Val(year$))
Repeat
Printc (year$)
If leap=1
Print (" is a leap year.")
Else
Print (" is not a leap year.")
EndIf
Sync()
Until Timer()>15
End
Help make AGK better by submitting an example for this command! (All examples are subject to approval)
Setvirtualresolution(640,480) SetPrintSize(25) ResetTimer() date$=GetCurrentDate() year$=Left(date$,4) leap=GetLeapYear(Val(year$)) Repeat Printc (year$) If leap=1 Print (" is a leap year.") Else Print (" is not a leap year.") EndIf Sync() Until Timer()>15 End