10!  DEVICE	VER 6A	EDIT 02 	29-DEC-75	J.KRUPP

20!	ASSIGN THE PLOTTER (KB9:) TO REQUESTING JOB.
30!	THIS PROGRAM SHOULD BE COMPILED AND STORED AS
		[1,2]DEVICE.BAC<232>
	IF KEYBOARD ASSIGNMENT IS PRIVILEGED.

40!	MODIFIED 02-NOV-76 BY J.CONDICT TO ALLOW A PROGRAM TO CHAIN
	TO THE BEGINNING OF $DEVICE AND HAVE $DEVICE CHAIN BACK.
	CORE COMMON MUST CONTAIN THE FOLLOWING:

50!	"^^"+<chain program name>+CHR$(13%)+CVT%$(chain line number>=0%)
	+<any extra text that will be put back in CC for return chain>

	IF THE PROGRAM HAS ANY DIFFICULTY DECODING THE CHAIN INFORMATION
60!	OR CHAINING, IT WILL QUIETLY TERMINATE, ASSUMING THAT SOMEONE
	HAS SIMPLY RUN THE PROGRAM.

100 N%=9%	!KB # FOR HP PLOTTER
110 I$=SYS(CHR$(6%)+CHR$(10%)+STRING$(20%,0%)+'KB'+CHR$(N%)+CHR$(255%))
115 I$=SYS(CHR$(6%)+CHR$(-4%)+CHR$(N%)+CHR$(15%))+
	SYS(CHR$(6%)+CHR$(-4%)+CHR$(N%)+CHR$(15%))
	! FORCE ^O TO PLOTTER
	! FORCE ANOTHER AFTER A SHORT TIME TO DELETE PREVIOUS ^O
120 I$=SYS(CHR$(7%))
	\ GOTO 999 UNLESS LEFT(I$,2%)="^^"
	! END UNLESS FLAGGED TO CHAIN BACK TO ANOTHER PROGRAM.
130 ON ERROR GOTO 900
	\ I%=INSTR(1%,I$,CHR$(13%))
	\ L%=CVT$%(RIGHT(I$,I%+1%))
	\ GOTO 999 IF I%=0% OR L%<0%
	\ A$=SYS(CHR$(8%)+RIGHT(I$,I%+3%))
	\ CHAIN MID(I$,3%,I%-1%) L%
	! DECODE CC, PUT UNUSED STRING BACK IN CC, CHAIN TO PROGRAM.

900 RESUME 999
	! IF ERROR IN ATTEMPTING TO CHAIN TO PROGRAM, QUIETLY END.
999 END