!JOB :F00SGEN,CPV,7
!LIMIT (TIME,6),(CORE,32),(9T,1),(ORDER),(RERUN)
!MESSAGE PLEASE MOUNT A SAVE TAPE FOR CPF0...RING IN.
!ASSIGN M:PO,(DEVICE,9T),(DEN,800),(OUTSN,CPF0)
!RUN (LMN,$$DEF,:F00BO)
!DATA
 DEF CP,F00
:WRITE

