home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / lemglue.zip / DOSA.CLA < prev    next >
Text File  |  1992-08-07  |  2KB  |  78 lines
  1.         MEMBER('DIRTEST')
  2.         !*** Begin Local Map
  3.         MAP
  4.                 MODULE('LEMGLUE')
  5.                         BINSTRING(SHORT),STRING,C,NAME('BINSTRING')
  6.                         BINSHORT(SHORT),SHORT,C,NAME('BINSHORT')
  7.                         BINLONG(SHORT),LONG,C,NAME('BINLONG')
  8.                         BINFLOAT(SHORT),REAL,C,NAME('BINFLOAT')
  9.                         BINPROC(SHORT),C,NAME('BINPROC')
  10.                         BININIT(SHORT,STRING),SHORT,NAME('BININIT')
  11.         ..
  12.  
  13. BINID   SHORT
  14. INIT_dosa       PROCEDURE
  15.         CODE
  16.         BINID = BININIT(1,'dosa.BIN')
  17.  
  18. SPOOL           PROCEDURE(A)
  19. ROUTINEID       SHORT
  20.         CODE
  21.         ROUTINEID = BINID+1
  22.         BINPROC(ROUTINEID)
  23.         RETURN
  24.  
  25. SETDIR          PROCEDURE(A,B)
  26. ROUTINEID       SHORT
  27.         CODE
  28.         ROUTINEID = BINID+2
  29.         BINPROC(ROUTINEID)
  30.         RETURN
  31.  
  32. NEXTDIR         PROCEDURE(A)
  33. ROUTINEID       SHORT
  34.         CODE
  35.         ROUTINEID = BINID+3
  36.         BINPROC(ROUTINEID)
  37.         RETURN
  38.  
  39. REMOVEDIR               PROCEDURE(A)
  40. ROUTINEID       SHORT
  41.         CODE
  42.         ROUTINEID = BINID+4
  43.         BINPROC(ROUTINEID)
  44.         RETURN
  45.  
  46. MAKEDIR         PROCEDURE(A)
  47. ROUTINEID       SHORT
  48.         CODE
  49.         ROUTINEID = BINID+5
  50.         BINPROC(ROUTINEID)
  51.         RETURN
  52.  
  53. GODOS           PROCEDURE(A)
  54. ROUTINEID       SHORT
  55.         CODE
  56.         ROUTINEID = BINID+6
  57.         BINPROC(ROUTINEID)
  58.         RETURN
  59.  
  60. BOOT            PROCEDURE
  61. ROUTINEID       SHORT
  62.         CODE
  63.         ROUTINEID = BINID+7
  64.         BINPROC(ROUTINEID)
  65.         RETURN
  66.  
  67. COMMAND_LINE            FUNCTION
  68. ROUTINEID       SHORT
  69.         CODE
  70.         ROUTINEID = BINID+8
  71.         RETURN(BINSTRING(ROUTINEID))
  72.  
  73. ENVIRONMENT             FUNCTION(A)
  74. ROUTINEID       SHORT
  75.         CODE
  76.         ROUTINEID = BINID+9
  77.         RETURN(BINSTRING(ROUTINEID))
  78.