LRHYBC9.m

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 ---LRHYBC9   419     printed  Mar 13, 2025@21:19:34                                                                                                                                                                                                      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