home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 199.img / HYPE4.ZIP / LOCAL.HP < prev    next >
Text File  |  1990-05-08  |  735b  |  34 lines
  1. label(10)
  2.     branch subroutine(100)
  3.     wipe screen()
  4.     position(1,1)
  5.     prompt("HyperACCESS//5 E-Mail")
  6.     position(3,1)
  7.     key string(S(0),"Please enter your name: ")
  8.     put environment("HA5_LOCAL","TRUE")
  9.     run("chkmail /S(0)")
  10.     run("mail /S(0)")
  11.     prompt("Processing data files, one moment please.../n")
  12.     option("blank",yes)
  13.     run("maintain")
  14.     option("blank",no)
  15.     branch subroutine(200)
  16.     prompt("Thank you/n")
  17.     end()
  18.  
  19. label(100)
  20.     store system("/SAVE")
  21.     emulate("tty")
  22.     option("local",yes)
  23.     option("echo",no)
  24.     option("fduplex",no)
  25.     option("use line wait",no)
  26.     option("send line feeds",no)
  27.     option("receive line feeds",yes)
  28.     character delay(0)
  29.     return()
  30. label(200)
  31.     option("local",no)
  32.     load system("/SAVE")
  33.     return()
  34.