Forth by W. P. SALMAN, O. Tisserand, B. Toulout

Show description

If there are insufficient, a zero will appear for every # # Free format. Each number is converted to a character #8 HOLD HOLD( c --- ) Inserts into the string being formatted a character whose ASCII code is on the stack SIGN Inserts a minus sign if the third number in the stack is negative. Usually used immediately before #> #> Marks the end of formatting. The string address and character count are left on the stack, ready for TYPE >R >R ds: ( n --- ) rs:( --- n ) Transfers the value at the top of the data stack to the return stack R> R> ds:( --- n ) Transfers the value at the top of the return stack to the data stack rs:( n --- ) + + ( nl n2 nl+n2 ) Adds the two items at the top of the stack.

ASCII BEGIN KEY DUP 13 WHILE ( c--- ) ( c c--- ) ( c c-13--- REPEAT DROP OK Important note The numbers appearing in a definition are converted into binary according to the current base. Here, has the ASCII code 13 in decimal. If you type this definition in hexadecimal, you will need to replace 13 by ODe Since the definition is semi-compiled, a subsequent change of base will of course have no effect on the values contained in the definition. A second word holds up execution until input is received from the keyboard.

A word that does this is the word LEAVE. It may be defined as LEAVE R> R> R> DROP DUP >R >R >R OK Save return address for LEAVE ) Cell cel12 --- ) Cel11 cel11 --- ) Restore return address Note though that this word is only used to escape from inextricable situations caused by bad preparation and a bad choice of control structure. Its use is therefore not recommended. If the programmer wants to increment his current number by a number other than 1, he can use the syntax DO ... +LOOP +LOOP ( Incr --- For this the increment will have to be located on the data stack at the time of execution of the +LOOP.