home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jason Aller Floppy Collection
/
199.img
/
HYPE4.ZIP
/
SPLITSCR.HP
< prev
next >
Wrap
Text File
|
1990-05-08
|
2KB
|
56 lines
; splitscr.hp -- HyperACCESS/5 split screen script
;
; $Revision: 1.0 $
; $Date: 13 Jul 1989 12:48:38 $
;
;
; This example demonstrates how the VT100 emulator can be used to alter
; the screen display when the remote system is expecting to be communicating
; with a TTY terminal. When this script begins running, all received text
; will appear in the top half of your screen display while all of the text
; that you send to the remote system will be displayed in the lower half
; of the display. If the remote system that you're connecting to requires
; any type of terminal other than a TTY, this script may not work correctly.
;
emulate("vt100")
option("tenths",true)
option("temporary settings", yes)
label(10)
wipe screen()
prompt("/x1B)0/x0E")
position(12,1)
prompt("moooooooooooooooooooooooooooooooooRECEIVINGoooooooooooooooooooooooooooooooooooj/n")
prompt("looooooooooooooooooooooooooooooooooSENDINGooooooooooooooooooooooooooooooooooook")
position(24,1)
prompt("/x0F")
prompt("/x1B7")
position(11,1)
cursor save()
label(20)
prompt("/x1B[1;11r")
cursor restore()
if wait key(s(0),6000) branch(50)
cursor save()
option("status",false)
position(25,1)
key string(s(9),"/x07You haven't typed for 10 minutes. Press ENTER to continue or ESC to cancel.")
option("status",true)
branch(20)
label(50)
cursor save()
set string(s(1),"/s(0)")
if string match(s(0),"<ENTER>") set string(s(1),"/r/n")
prompt("/x1B[14;24r")
prompt("/x1B8/s(1)")
prompt("/x1B7")
type("/s(0)")
branch(20)
label(980)
end()