C-PS/8 FOCAL, 1971
 1.05 C FUNCT2.RE
 1.10 L C FOCAL.TM
 9.10 T "FIN( )   CHARACTER INPUT FUNCTION"!
 9.11 T "ASKS FOR A CHARACTER FROM THE TERMINAL (OR A FILE); EXAMPLE:"!
 9.12 W 9.14
 9.13 G 9.15
 9.14 SET X=FIN( )
 9.15 T "SETS X TO THE DESCIMAL ASCII CODE OF THE INPUT CHARACTER"!!!
 9.20 T "FOUT( )  CHARACTER OUTPUT FUNCTION"!
 9.22 T "EXAMPLE:"!
 9.23 W 9.25
 9.24 G 9.26
 9.25 SET A=FOUT(X)
 9.26 T "OUTPUTS THE CHARACTER WHOSE CODE EQUALS X"!!!
 9.30 T "IF AN 	L	 WERE TYPED IN RESPONSE TO LINE 9.14, X WOULD BE SET"!
 9.31 T "EQUAL TO 204.  THEN LINE 9.25 WOULD CAUSE AN 	L	 TO BE OUTPUT."!
 9.32 T "THE 	A	 ON LINE 9.25 IS A DUMMY VARIABLE."!!!!!
 9.35 T "DECIMAL ASCII CODES:"!!"FOR FIN( ) AND FOUT( ):"!!!
 9.36 T "CODE CHARACTER      CD. CHAR.  CD. CHAR."!
 9.38 T "---- -----------    --- -----  --- -----"!
 9.40 T " 128 CTRL/SHFT/P":21,"160 SPACE  193 A"!
 9.42 T :6,"(LEADER)":21,"161 !":32,"194 B"!
 9.44 S A=162;T %3.0;D 12
 9.45 G 9.77
 9.46 T " 129 CTRL/A"
 9.47 T " 130 CTRL/B"
 9.48 T " 131 CTRL/C"
 9.49 T " 132 CTRL/D
 9.50 T " 133 CTRL/E"
 9.51 T " 134 CTRL/F"
 9.52 T " 135 CTRL/G"
 9.53 T " 136 CTRL/H"
 9.54 T " 137 CTRL/I"
 9.55 T " 138 LINE FEED"
 9.56 T " 139 CTRL/K"
 9.57 T " 140 CTRL/L"
 9.58 T " 141 RETURN"
 9.59 T " 142 CTRL/N"
 9.60 T " 143 CTRL/O"
 9.61 T " 144 CTRL/P"
 9.62 T " 145 CTRL/Q"
 9.63 T " 146 CTRL/R"
 9.64 T " 147 CTRL/S"
 9.65 T " 148 CTRL/T"
 9.66 T " 149 CTRL/U"
 9.67 T " 150 CTRL/V"
 9.68 T " 151 CTRL/W"
 9.69 T " 152 CTRL/X"
 9.70 T " 153 CTRL/Y"
 9.71 T " 154 CTRL/Z"
 9.72 T " 155 CTRK/SHFT/K"
 9.73 T " 156 CTRL/SHFT/L"
 9.74 T " 157 CTRL/SHFT/M"
 9.77 T " 158 CTRL/SHFT/N    191 
":32,"253 ALT MODE"!
 9.78 T " 159 CTRL/SHFT/O    192 ";S K=FOUT(192);T :32,"255 RUBOUT"!!!
 9.79 T "FOUT(141) WILL OUTPUT A RETURN/LINE FEED; FOUT(13) WILL OUTPUT A"!
 9.80 T "CARRIAGE RETURN ONLY.  CODE 144 (CTRL/P) IS PS/8 FOCAL	S BREAK CHARACTER."!
 9.81 T "224 THROUGH 250 ARE LOWER-CASE LETTERS ON SOME TERMINALS.  MANY"!
 9.82 T "TERMINALS USE SHIFT/K, /L, AND /M FOR 	[	, 	\	, AND 	]	."!!!!!
11.10 G 11+Q
11.20 L R MISCL2.RE 1.2
11.51 L R HELP 4.7
12.10 F T=9.46,0.01,9.74;D T;D 12.3
12.20 R
12.30 T :19,A," ";S J=FOUT(A);T :30,A+33," ";S J=FOUT(A+33);T !;S A=A+1