home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / authors / len_tucker / iheight.amos / iheight.amosSourceCode
AMOS Source Code  |  1986-08-03  |  170b  |  9 lines
  1. 1 CLASSIC On LY
  2. Load "icons.abk"
  3. For Z=1 To Length(2)
  4. _IHEIGHT[Z]
  5. Print "Height of icon";Z;" is";Param
  6. Next Z
  7. Procedure _IHEIGHT[NBR]
  8. N=Deek(Icon Base(NBR)+2)
  9. End Proc[N]