program myvote
implicit none
! Variable declarations
!
character(len=1024) :: vote
! Execution begins
! Define vote
!
vote= '[x] You are a young woman who thinks of yourself as a coward. Thanatophobia is a crippling burden in your life.'
! Open data file to write vote to.
!
open(11, file="./skewfiend-vote.data", action="write", acces="sequential", form="formatted", status="replace",
write(11,*) trim(vote)
close(11)
end program myvote