X-Git-Url: https://git.distorted.org.uk/~mdw/ssr/blobdiff_plain/a3da4c116d4216fdec125d687dfc347e343a8b28..c1b567d833a004bb3d978f1f7c99f42cefa7845c:/StraySrc/Libraries/Sapphire/bsh/stdDbox.bas

diff --git a/StraySrc/Libraries/Sapphire/bsh/stdDbox.bas b/StraySrc/Libraries/Sapphire/bsh/stdDbox.bas
new file mode 100644
index 0000000..6a250c0
--- /dev/null
+++ b/StraySrc/Libraries/Sapphire/bsh/stdDbox.bas
@@ -0,0 +1,43 @@
+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