home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / RiscOS / APP / DEVS / LIB / GSTOBJ.ZIP / GstObjects / squash / Example / UsefulBits (.txt) < prev   
RISC OS BBC BASIC V Source  |  1994-09-11  |  684b  |  33 lines
  1.  UsefulBits
  2.  Author: George Taylor, george@tardis.ed.ac.uk
  3. _UsefulBitsInit
  4. C_malloc%=
  5. _CCall(168)
  6. C_free%=
  7. _CCall(167)
  8. C_printf%=
  9. _CCall(191)
  10. _Malloc(size%)
  11.  space%
  12.  basicC_CCall,C_malloc%,space%,size%
  13. =space%
  14. _Zmalloc(size%)
  15.  space%
  16.  basicC_CCall,C_malloc%,space%,size%
  17.  space%=0 
  18.  1,"Out of memory, FN_Zmalloc failed"
  19. =space%
  20. _Free(space%)
  21.  basicC_CCall,C_free%,a%,space%
  22. _CheckError(err%)
  23.  err%<>0 
  24. _Error(
  25. _String(err%+4))
  26. _Error(err$)
  27.  1,err$
  28. _String(b%)
  29. $    s$=""
  30.  ?b%>31
  31.   s$+=
  32.   b%+=1
  33.