| Revision 10780,
357 bytes
checked in by brlewis, 27 years ago
(diff) |
|
This commit was generated by cvs2svn to compensate for changes in r10779,
which included commits to RCS files with non-trunk default branches.
|
| Line | |
|---|
| 1 | define on_exit echo \27[r\27[0m\27[1;1H\27[2JGoodbye! |
|---|
| 2 | define \%g \27[0m\27[32m\27[7m\frepeat(=,80)\27[0m\27[34m |
|---|
| 3 | echo \27[1;1H\27[2J\%g\27[47m |
|---|
| 4 | ask \%n { What is your name\? \27[30m\27[7m} |
|---|
| 5 | echo \%g |
|---|
| 6 | echo \27[35m\27[5m Welcome to Kermit, \27[30m\27[5m\%n\13\10\%g |
|---|
| 7 | echo \13\10\27[0J\27[7;24r\27[22;1H |
|---|
| 8 | set prompt {\%g\13\10 \27[33mWhat is your command\? \27[34m} |
|---|
Note: See
TracBrowser
for help on using the repository browser.
