         Edinburgh IMP77 Compiler - Version 8.4

    1  %system %integer %fn %spec  getloadavg (%long %real %array %name   loadavg, %integer   nelem)
    2  
    3  %begin
    4    %integer rc
    5    %long %real %array LA(0:2)
    6    rc = getloadavg (LA, 3)
    7    print string("Load average:  1 min: ")
    8    print(LA(0), 4, 4)
    9    print string("  5 mins: ")
   10    print(LA(1), 4, 4)
   11    print string("  15 mins: ")
   12    print(LA(2), 4, 4)
   13    newline
   14  %endofprogram

   13 Statements compiled
