home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 24
/
CD_ASCQ_24_0995.iso
/
vrac
/
homonlib.zip
/
SETCARGO.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-04-13
|
636b
|
24 lines
DEFINT A-Z
DECLARE FUNCTION SetCargo$ (c$)
FUNCTION SetCargo$ (c$) STATIC
'****************************************************************************
'This is a general set/get function that operates on a string. To query the
' current value of SetCargo$() without actually changing its value, pass
' CHR$(0) as the argument.
'****************************************************************************
STATIC cargo$
SetCargo$ = cargo$ 'Return the current value.
nil$ = CHR$(0) 'For clarity's sake.
IF c$ <> nil$ THEN
cargo$ = c$
END IF
END FUNCTION