PROC MAIN
;
;   SIGNON TO DJNR
;
  WAITFOR "log in:"
  PAUSE 1
  TRANSMIT "dow1;;"
  WAITFOR "????"
  PAUSE 1
  TRANSMIT "djns^M"
;
;   SEND PASSWORD
;
  WAITFOR "PASSWORD"
  PAUSE 1
  TRANSMIT "password^M"
  WAITFOR "QUERY"
  PAUSE 1
;
;   OPEN LOG FILE
;
  LOG OPEN "PCPLUS.LOG"
;
;   START HISTORICAL QUOTES
;
  TRANSMIT "//hq^M"
  WAITFOR "^S^Q"
  PAUSE 1
;
;   RETRIEVE YEAR OF DATA
;   FOR EACH SYMBOL
;
  CALL YEAR WITH "CS"
  CALL YEAR WITH "IBM"
  CALL YEAR WITH "KMAG"
  CALL YEAR WITH "BIR"
  CALL YEAR WITH "COMS"
  PAUSE 1
;
;   CLOSE LOG AND QUIT
;
  LOG CLOSE
  TRANSMIT "disc^M"
  PAUSE 1
  HANGUP
  PAUSE 1
  QUIT
ENDPROC
;
;   RETRIEVE ONE YEAR OF DATA FOR SYMBOL
;
PROC YEAR
  STRPARM SYMB
  INTEGER K
  TRANSMIT SYMB
  TRANSMIT " P1^M"
  WAITFOR "^S^Q"
  FOR K=1 UPTO 20
    TRANSMIT "^M"
    WAITFOR "^S^Q"
  ENDFOR
ENDPROC