home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / archives / ckc192.zip / CKEVT.KSC < prev    next >
Text File  |  1996-11-10  |  365b  |  9 lines

  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}
  9.