Code: Select all
0 REM [DEC:\
0,0,62,152,211,55,62,15,\
211,39,201,62,0,211,23,\
62,0,211,39,219,39,203,\
127,40,250,24,235 ]
2 REM ZX81 ZSPEAK PROGRAM(2K)
3 LET Z=200
5 CLS
6 PRINT TAB 6;"FUNCTION","COMMAND",,,,,,,TAB 10;"MENU",\
"GOTO 5",,,"NEW ALLOPHONES","GOTO 10",,,\
"CONT. ENTERING","GOTO 30",,TAB 9;\
"SPEAK","GOTO 200",,,TAB 10;\
"SAVE","GOTO 9000",,,\
"CHANGE ALLOPH.","GOTO 9100"
9 STOP
10 DIM T$(Z)
20 LET P=1
30 PRINT AT 1,1;"ENTER AN ALLOPHONE (200 MAX.)"
33 PRINT "««« ENTER À200À TO SPEAK «««"
35 PRINT AT 10,0;"LAST ALLOPHONE WAS NUMBER ",P-1;" "
36 IF P=1 THEN GOTO 40
37 PRINT AT 14,1;"LAST ALLOPHONE VALUE WAS ";CODE T$(P-1);" "
40 INPUT N
45 IF P>Z-1 OR N>Z-1 THEN GOSUB Z
50 IF N>Z-1 THEN GOTO 5
70 LET T$(P)=CHR$ N
80 LET P=P+1
90 GOTO 30
202 RAND USR 16516
205 FOR Q=1 TO P-1
210 LET D=CODE T$(Q)
220 POKE 16526,D
230 RAND USR 16525
250 NEXT Q
260 POKE 16526,0
270 RAND USR 16525
280 GOTO 5
9000 SAVE "z"
9005 PAUSE Z
9010 GOSUB Z
9020 GOTO 5
9102 PRINT "TO CHANGE ALLOPHONE: ","ÀLET T$(NUMBER)=CHR$ VALUEÀ"
9110 FOR F=1 TO P-1
9120 PRINT "(";F;")";CODE T$(F);" ";
9130 NEXT F
Code: Select all
1 REM [DEC:\
118,118,24,4,\
24,36,24,43,42,16,64,17,5,0,\
25,237,91,50,64,25,35,219,39,\
203,127,40,250,126,211,23,175,\
211,39,47,211,39,126,203,127,\
40,235,201,62,152,211,55,62,\
15,211,39,201,42,50,61,205,\
216,9,17,5,0,25,63,77,201,0,0,0 ]
2 REM 1234567890123456
3 DIM A$(256)
4 GOSUB 1000
5 LET HELLO=END
6 DIM V$(16)
7 LET END=END+LEN B$
10 REM PHONEMES ARE ASSEMBLED IN B$ AND WHEN COMPLETE WORDS ARE ADDED TO VOCABULARY A$
15 CLS
20 PRINT "PHONEME VOCABULARY LENGTH =";END
30 PRINT
40 PRINT "INPUT PHONEMES 0 TO 63"
50 PRINT "ÀQÀ COMPLETES PHRASE"
60 PRINT "ÀVOCÀ= EXIT TO VOCABULARY"
110 LET B$=""
120 INPUT A
125 IF A=VOC THEN GOTO 310
130 LET B$=B$+CHR$ A
140 PRINT A;",";
150 IF A<>Q THEN GOTO 120
199 REM TEXTINPUT/B$ TO BUFFER
200 PRINT AT 19,0;"ENTER TEXT WORD(S)"
210 INPUT T$
215 PRINT T$
217 LET A$(END TO END+LEN B$)=B$
220 RAND END
230 RAND USR 16516
235 PRINT AT 19,0;"PRESS ÀRÀ TO REPEAT","ÀCÀ TO CANCEL, N/L TO CONTINUE"
240 INPUT C$
250 IF C$="R" THEN GOTO 220
260 IF C$="C" THEN GOTO 10
270 LET V$(17-LEN T$ TO )=T$
280 FOR N=1 TO 16
290 POKE 16586+N,CODE V$(N)
295 NEXT N
300 GOTO 5
310 CLS
320 PRINT "ENTER WORD TO BE VOICED","NONEXISTING OR MISSPELLED WORDS RESULT IN ERROR 2/360","GOTO VOC OR PHON TO RECOVER"
330 INPUT C$
340 IF C$="PHON" THEN GOTO PHON
350 PRINT AT 0,0;C$
360 RAND VAL C$
370 RAND USR 16516
380 GOTO 310
1000 LET END=1
1010 LET Q=128
1020 LET VOC=9998
1030 LET PHON=9999
1060 LET B$=""
2000 RETURN
9998 GOTO 310
9999 GOTO 5