My Pine Macros

These macros will allow you to Telnet over to a Unix machine and run Pine.

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 your application.

MENU "TELNET" {
	STATE "Telnet" {
		COMMAND "Compose Message" {
			KEYS "C"
		}

		COMMAND "Send Message" {
			KEYS {
				{Ctrl+x}
			}
		}

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

		COMMAND "Ok That" {
			KEYS {
				y{Enter}
			}
		}

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

		COMMAND "Main Menu" {
			KEYS "m"
		}

		COMMAND "Index Folder" {
			KEYS "i"
		}

		COMMAND "Reply To Message" {
			KEYS "r"
		}

		COMMAND "Delete Message" {
			KEYS "d"
		}

		

		COMMAND "Next Message" {
			KEYS "n"
		}

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

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

		COMMAND "Save To " {
			SCRIPT {
				SendKeys "s"
				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 "Postpone Message" {
			KEYS {
				{Ctrl+o}
			}
		}

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

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

		COMMAND "View Message" {
			KEYS "v"
		}

		COMMAND "Mail " {
			SCRIPT {
				SendKeys "m"
				SendKeys "i"
				SendKeys "c"
				Wait 200
				SendKeys ""+_arg1+""
				SendKeys "{Enter 3}"
			}
		}

		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"
		}

		LIST "window" {
			"ursa"
			"xterm"
			"local"
			"netscape"
			"pine"
			"emacs"
			"next"
			"previous"
		}

		LIST "people" {
			"Bob"
			"Jeff"
			"Dave"
			"Alex"
			"Jim"
			"Sean"
			"Matt"
			"Lads"
			"UnixSupport"
		}
	}
}