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

diff --git a/StraySrc/Libraries/Sapphire/bsh/libOpts.bas b/StraySrc/Libraries/Sapphire/bsh/libOpts.bas
new file mode 100644
index 0000000..828fda1
--- /dev/null
+++ b/StraySrc/Libraries/Sapphire/bsh/libOpts.bas
@@ -0,0 +1,22 @@
+REM Sapphire libOpts macro library -- © 1994 Straylight
+
+DEF FNlibOpts_test=0
+
+DEF FNlibOpt(n$)
+IF FNalign
+lo__l=lo__l
+IF lo__l THEN !(lo__l+O%-P%-4)=P%-lo__l
+[ opt 4
+  equs n$
+  dcd 0
+.lo__l
+]
+=0
+
+DEF FNlibOpts_end
+IF FNalign
+!(lo__l+O%-P%-4)=P%-lo__l
+[ opt 4
+  dcd -1
+]
+=0