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

; aspect script to fetch genie news if not logged on do so and then log off
; you must store your user id, password in metakey 9 to use these scripts
; this means there is only one place to change your password
;
; this is shareware if you use it please submit a $5.00 regristration fee
; to the author $15.00 for the entire sequence in this package
; Stephen Decarie
; 62 Beacham Way NW
; Calgary
; Alberta T3K 1R8
; Canada
;
;
define entry "7" ; change this to your dial dir number for Genie

proc main ; script to fetch the news
integer logstat =0 ; 0 means not currently on;
string theday
clear ; clear screen
atsay 1 25 46 "GEnie News Retrieval"
date theday
fatsay 1 50 46 "Date %s" theday
scroll 22 2 0 23 79 31
if CONNECTED
logstat = 1 ; currently logged on
goto GNEWS
endif
; not logged on so do so now
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 entry
transmit "HHH" ;
waitfor "#=" 30 ;
set duplex full ;

metakey 9; transmit user id/password stored in metakey 9
transmit "^M" ; followed by a carriage return
set duplex half ; restore screen display

waitfor "Enter #, elp, or to continue?" 45
pause 1;
transmit " ^M" ; a carriage return
waitfor "?" ;

GNEWS:
transmit "M8013"
transmit "^M"
waitfor "P 8013?" forever
transmit "1"
transmit "^M"
delete "NEWS.TXT"
waitquiet 30
log open "NEWS.TXT"
transmit "1,2,3,4,5,6,7"
transmit "^M"
waitfor "uit" forever
waitquiet 10
log close
if logstat != 1
transmit "BYE" ; go back to off
transmit "^M" ; carriage return
endif
execute "GENSTART.ASX" ; go back to main menu
endproc