PROGRAM MEMLOK C C N. a. Bourgeois, Jr. 23-Feb-88/. C C Get and display the current job's position in memory and memory C allocation in kilo-bytes. Lock the job into its current position. C Unlock the job's memory position. Lock the job into the lowest C available memory position. Get and display this new low position. C LINUM = ITSLIN () CALL MEMPOS (LINUM,IPOS) CALL MEMUSE (LINUM,ISIZ) TYPE *,'The memory allocation is:',ISIZ/2,'Kb' TYPE *,'The current position is: ',IPOS/2,'Kb' IERR = LKANMY () IF (IERR .GE. 0) STOP 'Job not privileged' CALL LKLOMY CALL MEMPOS (LINUM,IPOS) TYPE *,'The new position is: ',IPOS/2,'Kb' TYPE * C CALL EXIT END