$:.push "work"
$:.push "../work"

require "num/dcl"
include DCL

sgopn(1)

slmgn(0.0, 0.0, 0.05, 0.05)
slrat(1.0, 1.0)
slsttl("FIGURE TITLE", ?T,  0.0, -1.0, 0.02, 1)
slsttl("PAGE:#PAGE",   ?B,  1.0,  1.0, 0.02, 2)
slsttl("PROG.NAME",    ?B, -1.0,  1.0, 0.02, 3)

sgfrm
slpwwr(1)
sgtxzv(0.5, 0.5, "FIGURE", 0.05, 0, 0, 1)

sgcls