--@LispSysoutFloppies.cm
-- modified from MakeLispFloppies.cm
-- last edited  27-Jun-83 22:03:14 by Masinter 
-- last edited by JFung.pasa 13-Sep-84 16:31:33 for Harmony release
-- Command file to build multiple(upto 6) Interlisp-D's "Lisp Sysout" floppies
-- To run this command file inside Tajo or Copilot volume, type @LispSysoutFloppies <CR> from your exec window
-- Before you transfer files, you should make sure you have enough pages in your volume to contain the sysout.  Roughly a normal lisp.sysout takes about 5500 pages
-- if you do not have so many pages, and say if lisp volume may be used to contain the sysout then you need the following commands: OpenVolume, CreateDir, push, pop, CloseVolume.

-- To keep the files separate on lisp volume

OpenVolume Lisp/w
-- open  volume "lisp" for readWrite

CreateDir  <lisp>
-- creates a new directory

push <lisp>  
-- puts the directory on your search path (like Connect) 

-- bring over SYSOUT file

ftp Rose directory/c <Lisp>Harmony> ret/A<> Lisp.sysout

-- To make a floppy with a SYSOUT on it:
-- Insert a new floppy, then:

floppy format "Lisp Sysout '#1"/n
-- y
floppy write lisp.sysout[0..2249]/s lisp.sysout
floppy info list/v

-- Insert a new floppy, and then

floppy format "Lisp Sysout '#2"/n 
-- y
floppy write lisp.sysout[2250..4499]/s lisp.sysout
floppy info list/v

-- If SYSOUT>4500 pages, insert a new floppy, and then:

floppy format "Lisp Sysout '#3"/n 
-- y
floppy write lisp.sysout[4500..6749]/s lisp.sysout
floppy info list/v

-- If SYSOUT>6750 pages, insert a new floppy, and then:

floppy format "Lisp Sysout '#4"/n 3/f
-- y
floppy write lisp.sysout[6750..8999]/s lisp.sysout
floppy info list/v

-- If SYSOUT>9000 pages, insert a new floppy, and then:

floppy format "Lisp Sysout '#5"/n 3/f
-- y
floppy write lisp.sysout[9000..11249]/s lisp.sysout
floppy info list/v

-- If SYSOUT>11250 pages, insert a new floppy, and then:

floppy format "Lisp Sysout '#6"/n 3/f
-- y
floppy write lisp.sysout[11250..13499]/s lisp.sysout
floppy info list/v

pop <lisp>

CloseVolume <lisp>