~mdw / ssr / blame
| Commit | Line | Data |
|---|---|---|
| c1b567d8 MW |
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 |