{PORTPEOPLE}

{F8}{TYPE;contact}{ENTER}

{AltF7}{COMMENT;unmark all items}
{COMMENT;------MARK ALL ITEMS-----------------------}
{CtlHome}{CtlLeft}{F7}
{COMMENT;---------CREATE DUMMY ITEM AND EXTERNAL NOTE FILE---------}
{INS}dummy{ENTER}
{F5}{F10}faagenda.adr{ENTER;2}
{COMMENT;---------CLEAN OUT ALL OLD TEXT FROM EXTERNAL NOTE FILE----}
{CtlHome}{F7}{CtlEnd}{F4}
{F5}

{COMMENT;--------BEGIN LOOP FOR PROCESSING ITEMS-------------}
{LABEL;begin new item}
{COMMENT;-------GET name,phone----------}
{AltJ}
{CtlLeft}{RIGHT}{LET;%n;#HIGHLIGHT_VALUE}
{RIGHT}{LET;%t;#HIGHLIGHT_VALUE}
{COMMENT;-----GET NOTES-----}
{LEFT}{F5}{CtlHome}{DOWN}{COMMENT; skip phone line}
{F7}{CtlEnd}{F3}{COMMENT;copy text to clipboard}
{F5}{COMMENT;exit note}
{F7}{COMMENT;unmark item}
{END}{CtlLeft}{COMMENT;go to dummy item}
{F5}{CtlEnd}{COMMENT;go to end of note file}
{COMMENT;---------Write info to note file--------}
{TYPE;%n}{TYPE;"      "}{TYPE;%t}{ENTER}
{TYPE;#CLIPBOARD}
{ENTER}{ENTER}{COMMENT;extra enter to make sure you have a blank line}
{F5}



{IF;(#MARK_COUNT>0);begin new item}
{COMMENT;---------END OF LOOP FOR PROCESSING ITEMS-------}

{COMMENT;-------------delete dummy item-----------}
{CtlEnd}{CtlLeft}{AltF4}