%begin
   %recordformat parmfm(%shortinteger dsno, dact, ssno, sact, %c
                        %integer p1, p2, p3, p4, p5, p6)
   %record(parmfm) p
   %integer  k
   %on %event 9 %start
      %stop
   %finish
   p_p1 = 0
   svc(14,p)
   %if p_p6 # 0 %start;      ! console present => initial startup
      %cycle
         skip symbol   {flush to event 9 at end of .COM file}
      %repeat
   %finish
%endofprogram