home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 1 / 1994-12_-_Disc_1.iso / patches / rwpupd.exe / PROCOMM.ASP < prev    next >
Text File  |  1994-03-03  |  3KB  |  54 lines
  1. ;***********************************************************************
  2. ;*            Real Weather Pilot - (C) 1993-1994 TekMate               *                                                            *
  3. ;*                                                                     *
  4. ;* A sample ASPECT script file for logging onto CompuServe via local   *
  5. ;* CIS number using ProComm Plus - DataStorm Technologies.             *
  6. ;* Acquires aviation weather for BOS, JFK, ORD, LAX, SFO, SEA          *
  7. ;*                                                                     *
  8. ;* As a user, you need to make up your own AIRPORT list and CIS.LOG.   *
  9. ;***********************************************************************
  10. ;
  11. ;***********************************************************************
  12. ; The following three defines should be customized with the dialing    *
  13. ; directory entry for your local CIS number, your CompuServe ID, and   *
  14. ; your CompuServe password.  The rest of the script should need no     *
  15. ; modification.  COMPILE WITH ASPCOMP.EXE before using.                *
  16. ;***********************************************************************
  17.                               ;=========================================
  18.                               ; #1 refers to your dialing directory entry
  19.                               ; may be any number in your's
  20. define CIS_NUMBER "1"         ; make sure entry is full duplex, VT102 term
  21. define ID "77777,7777"        ; your ID number goes here
  22. define PASSWORD "MY PASSWORD" ; your password goes here
  23.                               ;=========================================
  24. proc main                                       ; start of main procedure
  25.    clear                                        ; clear screen
  26.    locate 0 0                                   ; locate cursor at 0,0
  27.    box 0 0 4 29 14                              ; draw box
  28.    atsay 2 2 14 "Logging onto COMPUSERVE..."    ; put message in box
  29.    locate 6 0                                   ; cursor to row 6
  30.    if not fromddir                              ; if not via Dial Dir link
  31.       dial CIS_NUMBER                           ; use dialing directory entry
  32.    endif
  33.    pause 3                    ; wait three seconds
  34.    transmit "^C"              ; transmit CTRL-C
  35.    waitfor "User ID:"         ; wait for "User ID:" to come in COM port
  36.    transmit ID                ; send your ID
  37.    transmit "^M"              ; send carriage return
  38.    waitfor "Password:"        ; wait for "Password:" to come in COM port
  39.    transmit PASSWORD          ; send password
  40.    transmit "^M"              ; send carriage return
  41.    waitfor "!" 60             ; wait for CompuServe prompt
  42.    transmit "g wea^M"         ; go to WEATHER forum
  43.  
  44.                               ;TURN ON CAPTURE LOG HERE ===============
  45.    log open "C:\RWP\CIS.LOG"                     ;My raw CIS log file
  46.    waitfor "choice"                              ;DELETE THE OLD ONE. IT
  47.                                                  ;APPENDS to old ones.
  48.    transmit "9^M"                                ;Select AVIATION WX
  49.    waitfor "choice"                              ;Select FT,SA,FDLO/U
  50.    transmit "FT BOS,JFK,ORD,LAX,SFO,SEA;SA `";FDLO/U `"^M"
  51.    waitfor "choice"
  52.    transmit "BYE^M"
  53. endproc                       ; end of main procedure
  54.