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 \ So far, S" has only worked in immediate mode, which is backwards -- actually,
79 \ the main use-case of this is as a compile-time word. Let's fix that.
82 HERE @ 0 C, \ We will put the length here
93 ( Compile the given string into the current word directly. )
94 : STORE-STRING ( str len -- )
104 ( Read a number from standard input. )
105 : READ-NUMBER READ-WORD PARSE-NUMBER ;
107 : RESTART S" Ready." TELL NEWLINE ;