Help for this page

Select Code to Download


  1. or download this
                     field (\@GRD, 1, \@GRDF1);
                 field (\@GRD, 2, \@GRDF2);
...
                 field (\@GRD, 6, \@GRDF6);
  2. or download this
         for (1..6) {
       field (\@GRD,$_,$GRDF[$_]);
     }
  3. or download this
         sub field {
        my ($cmd, $num, $fld) = @_;
...
        for ($i = 0; $i <= $max; $i++) {
           if (@$cmd[$num] eq @$fld[$i]) {
  4. or download this
        my ($cmd, $num, $fld_ref) = @_;
    my $found = 0; #false
...
     }
    if not ($found) {print "ITEM what-cha-ma-calit is not valid ..."};