Lines Matching refs:code
74 $code.=<<___ if ($i==0);
77 $code.=<<___ if ($i<15);
89 $code.=<<___ if ($i>=15);
109 $code.=<<___ if ($i<79);
123 $code.=<<___ if ($i==79);
143 $code.=<<___;
161 $code=<<___;
274 $code.=<<___;
278 $code.=<<___; # load K_00_19
283 $code.=<<___; # load K_20_39
288 $code.=<<___; # load K_40_59
293 $code.=<<___; # load K_60_79
298 $code.=<<___;
320 $code.=<<___;
324 $code =~ s/\`([^\`]*)\`/eval $1/gem;
325 print $code;
