Jurassic Park code

#pascal

/Jurassic Park Main Modules/
*/
*/ Call Libs
Include: biostat.sys
Include: sysrom.vst
Include: net.sys Include:
pwr.mdl
*/
*/Initialize
SetMain [42]2002/9A{total CoreSysop %4 [vig. 7*tty]}
if ValidMeter(mH) (mH).MeterViS return
Term Call 909 c.lev {void MeterVis $303} Random(3#*MaxFid)
on SetSystem(!Dn) set shp_val.obi to lim(Val{d}SumVal
if SetMeter(mH) (*mH).ValdidMeter(Vdd) return
on SetSystem(!Telcom) set mxcpl.obj to lim(Val{pdl}NextVal