home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 3
/
FreeSoftwareCollection3pd199x-jp.img
/
oh_fm
/
voicedmp
/
hvtest.bas
< prev
next >
Wrap
BASIC Source File
|
1980-01-02
|
412b
|
14 lines
10000 '
10010 ' "HVTEST.BAS" : HVSUBテスト用プログラム
10020 '
10030 DEFINT A-Z
10040 GOSUB *HV_INIT : '初期化
10050 LINE INPUT "音声データファイル名 (.HRC) ? ",FL$
10060 GOSUB *HV_LOAD : '音声データのロード [FL$
10070 PRINT
10080 *LOOP : INPUT " Voice (0-9,A-F) ? ",A$
10090 IF A$="" THEN END
10100 RNO=VAL("&H"+A$):IF RNO=0 AND A$<>"0" THEN END
10110 GOSUB *HV_PLAY : '再生 [RNO%
10120 GOTO *LOOP