mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-09-06 13:54:23 +00:00
1 line
3.0 KiB
Plaintext
1 line
3.0 KiB
Plaintext
\\ Undo for the VolksForth command line cas2013apr05 The tool extends the VolksForth "decode" function with an UNDO. If there was a typo in the previous line pressing the UNDO key will re-fetch the last entered line so that it can be edited Published in VD 3/87 by Bernd Pennemann \ Undo for Atari ST cas2013apr05Onlyforth | $6100 Constant #undo : undoSTdecode ( addr pos1 key -- addr pos2 ) over 0= if #undo case? if at? >r >r over #tib @ dup span ! type r> r> at exit then then STdecode ; Input: keyboard STkey STkey? undoSTdecode STexpect ; keyboard save |