home *** CD-ROM | disk | FTP | other *** search
- Listing 1. BOOKS.PRG
-
- 1 SET TALK OFF
- 2 SET ECHO OFF
- 3 SET STATUS OFF
- 4 * ----- declare public process control variables -----
- 5 PUBLIC mv_exit
- 6 mv_exit = "N"
- 7 mv_count = 0
- 8 * ----- call routine to provide edit access -----
- 9 DO bookedit
- 10 * ----
- 11 SET STATUS ON
- 12 SET TALK ON
- 13 * ----
- 14 RETURN
- 15 ================ End of Main Program of BOOKS.PRG=========
-