home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / SOUND-DIGITIZER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  50 lines

  1. 10 REM SPEECH64
  2. 30 GOSUB4000:REM POKE ML ROUTINES
  3. 35 POKE49358,8:REM SET PITCH
  4. 40 PRINTCHR$(147):REM CLEAR SCREEN
  5. 50 PRINTTAB(14);"* SPEECH64 *"
  6. 52 PRINT:PRINT:PRINT
  7. 54 PRINTTAB(14);"1 RECORD WORD":PRINTTAB(14);"2 PLAYBACK WORD"
  8. 55 PRINTTAB(14);"3 LOAD DATA ":PRINTTAB(14);"4 SAVE DATA    "
  9. 58 GETA$:IFA$=""THENGOTO58
  10. 59 IFA$>"4"THENGOTO58
  11. 60 ONVAL(A$)GOSUB200,70,400,1000
  12. 65 GOTO40
  13. 70 REM PLAYBACK PARAMETERS
  14. 100 SRT=64:GOSUB110
  15. 102 POKE53265,PEEK(53265)AND239:REM BLANK SCREEN
  16. 105 SYS49287:REM PLAYBACK
  17. 106 POKE53265,PEEK(53265)OR16:REM ENABLE SCREEN
  18. 108 RETURN
  19. 110 A=49154:REM $C002
  20. 120 POKEA,0:POKEA+1,SRT:POKEA+3,SRT+96:POKEA+2,0:RETURN
  21. 200 REM RECORD
  22. 210 PRINT"RECORD - PRESS PLAY ON CASSETTE"
  23. 215 IF(PEEK(1)AND16)=16THEN215:REM WAIT
  24. 220 SRT=64:GOSUB110
  25. 230 PRINT"START TAPE":SYS49200
  26. 240 RETURN
  27. 400 REM LOAD DATA
  28. 420 INPUT"FILENAME";FLN$
  29. 425 INPUT"DEVICE NUMBER #8¥¥¥";DV
  30. 430 LOAD+FLN$,DV,1
  31. 480 RETURN
  32. 1000 PRINT"ôSAVE SPEECH DATA"
  33. 1005 INPUT"DEVICE NUMBER #8¥¥¥";DV
  34. 1010 INPUT"FILE TO SAVE ";F$:IFF$=""THEN1010
  35. 1015 REM LOC. OF F$
  36. 1020 POKE187,PEEK(71):POKE188,PEEK(72)
  37. 1025 REM CSLC. POINTER TO F$
  38. 1030 FA=PEEK(187)+256*PEEK(188)
  39. 1035 REM SET FILENAME LENGTH
  40. 1040 POKE 183,PEEK(FA)
  41. 1055 REM SET FN. POINTER
  42. 1060 POKE187,PEEK(FA+1):POKE188,PEEK(FA+2)
  43. 1070 REM
  44. 1080 SA$="4000"
  45. 1090 N$=SA$:GOSUB2000:SL=BL:SH=BH
  46. 1095 REM
  47. 1100 EA$="A000"
  48. 1110 N$=EA$:GOSUB2000:EL=BL:EH=BH
  49. 1115 REM SET START ADD. POINTER
  50.