C-PS/8 FOCAL, 1971
 1.05 C SYMBO1.RE
 1.10 L C FOCAL.TM
 1.20 F X=2,8;D X
 1.30 T !"*** SPECIAL CHARACTERS:"!!!!;G 9.1
 1.40 D 2.2;F X=3,8;D X
 2.10 T !!!!!"***** SYMBOLS:"!!!!
 2.20 T "*** ARITHMETIC SYMBOLS:"!!!!
 3.10 T "EXPONENTIATION":20,"[^]    (INDICATES AN INTEGER EXPONENT)"!
 3.20 T "TYPE 3^2":20,"(OUTPUTS A 	9	 --- 3 TO THE SECOND POWER)"!
 3.30 T "SET X=Y^Z":20,"(SETS X EQUAL TO Y RAISED TO THE INTEGRAL Z POWER)"!
 3.40 T "TYPE 2^3.5":20,"(OUTPUTS AN 	8	 --- THE .5 IS DROPPED)"!!!!!
 4.10 T "MULTIPLICATION":20,"[*]"!
 4.20 T "TYPE 2*4":20,"(OUTPUTS AN 	8	)"!
 4.30 T "SET X=Y*Z":20,"(SETS X EQUAL TO Y TIMES Z)"!!!!!
 5.10 T "DIVISION":20,"[/]"!
 5.20 T "TYPE 6/2":20,"(OUTPUTS A 	3	)"!
 5.30 T "SET X=Y/Z":20,"(SETS X EQUAL TO Y DIVIDED BY Z)"!!!!!
 6.10 T "ADDITION":20,"[+]"!
 6.20 T "TYPE 2+2":20,"(OUTPUTS A 	4	)"!
 6.30 T "SET X=Y+Z":20,"(SETS X EQUAL TO Y PLUS Z)"!!!!!
 7.10 T "SUBTRACTION":20,"[-]"!
 7.15 T "TYPE 3-X":20,"(OUTPUTS THE VALUE OF 3-X)"!
 7.20 T "SET X=Y-Z":20,"(SETS X EQUAL TO Y MINUS Z)"!!!!!
 8.10 T "ENCLOSURES":20,"(),[], AND <> MAY BE USED INTERCHANGEABLY"!
 8.20 T :20,"IN MATCHED PAIRS TO ENCLOSE QUANTITIES"!
 8.30 T :20,"WHICH ARE TO BE OPERATED ON AS A UNIT."!!!!!
 9.10 T "RETURN/LINE FEED":20,"[!]"!
 9.20 T "TYPE !!!!,X,!!":20,"(OUTPUTS 4 CARRIAGE RETURN/LINE FEEDS, THE VALUE"!
 9.30 T :22,"OF X, AND THEN 2 MORE CARRIAGE RETURN/LINE FEEDS."!!!!
10.10 T "CARRIAGE RETURN":20,"[]"!
10.20 T "SEE WHAT THE 	"
10.22 T ""
10.23 T "	 DOES TO LINE "
10.24 T "10.35"
10.25 T " FIRST WRITTEN THEN EXECUTED:"!
10.26 T "(SEE HOW THE 	/	 AND THE 	=	 ARE SUPERIMPOSED)"!
10.30 W 10.35
10.35 TYPE "X=5",," /",!!!!!
11.10 T "TAB":20,"[:]"!
11.20 D 10.2;T ":";D 10.23;T "11.37";D 10.25;W 11.37
11.34 T %6.04
11.37 TYPE "NAME---":25,"ROGER":40,"AGE = ",2*13,!!!!!
12.10 T "OUTPUT FORMATTER":20,"[%]"!
12.20 D 10.2;T "%";D 10.23;T "12.30";D 10.25;W 12.3
12.30 SET X=123.456;TYPE %6.04 X,!;TYPE % 4.02 X,!;T % 3.0 X,!;T %,X,!
12.40 T "	%4.02	 PERMITS FOUR DIGITS TO BE OUTPUT INCLUDING UP TO TWO"!
12.50 T "DECIMAL PLACES; 	TYPE %	 ALONE GIVES POWERS OF TEN NOTATION."!!!!!
13.10 T "SYMBOL TABLE":20,"[$]"!
13.20 T "TYPE $":20,"(OUTPUTS LIST OF DEFINED VARIABLES)"!!!!!
14.10 T "QUOTATION MARKS":20,"["
14.15 T %6.04
14.20 S X=FOUT(162)
14.30 T "]"!
14.40 T "TEXT MAY BE TYPED BY ENCLOSING IT IN QUOTES"!
14.50 D 10.2;D 14.2;D 10.23;T "14.65";D 10.25;W 14.65
14.65 TYPE "THE ANSWER IS ",3+8,!!!!!
15.10 T "TRACE":20,"[
]"!
15.15 T %6.04
15.20 T "THE FIRST TIME FOCAL READS A 	
	 (EXCEPT WITHIN QUOTES) IT WILL"!
15.30 T "START OUTPUTTING THE PROGRAM WHILE IT IS EXECUTING IT; THE NEXT"!
15.40 T "TIME IT ENCOUNTERS A 	
	 IT WILL STOP TYPING OUT THE PROGRAM."!
15.50 D 10.2;T "
";D 10.23;T "15.60";D 10.25;W 15.6
15.60 SET X=3;
 SET Y=5;TYPE X/Y,!

15.70 T "A 	GO 
	 COMMAND WILL TRACE THE ENTIRE PROGRAM."!!!!!
16.10 L R SYMBO2.RE 6.1