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

diff --git a/StraySrc/Libraries/Sapphire/bsh/banner.bas b/StraySrc/Libraries/Sapphire/bsh/banner.bas
new file mode 100644
index 0000000..2e31777
--- /dev/null
+++ b/StraySrc/Libraries/Sapphire/bsh/banner.bas
@@ -0,0 +1,46 @@
+REM Sapphire banner macro library -- © 1995 Straylight
+
+DEF FNbanner_test=0
+
+DEF FNbanner
+[ opt 4
+  FNalign
+.bnr__l
+  dcd 0
+]
+=0
+
+DEF FNbnr__f(f%)
+IF !(bnr__l+O%-P%)>=f% THEN ERROR 1,"Banner flags built in wrong order"
+!(bnr__l+O%-P%)=!(bnr__l+O%-P%) OR f%
+=0
+
+DEF FNbanner_slider(i%)
+[ opt 4
+  FNbnr__f(bFlag_slider)
+  dcd i%
+]
+=0
+
+DEF FNbanner_count(i%)
+[ opt 4
+  FNbnr__f(bFlag_counter)
+  dcd i%
+]
+=0
+
+DEF FNbanner_setup(r%)
+[ opt 4
+  FNbnr__f(bFlag_setup)
+  dcd r%
+]
+=0
+
+DEF FNbanner_sprites(s$)
+[ opt 4
+  FNbnr__f(bFlag_sprites)
+  equs s$+CHR$(0)
+  FNalign
+]
+
+DEF FNbanner_end=FNalign