home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
mincom15.zip
/
scriptdemo
< prev
next >
Wrap
Text File
|
1993-04-22
|
496b
|
24 lines
# A little demonstration of the possibilities of "runscript".
# This script can be executed by typing: "runscript scriptdemo".
goto main
left:
print "\010 \010\010*\c"
return
right:
print "\010 *\c"
return
main:
! stty -echo cbreak
verbose off
print Demo! press 'q' to move left, 'w' to move right, 'ESC' to stop.
print " *\c"
expect {
"q" gosub left
"w" gosub right
"\033" break
}
print \nEnd of demonstration.
! stty -cbreak echo
sleep 1