TEST.PUB[PUB,TES]2 - www.SailDart.org

perm filename TEST.PUB[PUB,TES]2 blob sn#226969 filedate 1976-07-15 generic text, type C, neo UTF8

COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device tty
C00004 ENDMK
C⊗;
.device tty
.variable txt, token, space;
.
.space←'40;
.
.macro under(stuff)⊂
.    <<turn on "∪";>> txt ← "stuff";
.    repeat⊂
.	if txt=null then done else token ← scan(txt, space, null, "ia");
.	if token=space then token else ("∪"&token); ⊃
.    turn off; ⊃
.
.under "Good grief, Charly    Brown!"