G21
S10000
#33=PRM[2)
IF(#33EQ1)GOTO100
N50G01Z-30F200.15
N100M30