home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / RMAREA.T < prev    next >
Encoding:
Text File  |  1993-03-04  |  1009 b   |  40 lines
  1.     echoc "\nrmarea.t    %s7%s8 starts at %t\n"
  2.     on !c s;set;off
  3.     put "A"
  4.     pat
  5.     pat 0v " minute(s) remaining for this"
  6.     pat 2v "Select area: "
  7.     pat 3c "<CR> for More" "\r"
  8.     pat 4c "<CR> for a listing" "\r"
  9.     pat 5c "<CR> (enter) for a l" "\r"
  10.     pat 7c "<=> non-stop" "="
  11.     pat 8c "n to go non-stop," "n"
  12.     pat 9c "listing of MORE message areas: " "\r"
  13.     wait -f5
  14.     if n echoc "TIMEOUT waiting for prompt!"
  15.     if 0 goto tup
  16.     pat 1 "Character inside of the <> marks:"
  17.     put "%s8\r"
  18.     wait
  19.     put "rn"
  20.     pat 2v "message, n to go non-stop:"
  21.     wait
  22.     put "N\r"
  23.     pat 0 " minute(s) remaining for this"
  24.     pat 1v "\nEnd of messages"
  25.     pat 2l "\nMessage #"
  26.     pat 3 "\nEnd of new mail"
  27.     wait
  28.     while 2 echoc "Prefix    %s7%s8  Downloaded %t" wait
  29.     w;  sleep 10;  put "\r"
  30.     if 0 goto tup
  31.     pat 5c " (Enter) to continue:" "\r"
  32.     pat 4iv "\nSelect Character inside of the"
  33.     wait
  34.     expand %lib/rmaupl.t %s7%s8*
  35.     echoc "\nrmarea.t    %s7%s8 ends at %t\n"
  36.     w
  37.     return
  38.  
  39. tup:    echoc "Time-UP Message SEEN in %s7%s8";  return
  40.