$H{Despool: a despooler for the new laser printer on an APM.}$B^0
$p1This program will transfer files to the laser-printer with the new
controller. It will deal with nominated files and when it is told that there
are no more nominated files it will run on to looking for files in the
directory LP2: at 6-second intervals. If it finds any it transfers them
to the laser printer and deletes them, in order of their arrival in LP2:.
The procedure for running the despooler is as follows.
$T*1
$B1$T0Boot the APM to which the printer is attached. (From B::)
$B1$T0Issue the command:
$B0$T0$H[}]$I1.1{office:despool}
$B0The machine will prompt for a string of file names,
$B1$T0$H[Files: ]$I1.1[File1,File2,...]
$B0This response will cause the program to send the files
to the printer in the order File1 then File2 . . .
These files will not be deleted.
$B0The default directory will be the directory into which the current user is
logged.
$B1$T0$H[Opening sm:File1]
$B0$T0$H[Opening sm:File2]
$B0These files have been copied to the laser-printer. They have not been
deleted.
$B1$T0$H[Files: ]
$B0The prompt will then be re-issued.
$B0The response <CR> indicates that there are no more nominated files and 
the program will then enter the despooling mode in which it looks at the
directory LP2: every six seconds. When it finds file-names in LP2:, it prints
them in turn, oldest first. Each file is deleted as it is printed. It then
continues looking at LP2: at six-second intervals.
$B1$T0$H[Opening lp2:aaa.........]
$B0$T0$H[Deleting lp2:aaa.........]
$B0$T0$H[Opening lp2:x0650.lay]
$B0$T0$H[Deleting lp2:x0650.lay]
$B1The program may be stopped by replying $I1.1{.end} to the prompt $H{Files: }
or by using $I1.1{<CtrlY>} between bursts of printing,  when LP2: is being
inspected.
If the latter is done during printing, it may be neccessary to re-initialise
the laser printer by using its Reset button.