version 1.79, 1999/05/20 13:28:20
|
version 1.80, 1999/07/24 13:07:18
|
Line 2406 magic 7 + c!
|
Line 2406 magic 7 + c!
|
bl parse ." Saving to " 2dup type cr |
bl parse ." Saving to " 2dup type cr |
w/o bin create-file throw >r |
w/o bin create-file throw >r |
TNIL IF |
TNIL IF |
s" #! " r@ write-file throw |
s" #! " r@ write-file throw |
bl parse r@ write-file throw |
bl parse r@ write-file throw |
s" -i" r@ write-file throw |
s" --image-file" r@ write-file throw |
#lf r@ emit-file throw |
#lf r@ emit-file throw |
r@ dup file-position throw drop 8 mod 8 swap ( file-id limit index ) |
r@ dup file-position throw drop 8 mod 8 swap ( file-id limit index ) |
?do |
?do |