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

; Start up Menu for Genie Scripts
;
; Aspect script for Procomm used to select other scripts
;
; Stephen Decarie 11 - 11 -92
; Gemail = S.Decarie

; define user_id " , " ; not used
define entry "7" ; change this to the entry number for GEnie
; in your dialing directory in most scripts
proc main;
integer selectn
string charsel
string next_file

clear
box 1 15 22 56 44
atsay 2 21 31 "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
atsay 3 21 31 "ºProcom Script Menu Selectionº"
atsay 4 21 31 "º1. logon to GEnie º"
atsay 5 21 31 "º2. send a FAX via Gemail º"
atsay 6 21 31 "º3. Get Gemail º"
atsay 7 21 31 "º4. Genie NEWS º"
atsay 8 21 31 "º5. Download latest Newsbytesº"
atsay 9 21 31 "º6. Send Gemail º"
atsay 10 21 31 "º7. Profile Search º"
atsay 11 21 31 "º8. log off Genie º"
atsay 12 21 31 "º9. Terminal mode(already on)º"
atsay 13 21 31 "ºA. Upload mail file º"
atsay 14 21 63 "ºB. º"
atsay 15 21 31 "ºC. Download IBM PC library º"
atsay 16 21 63 "ºD. Upload to IBM PC libraryº"
atsay 17 21 63 "ºE. º"
atsay 18 21 63 "ºF. º"
atsay 19 21 63 "ºG. º"
atsay 20 21 31 "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
select:
atsay 21 21 46 "Enter Selection"
locate 21 40
keyget selectn; no need to hit enter this way
key2ascii selectn charsel ;
switch charsel;
case "1"
assign next_file "GENIELOG.asx"
endcase
case "2"
assign next_file "GENIEFAX.asx"
endcase
case "3"
assign next_file "GETMAIL.asx"
endcase
case "4"
assign next_file "NEWS.asx"
endcase
case "5"
assign next_file "NEWSBYTE.asx"
endcase
case "6"
assign next_file "SNDMAIL.asx"
endcase
case "7"
assign next_file "PROFSCH.asx"
endcase
case "8"
if CONNECTED
assign next_file "LOFGENIE.asx"
else
exit
endif
endcase
case "9"
if CONNECTED
terminal ; if already logged on
else
fatsay 21 24 44 "Must be logged on to select terminal mode"
goto select
endif
endcase
case "A"
assign next_file "FILESEND.ASX"
endcase
case "B"
fatsay 21 24 44 "Not implemented yet reselect"
goto select
endcase
case "C"
assign next_file "DLDIBM.asx"
endcase
case "D"
fatsay 21 24 44 "Not implemented yet reselect"
goto select
endcase
case "E"
fatsay 21 24 44 "Not implemented yet reselect"
goto select
endcase
case "F"
fatsay 21 24 44 "Not implemented yet reselect"
goto select
endcase
case "G"
fatsay 21 24 44 "Not implemented yet reselect"
goto select
endcase
default
atsay 21 24 46 "Invalid selection try again"
pause 5
goto select
endcase
endswitch
execute next_file

endproc