graph
16 alloc buf =
16 alloc otime =
1920 alloc frm =

frm % frame drop
1 mag 184 45 move "Portfolio" print
0 35 move 239 35 line
0 60 move 239 60 line
128 color
while press !
frm % frame drop
cl ++
if cl % 4 ==
dots do 0 cl =
endif
1 mag 156 22 move
time buf % $cpy buf % 4 + dup 2 poke print
time buf % $cpy buf % 4 poke
if buf % otime % $cmp
time otime % $cpy otime % 4 poke
4 mag 108 1 move
time buf % $cpy buf % 2 + dup 2 poke print
time buf % $cpy buf % dup 2 poke val hp =
time buf % $cpy buf % 2 + dup 2 poke val mp =
if hp % 12 <=
if hp % 12 ==
2 mag "PM" print 4 mag
else
2 mag "AM" print 4 mag
endif
36 1 move
if hp % 10 <
" " print
endif
hp % hpn =
else
if hp % 24 ==
2 mag "AM" print 4 mag
else
2 mag "PM" print 4 mag
endif
36 1 move
if hp % 22 <
" " print
endif
hp % 12 - hpn =
endif
hpn % str print
if mp % 0 ==
chime do
endif

ddate do
endif
0 frame drop
100 delay
endwhile

key drop
0 frame drop
buf % frm % otime % free free free
text

proc chime
for hpn % 1 i
15 20 tone
400 delay
endfor
endproc

proc dots
95 9 0 circle 95 9 1 circle 95 9 2 circle
95 21 0 circle 95 21 1 circle 95 21 2 circle
endproc

proc ddate
2 mag 8 40 move
date buf % $cpy buf % 4 + dup 2 poke print " " print
month do nl
endproc

proc month
date buf % $cpy buf % 2 + dup 2 poke val monthp =
if monthp % 1 ==
"January" print
endif
if monthp % 2 ==
"February" print
endif
if monthp % 3 ==
"March" print
endif
if monthp % 4 ==
"April" print
endif
if monthp % 5 ==
"May" print
endif
if monthp % 6 ==
"June" print
endif
if monthp % 7 ==
"July" print
endif
if monthp % 8 ==
"August" print
endif
if monthp % 9 ==
"September" print
endif
if monthp % 10 ==
"October" print
endif
if monthp % 11 ==
"November" print
endif
if monthp % 12 ==
"December" print
endif
endproc