$IF F$SEARCH("TMP.CMD;*") .NES. "" THEN $DELETE TMP.CMD;*
$OPEN/WRITE TP TMP.CMD
$WRITE TP "GPX"
$WRITE TP P1
$WRITE TP "0"
$WRITE TP "0"
$WRITE TP "1"
$WRITE TP "1"
$WRITE TP "V"
$CLOSE TP