home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
dbms_mag
/
9106
/
ehrmann2
< prev
next >
Wrap
Text File
|
1991-04-29
|
992b
|
45 lines
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