Help for this page

Select Code to Download


  1. or download this
    LABEL O 1
      blah
    ...
      blah
    STOP
    
  2. or download this
    while (<IN>) {
        my $exp_idstr = sprintf( "%o", $expected_id );
        if ( s/\(LABEL O $exp_idstr\)\n/$1  NEWSTUFF/ ) {
    ...