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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
% D) }7 p& V# G/ g  Y8 @! X
1 i) Y# u, A$ w* |/ c(* This notebook contains examples for the PET-functions
2 }& l$ l  q  v, ^4 q+ G-CalcFormula- calculate mineral formulae (and mole fractions)
( w+ j' P7 q8 p8 W! U* N1 N-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
% ^4 A* K9 T0 E% X-MakeAnalysisTable- make a usual table of mineralchemical \
/ U/ y8 m8 a$ ganalyses (wt.% and formula units) *)
: `/ s$ v% _& G& Q; y; F" `(* This top-cell must be run once before any example can be \
0 S' {7 H; C1 rperformed. *)
2 u; Q4 L) a. l0 H1 u) y
( \/ j/ o; P. u, @7 Z8 R, k$ u(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
7 {/ a0 T* H! [/ B& B& d& J6 E9 T9 gDateien\Pet) and load PET. *)
8 x- `. F6 U% B' `& `$PetDirectory = "C:\Eigene Dateien\Pet";
6 h* k1 v* e: [9 x' `! C! `SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
3 F" I' d! _. fDataset[Dataset -> B88];
& [' }2 }$ o4 e. A7 o
+ j( X" j- |/ O. q+ G+ x, P/ i
/ B2 _$ M6 i( d6 k% N
) X: P' I" m  b, M9 z% K- T9 `# m

另一个相关的“DEFDAT”:
. O. I3 z& [1 }9 r(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
, Y" ]5 K* o% yComputers & Geoscience 24:219-235 *)
! e) [. C; a# i$ ^- m8 t7 m
(* Summary: this package declares various PET-functions *)
; ~* H. u: O7 [. ]) [; e6 _. B
(* Author: Edgar Dachs, Department of Mineralogy
$ R: g- ?  j, |" r, dUniversity of Salzburg, Austria
  W9 A6 l4 V/ qemail: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

+ S; F% a1 B9 \. h) @# @3 w+ PBeginPackage["DEFDAT`"]

Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
! n9 W# D$ w$ u9 UThe following data sets are available, loaded with:\n\n
Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
Holland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
, ^1 j/ @) x4 LDataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
( D7 ^7 W5 e1 ~' f/ |& T5 U; ^/ gSee G::usage for more details.\n
+ b/ j9 C% e6 i( B! w\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
converted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
  J/ X( S/ p# W. ]7 H6 kWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
* H% i* h9 |3 }0 D6 C0 M(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
To create a new subdirectory for that purpose, you can use the option:\n
WorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
) @  @& |9 D1 t2 I' hThis loads PET with the Berman data set and reads/writes all user files from/to the\n
subdirectory named \"sample_xy\".\n
Called from: User.\n
Package name: DEFDAT.m\n
, z7 H2 x% U, e9 \# q: K7 ]PET: Petrological Elementary Tools, (c) Edgar Dachs."
+ `3 d/ O7 z2 [1 K" K  D; q