home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / BUSINESS / PST09A.ZIP / UPDATE.ASP < prev    next >
Encoding:
Text File  |  1991-05-13  |  2.2 KB  |  92 lines
  1. ;*************************************************************************
  2. ;* UPDATE.ASP   1991 RazorLogic Systems                                  *
  3. ;*                                                                       *
  4. ;* A script file for weekly downloads of selected files from DJNS        *
  5. ;*                                                                       *
  6. ;*************************************************************************
  7.  
  8. STRING THE_FILE
  9.  
  10. proc main
  11.   CLEAR
  12.   LOCATE 0 0
  13.   BOX 0 0 4 25 14
  14.   ATSAY 2 2 14 "Weekly Update......"
  15.  
  16.   ATSAY 8 10 5 "ENTER LOG FILE NAME (e.g. April27.dmp) : "
  17.   ATGET 8 52 15 12 THE_FILE 
  18.  
  19.   LOCATE 10 0
  20.  
  21.   LOG  OPEN THE_FILE
  22.  
  23.   PAUSE 1
  24.   TRANSMIT "//DJA^M"
  25.   WAITFOR "^^" 10
  26.       TRANSMIT "IND P1^M"
  27.   WAITFOR "^^" 10
  28.       TRANSMIT "TRN P1^M"
  29.   WAITFOR "^^" 10
  30.   PAUSE 1 
  31.       TRANSMIT ";1AMR P1^M"  ;Use the semicolon only the first time for //HQ
  32.   WAITFOR "^^" 10
  33.       TRANSMIT "1ARC P1^M"
  34.   WAITFOR "^^" 10
  35.       TRANSMIT "1BA P1^M"
  36.   WAITFOR "^^" 10
  37.       TRANSMIT "7BBRC P1^M"
  38.   WAITFOR "^^" 10
  39.       TRANSMIT "1BS P1^M"
  40.   WAITFOR "^^" 10
  41.       TRANSMIT "1C P1^M"
  42.   WAITFOR "^^" 10
  43.       TRANSMIT "1CAT P1^M"
  44.   WAITFOR "^^" 10
  45.       TRANSMIT "1CMB P1^M"
  46.   WAITFOR "^^" 10
  47.       TRANSMIT "1GE P1^M"
  48.   WAITFOR "^^" 10
  49.       TRANSMIT "1HXL P1^M"
  50.   WAITFOR "^^" 10
  51.       TRANSMIT "1IBM P1^M"
  52.   WAITFOR "^^" 10
  53.       TRANSMIT "1ICN P1^M"
  54.   WAITFOR "^^" 10
  55.       TRANSMIT "7INTC P1^M"
  56.   WAITFOR "^^" 10
  57.       TRANSMIT "1LSI P1^M"
  58.   WAITFOR "^^" 10
  59.       TRANSMIT "7MCON P1^M"
  60.   WAITFOR "^^" 10
  61.       TRANSMIT "1OCF P1^M"
  62.   WAITFOR "^^" 10
  63.       TRANSMIT "7PTEC P1^M"
  64.   WAITFOR "^^" 10
  65.       TRANSMIT "7PYRD P1^M"
  66.   WAITFOR "^^" 10 
  67.       TRANSMIT "1SE P1^M"
  68.   WAITFOR "^^" 10
  69.       TRANSMIT "7SGAT P1^M"
  70.   WAITFOR "^^" 10
  71.       TRANSMIT "1SGI P1^M"
  72.   WAITFOR "^^" 10
  73.       TRANSMIT "7SUNW P1^M"
  74.   WAITFOR "^^" 10
  75.       TRANSMIT "1T P1^M"
  76.   WAITFOR "^^" 10
  77.       TRANSMIT "1TAN P1^M"
  78.   WAITFOR "^^" 10
  79.       TRANSMIT "1UH P1^M"
  80.   WAITFOR "^^" 10
  81.       TRANSMIT "1VAR P1^M"
  82.   WAITFOR "^^" 10 
  83.       TRANSMIT "1ZE P1^M"
  84.   WAITFOR "^^" 10
  85.       TRANSMIT "7ZLOG P1^M"
  86.   WAITFOR "^^" 10
  87.       TRANSMIT "DISC^M"
  88.   
  89.   LOG CLOSE
  90.  
  91. endproc
  92.