Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $s ('G1 Z0.050 F7800.000',  'G10 ; retract',) {
...
"
'G1 Z0.050 F7800.000' -> 'G1 Z-0.050 F7800.000'
'G10 ; retract' -> 'G10 ; retract'