>L.

   10OSFIND = &FFCE

   20OSBGET = &FFD7

   30OSARGS = &FFDA

   40OSRDCH = &FFE0

   50OSBPUT = &FFD4

   60OSASCII = &FFE3

   70OSWRCH = &FFEE

   80HANDLE=&74

   90FOR PASS% = 4 TO 7 STEP 3

  100O% = &2F00 :REM Stored at 2F00 below screen

  110P% = &2F00

  120 [OPT PASS%

  130   Ldx #&70   \ Our Zero page locs.

  140   Ldy #0

  150   Lda #1

  160   Jsr OSARGS

  170\

  180   Lda #&80

  190   Ldx &70

  200   Ldy &71

  210   Jsr OSFIND

  220   Sta HANDLE

  230   Cmp #0

  240   Bne takefile

  250.No

  260   Lda #ASC("N"):Jsr OSASCII

  270   Lda #ASC("o"):Jsr OSASCII

  280   Lda #ASC("!"):Jsr OSASCII

  290   Lda #13      :Jsr OSASCII

  300   Lda #0: Beq End_of_file

  310\

  311.takefile

  312Lda #2: Ldx #1: Jsr &FFF4

  320.cycle1

  330\

  340   Jsr OSRDCH

  350   Cmp #4

  360   Beq End_of_file

  370   Ldy HANDLE

  380   Jsr OSBPUT

  390   Bit &FF

  400   Bmi End_of_file

  410   Lda #0: Beq cycle1

  420.End_of_file

  430Lda #0

  440Tay

  450Jsr OSFIND

  460\

  461Lda #2: Ldx #2: Jsr &FFF4

  470\

  480rts

  490\

  500]

  510NEXT PASS%

>*spool