Starting Forth book

TASK   FORTH   NOOP   VLIST   TRIAD   INDEX   LIST   ?   .   D.   

D.R   .R   #S   #   SIGN   #>   <#

SPACES   WHILE   ELSE   IF   REPEAT   AGAIN   END   UNTIL   

+LOOP   LOOP   DO   THEN   ENDIF   BEGIN

BACK   FORGET   '   R/W   HI   LO   BLOCK_READ   BLOCK_WRITE   

?DISC   -->   LOAD   MESSAGE   .LINE (LINE)   BLOCK   BUFFER   

DR1   DR0   EMPTY-BUFFERS   UPDATE   +BUF   PREV   USE   DABS   

ABS   M/MOD

*/   */MOD   MOD   /   /MOD   *   S->D   COLD   ABORT   QUIT   

(   DEFINITIONS   VOCABULARY   IMMEDIATE INTERPRET   DLITERAL  

 LITERAL   [COMPILE]   CREATE   ID.   ERROR   (ABORT)   -FIND   

NUMBER   (NUMBER)

LABD______________   PAD   HOLD   BLANKS   ERASE   FILL      

QUERY   EXPECT   ?STACK   ."   (.")   -TRAILING

TYPE   COUNT   DOES>   <BUILDS   ;CODE   (:CODE)   DECIMAL   

HEX   SMUDGE   ]   [   COMPILE   ?LOADING

?CSP   ?PAIRS   ?EXEC   ?COMP   ?ERROR   !CSP   PFA   NFA   

CFA   LFA   LATEST   TRAVERSE   -DUP   MAX
MIN   SPACE   ROT   >   <   =   -   C,   ,   ALLOT   HERE   2+   1+   

COLUMNS   HLD   R#   CSP   FLD

DPL   BASE   STATE   CURRENT   CONTEXT   OFFSET   SCR   

OUT   IN   BLK   VOC-LINK   DP   FENCE   WARNING
WIDTH   TIB   R0   S0   +ORIGIN   B/SCR   B/BUF   LIMIT   FIRST   

BL   3   2   1   0   USER   VARIABLE

CONSTANT   ;   :   C!   !   C@   @   TOGGLE   +!   DUP   SWAP   

DROP   OVER   DMINUS   MINUS   D+   +

0<   0=   R   R>   >R   LEAVE   ;S   RP!   SP!   SP@   XOR   OR   

AND   U/   U*   CMOVE   CR   ?TERMINAL

KEY   EMIT   ENCLOSE   (FIND)   DIGIT   I   (DO)   (+LOOP)   

(LOOP)   0BRANCH   BRANCH   EXECUTE   LIT    OK