REM Sapphire stddbox macro library -- © 1994 Straylight

DEF FNstddbox_test=0

REM --- Buttons ---

DEF FNbutton(m$)
[ opt 4
.but__l
  dcd bFlag_text
  equs m$+CHR$(0)
  FNalign
]
=0

DEF FNbuttons_cancel
[ opt 4
.but__l
  dcd bFlag_cancel
]
=0

DEF FNbuttons_gap
[ opt 4
.but__l
  dcd 0
]
=0

DEF FNbuttons_end
!(but__l+O%-P%)=!(but__l+O%-P%) OR bFlag_last
=0

REM --- Writable dialogue box ---

DEF FNwritable(l%,f%,v$,t$)
[ opt 4
  dcd l% OR f%
  dcb v$+CHR$(0)
  dcb t$+CHR$(0)
  FNalign
]
=0