;       *** BATCH PRINTING ***                    
:%D = "done"
:pr "#1/#13/#13/          ***  ÂÁÔÃÈ ÍÏÄÅ ÐÒÉÎÔ ÍÁÃÒÏÆÅÁÔÕÒÅ  ***#13/#13/"
:pr "BATCH allows you to print consecutive files without#13/"
:pr "attending to the printer.  You will be asked to list#13/"
:pr "the files you wish to print.  When you have listed #13/"
:pr "the last file enter a RETURN.  Each file will be read#13/"
:pr "from disk and printed.#13/#13/

:pr "#13/#13/Do you want filename title on listing? (Y/N) "
:rk %4
:on %4-96 /+1
:%4 = %4-32
:%4 = %4-89
e
s//^</
:%1 = 1
:pr "#1/Îáíåó ïæ ôèå æéìåó ôï âå ðòéîôåäº"
:%2 = %1+2
:PR "#0/"
:PR "#3/"
:%2 = %2-1
:on %2-1 / / /-3
:pr "File no %1  #6/"
:in %A
:sl %A %3
:on %3 35 35 /
ro/%A/
:on $0 / /+3 /
rd
:%1 = %1+1
e/s//%A</
:on -1 19


s//%D</
e/b/f1
:%A = !
b0/d1
b1/h0/h
:on %D%A / 65 /

ro/%A/
:on $0-0 / / 50
e/u
:on -1 37




YT 0 0 0 0
:PR "#0/#6/Îï÷ ðòéîôéîç %A"
:on %4 /+3 / /+3
s//<.HListing of %A\\\\Page ##<</
YT 0 0 3 2 03 03 1
B2/J1
pg
:on ?-3 /-2 / /-2
t/d10000
:on %4 / /+1 /
ff
e/u
:on -1 37



h0
:pr "#1/Job Completed.  Hit any key to exit."
:in