source_directory = Label ( "REPLACE_WITH_INPUT_DIRECTORY" )

     image_1 = Label( "REPLACE_WITH_IMAGE_FILENAME" )

     SetDirectory (source_directory)

     ref_img = Open(image_1)

     Register[REPLACE_WITH_REGISTER_FUNCTION,0,0,0,0] (".", ref_img )

     CropPad[0,1] (ref_img)

     SaveAll[0,0,0,0] ( "REPLACE_WITH_OUTPUT_DIRECTORY" )