** setup the application environment
_screen.WindowState= 2
_screen.Caption= "Printshop Limited v1.0"
_screen.BackColor= RGB(125,128,128)
_screen.Picture = 'C:\TUTORIAL\LESSON5\Z. WALLPAPER\DOWNLOAD-DESKTOP-TIGREAL-FALLEN-GUARD-WALLPAPER.JPG'
ON SHUTDOWN DO cleanup IN MAIN.PRG
SET TALK OFF
SET DELETED ON
SET EXCLUSIVE OFF
SET DATE TO MDY
SET STATUS BAR ON
CLEAR
CLEAR ALL
CLOSE ALL
SET DEFAULT TO c:\tutorial\lesson5
SET PATH TO data;forms;reports;prgs;menus
** turn off the toolbar
HIDE WINDOW standard
** setup menus
DO MAINMENU.MPR
SET MARK OF BAR 10 OF _MVIEW TO .T.
** call login form
** start the READ EVENT
READ EVENT
** clean up
CLEAR
_screen.BackColor=RGB(255,255,255)
SET SYSMENU TO DEFAULT
SHOW WINDOW standard
ON SHUTDOWN
PROCEDURE Cleanup
CLEAR EVENTS && stop event processing
** close all open forms before exiting
FOR x=1 TO _screen.formcount
_screen.forms(_screen.formcount).release()
NEXT x
ENDPROC