chiark - git - mdw - ssr/blob - StraySrc/Libraries/Sapphire/bsh/libOpts.bas

   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