System Code Databse

new

« Prev
1
Next »

Freddie
Colonel

Chief Archive Officer

The Lieutenant

Posts: 44,387

Troop No: 26319
Company: Delta
Department: Archive
Level: 16
Stars: 5
Region: Europe
Country: Sweden
Service Number: 01-01-08-238
Status: Active Member
Woodchuck Class: 3

System Code Databse May 2, 2020 0:01:14 GMT 1 Freddie likes this

Quote

Post by Freddie on May 2, 2020 0:01:14 GMT 1

Jurassic Park System Startup
Version 4.3

Startup
AB (0)
Security Main Monitor Main Command Main Electrical Main
SetGrids DNL View VBB Access TNL Heating Cooling
Critical Locks TeleCom VBB Reset Revert Emgency
Controll Passthrough Telecom RSD Template Main FNCC Params

Startup
CN/D
Hydrallic Main Master main Zoolog Main
Door Fold Interface SAAG-Rnd Repair Storage
GAS/VLD Main II Common Interface Status Main
Explosion Fire Hzd Schematic Main Safety / Health

STANDARD PARAMETERS
Grid Code Grid Code
Park Grids B4-C6 Outer Grids C2-D2
Zoological Grids BB-07 Pen Grids 4-R4
Lodge Grids F4-D4 Maint Grids E5-L6
Main Grids C4-G7 Sensor Grids D5-G4
Utility Grids AH-B5 Core Grids A1-C1
Circuit Integrity Not Tested
Security Grids Remain Automatic

Jurassic Park Main Modules/
/
/SystemRoot/MainHarddrive.sys
/Call libs
Include: biostat.sys
Include: sysrom.vst
Include: net.sys
Include: pwr:mdl
/
/Initialize
SetMain [42]2002/9A(total CoreSysop [vig.7tty})
< input command_main_workingcodes.obj
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
{limiDat=dat.serv. obj-file}
08:07 2016-03-28
08:07 2016-03-28
08:07 2016-03-28
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
{limiDat=dat.serv. obj-file}
08:07 2016-03-28
08:07 2016-03-28
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
{limiDat=dat.serv. obj-file}
LimitDat.6 = setzero, set six, 1 =
LimitDat.7 = setzero, set seven, 2 =
LimitDat.8 = setzero, set eight, 3 =
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
{limiDat=dat.serv. obj-file}
08:07 2016-03-28
08:07 2016-03-28
08:07 2016-03-28
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
{limiDat=dat.serv. obj-file}
08:07 2016-03-28
08:07 2016-03-28
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.

The Global Network - General
Hogwarts House - Ravenclaw
Ingress Resistance Agent - Level 12

World Organization of The Junior Woodchucks
Lieutenant General / Chief Archive Officer

Follow Me On Twitter
twitter.com/TheGlobalNetwo4

webboard.org/theglobalnetwork/index.php
//
Duckburg Family Tree
goofy313g.free.fr/calisota_online/trees/ducktrees/myducktree.pdf

Freddie
Colonel

Chief Archive Officer

The Lieutenant

Posts: 44,387

Troop No: 26319
Company: Delta
Department: Archive
Level: 16
Stars: 5
Region: Europe
Country: Sweden
Service Number: 01-01-08-238
Status: Active Member
Woodchuck Class: 3

System Code Databse May 2, 2020 0:01:57 GMT 1 Freddie likes this

Quote

Post by Freddie on May 2, 2020 0:01:57 GMT 1

The Global Network

Jurassic Park System Startup
Version 4.3

Startup
AB (0)
Security Main Monitor Main Command Main Electrical Main
SetGrids DNL View VBB Access TNL Heating Cooling
Critical Locks TeleCom VBB Reset Revert Emgency
Controll Passthrough Telecom RSD Template Main FNCC Params

Startup
CN/D
Hydrallic Main Master main Zoolog Main
Door Fold Interface SAAG-Rnd Repair Storage
GAS/VLD Main II Common Interface Status Main
Explosion Fire Hzd Schematic Main Safety / Health

STANDARD PARAMETERS
Grid Code Grid Code
Park Grids B4-C6 Outer Grids C2-D2
Zoological Grids BB-07 Pen Grids 4-R4
Lodge Grids F4-D4 Maint Grids E5-L6
Main Grids C4-G7 Sensor Grids D5-G4
Utility Grids AH-B5 Core Grids A1-C1
Circuit Integrity Not Tested
Security Grids Remain Automatic

Jurassic Park Main Modules/
/
/SystemRoot/MainHarddrive.sys
/Call libs
Include: biostat.sys
Include: sysrom.vst
Include: net.sys
Include: pwr:mdl
/
/Initialize
SetMain [42]2002/9A(total CoreSysop [vig.7tty})
< input command_main_workingcodes.obj
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
{limiDat=dat.serv. obj-file}
08:07 2016-03-28
08:07 2016-03-28
08:07 2016-03-28
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
{limiDat=dat.serv. obj-file}
08:07 2016-03-28
08:07 2016-03-28
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
{limiDat=dat.serv. obj-file}
LimitDat.6 = setzero, set six, 1 =
LimitDat.7 = setzero, set seven, 2 =
LimitDat.8 = setzero, set eight, 3 =
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
{limiDat=dat.serv. obj-file}
08:07 2016-03-28
08:07 2016-03-28
08:07 2016-03-28
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.itl} tempCall {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.
{limiDat=dat.serv. obj-file}
08:07 2016-03-28
08:07 2016-03-28
CurV = GetHandl {ssm.dt} tempRgn {itm.dd2}
CurV = GetHandl {ssd.itl} tempRgn” {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.
LimitDat5 = setzero, setfive, = {limit .2-var(szh)}.
On White_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 wht_rbt.obj link set security (Vg1),perimeter (Vg2)
LimitDat.1 = matbits (%22) to {limit .04} set on.
LimitDat.2 = setzero, setfive, = {limit .2-var(szh)}.
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 wht_rbt.obj, fini.obj
Vg1 = GetHandl {dat.dt} tempCAll {itm.temp}
Vg2 = GetHandl {dat.dt} tempCAll {itm.temp}
LimitDat.4 = matbits (%33) to {limit .04} set on.
LimitDat.5 = setzero, setfive, 0 = {limit .2-var(szh)}.

Freddie
Colonel

Chief Archive Officer

The Lieutenant

Posts: 44,387

Troop No: 26319
Company: Delta
Department: Archive
Level: 16
Stars: 5
Region: Europe
Country: Sweden
Service Number: 01-01-08-238
Status: Active Member
Woodchuck Class: 3

System Code Databse Feb 15, 2021 9:18:39 GMT 1 Freddie likes this

Quote

Post by Freddie on Feb 15, 2021 9:18:39 GMT 1

🌐 The Global Network 🌐

*/Call libs
Include: biostat.sys
Include: sysrom.vst
Include: net.sys
Include: pwr:mdl
*/
*/Initialize
SetMain [42]2002/gA{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). ValidMeter(Vdd) return

The Global Network Forum

System Code Databse

Post by Freddie on May 2, 2020 0:01:14 GMT 1

Post by Freddie on May 2, 2020 0:01:57 GMT 1

Post by Freddie on Feb 15, 2021 9:18:39 GMT 1

Quick Reply