ckevt.ksc

来自「linux终端仿真程序」· KSC 代码 · 共 9 行

define on_exit echo \27[r\27[0m\27[1;1H\27[2JGoodbye!
define \%g \27[0m\27[32m\27[7m\frepeat(=,80)\27[0m\27[34m
echo \27[1;1H\27[2J\%g\27[47m
ask \%n { What is your name\? \27[30m\27[7m}
echo \%g
echo \27[35m\27[5m Welcome to Kermit, \27[30m\27[5m\%n\13\10\%g
echo \13\10\27[0J\27[7;24r\27[22;1H
set prompt {\%g\13\10 \27[33mWhat is your command\? \27[34m}