()0XZBTC-PS/8 FOCAL, 1971?MB]BEC SYMBO1.RE?MB&BJL C FOCAL.TM?MU BTF X=2,8;D X?MB;B(D 2.2;F X=3,8;D X?MCLDJT !!!!!"***** SYMBOLS:"!!!!?MC
DTT "*** ARITHMETIC SYMBOLS:"!!!!?MQ FJT "EXPONENTIATION":20,"[^]    (INDICATES AN INTEGER EXPONENT)"!?MRAF^T "SET X=Y^Z":20,"(SETS X EQUAL TO Y RAISED TO THE INTEGRAL Z POWER)"!?MR$HJT "MULTIPLICATION":20,"[*]"!?MR9JJT "DIVISION":20,"[/]"!?ME&J^T "SET X=
/Z":20,"(SETS X EQUAL TO Y DIVIDED BY Z)"!!!!!?MSMLJT "ADDITION":20,"[+]"!?MFPL^T "SET X=Y+Z":20,"(SETS X EQUAL TO Y PLUS Z)"!!!!!?MS!NJT "SUBTRACTION":20,"[-]"!?MF=NTT "SET X=Y-Z":20,"(SETS X EQUAL TO Y MINUS Z)"!!!!!?MG
PJT "ENCLOSURES":20,"(),[], AND <> MAY BE USED INTERCHANGEABLY"!?MG:PTT :20,"IN MATCHED PAIRS TO ENCLOSE QUANTITIES"!?MHWP^T :20,"WHICH ARE TO BE OPERATED ON AS A UNIT."!!!!!?MS;RJT "RETURN/LINE FEED":20,"[!]"!?MH;TJT "CARRIAGE RETURN":20,"[]"!?MIGTTT "SE
 WHAT THE 	"?MIMTVT ""?MIZTWT "	 DOES TO LINE "?MI"TXT "10.35"?MI6TYT " FIRST WRITTEN THEN EXECUTED:"!?MJSTZT "(SEE HOW THE 	/	 AND THE 	=	 ARE SUPERIMPOSED)"!?MJZT^W 10.35?MJ)TTYPE "X=5",," /",!!!!!?MJ5VJT "TAB":20,"[:]"!?MKOVTD 10.2;T ":";D 10.23;T "11.
7";D 10.25;W 11.37?MKVV"T %6.04?MK1V%TYPE "NAME---":25,"ROGER":40,"AGE = ",2*13,!!!!!?MLCXJT "OUTPUT FORMATTER":20,"[%]"!?ML]XTD 10.2;T "%";D 10.23;T "12.30";D 10.25;W 12.3?MMX^SET X=123.456;TYPE %6.04 X,!;TYPE % 4.02 X,!;T % 3.0 X,!;T %,X,!?MM$X(T "	%4.0
	 PERMITS FOUR DIGITS TO BE OUTPUT INCLUDING UP TO TWO"!?MNJX2T "DECIMAL PLACES; 	TYPE %	 ALONE GIVES POWERS OF TEN NOTATION."!!!!!?MWWZJT "SYMBOL TABLE":20,"[$]"!?MN*\JT "QUOTATION MARKS":20,"["?MN1\OT %6.04?MN;\TS X=FOUT(162)?MUE\^T "]"!?MO\\2D 10.2;D 1
.2;D 10.23;T "14.65";D 10.25;W 14.65?MO/]ATYPE "THE ANSWER IS ",3+8,!!!!!?MO<^JT "TRACE":20,"[
]"!?MPC^OT %6.04?MU6^TT "THE FIRST TIME FOCAL READS A 	
	 (EXCEPT WITHIN QUOTES) IT WILL"!?MQB^2D 10.2;T "
";D 10.23;T "15.60";D 10.25;W 15.6?MV[^<SET X=3;
 SET Y=5;TYPE X/Y,!
?M JL R SYMBO2.RE 6.1?MDBFTT "TYPE 3^2":20,"(OUTPUTS A 	9	 --- 3 TO THE SECOND POWER)"!?MD(F(T "TYPE 2^3.5":20,"(OUTPUTS AN 	8	 --- THE .5 IS DROPPED)"!!!!!?MV:HTT "TYPE 2*4":20,"(OUTPUTS AN 	8	)"!?MEGJTT "TYPE 6/2":20,"(OUTPUTS A 	3	)"!?ME4LTT "TYPE 2+2"
20,"(OUTPUTS A 	4	)"!?MF NOT "TYPE 3-X":20,"(OUTPUTS THE VALUE OF 3-X)"!?MTRTT "TYPE !!!!,X,!!":20,"(OUTPUTS 4 CARRIAGE RETURN/LINE FEEDS, THE VALUE"!?MH)R^T :22,"OF X, AND THEN 2 MORE CARRIAGE RETURN/LINE FEEDS."!!!!?MOA\(T "TEXT MAY BE TYPED BY ENCLOSIN
 IT IN QUOTES"!?MB/B^T !"*** SPECIAL CHARACTERS:"!!!!;G 9.1?MW6^^T "START OUTPUTTING THE PROGRAM WHILE IT IS EXECUTING IT; THE NEXT"!?MQT
FT "A 	GO 
	 COMMAND WILL TRACE THE ENTIRE PROGRAM."!!!!!?MD9H^T "SET X=Y*Z":20,"(SETS X EQUAL TO Y TIMES Z)"!!!!!?MNZZTT "TYPE $":20,"(OUTPUTS LIST OF DEFINED VARIABLES)"!!!!!?MP(^(T "TIME IT ENCOUNTERS A 	
	 IT WILL STOP TYPING OUT THE PROGRAM."!?M!!L S SYMBO1.RE;L C DTA2:SYMBO2.RE?M?MOP TYPING OUT THE PROGRAM."!?M!!?MOGRAM."!!!!!?MTHE NEXT"!?MINE FEEDS."!!!!?E"!?E;E A?M?E 1.2?MV!L R HELP 4.7?M.7L S LIBRAR.RE;E A?M?A?M?:7*0B8.1"6* B0.0B *MBJ*7:7

Note: Lines longer than 256 characters were wrapped