forth-created pad

for some reason a separate PAD section wasn't working.
this also fixes the 18 digit Issue. there are still issues i need to
sort out though.

1 files changed, 5 insertions, 8 deletions

diff --git a/jefs.fs b/jefs.fs
index c169242..7575cbf 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -40,21 +40,18 @@ decimal
 
 \ PNO
 \ mostly from pforth
-\ currently broken if unsigned number has more than 18 digits
-\ unfortunately this also seems to include any negative number
-\ it continues reading words but a number literal causes a crash
+255 allot variable pad
 variable hld
-: <# dap hld ! ;
+: <# pad hld ! ;
 : hold 1 hld -! ( chr ) hld @ c! ;
 : sign 0< if [ char - ] literal hold then ;
 : # base @ /mod swap 9 over > if 7 + then [ char 0 ] literal + hold ; \ issue is in here i think?
 : #s begin # dup 0= until ;
-: #> drop hld @ dap over - ;
+: #> drop hld @ pad over - ;
 
-: ud. <# #s #> say ;
+: ud. <# #s #> say space ;
 
 : t ." testtesttesttest" cr ;
 
-bye
-\ 100000000000000000 ud. bye
+10000000000000000000 ud. 5 bye
 \ t testing bye