home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 05B / ZMAIL3.ZIP / POOF.ASP < prev    next >
Encoding:
Text File  |  1992-05-03  |  611 b   |  34 lines
  1.  
  2. PROC MAIN
  3.  
  4.    clear 30
  5.    ATSAY 1 3 14 "Time to Execute Script: (HH:MM) "
  6.    ATGET 1 36 15 5 S1
  7.    ATSAY 3 8 14 "Name of Script to Execute: "
  8.    ATGET 3 36 15 8 S2
  9.    integer C1 = 1
  10.    usermsg "Acknowledged"
  11.    statmsg "Waiting till specified time to execute BBS call ... "
  12.  
  13.    if NULL S1
  14.       usermsg "  Dialing!  "
  15.       execute S2
  16.    endif
  17.  
  18.    while not zero C1
  19.       S3=$TIME1
  20.       ATSAY 5 25 14 "Time Now: "
  21.       ATSAY 5 36 15 S3
  22.       strcmp S1 S3 5
  23.          if success
  24.             c1 = 0
  25.          endif
  26.    endwhile
  27.  
  28.    usermsg "  POOF!!!!  "
  29.  
  30.    execute S2
  31.  
  32. ENDPROC
  33.  
  34.