%begin
%externalroutinespec emas3(%stringname com,params,%integername flag)
%externalstring(8)%fnspec itos %alias "S#ITOS"(%integer n)
%routinespec out(%integer n)
%integer i,j,k
emas3("define","st50,out",k)
select output(50)
newline
read(j); read(k)
%for i=j,1,k %cycle
!printstring("vaximp imp80tests_rt")
!out(i)
!printstring(",rt")
!out(i)
!printstring("y,rt"); out(i)
!printstring("l")
!newline
!printstring("transfer imp80tests_rt"); out(i)
!printstring(",ercvax(ercc07,peathag)rt"); out(i)
!printstring(".imp,file,nomail")
printstring("$ run imp80
  imp80 rt"); out(i); newline
printstring("$ implink rt"); out(i); newline
printstring("$ run rt"); out(i)
newline
%repeat
%routine out(%integer n)
%integer j
j=n//10
%if j>0 %then printsymbol(j+'0')
n=n-10*j
printsymbol(n+'0')
%end
%endofprogram