home *** CD-ROM | disk | FTP | other *** search
- 10 REM SPEECH64
- 30 GOSUB4000:REM POKE ML ROUTINES
- 35 POKE49358,8:REM SET PITCH
- 40 PRINTCHR$(147):REM CLEAR SCREEN
- 50 PRINTTAB(14);"* SPEECH64 *"
- 52 PRINT:PRINT:PRINT
- 54 PRINTTAB(14);"1 RECORD WORD":PRINTTAB(14);"2 PLAYBACK WORD"
- 55 PRINTTAB(14);"3 LOAD DATA ":PRINTTAB(14);"4 SAVE DATA "
- 58 GETA$:IFA$=""THENGOTO58
- 59 IFA$>"4"THENGOTO58
- 60 ONVAL(A$)GOSUB200,70,400,1000
- 65 GOTO40
- 70 REM PLAYBACK PARAMETERS
- 100 SRT=64:GOSUB110
- 102 POKE53265,PEEK(53265)AND239:REM BLANK SCREEN
- 105 SYS49287:REM PLAYBACK
- 106 POKE53265,PEEK(53265)OR16:REM ENABLE SCREEN
- 108 RETURN
- 110 A=49154:REM $C002
- 120 POKEA,0:POKEA+1,SRT:POKEA+3,SRT+96:POKEA+2,0:RETURN
- 200 REM RECORD
- 210 PRINT"RECORD - PRESS PLAY ON CASSETTE"
- 215 IF(PEEK(1)AND16)=16THEN215:REM WAIT
- 220 SRT=64:GOSUB110
- 230 PRINT"START TAPE":SYS49200
- 240 RETURN
- 400 REM LOAD DATA
- 420 INPUT"FILENAME";FLN$
- 425 INPUT"DEVICE NUMBER #8¥¥¥";DV
- 430 LOAD+FLN$,DV,1
- 480 RETURN
- 1000 PRINT"ôSAVE SPEECH DATA"
- 1005 INPUT"DEVICE NUMBER #8¥¥¥";DV
- 1010 INPUT"FILE TO SAVE ";F$:IFF$=""THEN1010
- 1015 REM LOC. OF F$
- 1020 POKE187,PEEK(71):POKE188,PEEK(72)
- 1025 REM CSLC. POINTER TO F$
- 1030 FA=PEEK(187)+256*PEEK(188)
- 1035 REM SET FILENAME LENGTH
- 1040 POKE 183,PEEK(FA)
- 1055 REM SET FN. POINTER
- 1060 POKE187,PEEK(FA+1):POKE188,PEEK(FA+2)
- 1070 REM
- 1080 SA$="4000"
- 1090 N$=SA$:GOSUB2000:SL=BL:SH=BH
- 1095 REM
- 1100 EA$="A000"
- 1110 N$=EA$:GOSUB2000:EL=BL:EH=BH
- 1115 REM SET START ADD. POINTER
-