Listing 10.  "Show Record" Global Routine



    1 *************
    2 * Global routine "Show Record"
    3   SetDBObjects Address[CurIndex]                     ;show the record
    4   SetWindowTitle "Database Demo:  Record #"||CurIndex     ;show record number
    5   SetObjectState ".Name",ON                          ;put cursor in Name Field
    6 * End of routine "Show Record"
    7 *************