version 1.151, 2006/01/29 18:34:33
|
version 1.152, 2006/02/12 23:45:53
|
Line 2821 by Create
|
Line 2821 by Create
|
\ Variable tudp 0 tudp ! |
\ Variable tudp 0 tudp ! |
|
|
: u, ( n -- udp ) |
: u, ( n -- udp ) |
current-region >r user-region activate |
current-region >r user-region activate .regions |
X here swap X , tup@ - |
X here swap X , tup@ - .regions |
r> activate ; |
r> activate ; |
|
|
: au, ( n -- udp ) |
: au, ( n -- udp ) |
Line 3269 tchar 8 = 78 and or
|
Line 3269 tchar 8 = 78 and or
|
magic 7 + c! |
magic 7 + c! |
|
|
: save-cross ( "image-name" "binary-name" -- ) |
: save-cross ( "image-name" "binary-name" -- ) |
s" ec" X $has? IF .regions THEN |
.regions \ s" ec" X $has? IF .regions THEN |
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 |
s" header" X $has? IF |
s" header" X $has? IF |