tojrobinson/jurassicsystems.com — pull request #13 by klmno43 (2014-03-07 05:09:39+00:00)
Title: commands from the Jurassic Park book you could use

so here are a few things from the book that would be cool to add (each new command is denoted with the ">" symbol with the result following after until the next command):
> view keychecks
13,42,121,32,88,77,19,13,44,52,77,90,13,99,13,100,13,109,55,103,144,13,99,87,60,13,44,12,09,13,43,63,13,46,57,89,103,122,13,44,52,88,931,13,21,13,57,98,100,102,103,13,112,13,146,13,13,13,77,67,88,23,13,13
system
nedry
go to command level
nedry
040/#xy/67&
mr goodbytes
security
keycheck off
safety off
sl off
security
whte_rbt.obj
> find whte_rbt.obj
object not found in libraries
> find/listings: whte_rbt.obj
curV = GetHandl {ssm.dt} tempRgn {itm.dd2}.
curH = GetHandl {ssd.itl} tempRgn2 {itm.dd4}.
on DrawMeter(!gN) set shp_val.obj to lim(Val{d})-Xval.
if ValidMeter(mH) (**mH).MeterVis return.
if MeterHandl(vGT) ((DrawBack(tY)) return.
limitDat.4 = maxBits (%33) to {limit .04} set on.
limitDat.5 = setzero, setfive, 0 {limit .2-var(szh)}.
→on whte_rbt.obj call link.sst {security, perimeter} set to off.
vertRange = {maxRange+setlim} tempVgn(fdn-&bb+$404).
horRange = {maxRange-setlim/2} tempHgn(fdn-&dd+$105).
void DrawMeter send_screen.obj print.
Vg1 = GetHandl {dat.dt} tempCall {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
if Link(Vg1,Vg2) set Lim(Vg1,Vg2) return
if Link(Vg2,Vg1) set Lim(Vg2,Vg1) return
→on whte_rbt.obj link set security (Vg1), perimeter (Vg2)
limitDat.1 = maxBits (%22) to {limit .04} set on
limitDat.2 = setzero, setfive, 0 {limit .2-var(dzh)}
→on fini.obj call link.sst {security, perimeter} set to on
→on fini.obj set link.sst {security, perimeter} restore
→on fini.obj delete line rf whte_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCall {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
limitDat.1 = maxBits (%33) to {limit .04} set on
limitDat.2 = setzero, setfive, 0 {limit .2-var(szh)}
> fini.obj
Vg1 = GetHandl {dat.dt} tempCall {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
if Link(Vg1,Vg2) set Lim(Vg1,Vg2) return
if Link(Vg2,Vg1) set Lim(Vg2,Vg1) return
limitDat.1 = maxBits (%22) to {limit .04} set on
limitDat.2 = setzero, setfive, 0 {limit .2-var(dzh)}
Vg1 = GetHandl {dat.dt} tempCall {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
limitDat.1 = maxBits (%33) to {limit .04} set on
limitDat.2 = setzero, setfive, 0 {limit .2-var(szh)}

also with the initialization of the program you could have the following from the book show up:
*/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.obj to lim(Val{d}SumVal
if SetMeter(mH) (**mH).ValidMeter(Vdd) return
on SetSystem(!Telcom) set mxcpl.obj to lim(Val{pd})NextVal

Hope to see this up in the future! Great job so far you guys!