10 EXTEND 11 ! & ! & ! & ! C O P Y R I G H T N O T I C E & ! & ! & ! No Copyright (C) 1981, 1982, 1983, 1984 by & ! Whittier College, Whittier Ca. & ! & ! & !This software is furnished under no license and may be used & !and copied in accordance with the nonexistent terms of such & !license and with or without the inclusion of the above & !copyright notice. This software or any other copies thereof & !may be provided or otherwise made available to any other & !person. No title to and ownership of the software is hereby & !transferred. & ! & !The information in this software is subject to change without & !notice and should not be construed as a commitment by Whittier & !College or the author. & ! & !Whittier College assumes no responsibility for the use or & !reliability of its software on equipment that is not supplied & !by Whittier College. Whittier College supplies no equipment. & ! & !***************************************************************& ! 12 ! & ! This program was written for internal use and has not & !been significantly modified for export. You may need to make & !changes to fit your system or needs. If you have any problems & !please contact: & ! & ! David Garland & ! Whittier College & ! Whittier CA 90601 & ! (213) 693-0771 ext 289 & ! 20 ! & ! KBJOB & ! & !A program to find the job associated with a keyboard & ! 100 ! & !usual preliminaries & ! 110 GOSUB 1000 200 ! & !get addresses of necessary tables & ! 210 GOSUB 2000 300 ! & !input KB number & ! 310 INPUT "KB number"; KB% 320 KB$ = "KB" + NUM1$(KB%) + ":" 400 ! & !preset JOB% (which is job number times two) & ! 410 JOB% = 0% 500 ! & !next job number & ! 510 JOB% = JOB% + 2% 600 ! & !get JDB% and check for unused jobs and end of table & ! 610 JDB% = PEEK( JOBTBL% + JOB% ) 620 IF JDB% = -1% & THEN PRINT "No job is using "; KB$ \ & GOTO 32767 & !end of job table 630 IF JDB% = 0% & THEN GOTO 510 & !this job not being used 700 ! & !find the keyboard number for this job & !go to next job if not the right one & !print if the right one & ! 710 IOB% = PEEK(JDB%) 720 KB.DDB% = PEEK(IOB%) 730 UNIT% = SWAP%( PEEK( KB.DDB% + 2% ) ) AND 255% 740 IF UNIT% <> KB% THEN GOTO 500 750 PRINT KB$; " is being used by job number";JOB%/2% 760 GOTO 32767 800 ! & !go back for next job & ! 810 GOTO 500 1000 ! & ! & ! SUBROUTINE: preliminaries & ! & ! 1100 ! & !some constants & ! 1110 TRUE% = -1% \ & FALSE% = 0% 1120 BELL$ = CHR$(7%) 1200 ! & !dimension statements & ! 1210 DIM M%(30%) 1900 ! & !return & ! 1990 RETURN 2000 ! & ! & ! SUBROUTINE: get adresses from monitor tables & ! & ! 2100 ! & !monitor tables, part one & ! 2110 CHANGE SYS( CHR$(6%) + CHR$(-3%) ) TO M% 2120 JOBTBL% = M%(11%) + SWAP%( M%(12%) ) 2900 ! & !return & ! 2990 RETURN 32767 END