ô > SpoolOn/s ô *SPOOLON for the BBC +ô Originally by Joe Abley, BAU Apr 1990 ( ô Update by J.G.Harston 2017 2: < zp=&A8 FOSARGS=&FFDA:OSFIND=&FFCE POSBYTE=&FFF4:OS_CLI=&FFF7 ZÞ mcode% 256 d: nã pass=4 ¸ 7 ˆ 2 xP%=&900:O%=mcode% ‚ [OPT pass ŒLDA #1:LDX #zp –,LDY #0:JSR OSARGS :\ Read command line 4LDA (zp),Y :\ Get start of command line ª0CMP #13:BEQ close :\ *SpoolOn - close ´'LDX zp+0:LDY zp+1 :\ XY=>filename ¾&LDA #&C0:JSR OSFIND :\ (filename) È.TAY:BNE spoolon :\ File exists, use it Ò/.loop :\ Otherwise, do *SPOOL ÜLDA (zp),Y:STA filename,Y æINY:CMP #13:BNE loop ðLDX #spool € 255 úLDY #spool 256 JMP OS_CLI : .spoolon "LDX #zp ,!LDA #2:JSR OSARGS :\ Read ¢ 6$LDA #1:JSR OSARGS :\ Write =¢ @ .close J#TYA:TAX :\ X=handle TLDY #0:LDA #&C7 ^