e-day minus one

program study
!I have to do a lot of study today.

!declare variables
logical ComfyClothes, UggBoots, FoodInBelly
logical Music, Books, DeskSpace, GoodHealth
integer CareFactor
logical PeopleToTalkTo, PlacesToGo, ThingsToDo

!initialise variables
ComfyClothes = .true.
UggBoots = .true.
FoodInBelly = .true.
Music = .true.
Books = .true.
DeskSpace = .true. !Wow, that's amazing...
GoodHealth = .false.

Carefactor = 0
PeopleToTalkTo = .true.
PlacesToGo = .true.
ThingsToDo = .true.

print*, 'Why do I bother?'

end program


edit: I fixed up the variable assignments for the logical variables, so this is now a fully-functioning (but nearly completely useless) Fortran90/95 program!