/L20"AceForth" Nocase Block Comment On = ( Block Comment Off = ) Line Comment Alt = %% String Chars = " File Extensions = JA4 /Nocase /Delimiters = ~#!$@%^&()-=|\/{}[]:;"' , /Open Fold Strings = ":" /Close Fold Strings = ";" /Indent Strings = ":" "do" "if" "begin" /Unindent Strings = ";" "loop" "+loop" "then" "repeat" "until" /C1"Arithmetic & Logical" 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" ! @ c@ c! /C3"Control Structures" abort begin call do else exit execute if i i' then loop leave +loop until repeat while quit /C4"Character I/O" cr ascii emit space spaces type query ." " word retype inkey /C5"Number I/O" base decimal u. f. convert <# # #s #> hold sign number /C6"Word Definition" : ; variable constant immediate create compiler definer does> runs> redefine find forget list edit /C7"Compiler" , c, allot literal [ ] /C8"Miscellaneous" cls at here pad plot slow save fast beep bload bsave bverify in invis vis out line load verify