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

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