bat * Telephone quick list *

bat	IF .%1 <> . SKIP 4
bat	BEGTYPE
 You did not enter a name to lookup
 Enter "TELE <name1> <name2> ... <name5>"
end

bat -fill.list IF .%1 = . EXIT

bat    * THIS BEGINS THE TELEPHONE LIST TO LOOK UP
bat	BEGSTACK
284-3408 JOHN SMITH
987-2429 EVA DOBBS
255-5234 ED JOURNAL
232-1123 ROBERT ANDERSON
end

bat -read.list
bat	READ %A %B %C
bat	IF %A = %1 GOTO -print.entry
bat	IF %B = %1 GOTO -print.entry
bat	IF %C = %1 GOTO -print.entry
bat	IF %Q = S GOTO -read.list
bat	TYPE %1 		:Could not be found in the telephone list!

bat -prep.4.next
bat	%1 = %2
bat	%2 = %3
bat	%3 = %4
bat	%4 = %5
bat	%5 =
bat	GOTO -fill.list

bat -print.entry
bat	TYPE %B 	%C	:TELEPHONE NUMBER IS: %A
bat	STACK.PURGE
bat	GOTO -prep.4.next

