implement pictured numbers

2021-11-21 11:20:59 +01:00
parent 9b7f780d91
commit 5600c4d106
6 changed files with 145 additions and 0 deletions
@@ -838,6 +838,7 @@ T{ ' W1 >BODY -> HERE }T
 T{ W1 -> HERE 1 + }T
 T{ W1 -> HERE 2 + }T

+0 [if] \ TODO
 \ ------------------------------------------------------------------------
 TESTING EVALUATE

@@ -882,6 +883,7 @@ DROP -> 0 }T            \ BLANK LINE RETURN ZERO-LENGTH STRING
 : GS4 SOURCE >IN ! DROP ;
 T{ GS4 123 456
 -> }T
+[then]

 \ ------------------------------------------------------------------------
 TESTING <# # #S #> HOLD SIGN BASE >NUMBER HEX DECIMAL