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

require "num/dcl"
include DCL

sgopn(1)

sglset("LFULL", true)
slmgn(0.0, 0.0, 0.08, 0.08)

slrat(1.0, 0.6)
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.01, 0.02, 'LOWER LEFT',  0.02, 0, -1, 3)
sgtxzv(0.01, 0.58, 'UPPER LEFT',  0.02, 0, -1, 3)
sgtxzv(0.99, 0.02, 'LOWER RIGHT', 0.02, 0,  1, 3)
sgtxzv(0.99, 0.58, 'UPPER RIGHT', 0.02, 0,  1, 3)
sgcls