home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / basic / mxshkb.bas < prev    next >
Encoding:
BASIC Source File  |  1989-11-09  |  347 b   |  16 lines
  1. DEFINT A-Z
  2. 'Define non-basic procedures
  3. DECLARE FUNCTION addstring$(SEG s1$, BYVAL s1length, SEG s2$, BYVAL s2length)
  4.  
  5.  
  6. 'Create the data
  7. a$ = "To be or not to be;"
  8. b$ = " that is the question."
  9.  
  10. 'Use non-BASIC function to add two BASIC far strings
  11. c$ = addstring(a$, LEN(a$), b$, LEN(b$))
  12.  
  13. 'print the result on the screen
  14.  
  15. PRINT c$
  16.