> TapeCat/src 1.00  Catalog tape files : ( mcode% &100 2TapeBuffer=&5BEF < P=0 1 FP%=23300 PO%=mcode% Z[OPT P*3+4 d.TapeCat nLD BC,3 x.TapeCatLp LD IX,TapeBuffer LD DE,17:PUSH BC "XOR A:SCF: &0556 :\ LD_BYTES -POP BC :\ BC=column number (BIT 5,(IY+1):RET NZ :\ Key pressed 4JR NC,TapeCatLp :\ Loop for another header LD HL,TapeBuffer+1 LD B,10 .TapeName +LD A,(HL):RST &10 :\ Print filename INC HL:DJNZ TapeName DEC C:JR Z,TapeCat 0LD A,32:RST &10 :\ Pad between columns JR TapeCatLp ]  " , Create the machine code: &6 a=23300 23341: b:POKE a,b: a 9@ 1,3,0,221,33,239,91,17,17,0,197,175,55,205,86,5,193 8J 6,10,253,203,1,110,192,48,233,33,240,91,126,215,35 'T 16,251,13,40,219,62,32,215,24,217 ^: h Display tape catalog r 23300<3 | <>"" D|A 6PAUSE 1:#0;"Press SPACE to continue":PAUSE 0:;: