It work as follows at our 810D/Shopmill (figures after “block” are the rough part measures; X0,Y0,Z0,X80,Y100,Z-30):

; DEFINITION des Rohteils
N100 WRTPR("BLOCK(0,0,0,80,100,-30)")

;LOESCHEN...