[ssr] / StraySrc / Libraries / Sapphire / bsh / libOpts.bas

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
Commit	Line	Data
c1b567d8 MW	1	REM Sapphire libOpts macro library -- © 1994 Straylight
	2
	3	DEF FNlibOpts_test=0
	4
	5	DEF FNlibOpt(n$)
	6	IF FNalign
	7	lo__l=lo__l
	8	IF lo__l THEN !(lo__l+O%-P%-4)=P%-lo__l
	9	[ opt 4
	10	equs n$
	11	dcd 0
	12	.lo__l
	13	]
	14	=0
	15
	16	DEF FNlibOpts_end
	17	IF FNalign
	18	!(lo__l+O%-P%-4)=P%-lo__l
	19	[ opt 4
	20	dcd -1
	21	]
	22	=0