home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / dirdemo.zip / DIRDEMO.CLA < prev    next >
Text File  |  1990-03-21  |  3KB  |  83 lines
  1.      OMIT('END')
  2. ┌──────────────────────────────────────────────────────────────────────────────┐
  3. │              Directory Entry Demo Function                   │
  4. │                                           │
  5. │ Accepts directory name to start searching. Also wildcards may be used such   │
  6. │ as *.*.  After reading the directory it displays a scrolling table to           │
  7. │ choose a directory name that will be returned. Esc will return nothing.      │
  8. │                                           │
  9. │ This program points out some peculuarities of the DOS1.LEM. See the notes    │
  10. │ in the DIRECT.CLA.                                   │
  11. │                                           │
  12. │ If you happen to use this, and make the scrolling table faster, or other     │
  13. │ improvements, please upload it back to the board.                   │
  14. │                                           │
  15. │                Brothers Computing, Inc.                   │
  16. │                  P.O. Box 538                       │
  17. │               Fruitland Park,  FL    34749                   │
  18. │                 (904) 728-2938                       │
  19. └──────────────────────────────────────────────────────────────────────────────┘
  20.   END OMISSION
  21.  
  22.  
  23. DIRDEMO         PROGRAM
  24.          INCLUDE('STD_KEYS.CLA')
  25.          INCLUDE('CTL_KEYS.CLA')
  26.          INCLUDE('ALT_KEYS.CLA')
  27.          INCLUDE('SHF_KEYS.CLA')
  28.  
  29. REJECT_KEY   EQUATE(CTRL_ESC)
  30. ACCEPT_KEY   EQUATE(CTRL_ENTER)
  31. TRUE         EQUATE(1)
  32. FALSE         EQUATE(0)
  33.  
  34.          MAP
  35.            MODULE('DIRECT')             !DIRECTORY DISPLAY FUNCTION
  36.          FUNC(DIREC_SHOW), STRING
  37.            .
  38.            MODULE('DEMO_ENT')         !TO GET USER INPUT
  39.          PROC(DEMO_ENTRY)
  40.            .
  41.            MODULE('FULLPATH')         !RETURNS CONCANTENATED PATH
  42.          FUNC(FULL_PATH), STRING
  43.            .
  44.            MODULE('PREPATH')         !RETURNS PREVIOUS PATH
  45.          FUNC(PRE_PATH), STRING
  46.            .
  47.            MODULE('DOS1'),BINARY         !DOS LANGUAGE EXTENSION
  48.          PROC(SPOOL)             !  SPOOL DISK FILE TO PRINTER
  49.          PROC(SETDIR)             !  SET FOR DIRECTORY PROCESSING
  50.          PROC(NEXTDIR)             !  GET NEXT DIRECTORY ENTRY
  51.          PROC(REMOVEDIR)         !  REMOVE (DELETE) DIRECTORY
  52.          PROC(MAKEDIR)             !  MAKE NEW DIRECTORY
  53.          PROC(GODOS)             !  GO TO DOS PROMPT
  54.          PROC(BOOT)             !  SOFTWARE BOOT
  55.          FUNC(COMMAND_LINE),STRING     !  RETURN COMMAND LINE
  56.          FUNC(ENVIRONMENT),STRING     !  RETURN ENVIRONMENT VARIABLE
  57.            .
  58.  
  59.          .
  60.  
  61. ACTION         SHORT                 !0 = NO ACTION
  62.                          !1 = ADD RECORD
  63.                          !2 = CHANGE RECORD
  64.                          !3 = DELETE RECORD
  65.                          !4 = LOOKUP FIELD
  66.          GROUP,PRE(MEM)
  67. MESSAGE           STRING(30)             !Global Message Area
  68. PAGE           SHORT                 !Report Page Number
  69. LINE           SHORT                 !Report Line Number
  70. DEVICE           STRING(30)             !Report Device Name
  71. PROG_PATH      STRING(80)             !Current Path
  72.          .
  73.  
  74.          EJECT('CODE SECTION')
  75.   CODE
  76.   SETHUE(7,0)                     !SET WHITE ON BLACK
  77.   BLANK                         !  AND BLANK
  78.   MEM:PROG_PATH = PATH()
  79.   SETHUE()                     !    THE SCREEN
  80.   DEMO_ENTRY                     ! GENERIC TEST ENTRY
  81.   RETURN                     !EXIT TO DOS
  82.  
  83.