C-PS/8 FOCAL, 1971
 1.11 I ((/7)-FITR(/7)) 1.12,2.05,1.12
 1.12 T !"YOU DO NOT HAVE ENOUGH FEATURES.",!
 1.13 T "RESTART FOCAL WITH FEATURE 4.",!;Q
 2.05 T !"WARTE BITTE, BIS DER COMPUTER SICH ENTSCHIEDEN HAT"!!!
 2.10 O I S: HANGW;T !;E
 2.15 S A=FITR(FRAN()*80+1)
 2.20 S Y=FIN();I (160-Y)2.2,2.25,2.2
 2.25 S B=B+1; I (B-A)2.2
 2.27 S C=C+1
 2.30 S D(C)=FIN()
 2.35 I (D(C)-160)2.37,2.5
 2.37 I (D(C)-187)2.4,2.5
 2.40 I (D(C)-141)2.45,2.3
 2.45 I (D(C)-138)2.27,2.3,2.27
 2.50 I (B-A)2.25
 2.55 S C=C-1;O I TTY:,E
 2.65 F Z=1,C;S E(Z)=173
 2.80 T "DAS WORT HAT ", %3,C," BUCHSTABEN."!!!
 2.85 S G=0
 3.10 S G=G+1
 3.15 T !," NUN RATE:  ",G," 
 "
 3.20 S H=FIN();I (H-141)3.25,3.15
 3.25 S Z=FIN();IF (Z-141)3.3,3.4
 3.30 I (Z-223)3.35,3.2
 3.35 I (Z-255)3.25;T "\";G 3.2
 3.40 I (218-H)3.45;I (193-H)3.5,3.5
 3.45 T !"
*
*
ILLEGAL INPUT"!!;G 3.15
 3.50 T !;S I=0
 3.55 F Z=1,C;D 5
 3.57 I (K-C)3.6,3.83,3.6
 3.60 I (I-2)3.65,3.7
 3.65 I (I)3.65,3.75,4.1
 3.70 T "DEN BUCHSTABEN HAST DU SCHON MAL GERATEN.."!;G 3.15
 3.75 T " FALSCH!"!;S J=J+1;S T(J)=H;I (J-7)4.1,4.1
 3.80 T !!"DAS WAR SEHR SCHLECHT GERATEN. DER MANN MUSS HAENGEN!"!
 3.81 T "DAS WORT HIESS:  ";D 8;T !!!;G 10.1
 3.83 I (-J) 3.86;T !!"AUSGEZEICHNET..EINEN ORDEN!!"
 3.84 T "GERADE NOCH INNERHALB DER TOLERANZ"!;G 3.87
 3.86 T !!"GUT GERATEN!! GRATULIERE!"!
 3.88 T "WIE DU WEISST, HIESS DAS WORT: ";D 8
 3.90 T !!!;G 10.1
 4.10 T !"  ";D 6
 4.15 I (J),4.25;T "      FALSCHE BUCHST.:  ";D 7;G 3.1
 4.25 T "      ALLES RICHTIG",!;G 3.1
 5.10 I (H-D(Z))5.15,5.2
 5.15 R
 5.20 I (E(Z)-D(Z))5.25,5.3,5.25
 5.25 S E(Z)=D(Z);S I=1;S K=K+1
 5.26 R
 5.30 S I=2;R
 6.10 F Z=1,C;S Y=FOUT(E(Z))
 6.15 R
 7.10 F Z=1,J;S Y=FOUT(160);S Y=FOUT(T(Z))
 7.15 R
 8.10 F Z=1,C;S Y=FOUT(D(Z))
 8.15 R
10.10 Q