DE AZZFFLEFROMRDISKINDEIOCTYPNUMBEADDRESBLOCBYTEA1CHAI  88SAVE "D1:D1V005.SAV":. 8/31/86 FOR ATARI BASIC By Stephen J. Rockower, MD""Compuserve E-mail 70307,710(X +@-@@3(@PLEASEE-@@X(@ WAIT2G;AP$A%,GAdjust upto size of files needed to transfer7<<;@ ,;@ ,;@ ,;@ ,;@ ,< AF22JUNK.1,JUNK.2,D1TOD8.BXE,END,D1:NEXTPROG.SAVPOpen #3,4,0,"D8:DATA.FIL"Z"d I.#3,F$n 4END6-@x/ "%/... I.#3,F$:CL.#3:GR.0:RUN F$g 6.D1:!67B:,%@,.,@I@@gUSE 7 FOR ENHANCED DENSITY@I7@<@,4FREE4( IS NOT ON D1:?@I @O6-A:7@<@,,' A-6.OCall "DECODE2" Using !A$ To !A$ 4@ A A@@ 6.D1:!67B:,%@,.'6.@67@<@,.86-$A%C 6."67@,.>:,467,.>:,C67@,.= @@=@@$6-@6-@$6-C:,= A=Call "IOCB" Using 1,7,Index,Adr(Zz$) To Index$6-@6-@$6-C:,5 A5Call "IOCB" Using 2,11,Index,Adr(Zz$)@@ @",55Procedure "IOCB" Using Iocb,Type,Number,Address611ASSUMES IOCB ALREADY OPEN FOR READ OR WRITE@6-A2%$@J#%@#READ=7,WRITE=11T?%@P:'AV,?%@&AV$P:'AV,^?%@ P:'AV,?%@&AV$P:'AV,hC!6-?:C:hhhLV,<$@,Ch,h,h,inverse *, L,V, inverse dr|))6-F:%@,%AV$F:%@ ,$##Procedure "DECODE2" Using !A$ 6.-@@)7<,0 )67B:,%@,.7<,%"@%67B:,%@,.. $g (}-@@d(ERROR!! NUMBER F:A, AT LINE F:A,%AV$F:A,g2 D1:D1V005.SAV28/31/86 FOR ATARI BASICBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB