C-PS/8 FOCAL, 1971
 1.05 COMMA2.RE
 1.10 L C FOCAL.TM
 1.20 G 6.1
 1.50 T :20,"(	FOR	 COMMANDS REPEAT AND ADD 1 (OR 	E2	) TO 	E1	 EACH"!
 1.60 T :22,"TIME; THEN GO TO NEXT LINE WHEN 	E1	 EXCEEDS 	E3	.)"!
 1.70 T " L1, L2, OR L3 DEPENDING ON"!,:22,"WHETHER E1 IS -, 0, OR +)"!
 6.10 T "ERASE 2.17",:20,"(DELETES LINE 2.17 FROM INDIRECT PROGRAM)"!
 6.20 T "E 3",:20,"(DELETES ANY GROUP 3 LINES --- 3.01 THROUGH 3.99)"!
 6.30 T "ERASE",:20,"(ZEROES ALL VARIABLES)"!
 6.45 T "ERASE ALL",:20,"(ERASES ENTIRE INDIRECT PROGRAM)"!!
 6.80 T "*ERASE [LINE OR GROUP NUMBER]   (ZEROES VARIABLES IF NO NUMBER GIVEN)",!
 6.85 T !!!!
 7.10 T "FOR P=1,7;TYPE 3":20,"(OUTPUTS A 	3	 SEVEN TIMES)"!
 7.15 T "FOR J=1,5;DO 17.1":20,"(DOES LINE 17.1, FIVE TIMES)"!
 7.20 T "F X=2,2,8;T X/5,!":20,"(OUTPUTS .4 .8 1.2 AND 1.6 )"!
 7.30 T "FOR Z=1,Y;DO 7":20,"(DOES GROUP 7, Y TIMES)"!!
 7.40 T "*FOR X=E1[,E2],E3;[COMMAND TO BE REPEATED]"!;D 1.5;D 1.6
 7.75 T !!!!
 8.10 T "GO 8.17",:20,"(STARTS EXECUTING PROGRAM AT LINE 8.17)"!
 8.20 T "GOTO 3.1",:20,"(STARTS EXECUTING PROGRAM AT LINE 3.1)"!
 8.30 T "GO",:20,"(STARTS EXECUTING PROGRAM AT LOWEST LINE NUMBER)"!
 8.35 T "G":20,"(SAME)"!
 8.40 T "GO 
",:20,"(	TRACE FEATURE	 -- PRINTS PROGRAM DURING EXECUTION)"!
 8.55 T "G X",:20,"(STARTS EXECUTING PROGRAM AT LINE X)"!!
 8.80 T "*GO [LINE NUMBER]  (STARTS EXECUTING INDIRECT PROGRAM AT LINE L1)"!
 8.85 T !!!!
 9.10 T "I (H-5)1.3,1.5,1.7 (	IF	 CHECKS THE VALUE INSIDE THE PARENTHESES)"!
 9.32 T "IF (Y)2.7,1.2,L1   (FOCAL GOES TO LINE 2.7,1.2 OR L1 IF Y IS -, 0, OR +)"!
 9.34 T "I (B-3)2.8,7.9;    (GOES TO NEXT COMMAND IF (B-3) IS POSITIVE)"!
 9.40 T "I (Z)2.7;T 21":20,"(IF Z IS LESS THAN 0 --- THEN 2.7; OTHERWISE 	TYPE 21	)"!
 9.50 T "I (G)2.1,L1,2.4    (IF G=0 THEN GOES TO LINE L1)"!!
 9.80 T "*IF (E1)L1[,L2,L3] (NEXT EXECUTES LINE";D 1.7
 9.88 T !!!!!
10.10 L R COMMA3.RE 1.2