1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
BANNER %
SET $AddBlankLines 0
FSET danger(x) shell("echo oops")
RUN OFF
FSET safe(x) shell("echo nope")
FSET safe2(x) danger(x)
RUN ON
DEBUG +x
set a danger(1)
set b safe(1)
set c safe2(1)
PUSH-FUNCS safe
FSET safe(x) shell("echo this will work")
SET b safe(1)
POP-FUNCS
SET b safe(1)
FRENAME safe gloopy
FRENAME danger bork
set a bork(1)
set b gloopy(1)
FRENAME gloopy safe
FRENAME bork danger
RUN OFF
set a danger(1)
set b safe(1)
set b safe2(1)
RUN ON
DEBUG -x
FSET subst_b(a, b, c) shell("echo nooooo....")
REM MSG [subst_b(1, 2, 3)]
FLUSH
REM MSG %b
FLUSH
REM MSG [subst_b(1, 2, 3)]
FLUSH
|
