29 SWAP DUP HERE @ SWAP - SWAP !
50 AGAIN ; ( Yay! We now have comments! )
57 ( Compile a literal value into the current word. )
58 : LIT, IMMEDIATE ( x -- )
62 : MOD /MOD SWAP DROP ;
70 : OVER ( a b -- a b a ) SWAP DUP ROT ;
72 ( An alternative comment syntax. Reads until the end of the line. )
78 ( Compile the given string into the current word directly. )
79 : STORE-STRING ( str len -- )
89 ( Read a number from standard input. )
90 : READ-NUMBER READ-WORD PARSE-NUMBER ;
92 S" Ready." TELL NEWLINE