home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 3
/
FreeSoftwareCollection3pd199x-jp.img
/
oh_fm
/
voicedmp
/
hvfc.bas
< prev
next >
Wrap
BASIC Source File
|
1980-01-02
|
1KB
|
32 lines
10075 ' Last Update 1989.10.23 Ver.1.02 音声出力対応版
10245 GOSUB *HV_SET
11380 PRINT " [ESC,H:Edit(hex) [A:Edit(Ascii) [C:Clear [V:Voice";
11475 IF INSTR("vV",K$) THEN *E_VOICE
14000 '
14001 ' 音声出力用サブルーチン
14002 '
14010 *E_VOICE
14020 FOR I=0 TO 15 : RNO=SMY(I)\16 : GOSUB *HV_PLAY : RNO=SMY(I) MOD 16 : GOSUB *HV_PLAY : FOR J=0 TO 5000:NEXT:NEXT
14030 RNO=SUM \ 16 : GOSUB *HV_PLAY : RNO=SUM MOD 16 : GOSUB *HV_PLAY
14040 GOTO *EDIT_PART
14200 '
14204 *HV_SET : ON ERROR GOTO *HV_SERR
14210 GOSUB *HV_INIT
14220 IF ARGC%=0 THEN GOTO *HV_ST01
14230 S_I$="HVFILE":GOSUB *S_GETVAR
14240 IF S_A%>=0 THEN FL$=S_A$ : GOTO *HV_ST03
14250 *HV_ST01
14260 PRINT "音声データのファイル名を入力してください。"
14270 *HV_ST02 : PRINT " Filename ? (.RHC) ";:LINE INPUT FL$
14280 IF FL$="" THEN *HV_SE02
14290 *HV_ST03 : PRINT "* Now Loading...." : GOSUB *HV_LOAD
14300 ON ERROR GOTO 0 : RETURN
14400 '
14403 *HV_SERR
14410 IF ERR<>63 THEN GOTO *HV_SE01
14420 PRINT "@ 指定のファイルが見つかりません。"
14430 RESUME *HV_ST01
14440 *HV_SE01
14450 PRINT "@ Error ";ERR;" : line ";ERL
14460 *HV_SE02 : IF ARGC% THEN RETURN *S_RETURN ELSE END