home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / homonlib.zip / SETCARGO.BAS < prev    next >
BASIC Source File  |  1995-04-13  |  636b  |  24 lines

  1. DEFINT A-Z
  2.  
  3. DECLARE FUNCTION SetCargo$ (c$)
  4.  
  5. FUNCTION SetCargo$ (c$) STATIC
  6. '****************************************************************************
  7. 'This is a general set/get function that operates on a string.  To query the
  8. ' current value of SetCargo$() without actually changing its value, pass
  9. ' CHR$(0) as the argument.
  10. '****************************************************************************
  11.  
  12. STATIC cargo$
  13.  
  14. SetCargo$ = cargo$                      'Return the current value.
  15.  
  16. nil$ = CHR$(0)                          'For clarity's sake.
  17.  
  18. IF c$ <> nil$ THEN
  19.      cargo$ = c$
  20. END IF
  21.  
  22. END FUNCTION
  23.  
  24.