Shareware Overload/ShartewareOverload.cdr/database/prg_hlp.zip/MENU1.PRG

Text File | 1987-04-05 | 26KB | 886 lines

************************************************************************
*
*                    MENU1.PRG
*                  THINGS TO DO PROGRAM
*
************************************************************************
A = "MENU1"
do while .T.
   help_code = "01"
   mrec = 0
   select 1
   use todo
   goto top
   @ 0,0 clear
   do banner with "THINGS TO DO"
   set color to I
   do center with 1, "F1 - FOLLOW-UP MENU"
   set color to
   answer = space(3)
   counter = 0
   row = 4
   new_screen = 1
   message = space(65)
   if reccount() = 0
      do while .T.
         @ row+1,0 say "Enter: "
         @ row+1,10 get message
         read
         if len(trim(message)) # 0
            append blank
            replace subject with message
            replace date with date()
            @ row+1,0 clear
            @ ROW+1,10 say message
            row = row+1
            message = space(65)
         else
            return
         endif
         if row > 22
            @ 4,0 clear
            row = 4
         endif
      enddo
   else
      ok = .T.
      goto top
      do while .T.
         @ row+1,0 say ltrim(str(recno()))
         @ row+1,5 say date
         @ row+1,15 say subject
         row = row+1
         skip
         if eof()
            do file_mng
            return
         endif
         if row>20
            MSG1 = "1. CONTINUE"
            MSG2 = "2. EDIT    "
            MSG3 = "0. MENU    "
            MSG4 = "XXXX"
            MSG5 = "XXXX"
            MSG6 = "XXXX"
            MSG7 = "XXXX"
            MSG8 = "XXXX"
            MSG9 = "XXXX"
            MSG0 = "XXXX"
            NUM_ITEMS = 3
            X = 23
            Y = 1
            W = LEN(MSG1)
            MSTRING = "CEM"
            DO CLEARIT WITH X-1,Y,X,78
            @ X-1,1 SAY BAR
            DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
            CHOICE = STR(SELECTION,1)
            do case
            CASE upper(choice) = "0"
               return
            CASE upper(choice) = "1"
               mrec = recno()
            CASE upper(choice) = "2"
               do file_mng
               if ok
                  return
               endif
            endcase
            new_screen = new_screen + 1
            goto mrec
            @ 4,0 clear
            row = 4
         endif
      enddo
   endif
enddo

**********************************************************************


procedure file_mng
mrec = recno()
topack = .F.

MSG1 = "CONTINUE"
MSG2 = "EDIT    "
MSG3 = "PRINT   "
MSG4 = "DELETE  "
MSG5 = "QUIT    "
MSG6 = "MENU    "
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 6
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "CEPDQM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
ANSWER = CHOICE
do case
case upper(answer) = "3"
   do print
   ok = .F.
   return
case upper(answer) = "0"
   ok = .T.
   return
case upper(answer) = "5"
   @ 0,0 clear
   quit
case upper(answer) = "2"
   do while .T.
      counter = 0
      do clearit with 22,1,24,78
      @ 22,1 say " "
      input "Enter record number..." to counter
      if counter = 0
         ok = .F.
         return
      endif
      goto counter
      row = 4
      do case
      case new_screen = 2
         counter = counter - 17
      case new_screen = 3
         counter = counter - 34
      case new_screen = 4
         counter = counter - 51
      endcase
      @ row+counter,15 get subject
      read
      answer = space(3)
   enddo

case upper(answer) = "1" .or. len(trim(ltrim(answer))) = 0
   if eof()
      answer = space(3)
   endif

case answer = "4"
   counter = 0
   do while .T.
      do clearit with 22,1,24,78
      @ 22,1 say " "
      input "Enter record number..." to counter
      if counter > 0
         topack = .T.
         delete record counter
         row = 4
         do case
         case new_screen = 2
            counter = counter - 17
         case new_screen = 3
            counter = counter - 34
         case new_screen = 4
            counter = counter - 51
         endcase
         @ row+counter,0 say space(80)
         counter = 0
      else
         @ 22,1 clear
            exit
      endif
   enddo
   MSG1 = "CONTINUE"
   MSG2 = "EDIT    "
   MSG3 = "PRINT   "
   MSG4 = "DELETE  "
   MSG5 = "QUIT    "
   MSG6 = "MENU    "
   MSG7 = "XXXX"
   MSG8 = "XXXX"
   MSG9 = "XXXX"
   MSG0 = "XXXX"
   NUM_ITEMS = 6
   X = 23
   Y = 1
   W = LEN(MSG1)
   MSTRING = "CEPDQM"
   DO CLEARIT WITH X-1,Y,X,78
   @ X-1,1 SAY BAR
   DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
   CHOICE = STR(SELECTION,1)
   ANSWER = CHOICE
   do case
   case upper(answer) = "3"
      do print
      if topack
         pack
      endif
      ok = .F.
      return
   case upper(answer) = "0"
      if topack
         pack
      endif
      ok = .T.
      return
   case upper(answer) = "5"
      @ 0,0 clear
      if topack
         pack
      endif
      quit
   case upper(answer) = "1"
      *         exit
   case upper(answer) = "2"
      do while .T.
         counter = 0
         do clearit with 22,1,24,78
         @ 22,1 say " "
         input "Enter record number..." to counter
         if counter = 0
            ok = .F.
            return
         endif
         goto counter
         row = 4
         do case
         case new_screen = 2
            counter = counter - 17
         case new_screen = 3
            counter = counter - 34
         case new_screen = 4
            counter = counter - 51
         endcase
         @ row+counter,15 get subject
         read
         answer = space(3)
      enddo
   case answer = "4"
      counter = 0
      do while .T.
         do clearit with 22,1,24,78
         @ 22,1 say " "
         input "Enter record number..." to counter
         if counter > 0
            topack = .T.
            delete record counter
            row = 4
            do case
            case new_screen = 2
               counter = counter - 17
            case new_screen = 3
               counter = counter - 34
            case new_screen = 4
               counter = counter - 51
            endcase
            @ row+counter,0 say space(80)
            counter = 0
         else
            @ 22,1 clear
                exit
         endif
      enddo
   endcase
endcase
if topack
   pack
endif

MSG1 = "MAIN MENU         "
MSG2 = "ENTER NEW MESSAGES"
MSG3 = "XXXX"
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 2
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "ME"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
if upper(choice) = "1"
   ok = .F.
   return
endif
if topack
   @ 4,0 clear
   row = 4
endif
do while .T.
   @ row+1,0 say "Enter: "
   @ row+1,10 get message
   read
   if counter = 789
      do print
      ok = .F.
      return
   endif
   if len(trim(message)) # 0
      append blank
      replace subject with message
      replace date with date()
      @ row+1,0 clear
      @ ROW+1,10 say message
      row = row+1
      message = space(65)
   else
      ok = .F.
      return
   endif
   if row > 22
      @ 4,0 clear
      row = 4
   endif
enddo
ok = .F.
return
**********************************************************************
************************************************************************
*
*                             FOLLOW
*
************************************************************************

PROCEDURE FOLLOW
do while .T.
   do while .T.
      store date() to mdate1, mdate2
      store date() + 30 to mdate3
      @ 0,0 clear
      do banner with "FOLLOW - UPS"
      heading1 = "1. ENTER DATA               "
      heading2 = "2. SEARCH BY START DATE     "
      heading3 = "3. SEARCH BY ACTION DATE    "
      heading4 = "4. SEARCH BY COMPLETION DATE"
      heading5 = "5. SEARCH ALL DATA          "
      heading6 = "0. RETURN TO MAIN MENU      "
      heading7 = "XXXX"
      heading8 = "XXXX"
      heading9 = "XXXX"
      num_items = 6
      X = 7
      Y = 25
      W = 28
      @ 22,1 say bar
      @ 23,2 say "Use UP and DOWN arrows to highlight choice...Press ENTER to select"
      do lightbar with num_items,X,Y,W,heading1,heading2,heading3,heading4,heading5,heading6,heading7,heading8,heading9
      choice = str(selection,1)
      do case
      case choice = "1"
         set index to done1, done2, done3
         goto top
         do while .T.
            @ 4,0 clear
            append blank
            @ 5,5 say "Enter initiating date:"
            @ 5,40 get mdate1
            @ 7,5 say "Enter action date:"
            @ 7,40 get mdate2
            @ 9,5 say "Enter follow-up date:"
            @ 9,40 get mdate3
            @ 11,5 say "Subject:"
            @ 11,15 get subject
            @ 13,5 say "Action:"
            @ 13,15 get action1
            @ 14,15 get action2
            @ 15,15 get action3
            @ 17,5 say "Contacts:"
            @ 17,15 get contact1
            @ 18,15 get contact2
            @ 19,15 get contact3
            @ 20,15 get contact4
            read
            replace date1 with mdate1
            replace date2 with mdate2
            replace date3 with mdate3
            MSG1 = "1. ENTER ANOTHER "
            MSG2 = "2. FOLLOW-UP MENU"
            MSG3 = "0. MAIN MENU     "
            MSG4 = "XXXX"
            MSG5 = "XXXX"
            MSG6 = "XXXX"
            MSG7 = "XXXX"
            MSG8 = "XXXX"
            MSG9 = "XXXX"
            MSG0 = "XXXX"
            NUM_ITEMS = 3
            X = 23
            Y = 1
            W = LEN(MSG1)
            MSTRING = "EFM"
            DO CLEARIT WITH X-1,Y,X,78
            @ X-1,1 SAY BAR
            DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
            CHOICE = STR(SELECTION,1)
            do case
            case choice = "2"
               exit
            case choice = "0"
               return
            endcase
         enddo
      case choice     = "2"
         set index to done1
         goto top
         @ 4,0 clear
         @ 7,15 say "Enter Start Date:"
         @ 7,40 get mdate1
         @ 9,15 say "Enter End Date:"
         @ 9,40 get mdate2
         read
         if mdate2 = ctod("  /  /  ")
            goto bottom
            mdate2 = date1
            goto top
         endif
         do while mdate1 > date1 .and. .not. eof()
            skip
         enddo
         do while date1 <= mdate2 .and. .not. eof()
            @ 4,0 clear
            @ 5,5 say "Initiating date:"
            @ 5,40 say date1
            @ 7,5 say "Action date:"
            @ 7,40 say date2
            @ 9,5 say "Follow-up date:"
            @ 9,40 say date3
            @ 11,5 say "Subject:"
            set color to I
            @ 11,15 say trim(subject)
            set color to
            if len(alltrim(action1)) + len(alltrim(action2)) + len(alltrim(action3)) > 0
               @ 13,5 say "Action:"
               @ 13,15 say action1
               @ 14,15 say action2
               @ 15,15 say action3
            endif
            if len(alltrim(contact1)) + len(alltrim(contact2)) + len(alltrim(contact3)) + len(alltrim(contact4)) > 0
               @ 17,5 say "Contacts:"
               @ 17,15 say contact1
               @ 18,15 say contact2
               @ 19,15 say contact3
               @ 20,15 say contact4
            endif
            @ 22,40 say "Delete? (Y/N) " get purge picture "!"
            read
            if purge = "Y"
               delete
            endif
            MSG1 = "1. EDIT "
            MSG2 = "2. PRINT"
            MSG3 = "0. MENU "
            MSG4 = "XXXX"
            MSG5 = "XXXX"
            MSG6 = "XXXX"
            MSG7 = "XXXX"
            MSG8 = "XXXX"
            MSG9 = "XXXX"
            MSG0 = "XXXX"
            NUM_ITEMS = 3
            X = 23
            Y = 1
            W = LEN(MSG1)
            MSTRING = "EPM"
            DO CLEARIT WITH X-1,Y,X,78
            @ X-1,1 SAY BAR
            DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
            CHOICE = STR(SELECTION,1)
            answer = choice
            if answer = "0"
               return
            endif
            if upper(answer) = "2"
               set device to print
               @ 4,0
               @ 5,5 say "Initiating date:"
               @ 5,40 say date1
               @ 7,5 say "Action date:"
               @ 7,40 say date2
               @ 9,5 say "Follow-up date:"
               @ 9,40 say date3
               @ 11,5 say "Subject:"
               @ 11,15 say subject
               @ 13,5 say "Action:"
               @ 13,15 say action1
               @ 14,15 say action2
               @ 15,15 say action3
               @ 17,5 say "Contacts:"
               @ 17,15 say contact1
               @ 18,15 say contact2
               @ 19,15 say contact3
               @ 20,15 say contact4
               eject
               set device to screen
            endif
            if upper(answer) = "1"
               @ 4,0 clear
               @ 5,5 say "Initiating date:"
               @ 5,40 get date1
               @ 7,5 say "Action date:"
               @ 7,40 get date2
               @ 9,5 say "Follow-up date:"
               @ 9,40 get date3
               @ 11,5 say "Subject:"
               @ 11,15 get subject
               @ 13,5 say "Action:"
               @ 13,15 get action1
               @ 14,15 get action2
               @ 15,15 get action3
               @ 17,5 say "Contacts:"
               @ 17,15 get contact1
               @ 18,15 get contact2
               @ 19,15 get contact3
               @ 20,15 get contact4
               read
            endif
            skip
         enddo
      case choice     = "3"
         set index to done2
         goto top
         @ 4,0 clear
         @ 7,15 say "Enter Start Date:"
         @ 7,40 get mdate1
         @ 9,15 say "Enter End Date:"
         @ 9,40 get mdate2
         read
         if mdate2 = ctod("  /  /  ")
            goto bottom
            mdate2 = date2
            goto top
         endif
         do while mdate1 > date2 .and. .not. eof()
            skip
         enddo
         do while date2 <= mdate2 .and. .not. eof()
            @ 4,0 clear
            @ 5,5 say "Initiating date:"
            @ 5,40 say date1
            @ 7,5 say "Action date:"
            @ 7,40 say date2
            @ 9,5 say "Follow-up date:"
            @ 9,40 say date3
            @ 11,5 say "Subject:"
            set color to I
            @ 11,15 say trim(subject)
            set color to
            if len(alltrim(action1)) + len(alltrim(action2)) + len(alltrim(action3)) > 0
               @ 13,5 say "Action:"
               @ 13,15 say action1
               @ 14,15 say action2
               @ 15,15 say action3
            endif
            if len(alltrim(contact1)) + len(alltrim(contact2)) + len(alltrim(contact3)) + len(alltrim(contact4)) > 0
               @ 17,5 say "Contacts:"
               @ 17,15 say contact1
               @ 18,15 say contact2
               @ 19,15 say contact3
               @ 20,15 say contact4
            endif
            @ 22,40 say "Delete? (Y/N) " get purge picture "!"
            read
            if purge = "Y"
               delete
            endif
            MSG1 = "1. EDIT "
            MSG2 = "2. PRINT"
            MSG3 = "0. MENU "
            MSG4 = "XXXX"
            MSG5 = "XXXX"
            MSG6 = "XXXX"
            MSG7 = "XXXX"
            MSG8 = "XXXX"
            MSG9 = "XXXX"
            MSG0 = "XXXX"
            NUM_ITEMS = 3
            X = 23
            Y = 1
            W = LEN(MSG1)
            MSTRING = "EPM"
            DO CLEARIT WITH X-1,Y,X,78
            @ X-1,1 SAY BAR
            DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
            CHOICE = STR(SELECTION,1)
            answer = choice
            if answer = "0"
               return
            endif
            if upper(answer) = "2"
               set device to print
               @ 4,0
               @ 5,5 say "Initiating date:"
               @ 5,40 say date1
               @ 7,5 say "Action date:"
               @ 7,40 say date2
               @ 9,5 say "Follow-up date:"
               @ 9,40 say date3
               @ 11,5 say "Subject:"
               @ 11,15 say subject
               @ 13,5 say "Action:"
               @ 13,15 say action1
               @ 14,15 say action2
               @ 15,15 say action3
               @ 17,5 say "Contacts:"
               @ 17,15 say contact1
               @ 18,15 say contact2
               @ 19,15 say contact3
               @ 20,15 say contact4
               eject
               set device to screen
            endif
            if upper(answer) = "1"
               @ 4,0 clear
               @ 5,5 say "Initiating date:"
               @ 5,40 get date1
               @ 7,5 say "Action date:"
               @ 7,40 get date2
               @ 9,5 say "Follow-up date:"
               @ 9,40 get date3
               @ 11,5 say "Subject:"
               @ 11,15 get subject
               @ 13,5 say "Action:"
               @ 13,15 get action1
               @ 14,15 get action2
               @ 15,15 get action3
               @ 17,5 say "Contacts:"
               @ 17,15 get contact1
               @ 18,15 get contact2
               @ 19,15 get contact3
               @ 20,15 get contact4
               read
            endif
            skip
         enddo
      case choice     = "4"
         set index to done3
         goto top
         @ 4,0 clear
         @ 7,15 say "Enter Start Date:"
         @ 7,40 get mdate1
         @ 9,15 say "Enter End Date:"
         @ 9,40 get mdate2
         read
         if mdate2 = ctod("  /  /  ")
            goto bottom
            mdate2 = date3
            goto top
         endif
         do while mdate1 > date3 .and. .not. eof()
            skip
         enddo
         do while date3 <= mdate2 .and. .not. eof()
            @ 4,0 clear
            @ 5,5 say "Initiating date:"
            @ 5,40 say date1
            @ 7,5 say "Action date:"
            @ 7,40 say date2
            @ 9,5 say "Follow-up date:"
            @ 9,40 say date3
            @ 11,5 say "Subject:"
            set color to I
            @ 11,15 say trim(subject)
            set color to
            if len(alltrim(action1)) + len(alltrim(action2)) + len(alltrim(action3)) > 0
               @ 13,5 say "Action:"
               @ 13,15 say action1
               @ 14,15 say action2
               @ 15,15 say action3
            endif
            if len(alltrim(contact1)) + len(alltrim(contact2)) + len(alltrim(contact3)) + len(alltrim(contact4)) > 0
               @ 17,5 say "Contacts:"
               @ 17,15 say contact1
               @ 18,15 say contact2
               @ 19,15 say contact3
               @ 20,15 say contact4
            endif
            @ 22,40 say "Delete? (Y/N) " get purge picture "!"
            read
            if purge = "Y"
               delete
            endif
            MSG1 = "1. EDIT "
            MSG2 = "2. PRINT"
            MSG3 = "0. MENU "
            MSG4 = "XXXX"
            MSG5 = "XXXX"
            MSG6 = "XXXX"
            MSG7 = "XXXX"
            MSG8 = "XXXX"
            MSG9 = "XXXX"
            MSG0 = "XXXX"
            NUM_ITEMS = 3
            X = 23
            Y = 1
            W = LEN(MSG1)
            MSTRING = "EPM"
            DO CLEARIT WITH X-1,Y,X,78
            @ X-1,1 SAY BAR
            DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
            CHOICE = STR(SELECTION,1)
            answer = choice
            if answer = "0"
               return
            endif
            if upper(answer) = "2"
               set device to print
               @ 4,0
               @ 5,5 say "Initiating date:"
               @ 5,40 say date1
               @ 7,5 say "Action date:"
               @ 7,40 say date2
               @ 9,5 say "Follow-up date:"
               @ 9,40 say date3
               @ 11,5 say "Subject:"
               @ 11,15 say subject
               @ 13,5 say "Action:"
               @ 13,15 say action1
               @ 14,15 say action2
               @ 15,15 say action3
               @ 17,5 say "Contacts:"
               @ 17,15 say contact1
               @ 18,15 say contact2
               @ 19,15 say contact3
               @ 20,15 say contact4
               eject
               set device to screen
            endif

            if upper(answer) = "1"
               @ 4,0 clear
               @ 5,5 say "Initiating date:"
               @ 5,40 get date1
               @ 7,5 say "Action date:"
               @ 7,40 get date2
               @ 9,5 say "Follow-up date:"
               @ 9,40 get date3
               @ 11,5 say "Subject:"
               @ 11,15 get subject
               @ 13,5 say "Action:"
               @ 13,15 get action1
               @ 14,15 get action2
               @ 15,15 get action3
               @ 17,5 say "Contacts:"
               @ 17,15 get contact1
               @ 18,15 get contact2
               @ 19,15 get contact3
               @ 20,15 get contact4
               read
            endif
            skip
         enddo
      case choice = "0"
         return

      case choice = "5"
         set index to
         goto top
         do while .not. eof()
            @ 4,0 clear
            @ 5,5 say "Initiating date:"
            @ 5,40 say date1
            @ 7,5 say "Action date:"
            @ 7,40 say date2
            @ 9,5 say "Follow-up date:"
            @ 9,40 say date3
            @ 11,5 say "Subject:"
            set color to I
            @ 11,15 say trim(subject)
            set color to
            if len(alltrim(action1)) + len(alltrim(action2)) + len(alltrim(action3)) > 0
               @ 13,5 say "Action:"
               @ 13,15 say action1
               @ 14,15 say action2
               @ 15,15 say action3
            endif
            if len(alltrim(contact1)) + len(alltrim(contact2)) + len(alltrim(contact3)) + len(alltrim(contact4)) > 0
               @ 17,5 say "Contacts:"
               @ 17,15 say contact1
               @ 18,15 say contact2
               @ 19,15 say contact3
               @ 20,15 say contact4
            endif
            @ 22,40 say "Delete? (Y/N) " get purge picture "!"
            read
            if purge = "Y"
               delete
            endif
            MSG1 = "1. EDIT "
            MSG2 = "2. PRINT"
            MSG3 = "0. MENU "
            MSG4 = "XXXX"
            MSG5 = "XXXX"
            MSG6 = "XXXX"
            MSG7 = "XXXX"
            MSG8 = "XXXX"
            MSG9 = "XXXX"
            MSG0 = "XXXX"
            NUM_ITEMS = 3
            X = 23
            Y = 1
            W = LEN(MSG1)
            MSTRING = "EPM"
            DO CLEARIT WITH X-1,Y,X,78
            @ X-1,1 SAY BAR
            DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
            CHOICE = STR(SELECTION,1)
            answer = choice
            if answer = "0"
               return
            endif
            if upper(answer) = "2"
               set device to print
               @ 4,0
               @ 5,5 say "Initiating date:"
               @ 5,40 say date1
               @ 7,5 say "Action date:"
               @ 7,40 say date2
               @ 9,5 say "Follow-up date:"
               @ 9,40 say date3
               @ 11,5 say "Subject:"
               @ 11,15 say subject
               @ 13,5 say "Action:"
               @ 13,15 say action1
               @ 14,15 say action2
               @ 15,15 say action3
               @ 17,5 say "Contacts:"
               @ 17,15 say contact1
               @ 18,15 say contact2
               @ 19,15 say contact3
               @ 20,15 say contact4
               eject
               set device to screen
            endif
            if upper(answer) = "1"
               @ 4,0 clear
               @ 5,5 say "Initiating date:"
               @ 5,40 get date1
               @ 7,5 say "Action date:"
               @ 7,40 get date2
               @ 9,5 say "Follow-up date:"
               @ 9,40 get date3
               @ 11,5 say "Subject:"
               @ 11,15 get subject
               @ 13,5 say "Action:"
               @ 13,15 get action1
               @ 14,15 get action2
               @ 15,15 get action3
               @ 17,5 say "Contacts:"
               @ 17,15 get contact1
               @ 18,15 get contact2
               @ 19,15 get contact3
               @ 20,15 get contact4
               read
            endif
            skip
         enddo
      endcase
   enddo
enddo
********************************** END MEN1.PRG *************************