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

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