;*************************************************************************
;* UPDATE.ASP   1991 RazorLogic Systems                                  *
;*                                                                       *
;* A script file for weekly downloads of selected files from DJNS        *
;*                                                                       *
;*************************************************************************

STRING THE_FILE

proc main
  CLEAR
  LOCATE 0 0
  BOX 0 0 4 25 14
  ATSAY 2 2 14 "Weekly Update......"

  ATSAY 8 10 5 "ENTER LOG FILE NAME (e.g. April27.dmp) : "
  ATGET 8 52 15 12 THE_FILE 

  LOCATE 10 0

  LOG  OPEN THE_FILE

  PAUSE 1
  TRANSMIT "//DJA^M"
  WAITFOR "^^" 10
      TRANSMIT "IND P1^M"
  WAITFOR "^^" 10
      TRANSMIT "TRN P1^M"
  WAITFOR "^^" 10
  PAUSE 1 
      TRANSMIT ";1AMR P1^M"  ;Use the semicolon only the first time for //HQ
  WAITFOR "^^" 10
      TRANSMIT "1ARC P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1BA P1^M"
  WAITFOR "^^" 10
      TRANSMIT "7BBRC P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1BS P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1C P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1CAT P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1CMB P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1GE P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1HXL P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1IBM P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1ICN P1^M"
  WAITFOR "^^" 10
      TRANSMIT "7INTC P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1LSI P1^M"
  WAITFOR "^^" 10
      TRANSMIT "7MCON P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1OCF P1^M"
  WAITFOR "^^" 10
      TRANSMIT "7PTEC P1^M"
  WAITFOR "^^" 10
      TRANSMIT "7PYRD P1^M"
  WAITFOR "^^" 10 
      TRANSMIT "1SE P1^M"
  WAITFOR "^^" 10
      TRANSMIT "7SGAT P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1SGI P1^M"
  WAITFOR "^^" 10
      TRANSMIT "7SUNW P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1T P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1TAN P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1UH P1^M"
  WAITFOR "^^" 10
      TRANSMIT "1VAR P1^M"
  WAITFOR "^^" 10 
      TRANSMIT "1ZE P1^M"
  WAITFOR "^^" 10
      TRANSMIT "7ZLOG P1^M"
  WAITFOR "^^" 10
      TRANSMIT "DISC^M"
  
  LOG CLOSE

endproc