         Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2  %owninteger print1=0,print2=0;              !print indicators
     3  %constinteger stop=-5000;                   !loop stop (const)
     4  %endofprogram
 0004 C9                                    LEAVE
 0005 C3                                    RET
