Here is a list of commands that you can say to control Pine by voice:
[delete <Number/1 to 9>] [jump to <Number/1 to 99>] [jump to folder <folders>] [mail <addresses>] [save <Number/1 to 9> to <folders>] [save to <folders>] [insert file] [kill line] [auto repeat] [beginning of line] [bottom of message] [cancel] [cheers darran] [commit changes] [compose] [cut the rest] [cut it] [delete] [deny that] [end of line] [end of message] [exit] [eXpunge] [full headers] [get help] [index Folder] [insert reply] [listen from telnet] [main menu] [move] [next new] [next page] [next] [ok that] [other commands] [paste it] [postpone] [previous page] [print] [read] [reply] [send] [set mark] [spell check] [take address] [top of message] [unmark] [view] [where is]
The following script will install the above command into the Telnet vocabulary:
;============================================================================== ;Date revised: 10-6-99 ;A means of controlling Pine through a telnet client. ; ;============================================================================== switch-to-vocabulary /create /module Telnet Telnet switch-to-group /create Telnet switch-to-group /create Pine switch-to-group /create addresses switch-to-group /create folders switch-to-group /create Telnet add-word "[Listen from pine]" /script "SetHomeGroup \"Telnet\", \"Telnet\", \"Pine\", \"Telnet\", 0" switch-to-group /create Pine add-word "[Delete]" /script "j= VAL(+_1_to_9_1) do SendKeys \"d\" j=j-1 LOOP UNTIL j=0" add-word "[Jump to ]" /script "SendKeys \"j\" SendKeys \"\"+_1_to_99_1+\"\" SendKeys \"{Enter}\"" add-word "[Jump to folder ]" /script "SendKeys \"g\" SendKeys \"\"+folders_1+\"\" SendKeys \"{Enter}\"" /nsc add-word "[Mail ]" /script "SendKeys \"m\" SendKeys \"i\" SendKeys \"c\" Wait 200 SendKeys \"\"+addresses_1+\"\" SendKeys \"{Enter}\" SetDictationMode 1 SendKeys \"{Enter}\"" add-word "[Right words]" /script "j= VAL(+_1_to_99_1) do SendKeys \"{Ctrl+t}Control_L{Ctrl+t}{Space}\" j=j-1 LOOP UNTIL j=0" add-word "[save to ]" /script "j= VAL(+_1_to_9_1) do SendKeys \"s\" Sendkeys \"\"+folders_1+\"\" Sendkeys \"{Enter}\" SendKeys \"n\" j=j-1 LOOP UNTIL j=0" /nsc add-word "[save to ]" /script "SendKeys \"s\" Sendkeys \"\"+folders_1+\"\" Sendkeys \"{Enter}\" SendKeys \"n\"" /nsc add-word "[Select words]" /script "SendKeys \"{Ctrl+Shift+6}\" j= VAL(+_1_to_99_1) do SendKeys \"{Ctrl+t}Control_L{Ctrl+t}{Space}\" j=j-1 LOOP UNTIL j=0" add-word "[Beginning of line]" /keys {Ctrl+a} /nsc add-word "[Bottom of message]" /keys {Ctrl+w}{Ctrl+v} /nsc add-word [cancel] /keys {Ctrl+c} /nsc add-word "[Cheers Darran]" /keys "{Enter} Cheers Darran --- Darran Bryant Email : dnb1002@cus.cam.ac.uk Unix Support Tel : (01223) 334728 Computing Service Cambridge University" add-word "[Commit Changes]" /keys x add-word [compose] /keys c add-word "[Cut the rest]" /keys {Ctrl+Shift+6}{Ctrl+w}{Ctrl+v}{Ctrl+k} /nsc add-word "[Cut it]" /keys {Ctrl+k} /nsc add-word "[Delete q]" /keys d add-word [delete] /keys d add-word "[Deny that]" /keys n add-word "[End of line]" /keys {Ctrl+e} /nsc add-word "[End of message]" /keys {Ctrl+w}{Ctrl+v} /nsc add-word [exit] /keys {Ctrl+x} add-word [eXpunge] /keys x add-word "[Full headers]" /keys {Ctrl+r} /nsc add-word "[Get help]" /keys {Ctrl+g} /nsc add-word "[Index Folder]" /keys I add-word "[Insert file]" /keys {Ctrl+r} /nsc add-word "[Insert reply]" /keys {Ctrl+r}{Ctrl+p}{Ctrl+p}{Ctrl+p}{Ctrl+p}{Ctrl+p}{Ctrl+p}{Ctrl+p}unix-support@ucs /nsc add-word "[Kill line]" /keys {Ctrl+Shift+6}{Ctrl+e}{Ctrl+k} /nsc add-word "[Listen from Telnet]" /script "SetHomeGroup \"Telnet\"" /nsc add-word "[Mail the lads]" /script "SendKeys \"m\" SendKeys \"i\" SendKeys \"c\" Wait 200 SendKeys \"Lads{Enter}\" SendKeys \"{Enter}\" SetDictationMode 1 SendKeys \"{Enter}\"" /nsc add-word "[Mail Unix Support]" /script "SendKeys \"m\" SendKeys \"i\" SendKeys \"c\" Wait 200 SendKeys \"unix-support@cus.cam.ac.uk{Enter}\" SendKeys \"{Enter}\" SetDictationMode 1 SendKeys \"{Enter}\"" /nsc add-word "[Main Menu]" /keys m add-word [Move] /script "SendKeys \"S\" SendKeys \"unix\" SendKeys \"{Enter}\" SendKeys \"n\"" add-word "[Next New]" /keys {Tab} /nsc add-word "[Next page]" /keys {Ctrl+v} /nsc add-word [Next] /keys n add-word "[OK that]" /keys y /nsc add-word "[Other Commands]" /keys o add-word "[Paste it]" /keys {Ctrl+u} /nsc add-word [Postpone] /keys {Ctrl+o} /nsc add-word "[Previous page]" /keys {Ctrl+y} /nsc add-word [print] /keys Y add-word [Read] /keys v add-word [Reply] /keys R add-word [Send] /keys {Ctrl+x} /nsc add-word "[Set mark]" /keys {Ctrl+Shift+6} /nsc add-word "[Spell check]" /keys {Ctrl+t} /nsc add-word "[take address]" /keys T add-word "[top of message]" /keys {Ctrl+w}{Ctrl+y} /nsc add-word [unmark] /keys u add-word [View] /keys V add-word "[Where is]" /keys {Ctrl+w} /nsc switch-to-group /create addresses add-word "[Big Matt]" /keys BigMatt add-word "[unix support]" /keys unix-support@cus.cam.ac.uk add-word Alex /keys add-word Bob /keys add-word Daveo /keys add-word jim /keys add-word Mark /keys add-word Matt /keys add-word Sean /keys switch-to-group /create folders add-word keep /keys add-word post /keys add-word received /keys add-word security /keys add-word sent-mail /keys add-word sunworld /keys add-word unix /keys add-word vms /keys add-word voice /keys