Category : Files from Magazines
Archive   : DBMS9106.ZIP
Filename : EHRMANN2

LISTING 2

; ------------------------------------------------------------
; CUSTOMER application - Driver Script
; DBMS - Speaking of PAL - June, 1991 - Listing 2
; ------------------------------------------------------------

; display loading message

clear
cursor off
@ 4,10 ?? "Welcome to the CUSTOMER application"
@ 6,10 ?? "Loading Procedures - please wait"
style blink
@ 6,43 ?? ". . ."
style

; clean up if user ran this script interactively

release vars all
reset

; allow the application to locate itself

setdir sdir()

; check for existence of program library

if not isfile("CUSTOMER.LIB") then
quit "PCE Plus program files not found"
endif

; define minimum memory swap point

setswap 35000

; set up default library and invoke the top proc

autolib = "CUSTOMER"
CUSTOMER_MENU()

; ------------------------------------------------- end of script