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