File: FUNCT2.RE of Tape: Sources/Focal/fc3

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C-PS/8 FOCAL, 1971

01.05 C FUNCT2.RE
01.10 L C FOCAL.TM

09.10 T "FIN( )   CHARACTER INPUT FUNCTION"!
09.11 T "ASKS FOR A CHARACTER FROM THE TERMINAL (OR A FILE); EXAMPLE:"!
09.12 W 9.14
09.13 G 9.15
09.14 SET X=FIN( )
09.15 T "SETS X TO THE DESCIMAL ASCII CODE OF THE INPUT CHARACTER"!!!
09.20 T "FOUT( )  CHARACTER OUTPUT FUNCTION"!
09.22 T "EXAMPLE:"!
09.23 W 9.25
09.24 G 9.26
09.25 SET A=FOUT(X)
09.26 T "OUTPUTS THE CHARACTER WHOSE CODE EQUALS X"!!!
09.30 T "IF AN 'L' WERE TYPED IN RESPONSE TO LINE 9.14, X WOULD BE SET"!
09.31 T "EQUAL TO 204.  THEN LINE 9.25 WOULD CAUSE AN 'L' TO BE OUTPUT."!
09.32 T "THE 'A' ON LINE 9.25 IS A DUMMY VARIABLE."!!!!!
09.35 T "DECIMAL ASCII CODES:"!!"FOR FIN( ) AND FOUT( ):"!!!
09.36 T "CODE CHARACTER      CD. CHAR.  CD. CHAR."!
09.38 T "---- -----------    --- -----  --- -----"!
09.40 T " 128 CTRL/SHFT/P":21,"160 SPACE  193 A"!
09.42 T :6,"(LEADER)":21,"161 !":32,"194 B"!
09.44 S A=162;T %3.0;D 12
09.45 G 9.77
09.46 T " 129 CTRL/A"
09.47 T " 130 CTRL/B"
09.48 T " 131 CTRL/C"
09.49 T " 132 CTRL/D
09.50 T " 133 CTRL/E"
09.51 T " 134 CTRL/F"
09.52 T " 135 CTRL/G"
09.53 T " 136 CTRL/H"
09.54 T " 137 CTRL/I"
09.55 T " 138 LINE FEED"
09.56 T " 139 CTRL/K"
09.57 T " 140 CTRL/L"
09.58 T " 141 RETURN"
09.59 T " 142 CTRL/N"
09.60 T " 143 CTRL/O"
09.61 T " 144 CTRL/P"
09.62 T " 145 CTRL/Q"
09.63 T " 146 CTRL/R"
09.64 T " 147 CTRL/S"
09.65 T " 148 CTRL/T"
09.66 T " 149 CTRL/U"
09.67 T " 150 CTRL/V"
09.68 T " 151 CTRL/W"
09.69 T " 152 CTRL/X"
09.70 T " 153 CTRL/Y"
09.71 T " 154 CTRL/Z"
09.72 T " 155 CTRK/SHFT/K"
09.73 T " 156 CTRL/SHFT/L"
09.74 T " 157 CTRL/SHFT/M"
09.77 T " 158 CTRL/SHFT/N    191 ?":32,"253 ALT MODE"!
09.78 T " 159 CTRL/SHFT/O    192 ";S K=FOUT(192);T :32,"255 RUBOUT"!!!
09.79 T "FOUT(141) WILL OUTPUT A RETURN/LINE FEED; FOUT(13) WILL OUTPUT A"!
09.80 T "CARRIAGE RETURN ONLY.  CODE 144 (CTRL/P) IS PS/8 FOCAL'S BREAK CHARACTER."!
09.81 T "224 THROUGH 250 ARE LOWER-CASE LETTERS ON SOME TERMINALS.  MANY"!
09.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

---