LRHYBC9 ;DALOI/HOAK - UTILITY FOR LAB HOWDY ;10/14/93 16:02
;;5.2;LAB SERVICE;**405**;Sep 27, 1994;Build 93
;
SCROLON(LRHYTM,LRHYBM) ;
;MAKES A SCROLLING REGION ON THE SCREEN
;LRHYTM=TOP MARGIN(Y), LRHYBM=BOTTOM MARGIN(Y)
;
D ENS^%ZISS
S IOTM=LRHYTM,IOBM=LRHYBM
W @IOSTBM
Q
SCROLOFF() ;
;RETURNS SCREEN TO NORMAL SETTINGS Y=0 to 24
D ENS^%ZISS
S IOTM=0,IOBM=24
W @IOSTBM
D KILL^%ZISS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRHYBC9 419 printed Oct 16, 2024@18:15:59 Page 2
LRHYBC9 ;DALOI/HOAK - UTILITY FOR LAB HOWDY ;10/14/93 16:02
+1 ;;5.2;LAB SERVICE;**405**;Sep 27, 1994;Build 93
+2 ;
SCROLON(LRHYTM,LRHYBM) ;
+1 ;MAKES A SCROLLING REGION ON THE SCREEN
+2 ;LRHYTM=TOP MARGIN(Y), LRHYBM=BOTTOM MARGIN(Y)
+3 ;
+4 DO ENS^%ZISS
+5 SET IOTM=LRHYTM
SET IOBM=LRHYBM
+6 WRITE @IOSTBM
+7 QUIT
SCROLOFF() ;
+1 ;RETURNS SCREEN TO NORMAL SETTINGS Y=0 to 24
+2 DO ENS^%ZISS
+3 SET IOTM=0
SET IOBM=24
+4 WRITE @IOSTBM
+5 DO KILL^%ZISS
+6 QUIT
