;inilock  --  initializes cursor locking in conditions
;             without frame grabber. Since, in a system
;             with an FG, cursor locking between display
;             images and memory images is default, running
;             on a system without an FG gives different results
;             In the TIMWIN demo system, the following images 
;             need locking:

if ((improp fg) & DIS_BIT) == 0 
 curlock a p
 curlock a q
 curlock a r
 curlock a s
 curlock b p
 curlock b q
 curlock b r
 curlock b s
endif

stop
