My Pine Macros

These macros will allow you to control Pine with the title bar set to hermes.cam.ac.uk - PuTTY.

If you are using Pine through any other mechanism you will probably have to change the MENU and STATE lines below to correspond to the title bar entry for you r application.

MENU "HERMES" {
	STATE "hermes.cam.ac.uk - PuTTY" {
		COMMAND "Notify Unix Support" {
			SCRIPT {
				SendKeys "c"
				SendKeys "unix-support@cus.cam.ac.uk"
				SendKeys "{Down 3}"
				Wait 100
				SendKeys "I'm down in PO4 talking to my machine..."
				SendKeys "{Ctrl+x}"
			}
		}

		COMMAND "Deny That" {
			KEYS {
				n{Enter\}
			}
		}

		COMMAND "Index Folder" {
			KEYS "i"
		}

		COMMAND "Delete Message" {
			KEYS "d"
		}

		COMMAND "Reply To Unix Support" {
			SCRIPT {
				SendKeys "{Ctrl+r}"
				SendKeys "{Ctrl+y}"
				Wait 200
				SendKeys "unix-support@cus.cam.ac.uk"
			}
		}

		COMMAND "Next Message" {
			KEYS "n"
		}

		COMMAND "Jump To <1to100>" {
			SCRIPT {
				SendKeys "j"
				SendKeys ""+_arg1+""
				SendKeys "{Enter}"
			}
		}

		COMMAND "Save <1To10> To  Folder" {
			SCRIPT {
				i=VAL(_arg1)
				While (i)
				SendKeys "s"
				SendKeys "_arg2"
				SendKeys "Enter"
				wend
			}
		}

		COMMAND "Commit Changes" {
			KEYS "x"
		}

		COMMAND "Swap Mic To Dragon Dictate" {
			SCRIPT {
				SendSystemKeys "{F10}"
				Wait 400
				SendSystemKeys "{NumKey+}" 
			}
		}

		COMMAND "Enter Username" {
			KEYS {
				dnb1002\n
			}
		}

		COMMAND "Quit Pine" {
			KEYS "q"
		}

		COMMAND "Start Pine" {
			SCRIPT {
				SendKeys "pine {Enter}"
			}
		}


		COMMAND "Ok That" {
			KEYS "y"
		}

		COMMAND "Delete <1To10> Messages" {
			SCRIPT {
				i= VAL(_arg1)
				while (i)
				SEndKeys "d"
				i=i-1
				wend
			}
		}

		COMMAND "Reply To Message" {
			SCRIPT {
				SendKeys "r"
				Wait 100
				SendKeys "y"
				Wait 100
				SendKeys "y"
				Wait 100
				SendSystemKeys "{ScrollLock}"
			}
		}

		COMMAND "Compose Message" {
			SCRIPT {
				SendKeys "C"
				SendSystemKeys "{ScrollLock}"
			}
		}

		COMMAND "Reply To Sender" {
			SCRIPT {
				SendKeys "r"
				Wait 100
				SendKeys "y"
				Wait 100
				SendKeys "n"
				Wait 100
				SendSystemKeys "{ScrollLock}"
			}
		}

		COMMAND "Main Menu" {
			KEYS "m"
		}

		COMMAND "Postpone Message" {
			KEYS {
				SendKeys "{Ctrl+o}"
			}
		}

		COMMAND "View Message" {
			KEYS "v"
		}

		COMMAND "Send Message" {
			SCRIPT {
				SendKeys "{Ctrl+x}"
				SendSystemKeys "{ScrollLock}"
			}
		}

		COMMAND "Cancel Message" {
			KEYS {
				{Ctrl+c\}
			}
		}

		COMMAND "Read Message" {
			SCRIPT {
				SendKeys "v"
			}
		}

		COMMAND "Cut The Rest" {
			SCRIPT {
				SendKeys "{Ctrl+Shift+6}{Ctrl+w}{Ctrl+v}{Ctrl+k}"
			}
		}

		COMMAND "Set Mark" {
			SCRIPT {
				SendKeys "{Ctrl+Shift+6}"
			}
		}

		COMMAND "Spell Check That" {
			SCRIPT {
				SendKeys "{Ctrl+t}"
			}
		}

		COMMAND "Insert File" {
			SCRIPT {
				SendKeys "{Ctrl+r}"
			}
		}

		COMMAND "Beginning Of LIne" {
			SCRIPT {
				SendKeys "{Ctrl+a}"
			}
		}

		COMMAND "Kill Line" {
			SCRIPT {
				SendKeys "{Ctrl+Shift+6}{Ctrl+e}{Ctrl+k}"
			}
		}

		COMMAND "Cancal That" {
			SCRIPT {
				SendKeys "{Ctrl+c}"
			}
		}

		COMMAND "Cheers Darran" {
			KEYS {
				Darran\n--------\nDarran Bryant              | +44 1
				223 334728\nUnix Support               | dnb1002@cus
				.cam.ac.uk\nCambridge  University      | www-uxsup.c
				sx.cam.ac.uk/~dnb1002/
			}
		}

		COMMAND "Top Of Document" {
			SCRIPT {
				SendKeys "{Ctrl+w}{Ctrl+y}"
			}
		}

		COMMAND "End Of Document" {
			SCRIPT {
				SendKeys "{Ctrl+w}{Ctrl+v}"
			}
		}

		COMMAND "Cut That" {
			SCRIPT {
				SendKeys "{Ctrl+k}"
			}
		}

		COMMAND "Paste That" {
			SCRIPT {
				SendKeys "{Ctrl+u}"
			}
		}

		COMMAND "Beginning Of Document" {
			SCRIPT {
				SendKeys "{Ctrl+w}{Ctrl+y}"
			}
		}

		COMMAND "Send Mail to " {
			SCRIPT {
				SendKeys "m"
				SendKeys "c"
				SendKeys "n"
				Wait 250
				If _arg1="Jane" then
				SendKeys "Jane{Enter}"
				end if
				If _arg1="Lads" then
				SendKeys "Lads{Enter}"
				end if
				SendKeys "{Down 2}"
				SendSystemKeys "{ScrollLock}"
			}
		}

		COMMAND "Save To " {
			SCRIPT {
				SendKeys "s"
				Wait 250
				SendKeys ""+_arg1+""
				Wait 250
				SendKeys "{Enter}"
				Wait 100
				SendKeys "n"
			}
		}

		LIST "1To10" {
			"1"
			"2"
			"3"
			"4"
			"5"
			"6"
			"7"
			"8"
			"9"
			"10"
		}

		LIST "1to100" {
			"1"
			"2"
			"3"
			"4"
			"5"
			"6"
			"7"
			"8"
			"9"
			"10"
			"11"
			"12"
			"13"
			"14"
			"15"
			"16"
			"17"
			"18"
			"19"
			"20"
			"21"
			"22"
			"23"
			"24"
			"25"
			"26"
			"27"
			"28"
			"29"
			"30"
			"31"
			"32"
			"33"
			"34"
			"35"
			"36"
			"37"
			"38"
			"39"
			"40"
			"41"
			"42"
			"43"
			"44"
			"45"
			"46"
			"47"
			"48"
			"49"
			"50"
			"60"
			"70"
			"80"
			"90"
			"100"
		}

		LIST "folder" {
			"unix"
			"rsi"
			"voice"
			"keep"
			"passwd"
			"pics"
			"unix-keep"
		}

		LIST "people" {
			"Jane"
			"Dave"
			"Julie"
			"Bob"
			"Alex"
			"Jim"
			"Sean"
			"Matt"
			"Lads"
			"UnixSupport"
			"Darran"
		}
	}
}