Create readable text `.bas' for each tokenized BASIC `,ffb' file.

[ssr] / 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 (file)
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