Mathematica不能识别一个计算矿物化学式的软件？

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
& h% I5 v. S- ^5 s, O6 x
# z5 g& u8 h) r4 S! v7 r(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
- j  n3 B! {* R3 o-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
9 e* l6 ~! q0 K* Y. m! r! w-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
8 D% |% B% {; C* Q(* This top-cell must be run once before any example can be \
performed. *)

(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
8 p4 F  {& H( }4 O* T8 p1 U$PetDirectory = "C:\Eigene Dateien\Pet";
3 \3 y0 R0 d, w# A6 cSetDirectory[$PetDirectory];
7 q, P* F; U/ s. N; l$ ~DeclarePackage["DEFDAT`", {"Dataset"}];
( w, `6 z+ b' d9 v' Q, I, {- g- K( sDataset[Dataset -> B88];
) C( Z8 C0 h" S; L+ w, G. r

. y$ C3 g  |/ e7 G; x
: @( E, ]- l- f* B# C" ?5 i/ N

另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)
# {; z; O. A! _+ V9 R5 U, P
  F7 ?' l/ z. K6 S# l" t7 O5 t(* Summary: this package declares various PET-functions *)

/ v" y) e! z/ M3 P  i% v( i(* Author: Edgar Dachs, Department of Mineralogy
+ N* @8 B; g% \# C7 PUniversity of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)
+ m, w( \; P2 ~! g; S% `
BeginPackage["DEFDAT`"]
- j1 P2 {0 e3 O6 t. ~6 w
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
4 Q' W% G$ O6 A3 e) r; n3 A5 GHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
Dataset[Dataset -> HP32]\n
! T, K& @2 s& z* @Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
$ p( b% M( T" z0 A4 i- F3 jconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
* ]; b1 p1 z2 Q5 k- G: D. }' _& iWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
/ i0 {, `( p8 a6 H$ j) R+ f, KTo create a new subdirectory for that purpose, you can use the option:\n
" t2 }  Y& K& t4 k! ZWorkDirectory -> \"/directory_name\"\n
% j8 Z* e% t$ x& iExample: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
This loads PET with the Berman data set and reads/writes all user files from/to the\n
subdirectory named \"sample_xy\".\n
6 f) b( Q; z2 ~" A- hCalled from: User.\n
Package name: DEFDAT.m\n
& k/ s9 U# D6 \0 _$ }( xPET: Petrological Elementary Tools, (c) Edgar Dachs."