12 lines
145 B
Text
12 lines
145 B
Text
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
|