home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 1052b.dms / 1052b.adf / newload < prev    next >
Text File  |  1988-07-25  |  802b  |  39 lines
  1. ' ###################
  2. ' # Fast-Gfx Loader #
  3. ' #-----------------#
  4. ' # ©'87 S. Maelger #
  5. ' ###################
  6.  
  7. DECLARE FUNCTION xOpen& LIBRARY
  8. DECLARE FUNCTION xRead& LIBRARY
  9. DECLARE FUNCTION AllocMem& LIBRARY
  10.  
  11. LIBRARY "dos.library"
  12. LIBRARY "exec.library"
  13. LIBRARY "graphics.library"
  14.  
  15. b&=AllocMem&(64,65537&)
  16. IF b&=0 THEN ERROR 7
  17. file$="df1:new"+CHR$(0)
  18. h&=xOpen&(SADD(file$),1005)
  19. WINDOW CLOSE WINDOW(0)
  20. SCREEN 1,320,256,5,1
  21. WINDOW 1,,,0,1
  22. viewport&=PEEKL(WINDOW(7)+46)+44
  23. CALL LoadRGB4(viewport&,b&,32)
  24. FOR i%=0 TO 4
  25.   ad&=PEEKL(PEEKL(WINDOW(8)+4)+8+4*i%)
  26.   r&=xRead&(h&,ad&,10240&)
  27. NEXT
  28. r&=xRead&(h&,b&,64)
  29. CALL xClose(h&)
  30. CALL LoadRGB4(viewport&,b&,32)
  31. CALL FreeMem(b&,64)
  32. LIBRARY CLOSE
  33. WHILE MOUSE(0)<>0:WEND
  34. WHILE MOUSE(0)=0:WEND
  35. WINDOW CLOSE 1
  36. SCREEN CLOSE 1
  37. WINDOW 1,"OK",(0,11)-(310,185),0,-1
  38.  
  39.