home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 199.img / HYPE4.ZIP / MAIL.HP < prev    next >
Text File  |  1990-05-08  |  1KB  |  49 lines
  1.     
  2.     option("blank",yes)
  3.     key string(S(0),"")
  4.     option("blank",no)
  5.     option("ignore case",yes)
  6.     change timeout(60)
  7.     set flag(F(9),false)
  8.     ifnot get environment(S(1),"HA5_TRACE") set flag(F(9),false)
  9.     if string match(S(1),"true") set flag(F(9),true)
  10.  
  11.     if flag(F(9)) print("Mail.hp has been entered")
  12.  
  13. label(10)
  14.     if flag(F(9)) print("label(10)")
  15.     type("/r(R)ead, (S)end, or (E)xit mail? ",0)
  16.     ifnot fetch character(S(1),"") end()
  17.  
  18.     if string match(S(1),"R") branch(20)
  19.     if string match(S(1),"S") branch(30)
  20.     if string match(S(1),"E") branch(40)
  21.     branch(10)
  22.  
  23. label(20)
  24.     if flag(F(9)) print("label(20)")
  25.     branch subroutine(50)
  26.     run("readmail /S(0)")
  27.     branch(10)
  28.  
  29. label(30)
  30.     if flag(F(9)) print("label(30)")
  31.     branch subroutine(50)
  32.     run("sendmail /S(0)")
  33.     branch(10)
  34.  
  35. label(40)
  36.     if flag(F(9)) print("label(40)")
  37.     branch subroutine(50)
  38.     type("/r",0)
  39.     end()
  40.  
  41. label(50)
  42.     if flag(F(9)) print("label(50)")
  43.     type("/S(1)/r",0)
  44.     return()
  45.  
  46. label(990)
  47.     if flag(F(9)) print("label(990)")
  48.     end()
  49.