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