version 1.1, 1994/02/11 16:30:46
|
version 1.2, 1994/04/20 17:12:02
|
Line 16 decimal
|
Line 16 decimal
|
: 2r> postpone r> postpone r> ; immediate restrict |
: 2r> postpone r> postpone r> ; immediate restrict |
: 2r@ postpone 2r> postpone 2dup postpone 2>r ; immediate restrict |
: 2r@ postpone 2r> postpone 2dup postpone 2>r ; immediate restrict |
|
|
|
: 2Literal swap postpone Literal postpone Literal ; |
|
immediate restrict |
|
|
\ CASE OF ENDOF ENDCASE 17may93jaw |
\ CASE OF ENDOF ENDCASE 17may93jaw |
|
|
\ just as described in dpANS5 |
\ just as described in dpANS5 |
Line 64 decimal
|
Line 67 decimal
|
|
|
\ ERASE 17may93jaw |
\ ERASE 17may93jaw |
|
|
: erase 0 1 chars um/mod nip 0 fill ; |
: erase ( 0 1 chars um/mod nip ) 0 fill ; |
|
: blank ( 0 1 chars um/mod nip ) bl fill ; |
|
|
\ ROLL 17may93jaw |
\ ROLL 17may93jaw |
|
|