You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
176 B
20 lines
176 B
3 years ago
|
\ 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
|
||
|
|
|