10DEFFNS="READISC" 20PROCass 30CALLA% 40END 50DEFPROCass 60FORL%=0TO2 70P%=&91D 80[:OPTL%:.A%:LDY#0:LDA#0:JSR&FFDA:CM P#8:BNEdisc:LDX#10:LDY#10:BNEok:.disc:LD X#7:LDY#9:.ok:STX&70:STY&71 ½ GET FS AND STORE OFFSETS 90LDY#&C:LDA#0:.B%:STA&900,Y:DEY:BNEB %:.F%:STA&72 ½ BLANK OUT 100LDA#&75:STA&901 ½ READ TO &75 110LDA#1:STA&905 ½ READ ONE FILE 120LDA#2:STA&909 ½ NEXT FILE TO READ 125.J% 130LDX#&00 140LDY#&09 150LDA#08 160JSR&FFD1 170LDY#1:.I%:LDA&75,Y:JSR&FFEE:INY:CPY &70:BNEI% 230RTS:]:NEXT:ENDPROC