home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l196 / 3.ddi / MXSHKB.BA$ < prev    next >
Encoding:
Text File  |  1990-06-24  |  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.