<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>26</cardCount>
<cardID>2978</cardID>
<listID>10374</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>function sysFolder-- GetSysFolder © Frederic Rinaldiget GetSysFolder()delete last char of itreturn itend sysFolderfunction diskNameget long name of this stackset itemDelimiter to colondelete word 1 of it -- the word stackget item 1 of it & colon -- disk name w/:delete char 1 of it -- the quoteset itemDelimiter to commareturn itend diskNamefunction folderNameget long name of this stackset itemDelimiter to colondelete last item of it -- stack nameget last item of it -- folder nameset itemDelimiter to commareturn itend folderNamefunction folderPathget long name of this stackset itemDelimiter to colondelete last item of it -- stack namedelete word 1 of it -- the word stackdelete char 1 of it -- the quoteset itemDelimiter to commareturn itend folderPathfunction folderParentPathget long name of this stackset itemDelimiter to colondelete last item of it -- stack namedelete last item of it -- folder namedelete word 1 of it -- the word stackdelete char 1 of it -- the quoteset itemDelimiter to commareturn itend folderParentPathfunction stackPathget long name of this stackdelete word 1 of it -- the word stackdelete char 1 of it -- the quotedelete last char of it -- the quotereturn itend stackPathfunction HyperAppNameset itemDelimiter to colonget last item of long name of HyperCardset itemDelimiter to commareturn itend HyperAppName</script>
