home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / dnalib7a.zip / BUFFER.BAS < prev    next >
BASIC Source File  |  1994-05-14  |  383b  |  26 lines
  1. SUB StuffBuffer(Ky$) STATIC PUBLIC
  2.  
  3. $CODE SEG "DNASEG2"
  4.  
  5. DEF SEG = &H40
  6.  
  7. BufferEnd% = PEEK(&H1C)
  8.  
  9. FOR i% = 1 TO LEN(Ky$)
  10.   IF BufferEnd% > &H3C THEN
  11.     BufferEnd% = &H1E
  12.     POKE BufferEnd%, ASC(MID$(Nam$, i%))
  13.     BufferEnd% = BufferEnd% + 2
  14.   END IF
  15. NEXT i%
  16.  
  17. IF BufferEnd% > &H3C THEN
  18.   BufferEnd% = &H1E
  19.   POKE &H1C, BufferEnd%
  20. END IF
  21.  
  22. DEF SEG
  23.  
  24. END SUB
  25.  
  26.