N1 #61=#18
N2 #62=#19
N3 #63=#20
N4 #64=#1
N5 #65=#2
N6 #66=#3
N7 #67=#4
N8 #68=#9
N9 #73=#63-#64
N10 #72=#62+#66
N11 #70=#63+5
N12 #100=#100+1
N13 WHILE[#100GE#68]DO1
N14 G00Z#70
N15 G00X#61Y#62
N16 WHILE[#63GT[#73-#65]]DO2
N17 IF[#63LE#73]THEN#63=#73
N18 G01Z#63F#67
N19 G01Y#72F#67
N20 G01Y#62F#67
N21 #63=#63-#65
N22 END2
N23 #100=0
N24 #80=#20
N25 #1401=#1401+1000
N26 G0Z#70
N27 END1
N28 M99
N29 
