;;;-*- Mode:LISP; Fonts:TR18B; Base:10 -*-

(send terminal-io ':set-font-map (list fonts:tr18b))
(load "sys:fonts;bigfntb")
;;;(load "htech:hyperwindow;defsystem")
;;;(load "htech:hypercalc;defsystem")
;;;(make-system 'hypercalc :noconfirm)
;;;(load "htech:hyperdemo;merge-operations")
;;;(load "HTech:HyperDemo;expl-slides")
(print " type (show-and-tell)")