C-PS/8 FOCAL, 1971
 1.05 COMMA3.RE
 1.10 L C FOCAL.TM
 1.20 G 2.1
 1.70 S DU=FOUT(162)
 1.80 T " TO THE"!,:22,"COMMAND FOLLOWING THE 	DO	 OR 	LIBRARY GOSUB	)"!
 2.10 T !!"	MODIFY  3.72	  FOLLOWED BY A 	RETURN	 AND THE LETTER 	X	 WILL CAUSE"!
 2.20 T "LINE 3.72 TO BE TYPED THROUGH ITS FIRST 	X	.  YOU MAY THEN:"!!
 2.45 T " 1) TYPE IN REST OF REVISED LINE AND HIT 	RETURN	"!
 2.50 T " 2) USE 	RUB OUT	 TO ERASE SINGLE CHARACTERS"!
 2.52 T " 3) HIT 	LINE FEED	 TO KEEP REMAINDER OF OLD LINE"!
 2.54 T " 4) HIT CTRL/L TO GO TO NEXT OCCURRENCE OF 	X	"!
 2.56 T " 5) HIT CTRL/BELL TO CHANGE SEARCH CHARACTER; THEN HIT NEW "
 2.58 T "CHARACTER"!
 2.60 T " 6) HIT 	";S DU=FOUT(223);T "	 (BACK ARROW) TO DELETE LINE OVER TO LEFT MARGIN"!!
 2.62 T "*MODIFY L1"!"C",:20,"(	C	 IS THE PARTICULAR SEARCH CHARACTER CHOSEN)"!
 2.63 T !!!!
 3.10 T "Q":20,"(ABBREVIATION)"!!
 3.15 T "*QUIT":20,"(TERMINATES PROGRAM EXECUTION)"!
 3.20 T !!!!
 4.10 T "R":20,"(ABBREVIATION)"!!
 4.15 T "*RETURN":20,"(ALLOWS ESCAPE FROM A 	DO LOOP	";D 1.8
 4.50 T !!!!
 5.10 T "SET Y=37",:20,"(CAUSES 	Y	 TO TAKE THE VALUE 37)"!
 5.20 T "S A=110/P+32",:20,"(CAUSES 	A	 TO ASSUME THE VALUE OF 110/P+32)"!
 5.30 T "S Y=Y+1",:20,"(SETS THE NEW VALUE OF Y = 1 PLUS OLD VALUE)"!
 5.32 T "S Z=;T Z":20,"(PERMITS TYPING VALUE OF PROTECTED VARIABLE 		)"!
 5.34 T "S =0":20,"(ONLY WAY TO ZERO PROTECTED VARIABLE 		)"!!
 5.40 T "*SET Y=<NUMBER,VARIABLE OR EXPRESSION>"!
 5.50 T !!!!
 6.10 T "TYPE 3":20"(OUTPUTS A 3 ON THE TELEPRINTER OR OTHER OUTPUT DEVICE)"!
 6.20 T "T A":20"(OUTPUTS THE VALUE OF A)"!
 6.30 T "T X/Y-1":20"(OUTPUTS THE VALUE OF THE EXPRESSION X/Y-1)"!
 6.35 T "T ";D 1.7;T "A";D 1.7;T "!";D 1.7;T "B";D 1.7;T "!";
 6.37 D 1.7;T "C";D 1.7;T "!",:20,"(OUTPUTS 	A	, 	B	 AND 	C	 IN A VERTICAL ROW)"!
 6.45 T "T !":20"(OUTPUTS A RETURN/LINE FEED)"!
 6.50 T "T ",:20,"(OUTPUTS A CARRIAGE RETURN WITHOUT A LINE FEED)"!
 6.52 T "T ()":20"(OUTPUTS VALUE OF SYSTEM STATUS VARIABLE 		)"!
 6.55 T "T ";D 1.7;T "ANS: ";D 1.7;T ",26+5":20,"(OUTPUTS 	ANS:  31	"!
 6.58 T "T :8,";D 1.7;T "A";D 1.7;T :20,"(OUTPUTS 	A	 IN POSITION 8 ON LINE)"!
 6.60 T "T $",:20,"(OUTPUTS THE SYMBOL TABLE)"!
 6.65 T "T %10.09",:20,"(SETS THE OUTPUT FORMAT TO ALLOW UP TO 10 DIGITS"!
 6.68 T :22,"TO BE PRINTED, OF WHICH 9 MAY BE DECIMAL PLACES)"!
 6.70 T "T %",:20,"(FORMATS OUTPUT IN POWERS-OF-TEN NOTATION)"!
 6.72 T "(AN INITIAL DIALOGUE OPTION PROVIDES AUTOMATIC PRINTING OF AN 	=	 BY"!
 6.73 T "THE	TYPE	 COMMAND)"!!
 6.75 T "*TYPE [NUMBERS, VARIABLES, EXPRESSIONS, TEXT IN QUOTES, !,,:,$ OR %]"!
 6.78 T !!!!
 7.10 T "WRITE 2.27",:20,"(OUTPUTS LINE 2.27 OF THE INDIRECT PROGRAM)"!
 7.20 T "W 2",:20,"(OUTPUTS GROUP 2)"!
 7.30 T "WRITE ALL",:20,"(OUTPUTS ENTIRE INDIRECT PROGRAM)"!
 7.40 T "W",:20,"(SAME)"!
 7.45 T "W X",:20,"(OUTPUTS GROUP OR LINE GIVEN BY 	X	)"!!
 7.50 T "*WRITE [GROUP OR LINE NUMBER]    (LISTS PROGRAM)"!
 7.55 T !!!!!!!!
 8.10 G 8+Q
 8.20 L R LIBRAR.RE 1.2
 8.31 L R LIBRAR.RE 1.2
 8.32 L R HELP 4.7