> SELECT INKEY$
>
>    CASE "r"
>      recNum = 1
>      FN ReadRecord(recNum)
>      PRINT dayt$,tyme$,ampm$,who$
>
>    CASE "w"
>      recNum = 1
>      dayt$ = "mm/dd"
>      tyme$ = "00:00"
>      ampm$ = "am"
>      who$ = "Who?"
>      FN WriteRecord(recNum)
>      dayt$ = ""
>      tyme$ = ""
>      ampm$ = ""
>      who$ = ""
>
>  END SELECT

Oops, I just spotted another problem. I think the above segment should be:

 SELECT INKEY$

    CASE "r"
      recNum = 1
      FN ReadRecord(recNum)
      PRINT appointmentsRec.dayt$,appointmentsRec.tyme$,
      PRINT appointmentsRec.ampm$,appointmentsRec.who$

    CASE "w"
      recNum = 1
      appointmentsRec.dayt$ = "mm/dd"
      appointmentsRec.tyme$ = "00:00"
      appointmentsRec.ampm$ = "am"
      appointmentsRec.who$ = "Who?"
      FN WriteRecord(recNum)
      appointmentsRec.dayt$ = ""
      appointmentsRec.tyme$ = ""
      appointmentsRec.ampm$ = ""
      appointmentsRec.who$ = ""

  END SELECT

There might me more, but this should get you headed toward the right 
track.
 0"0
 =J= a  y
  "