home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / hbasic_1 / source / gif89a.bas < prev    next >
Encoding:
BASIC Source File  |  1997-09-22  |  431 b   |  31 lines
  1. LIBRARY "gemdos"
  2. DEFINT a-z
  3.  
  4. REM $option k10
  5.  
  6. c$="D:\GEMMALOG.GIF"
  7.  
  8. OPEN c$ FOR INPUT AS #1
  9. l&=LOF(1)
  10. CLOSE #1
  11.  
  12. x&=malloc&(l&)
  13.  
  14. BLOAD c$,x&
  15.  
  16. REM 7-6=x 9-8=y (swap around)
  17.  
  18. PRINT "File:"+c$
  19.  
  20. x1=SPEEKB(x&+6)
  21. x2=SPEEKB(x&+7)
  22.  
  23. x$="&H"+HEX$(x2)+HEX$(x1)
  24. IF x1=0 THEN x$=x$+"0"
  25. PRINT "X size:";VAL(x$)
  26.  
  27. y1=SPEEKB(x&+8)
  28. y2=SPEEKB(x&+9)
  29. y$="&H"+HEX$(y2)+HEX$(y1)
  30. IF y1=0 THEN y$=y$+"0"
  31. PRINT "Y size:";VAL(y$)