home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / STRIP.IN < prev    next >
Text File  |  1996-06-04  |  176b  |  29 lines
  1. A=s(q,w,e)?
  2. B=strip(A)?
  3. A.4=qq?
  4.  
  5. B.4=qq?
  6.  
  7. .
  8. A=s?
  9. B=strip(A)?
  10. A.1=qq?
  11.  
  12. B.1=qq?
  13.  
  14. .
  15. A=s(q,w,e)?
  16. B=copy_pointer(A)?
  17. A.4=qq?
  18.  
  19. B.4=qq?
  20.  
  21. .
  22. A=s?
  23. B=copy_pointer(A)?
  24. A.1=qq?
  25.  
  26. B.1=qq?
  27.  
  28. .
  29.