28 lines
391 B
Forth
28 lines
391 B
Forth
VARIABLE X
|
|
0 X !
|
|
|
|
"Change X from 0 to 3\n" TYPE
|
|
{ 1 2 { 3 X ! } X PRESERVED } CATCH DROP
|
|
.S
|
|
"X: " TYPE X @ . EOL
|
|
|
|
DEPTH NDROP
|
|
EOL
|
|
|
|
"Change X from 4 to 7 and then QUIT\n" TYPE
|
|
4 X !
|
|
{ 5 6 { 7 X ! QUIT } X PRESERVED } CATCH DROP
|
|
.S
|
|
"X: " TYPE X @ . EOL
|
|
|
|
DEPTH NDROP
|
|
EOL
|
|
|
|
"QUIT without changing X from 8\n" TYPE
|
|
8 X !
|
|
{ 9 10 ' QUIT X PRESERVED } CATCH DROP
|
|
.S
|
|
"X: " TYPE X @ . EOL
|
|
|
|
DEPTH NDROP
|