home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 August / PCWorld_2000-08_cd.bin / Software / TemaCD / xbasic / xbpro.exe / xb / xxx / gentry.xxx < prev    next >
Encoding:
Text File  |  1995-10-09  |  699 b   |  25 lines
  1. INTERNAL FUNCTION  Entry         ()
  2. '
  3. '
  4. ' ######################
  5. ' #####  Entry ()  #####
  6. ' ######################
  7. '
  8. FUNCTION  Entry ()
  9.     SHARED  terminateProgram
  10.     STATIC    entry
  11. '
  12.     IF entry THEN RETURN                    ' enter once
  13.     entry =  $$TRUE                                ' enter occured
  14. '
  15.     InitGui ()                                        ' initialize messages
  16.     InitProgram ()                                ' initialize this program
  17.     CreateWindows ()                            ' create main window and others
  18.     InitWindows ()                                ' initialize windows and grids
  19. '
  20.     IF LIBRARY(0) THEN RETURN            ' main program executes message loop
  21. '
  22.     DO                                                        ' the message loop
  23.         XgrProcessMessages (1)            ' process one message
  24.     LOOP UNTIL terminateProgram        ' and repeat until program is terminated
  25. END FUNCTION