-
Notifications
You must be signed in to change notification settings - Fork 115
/
aceforth.uew
executable file
·108 lines (108 loc) · 1.86 KB
/
aceforth.uew
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
/L20"AceForth" Nocase Block Comment On = ( Block Comment Off = ) Line Comment Alt = %% String Chars = " File Extensions = JA4
/Colors = 0,8421376,8421376,8421504,255,
/Colors Back = 16777215,16777215,16777215,16777215,16777215,
/Colors Auto Back = 1,1,1,1,1,
/Font Style = 0,0,0,0,0,
/Nocase
/Delimiters = ~#!$@%^&()-=|\/{}[]:;"' ,
/Open Fold Strings = ":" "compiler" "definer"
/Close Fold Strings = ";"
/Indent Strings = ":" "do" "if" "begin"
/Unindent Strings = ";" "loop" "+loop" "then" "repeat" "until"
/C1"Arithmetic & Logical" Colors = 16711680 Colors Back = 16777215 Colors Auto Back = 1 Font Style = 0
and abs
drop dup d> d+ dnegate
?dup
over or
pick
roll rot r>
min max mod
u< u* u/mod ufloat
swap
/ /mod
>r >
=
<
0= 0< 0>
xor
+
-
* */ */mod
1+ 1-
2+ 2-
negate
int
f+ f- f* f/ fnegate
/C2"Memory" Colors = 255 Colors Back = 16777215 Colors Auto Back = 1 Font Style = 0
!
@
c@ c!
/C3"Control Structures" Colors = 33023 Colors Back = 16777215 Colors Auto Back = 1 Font Style = 0
abort
begin
call
do
else exit execute
if i i'
then
loop leave
+loop
until
repeat
while
quit
/C4"Character I/O" Colors = 32768 Colors Back = 16777215 Colors Auto Back = 1 Font Style = 0
cr
ascii
emit
space spaces
type
query
."
"
word
retype
inkey
/C5"Number I/O" Colors = 4210816 Colors Back = 16777215 Colors Auto Back = 1 Font Style = 0
base
decimal
u.
f.
convert
<#
# #s #>
hold
sign
number
/C6"Word Definition" Colors = 16711680 Colors Back = 16777215 Colors Auto Back = 1 Font Style = 0
:
;
variable
constant
immediate
create compiler
definer does>
runs> redefine
compiler runs>
find forget
list
edit
/C7"Compiler" Colors = 16711680 Colors Back = 16777215 Colors Auto Back = 1 Font Style = 0
,
c,
allot
literal
[
]
/C8"Miscellaneous" Colors = 16711680 Colors Back = 16777215 Colors Auto Back = 1 Font Style = 0
cls
at
here
pad plot
slow save
fast
beep bload bsave bverify
in invis vis
out
line load
verify