: main
  pop
  me @ "Name of atmosphere command:" notify read
  #0 open
  dup #513 addlink
  dup "_atmos" "yes" 0 addprop
  dup "D" set
  me @ "_format:" notify read dup if
    over "_format" rot 0 addprop else pop then
  me @ "_oformat:" notify read dup if
    over "_oformat" rot 0 addprop else pop then
  me @ "_vformat:" notify read dup if
    over "_vformat" rot 0 addprop else pop then
  me @ "_noarg:" notify read dup if
    over "_noarg" rot 0 addprop else pop then
  me @ "_onoarg:" notify read dup if
    over "_onoarg" rot 0 addprop else pop then
  "Exit '%n' created with dbref #'%d'."
  over intostr "%d" subst swap name "%n" subst
  me @ swap notify
;