Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
\FF
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
\C2D\FF
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
E\FE\ED\F2B
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
C\ED\FA\A0\C8\ED\FA\A9
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
E
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
\DC\FF itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"BA\B3\C8\ED\F2\B3\C3\A0
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
E
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E\CD\CF
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D\F8\C9E\A7\C8\FE
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
B
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
E
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
B\C5\D5\E5\CD\B2
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
B\E1\D1\C1\C2\D9\C9\A0ADF
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
\D5
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
\D1 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"A\F4\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"\A8\CDB
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
E\B9\F5AC itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
D\FC\EB\ED\B0\C9\C5E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
E\EB\EBD\F8\CB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"A\CB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"B\F8\C1\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"\FF
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
\C5
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
E
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"A
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
FC
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
E\FFF\EF\C1\B9\D8FFE
Skip to content
Voice
Program to accompany Brad Bennett’s speech recognition article published in Sync magazine.
Content
Image Gallery
Source Code
1 REM \1C\1C\1C\1C\1C\1C\21\00\58\06\FF\36\00\05\23\C2\8D\40\06\FF\21\00\58\0E\FE\ED\78\F2\9B\40\2C\ED\78\FA\A0\40\34\05\C8\ED\78\FA\A9\40\2E\00\11\DC\FF\1B\7A\B3\C8\ED\78\F2\B3\40\C3\A0\40\21\00\58\0E\00\1E\40\CD\CF\40\23\0C\1D\20\F8\C9\7E\A7\C8\FE\2B\38\02\3E\2B\47\C5\D5\E5\CD\B2\0B\E1\D1\C1\05\C2\D9\40\C9\06\40\21\A0\61\3A\8D\65\85\6F\11\00\58\D5\11\08\00\19\D1\1A\77\13\05\20\F4\C9\01\28\64\21\A8\61\CD\26\41\7B\02\03\3E\68\B9\20\F5\3A\8C\65\01\40\00\21\50\65\09\3D\20\FC\11\28\64\EB\ED\B0\C9\C5\3E\08\01\00\00\11\00\00\4E\EB\09\EB\3D\23\20\F8\06\03\97\CB\1A\CB\1B\05\20\F8\C1\C9\21\90\65\01\FF\00\C5\11\00\58\0E\00\06\40\1A\96\30\02\2F\3C\81\30\02\3E\FF\4F\23\13\05\20\EF\79\C1\B9\32\D8\59\30\05\4F\78\32\8F\65\04\3E\0A\B8\20\D4\C9\21\88\40\97\06\EE\86\23\05\20\FB\4F\C9\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C\1C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
1000 CLS
1005 FOR I=1 TO 10
1010 PRINT AT (5+I),10;I;". ";T$(I)
1015 NEXT I
1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
1025 SLOW
1030 IF INKEY$="" THEN GOTO 1030
1035 FAST
1040 GOTO 20
1200 STOP
1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
9000 SAVE "VOIC%E"
9010 LIST 1300
9020 REM ROBERT SCHIMKE...
9030 REM 1005 WESTWIND CIRCLE
9040 REM PLACENTIA,CALIFORNIA
9050 REM 9267O USA
People
A\B8\D4\C9\EE\FBF\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57759 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"C
2 REM % %U%S%E% %G%O%T%O% %2%0% %D%O% %N%O%T% %R%U%N
3 REM % %O%R% %W%I%L%L% %C%L%E%A%R% %V%O%I%C%E%-% %
4 REM % %P%R%I%N%T%S%.% %A%F%T%E%R% %S%A%V%I%N%G% %
5 IF USR 16758<>64 THEN PRINT AT 10,10;"BAD LOAD"
10 DIM C(1412)
15 DIM T$(10,10)
20 CLS
25 PRINT AT 7,1
30 PRINT TAB 12;"MENU"
35 PRINT TAB 6;"1. VOICEPRINT DISPLAY"
40 PRINT TAB 6;"2. VOICEPRINT FILE"
45 PRINT TAB 6;"3. RECOGNITION"
50 PRINT TAB 6;"4. CLEAR FILES"
55 PRINT TAB 6;"5. DISPLAY STRING FILE"
60 PRINT TAB 6;"6. STOP"
62 PRINT ,,,,,,TAB 8;"INPUT SELECTION"
65 FAST
70 INPUT S
75 IF S<=6 THEN GOTO S*200
80 GOTO 70
199 REM **VOICEPRINT DISPLAY**
200 RAND USR 16520
205 LET K=22528
210 CLS
215 POKE 16577,INT (K/256)
220 POKE 16576,K-256*INT (K/256)
225 RAND USR 16575
230 PRINT AT 2,20;"AGAIN? (Y/N)"
235 SLOW
240 IF INKEY$="" THEN GOTO 240
245 FAST
250 LET B$=INKEY$
255 IF B$="N" THEN GOTO 20
260 IF B$="Y" THEN GOTO 200
265 IF B$="5" AND K<=22719 THEN LET K=K+1
270 IF B$="8" AND K>=22529 THEN LET K=K-1
275 GOTO 210
399 REM **VOICEPRINT FILE**
400 CLS
405 PRINT AT 10,1;"ENTER STRING TO BE RECOGNIZED"
410 INPUT Z$
415 PRINT AT 12,1;"ENTER FILE POSITION"
420 INPUT R
425 LET T$(R)=Z$
430 PRINT AT 14,1;"PRESS ENTER TO BEGIN"
435 INPUT F$
440 CLS
445 FOR I=0 TO 7
450 RAND USR 16520
455 POKE 25997,I
460 RAND USR 16615
465 PRINT AT 10,16;I+1
470 SLOW
475 PAUSE 30
480 FAST
485 NEXT I
490 POKE 25996,R
495 RAND USR 16641
500 PRINT AT 12,13;"AGAIN (Y/N)"
505 INPUT B$
510 IF B$="Y" THEN GOTO 400
515 IF B$="N" THEN GOTO 20
520 GOTO 505
599 REM **RECOGNITION**
600 RAND USR 16520
605 RAND USR 16707
610 CLS
615 PRINT AT 12,10;T$(PEEK 25999+1)
620 SLOW
625 PAUSE 60
630 FAST
635 IF INKEY$<>"" THEN GOTO 20
640 GOTO 600
799 REM **CLEAR FILES**
800 FOR I=1 TO 10
805 LET T$(I)=""
810 NEXT I
815 FOR I=26000 TO 26640
820 POKE I,0
825 NEXT I
830 GOTO 20
999 REM **DISPLAY STRING**
\n1000 CLS
\n1005 FOR I=1 TO 10
\n1010 PRINT AT (5+I),10;I;". ";T$(I)
\n1015 NEXT I
\n1020 PRINT ,,,," PRESS ANY KEY TO CONTINUE"
\n1025 SLOW
\n1030 IF INKEY$="" THEN GOTO 1030
\n1035 FAST
\n1040 GOTO 20
\n1200 STOP
\n1300 REM % %S%Y%N%C% %N%O%V%/%D%E%C% %8%3%
\n1305 REM \!!% %B%R%A%D% %B%E%N%N%E%T%T% \!!\!!
\n1310 REM % %U%S%E% %T%A%P%E% %R%E%C%O%R%D%E%R% %E%A%R% %T%O% %E%A%R%.% %U%S%E% %B%L%A%N%K% %T%A%P%E% %A%N%D% %S%E%T% % %T%O% %R%E%C%O%R%D%.% %E%N%T%E%R% %2%.% %A%N%D% %S%P%E%A%K% % % %W%O%R%D% %8% %T%I%M%E%S% %T%O% %M%A%K%E% %V%O%I%C%E%P%R%I%N%T%.%O%N%E% %S%A%Y%A%B%L%E% %W%O%R%D%S% %W%O%R%K% %B%E%S%T%.% % % % %E%N%T%E%R% %3%.% %A%N%D% %R%E%P%E%A%T% %W%O%R%D%.% %T%H%E% % % %W%O%R%D% %W%I%L%L% %P%R%I%N%T% %T%O% %S%C%R%E%E%N% %I%F% %I%T% %I%S% %R%E%C%G%O%N%I%Z%E%D%.% %E%N%T%E%R% %1%.% %T%O% %S%E%E% % %V%O%I%C%E%P%R%I%N%T%.% %S%P%E%A%K% %W%O%R%D% %O%R% %S%O%U%N%D% %I%N%T%O% %S%P%E%A%K%E%R%.% %W%I%L%L% %D%I%S%P%L%A%Y% %V%O%I%C%E%P%R%I%N%T%.% % %U%S%E% %C%L%E%A%R% %B%E%F%O%R%E% %S%A%V%E% %I%F%N%O%T% %S%A%V%I%N%G% %V%O%I%C%E%P%R%I%N%T%S%.% %P%R%O%G%R%A%M% %W%I%L%L% %S%A%V% %1%0% %V%O%I%C%E%P%R%I%N%T%S%.% % % % % % % % %A%L%T%E%R%N%A%T%E% %A%M%P% %M%I%K%E% %M%I%G%H%T% %M%A%K%E% % % %R%E%C%G%O%N%I%T%I%O%N% %B%E%T%T%E%R%.\..\..\..\..\..\..\..\..\..\..\..\..\..
\n9000 SAVE "VOIC%E"
\n9010 LIST 1300
\n9020 REM ROBERT SCHIMKE...
\n9030 REM 1005 WESTWIND CIRCLE
\n9040 REM PLACENTIA,CALIFORNIA
\n9050 REM 9267O USA
