         Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2     %integer no options = 1
    3  
    4     %routine get option(%integer %name opt)
    5        %for opt = 1, 1, no options %cycle
    6        %repeat
    7     %end
    8  
    9    %integer x
   10    
   11    get option(x)
   12  
   13  %endofprogram

    9 Statements compiled
