home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 91 / af091a.adf / af91a3.lzx / prgs / Library / library.b < prev    next >
Text File  |  2018-09-21  |  1KB  |  54 lines
  1. {*
  2. ** An example of shared library function usage in ACE.
  3.  
  4. ** Note that to call any shared library function from ACE,
  5. ** there are three requirements:
  6.  
  7. **    1. You must open the library in question.
  8. **    2. You must declare the function.
  9. **    3. A .bmap file for the library must be 
  10. **       present in the ACEbmaps: directory.
  11.  
  12. ** For this program, the required bmaps are dos.bmap and
  13. ** graphics.bmap.
  14.  
  15. ** Note that one of the function declarations below shows how 
  16. ** the library can be specified. This will result in a faster
  17. ** lookup by directing ACE to the correct .bmap file (see "DateStamp").
  18.  
  19. ** Note also how the optional parameter-list can be specified for a 
  20. ** function (see "Text"). This is useful for documentation purposes.
  21. *}
  22.  
  23. LIBRARY "graphics.library"
  24. LIBRARY "dos.library"
  25.  
  26. DECLARE FUNCTION VBeamPos& LIBRARY
  27. DECLARE FUNCTION Text(Rp&,text$,length&) LIBRARY
  28. DECLARE FUNCTION Move LIBRARY 
  29. DECLARE FUNCTION SetSoftStyle LIBRARY
  30. DECLARE FUNCTION DrawEllipse LIBRARY
  31. DECLARE FUNCTION DateStamp LIBRARY "dos.library"
  32.  
  33. CLS
  34.  
  35. COLOR 1
  36. DrawEllipse(window(8),100,100,50,25)
  37.  
  38. PRINT "Vertical beam position =";VBeamPos
  39.  
  40. hello$="Hi there"
  41. addr&=VARPTR(hello$)
  42.  
  43. COLOR 2
  44. Move(WINDOW(8),100,100)
  45. SetSoftStyle(WINDOW(8),1&,255&)  {* underline *}
  46. Text(WINDOW(8),addr&,CINT(LEN(hello$)))
  47. COLOR 1
  48.  
  49. DIM v&(2)
  50. DateStamp(varptr(v&))
  51. PRINT "Time =";v&(1)\60;":";v&(1) mod 60;":";v&(2)\50
  52.  
  53. LIBRARY CLOSE
  54.