MODULE Main; IMPORT Trestle, TextVBT, RigidVBT, Font, PaintOp; IMPORT Latin1Key, Text; (* Standard Modula-3 library modules. *) CONST ha = 0.0; (* horizonal alignment; left justified *) va = 0.4; (* vertical alignment; 4/10 toward the bottom *) hm = 3.0; (* horizonal margin (millimeters) *) vm = 5.0; (* vertical margin (millimeters) *) courier18 = "-*-courier-bold-r-*-*-18-*-*-*-*-*-*-*"; VAR white := PaintOp.FromRGB(1.0, 1.0, 1.0); blue := PaintOp.FromRGB(0.0, 0.0, 0.8); quad := PaintOp.MakeColorQuad(bg := blue, fg := white); qd := Text.FromChar(VAL(Latin1Key.questiondown, CHAR)); ea := Text.FromChar(VAL(Latin1Key.eacute, CHAR)); text := qd & "Qu" & ea & " pasa?"; font := Font.FromName(ARRAY OF TEXT{courier18}); main := TextVBT.New( txt := text, halign := ha, valign := va, hmargin := hm, vmargin := vm, fnt := font, bgFg := quad); BEGIN Trestle.Install(main); Trestle.AwaitDelete(main); END Main.