C-PS/8 FOCAL, 1971
 1.05 C MISCL3.RE
 1.10 L C FOCAL.TM
18.10 T "PROGRAM NAMES --- UP TO SIX ALPHABETIC OR NUMERIC CHARACTERS.  FOCAL"!
18.20 T "ASSUMES AN .FC OR .FD EXTENSION (PROGRAM OR DATA)."!!!!
18.30 T "PROGRAM SIZE --- WITH STANDARD FEATURES OF PS/8 FOCAL,1971 RETAINED,"!
18.40 T "PROGRAMS MAY BE ABOUT 3500 CHARACTERS LONG --- 7 BLOCKS.  IF FILES"!
18.60 T "ARE DELETED IN THE INITIAL DIALOGUE, 5500 CHARACTER PROGRAMS ARE"!
18.70 T "POSSIBLE."!!!!
20.10 T "PUSHDOWN LIST OVERFLOW --- WHEN TOO MANY 	DO	 OR 	LIBRARY GOSUB	"!
20.20 T "COMMANDS HAVE BEEN GIVEN WITHOUT A 	RETURN	, FOCAL	S PUSHDOWN"!
20.30 T "LIST BECOMES FILLED.  REMEDY:  REDUCE NUMBER OF BLOCKS IN PROGRAM"!
20.40 T "LENGTH."!!!!
22.10 T "STRINGS --- ARE ANY SERIES OF CHARACTERS SUCH AS:"!!
22.25 TYPE "HELLO"!
22.27 T !"122.5"!"$99.95"!"NOW IS THE TIME FOR ALL GOOD MEN ...."!
22.28 T "TEST34"!!
22.30 T "THE ABOVE STRINGS WERE PRINTED OUT [	122.5	 IS ALSO A NUMBER]"!
22.35 T "BY SURROUNDING THEM WITH QUOTATION MARKS IN A TYPE STATEMENT"!
22.40 T "AS IN LINE 22.25:"!!;W 22.25
22.50 T !!"STRINGS MAY ALSO BE PRINTED OUT CHARACTER BY CHARACTER USING"!
22.55 T "THE 	FOUT()	 FUNCTION; INPUT OF STRINGS MAY BE HANDLED WITH THE"!
22.60 T "	FIN()	 FUNCTION ---- HELP CAN REVIEW 	FIN	, 	FOUT	, AND 	QUOTATION"!
22.65 T "MARKS	 FOR YOU.  ALSO SEE THE FOCAL PROGRAM IN THE INITIAL DIALOGUE."!!
22.70 T "THE ASK COMMAND MAY BE USED TO INPUT SHORT STRINGS FOR COMPARISON"!
22.72 T "PURPOSES.  OBSERVE THE FOLLOWING SUBROUTINE FIRST WRITTEN THEN EXECUTED:"!!!
22.74 F X=22.78,.02,22.88;W X
22.76 T !!!;G 22.9
22.78 COMMENT: 	YES OR NO	 SUBROUTINE
22.80 ASK "ANSWER YES OR NO 
  ",AN
22.82 IF (AN-0YES)22.84,22.86
22.84 IF (AN-0NO)22.8,22.88,22.8
22.86 SET X=2;RETURN
22.88 SET X=1;RETURN
22.90 T "*GO 22.8"!
22.91 T "ANSWER YES OR NO 
  "
22.92 T "YEP"!;D 22.91;T "NOPE"!;D 22.91;T "YES"!!!
22.93 T "PROGRAM CONTROL WOULD THEN RETURN TO COMMAND FOLLOWING SUBROUTINE"!
22.94 T "CALL (	DO	 OR 	LIBRARY GOSUB	) WITH X EQUAL 2."!!!!!
23.10 T "SUBSCRIPTING --- VARIABLES MAY HAVE UNIQUE SUBSCRIPTS FROM -2048 THROUGH"!
23.20 T "2047 ALTHOUGH THE TOTAL NUMBER OF VARIABLES IS LIMITED BY CHOICES MADE"!
23.30 T "IN THE INITIAL DIALOGUE.  NOTE THAT THE SYMBOL TABLE WILL ACCURATELY"!
23.40 T "OUTPUT ONLY THE SUBSCRIPTS BETWEEN 0 AND 99."!!!!
29.10 T "VARIABLES --- MAY BE ONE OR TWO CHARACTERS SUCH AS: A, X, Z7, P2, PI, AB"!
29.15 T "IF 	ABCDEFG	 WERE USED AS A VARIABLE, ONLY 	AB	 WOULD BE SIGNIFICANT."!
29.20 T "VARIABLES MAY NOT START WITH AN 	F	 OR A DIGIT."!!
29.22 T "99 VARIABLES ARE AVAILABLE IF ALL FEATURES OF PS/8 FOCAL ARE RETAINED."!
29.24 T "UP TO 222 REGULAR VARIBLES CAN BE MADE AVAILABLE BY DELETING FEATURES"!
29.26 T "THROUGH THE INITIAL DIALOGUE"!!
29.30 T "	!	, 	"
29.35 S DU=FOUT(162)
29.40 T "	, AND 		 ARE PROTECTED VARIABLES AND CANNOT BE 	TYPED	, 	ASKED	"!
29.50 T "OR 	ERASED	 DIRECTLY, BUT MAY BE 	SET	 AND OTHERWISE USED AS REGULAR"!
29.60 T "VARIABLES.  		, THE SYSTEM STATUS VARIABLE, IS 	SET	 TO SPECIAL CODES"!
29.70 T "BY THE INITIAL DIALOGUE."!!!!
30.10 L R HERROR.RE 1.2