$ define/nolog dscr <Fill in scratch directory here>
$ define/nolog dd   <Fill in directory with files here>
$ set def dscr
$ ypatchy
- 
dscr:garfield.for 
dd:garfield.cra
dscr:garfield.ypatchy - - - - -
- - - - 
go
$ delete dscr:garfield.ypatchy;* /nolog /noconf
$ fortran /sep dscr:garfield /object=dscr:garfield.obj /nolist -
          /check=(fp,over,bounds,nounder) /warn=nousage
$ purge dscr:garfield.obj /noconf /nolog
$ cernlib graflib/x11,mathlib,packlib
$ fcasplit -noh dscr:garfcld.cld
$ set command dscr:garfieldcld.cld /obj=dscr:garfieldcld.obj
$ link dscr:garfield.obj,garfieldcld.obj,dd:nagdum.obj,-
       cern:[nag.pro.lib]naglib/lib,'lib$' /exec=dscr:garfield_h.exe
$ purge /nolog /noconf dscr:garfield_h.exe