Related pages:
BIGFORTH.INI ENVIRONMENTAL ENVIRONMENT? ENVIRONMENT ENVIRON.FS RANDOM RND ROL9 GENERATOR SEED RANDOM.FS STRING DOUBLE PTR SHORT BYTE STRUCT{ STRUCT SIZEOF ALIGN-BY STRUCT.FS DFFIELD: SFFIELD: FFIELD: FIELD: CFIELD: +FIELD END-STRUCTURE BEGIN-STRUCTURE K-F12 K-F11 K-F10 K-F9 K-F8 K-F7 K-F6 K-F5 K-F4 K-F3 K-F2 K-F1 K-INSERT K-END K-NEXT K-PRIOR K-DOWN K-RIGHT K-UP K-LEFT K-HOME FKEY. SIMPLE-FKEY-STRING KEYCODE-END KEYCODE-START K-FNS: EKEY>FKEY EKEY>XCHAR EKEY>CHAR K-FN-MASK K-MOUSE-MASK K-NUMLOCK-MASK K-ALT-MASK K-CTRL-MASK K-CAPSLOCK-MASK K-SHIFT-MASK EKEY? EKEY ACTION-OF DEFER! DEFER@ SYNONYM FORTH200X.FS (FILE-ERROR .BACK "BACK IN_WHICH? .EXCEPT DUMPED EXCEPT.FS BECOMES NOTRACE TRACEALL TAB ~~ ~~, (~~) B~~ BP'OFF BP'ON BP: TRACE' DEBUG >DEBUG VOCS D' ? DL DU DUMP DSEE SEE TOOLS .DUMPED WITHIN 0= I C@ .A3 .A2 .A1 TOOLS.FB .386 .86 DISLINE DISW DIS DISASS.F -BUFFER +BUFFER +OUT NULL OUT 0. OUTPUT.FB (ENTER) WRITE-HISTORY LFPAD PREV-LINE FIND-PREV-LINE NEXT-LINE GET-LINE HIST-SETPOS HIST-POS CLEAR-TIB CLEAR-LINE BACKSPACES ?HISTORY GET-HISTORY HISTORY-FILE FORCE-OPEN BACKWARD^ FORWARD^ HISTORY BINDKEY <TAB> EXTRACT-WORD TIB-FULL? KILL-EXPAND SEARCH-PREFIX PREFIX-FOUND F' HELP (FTAST VT100-DECODE TCODE TRANS FCODE TRANSCODE TRANSLATE VT100KEY.FS IDLE+ IDLE' RE-TIME DOSHIFT !NAME NEWTASK TASK TASKS TASK'S RENDEZVOUS AUTOSTART .TIME >US MS>TIME MS MINUTES SECONDS TIMEOUT? WAIT TILL AFTER !TIME TIME TIMER@ KILL PASS ACTIVATE UNLOCK-ALL MULTITASK SINGLETASK TASKER.FB CP APPLY 'BYE IMPORT M' MODULES SAVESYSTEM SAVEMOD SAVING SAVEMOD.FB STRING-PREFIX? STR< STR= (0" 0" ,0" CPUSH 0PLACE 0>C" C>0" $ADD $SUM +PLACE BLANK REPLACE INSERT DELETE SEARCH COMPARE CAPSCOMP CAPS STRINGS.FS MEMERR$ SYSERRS ERRORE.FS SH (VIEW RM MV LL LS FREE? CD DIR PWD MAKEDIR KILLDIR INDEX CONVEY COPY MORE (MORE FILES EOF "USE FROM RENAME MAKEFILE FREE? KILLFILE PATH RESIZE-FILE FILE-SIZE REPOSITION-FILE FILE-POSITION FLUSH-FILE WRITE-FILE READ-FILE BIN W/O R/W R/O DELETE-FILE CLOSE-FILE CREATE-FILE OPEN-FILE SOURCE-ID TIME&DATE APP-WIN DOS [WHILE] [AGAIN] [REPEAT] [UNTIL] [BEGIN] [I] [NEXT] [FOR] [LOOP] [+LOOP] [?DO] [DO] [ENDIF] [THEN] [ELSE] [IFUNDEF] [IFDEF] [IF] [UNDEFINED] [DEFINED] DEFINED? [STRUCT] FILEINT.FB HASH HASH.FS INCLUDED? INCLUDED INCLUDE-FILE WRITE-LINE READ-LINE \* /* (* ( \\\ \\ #! \ #LIST MORE? INCLUDE STR? #INCLUDE #LOAD (#LOAD INPUT-FILE RESTORE-INPUT SAVE-INPUT REFILL READLINE (READLINE SKIPLF READ? STREAM@ -EOF? POS@ FPOS CMAX STREAM.FB LABEL >LABEL CODE >C: ;CODE USER' ASSEMBLER ASSEM486.FB .BLK STARTUP.FB FORTH BIGFORTH WIN32 FORTH.FB RESTART PCR/W H: G: F: E: D: C: B: A: DRV? >DRIVE DRIVE DISPLAY KEYBOARD PCACCEPT PCDECODE EVERYCHAR CTYPE? SCANCODE LASTKEY CTRLKEYS <CLR> <END> <BEG> <BS> <DEL> <BACK> <FORW> <NEXT> <PREV> <INS> >STRING CUR+ PCGETKEY PCFORM PCAT? PCAT PCTYPE PCCLRLINE PCCURRITE PCCURLEFT PCCUROFF PCCURON PCPAGE PCDEL PCCR BELL PCEMIT COLOR PCKEY PCKEY? KBSHIFT PENDING ESC[ ESC! CON! #BELL #TAB #ESC #LF #CR #BS COLD RSPACE DS@ CS@ EXCEPT' EXCEPT# DUMPED 'RESTART #TIBS INTERPRET-ARGS DO-ARG ARG# -OPTIONS SCRIPT? ARG ARGC MODULECOLD MODULE; MODULE] EXPORT EXPORTVOC EXPORT: BYE: MAIN: COLD: MODULE MODULE[ JOINED SAVEDP FINDMOD MODHEADER MAXMODLEN QUERY PREVTIB NEXTTIB EVALUATE EXECUTE-PARSING ">TIB DELTIB MORETIBS NEWTIB #TIB TIB MAX#TIB ?CR COLS ROWS COL ROW STOP? BADBYE BYE MODULEBYE SAVE EMPTY MARKER FORGET(FORGET CLEAR CUSTOM-REMOVE REMOVE RM-MODULE USE /NAME /PARSE FILE? .FILE >LEN DIRECT FILE FILE, CLOSE! CLOSE OPEN FLUSH EMPTY-BUFFERS CLOSE-FILES SAVE-BUFFERS CAPACITY DOS FILE-LINK HOSTSEM BLOCK BUFFER ISFILE@ (BLOCK (BUFFER CORE? UPDATE EMPTYBUF BACKUP DISKERR (DISKERR RESIZE FREE ALLOCATE MEMORY BLOCKR/W OFFSET PREV UNLOCK LOCK SEMA IDLE SEMALINK SLEEP WAKE PAUSE STOP LINKTASK 'UP SLEEPERS LIST L/S C/L .S MAXDEPTH-.S U. . UD. D. U.R .R UD.R D.R #S # SIGN #> <# HOLD QUD/MOD SPACES SPACE -TRAILING BL ERROR" ABORT" (ABORT (ERROR" (ABORT" (ERROR LASTERR ABORT PUSHI/O STANDARDI/O (PUSHI/O (STANDARDI/ QUIT ?ERROR (QUIT PROMPT 'QUIT INCLUDE LOADFROM --> +THRU THRU +LOAD LOAD (LOAD SAVEERR LOADERR .STATUS THROW BACKTRACE CATCH (CATCH 'CATCH 'ABORT END-TRACE >ERROR ERR$S ERROR$S SYSERR$ ?STACK CPU SYS-SP FORTHSTART FTAB MROOT IS DEFERS WHAT'S PATCH DEFER EOT? ACCEPT DECODE KEY? KEY INPUT: AT-XY CLRLINE CURRITE CURLEFT CUROFF CURON TFLUSH EOT BOT FORM AT? AT PAGE DEL TYPE CR EMIT? EMIT OUTPUT: CFA@ TABLE: T] ] [ INTERPRET NO.EXTENSIONS NOTFOUND PARSER NUMBER NUMBER? S>NUMBER GETSIGN GETBASE BASES CHAR@ >NUMBER ACCUMULATE DIGIT? ['] ' FIND (FIND (PREHASH ((FIND LIST(FIND FOUND .NAME >BODY NAME> (NAME> WORDS UNLIST LIST> ORDER BODY> SEARCH-WORDLIST FORTH-WORDLIST SET-CURRENT GET-CURRENT SET-ORDER GET-ORDER WORDLIST 'PREHASH 'FINDPAD >REL ONLYFORTH ONLY ROOT VOCABULARY VOC, VOC-LINK SLOWVOC 'INITVOC DEFINITIONS PREVIOUS TOSS ALSO CONTEXT CURRENT VP TO & AUSER USER UALLOT AVALUE VALUE 2CONSTANT ACONSTANT CONSTANT AVARIABLE 2VARIABLE VARIABLE ALIAS ; !LENGTH :NONAME >NAME NFA? : CREATE HEADER NAME? HEADALIGN HEAD+ MAKEVIEW BLK@ FORWARD NOT WARNINGS WARNING | ?HEAD HMACRO DP! DOES> (;CODE HEAP? HEAP HALLOT CLEARSTACK MACRO RESTRICT IMMEDIATE RECURSE RECURSIVE REVEAL 'REVEAL \NEEDS \\ \ .( ( .' ." (." C' S' ,' " S" SLITERAL (S" C" (C" ," "LIT SSTRING+ CSTRING+ CTRL ASCII [CHAR] CHAR DECIMAL HEX JOIN FORK ENDCASE ENDOF OF CASE NEXT -LOOP +LOOP LOOP NEXTITER -ITERATE +ITERATE ITERATE FOR U-DO -DO U+DO +DO ?DO DO MEANWHILE REPEAT UNTIL AGAIN WHILE BEGIN ELSE ENDIF THEN IF AHEAD ?LEAVE LEAVE DONE LEAVINGS CS-ROLL CS-PICK YET BUT .ALIGN CASE? ?STRUC POSTPONE [COMPILE] COMPILE (COMPILE REL COMPILE, CFA, 'CFA, !LASTDES ?ALIT, ?LIT, ALITERAL 2LITERAL LITERAL #OPT OPTTAB :S :R :## :#> :#+@ :#@^ :#@& :#@| :#@- :#@+ :+@ :Q+@ :#^ :#& :#| :#- :#+ :C@ :@ :I@ :SVAR@ :OVAR@ :SUSR@ :USER@ :#@ :#@> :#C@ :#C@> :IC@ :#! :! :#+C@ :C! :XOR :AND :OR :- :+ :SVAR :OVAR :I :Q+ :CDX :SUSER :USER :LIT :+LOOP :? :F :OVER :DX> :DX :AX :NONE T&P LASTXT LASTCFA LAST LASTOPT LASTDES NAME (NAME PARSE-NAME PARSE WORD SOURCE BLK+ B/BLK (WORD CAPITALIZE TOLOWER CAPITAL SCAN< -SCAN -SKIP SKIP< SCAN SKIP ERASEBITS MOVEBITS A, V! A! RELOFF RELON RELINFO BIT@ ~BIT -BIT +BIT W, C, 2, , PAD ALIGN ALIGNED ALLOT UNUSED HERE ERASE FILL -TEXT /STRING COUNT PLACE MOVE (FOR CMOVE> CMOVE ITH UNLOOP +I' (NEXT (LOOP (-LOOP (+LOOP I@ K' J' I' K J I (-DO (U+DO (+DO (U-DO (?DO (DO Q*/ * Q* QMOD Q/MOD Q/ M* UM* DMIN DMAX M*/ D* UD/MOD U/MOD MOD SM/REM FM/MOD M/REM MU/ M/ / */ UM/MOD MU/MOD M/MOD /MOD */MOD BOUNDS ABS DABS S>D EXTEND UMIN UMAX MAX MIN DU< D< D= WITHIN D- D0= <> U>= U<= >= <= 0<= 0>= = U< U> < > ?EXIT 0> 0< 0= 0<> PUSH -ROLL ROLL -ROT ROT CHARS CELL/ CELLS PICK D2/ D2* 4/ 4* 2/ 2* ON OFF FALSE TRUE -1 -CELL CELL 4 3 2 1 0 8+ 6+ CELL- 4- 2- 1- CELL+ 4+ 3+ 2+ 1+ CHAR+ 2! 2@ M+ D+ DNEGATE << >> RSHIFT LSHIFT NEGATE INVERT XOR AND OR - UNDER+ + RDEPTH DEPTH D0< 2ROT 2OVER 2DUP 2SWAP SWAP TUCK UNDER NIP OVER2 OVER C!+ C@+ W!+ WX@+ W@+ !+ @+ AC!+ AC@+ A!+ A@+ A> >A PC! PC@ CX@ WX@ W! WEXTEND W@ CTOGGLE C! C@ ?DUP +! ! @ 2>R 2R> 2R@ R> >R RDROP R@ PERFORM EXECUTE UNNEST RP! RP@ UP! UP@ SP! SP@ FROMFILE ISFILE R# SCR DPL LOADFILE LINE BLK >IN >TIB STATE EXPORTLINK THISMODULE "ERROR ERRORHANDLER WAKE-TIME INPUT OUTPUT BASE S^ DP HANDLER R0 S0 LOCK> TSTART TSAVE TSAVERP TPREV TNEXT UDP MAXUDP (SUSER (USER DUP D>S DROP 2DROP NOOP EXIT KERNEL
--- Mecrisp Core --- hook-key? hook-key hook-emit? hook-emit key? key emit? emit hex. cr bl space spaces words .s h.s u.s .rs 2nip 2drop 2-rot 2rot 2tuck 2swap 2over 2dup 2>r 2r> 2r@ 2rdrop depth pick nip drop rot -rot swap tuck over ?dup dup >r r> r@ rdrop rdepth rpick sp@ sp! rp@ rp! >< arshift rshift lshift shr shl ror rol bic not xor or and true false clz .digit digit hold sign #S # #> <# u. . ud. d. f/ f* hold< f#S f# f. f.n number */ u*/ */mod m/mod m* um/mod ud/mod udm* d2/ d2* dshr dshl dabs dnegate d- d+ s>d du> du< d> d< d0< d0= d<> d= um* u/mod /mod mod / * compare skipstring ctype type s" c" ." ( count \ min max umin umax 2- 1- 2+ 1+ even 2* 2/ abs negate - + binary decimal hex base cells cell+ move fill cbit@ bit@ cxor! xor! cbic! bic! cbis! bis! 2constant constant 2variable variable nvariable buffer: +! c+! 2! 2@ c! c@ ! @ >in current-source source setsource tib query cexpect accept token parse ['] ' evaluate interpret hook-quit quit dictionarystart dictionarynext , c, align aligned [char] char string, literal, 2literal, inline, call, ret, flashvar-here here allot (create) compiletoram? compiletoram compiletoflash smudge compileonly inline immediate setflags find execute recurse postpone does> <builds create state ] [ ; : 0-foldable 1-foldable 2-foldable 3-foldable 4-foldable 5-foldable 6-foldable 7-foldable jump, then else if ahead repeat while until again begin exit k j i unloop leave +loop loop ?do do case ?of of endof endcase u<= u>= u> u< <= >= > < 0< 0<> 0= <> = dint eint eint? nop reset lpm0 lpm1 lpm2 lpm3 lpm4 wakeup hook-pause pause serial-key? serial-key serial-emit? serial-emit adc-vcc adc-1.5 analog eraseflashfrom eraseflash cflash! flash! irq-port1 irq-port2 irq-adc irq-timera1 irq-timera0 irq-watchdog irq-timerb1 irq-timerb0 irq-comp irq-tx irq-rx --- Flash Dictionary --- list searchfor searchcalls uses name. disasm-$ disasm-fetch u.4 u.ns u.h register. disasm-const disasm-jumps disasm-source disasm-destination disasm-string disasm-single disasm-double disasm memstamp disasm-step seec see cornerstone eraseflash
--- Mecrisp Core --- HOOK-KEY? HOOK-KEY HOOK-EMIT? HOOK-EMIT KEY? KEY EMIT? EMIT HEX. CR BL SPACE SPACES WORDS .S H.S U.S .RS 2NIP 2DROP 2-ROT 2ROT 2TUCK 2SWAP 2OVER 2DUP 2>R 2R> 2R@ 2RDROP DEPTH PICK NIP DROP ROT -ROT SWAP TUCK OVER ?DUP DUP >R R> R@ RDROP RDEPTH RPICK SP@ SP! RP@ RP! >< ARSHIFT RSHIFT LSHIFT SHR SHL ROR ROL BIC NOT XOR OR AND TRUE FALSE CLZ .DIGIT DIGIT HOLD SIGN #S # #> <# U. . UD. D. F/ F* HOLD< F#S F# F. F.N NUMBER */ U*/ */MOD M/MOD M* UM/MOD UD/MOD UDM* D2/ D2* DSHR DSHL DABS DNEGATE D- D+ S>D DU> DU< D> D< D0< D0= D<> D= UM* U/MOD /MOD MOD / * COMPARE SKIPSTRING CTYPE TYPE S" C" ." ( COUNT \ MIN MAX UMIN UMAX 2- 1- 2+ 1+ EVEN 2* 2/ ABS NEGATE - + BINARY DECIMAL HEX BASE CELLS CELL+ MOVE FILL CBIT@ BIT@ CXOR! XOR! CBIC! BIC! CBIS! BIS! 2CONSTANT CONSTANT 2VARIABLE VARIABLE NVARIABLE BUFFER: +! C+! 2! 2@ C! C@ ! @ >IN CURRENT-SOURCE SOURCE SETSOURCE TIB QUERY CEXPECT ACCEPT TOKEN PARSE ['] ' EVALUATE INTERPRET HOOK-QUIT QUIT DICTIONARYSTART DICTIONARYNEXT , C, ALIGN ALIGNED [CHAR] CHAR STRING, LITERAL, 2LITERAL, INLINE, CALL, RET, FLASHVAR-HERE HERE ALLOT (CREATE) COMPILETORAM? COMPILETORAM COMPILETOFLASH SMUDGE COMPILEONLY INLINE IMMEDIATE SETFLAGS FIND EXECUTE RECURSE POSTPONE DOES> <BUILDS CREATE STATE ] [ ; : 0-FOLDABLE 1-FOLDABLE 2-FOLDABLE 3-FOLDABLE 4-FOLDABLE 5-FOLDABLE 6-FOLDABLE 7-FOLDABLE JUMP, THEN ELSE IF AHEAD REPEAT WHILE UNTIL AGAIN BEGIN EXIT K J I UNLOOP LEAVE +LOOP LOOP ?DO DO CASE ?OF OF ENDOF ENDCASE U<= U>= U> U< <= >= > < 0< 0<> 0= <> = DINT EINT EINT? NOP RESET LPM0 LPM1 LPM2 LPM3 LPM4 WAKEUP HOOK-PAUSE PAUSE SERIAL-KEY? SERIAL-KEY SERIAL-EMIT? SERIAL-EMIT ADC-VCC ADC-1.5 ANALOG ERASEFLASHFROM ERASEFLASH CFLASH! FLASH! IRQ-PORT1 IRQ-PORT2 IRQ-ADC IRQ-TIMERA1 IRQ-TIMERA0 IRQ-WATCHDOG IRQ-TIMERB1 IRQ-TIMERB0 IRQ-COMP IRQ-TX IRQ-RX --- FLASH DICTIONARY --- LIST SEARCHFOR SEARCHCALLS USES NAME. DISASM-$ DISASM-FETCH U.4 U.NS U.H REGISTER. DISASM-CONST DISASM-JUMPS DISASM-SOURCE DISASM-DESTINATION DISASM-STRING DISASM-SINGLE DISASM-DOUBLE DISASM MEMSTAMP DISASM-STEP SEEC SEE CORNERSTONE ERASEFLASH
TO VALUE : H. BSA BS BFBSADR MRUBUFA BUF1 BUF0 FLAGS>STR FLAGS-TABLE DIS .SRC .TAB HDMP OPCODE-LOOKUP INSTR>SOURCE INSTR>OPSIZE OPC-TABLE " TAB NB F12TESTLOAD SAPINLOAD HANLOAD PHRPALLOAD PALFLTLOAD DISLOAD LIFELOAD VILOAD @ ? C@ ! C! -! 1+! +! HERE LAST CELLS MOVE CMOVE CMOVE> BLANKS FILL ALLOT , C, -ROT ROT ROLL OVER PICK SWAP DROP DUP NIP TUCK ?DUP .S .' DUMP HEX DECIMAL OCTAL BIN BASE STATE VLIST PAYLOAD S */MOD */ /MOD MOD / 2/ 2* * SHIFT 2 1 0 2- 1- - 2+ 1+ + EMIT KEY KEY? MS CONTINUED --> THRU LOAD INTERPRET ACCEPT EXPECT -TRAILING COUNT TYPE PAD CR PAGE SPACES SPACE BL U.R .R U. . <# # #S HOLD SIGN #> 2@ 2! 2DUP 2DROP 2SWAP 2OVER D< D0= DNEGATE D+ S" ." \ SOURCE WORD CHAR [CHAR] BYE EXECUTE FORGET RECURSE ; : COMPILE, POSTPONE ['] [ ] FIND ABORT QUIT K J' J I' R@ I LEAVE R R> REPEAT WHILE END UNTIL EXIT AGAIN BEGIN NEGATE ABS MIN MAX < WITHIN U< U> NOT 0= 0< 0> INVERT COM AND OR XOR <= <> = THEN ELSE UNLESS IF UNLOOP +LOOP LOOP DO ICHECK MONITOR RESTRICT IMMEDIATE VARIABLE CONSTANT LITERAL DOES> CREATE DEPTH RCLR NCLR S>DLIST RTC! RTC@ TICKS INDEX LINE SCR IN BLK BLOCK BUFFER UPDATE FLUSH SAVE-BUFFERS EMPTY-BUFFERS
BYE ?RX TX! !IO
doLIT doLIST EXIT EXECUTE next ?branch branch ! @ C! C@ RP@ RP! R> R@ >R SP@ SP! DROP DUP SWAP OVER 0< AND OR XOR UM+
doVAR UP doUSER SP0 RP0 '?KEY 'EMIT 'EXPECT 'TAP 'ECHO 'PROMPT BASE tmp SPAN >IN #TIB CSP 'EVAL 'NUMBER HLD HANDLER CONTEXT CURRENT CP NP LAST
doVOC FORTH ?DUP ROT 2DROP 2DUP + NOT NEGATE DNEGATE - ABS = U< < MAX MIN WITHIN
UM/MOD M/MOD /MOD MOD / UM* * M* */MOD */
CELL+ CELL- CELLS ALIGNED BL >CHAR DEPTH PICH
+! 2! 2@ COUNT HERE PAD TIB @EXECUTE CMOVE FILL -TRAILING PACK$
DIGIT EXTRACT <# HOLD # #S SIGN #> str HEX DECIMAL
DIGIT? NUMBER?
?KEY KEY EMIT NUF? PACE SPACE TYPE CR do$ $"| ."| .R U.R U. . ?
parse PARSE .( ( \ CHAR TOKEN WORD
NAME> SAME? find NAME?
^H TAP kTAP accept EXPECT QUERY
CATCH THROW NULL$ ABORT abort"
$INTERPRET [ .OK ?STACK EVAL
PRESET xio FILE HAND I/O CONSOLE QUIT
' ALLOT , [COMPILE] COMPILE LITERAL $." RECURSE
FOR BEGIN NEXT UNTIL AGAIN IF AHEAD REPEAT THEN AFT ELSE WHILE ABORT" $" ."
?UNIQUE $,n
$COMPILE OVERT ; ] call, : IMMEDIATE
USER CREATE VARIABLE
_TYPE dm+ DUMP .S !CSP ?CSP >ANME .ID SEE WORDS
VER hi 'BOOT COLD
forth editor list copy thru load flush update empty-buffers buffer block save-buffers default-use use open-blocks block-id scr block-fid telnetd bterm timers registers webui login web-interface streams ; { words vlist order see .s startswith? str= :noname SMUDGE forget dump assert reset revive startup: remember restore save dump-file include included rtos interrupts sockets Serial ledc SPIFFS SD_MMC WiFi WebServer Wire resize free allocate ok LED OUTPUT INPUT HIGH LOW page tone freq duty adc pin ms start-task task pause tasks internals sealed also only transfer{ }transfer transfer definitions vocabulary [IF] [ELSE] [THEN] DEFINED? ok quit evaluate prompt refill tib echo fill cmove> cmove z>s s>z r| r" z" ." s" $place n. ? . u. binary decimal octal hex str #> sign #s # hold <# extract pad hld cr space emit bye key? key type is defer +to to value throw catch handler j i loop +loop leave unloop ?do do next for depth rp0 sp0 variable constant postpone >body >flags >link >link& >name abs max min aft repeat while else if then ahead until again begin literal [char] char ['] ' ] [ c, , align aligned allot here context current base state >in #tib 'tib 2! 2@ 2dup 2drop cell/ cells cell+ \ +! 4/ 4* 2/ 2* 1- 1+ nl bl 0<> <> = >= <= > < -rot rot - negate invert mod / /mod * */ rdrop nip ( ; EXIT : IMMEDIATE DOES> CREATE S>NUMBER? PARSE FIND CELL EXECUTE R@ R> >R RP! RP@ SP! SP@ C! L! ! C@ L@ @ DROP OVER SWAP DUP XOR OR AND RSHIFT LSHIFT */MOD U/MOD + 0< 0= timer_isr_register accept SD_MMC.begin MDNS.begin FILE-SIZE RESIZE-FILE REPOSITION-FILE FILE-POSITION READ-FILE WRITE-FILE DELETE-FILE CREATE-FILE OPEN-FILE FLUSH-FILE CLOSE-FILE BIN W/O R/W R/O TERMINATE MS-TICKS dacWrite pulseIn analogRead digitalRead digitalWrite pinMode
forth editor list copy thru load flush update empty-buffers buffer block save-buffers default-use use open-blocks block-id scr block-fid telnetd bterm timers registers webui login web-interface streams ; { words vlist order see .s startswith? str= :noname smudge forget dump assert reset revive startup: remember restore save dump-file include included rtos interrupts sockets serial ledc spiffs sd_mmc wifi webserver wire resize free allocate ok led output input high low page tone freq duty adc pin ms start-task task pause tasks internals sealed also only transfer{ }transfer transfer definitions vocabulary [if] [else] [then] defined? ok quit evaluate prompt refill tib echo fill cmove> cmove z>s s>z r| r" z" ." s" $place n. ? . u. binary decimal octal hex str #> sign #s # hold <# extract pad hld cr space emit bye key? key type is defer +to to value throw catch handler j i loop +loop leave unloop ?do do next for depth rp0 sp0 variable constant postpone >body >flags >link >link& >name abs max min aft repeat while else if then ahead until again begin literal [char] char ['] ' ] [ c, , align aligned allot here context current base state >in #tib 'tib 2! 2@ 2dup 2drop cell/ cells cell+ \ +! 4/ 4* 2/ 2* 1- 1+ nl bl 0<> <> = >= <= > < -rot rot - negate invert mod / /mod * */ rdrop nip ( ; exit : immediate does> create s>number? parse find cell execute r@ r> >r rp! rp@ sp! sp@ c! l! ! c@ l@ @ drop over swap dup xor or and rshift lshift */mod u/mod + 0< 0= timer_isr_register accept sd_mmc.begin mdns.begin file-size resize-file reposition-file file-position read-file write-file delete-file create-file open-file flush-file close-file bin w/o r/w r/o terminate ms-ticks dacwrite pulsein analogread digitalread digitalwrite pinmode
FORTH EDITOR LIST COPY THRU LOAD FLUSH UPDATE EMPTY-BUFFERS BUFFER BLOCK SAVE-BUFFERS DEFAULT-USE USE OPEN-BLOCKS BLOCK-ID SCR BLOCK-FID TELNETD BTERM TIMERS REGISTERS WEBUI LOGIN WEB-INTERFACE STREAMS ; { WORDS VLIST ORDER SEE .S STARTSWITH? STR= :NONAME SMUDGE FORGET DUMP ASSERT RESET REVIVE STARTUP: REMEMBER RESTORE SAVE DUMP-FILE INCLUDE INCLUDED RTOS INTERRUPTS SOCKETS SERIAL LEDC SPIFFS SD_MMC WIFI WEBSERVER WIRE RESIZE FREE ALLOCATE OK LED OUTPUT INPUT HIGH LOW PAGE TONE FREQ DUTY ADC PIN MS START-TASK TASK PAUSE TASKS INTERNALS SEALED ALSO ONLY TRANSFER{ }TRANSFER TRANSFER DEFINITIONS VOCABULARY [IF] [ELSE] [THEN] DEFINED? OK QUIT EVALUATE PROMPT REFILL TIB ECHO FILL CMOVE> CMOVE Z>S S>Z R| R" Z" ." S" $PLACE N. ? . U. BINARY DECIMAL OCTAL HEX STR #> SIGN #S # HOLD <# EXTRACT PAD HLD CR SPACE EMIT BYE KEY? KEY TYPE IS DEFER +TO TO VALUE THROW CATCH HANDLER J I LOOP +LOOP LEAVE UNLOOP ?DO DO NEXT FOR DEPTH RP0 SP0 VARIABLE CONSTANT POSTPONE >BODY >FLAGS >LINK >LINK& >NAME ABS MAX MIN AFT REPEAT WHILE ELSE IF THEN AHEAD UNTIL AGAIN BEGIN LITERAL [CHAR] CHAR ['] ' ] [ C, , ALIGN ALIGNED ALLOT HERE CONTEXT CURRENT BASE STATE >IN #TIB 'TIB 2! 2@ 2DUP 2DROP CELL/ CELLS CELL+ \ +! 4/ 4* 2/ 2* 1- 1+ NL BL 0<> <> = >= <= > < -ROT ROT - NEGATE INVERT MOD / /MOD * */ RDROP NIP ( ; EXIT : IMMEDIATE DOES> CREATE S>NUMBER? PARSE FIND CELL EXECUTE R@ R> >R RP! RP@ SP! SP@ C! L! ! C@ L@ @ DROP OVER SWAP DUP XOR OR AND RSHIFT LSHIFT */MOD U/MOD + 0< 0= TIMER_ISR_REGISTER ACCEPT SD_MMC.BEGIN MDNS.BEGIN FILE-SIZE RESIZE-FILE REPOSITION-FILE FILE-POSITION READ-FILE WRITE-FILE DELETE-FILE CREATE-FILE OPEN-FILE FLUSH-FILE CLOSE-FILE BIN W/O R/W R/O TERMINATE MS-TICKS DACWRITE PULSEIN ANALOGREAD DIGITALREAD DIGITALWRITE PINMODE
forth +to to ; { (local) editor list copy thru load flush update empty-buffers buffer block save-buffers default-use use open-blocks block-id scr block-fid streams reset revive startup: remember restore save dump-file words vlist order see .s startswith? str= :noname SMUDGE forget dump assert start-task task pause tasks include included resize free allocate process-heap HeapReAlloc HeapFree HeapAlloc GetProcessHeap ok ms file-size resize-file reposition-file file-position write-file read-file rename-file delete-file flush-file close-file create-file open-file r/w w/o r/o windows f.s f. #fs set-precision precision fsqrt pi fvariable fconstant fliteral afliteral sf, sfloat+ sfloats sfloat f>= f<= f<> f> f< f= page at-xy normal bg fg ansi internals sealed also only transfer{ }transfer transfer definitions vocabulary [IF] [ELSE] [THEN] DEFINED? ok quit evaluate prompt refill tib accept echo blank erase fill cmove> cmove z>s s>z r| r" z" ." s" zplace $place n. ? . u. binary decimal octal hex str #> sign #s # hold <# extract pad hld cr space emit bye key? key type is defer +to to value-bins value throw catch handler j i loop +loop leave unloop ?do do next for nest-depth fdepth depth fp0 rp0 sp0 variable constant postpone >body >flags >link >link& >name abs max min recurse aft repeat while else if then ahead until again begin literal [char] char ['] ' ] [ c, , align aligned allot here context current base state >in #tib 'tib 2! 2@ 2dup 2drop cell/ cells cell+ +! 4/ 4* 2/ 2* 1- 1+ nl bl 0<> <> = >= <= > < -rot rot - negate invert mod / /mod * */ rdrop nip \ ( ; EXIT : YIELD IMMEDIATE DOES> CREATE F>NUMBER? S>NUMBER? PARSE FIND CELL EXECUTE R@ R> >R RP! RP@ SP! SP@ C! L! ! C@ L@ @ DROP OVER SWAP DUP XOR OR AND RSHIFT LSHIFT */MOD U/MOD + 0< 0= F>S S>F 1/F F/ F* F- F+ F0= F0< FNEGATE FSWA FOVER FDROP FNIP FDUP SF! SF@ FP! FP@ LOADLIBRARYA GETPROCADDRESS
EMPTY SESSIONDAT SESSIONSEGMENT SESSIONDATL MOUSEKEY MOUSEKEY? TRACKER TRACK-MOUSE TRACK-MENU ?MENUBAR# SHOW.MOUSE HIDE.MOUSE MOUSEBUTTON MOUSEXY! MOUSEXY LISTSET ?SHOWSTACK SMASK FPRINT INDEX EDITALL FLOOK GET-FILESPECS ?IN-EMPTY FALLOF WATCH-COMMANDS SETWATCH WATCH_CMD STIBBUF DEPTH_SAVE .WATCH WATCH_ADDRESS WATCH_SEGMENT CALLS USEDIN XREF REF -SKIP -SCAN SCANW NEWBEEP BEEPFREQ BEEPDURATION RING TONE NOTE TONEGATE TIMERCTRL TIMERDATA MLOAD ?MARKEND.LINE MERRFIX EFSAVE >B >BROWSER AUTOEDITOFF AUTOEDITON (EDITERR) WORDSAVE MSGSAVE SED NEWFILE F1 LISTING UNEDIT AUTOSAVEOFF AUTOSAVEON LEAVEPROMPTOFF LEAVEPROMPTON VF VIEWFROM LIST EDIT H HELP E ED LL L V B BROWSE VIEW ?LEAVE_SET CFA_VIEW FILE-LINE_VIEW <ED> <RED> PUSH/POP-LEVEL HDSTSCHR HSRCSCHR HYPERTYPEL DOCOMPILE %DODOS COMMAND.BUF ".ERRMSG (--)CHAR SEDCHAR GRAPHICCHAR EURCHAR@ EXTCHAR@ ?AUOB EXTROWS EXTCHARSEG CHROW CHCOL CHARLINE CHARCOL CHARBUTTON IMPORT EXCUT EXPORT ?GETEXPFILE EXPBUF EXPORT$ GETINPFILE IMP/EXP.INIT CUT/COPY_FILE INSERTALINE IBM-PROPRINT LASERJET TELETYPE SHOMEM BACKUPON BACKUPOFF NOBACKUP DONE EDITOR FILEPRINT PFILE $PFILE TOPRINTER PCLOSE SWITCH SWITCH_BODIES XCHANGE MAKEDEFER :DEF? DEFMENU RESTMENU SAVEMENU MENU ?DOMKEY ?MENUKEY 1ST-ROWCHAR UCSCAN SHOWMENUS .MENU .MENUBAR .VERTICAL .HORIZONTAL DOFUNC MENULIST MENUBAR DEFAULT-LIST DEFAULT-BAR DEFSAVE DUMY$ DFILE$ DO-DOS FHELP OPENFILE MAKEAFILE EDITAFILE LEDIT_RESTORE MBYE DOFHELP DOLISTING EDITFILE MAKEFILE MENULINE" +," ENDMENU NEWMENUBAR NEWMENU MBUTTON DOOTHER MENUKEY MROW MCOL MCOLUMN DEFAULT-MCOLUMN MLINE DEFAULT-MLINE EMM-BYE-FUNC EMM-POINTERINIT EMM-POINTER CLS RENAME REN COPY CD CHDIR DEL DIR `` ` SYS SWAPFILE "SWAPFILE .ME ME@ ME$ .PATH PATH@ PATH$ .COMSPEC COMSPEC@ COMSPEC$ .ENV "ENVFIND ENVSIZE EVSEG .FILES .LOADED NEEDS ?LOADED <GETFILE> FL OPEN VOCOFF VOCON STATOFF STATON .STATUS <.STAT> VOCV INCLUDE LOAD >VIEWFILE LOADEDFROM VIEWFILE NAME>PAD LINEEDITOR MARK HELLO .CURFILE .HELLO <.CURFILE> .FILE <.HELLO> (\.") \TYPE \TYPEL DO\CHAR \CHARS LFEMIT \EMIT "EMIT \AT-REST \AT-SAVE \Y \X \%AT \%TENTHS \%SPACES PACKED_ASC># SLOW FAST QTYPEL BLANKOFF BLANKON RECOVERLINE RECOVERSCR RESTSCR SAVESCR SVINIT SVTOTAL SVSIZE SVMAX SVSEG MENUBOX .BOX" (.BOX) BOX&FILL BOX BCR >MENU >BOX COLORIZEON COLORIZEOFF C.ID COLORIZE-INIT COLORIZE COLOR-INFO ?COLORIZE BORDER@ BORDER! PAL! BLINKON BLINKOFF BLINK! >LCD >COLOR >8BGFG >7BGFG >6BGFG >5BGFG >4BGFG >3BGFG >2BGFG >1BGFG COLORSET >BG >FG FG@ FG! BG@ BG! COLORS WHITE YELLOW LTMAGENTA LTRED LTCYAN LTGREEN LTBLUE DKGRAY LTGRAY BROWN MAGENTA RED CYAN GREEN BLUE BLACK BLACK-ON-WHITE WHITE-ON-BLACK INVERT-SCREEN >MONO >REVBLNK >BOLDBLNK >BOLDUL >BOLD >UL >REVERSE >NONEBG >NONE REVERSEVAL NORMALVAL REVVAL NORMVAL MED-CURSOR BIG-CURSOR NORM-CURSOR CURSOR-ON CURSOR-OFF CURSOR_POS_INIT >IBM IBM--LINE NORM-DARK LFILLW IBM-DARK IBM-AT? IBM-AT THESE WORDS PREWORDS CONTEXTONLY ?TOTAL.* ?USER-DEFERED.* ?DEFERED.* ?VALUE.* ?CONSTANT.* ?USER-VARIABLE.* ?VARIABLE.* ?:.* ?CODE.* ?*.* ?W.TEST .VOCWORDS W.NAME <W.NAME> ?W.NAME ?TOTALWORDS ?WORDTYPE WORDTYPE ?CODENAME ?INNAME W$ W.ID TOTALWORDS .VYET VADDR VYET LARGEST SEARCH VFIND HFIND PREPEND.PATH ?DRIVE.PREPEND ?DRIVE.EXTRACT FLHNDL DBG DEBUG ADEBUG UNBUG PNEXT DEBNEXT DNEXT FNEXT DBGH. DO.SHOW.SOURCE .RP DBG_RDEPTH DEBUG.S #PAD-SAVE SKIP_TO DBG.S 'DEBUG CNT DBOFF DBSEG SRCOFF SRCON DO.SRC .DEFSRC SRCCR SHOWSRC ?UPC DEBUGABLE TURNKEY FSAVE SAVE-EXE <SAVE-EXE> EXEHCB WRITE-EXE SAVEERR EHSP EHCKSM EH512Z EHLMRV EHADR EHZ EHMT SEXE WITHHEADS XDPSEGLEN DPSAVED SUVEC GLOBAL_REF LOCAL_REF CLEAR_ALL_LABELS LLSET- LLSET+ INLINE ASM->IN CODE LABEL DOASSEM ASMSTUFF ARUNSAVE PRE> >PRE POSTFIX PREFIX RUN-A; A; A;! .INST /NOLISTING /LISTING <LRUN> LIC@ LIHERE LINESTRT LRUNSAVE ?LISTING "ERR %"ERR ENDCASE NRESOLVE IF-OF OF ENDOF CASE DU XDUMP YDUMP DUMP LDUMP .FOOT .HEAD DLN EMIT. D.2W .2W DUMPC@ %DUMPC@ DUMPSEG SEE CRTAB -TAB +TAB 0TAB DECOM. SHOWBASE .VALIDATE BUFSIZE-INIT MS FUDGE IBLIMIT UNDEFER DEFERS BUG HIDDEN ROOT { \\ } <}> BEHEAD HWORDS+ HWORDS- HEADERLESS HEADERS I: | "IHEADER SAVE_"HEADER BEHEADABLE UNHEAD I:END UNVOC UNTHREAD HOPEN.FPATH @TBL+ !TBL+ ?FUNKEY .MEM EMMHEAD NEWPAGE %NEWPAGE FORMFEED USED .USED !USED DSBUF >PATHEND" $>TIB ?KEYPAUSE ?DOSTOP DEFAULTSTATE RESTORESTATE SAVESTATE STATV RESTSTAT RESTRMRG RESTLMRG RESTTABS RESTCAPS RESTBASE MOUSEFLG DOBUTTON >NORMBG >REV >NORM >ATTRIB8 >ATTRIB7 >ATTRIB6 >ATTRIB5 >ATTRIB4 >ATTRIB3 >ATTRIB2 >ATTRIB1 GRAPHCHAR <GRAPHDUMMY> H.4 (SEE) >NAME.ID ?DEFATTRIB NLEN =: \T \F \TCOM \FPC DIRECTIVE \- \|U \|UNLESS \+ \U \UNLESS ALIAS ?PAGE FORM-FEED PAGE #PAGE ?DOINGMAC RESTCURSOR SAVECURSOR -LINE AT? ?DARK DARK AT MANY TIMES #TIMES 0<= 0>= >= <= U>= U<= >.ID 'DOCOL DOES? $.L $.R CDATE CTIME PFASAV DEFCFA .SRCCR CCR DRIVE? .FREE EEOL SP>COL ?DOSIO ?ENOUGH YCOUNT ? .VERSION .FPCVER# FPCVER# #THEN #ENDIF #IF #ELSE <#IF> .COMMENT: <.COMMENT:> /* COMMENT: <COMMENT:> COMMENT$ ?LOADING ?EXEC CRUNSAVE TILLKEY .COMPSTAT 0COMPILER HOURS MINUTES TENTHS SECONDS PAUSE-FUNC 10TH-ELAPSED SEC-ELAPSED TIMER .ELAPSED <.ELAPSED> B>SEC TIME-ELAPSED TIME-RESET B>T T>B TTIME STIME .DATE FORM-DATE D.M.Y Y-M-D M/D/Y BUILD-DATE <D.M.Y> <Y-M-D> <M/D/Y> .TIME FORM-TIME BUILD-TIME BUILD-SH BUILD-HM "+ ##+ DTBUF SETTIME GETTIME <GETTIME> SETDATE GET-CURSOR SET-CURSOR \ TAB ?CR ?LINE TABSIZE RMARGIN LMARGIN H. RECURSE DUMP .ID %.ID .S MAX.S DEPTH @REL>ABS SET_VECTORS RESTNEXT DIVIDE0 BYE BYEFUNC DIV0FUNC DIV0STRT RESTORE_VECTORS CTRLBKSAVE DIV0SAVE BIOSBKSAVE START COLD WARM 1STCOLD WARMFUNC WARMSTRT SEGSET INITSTUFF BOOT QUIT F: E: D: C: B: A: SELECT IS (IS) >IS USER #USER SETCRITICAL HADCRITICAL HDEFAULT DOS>TIB CFGHNDL DOS-LINE FLOAD $FLOAD FILE $FILE <$FILE> $FILE_BUF ?OPEN.ERROR PREPEND.APATH .FPATH FPATH FPATH+ <FPATH+> "FPATH+ SKIP.BLANKS NPATH PATH1 PATHLEN PATHPTR PATHHNDL FPATH$ \S OK ?FILEOPEN CHARREAD <FLOAD> ?NOLOADED, ?LOADED, LOADED, >LINE LOADER <LOAD> CLOSEALL CLOSE SEQDOWN FILLTIB LENGTH.CHECK ?.LOADLINE .LOADLINE %.LOADLINE SETTIB CRLF>BL'S HIDELINES SHOWLINES LISTVAR SEEK GFL FILE>TIB GETFILE $HOPEN IBRESET SEQINIT SEQUP ?SEQRANGE (?SERROR) ?BASE_RESTORE .BASE NOBASE DECIMALBASE HEXBASE DEFBASE DOERROR (DOERROR) LINEREAD %LINEREAD ?FILLBUFF FILLBUFF GET_ALINE CURPOINTER .SEQHANDLE SEQHANDLE+ LOADSTAT (TYPE) (TYPEL) CONTYPEL PRNTYPEL (PRINT) PRINTL (CONSOLE) CONSOLEL PRNHNDL CONHNDL LOADING FILEPOINTER HNDLS MAXNEST OUTBUF TOTALLINES INLENGTH INSTART OBLEN DELIMITER SCREENCHAR INBSEG IBFULL IBLEN WITHPATH OTHER.CHECK SET-DTA DTA! DTA@ FIND-NEXT FIND-FIRST HREAD HWRITE EXHWRITE EXHREAD HDELETE HCLOSE HOPEN WRITE-ONLY READ-WRITE READ-ONLY DEF-RWMODE R/W-DMODE R/W-MODE HCREATE HRENAME <HRENAME> PATHSET ENDFILE MOVEPOINTER HDOS4 HDOS3 HDOS1 $>EXT HANDLE>EXT FCB>HANDLE !HCB $>HANDLE ">HANDLE ?DEF.EXT DEFEXT HANDLE CLR-HCB >NAM >HNDLE >ATTRIB RWERR B/FILENAME HNDLOFFSET B/HCB RESTORE> SAVE> SAVE!> ?COMP %URESTORE> %USAVE> %USAVE!> %RESTORE> %SAVE> %SAVE!> &> ON> OFF> DECR> INCR> +!> !> @> ?USER ?NOUSER %&> %ON> %OFF> %DECR> %INCR> %+!> %U!> %U@> %!> %@> SIZEOF@> %SIZEOF@ SIZEOF!> %SIZEOF! 0POINTERS UNPOINTER> %UNPOINTER ?VALID_POINTER POINTER PTR_OK?EXIT EMMSYSEND <EXTEXEC> SP_SAVE SS_SAVE EXTHNDL CMDPATH EXEC.PARAM EXEC$ DISKOFF DISKON DSK-STATUS USE-DISK EMMPARST EMMPARS EMMHNDL EMMPAGE# #FPCPAGES EMMSTK EMMON EMMOFF EMM-INIT ?EMM: EMM-GET-VERSION EMM-DEALLOC-PAGES EMM-MAP-PAGES EMM-ALLOC-PAGES EMM-TOTAL-PAGES EMM-AVAIL-PAGES EMM-PAGE-FRAME ?EMMERR EMM-STATUS? EMM-PRESENT? CUR_EMM_HNDL USE-EMM EMM-STATUS PAGE-FRAME EMMNAME (?ERROR) ERRFIX RUN <RUN> 2VARIABLE 2CONSTANT DEFINITIONS VOCABULARY DEFER ARRAY VARIABLE VALUE CONSTANT RECURSIVE ; : (:) ANEW MAKEDUMMY ] (]) ;CODE ;USES [ SETASSEM ASSEMBLER DOES> (;CODE) (;USES) REVEAL HIDE ?CSP !CSP CREATE "CREATE HEADER <HEADER> ,JUMP ,CALL "HEADER <"HEADER> ?ALREADY_DEF %ALREADY_DEF SPCHECK NOLISTROOM NOHEADROOM ,VIEW NEXT FOR AFT BREAK CONTINUE FORWARD THEN ELSE IF +LOOP LOOP ?DO DO REPEAT WHILE UNTIL AGAIN BEGIN ?LEAVE LEAVE ?<RESOLVE ?<MARK ?>RESOLVE ?>MARK <RESOLVE <MARK >RESOLVE >MARK ?CONDITION FORGET ABORT ABORT" (ABORT") ?ERROR (FRGET) TRIM FENCE ">$ "" " ." X," ," (.") %(.") (X") (") X>"BUF XALIGN XEVEN "BUF [COMPILE] ['] ' ?MISSING CRASH CONTROL ASCII DLITERAL LITERAL IMMEDIATE COMPILE EVEN ALIGN C, ALLOT PRINT INTERPRET STATUS INTERP ?STACK (?STACK) WARNOVER STACKOVER STACKUNDER DEFINED SKIP'C' FIND %FIND %%FIND OVER.SWAP.HASH.@ PRIOR.CHECK DROP.CONTEXT.I2*+@D (FIND) HASH VIEW> >VIEW >LINK >NAME NO-NAME >BODY LINK> NAME> BODY> L>NAME N>LINK CNSRCH CNHASH DONE? +PLACEL PLACEL TRAVERSE ( .( >TYPE VIDEO-TYPE VIDEO-TYPEL NOSETCUR WORD PARSE SOURCE /STRING SCAN SKIP D.R D. (D.) UD.R UD. (UD.) .R . (.) U.R U. (U.) #S # SIGN #> <# HOLD NUMBER (NUMBER) %NUMBER NUMB %NUMB NUMH #NUM ^NUM 'NUM $NUM %NUMH %^NUM %'NUM %$NUM NUMBER? (NUMBER?) CONVERT DOUBLE? DIGIT DEFAULT BINARY OCTAL DECIMAL HEX INIT-R0 FIRST LIMIT DISK-ERROR QUERY MORE? TIB EXPECT (EXPECT) NEXPECT KEYTABLE NORM-KEYTABLE ^CHAR CHAR (CHAR) CR-IN ESC-IN (ESC-IN) P-IN RES-IN RESET-IN BACK-UP DEL-IN (DEL-IN) BS-IN BEEP %BEEP BACKSPACES SPACES SPACE SPCS FEMIT CRLF (EMIT) PEMIT CR ?PRINTER.READY <?PTR.READY> PR-STATUS XC, X, XHERE YHASH YCSET Y, YC! YC@ Y! Y@ YS: YHERE SETYSEG F-PC +XSEG DOSVER CURSORSET MAXBLOCK SETBLOCK ALLOC DEALLOC DOS_MAXBLOCK DOS_SETBLOCK DOS_ALLOC DOS_DEALLOC MEMCHK #OVBYTES #OVSEGS #HEADSEGS #LISTSEGS #CODESEGS CMOVE-PARS> CMOVE-PARS CMOVEL> CMOVEL CONSOLE OUTPAUSE (KEY) (KEY?) BGSTUFF KEYFILTER BIOSKEY BIOSKEY? BIOSKEYVAL BIOSCHAR OS2 BDOS2 BDOS <BDOS> !L C!L C@L @L ?ES: ?DS: ?CS: COMPARE CAPS-COMP COMP -TRAILING PAD HERE ?UPPERCASE UPPER UPC ATBL MOVE COUNTL LENGTH COUNT BLANK ERASE LFILL FILL >IN_WORD CAPS BELL BS BL LOADLINE SEQHANDLE #PARS PHEAD SSEG XMOVED XSEGLEN DPSTART YSTART YDP XDPSEG XDP #LINE #OUT END? #TIB SPAN >IN VOC-LINK WIDTH 'TIB CONTEXT #VOCS CURRENT LAST CSP R# DPL WARNING STATE PRIOR TYPEL TYPE KEY KEY? EMIT PRINTING HLD BASE OFFSET DP RP0 SP0 ES0 LINK ENTRY TOS SHOW.COLOR BLANK.COL VMODE.SET INITCOLOR INITMONO ?VMODE CROWS ROWS COLS BLANKING VMODE-VAR VIDEO-SEG ATTRIB DPARAGRAPH PARAGRAPH 2ROT ROLL */ */MOD MOD /MOD / MU/MOD M/MOD *D DMAX DMIN 4DUP D> D< DU< D= D0= ?DNEGATE D- UD16/ D2/ D2* DABS S>D DNEGATE D+ 2OVER 2SWAP 3DUP 2DUP 3DROP 2DROP 2! 2@ UBETWEEN BETWEEN WITHIN UMAX 0MAX MAX MIN UMIN > < U> U< ?NEGATE <> = 0<> 0> 0< 0= UM/MOD U*D * UM* 2- 1- 2+ 1+ 8* U8/ U16/ U2/ 2/ 2* #THREADS PDOS P! PC! P@ PC@ C+! +! D+! ABS - NEGATE + 0DECR DECR INCR 0! -1! OFF ON CTOGGLE CRESET CSET FALSE TRUE NOT XOR OR AND RPICK PICK 2R@ R@ 2>R 2R> >R DUP>R R>DROP R> ?DROP ?DUP JOIN SPLIT FLIP -ROT ROT NIP TUCK PLUCK OVER SWAP DUP DROP RP! RP@ SP! SP@ +PLACE PLACE CMOVE> CMOVE C! C@ ! @ (?LEAVE) (LEAVE) K J I PAUSE NOOP GO EXEC: GOTO PERFORM EXECUTE >BIOSBK >DOES >NEST >NEXT BOUNDS (OF) (?DO) (DO) (+LOOP) (LOOP) UNDO NEXT| ?BRANCH DOENDOF BRANCH ?UNTIL ?WHILE DOREPEAT DOAGAIN DOTHEN DOENDCASE DOCASE DOBEGIN <'> (LIT) UP UNNEST ?EXIT EXIT BKFLAG BKABLE YSEG XSEG FILES FORTH
disasm disassembler base-addr show-name default-32bit default-16bit default-16bit? col w@ (D.) MAXCOUNTED SPCS SPCS-MAX maxstring dffield: sffield: ffield: 2field: field: cfield: end-structure begin-structure +field init-libcc end-c-library c-library c-library-name c-library-incomplete clear-libs c-function c-function-rt c-function-ft link-wrapper-function compile-wrapper-function1 compile-wrapper-functio .lib-error c-source-file-execute notype-execute c-source-file init-c-source-file lib-handle c-tmp-library-name c-named-library-name c-library-name-create c-library-name-setup open-wrappers prepend-dirname libcc-tmp-dir libcc-named-dir gen-filename basename dirname scan-back gen-wrapper-function wrapper-function-name gen-wrapped-stmt gen-wrapped-types gen-wrapped-func gen-wrapped-r gen-wrapped-d gen-wrapped-a gen-wrapped-n gen-wrapped-void gen-wrapped-call gen-par gen-par-types gen-par-void gen-par-func gen-par-r gen-par-d gen-par-a gen-par-n count-stacks count-stacks-types count-stacks-void count-stacks-func count-stacks-r count-stacks-d count-stacks-a count-stacks-n type-letter parse-function-types parse-libcc-type libcc-types \c save-c-prefix-line print-c-prefix-lines print-c-prefix-line c-prefix-lines-end c-prefix-lines c-prefix% c-prefix-chars c-prefix-count append-l add-lib c-libs c-lib% c-lib-string list-map list-append list-insert list% list-payload list-next append s+ front-char front-string const+ .nb replace-rpath libcc-path libcc-named-dir-v lib-modulename lib-filename lib-handle-addr c-source-file-id cff% cff-ptypes cff-np cff-rtype cff-lha cff-deferred cff-cfr mkdir-parents disasm-gdb append-extend-string end-code ;code (;code) code init-asm assembler break" (break") break: (break:) break:, dbg (debug) (_debug) D-KEY Unnest Nesting nestXT nestXT-checkSpecial Body restore-bp set-bp DT BP breaker breaker-size DebugLoop jump get-next disp-step Leave-D NoFine d.s .n scanword restore-see-flags save-see-flags dbg-ip see-code see-code-range see-code-next-inline simple-see simple-see-range simple-see-word print-backtrace print-bt-entry backtrace-return-stack init-backtrace backtrace-rs-buffer adjust-buffer init-buffer buffer% buffer-maxlength buffer-address buffer-length buffer-descriptor c-extend1 c-lp+!# c-laddr# c-f@local# c-flit c-@local# c-branch-lp+!# c-?branch-lp+!# c-loop-lp+!# see name-see (.immediate) (xt-see-xt) xt-see seefield seecol seedoes see-threaded seedefer seevalue seecon seeuser seevar seecode next-prim next-head discode .defname xt-see-xt makepass c-initanalyse BranchTo? DoTable c-extender C-Table c-(compile) c-does> c-abort" c-exit c-?do c-do c-loop c-for c-?branch DebugBranch c-branch RepeatCheck Forward? c-string? c-c" .name-without c-lit+ c-lit c-callxt c-call .word back? Debug? Display? Scan? DebugMode DisplayMode ScanMode C-Pass NoOutput Branch! Type! ,Branch CheckWhile MyBranch CheckEnd MoreBranchAddr? BranchAddr? (BranchAddr?) FirstBranch MaxTable BranchTable SearchPointer BranchPointer Branches C-Stop LeaveCode Disable WhileCode2 AheadCode ElseCode UntilCode AgainCode RepeatCode .struc c-\type (.string) .string cemit ctype warp? (nl) nl nlcount uppercase nlflag level- level+ Format Level YPos XPos C-Clearline C-Highlight C-Formated C-Output .\" s\" \"-parse \-escape \-escape-table parse-num parse-num-x char/ ekey? ekey>fkey ekey>char ekey clear-ekey-buffer esc-sequence esc-prefix ekey-buffered ekey-buffer esc-sequences unkeys unkey char-append-buffer key-buffered key-buffer s-k12 s-k11 s-k10 s-k9 s-k8 s-k7 s-k6 s-k5 s-k4 s-k3 s-k2 s-k1 k12 k11 k10 k9 k8 k7 k6 k5 k4 k3 k2 k1 k-f12 k-f11 k-f10 k-f9 k-f8 k-f7 k-f6 k-f5 k-f4 k-f3 k-f2 k-f1 k-delete k-insert k-next k-prior k-end k-home k-down k-up k-right k-left k-alt-mask k-ctrl-mask k-shift-mask keycode table tablesearch-map table-find savesystem dump-fi update-image-included-files delete-prefix save-mem-dict <compilation compilation> (compilation>1) <interpretation interpretation> (interpretation>1) fix-does-code create-interpret/compile no-interpretation-does-code no-compilation-does-code bye block-included --> +thru +load thru load block-input list updated? scr buffer block get-buffer flush empty-buffers save-buffers empty-buffer save-buffer update block-position get-block-fid use open-blocks flush-blocks block-cold offset block-offset block-fid block-limit buffers last-block block-buffers buffer-struct next-buffer block-buffer buffer-dirty buffer-fid buffer-block ) (end-assert) assert( assert3( assert2( assert1( assert0( assertn assert-level ~~ .debugline-stderr (.debugline) .debugline printdebugdata .sourcepos compile-sourcepos current-sourcepos str>loadfilename# loadfilename#>str vt100-decode tcode trans: transcode translate history-cold get-history xchar-history xtab-expand insert xkill-expand (xenter) xclear-tib xclear-line xend-pos xfirst-pos xeof <xdel> ?xdel (xdel) xforw xback (xins) <xins> xretype .all .rest xback-restore xcur-correct at-deltaxy #esc kill-prefix tib-full? search-prefix prefix-string prefix-off search-voc word-lex capscomp sgn prefix-found extract-word (enter) prev-line find-prev-line next-line get-line hist-setpos hist-pos clear-line linew-off screenw linew cur-correct back-restore history-file force-open end^ backward^ forward^ history bindkey >string ctrl ctrl-i utf-8-cold set-encoding-utf-8 u8width -u8trailing-garbage u8addrlen u8!+? u8@ u8\string- +u8/string u8emit u8key check-xy u8<< u8>> u8!+ u8@+ u8len max-single-byte UTF-8-err O-PNT@ O-DEINIT O-INIT TypeXT EmitXT O-EMIT O-TYPE O-PNT O-Buffer page at-xy ESC[ ;pn pn WordInfo InfoTable Com# Str# Ali# Use# Col# Def# Doe# Val# Var# Con# Pri# prim? xtprim? colon? defered? does? user? con? var? alias? >head >name threaded>name look prim>name PrimStart threaded>xt search-name xt>threaded base-execute infile-execute outfile-execute l@ w@ /l /w typewhite what's action-of f.s f.rdp f>str-rdp f>buf-rdp f>buf-rdp-try push-right ]] postponer1 [[ compile-compile-2literal compile-2literal compile-compile-literal compile-literal slurp-fid slurp-file const-does> (const-does>) compile-fliterals compile-literals in-return-stack? ]L sh system $? dmax dmin ?CSP !CSP CSP needs locals| TO definer! >definer (local) (exit-like) (until-like) (again-like) (begin-like) (then-like) locals-;-hook locals-:-hook endscope adjust-locals-list scope { old-dpp new-locals-wl new-locals-map new-locals-reveal new-locals-find some-wlocal some-flocal some-dlocal some-clocal locals-types lp-offset, lp-offset create-local compile-pushlocal-c compile-pushlocal-d compile-pushlocal-f check-begin set-locals-size-list list-size sub-list? common-list compile-pushlocal-w alignlp-f alignlp-w locals-dp locals-buffer locals adjust-locals-size compile-lp+! compile-f@local compile-@local FMOD FTRUNC f~ f~rel f~abs 1/f f2/ f2* pi fvariable sfnumber fs. fe. f. f$ -zeros zeros scratch set-precision precision FLiteral fdepth fconstant f, dfloat+ sfloat+ dfalign sfalign .words hash-cold make-hash (hashsearch-map) hashdouble (rehash) rehashall clearhash addall inithash hash-reveal (reveal lastlink! hash-find bucket NewFix DelFix hash-alloc hashsearch-map HashTable HashPop HashIndex HashPointer revealed insRule hash Hashlen hashbits reserve-mem marker marker! marker, included-files-mark expect span search blank erase convert [compile] C" endcase endof of case m*/ d>s .( broken-pipe-error exception next-exception errstring linked include-ffi.h-string libffi-present ffcall-present libtool-flags libtool-cc libtool-command has? $has? e? environment? environment-wordlist environment vocs order .voc .name .id id. seal set-order get-order init-vp update-image-order Only Root Forth vocsearch (localsvocfind) locals-wordlist (vocfind) previous also >order check-maxvp Vocabulary wordlist mappedwordlist slowvoc definitions vp! set-current get-current vp maxvp-limit maxvp %alloc %allocate %allot %align %size %alignment double% sfloat% dfloat% float% char% cell% struct end-struct field create-field field, dozerofield nalign naligned endtry-iferror endtry restore iferror handler-intro, (endtry) try (try) nothrow first-throw store-backtrace dodoes: dofield: dodefer: douser: dovar: docol: dovalue: docon: vlist words wordlist-words cols rows ? dump .line .chars .4 /dump .s maxdepth-.s [WHILE] [AGAIN] [REPEAT] [UNTIL] [BEGIN] [I] [NEXT] [FOR] [LOOP] [+LOOP] [?DO] [DO] (i) [ENDIF] [THEN] [ELSE] [IFUNDEF] [IFDEF] [IF] [undefined] defined [defined] ?if [struct]-voc [struct]-search scanIF >exec dummy countif ." S" abort" SLiteral CLiteral ?EXIT EXIT exit-like NEXT S+LOOP -LOOP +LOOP LOOP loop-like FOR U-DO -DO U+DO +DO ?DO ?do-like DO ?LEAVE LEAVE DONE leave> >leave clear-leave-stack leave-sp leave-stack leave-stack-size REPEAT WHILE UNTIL until-like AGAIN again-like BEGIN begin-like ELSE ENDIF THEN cs>addr then-like ?DUP-0=-IF ?DUP-IF IF AHEAD YET BUT <resolve >resolve >mark sys? ?struc other-control-flow cs-push-orig cs-push-part CS-ROLL CS-PICK cs-item-size cs-item? non-orig? scope? do-dest? dest? orig? def? scopestart do-dest dest dead-orig live-orig ASSUME-LIVE UNREACHABLE backedge-locals dead-code locals-list .included .stringsrequire include required included included1 add-included-file included? init-included-files sourceline# sourcefilename image-included-files included-files open-fpath-file open-path-file check-path open-ofile reworkdir compact-filename skip-..-prefixes preserve-root del-./s del-string expandtopic remove~+ extractpath need/ pathsep? tfile ofile absolut-path? .fpath .path previous-path next-path path>string fpath= path= fpath+ path+ only-path clear-path also-path os-cold make-path fpath +place path-allot ( write-line bin r/o r/w w/o os-boot (process-args) process-option args-evaluate args-required args-required1 os-execute-parsing next-arg shift-args script? argc argv pathdirs pathstring #! arg cstring>sstring set-encoding-fixed-width c-size c!+? string- +string char- xhold x@+/string -trailing-garbage x-width x-size xc-size xc@+ xc!+? xc@ x\string- +x/string xchar- xchar+ xkey xemit license include-file execute-parsing-file execute-parsing-named-file read-loop line-end-hook query clear-tibstack evaluate execute-parsing execute-parsing-wrapper create-input restore-input save-input pop-file push-file expand-tib new-tib file-input read-line evaluate-input terminal-input input-start-line input-lexeme! tib+ tib loadfilename #fill-bytes blk loadfile loadline old-input max#tib #tib input-lexeme >in (restore-input) (save-input) source-id refill source input-var input-method accept edit-line decode everyline everychar insert-char ctrlkeys (ret) (bs) (ins) recursive rehash reveal check-shadow (reveal) warnings last? ; :noname : (:noname) defstart ;-hook :-hook interpret/compile? TO IS [IS] <IS> defer! DOES> Defers defer@ Defer defer-default interpret/compile: interpret/compile-struct interpret/compile-comp interpret/compile-int (Field) 2Constant AValue Value AConstant Constant (Value) (Constant) AUser User uallot 2Variable AVariable Variable Create Alias compile-only restrict immediate lastflags ctoggle creset cset ," mem, S, ] [ compiler1 recurse POSTPONE postpone, [COMP'] COMP' ['] [(')] name>comp (compile) dodoes, (does>2) (does>) !does compile-to-prims, peephole-compile, basic-block-end compile, cfa, [char] char char@ ALiteral 2Literal Literal latest lastxt latestxt noname noname-header nextname nextname-header nextname-string input-stream input-stream-header header, longstring, string, header (header) const A, cfalign maxalign falign align 2, , c, allot bye boot cold 'cold process-args bootmessage (bootmessage) quit (DoError) .error-frame .error-line part-type mark-end mark-start umin .error-string dobacktrace DOERROR -trailing hex. dec.r dec. input-error-data >error error> error-stack /error max-errors (quit) prompt .status 'quit extend-mem free-mem-var save-mem interpreter1 interpret interpret1 before-word no.extensions interpreter-notfound1 compiler-notfound1 name parse-word parse-name parser parser1 ' (') find sfind /does-handler does-handler! does-code! code-address! flashc! flash! >does-code >code-address body> >body >head-noprim head? ??? (name>intn) (name>comp) name?int name>int (name>x) ((name>)) name>string (x>int) (cfa>int) compile-only-error ticking-compile-only-error flag-sign lcount-mask restrict-mask immediate-mask alias-mask find-name search-wordlist (search-wordlist) context voclink current lookup forth-wordlist f83search initvoc f83find wordlist-struct wordlist-extend wordlist-link wordlist-id wordlist-map wordlist-map-struct hash-method rehash-method reveal-method find-method \G \ ( number number? snumber? s>number s>number? s>unumber? s'>unumber? ?dnegate sign? getbase bases name-too-long? name-too-short? (name) parse word sword (word) version-string .error >stderr ErrLink u. . ud. d. u.r .r ud.r d.r #s # sign #>> <<# #> <# hold pad backspaces spaces space cr bell #lf #ff #cr #del #tab #bs #bell #eof (S") (.") key? key emit type (key?) (key) (emit) (type) infile-id outfile-id hex decimal "lit clearstacks clearstack depth ?stack abort (abort") c(abort") throw catch lp@ ud/mod s>d >number accumulate digit? skip scan bounds place roll dabs off on here dp in-dictionary? unused usable-dictionary-end dictionary-end A! chars cfaligned maxaligned r@ NIL str< string-prefix? str= locals-size max-name-length Last LastCFA dpp normal-dp state dpl base includefilename current-input "error errorhandler backtrace-rp0 handler lp0 fp0 rp0 sp0 save-task prev-task next-task udp main-task def#tib pad-minsize holdend holdptr holdbuf-end holdbuf word-pno-size chars/block l/s c/l /line bl float cell false true forthstart image-header tag-offsets call2 set-next-code decompile-prim forget-dyncode finish-code compile-prim1 lib-error l! sl@ ul@ w! sw@ uw@ wcall lib-sym open-lib fpick f>l >l lp! lp+2 lp+ lp- lp+!# laddr# f@local1 f@local0 f@local# @local3 @local2 @local1 @local0 @local# faxpy v* dfaligned sfaligned dfloats sfloats fatanh facosh fasinh ftanh fcosh fsinh ftan fsqrt fsincos fsin falog flog flnp1 fln fexpm1 fexp fcos fatan2 fatan fasin facos fabs >float represent fmin fmax fround floor floats float+ ftuck fnip frot fover fswap fdup fdrop fnegate f**2 fm*/ fm/ fm* f** f/ f* f- f+ sf! sf@ df! df@ f@ f! f>s f>d d>f s>f f0>= f0<= f0> f0< f0<> f0= f>= f<= f> f< f<> f= cputime utime newline =mkdir get-dir set-dir filename-match close-dir read-dir open-dir file-eof? file-status flush-file emit-file write-file (read-line) read-file resize-file file-size reposition-file file-position rename-file delete-file create-file open-file close-file call-c strsignal strerror resize free allocate ms time&date close-pipe open-pipe getenv (system) (bye) flush-icache wcwidth form stderr stdout stdin key?-file key-file threading-method faligned aligned (parse-white) (hashkey1) (tablelfind) (hashlfind) (listlfind) count (chars) char+ cells cell+ 2@ 2! c! c@ +! ! lit@ @ 2tuck 2nip 2rot 2swap 2over 2dup 2drop pick ?dup tuck nip -rot rot dup swap drop over 2rdrop 2r@ 2r> 2>r rdrop r> >r fp! fp@ rp! rp@ sp! sp@ up! useraddr within du>= du<= du> du< du<> du= d0>= d0<= d0> d0< d0<> d0= d>= d<= d> d< d<> d= u>= u<= u> u< u<> u= >= <= > < <> = 0>= 0<= 0> 0< 0<> 0= lshift rshift invert xor or and d2/ d2* dnegate d- d+ m+ um/mod um* m* sm/rem fm/mod 2/ 2* */ */mod /mod mod / * abs min max 1- 1+ negate - under+ lit+ + lit /string capscompare toupper compare fill cmove> cmove move k j i' i (u-do) (-do) (u+do) (+do) (?do) (do) (for) (s+loop)-lp+!# (s+loop) (-loop)-lp+!# (-loop) (+loop)-lp+!# (+loop) (loop)-lp+!# (loop) (next)-lp+!# (next) ?dup-0=-?branch ?dup-?branch ?branch-lp+!# ?branch branch branch-lp+!# does-exec lit-perform unloop ;s perform execute call noop
/CHAR B! B@ B, INIT (INIT) SPF-INIT? ;.. ..: ... SPF-INI OPTIONS (OPTIONS) TITLE (TITLE) PLATFORM EXC-DUMP1 AT-EXC-DUMP IN-EXCEPTION USER-EXIT PROCESS-INIT USER-INIT FATAL-HANDLER1 (FATAL-HANDLER1) DUMP-TRACE-USING-REGS DUMP-EXCEPTION-HEADER DUMP-TRACE-SHRUNKEN TRACE-TAIL-SIZE TRACE-HEAD-SIZE DUMP-TRACE STACK-ADDR. ADDR. (ADDR.) ERR-EXIT POOL-INIT AT-PROCESS-STARTING AT-THREAD-STARTING ALIGN-BYTES-CONSTANT MAINX DONE COMMANDLINE-OPTIONS SUBSTRING-OPTIONS SAVE EXPORTS-SIZE EXPORTS-RVA RESOURCES-SIZE RESOURCES-RVA IMAGE-BASE IMAGE-SIZE IMAGE-BEGIN ORG-ADDR CGI-OPTIONS POST? CGI? THREAD-ID TERMINATE PAUSE STOP RESUME SUSPEND START ERASE-IMPORTS TASK: TASK WNDPROC: CALLBACK: EXTERN WINAPI: __WIN: NEW-WINAPI? WINAPLINK OEM>ANSI ANSI>OEM PROC-ERROR1 LIB-ERROR1 ERROR2 DECODE-ERROR (DECODE-ERROR) FORTH_ERROR ENVIRONMENT? (ENVIR?) EXECUTE ?DUP RDROP >R R> }} {{ ;MODULE EXPORT MODULE: UNLOOP LEAVE I +LOOP LOOP ?DO DO RECURSE AGAIN REPEAT WHILE UNTIL BEGIN THEN ELSE IF ?LITERAL2 ?SLITERAL2 HEX-SLITERAL ?LITE ?SLITERAL1 ['] ABORT" [CHAR] ." C" S" CLITERAL SLITERAL 2LITERAL LITERAL -- FIELD \EOF EXIT ; [COMPILE] ( .( \ POSTPONE TO : :NONAME HIDE SMUDGE C-SMUDGE BEHAVIOR! BEHAVIOR ->VECT USER-VECT USER-VALUE USER USER-CREATE USER-ALIGNED ->VARIABLE VECT VALUE CONSTANT VARIABLE VOCABULARY DOES> (DOES2) (DOES1) CREATE CREATED HEADER SHEADER1 SHEADER LAST-NON LAST-CFA INCLUDED-EXISTING REQUIRE REQUIRED INCLUDED INCLUDED_STD INCLUDE-DEPTH (INCLUDED1) (INCLUDED) INCLUDE-PROBE INCLUDE-FILE TranslateFlow FIND-FULLNAME1 FIND-FULLNAME HEAP-COPY RECEIVE-WITH RECEIVE-WITH-XT PROCESS-ERR1 PROCESS-ERR EVALUATE EVALUATE-WITH RESTORE-SOURCE SAVE-SOURCE QUIT MAIN1 ] [ OK1 .SN #(SIGNED) INTERPRET &INTERPRET INTERPRET_ NOTFOUND EVAL-WORD BYE CHAR ' WORD ?COMP ?STACK DEPTH ?SLITERAL ?LITERAL <MAIN> OK BLK STATE WARNING R0 S0 SAVE-ERR (ABORT1") ?ERROR LAST-WORD TYPE0 ERR-STRING ERR-FILE ERR-LINE ERR-IN# ERR-LINE# ERR-NUMBER NOTSEEN-ERR SEEN-ERR SEEN-ERR? ERR-DATA /err-data err.file err.line err.notseen err.in# err.line# err.number /errstr_ ER-U ER-A (ABORT") ERROR WORDS NLIST W-CNT >OUT LATEST ORDER VOC-NAME. PREVIOUS ALSO SET-ORDER ONLY FORTH GET-ORDER DEFINITIONS FIND1 SFIND CONTEXT S-O SEARCH-WORDLIST1 SEARCH-WORDLIST-NFA CDR-BY-NAME CDR-BY-NAME3 CDR-BY-NAME2 CDR-BY-NAME1 CDR-BY-NAME0 SEARCH-WORDLIST FIND NEAR_NFA WordByAddrSilent (WordByAddrSilent) WordByAddr (WordByAddr) (NEAREST-NFA) (NEAREST3) (NEAREST2) (NEAREST1) FOR-WORDLIST ENUM-VOCS-FORTH (ENUM-VOCS-FORTH) ENUM-VOCS IS-CLASS-FORTH VOC IMMEDIATE ?VOC ?IMMEDIATE IS-VOC IS-IMMEDIATE ID. CDR NAME>L NAME>F NAME>C NAME> WID-EXTRA PAR@ PAR! CLASS@ CLASS! VOC-NAME@ VOC-NAME! FREE-WORDLIST TEMP-WORDLIST WORDLIST AT-WORDLIST-CREATING BUILD-DATE VERSION WL_SIZE +WORD +SWORD >BODY FORTH-WORDLIST &VOC &IMMEDIATE LAST VOC-LIST _VOC-LIST ALIGN-NOP ALIGN ALIGNED ALIGN-TO ALIGN-BYTES >RESOLVE >RESOLVE1 >ORESOLVE >ORESOLVE1 <MARK >MARK ", SLIT, S", S, ?BRANCH, RLIT, DLIT, LIT, RET, BRANCH, COMPILE, _COMPILE, HERE RESOLVE_OPT J_OPT? J_MOVE J_+! J?_STEP CON>LIT VECT-INLINE? FORLIT, OPT ???BR-OPT ??BR-OPT ?BR-OPT BR-EVEN-EAX ?BR-OPT-RULES MACRO, INLINE, OPT_INIT OPT_CLOSE XC_J _INLINE, 2A_,_STEP 1A_,_STEP 0A_,_STEP A_,_STEP 7_,_STEP 6_,_STEP 5_,_STEP 4_,_STEP 4_,_STEP_ 3_,_STEP 2_,_STEP 1_,_STEP +EBP MACRO? INLINE? DO_OPT OPT_ -EVEN-EBP OPT-RULES ?C-JMP ?EAX=RULES FPOP DO_EAX>ECX ?EAX:=ECX EBX:=EAX ECX:=EAX F?EAX>ECX T?EAX>ECX -EBPCLR -EBPLIT EAX>ECX EAX>ECX0 ?EAX>ECX EAX>EBX EAX>EBX0 ?EAX>EBX }?~EAX ?~EAX{ SAVE-?~EAX ?~EAX OPinsert OPresize MOV_EDX_[EBP] ?EDX_[EBP] XX_STEP ?OPlast OPexcise OP_SIZE ^?EAX= ?ChEAX DUP7B? DUP5B? DUP6B? DUP2B? DUP3B? DUP3B?[EBP] ADD|XOR|OR|AND= +>OFF-EBP EVEN-EBP EVEN-EAX MACROOPT-WL SHORT? ?SET SetJP J_@ SJ@ J@ ClearJpBuff INIT-MACROOPT-LIGHT JP4 JP3 JP2 JP1 JP0 JpBuffSize ToOP0 SetOP OPLast OP8 OP7 OP6 OP5 OP4 OP3 OP2 OP1 OP0 OpBuffSize LAST-HERE J-SET :-SET OFF-EAX OFF-EBP MM_SIZE DIS-OPT SET-OPT J_COD ~BR-OPT OPT? REL@ 'DROP 'DUP >T [>T] W, C, , ALLOT DP IS-TEMP-WL GET-CURRENT SET-CURRENT DOES>A CFL (DP) CURRENT NON-OPT-WL VOC-LIST REFILL-SOURCE REFILL-FILE FREFILL REFILL-STDIN TAKEN-TIB REFILL CONSOLE-HANDLES ?CONSOLE ?GUI CURSTR <PRE> SOURCE-ID-XT SOURCE-ID SKIP1 SKIP PSKIP PARSE PARSE-NAME NextWord ParseWord SkipUpTo SkipWord OnNotDelimiter SkipDelimiters OnDelimiter GetChar IsDelimiter IsDelimiter1 PeekChar CharAddr EndOfChunk SOURCE! SOURCE ATIB TIB C/L >IN #TIB SOURCE-NAME +LibraryDirName +ModuleDirName ModuleDirName CUT-PATH CURFILE ModuleName is_path_delimiter SCREEN-LENGTH >NUMBER (.") DUMP PTYPE >PRT .TO-LOG .0 U. . D. (D.) SIGN #> #S # <# HOLDS HOLD DECIMAL HEX PAD SYSTEM-PAD NUMERIC-OUTPUT-LENGTH BASE HLD SPACES SPACE BL CR EMIT TYPE1 ACCEPT1 ACCEPT TO-LOG STARTLOG ENDLOG KEY1 KEY KEY? PENDING-CHAR EKEY>SCAN EKEY>CHAR EKEY KEY_EVENT ControlKeysMask INPUT_RECORD EKEY? ANSI><OEM FILE-EXISTS FILE-EXIST FLUSH-FILE WRITE-LINE RESIZE-FILE WRITE-FILE lpNumberOfBytesWritten READ-LINE _addr _fp2 _fp1 REPOSITION-FILE READ-FILE lpNumberOfBytesRead OPEN-FILE FILE-SIZE FILE-POSITION lpDistanceToMoveHigh DELETE-FILE OPEN-FILE-SHARED CREATE-FILE-SHARED SA CREATE-FILE CLOSE-FILE SET-EXC-HANDLER (EXC) DROP-EXC-HANDLER <EXC-DUMP> EXC-HANDLER HALT AT-PROCESS-FINISHING AT-THREAD-FINISHING H-STDLOG H-STDERR H-STDOUT H-STDIN ABORT CATCH <SET-EXC-HANDLER> THROW FATAL-HANDLER HANDLER RESIZE FREE ALLOCATE DESTROY-HEAP CREATE-PROCESS-HEAP CREATE-HEAP SET-HEAP EXTRA-MEM USER-HERE USER-ALLOT ERR USER-OFFS THREAD-HEAP R/W W/O R/O FILE_CURRENT FILE_BEGIN OPEN_EXISTING CREATE_ALWAYS FILE_ATTRIBUTE_ARCHIVE INVALID_HANDLE_VALUE MEM_RESERVE MEM_COMMIT PAGE_EXECUTE_READWRITE FlushFileBuffers Sleep TerminateThread ResumeThread SuspendThread CreateThread GetEnvironmentVariableA GetModuleFileNameA OemToCharBuffA CharToOemBuffA GetProcAddress LoadLibraryA GetCommandLineA HeapReAlloc HeapFree HeapAlloc HeapDestroy HeapCreate GetProcessHeap ReadConsoleInputA GetNumberOfConsoleInputEvents ExitThread ExitProcess SetEndOfFile WriteFile ReadFile GetFileSize SetFilePointer DeleteFileA CreateFileA CloseHandle GetFileAttributesA GetLastError GetStdHandle <FORTH-INSTANCE FORTH-INSTANCE> _WNDPROC-CODE _WINAPI-CODE API-CALL AO_INI LIB-ERROR PROC-ERROR ST-RES AOGPA AOLL TYPE NATIVE-LINES EOLN UNIX-LINES DOS-LINES LTL LT DOES-CODE HASH DABS CZMOVE ERASE MOVE >CELLS >CHARS CHARS CHAR- CHAR+ */ CELL TRUE FALSE FNOP _FLIT-CODE10 _FLIT-CODE8 `F1- F**2 `F1+ FD> FD< FRSTOR FSAVE FENV> F>ENV F10/ F10* F>D F>D LOW-MODE UP-MODE ROUND-MODE TRUNC-MODE F[LOG] FLOG2 GETFPUSW F--DS F>DS DS>F GETFPUCW SETFPUCW FINIT F>RAD F>DEG FASIN FACOS FATAN2 FATAN FTAN F** FEXPM1 FEXP FLOG FLNP1 FLN SF@ SF! F@ DATA>FLOAT32 FLOAT>DATA32 DATA>FLOAT FLOAT>DATA F! DF@ DF! D>F F1+ FDEPTH FROT FSWAP FINT FOVER FDUP FDROP FSQRT F/ F- F+ F* FABS FSINCOS FSIN FCOS FNEGATE FMIN FMAX F= F< F0< F0= 1.E .E FL2E FL2T FLN2 FLG2 FPI 10.E 2.E (ENTER) TRAP-CODE TIMER@ (LocalsExit) RFREE (RALLOT) RALLOT RP+! RP+ RP+@ NRCOPY N>R NR> DRMOVE C-EXECUTE C-?DUP C-RDROP C-R> C->R C-I ADD[ESP],EAX C-?DO C-DO J FS! FS@ TlsIndex@ TlsIndex! RP@ SP@ RP! SP! ASCIIZ> FILL CMOVE> CMOVE SEARCH COMPARE -TRAILING D2/ D2* D= D0= 0<> 0= 0< U> U< D> D< WITHIN > < <> = DIGIT FM/MOD SM/REM ARSHIFT RSHIFT LSHIFT M* */MOD U2/ 2/ UM/MOD UMOD /MOD MOD +! U/ / UM* C>S U>D D>S S>D NOOP DNEGATE ABS NEGATE INVERT XOR OR AND * COUNT 0! 1+! - D- D+ CELLS CELL- CELL+ + 2* 2- 2+ 1- 1+ 2! 2@ W! W@ C! C@ ! @ 2R@ R@ 2R> 2>R TUCK ROLL PICK -ROT ROT NIP 2OVER OVER 2SWAP SWAP 2DROP 0MAX UMIN UMAX MIN MAX DROP 2DUP DUP VECT-CODE TOUSER-VALUE-CODE USER-VALUE-CODE TOVALUE-CODE CONSTANT-CODE USER-CODE CREATE-CODE _---CODE CLITERAL-CODE CLITERAL-CODE SLITERAL-CODE _SLITERAL-CODE _TOUSER-VALUE-CODE _TOVALUE-CODE _VECT-CODE _USER-VECT-CODE _USER-VALUE-CODE USER+ _USER-CODE _CONSTANT-CODE _CREATE-CODE
EMPTY >WIN32FORTHIDE >WINED SYSTEMEDITOR FORTHBOOT LOADCONFIGFILE USERCONFIG$ CONFIG$ SET-SHELL ABS@ "OF-INCLUDE ("OF-INCLUDE) "OF-COMPARE ("OF-COMPARE) BACKGROUND FOREGROUND SIZE-POINTER UPARROW-POINTER WAIT-POINTER NOWAY-POINTER ICON-POINTER IBEAM-POINTER CROSS-POINTER ARROW-POINTER NEW-POINTER SP>COL SET-POINTER NOTE F^X FPOP FPUSH (F@) FR@ FDUP>R F>R R>F FSP FSTACK ?UPPERCASE ASCIIZ->ASC-LEN OF-RANGE _OF-RANGE SYS ` ZEXEC .BROWSE .DOS .EDITOR WIN32S? WIN98? WIN95? NT? WITH-IMG <CLASS <OBJECT HEAP> <A -- DOC (* /* CONSOLEWINDOW CMD MULTISTATUSBAR STATUSBAR -STATUSBAR.F COMMANDWINDOW LOGKEYSTROKES HANDLEKEYDOWN HANDLEKEYS SET-CONSOLE-POPUP SET-CONSOLE-MENU MENU-OFF CONSOLE-POPUP WIN32FORTH-POPUP-BAR CONSOLE-MENU WIN32FORTH-MENU-BAR MARK-ALL CUT-CONSOLE COPY-CONSOLE .LDE .WINDOWS .DFC DEXH XREF HELP-SYSTEM CLASS-BROWSER .FORTHFORM .IDE -TOOLS.F NEWEDITDIALOG PAGE-UP-SETUP PAGE-UP-DIALOG ABOUT-WIN32FORTH IDOK3 IDD_PROMPT2_TEXT IDOK2 IDD_EDIT2_TEXT IDD-PROMPT2_TEXT IDD_EDIT2_DIALOG IDD_EDIT_TEXT2 IDD-PROMPT_TEXT2 IDD_REPLACE_DIALOG IDB_OPTION IDD_EDIT_DIALOG IDD_PROMPT_TEXT IDD_EDIT_TEXT IDD_TITLE_TEXT IDD_4UP IDD_2UP IDD_PAGEUP IDD_AVAIL_MEMORY IDD_AVAIL IDD_SAVE_MEMORY IDD_ABOUT_TEXT4 IDD_ABOUT_TEXT3 IDD_ABOUT_TEXT2 IDD_ABOUT_TEXT IDD_ABOUT_HEAD IDD_ABOUT_FORTH IDD_TEXT IDD_CHECK IDD_FONT IDD_FONTDLG FORTHDLG BROWSEFORFOLDER -BROWSEFLD.F MIN-MENU-BAR POPUPBAR MENUBAR NEXTID IDCOUNTER IDSTART MODELESSDIALOG DIALOG LOAD-DIALOG READ-DIALOG FIND-DIALOG-ID ?DLGERR DIALOGID? COMBOFIELD EDITFIELD PICTUREBUTTON TOOLBAR DEFTOOLSPACING DEFTOOLWIDTH DEFTOOLHEIGHT LRBUTTONBAR HBUTTONBAR BHBUTTONBAR VBUTTONBAR GENERIC-BUTTONBAR BUILDBAR DEFBHEIGHT DEFBWIDTH DIALOGWINDOW BUTTONCONTROL RADIOCONTROL CHECKCONTROL STATICCONTROL GROUPCONTROL LISTCONTROL COMBOLISTCONTROL COMBOCONTROL EDITCONTROL CLIENTRECT CONTROL IN-BUTTON? MOUSE-IS-DOWN? INFO-FLAG CALLWINDOWPROC SUBCLASS-ENTRY SUBCLASS-RETURN SUBCLASS-WNDPROC ZMESSAGE MESSAGE-ORIGIN MESSAGE-ON MSG-WINDOW MSGWINDOW CHILD-WINDOW LOADICONFILE SEND-WINDOW FIND-WINDOW WINDOW WNDRECT WNDPROCERROR ERRSTRING ERRCFA CLASSNAMEID DEFAULTMENUBAR ZERO-IMAGE-WINDOWS GENERIC-WINDOW GET-MOUSE-XY WINRECT WRECT DIALOG-LINK WINDOWS-LINK PRINT-CONSOLE PRINT-SCREEN #PRINT-SCREEN ROWSTRING 4PRINT 2PRINT FPRINT $FPRINT PRINT PRINTER FOUR-PAGE TWO-PAGE SINGLE-PAGE PRINT-SCALED PAGE-SCALED PRINT-MULTI-PAGE START-RAW2 START-RAW START-SCALED2 START-SCALED PAGE-SETUP START-PRINTER2 THEPRINTER WINPRINTER SPLITLINE -BLSCAN1 XLCNT BORDER? DIRECT-PRINT? AUTO-ON? CALC_FONT_HEIGHT PRINT-EXTENDED-LINES PRINTER-VRES PRINTER-HRES PRINTER-VSIZE PRINTER-HSIZE PRINTER-MODE XLINECOUNT ?TAB PR_RAW PR_SCALED #XINDENT PRINTER? MULTI-PAGE? PRINTER-#LINE PRINTER-#OUT PRINTER-COLS PRINTER-ROWS PRINTER-CPI PRINTER-LPI PRINTING? SCREEN-HEIGHT SCREEN-WIDTH #PAGES-UP WINDC GDIDC CHAR-HEIGHT CHAR-WIDTH PRINT-ORIENTATION PAPER-SIZE QUALITY-PRINT UNLOCKDEVMODE LOCKDEVMODE DEFAULTPRINTER PRINT-FLAGS GET-COPIES GET-TOPAGE GET-FROMPAGE PRINT-END PRINT-PAGE END-PAGE START-PAGE PRINT-START AUTO-PRINT-INIT PRINT-SETUP PRINT-INIT PRINT-INIT2 PRINT-CLOSE PRINTDLG PAGESETUPDLG JOB DOCNAME DI NCOPIES NMAXPAGE NMINPAGE NTOPAGE NFROMPAGE PDFLAGS HDC HDEVNAMES HDEVMODE HWNDOWNER PD RTMARGIN RTMINMARGIN PTPAPERSIZE PSDFLAGS HOWNER PSD FILESAVEDIALOG FILEOPENDIALOG FILENEWDIALOG GET-FILTER-INDEX -XFILEDLG.F FONT GDIFONT ?GDICHECK (?GDICHECK) .GDI-OBJECTS UNLINKGDIOBJECT GETGDIOBJECTHANDLE ?ISGDIOBJECT GDIOBJECT 8REVERSE 6REVERSE 5REVERSE HATCHCOLOROBJECT BROWN WHITE LTCYAN CYAN LTMAGENTA MAGENTA DKMAGENTA LTYELLOW YELLOW LTBLUE BLUE LTGREEN GREEN LTRED RED DKGRAY LTGRAY GRAY BLACK NEW-COLOR EXTCOLOROBJECT COLOROBJECT IMAGESET?COLORSET ?COLORCHECK (?COLORCHECK) .COLORS COLORS-LINK PALETTEINDEX PALETTERGB RGB GDITEXTMETRIC GDISIZE GDIRGBQUAD GDICOLORREF GDIPOINT MDBG MDEBUG MSEE OBJECTS MATCHES IVARS METHODS CMETHODS SAVEINFO LOADINFO _?UNSAVE-SRC _SAVE-SRC _SAVE-SOURCE SRCINFOHERE _RESETSRCINFO SRCINFO, DOLOADINFO SRCINFOCNT SRCINFOPTR PRE-INIT-SYSTEM-LOCKS-OFF PREINITAPPID INIT?ENABLECONSOLEMESSAGES INIT-TURNKEY-NODEBUG INIT-TURNKEY-FIND INIT-IMAGE-HANDLES TRIM-IMAGE-ERRORS TRIM-IMAGE-CHAINS TRIM-IMAGE-LIST ZERO_CONHNDL TURNKEY SAVE "SAVE (SAVE) CONSOLEHIDDENBOOT CONSOLEBOOT DOSCONSOLEBOOT NOCONSOLEBOOT .APPDIR &APPDIR PRESETNOCONSOLEIO PRESETDOSCONSOLE GENERALBOOT MSGBOX CONSOLEMODE DOCONSOLEBOOT DEFAULT-APPLICATION IS-IMAGE IN-IMAGE? >IMAGE IMAGE-COPY ZERO-WORDS IMAGE-STATS PSIZE PORIG PTABL VIMAGE SCINTILLA-DLL? AUTOEDITOFF AUTOEDITON _EDIT-ERROR BROWSE Z EDIT ED VV V VIEW LINELIST N LL L LOCATE .V WHERE $BROWSE $EDIT PASTE-LOAD EDITOR-PRESENT? MSGPAD -EDITOR_IO.F "FILE-LINK WEB "WEB-LINK "SHELLEXECUTE ("SHELLEXECUTE) DOS SHELL $SHELL .SHELL S$ .$ ,$ DOS" SHELL" BROWSE" EDITOR" DOS$ SHELL$ BROWSE$ EDITOR$ $EXEC-WAIT $EXEC NEW-PROMPT? EXEC-CMD-WAIT EXEC-CMD ZEXEC-CMD-WAIT ZEXEC-CMD EXECEDITOR EXECWINED EXECHELP EXECIDE EXECFORTH (W32FAPPCMDLINE) EXECW32FAPP SET-TIME-TAKEN TIME-TAKEN CLOSETHREAD CLOSEPROCESS ((CREATEPROCESS)) PROCESSCMD PROCINFO STARTUPINFO DECODEW32FMSG BROADCASTW32FMSG SENDW32FMSG COPYDATASTRUCT RUNASNEWAPPID UNINITSHAREDMEMORY INITSHAREDMEMORY ?REMOVEGHOST CLOSESHAREDMEMORY .SHARED SHAREDHWND SHAREDAPPID RESETSHARED SETSHARED SET?ENABLECONSOLEMESSAGES (?ENABLECONSOLEMESSAGES) ENABLEW32FMSG ISRUNNING? W32FSHAREP W32FSHAREH W32FSHARENAME ED_NAME ED_WATCH ED_OPEN_BROWSE ED_OPEN_EDIT ED_DEBUG ED_STACK ED_WORD ED_RESPONSE WM_INQUIRE WM_DONEBP WM_RSTKBP WM_HEREBP WM_BEGNBP WM_JUMPBP WM_CONTBP WM_UNESTBP WM_NESTBP WM_STEPBP WM_SETBP WM_PASTELOAD WM_KEY WM_SHOWDEFER WM_HTML WM_LINEFILE WM_WORDHELP WM_BEEPME W32FAPPID>FILENAME W32FEDITOR W32FHELP W32FIDE W32FFORTH W32FWINED UNSET-EXCEPT SET-EXCEPT RELEASE-EXCEPT-BUFFER ALLOCATE-EXCEPT-BUFFER .EXCEPTION CLEAR-EXCEPTION .EXCEPTION-CODE INIT-EXCEPT-USERS RECOVER-EXCEPTION SHOW-EXCEPTION EXCEPT-IO THROW_WINEXCEPT EXCEPTION_CONTINUE_EXECUTION EXCEPTION_CONTINUE_SEARCH EXCEPTION_EXECUTE_HANDLER MACRO 2LITERAL HARROW-CURSOR MAGNIFY-CURSOR SPLITH-CURSOR SPLITV-CURSOR HAND-CURSOR IDC_HARROW IDC_HAND IDC_MAGNIFY IDC_SPLITH IDC_SPLITV APP_ICON ICON_FORTH WAIT-CURSOR UPARROW-CURSOR SIZEWE-CURSOR SIZENWSE-CURSOR SIZENS-CURSOR SIZENESW-CURSOR SIZEALL-CURSOR NOWAY-CURSOR IBEAM-CURSOR HELP-CURSOR CROSS-CURSOR ARROW-CURSOR APPSTARTING-CURSOR MAKE-CURSOR DEFAULTOF FLIST FTYPE "FTYPE ?KEYPAUSE PAUSE-SECONDS SECONDS_MS RANDOM-INIT RANDOM SEED3 SEED2 SEED1 .BUILTBY ELAPSE .ELAPSED TIMER-RESET TIME-RESET START-TIME MS@ .CVERSION .AM/PM >AM/PM" .TIME >TIME" .MONTH,DAY,YEAR >MONTH,DAY,YEAR" .DATE >DATE" .#" TIME&DATE COMPILE-VERSION GET-LOCAL-TIME TIME$ DATE$ TIME-BUF TIME-LEN _STACK-CHECK LINELOAD #FLOAD >LINE START-LINE .VIEWINFO $.VIEWINFO ORIG-LOC CUR-LINE COPYFILE ?WIN-ERROR WIN-ABORT .ERRORBOX ERRORBOX ?TERMINATEBOX ?ERRORBOX ?MESSAGEBOX MESSAGEBOX .LOADED .PLATFORM .PLATFORM-NT .REG_WNT\VERSION IDIR .FILE .CUR-FILE .DEFERRED SCREEN-SIZE XFIELD: LFIELD: WFIELD: BFIELD: CFIELD: FIELD: +FIELD END-STRUCTURE BEGIN-STRUCTURE ENVIRONMENT? ENVIRONMENT OPEN-SHARE I-WAS-FIRST CLOSE-SHARE OPEN-MAP-FILE CLOSE-MAP-FILE UNMAP-VIEW-FILE FLUSH-VIEW-FILE MAP-VIEW-FILE MAP-NAME CREATE-FILE-MAP >HFILENAME >HFILEMAXLENGTH >HFILELENGTH >HFILEADDRESS >HFILEMAPPING >HFILE MAP-FIELD+ MAP-HANDLE DOMAP +K_CONTROL +K_ALT +K_SHIFT K_PGUP K_PGDN K_PAUSE K_SCROLL K_DOWN K_UP K_RIGHT K_LEFT K_DELETE K_INSERT K_END K_HOME K-NEXT K-PRIOR K-PAUSE K-SCROLL K-DOWN K-UP K-RIGHT K-LEFT K-DELETE K-INSERT K-END K-HOME SPLKEY K_F12 K_F11 K_F10 K_F9 K_F8 K_F7 K_F6 K_F5 K_F4 K_F3 K_F2 K_F1 K-F12 K-F11 K-F10 K-F9 K-F8 K-F7 K-F6 K-F5 K-F4 K-F3 K-F2 K-F1 FKEY K_LF K_CR K_BACKSPACE K_TAB K_ESC LITKEY RENAME DO-RENAME-AFILE DIR PRINT-DIR-FILES .FILE-SIZE-NAME _PRINT-DIR-FILES .DIR->FILE-SIZE .DIR->FILE-NAME FORALLFILES FORALLFILENAMES DIR->FILE-NAME ASCIIZ->ASC-LEN FILETIME-TO-SYSTEMTIME GET-FILE-MODIFIED FILE-TIME-BUF DIR-ATTRIBUTE? GET-FILE-NAME GET-FILE-SIZE GET-DOS-WRITE-DATETIME GET-DOS-ACCESS-DATETIME GET-DOS-CREATE-DATETIME FIND-CLOSE FIND-NEXT-FILE FIND-FIRST-FILE GET-FSPACE CAPS-COMPARE CAPS-SEARCH WMILLISECONDS WSECOND WMINUTE WHOUR WDAY WDAYOFWEEK WMONTH WYEAR _SYSTEMTIME SIZEOF(_SYSTEMTIME) PTR-DOS-TIME PTR-DOS-DATE _WIN32-FIND-DATA TOTAL-FILE-BYTES #FILES _HDL-SEARCH [GETMETHOD] GETMETHOD .CLASSES TEMPRECT RECTANGLE STRING OBJECT CLASSROOT METHODCATCH METHODEXECUTE ?DISPOSE DISPOSE DIMENSION -RANGE +RANGE |CLASS BUILD|CLASS CLONE <SUPER :CLASS BUILD:CLASS (CLASS) :OBJECT OBJ-LOADLINE OBJ-CLASS USEROBJECT: NEW> ** [[ HASH> @WORD WARN_CLASH NEWOBJECT (NEWOBJECT) ?WIN-ERROR-ENABLED THROW_DISPOSE_ERR THROW_INDEX_OFR THROW_UNDEF_METH THROW_METH_BUFF_OVERFLOW THROW_NO_WM THROW_OBJ_EXPOSED THROW_NO_FIND_OBJ THROW_INVALID_IVAR THROW_NO_FIND_VAR THROW_INVALID_OBJ_REF THROW_NOT_METHOD THROW_NOT_OBJ THROW_NOT_CLASS THROW_NO_CLONE THROW_NOT_CLASS_OR_OBJ THROW_NEW> THROW_IVAR_EXISTS THROW_NOT_IN_CLASS THROW_BIG_BITS THROW_ZERO_BITS THROW_NO_BITS THROW_NOT_SELF THROW_NOT_SEL THROW_NEED_SEL WITHOUT-SOURCE WITH-SOURCE PATCHINTO #PATCHINTO ?UNBUG WATCH DBG RESTORE-IO DEBUG-IO BP FDEBUG FDBG DEBUG NDBG ADEBUG REMOTE-DEBUG UNBP UNBUG _.RSTACK BUG CFA-WATCH WATCHED-CFA START-WATCH? IN-BREAKPOINT? REMOTE-DEBUG? MAX.RSTACK +OV? DEBUG-EXIT DEBUG-.S DEBUG-ENTRY $WATCH STACK-WATCH WORD-WATCH DBG-FSTACK DBG-NEXT-CELL .WORD-TYPE-CHAIN DBG-NEST-CHAIN ?WINERROR DEFINEDABORT, (?WINERROR) (FORMATSYSTEMMESSAGE) (GETLASTERROR) MENUKEY-MORE AUTO_KEY? AUTO_KEY MOUSEFLAGS MOUSEY MOUSEX ACTIVATE-CONSOLE FOREGROUND-CONSOLE _ACTIVATE-CONSOLE _FOREGROUND-CONSOLE (SETACTIVEWINDOW) (SETFOREGROUNDWINDOW) (SETWINDOW) CURSOR-ON SHOW-CURSOR CURSOR-OFF HIDE-CURSOR FORTH-IO DUMP DUMPC@ +NO-WRAP -DUMP.F ON-ALLWORDS WORDS WITH-ADDRESS CONSTANTS .WORDS VOCS ORDER HORIZONTAL-LINE USED .MEM .FREE .MALLOCS .PROCS .LIBS .COUNTS .THREADS .THREAD 1TCOUNT .1THREAD COUNT-WORDS COUNT-VOC HEADER-CNT APP-CNT WORDS-CNT SEEMORE REST SHOW-NEXT-OFF SHOW-NEXT-ON DISASSEMBLER SEE 'SEE (SEE) DEBUGGING? .WORD-CHAIN .OTHER-CLASS-CHAIN .EXECUTION-CLASS-CHAIN FDISCARD-NUMBER _FLOAT-NUMBER, FLOAT-RESET-STACKS FLOAT-NUMBER? .FLOAT SEE.FLOAT .ONEFLOAT F.X FDUMP .FDEPTH F.S SHOW-FP-DEPTH F^2 F0<> F2PI FPI/2 G. E. FS. FE. F. (G.) (E.) (FS.) (FE.) (F.) MIN-PRECISION SET-PRECISION PRECISION MAXSIG SIGDIGITS REPRESENT F# >FLOAT F#+> F#-> F+> F-> #FLOAT-ARRAY FLOAT #^FLOAT-ARRAY ^FLOAT FLOAT-ARRAY SFLOATS SFLOAT+ DFLOATS DFLOAT+ FLOATS FLOAT+ SFALIGNED SFALIGN DFALIGNED DFALIGN FALIGNED FALIGN FATANH FACOSH FASINH FTANH FCOSH FSINH FALOG F** FEXPM1 FEXP FLOG FLNP1 FLN FATAN2 FATAN FACOS FASIN FTAN FSINCOS FCOS FSIN F0.5 F10.0 F2.0 FINF F~ FSQRT FABS F2/ F2* 1/F FNEGATE F/ F* F- F+ FMIN FMAX F>= F<= F> F< F= F0> F0< F0= SFS>DS FS>DS F>S S>F ZF>D F>D D>F FROUND FTRUNC FCEIL FLOOR SQ2/2M1 SQ2M1 A2**63 FSMALL FEPS FBIG FLN2 FLOG2 FL2E FL2T F1.0 F0.0 FPI F2NIP F2SWAP F2DUP F2DROP FNIP FPICK FROT FOVER FSWAP FDUP FDROP SFIELD: FFIELD: DFIELD: FLITERAL FCONSTANT +FTO FTO FVALUE FVARIABLE F, F+! DF! SF! F! DF@ SF@ F@ FSP-ADJUST FSP-CACHED? FINIT FEXAM FPU_STATUS_CCF_DENORMAL FPU_STATUS_CCF_EMPTY FPU_STATUS_CCF_ZERO FPU_STATUS_CCF_INFINITY FPU_STATUS_CCF_NORMAL FPU_STATUS_CCF_NAN FPU_STATUS_CCF_UNSUPPORTED FPU_STATUS_CCF_MASK_023 FPU_STATUS_CCF_MASK_1 FPU_STATUS_CCF_MASK FDEPTH FSTKUFLO THROW_FLOATSTACKUNDER FLOATSTACK FSTACK-ELEMENTS FLOATSP CELLS/FLOAT FPSW> >FPCW FPCW> >FREGS> >FREGS B/FLOAT .M1NAME .M0NAME OBJ-SAVE ADD-HASH CLASH ?UNHASH UNHASH (UNHASH) HASH-WID HASHED OP! OP@ (IVD+!) (IVD!) (IVD@) (IV+!) (IV!) (IV@) (IVW+!) (IVW!) (IVW@) (IVC+!) (IVC!) (IVC@) (&IV) ^BASE DOOBJ ?EXITM EXITM UNNESTM M1CFA M0CFA ((FINDV)) ((FINDM)) METHOD-HASH VOC-PFA-SIZE CLASSES .FONTS FONTFUNC &FONTFUNC CALLBACK: CALLBACK BUILD-CALLBACK __CDECL __STDCALL __CDECLV CALLBACK-BEGIN CALLBACK-RETURN ]MACRO MACRO[ (]MACRO) (MACRO[) _NOPT-CODE NCODE SUBR: _CODE> _OPT-CODE RESOLVE-OFA CODE-HEADER MACRO: SUBR: ;CODE CODE SET-REGISTER-ASM SET-REGISTER-REF ;INTS ;BYTES NUMBERS: -NUMBERALLOC.F "FILE-CLIP" REQUIRED REQUIRE NEEDS \LOADED \LOADED- LOADED? "LOADED? GOHOME PREPEND<HOME>\ FINDRELATIVENAME FINDRELATIVEPATH MAKEPATHRELATIVETO ISPATHRELATIVETO? MAKEABSOLUTEPATH N"OPEN OPEN-PATH$ "PATH-FILE PROGRAM-PATH-INIT .FPATH FPATH+ FBASE-PATH+ "FPATH+ "FBASE-PATH+ SEARCH-PATH SEARCH-BASE-PATH FIND-PATH FULL-PATH .PATH "PATH+ FIRST-PATH" RESET-PATH-SOURCE NEXT-PATH" PATH: CHDIR .DIR "CHDIR .FORTHDIR .PROGRAM WINVER-INIT WINVER GETREGISTRYENTRY WIN10 WIN8 WIN7 WIN2008R2 WIN2008 WINVISTA WIN2003 WINXP WIN2K WINNT4 WINNT351 WINME WIN98 WIN95 GETSETTING SETSETTING REGSETSTRING REGGETSTRING PROGREG-INIT PROGREG-SET-BASE-PATH REGACCESSMASK REGBASEKEY PROGREG BASEREG (REGSETVALUE) (REGQUERYVALUE) (REGCLOSEKEY) (REGCREATEKEY) (REGOPENKEY) INIT-NEW$ _NEW$ DYNALLOC DYN-OFFSET DYN-PTR MAX-DYN-STRING NAMED-NEW$ SIZEOF@> SIZEOF!> UNPOINTER> POINTER RESIZEPOINTER (RESIZEPOINTER) %SIZEOF@ %SIZEOF! >POINTER %UNPOINTER .POINTERS [UNDEFINED] [DEFINED] #IFNDEF #IFDEF #ENDIF #THEN #IF #ELSE [ENDIF] [THEN] [IF] [ELSE] MODULE EXTERNAL INTERNAL PRIVATE (PRIVATE) ASSEMBLER EDITOR "ANYFIND ANYFIND ANYVOC VOC: +ORDER SET-ORDER GET-ORDER FORTH-WORDLIST PREVIOUS ONLY ALSO DEFINITIONS VOCABULARY #VOCABULARY LEXICON #LEXICON (VOC) SWAP-CURRENT SET-CURRENT GET-CURRENT WORDLIST #WORDLIST #LEXTHREADS #THREADS ANEW POSSIBLY MARKER DO-MARKER MARK DO-MARK FORGET (FORGET) VTRIM TRIM-WINPROCS TRIM-WINLIBS TRIM-HANDLES TRIM-DEFER TRIM-CHAINS FULL-TRIM TRIM? SYS-TRIM? FENCE (GDIUNLOCK) (GDILOCK) (DYNUNLOCK) (DYNLOCK) (POINTERUNLOCK) (POINTERLOCK) (CLASSNAMEUNLOCK) (CLASSNAMELOCK) (DIALOGUNLOCK) (DIALOGLOCK) (CONTROLUNLOCK) (CONTROLLOCK) USEROBJECTLIST IDK_BASEPROC NEWPROC PROC_NEXT GET-VIEWFILE +LNULL C+LPLACE +LPLACE LPLACE "LCLIP" LMAXSTRING LMAXCOUNTED ?ENABLECONSOLEMESSAGES STOPLAUNCHING MYRUNUNIQUE RUNUNIQUE NEWAPPID MYAPPID ERASE$ STRING: #DEFINE ISWINCONSTANT PRESETCONSOLEIO (CONSOLEHIDDENBOOT) (CONSOLEBOOT) (DOSCONSOLEBOOT) (NOCONSOLEBOOT) DOSCONSOLE NOCONSOLEIO MESSAGELOOP MESSAGESTRUCTURE WAITFORMESSAGE PAUSEFORMESSAGES HANDLEMESSAGES HANDLE HANDLES-LIST PRE-SAVE-IMAGE-CHAIN POST-FORGET-CHAIN FORGET-CHAIN SEMICOLON-CHAIN MSG-CHAIN RESET-STACK-CHAIN FORTH-IO-CHAIN UNLOAD-CHAIN INITIALIZATION-CHAIN .CHAINS (.CHAINS) .CHAIN IN-CODE-SPACE? IN-SYS-SPACE? IN-APP-SPACE? TRIM (TRIM) B. BU,.R BUD,.R .R.1 D.R.# (D.#) UD.R UD. U,.R UD,.R (UD,.) (XUD,.) (.) ID. ?.NAME ?NAME ARG-EXT" ARG-NEXT" ARG-1" "ARG-NEXT" ARG-POS" ARG" 2+TO 2TO 2VALUE DO2VALUE+! DO2VALUE! 2+! UNUSED EXPECT SPAN CONVERT ,"TEXT" C+PLACE SYS-RESERVE RESERVE APP-RESERVE \+ \- M+ M*/ UT/ (UT/) MT* UT* TNEGATE STACK-EMPTY? CHECKSTACK NOSTACK1 NOSTACK STACK-CHECK-ON STACK-CHECK-OFF OLDDEPTH CS-ROLL CS-PICK ROLL EXEC: ?+; ?+\ ?-\ ENDCHAR? ".EXT-ONLY" "MINUS-EXT" "PATH-ONLY" ("PATH-FUNC") (CALL-PRE) (CALL-PRFS) BUFFER: IMPORT: AS ALLOT-TO SUPPRESS-SYSTEM \IN-SYSTEM-OK DOIMPORT "HOLD LOWORD HIWORD NR> N>R DEFER! DEFER@ ACTION-OF RESTORE-DEFAULT IS-DEFAULT _RESTORE_DEFAULT _IS-DEFAULT .USERSIZE CFA-COMP, CFA-CODE EXIT-ASSEMBLER ENTER-ASSEMBLER CFA-FUNC GET-COMMANDLINE NOT +Z", +Z," ASCIIZ Z-BUF -NULL, _\N->CRLF DEFAULTWINDOWPROC _DEFAULTWINDOWPROC WITH-SOURCE? MESSAGE-OFF "TOP-MESSAGE "MESSAGE SAVE-SOURCE RESETSRCINFO .RSTACK STOP/START .. BREAKER MAKEDEFER ?ISCLASS DO|CLASS DOCLASS CTRL ALT ASCII EXCEPTION@ ABS>REL REL>ABS HOLDS EMIT? EKEY>FKEY EKEY>CHAR EKEY? EKEY FOCUS-CONSOLE NORMAL-CONSOLE SHOW-CONSOLE UNHIDE-CONSOLE HIDE-CONSOLE SHOW-WINDOW CONDC SET-CONPOS ?CONTROL ?SHIFT SHIFTMASK ?LINE CRTAB TABBING-ON TABBING-OFF TABING-OFF TABING-ON FIRST-LINE -TAB +TAB 0TAB TAB TAB-WRAP? WRAP? INDENT FIRST-LINE? TABING? TABS-MAX TAB-MARGIN RIGHT-MARGIN LEFT-MARGIN TAB-SIZE ROWS COLS AT-XY >NORM >BOLD PAGE BEEP _BEEP BEEP! TONE TONE_DURA TONE_FREQ SHIFT_MASK CONTROL_MASK ALT_MASK UP_MASK DOWN_MASK DOUBLE_MASK PROC_MASK MENU_MASK MOUSE_MASK K-ALT-MASK K-SHIFT-MASK K-CTRL-MASK SPECIAL_MASK FUNCTION_MASK CONHNDL SUPER-NUMBER? IS-NUMBER? NUMBER? DISCARD-NUMBER IP-NUMBER? IP-SEG WINCON-NUMBER? WINCON-CALL WINENUMPTR WINCONPTR WINCONLIB QUOTED-NUMBER? HEX-NUMBER? 0XL-NUMBER? LASTCHAR NEW-NUMBER BASE-NUMBER? XBASE-CONVERT BASE-TONUM DOTTED-NUMBER? RUN-NUMCHAIN -VE-TEST -IFZEROTHROW NUMBER?-CHAIN //{{NO_DEPENDENCIES}} // COMMENT: (( "COMMENT \S ( COMMENT _COMMENT MULTI-LINE? _COMMEOF ; DO-;CHAIN #DOES> DOES> ?EXIT EXIT .VERSION ((VERSION)) BUILD# VERSION# KWORDS NUF? .REFILL ECHO _START/STOP DELAYS SCREENDELAY .NAME .S WAIT EMIT. H.8 H.4 H.2 H.N H.R EXEM TASK-ENTRY START-INTERPRETER &FORTHDIR &PROGNAM EXCEPT-HANDLER EXCEPT-VALLOC EMPTY-COMMAND-LINE CMDLINE BOOT QUERY-INTERPRET MESSAGE _MESSAGE WARNMSG RESET-STACKS _RESET-STACKS EDIT-ERROR &OF (&OF-VALUE) (&OF-LOCAL) PARMFIND LOCALS| {: { NEXTWORD (LOCAL) LOCFLG INPARMS #-LOCALS LOCAL15 LOCAL14 LOCAL13 LOCAL12 LOCAL11 LOCAL10 LOCAL9 LOCAL8 LOCAL7 LOCAL6 LOCAL5 LOCAL4 LOCAL3 LOCAL2 LOCAL1 LOCAL0 MOVE-LOCALS INIT-LOCALS EXITP UNNESTP DOLOCAL+! DOLOCAL! DOLOCAL LOCALALLOC: LOCALALLOC _LOCALALLOC _LOCALALLOCP _LOCALFREE (DPRWARN) DPR-WARNING-ON DPR-WARNING-OFF DPR-WARNING? \ OK SYS-FLOAD INCLUDE "FLOAD FLOAD $FLOAD INCLUDED INCLUDE-FILE END-INCLUDE START-INCLUDE EVALUATE EXECUTE-PARSING RESTORE-INPUT SAVE-INPUT LINKFILE ISABSOLUTEPATH? ISFILE LOADFILE KERNFILE $CURRENT-DIR! CURRENT-DIR$ $OPEN "OPEN _"OPEN ?DEFEXT "TO-PATHEND" DEFEXT DEFEXT_ON? DEFEXTZ$ DEFEXTMAX DEFEXT$ INCLUDING? STACK-CHECK REFILL LEN-PREV (WINPAUSE) WINPAUSE INTERPRET _INTERPRET ?UNSAVE-SRC SAVE-SRC NUMBER, _NUMBER, QUERY ?STACK DEPTH FIELD+ OFFSET INSERT-STRAND APPEND-STRAND STRAND DO-CHAIN CHAIN-ADD-BEFORE NOOP-CHAIN-ADD-BEFORE CHAIN-REMOVE CHAIN-ADD NOOP-CHAIN-ADD NEW-SYS-CHAIN NEW-CHAIN SYS-CHAIN-LINK CHAIN-LINK +TO TO DOFCON VALUE IS ?IS (IS) @(IP) 2VARIABLE 2CONSTANT USERSIZE NEWUSER USER DEFER VARIABLE CONSTANT CREATE DEFER-LIST RECURSE : :NONAME PARMS-INIT PARMS ?:M [ ] _[ _] #(;CODE) (DOES>) (;CODE) SYS-WARN-DOES? SUPPRESS DOES>? DODOES-CALL, ?CSP !CSP CSP SYNONYM ALIAS HEADER SLOW SLFACTOR "HEADER START/STOP ("HEADER) CLASS>SYS CFAPTR! _HEADER-OFA CONSFILE ENDCASE ENDOF OF CASE +LOOP LOOP ?DO DO REPEAT WHILE AGAIN UNTIL BEGIN ELSE ENDIF THEN -IF IF AHEAD <RESOLVE >RESOLVE <MARK >MARK ?COMP ?EXEC ?PAIRS ABORT" (ABORT") ((")) ?THROW ABORT! NABORT! ABORT THROW CATCH FSAVE-FILE FILE-STATUS RESIZE-FILE WRITE-LINE READ-LINE FLUSH-FILE FILE-SIZE FILE-APPEND REPOSITION-FILE ADVANCE-FILE FILE-POSITION FPARMS-FP RENAME-FILE DELETE-FILE WRITE-FILE READ-FILE CLOSE-FILE CREATE-FILE OPEN-FILE ASCII-Z R/W W/O R/O BIN RESIZE REALLOC RELEASE FREE MALLOC ALLOCATE (MEMUNLOCK) (MEMLOCK) MHEAPSIZE MALLOC-ADJLEN LINK>MEM LINK>HADDR MALLOC-LINK MALLOC-HFLAG DLL WINLIBRARY FREE-DLL LOAD-DLL "WINLIBRARY CALL EXTERN PROC RES-MULTI-LIBS RES-SINGLE-LIB RES-LOADPROC "FIND-PROC PROC-ERROR _PROC-ERROR PROC>NAME PROC>PCNT PROC>LIB PROC>EP PROC>CFA CFA>PROC LIB>NAME LIB>HANDLE IGNORE-MISSING-PROCS? WINPROC-LAST WINPROC-LINK WINLIB-LAST WINLIB-LINK PDP PARSE-S$ /PARSE-WORD /PARSE SLITERAL ." Z" S" C" (.") (Z") (S") (C") NEW$ Z," Z", ," ", \N->CRLF LINK, UN-LINK APPEND-LINK ADD-LINK DO-LINK POSTPONE ['] [CHAR] [COMPILE] ' CHAR LITERAL REVEAL HIDE DEPRECATED IMMEDIATE CODE-ALIGN CODE-C, CODE-W, CODE-, CODE-ALLOT CODE-HERE CODE-FREE SYS-ALIGN SYS-COMPILE SYS-COMPILE, SYS-C, SYS-W, SYS-, SYS-ALLOT SYS-HERE SYS-FREE APP-ALIGN APP-ALLOT APP-HERE APP-FREE TURNKEYED? NALIGNED -ALIGNED ALIGN ALIGNED COMPILE COMPILE, SYS-WARNING-ON SYS-WARNING-OFF SYS-WARNING? DUP-WARNING-ON DUP-WARNING-OFF DUP-WARNING? IN-SYS? SYS-ADDR? ALLOT ?MEMCHK C, W, , HERE CODE-ORIGIN SYS-ORIGIN APP-ORIGIN CODE> APPLICATION> SYSTEM> DP> >CODE >SYSTEM >APPLICATION >DP IN-PREVIOUS IN-CODE IN-SYSTEM IN-APPLICATION ODP DP CDP ADP SDP DP-LINK IMG-ENTRY SYS-OFFS SYS-SIZE APP-OFFS APP-SIZE CODE-OFFS CODE-SIZE DEFINED FIND CAPS-FIND NAME-MAX-CHARS SEARCH-WORDLIST (SEARCH-SELF) (SEARCH-WID) "#HASH LATEST-NFA OFA-LAST >OFA@ >FFA@ >VIEW@ >VIEW >HEAD-FIELD N>HEAD >NAME [UNKNOWN] DOVOC VOC>VCFA VCFA>VOC VOC#THREADS VOC>VLINK VLINK>VOC VOC-ALSO HIDDEN FILES LOCALS FORTH ROOT VOC-LINK LAST-LINK LAST LATESTXT CURRENT CONTEXT NFA-COUNT NAME> LINK> N>BFA N>CFAPTR N>LINK L>NAME BODY> >BODY BFA_VFA_PRESENT BFA_FFA_PRESENT BFA_OFA_PRESENT BFA_UNUSED1 BFA_UNUSED2 BFA_UNUSED3 BFA_DEPRECATED BFA_IMMEDIATE .( PARSE PARSE-WORD PARSE-NAME WORD .ID ? H. U.R U. .R . D.R D. (D.) #S # SIGN #> <# HOLD OCTAL BINARY HEX DECIMAL NUMBER ?MISSING (NUMBER?) NUM-INIT -VE-NUM? DP-LOCATION DOUBLE? >NUMBER DIGIT UPPERCASE LOWER UPPER UPC TR TRTZ TRTNZ GETLASTWINERR GETLASTWINERRMSG WINERRMSG MS BYE K_BYE UNLOAD-FORTH #TAB COL SPACES SPCS SPCS-MAX SPACE D_ACCEPT D_KEY D_KEY? D_EKEY>CHAR D_EKEY D_CR D_EMIT D_TYPE D_UNINIT-CONSOLE D_INIT-CONSOLE DOSCHAR INP_REC OUTH INH K32DLL _CONHNDL APPINST SCROLLTOVIEW &THE-SCREEN GETROWOFF GETCOLROW GET-CURSOR SET-CURSOR CHARWH SETCHARWH BG@ FG@ FGBG! GETXY GOTOXY ?CR CR TYPE EMIT CLS "PUSHKEYS PUSHKEY ACCEPT KEY? KEY INIT-SCREEN INIT-CONSOLE CONSOLE MAXASCII K_NOOP2 K_NOOP1 K_NOOP0 .SMAX #TIB SOURCE TIB (SOURCE) LOADING? SOURCE-POSITION SOURCE-ID >IN LOADLINE FIND-BUFFER TEMP$ CUR-FILE POCKET WARNING STATE LAST-ERROR MSG THROW_MSGS MAIN? ASSYNC-TASK MAIN-TASK TASK-STATUS? TASK-FLIP TASK-CLEAR TASK-SET USEROFFS USERMIN USEREXTRA PAD HLD BASE OP LP HANDLER EXC-ACCESS EXC-GUARD &EXCEPT &EXREC TCB SP0 RP0 UP! UP@ NEXT-USER DOCALL-SINGLE DOCALL-MULTI DOEXTERN DOCALL CALL-PROC DMAX DMIN D<> D> D< D0= D0< D= D>S S>D DABS DNEGATE D- D+ BYTE-SORT CELL-SORT LARGEST /STRING -NULLS -TRAILING -TRAILCHARS +NULL +PLACE PLACE "CLIP" -SKIP -SCAN LSCAN LSKIP WSCAN WSKIP SCAN SKIP SEARCH ISTR= STR= COMPARE LCASETAB UCASETAB ZCOUNT LCOUNT WCOUNT COUNT */ */MOD MOD / /MOD FM/MOD SM/REM * M* 4DUP 3DUP 4DROP 3DROP 2ROT 2OVER 2SWAP 2DUP 2NIP 2DROP 2! 2@ BETWEEN WITHIN 0MAX MAX UMAX MIN UMIN DU< U> U< >= <= > < <> = 0> 0< 0<> 0= WORD-JOIN WORD-SPLIT UM/MOD UM* D2/ D2* 1- 1+ U2/ 2/ 2* ABS NEGATE UNDER+ - + BIT-MSB BIT-POP TOGGLE OFF ON CDECR CINCR DECR INCR RSHIFT LSHIFT INVERT XOR OR AND BLANK ERASE FILL MOVE CMOVE> CMOVE CHAR+ CHARS -CELLS +CELLS CELL- CELL+ CELLS- CELLS+ CELLS W+! W! SW@ W@ C+! C! C@ +! ! @ 2R@ 2R> 2>R RDROP R>DROP DUP>R R@ R> >R RP! RP@ SP! SP@ 4REVERSE 3REVERSE S-REVERSE PICK TUCK NIP ?DUP -ROT ROT OVER SWAP DUP DROP _ENDCASE _ENDOF _OF _CASE BOUNDS UNLOOP (+LOOP) (LOOP) ?LEAVE LEAVE K' K J' J I' I (?DO) (DO) _WHILE _UNTIL _REPEAT _AGAIN _THEN _BEGIN -?BRANCH ?BRANCH BRANCH CALLF RETURNF EXEC-SEQ NEXT-SEQ CRLF$ MAXCOUNTED MAX-PATH MAXSTRING MAX-HANDLE #VOCS PTRNULL NULL FALSE TRUE BL -CELL CELL 2 1 0 -1 NOOP PERFORM EXECUTE LIT UNNEST DOOFF DOUSER DOVALUE+! DOVALUE! DOVALUE DO2VALUE DODEFER DOVAR DODOES DOCON DOCOL
http://www.forth.com/downloads/ANS/XCtext5.doc (normative text, http://www.forth.com/downloads/ANS/XCtext5.pdf two formats) http://www.forth.com/downloads/ANS/XCapp5.doc (explanatory appendices, http://www.forth.com/downloads/ANS/XCapp5.pdf two formats) http://www.forth.com/downloads/ANS/XCpaper.pdf (overview)
+ - * /MOD MIN MAX = AND OR XOR NEGATE ABS NOT */ DUP DROP SWAP OVER DECIMAL HEX OCTAL . n .R CR EMIT KEY : ; CREATE , ALLOT IF ELSE THEN FOR NEXT I
.
ls -l /dev/ttyS*
T{ 1 2 drop }T 1 == T{ 1 dup }T 1 1 == T{ 2 1 swap }T 1 2 ==
: .s #.s execute begin key? until ;
1 +
1 2+
.s
weerty
1 2 3 .S +.S +.S
qwer
.S
VARIABLE A 0 A !
@
.S
. VARIABLE B 10 B !
A@ B@ .s
+ .S
a@+b@ (-- n) a @ b @ + ; 5 6 B ! a ! A@+B@ .
5 6 .s B ! A ! .s A@+B@ .s . .s B@+A@
2 1 ;
2 .
. 2 2 + . forget 2 2 2 + .