Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
904 bytes
|
Rev | Line | |
---|
[613] | 1 | ENJPARAM ;(WASH ISC)/JA-Initialize Screen Variables ;5-11-92
|
---|
| 2 | ;;7.0;ENGINEERING;;Aug 17, 1993
|
---|
| 3 | ;DJEOP-ERASE FROM CURRENT XY TO END OF SCREEN
|
---|
| 4 | ;DJHIN-HIGH INTENSITY
|
---|
| 5 | ;DJLIN-LOW INTENSITY
|
---|
| 6 | S U="^",DJRJ="" S:'$D(DUZ(0)) DUZ(0)="" S:'$D(DTIME) DTIME=600 D DT^DICRW
|
---|
| 7 | S IOP="HOME" D ^%ZIS K IOP I $D(^%ZIS(2)) S IOST(0)=$O(^%ZIS(2,"B",IOST,0)) S:$D(^%ZIS(2,IOST(0),7)) DJHIN=$P(^(7),U,1),DJLIN=$P(^(7),U,2),XY="" S:$D(^(1)) (X,XY)=$P(^(1),U,5) S:$D(^(5)) DJEOP=$P(^(5),U,7)
|
---|
| 8 | I $D(DJHIN),($D(DJLIN)),($D(DJEOP)),DJHIN'="",DJLIN'="",DJEOP'="",XY'="" S XY=XY_" "_^%ZOSF("XY") S:^%ZOSF("OS")["DSM-" XY=X_" U $I:(0::::::256*DY+DX)" G BD
|
---|
| 9 | W !,"'HIGH/LOW INTENSITY', 'ERASE TO END OF PAGE' OR 'XY CRT' ATTRIBUTES"
|
---|
| 10 | W:'$D(DJPAR) !,"HAVE NOT BEEN PROPERLY DEFINED FOR YOUR TERMINAL. SEE YOUR SITE MANAGER.",*7
|
---|
| 11 | K DJRJ Q
|
---|
| 12 | BD ;
|
---|
| 13 | S DJCL="S DY=23,DX=0 X XY W @DJEOP"
|
---|
| 14 | S DJCP="S DY=16,DX=0 X XY W @DJEOP"
|
---|
| 15 | S DJRJ=1 K DJJ0
|
---|
| 16 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.