Select Code to Download

    #!/usr/bin/perl -w
    use warnings;
    use diagnostics;
...
        getsub($sub);
      }
    }

     .subckt a1 x y z
       xa a b c1
...
    .ends

    xa1 a s f a1