Voice

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