/* Make the Linux/390 IPLable Tape */
Address Command

'CP REW 181'
If rc <> 0 then call exit 'No tape at 181'
Call Write 'IMAGE.TXT'
Call Write 'LINUX.PARM'
Call Write 'INITRD.TXT'
'CP REW 181'
Call Exit

Exit:
Parse arg msg
If msg <> '' then say msg
Exit

Write:
File = translate(arg(1),' ','.')
Say 'Writing' file 'to tape'
'PIPE <' file '|Tape Wtm'
If rc <> 0 then call exit 'Error' rc 'writing' arg(1) 'to tape'
Say 'File' file 'written to tape'
Return