mount vd0:
blanker2 450
blitzfonts
setfont clean
if NOT EXISTS vd0:c
 pack-it >nil: e vd0: df0:c/commands
 endif
assign c: vd0:
sys:c/path reset c: vd0:c sys:c sys:devs
run faccii 512
window 0 0 530 200
getclock 19032488 10/7 2 0430 1031
run smallclock
cd df1:
wb