RosettaCodeData/Task/Calendar/FutureBasic/calendar-1.basic

window 1, @"Calendar", (0, 0, 520, 520 )

Str255 a

open "UNIX", 1,"cal 1969"
do
  line input #1, a
  print a
until eof(1)
close 1

HandleEvents