%begin
   %include "Sysinc:Command.Inc"
   %externalroutinespec Extract Command(%string(*)%name C, P, %string(127) S)
   %externalroutinespec Parse Parameter(%record(Commandfm)%name C,
                                        %integer Option,
                                        %string(255) Parm)
   %string(255) A, B, C
   %integer Option
   %externalroutinespec Read Line(%string(*)%name S)

   %on 10 %start
      Printstring("Event 10,")
      Write(Event_Sub, 0)
      space
      Printstring(Event_Message)
      Newline
   %finish
   %cycle
      Prompt("Command Line:")
      Skipsymbol %while Nextsymbol = nl
      Read Line(A)
      Extract Command(B, C, A)
      Printstring("   Command:");  Printstring(B);  Newline
      Printstring("   Param:");    Printstring(C);  Newline
      Prompt("Option:");  Read(option)
      Parse Parameter(Command, Option, C)
      Printstring("   Param:");  Printstring(Command_parameter);  Newline
      Printstring("   In1:");    Printstring(Command_In1);  Newline
      Printstring("   In2:");    Printstring(Command_In2);  Newline
      Printstring("   In3:");    Printstring(Command_In3);  Newline
      Printstring("  Out1:");    Printstring(Command_Out1);  Newline
      Printstring("  Out2:");    Printstring(Command_Out2);  Newline
      Printstring("  Out3:");    Printstring(Command_Out3);  Newline
      Printstring("   Modifier:")
      %if Command_Modifier = 0 %then printstring("None") %c
                               %else printsymbol(Command_Modifier)
      Newline
   %repeat
%endofprogram
