)
PROGRAM FONEEM
REM W.H.A. SCHOENMAKERS
DATA "PA1","PA2","PA3","PA4","PA5","OY","AY","EH","KK3"
( DATA "PP","JH","NN1","IH","TT2","RR1","AX","MM","TT1"
2 DATA "DH1","IY","EY","DD1","UW1","AO","AA","YY2","AE"
< DATA "HH1","BB1","TH","UH","UW2","AW","DD2","GG3","VV"
F DATA "GG1","SH","ZH","RR2","FF","KK2","KK1","ZZ","NG"
P DATA "LL","WW","XR","WH","YY1","CH","ER1","ER2","OW"
Z DATA "DH2","SS","NN2","HH2","OR","AR","YR","GG2","EL","BB2"
d DIM AA(63),I(4),K(4)
n RESTORE
x FOR X=0 TO 63;DIM J(10)
AA(X)=J;READ $AA(X);NEXT
S=#5000;REM ADRES TABEL
PROC INVOEREN;P.$12
bINPUT "TOETS DE FONEEM IN"$I
X=0
cIF X>63 P.$7"INVOER NIET CORRECT !"';P.$11$11;G.b
IF $I="" THEN Y=Y-1;G.a
IF $AA(X)=$I THEN S?Y=X;Y=Y+1;G.b
X=X+1;G.c
aPEND
PROC UITSPREKEN
P.$12;@=0;FOR C=0 TO Y;G=S?C;
IF G<5 THEN PRINT'
PRINT $21$2$(G+64)$0$3$6
P.C"="$AA(G)" ";NEXT C
PRINT '"druk toets";LINK #FFE3
" PEND
, PROC WIJZIGEN
6 P.$12;INPUT "NUMMER VAN DE FONEEM "B
@dINPUT "WAT IS DE NIEUWE FONEEM "$K
J X=0
TfIF X>63 OR $K="" THEN GOTO d
^ IF $AA(X)=$K THEN S?B=X;GOTO e
h X=X+1;GOTO f
rePEND
| PROC LIJST
FOR X=0 TO 63
PRINT $AA(X)"."
IF (X+1)%8=0 THEN PRINT'
NEXT
PRINT'"druk toets";LINK #FFE3
PEND
gP.$12;P."*-----------*/menu\*-----------*"''
P."1 = INVOEREN"'
P."2 = UITSPEKEN"'
P."3 = WIJZIGEN"'
P."4 = VERDER INVOEREN"'
P."5 = LIJST FONEMEN"'''
P."MAAK UW KEUZE :";INKEY Z
IF Z=49 THEN Y=0;INVOEREN;G.g
IF Z=50 THEN UITSPREKEN;G.g
& IF Z=51 THEN WIJZIGEN;G.g
0 IF Z=52 THEN P.$12;Y=Y+1;INVOEREN;G.g
: IF Z=53 THEN P.$12;LIJST;G.g
D G.g
N END