implement saving and restoring input, at least for string (file not tested)

2021-11-27 01:37:16 +01:00
parent 877c98d262
commit 8d66238f47
5 changed files with 136 additions and 36 deletions
@@ -0,0 +1,19 @@
+\ 1 debug
+
+VARIABLE SI_INC 0 SI_INC !
+
+: SI1
+   SI_INC @ >IN +!
+   15 SI_INC !
+;
+
+: S$ S" SAVE-INPUT SI1 RESTORE-INPUT 12345" ;
+
+S$ EVALUATE SI_INC @
+
+. . .
+
+\ 0 2345 15
+
+bye
+