1	!	TECO6B  -  CCL HANDLER FOR TECO-11 RUN-TIME SYSTEM

2!			  Lawrence University
			    Computer Center
		       Appleton, Wisconsin 54911
		       (414) 739-3681,  ext. 564

3!	Copyright (C) 1977 by Lawrence University of Wisconsin.  General
	permission to copy or modify, but not for profit, all or part of
	this document  or  the  software  described   herein  is  hereby
4!	granted, provided that Lawrence's copyright notice is given, and
	reference is made to the fact that reproduction privileges  were
	granted by permission of Lawrence University of Wisconsin.

5!	Although  every  effort has been made to insure the accuracy and
	usefulness of this document and the software  described  herein,
	neither  the  author(s),  Lawrence  University,  nor its funding
6!	sources make any warranty, expressed or implied, with respect to
	the  performance or features of same on equipment which Lawrence
	neither owns nor controls.

7!	This program for RSTS/E V6B installations passes CCL commands to
	an  alternate  run-time  system.   The  latter  must  have  been
	installed properly as a contiguous file in  [0,1]  and  must  be
8!	activated  for each timesharing session with UTILTY commands ADD
	and (optionally) LOAD.

100	N%=0%
200
	!	CCL handler for TECO alternate run-time system
		Passes file name from CCL commands (TECO or MAKE)
		through core common to TECO.RTS

210	GOTO 270 UNLESS N% AND (LEN(C$)>4%)
\	C$=C$+'.BAS' UNLESS INSTR(1%,C$,'.')
		! Skip if no CCL or no file specification
		! Set '.BAS' if no extension given
220	C%=INSTR(1%,C$,'\')
\	C$=LEFT(C$,C%-1%)+RIGHT(C$,C%+1%)
\	GOTO 270 IF C%
		! Backslash overrides BASIC-PLUS option
230	C%=C% OR INSTR(1%,C$,'.BAS')
		! BASIC-PLUS option for '.BAS' files
240	C%=C% OR INSTR(1%,C$,'.BEX')
		! BASIC-PLUS option for '.BEX' files
250	C%=C% OR INSTR(1%,C$,'.MAS')
		! BASIC-PLUS option for '.MAS' files
260	C$=C$+'/' IF C%
		! Set BASIC-PLUS option
270	C$=SYS(CHR$(8%)+C$)
		! Put core common string
280	R$='TECO'
300
	!	Deliver the user to the run-time system
		under RSTS/E, V06B-02

310	CHAIN R$+'.LDA' N%
30000
	!	CCL entry point - get core common string

30010	N%=30000%
\	C$=CVT$$(SYS(CHR$(7%)),-1%)
\	GOTO 200
32767	END