KEY
10 = UNTIL ;
-\ So far, S" has only worked in immediate mode, which is backwards -- actually,
-\ the main use-case of this is as a compile-time word. Let's fix that.
+\ So far, S" has only worked in immediate mode, which is backwards --
+\ actually, the main use-case of this is as a compile-time word. Let's
+\ fix that.
: S" IMMEDIATE
' LITSTRING ,
HERE @ 0 C, \ We will put the length here
DROP DROP ;
: NEWLINE 10 EMIT ;
+
: SPACE 32 EMIT ;
( Read a number from standard input. )
: READ-NUMBER READ-WORD PARSE-NUMBER ;
-: RESTART S" Ready." TELL NEWLINE ;
-RESTART
+: RESTART S" rrq's UEFI boot using jonasforth." TELL NEWLINE ;
+RESTART