
 1000  *SAVE S.CATALOG INTERRUPT
 1010  *--------------------------------
 1020  FMEXIT .EQ $B37F
 1030  COUNT  .EQ $B39D
 1040  RDKEY  .EQ $FD0C
 1050  CROUT  .EQ $FD8E
 1060  *--------------------------------
 1070         .OR $AE2C
 1080  
 1090  EXIT   JMP FMEXIT   leave File Manager
 1100  NEWLN  JSR CROUT    send <CR>
 1110         DEC COUNT    line count
 1120         BNE .1       return if not done
 1130         JSR RDKEY    get a keypress
 1140         AND #$17     the magic number
 1150         BEQ EXIT     abort CATALOG
 1160         STA COUNT    new line count
 1170  .1     RTS

