LRHYBC9.m

LRHYBC9 ;VA/DALOI/HOAK - UTILITY FOR LAB HOWDY ; 13-Aug-2013 09:16 ; MKK

 ;;5.2;LAB SERVICE;**405,1033**;NOV 01, 1997

 ;

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

LRHYBC9   ;VA/DALOI/HOAK - UTILITY FOR LAB HOWDY ; 13-Aug-2013 09:16 ; MKK

 +1       ;;5.2;LAB SERVICE;**405,1033**;NOV 01, 1997

 +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