home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / logo.pkg < prev    next >
Encoding:
Text File  |  1993-05-19  |  2.1 KB  |  53 lines
  1.  
  2. #CHKSUB 1 1 // Verify the UI subsystem.
  3.  
  4. /logo
  5. ╔══════════════════════════════════════════════════════════════════════════╗
  6. ║                                                                          ║
  7. ║                                                                          ║
  8. ║                                 DataFlex                                 ║
  9. ║                                                                          ║
  10. ║                               Version 3.01                               ║
  11. ║                                                                          ║
  12. ║                            Copyright 1981-1992                           ║
  13. ║                   Data Access Corporation, Miami Florida                 ║
  14. ║                            All Rights Reserved                           ║
  15. ║                                                                          ║
  16. ║                               Serial Number                              ║
  17. ║                               _____________                              ║
  18. ║                                                                          ║
  19. ║                          This Program Licensed To                        ║
  20. ║                  ________________________________________                ║
  21. ║                                                                          ║
  22. ║                                                                          ║
  23. ╚══════════════════════════════════════════════════════════════════════════╝
  24. /*
  25. use ui
  26.  
  27. object logo is a message
  28.     set location to 2 2 relative
  29.     set center_state item 0 to true
  30.     set center_state item 1 to true
  31.  
  32.     procedure display_logo
  33.         local integer regnum
  34.         local string regname
  35.  
  36.         if (signon_status(desktop)) begin
  37.             registration regname regnum
  38.             set value item 0 to regnum
  39.             set value item 1 to regname
  40.             send page_object true
  41.             for regnum from 1 to 3
  42.                 sleep 1
  43.                 inkey$ regname
  44.                 if termchar move 3 to regnum
  45.             loop
  46.             send page_object false
  47.         end
  48.     end_procedure
  49. end_object
  50.  
  51. set application_name to 'System'
  52. send display_logo to logo.obj
  53.