SUB StuffBuffer(Ky$) STATIC PUBLIC $CODE SEG "DNASEG2" DEF SEG = &H40 BufferEnd% = PEEK(&H1C) FOR i% = 1 TO LEN(Ky$) IF BufferEnd% > &H3C THEN BufferEnd% = &H1E POKE BufferEnd%, ASC(MID$(Nam$, i%)) BufferEnd% = BufferEnd% + 2 END IF NEXT i% IF BufferEnd% > &H3C THEN BufferEnd% = &H1E POKE &H1C, BufferEnd% END IF DEF SEG END SUB