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 |