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