File: FOCAL.HL of Tape: Various/ETH/htb1

(Source file text) 

---

*** COMMAND DECODER:

	FOS8 CALLS THE COMMAND DECODER ONCE  AFTER THE
.R FOS8 (OR FOCAL$ IN CCL) COMMAND.
THIS PERMITS THE USE UNDER BATCH AND THIS STILL WORKS
WITH ONLY 12K (16K IF THE BAT: HANDLER IS USED TO OBTAIN
INFORMATION FROM THE BATCH STREAM).

	THE FORMAT OF THE CD COMMAND STRING IS: (OR CCL)

*OUTPUT FILE(.FD)<PROGRAM(.FC),INPUT FILE(.FD)/OPTIONS$ (OR RETURN)


OPTIONS                                      CODE
------------------------------------------------
ASK COMMAND OUTPUTS A ':'			/A
IF TTY HAS BACKSPACE; THIS OPTIMIZES T :	/B
CHAINS TO DEFAULT RUN FILE 'FCINIT'		/C
PROGRAM IS STARTED,NOT ONLY CALLED		/G
ECHO FOR INPUT FILE				/I
NO EXTENDED FUNTIONS (INCL. FSQR)		/N
ECHO FOR OUTPUT FILE				/O
ASK COMMAND PRINTS '?'				/Q
ASK COMMAND OUTPUTS A RINGING SOUND		/R
RETURN TO KM TO SAVE CURRENT VERSION(OPTIONS)	/S
LIST .FC FILE ON OUTPUT DEV.(RETURN TO KM)	/W
6 DECIMAL REDUCED PRECISION MODE		/6
ADJUST TTY: PAGE SIZE				=YYYXXXX
	YYY:# OF LINES IN PAGE (OCTAL)
	XXXX:# OF CHARACTERS ON LINE (OCTAL)

$ OR RETURN AT THE END OF THE COMMAND REGULATES THE
BEHAVIOUR OF FOS8 AFTER THE END OF PROGRAM EXECUTION
(RETURN TO IMMEDIATE MODE VIA Q COMMAND, ERROR OR BREAK).
IF AN ALT/ESC($) IS GIVEN THE PROGRAM IS AUTOMATICALLY
STARTED AND IT RETURNS TO THE KM AFTER IT'S END.
RETURN LETS FOS8 RETURN TO THE IMMEDIATE MODE AND A
^C MUST BE GIVEN TO RETURN TO THE KM.
($ AND RETURN MEANING IS INVERTED IN THE CCL)

FOS8 - 1975 ERROR CODES
-------------------------

CODE		EXPLANATION
----------------------------------------------------------

?AA		'ALL AGAIN' - START OF FOS8
?AB		'A BREAK' - AFTER CTRL/O,P BREAK
?AC		ARRAY CLOSE ERROR
?AD		ARRAY DEVICE IS NON-DIRECTORY
?AE		ARRAY (FX) EXCEEDING ESTABLISHED SIZE
?AF		ARRAY DEVICE FULL
?BA		BAD ARGUMENT IN 'FOR', 'SET' OR 'ASK'
?BF		BAD FUNCTION SYNTAX
?BN		BAD NAME IN FILE SPECIFICATION
?BO		BAD OPEN COMMAND
?BM		BAD MODIFY COMMAND
?CH		CHAIN ERROR (FILE NOT FOUND IN L L COMMAND)
?DE		DEVICE ERROR (WRITE-LOCK?)
?DF		DEVICE FULL (USING LIBRARY SAVE COMMAND)
?DG		'DO' NON-EXISTANT GROUP
?DL		'DO' NON-EXISTANT LINE
?DD		DIRECTORY DEVICE IS REQUIRED
?DI		DIVISION BY ZERO
?EF		READ PAST END-OF-FILE (^Z:CODE 154)
?EO		EXPONENT OVERFLOW
?EP		EXCESS RIGHT PARENTHESIS
?FC		'FOR' COMMA(ND) ERROR
?FD		FILE DELETION ERROR (L D COMMAND)
?FE		FUNCTION NON-EXISTANT OR DOUBLE OPERATORS
?FN		FILE NUMBER (SUBSCRIPT) TO LARGE OR MANY
?FO		FORMAT (T %) ERROR
?GO		'GO' OR 'IF' TARGET LINE MISSING
?IC		ILLEGAL COMMAND
?IE		LOGICAL 'IF' SYNTAX ERROR
?IG		ILLEGAL GROUP NUMBER
?IL		ILLEGAL LINE NUMBER
?IM		IMAGINARY SQUARE ROOT
?LF		LITERALS (VARIABLES) TABLE FULL
?LI		LIBRARY COMMAND ERROR
?LM		LOGARITHM MINUS OR ZERO
?NA		NOT AVAILABLE (OPERATOR,FUNCTION,ETC)
?NE		NO EQUAL SIGN IN 'FOR' OR 'SET'
?NF		NO FILE IN O O "
?ND		NO DEVICE OF THAT NAME
?NI		NO INPUT FILE
?NO		NO OPERATOR BEFORE PARENTHESIS
?NP		NO PROGRAM (L CALL,RUN,GOSUB)
?MO		MANTISSA OVERFLOW
?MP		MISSING PARENTHESIS
?OE		OPEN OUTPUT ERROR
?OF		OUTPUT DEVICE FULL (O O )
?PF		PROGRAM FULL
?PL		PROGRAM TOO LONG (L C,R,G)
?PO		PUSHDOWN LIST OVERFLOW

------------------------------------------------------------

---