Merge pull request #8 from GmEsoft/develop

v0.2.0-alpha: echo and debug flags

.gitignore

@@ -5,3 +5,4 @@
 *.exe
 *.lst
 *.bds
+release/

README.md

@@ -4,6 +4,8 @@ Say
 S.A.M.-based text-to-speech voice synthesizer,<br>for TRS-80 CP/M and LS-DOS 6 and Orchestra-90
 -----------------------------------------------------------------------------------------------
 
+Version 0.2.0-alpha
+
 ### Description
 
 This is a S.A.M.-based text-to-speech voice synthesizer for CP/M and LS-DOS 6.3. Adapted to work on the TRS-80 
@@ -18,6 +20,11 @@ With a terminate-and-stay-resident version for LS-DOS 6 (SAY/DVR).
 To be assembled using ZMAC by [George Phillips](http://48k.ca) (http://48k.ca/zmac.html). Produces a core-image-file that will be 
 loaded by CP/M at 0100H, or a /CMD file that will be loaded by LS-DOS 6.3.
 
+v0.2.0-alpha adds the following features:
+- `|e1 ` flag to echo the input (`|e0 ` to disable it);
+- `|d1 ` flag to echo the phonemes string (`|e0 ` to disable it);
+- in case of error in the phonemes string, display the string with the position where the error was found.
+
 ### CP/M Executable Version:
 
 ![](SAY-CPM.PNG)

Say/NUMBERS.BAS

@@ -1,30 +1,32 @@
 10 PRINT"** SAY/DVR Demo Program **"
 20 PRINT
-30 ON ERROR GOTO 240
+30 ON ERROR GOTO 260
 40 OPEN "O",1,"*SY"
 50 ON ERROR GOTO 0
-60 DIM U$(20):FOR I=0 TO 20:READ U$(I):NEXT
-70 DATA zero,one,two,three,four,five,six,seven,eight,nine
-80 DATA ten,eleven,twelve,thirteen,fourteen,fifteen,sixteen,seventeen,eighteen,nineteen,twenty
-90 DIM T$(10):FOR I=0 TO 9:READ T$(I):NEXT
-100 DATA zero,ten,twenty,thirty,forty,fifty,sixty,seventy,eighty,ninety
-110 FOR I=0 TO 99
-120 N=I
-130 GOSUB 160
-140 NEXT
-150 END
-160 '--- Subroutine to say number in N (between 0 and 99)
-170 IF N<20 THEN 220
-180 PRINT T$(N\10); : PRINT #1,T$(N\10);
-190 N=N MOD 10
-200 IF N=0 THEN PRINT "." : PRINT #1,"." : RETURN
-210 PRINT" "; : PRINT #1," ";
-220 PRINT U$(N);"." : PRINT #1,U$(N);"."
-230 RETURN
-240 '--- Error handler
-250 PRINT "Can't open driver. Error code:";ERR
-260 PRINT"Load SAY/DVR from LS-DOS with the following command:"
-270 PRINT"  SET *SY SAY"
-280 RESUME 290
-290 ON ERROR GOTO 0
-300 END
+60 PRINT #1,"|e1 ";
+70 DIM U$(20):FOR I=0 TO 20:READ U$(I):NEXT
+80 DATA zero,one,two,three,four,five,six,seven,eight,nine
+90 DATA ten,eleven,twelve,thirteen,fourteen,fifteen,sixteen,seventeen,eighteen,nineteen,twenty
+100 DIM T$(10):FOR I=0 TO 9:READ T$(I):NEXT
+110 DATA zero,ten,twenty,thirty,forty,fifty,sixty,seventy,eighty,ninety
+120 FOR I=0 TO 99
+130 N=I
+140 GOSUB 170
+150 NEXT
+160 END
+170 '--- Subroutine to say number in N (between 0 and 99)
+180 IF N<20 THEN 230
+190 PRINT #1,T$(N\10);
+200 N=N MOD 10
+210 IF N=0 THEN PRINT #1,"." : GOTO 240
+220 PRINT #1," ";
+230 PRINT #1,U$(N);"."
+240 PRINT
+250 RETURN
+260 '--- Error handler
+270 PRINT "Can't open driver. Error code:";ERR
+280 PRINT"Load SAY/DVR from LS-DOS with the following command:"
+290 PRINT"  SET *SY SAY"
+300 RESUME 310
+310 ON ERROR GOTO 0
+320 END