()0STBTC-PS/8 FOCAL, 1971?MB]BEC FUNCT2.RE?MB&BJL C FOCAL.TM?MRURJT "FIN( )   CHARACTER INPUT FUNCTION"!?MCBRLW 9.14?MCHRMG 9.15?MQ2RNSET X=FIN( )?MC(RTT "FOUT( )  CHARACTER OUTPUT FUNCTION"!?MP8RVT "EXAMPLE:"!?MC8RXG 9.26?MR9RYSET A=FOUT(X)?MG^R^T "IF AN
	L	 WERE TYPED IN RESPONSE TO LINE 9.14, X WOULD BE SET"!?MEBR T "THE 	A	 ON LINE 9.25 IS A DUMMY VARIABLE."!!!!!?MQXRT "DECIMAL ASCII CODES:"!!"FOR FIN( ) AND FOUT( ):"!!!?ME-R,S A=162;T %3.0;D 12?ME3R-G 9.77?ME>R.T " 129 CTRL/A"?MLR/T " 130 CTRL/B"?MFOV
G 11+Q?MF[VTL R MISCL2.RE 1.2?MF$V3L R HELP 4.7?MF6XJF T=9.46,0.01,9.74;D T;D 12.3?MF:XTR?MX^T :19,A," ";S J=FOUT(A);T :30,A+33," ";S J=FOUT(A+33);T !;S A=A+1?MD&R
T "EQUAL TO 204.  THEN LINE 9.25 WOULD CAUSE AN 	L	 TO BE OUTPUT."!?ME R*T :6,"(LEADER)":21,"161 !":32,"194 B"!?MHCR(T " 128 CTRL/SHFT/P":21,"160 SPACE  193 A"!?MIXSOT "FOUT(141) WILL OUTPUT A RETURN/LINE FEED; FOUT(13) WILL OUTPUT A"!?MKISPT "CARRIAGE RE
URN ONLY.  CODE 144 (CTRL/P) IS PS/8 FOCAL	S BREAK CHARACTER."!?MFISRT "TERMINALS USE SHIFT/K, /L, AND /M FOR 	[	, 	\	, AND 	]	."!!!!!?MH2SNT " 159 CTRL/SHFT/O    192 ";S K=FOUT(192);T :32,"255 RUBOUT"!!!?MJBSQT "224 THROUGH 250 ARE LOWER-CASE LETTERS ON 
OME TERMINALS.  MANY"!?MJ&SMT " 158 CTRL/SHFT/N    191 
":32,"253 ALT MODE"!?MK.SJT " 157 CTRL/SHFT/M"?MLISIT " 156 CTRL/SHFT/L"?ML.R0T " 131 CTRL/C"?ML8R1T " 132 CTRL/D?MMCR2T " 133 CTRL/E"?MMNR3T " 134 CTRL/F"?MMYR4T " 135 CTRL/G"?MM$R5T " 136 CTRL/H"?MM/R6T " 137 CTRL/I"?MM;R7T " 138 LINE FEED"?MNFR8T " 139
CTRL/K"?MNQR9T " 140 CTRL/L"?MN\R:T " 141 RETURN"?MN	R;T " 142 CTRL/N"?MN2R<T " 143 CTRL/O"?MN=R=T " 144 CTRL/P"?MOHR>T " 145 CTRL/Q"?MOSR?T " 146 CTRL/R"?MO^ST " 147 CTRL/S"?MO)SAT " 148 CTRL/T"?MO4SBT " 149 CTRL/U"?MO?SCT " 150 CTRL/V"?MPJSDT " 151 CTRL
W"?MPUSET " 152 CTRL/X"?MP SFT " 153 CTRL/Y"?MP+SGT " 154 CTRL/Z"?MLVSHT " 155 CTRK/SHFT/K"?MC2RWW 9.25?MHYR&T "---- -----------    --- -----  --- -----"!?MP>R$T "CODE CHARACTER      CD. CHAR.  CD. CHAR."!?MCQROT "SETS X TO THE DESCIMAL ASCII CODE OF THE 
NPUT CHARACTER"!!!?MB<RKT "ASKS FOR A CHARACTER FROM THE TERMINAL (OR A FILE); EXAMPLE:"!?MDBRZT "OUTPUTS THE CHARACTER WHOSE CODE EQUALS X"!!!?MDEL S FUNCT2.RE;L C DTA2:SYMBO1.RE?M?MODE EQUALS X"!!!?MDE EQUALS X"!!!?E OUTPUTLE:"!?!?

Note: Lines longer than 256 characters were wrapped