version 1.5, 1994/11/29 16:22:47
|
version 1.6, 1995/02/08 13:38:53
|
Line 191 VARIABLE C-Pass
|
Line 191 VARIABLE C-Pass
|
Display? IF dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit THEN |
Display? IF dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit THEN |
cell+ ; |
cell+ ; |
|
|
|
: c-flit |
|
Display? IF dup f@ scratch represent 0= |
|
IF 2drop scratch 3 min 0 .string |
|
ELSE IF '- cemit THEN 1- |
|
scratch over c@ cemit '. cemit 1 /string 0 .string |
|
'E cemit |
|
dup abs 0 <# #S rot sign #> 0 .string bl cemit |
|
THEN THEN |
|
float+ ; |
|
|
: c-s" |
: c-s" |
count 2dup + aligned -rot |
count 2dup + aligned -rot |
Display? |
Display? |
Line 373 VARIABLE C-Pass
|
Line 383 VARIABLE C-Pass
|
|
|
CREATE C-Table |
CREATE C-Table |
' lit A, ' c-lit A, |
' lit A, ' c-lit A, |
|
' flit A, ' c-flit A, |
' (s") A, ' c-s" A, |
' (s") A, ' c-s" A, |
' (.") A, ' c-." A, |
' (.") A, ' c-." A, |
' "lit A, ' c-c" A, |
' "lit A, ' c-c" A, |