100
		EXTEND

	:

		DIM #2%, U9%(63%),U8%(63%,6%),U9$(63%)=9%

10000	PRINT IF POS (0%) :
	PRINT '* Please use the "LEADS" command.' :
	GO TO 32767

10400	GO TO 32767 UNLESS ENTRY.TYPE% AND 5% :
	GO TO 32767 IF ENTRY.TYPE% AND 8%

10410	ENTRY.TYPE% = 1% 

11000	WAIT.TIME% = 60% :
	WAIT.DEATH$ = 'EXIT' :
	GOSUB 28000 :
	GO TO 20000

19900	BAD.COUNTER% = BAD.COUNTER% + 1% :
	IF BAD.COUNTER% >= 3% THEN
		IF ENTRY.TYPE% AND 8% THEN GO TO 32767 ELSE
		   OPTION$ = WAIT.DEATH$ :
		   ENTRY.TYPE% = ENTRY.TYPE% OR 8% :
		   GO TO 21000

20000	WAIT WAIT.TIME% :
	PRINT :
	PRINT '* LEADS Option: '; :
	INPUT LINE #1%, OPTION$ :
	WAIT 0% :
	OPTION$ = CVT$$ (OPTION$, 1%+4%+8%+16%+32%+64%+128%+256%)

21000	GO TO 20000 UNLESS LEN(OPTION$) :
	OPTION.LENGTH% = INSTR (1%, OPTION$+' ', ' ') :
	OPTION.ARGUMENT$ = RIGHT (OPTION$, OPTION.LENGTH%+1%) :
	OPTION$ = LEFT (OPTION$, OPTION.LENGTH%-1%) :
	OPEN OPTION.FILE$ FOR INPUT AS FILE 12%, MODE 8192%

21100	INPUT LINE #12%, INPUT.LINE$ :
	INPUT.LINE$ = CVT$$ (INPUT.LINE$, 1%+4%+8%+16%+32%+128%+256%) :
	INPUT.LENGTH% = INSTR (1%, INPUT.LINE$, '=') :
	GO TO 21100 IF OPTION$ <> LEFT (INPUT.LINE$, INPUT.LENGTH%-1%) :

	INPUT.LINE$ = CVT$$(RIGHT(INPUT.LINE$,INPUT.LENGTH%+1%),8%) :
	TYPE.LENGTH% = INSTR (1%, INPUT.LINE$+' ', ' ') :
	OPTION.TYPE$ = LEFT (INPUT.LINE$, TYPE.LENGTH%-1%) :

	IF OPTION.TYPE$ = 'PRINT' THEN 25100 ELSE
	IF OPTION.TYPE$ = 'CHAIN' THEN 25200 ELSE
	IF OPTION.TYPE$ = 'MANAGER' THEN 25190 ELSE
	IF OPTION.TYPE$ = 'LOGOUT' THEN 25300 ELSE
	IF OPTION.TYPE$ = 'RSTS' THEN 25400
21190		PRINT '* Option file mis-defined.' :
		PRINT '* Please consult your data-base manager.' :
		GO TO 10400

25100	PRINT :
	OPEN RIGHT (INPUT.LINE$, TYPE.LENGTH%+1%)
		FOR INPUT AS FILE 12%, MODE 8192%
		
25110	INPUT LINE #12%, INPUT.LINE$ :
	PRINT INPUT.LINE$; :
	GO TO 25110

25120	CLOSE #12% :
	GO TO 11000 IF ENTRY.TYPE% AND 5% :
	GO TO 32767

25190	GO TO 21100 UNLESS MANAGER%

25200	SEMICOLON% = INSTR (TYPE.LENGTH%+1%, INPUT.LINE$+';', ';') :
	LINE.NUMBER% = VAL (RIGHT (INPUT.LINE$, SEMICOLON%+1%)) :
	FILE.NAME$ = MID (INPUT.LINE$, TYPE.LENGTH%+1%,
		SEMICOLON%-TYPE.LENGTH%-1%) :

	TEMP$ = SYS(CHR$(8%)+OPTION.ARGUMENT$) :

	PRINT :
	CHAIN FILE.NAME$ LINE.NUMBER% :
	STOP

25300	PRINT :
	TEMP$ = SYS(CHR$(8%)+RIGHT (INPUT.LINE$, TYPE.LENGTH%+1%)) :
	CHAIN '$LOGOUT.BAC' :
	STOP

25400	TEMP$ = SYS(CHR$(9%)+
		MID (SYS(CHR$(6%)+CHR$(-10%)+
			RIGHT(INPUT.LINE$, TYPE.LENGTH%+1%)),
			7%, 4%)
		) :
	STOP

28000	ON ERROR GO TO 29000 :
	JOB% = ASCII(SYS(CHR$(6%)+CHR$(9%)))/2% :
	OPEN '#LEA1.DAT' FOR INPUT AS FILE 2%, MODE 1% :
	MANAGER% = U9%(JOB%)=1% :
	OPTION.FILE$ = '#' + U9$(0%) + 'OPTION.LTX' :
	CLOSE 2% :
	PRINT IF POS(0%) :
	OPEN 'KB:OPTION.CMD' FOR INPUT AS FILE 1% :
	BAD.COUNTER% = 0% :
	RETURN

29000	IF ERR = 15% THEN OPTION$ = WAIT.DEATH$ :
	ENTRY.TYPE% = ENTRY.TYPE% OR 8% :
	GO TO 21000

29010	IF ERR =  5% AND ERL = 21000% THEN
	PRINT IF POS(0%) :
	PRINT "* No options available." :
	PRINT "* Please contact your data base manager." :
	TEMP$ = SYS(CHR$(8%)+'BYE/F') :
	CHAIN '$LOGOUT.BAC' :
	STOP

29020	IF ERR = 11% AND ERL = 20000% THEN RESUME 19900

29030	IF ERR = 11% AND ERL = 21100% THEN 
	PRINT IF POS(0%) :
	PRINT "* Invalid option." :
	PRINT "* Please type 'HELP' for more information."
			IF BAD.COUNTER% :
	RESUME 19900

29040	IF ERR = 11% AND ERL = 25110% THEN RESUME 25120

29999	PRINT IF POS(0%) :
	PRINT CVT$$(RIGHT(SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)),3%),4%) +
		' at line ' + NUM1$(ERL) + '.' :
	PRINT "* Please consult data base manager." :
	RESUME 10400

30000	ENTRY.TYPE% = 2% :
	WAIT.TIME% = 0% :
	WAIT.DEATH$ = 'RSTS' :
	OPTION$ = SYS (CHR$(7%)) :
	GO TO 30010 IF LEFT (OPTION$, TEMP%) = LEFT ('LEADS ', temP%)
		FOR TEMP% = 6% TO 1% STEP -1% :
	TEMP% = 0%

30010	OPTION$ = CVT$$(RIGHT(OPTION$,TEMP%+1%),1%+4%+8%+16%+32%+128%+256%):
	GO TO 10410 UNLESS LEN(OPTION$) :
	GOSUB 28000 :
	GO TO 21000

32000	ENTRY.TYPE% = 4% :
	WAIT.TIME% = 60% :
	WAIT.DEATH$ = 'EXIT' :
	GOSUB 28000 :
	GO TO 20000

32767
		END