REMAUTOTPE:GregCook29Jul2002
DIMF%&5CFF,X%17,N%9:Y%=X%DIV256:OSC."TAPE":OSC."OPT1 2":F.G%=0TO30:OSC."TAPE":!N%=&D2222:!X%=N%:X%!2=F%:X%?6=0:A%=&FF:CA.&FFDD
F.Q%=0TO8:IFQ%?946<32ORQ%?946>126N%?Q%=13EL.N%?Q%=Q%?946
N.:N%?9=13:!X%=N%:X%!2=!958:X%!6=!962:OSC."DISC":X%!&E=X%!&A+F%:X%!&A=F%:A%=0:CA.&FFDD:N.
