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