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

   1 REM Sapphire banner macro library -- © 1995 Straylight
   2
   3 DEF FNbanner_test=0
   4
   5 DEF FNbanner
   6 [ opt 4
   7   FNalign
   8 .bnr__l
   9   dcd 0
  10 ]
  11 =0
  12
  13 DEF FNbnr__f(f%)
  14 IF !(bnr__l+O%-P%)>=f% THEN ERROR 1,"Banner flags built in wrong order"
  15 !(bnr__l+O%-P%)=!(bnr__l+O%-P%) OR f%
  16 =0
  17
  18 DEF FNbanner_slider(i%)
  19 [ opt 4
  20   FNbnr__f(bFlag_slider)
  21   dcd i%
  22 ]
  23 =0
  24
  25 DEF FNbanner_count(i%)
  26 [ opt 4
  27   FNbnr__f(bFlag_counter)
  28   dcd i%
  29 ]
  30 =0
  31
  32 DEF FNbanner_setup(r%)
  33 [ opt 4
  34   FNbnr__f(bFlag_setup)
  35   dcd r%
  36 ]
  37 =0
  38
  39 DEF FNbanner_sprites(s$)
  40 [ opt 4
  41   FNbnr__f(bFlag_sprites)
  42   equs s$+CHR$(0)
  43   FNalign
  44 ]
  45
  46 DEF FNbanner_end=FNalign