Category : Communication (modem) tools and utilities
Archive   : PRCMSCRP.ZIP
Filename : GENIELOG.ASP

;***********************************************************************
;* *
;* GENIE.ASP - Stephen W. Decarie *
;* *
;* An ASPECT script for logging on to GENIE information service. *
;* *
;***********************************************************************
;
;************************************************************************
define dial_dir "7"
define user_id "XKY25626,barbara"
; changed to used metakey 9 defined as userid,password
;***********************************************************************

proc main;
clear ; clear screen
locate 0 0 ; locate cursor at 0,0
box 0 0 4 22 14 ; draw box
atsay 2 2 14 "Logging onto GENIE." ; put message in box
locate 6 0 ; cursor to row 6
pause 1 ;
dial dial_dir ;
transmit "HHH" ;
waitfor "#=" 30 ;
set duplex full ;
; transmit USER_ID ;
metakey 9;
transmit "^M" ; followed by a carriage return
set duplex half ; restore screen display
waitfor "continue?" 30 ;
pause 1;
transmit " ^M" ; a carriage return
waitfor "?" ;
exit
endproc