()0YLBTC-PS/8 FOCAL, 1971?MB\BECOMMA3.RE?MB%BJL C FOCAL.TM?MB+BTG 2.1?MB5CFS DU=FOUT(162)?MCYCPT " TO THE"!,:22,"COMMAND FOLLOWING THE 	DO	 OR 	LIBRARY GOSUB	)"!?MDBDJT !!"	MODIFY  3.72	  FOLLOWED BY A 	RETURN	 AND THE LETTER 	X	 WILL CAUSE"!?MD&DTT "LINE
3.72 TO BE TYPED THROUGH ITS FIRST 	X	.  YOU MAY THEN:"!!?MEDD-T " 1) TYPE IN REST OF REVISED LINE AND HIT 	RETURN	"!?ME D2T " 2) USE 	RUB OUT	 TO ERASE SINGLE CHARACTERS"!?ME>D4T " 3) HIT 	LINE FEED	 TO KEEP REMAINDER OF OLD LINE"!?MF[D6T " 4) HIT CTRL/L
TO GO TO NEXT OCCURRENCE OF 	X	"!?MF>D8T " 5) HIT CTRL/BELL TO CHANGE SEARCH CHARACTER; THEN HIT NEW "?MX
D:T "CHARACTER"!?MGND?T !!!!?MG
FJT "Q":20,"(ABBREVIATION)"!!?MG9FOT "*QUIT":20,"(TERMINATES PROGRAM EXECUTION)"!?MG?FTT !!!!?MHPHJT "R":20,"(ABBREVIATION)"!!?MH.HOT "*RETURN":20,"(ALLOWS ESCAPE FROM A 	DO LOOP	";D 1.8?MH4H2T !!!!?MIRJJT "SET Y=37",:20,"(CAUSES 	Y	 TO TAKE THE VALUE 37)
!?MI7JTT "S A=110/P+32",:20,"(CAUSES 	A	 TO ASSUME THE VALUE OF 110/P+32)"!?MJZJ^T "S Y=Y+1",:20,"(SETS THE NEW VALUE OF Y = 1 PLUS OLD VALUE)"!?MJ?J T "S Z=;T Z":20,"(PERMITS TYPING VALUE OF PROTECTED VARIABLE 		)"!?MK
J"T "S =0":20,"(ONLY WAY TO ZERO PROTECTED VARIABLE 		)"!!?MK8J(T "*SET Y=<NUMBER,VARIABLE OR EXPRESSION>"!?MRDJ2T !!!!?MS"LT "T ";D 1.7;T "A";D 1.7;T "!";D 1.7;T "B";D 1.7;T "!";?ML5L<T "T $",:20,"(OUTPUTS THE SYMBOL TABLE)"!?MMZMAT "T %10.09",:20,"(SETS
THE OUTPUT FORMAT TO ALLOW UP TO 10 DIGITS"!?MM:MDT :22,"TO BE PRINTED, OF WHICH 9 MAY BE DECIMAL PLACES)"!?MNZMFT "T %",:20,"(FORMATS OUTPUT IN POWERS-OF-TEN NOTATION)"!?MOBMHT "(AN INITIAL DIALOGUE OPTION PROVIDES AUTOMATIC PRINTING OF AN 	=	 BY"!?MOQMI
 "THE	TYPE	 COMMAND)"!!?MO9MKT "*TYPE [NUMBERS, VARIABLES, EXPRESSIONS, TEXT IN QUOTES, !,,:,$ OR %]"!?MVOMNT !!!!?MW$N(T "W",:20,"(SAME)"!?MPTN7T !!!!!!!!?MPZPJG 8+Q?MP&PTL R LIBRAR.RE 1.2?MP2P
L R LIBRAR.RE 1.2?MP L R HELP 4.7?MGHD>T "*MODIFY L1"!"C",:20,"(	C	 IS THE PARTICULAR SEARCH CHARACTER CHOSEN)"!?MU,L4T "T ()":20"(OUTPUTS VALUE OF SYSTEM STATUS VARIABLE 		)"!?MR+LJT "TYPE 3":20"(OUTPUTS A 3 ON THE TELEPRINTER OR OTHER OUTPUT DEVICE)"!?M
ALTT "T A":20"(OUTPUTS THE VALUE OF A)"!?MK>L^T "T X/Y-1":20"(OUTPUTS THE VALUE OF THE EXPRESSION X/Y-1)"!?MTKL%D 1.7;T "C";D 1.7;T "!",:20,"(OUTPUTS 	A	, 	B	 AND 	C	 IN A VERTICAL ROW)"!?MTL-T "T !":20"(OUTPUTS A RETURN/LINE FEED)"!?MQL2T "T ",:20,"(OUTP
TS A CARRIAGE RETURN WITHOUT A LINE FEED)"!?ML]L:T "T :8,";D 1.7;T "A";D 1.7;T :20,"(OUTPUTS 	A	 IN POSITION 8 ON LINE)"!?MUEL7T "T ";D 1.7;T "ANS: ";D 1.7;T ",26+5":20,"(OUTPUTS 	ANS:  31	"!?MV3NJT "WRITE 2.27",:20,"(OUTPUTS LINE 2.27 OF THE INDIRECT PRO
RAM)"!?MWFNTT "W 2",:20,"(OUTPUTS GROUP 2)"!?MO?N^T "WRITE ALL",:20,"(OUTPUTS ENTIRE INDIRECT PROGRAM)"!?MXAN-T "W X",:20,"(OUTPUTS GROUP OR LINE GIVEN BY 	X	)"!!?MPLN2T "*WRITE [GROUP OR LINE NUMBER]    (LISTS PROGRAM)"!?MP;D<T " 6) HIT 	";S DU=FOUT(223)
T "	 (BACK ARROW) TO DELETE LINE OVER TO LEFT MARGIN"!!?M5"L S COMMA3.RE;L C DTA3:CATLOG?M?ROW) TO DELETE LINE OVER TO LEFT MARGIN"!!?M5":20,"(OUTPUTS   	ANS:  3

Note: Lines longer than 256 characters were wrapped