home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / graphics / demos304.zip / SAMPLES.ZIP / EXAM05.CTL < prev    next >
Text File  |  1993-03-09  |  641b  |  28 lines
  1. /* EXAM05.CTL
  2. - *001 Main menu
  3. KEY A,(MOUSEL) CALL *002
  4. KEY B,(MOUSER) CALL @003
  5. KEY Q,(MOUSEB) QUIT
  6. /.
  7. Select an option:
  8.  
  9.    A. Display the current date and time             (left mouse button)
  10.    B. Display the files in the default subdirectory (right mouse button)
  11.  
  12.    Q. Quit                                          (both buttons)
  13. ./
  14. - *002 Display the current date and time
  15. KEY (ANY) POP
  16. /.
  17. Current date:    %Date%
  18. Current time:    %Time%
  19. Elapsed time:    %TimeElapsed%
  20.  
  21. Press any key to return to the main menu
  22. ./
  23. - @003 Display a directory
  24. RUN DIR /W
  25. ECHO Press a key to return to the main menu
  26. PAUSE
  27. POP
  28.