TASK\FILE "Input file" Z_NAME$ 
TASK\FILE "Output file" X_NAME$ 
TASK\LOGICAL "Reproject on a third file's projection [YES|NO]" TEMPLATE$ NO
SAY "If you answered YES,  enter the file name below:"
TASK\FILE "This Template File Name" Y_NAME$ 
! Otherwise, Please enter all useful information Here. Note that in order to
! give an Epoch, write everything between double quotes, eg. "Equatorial 2000".
! The program will GUESS the projection center and/or the dimensions or the
! pixel increments, as much as it can.
SAY "If not, fill the form below:"
TASK\CHARACTER "Projection type" PROJECTION$ NONE /CHOICE -
   NONE GNOMONIC ORTHOGRAPHIC  AZIMUTHAL STEREOGRAPHIC LAMBERT AITOFF RADIO SFL MOLLWEIDE NCP CARTESIAN
TASK\CHARACTER "Coord.System [EQUATORIAL [epoch]|GALACTIC|UNCHANGED]" SYSTEM$ -
   EQUATORIAL /CHOICE "EQUATORIAL 2000" "EQUATORIAL 1950" "GALACTIC" "UNCHANGED" *
TASK\CHARACTER "Coord. 1 of projection center. Could be UNCHANGED" -
   CENTER_1$ UNCHANGED /CHOICE UNCHANGED *
TASK\CHARACTER "Coord. 2 of projection center" CENTER_2$ -
   UNCHANGED /CHOICE UNCHANGED *
TASK\REAL "Position angle of projection" ANGLE$ 0.0 /RANGE 0 360 
TASK\INTEGER "Dimensions of output image [0 0 mean guess]" DIMENSIONS$[2] -
  0 0
TASK\REAL "First axis conversion formula [0 0 0 mean guess]" AXIS_1$[3] -
 0 0 0
TASK\REAL "Second axis conversion formula [0 0 0 mean guess]" AXIS_2$[3] -
 0 0 0
TASK\LOGICAL "Change blanking value" CHANGE$ 
SAY "If you answered YES,  enter the new blanking value below:"
TASK\REAL "New blanking value and tolerance" BLANKING$[2] 0 0
TASK\GO
