home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd617 / len_tucker / iwidth.amos / iwidth.amosSourceCode
AMOS Source Code  |  1986-08-03  |  168b  |  9 lines
  1. ' classic only 
  2. Load "icons.abk"
  3. For Z=1 To Length(2)
  4. _IWIDTH[Z]
  5. Print "Width of icon";Z;" is";Param
  6. Next Z
  7. Procedure _IWIDTH[NBR]
  8. N=Deek(Icon Base(NBR))*16
  9. End Proc[N]