home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 3 / FreeSoftwareCollection3pd199x-jp.img / oh_fm / voicedmp / hvdump.bas next >
BASIC Source File  |  1980-01-02  |  2KB  |  68 lines
  1. 10000 '
  2. 10010 ' HVDUMP : Hex Voice File Dump Utility : By TaroPYON
  3. 10020 '
  4. 10030 ' save "HVDUMP.BAS",A 'filename
  5. 10040 ' merge"HVSUB.BAS"    'merge file
  6. 10050 '
  7. 10060 ' Last Update 1989.10.24
  8. 10070 '
  9. 10080 ' merge "HVSUB.BAS"
  10. 10090 '
  11. 10100 DEFINT A-Z
  12. 10110 PRINT : PRINT "***** HVDUMP : Hex Voice File Dump Utility *****" :          PRINT 
  13. 10120 ON ERROR GOTO *HV_SERR
  14. 10130 GOSUB *HV_INIT
  15. 10140 IF ARGC%=0 THEN GOTO *HV_ST01
  16. 10150 S_I$="HVFILE" : GOSUB *S_GETVAR
  17. 10160 IF S_A%>=0 THEN FL$=S_A$ : GOTO *HV_ST03
  18. 10170 *HV_ST01
  19. 10180 PRINT "音声データのファイル名を入力してください。"
  20. 10190 *HV_ST02 : PRINT "    Filename ? (.RHC) ";:LINE INPUT FL$
  21. 10200 IF FL$="" THEN *HV_SE02
  22. 10210 *HV_ST03 : PRINT "* Now Loading...." : GOSUB *HV_LOAD
  23. 10220 ON ERROR GOTO 0 : GOTO *MAIN
  24. 10230 '
  25. 10240 *HV_SERR
  26. 10250 IF ERR<>63 THEN GOTO *HV_SE01
  27. 10260   PRINT "@ 指定のファイルが見つかりません｡"
  28. 10270   RESUME *HV_ST01
  29. 10280 *HV_SE01
  30. 10290 PRINT "@ Error ";ERR;" : line ";ERL
  31. 10300 *HV_SE02 : GOTO *END_EXIT
  32. 10310 '
  33. 10320 ' 
  34. 10330 *MAIN
  35. 10340 IF ARGC%<>0 THEN *MAIN_01
  36. 10350 *FL_INPUT
  37. 10360   PRINT "    Filename ? ";:LINE INPUT FL$
  38. 10370   IF FL$="" THEN GOTO *END_EXIT
  39. 10380   GOTO *DMP_OPEN
  40. 10390 *MAIN_01
  41. 10400 FL$=ARGV$(1)
  42. 10410 '
  43. 10420 *DMP_OPEN
  44. 10430 ON ERROR GOTO *DMP_ERR
  45. 10440 OPEN "I",#1,FL$
  46. 10450 PRINT "***** HVDUMP ";CHR$(&H22);FL$;CHR$(&H22);" : ";                      DATE$;" ";TIME$;" *****" : PRINT 
  47. 10460 FP&=0
  48. 10470 WHILE EOF(1)=0
  49. 10480   IF INKEY$=" " THEN *LP_EXIT
  50. 10490   C=ASC(INPUT$(1,1))
  51. 10500   IF (FP& AND 15)=0 THEN PRINT RIGHT$("00000"+HEX$(FP&),6);" ";
  52. 10510   PRINT RIGHT$("0"+HEX$(C),2);" ";
  53. 10520   RNO=C \ 16 : GOSUB *HV_PLAY
  54. 10530   RNO=C MOD 16 : GOSUB *HV_PLAY
  55. 10540   FOR I=0 TO 2000 : NEXT
  56. 10550   IF (FP& AND 15)=15 THEN PRINT
  57. 10560   FP&=FP&+1
  58. 10570 WEND
  59. 10580 *LP_EXIT : CLOSE
  60. 10590 PRINT
  61. 10600 *END_EXIT
  62. 10610 IF ARGC% THEN RETURN ELSE END
  63. 10620 '
  64. 10630 *DMP_ERR
  65. 10640 IF ERR=63 THEN PRINT "@ 指定のファイルが見つかりません。":                                 RESME *FL_INPUT
  66. 10650 PRINT "@ Error ";ERR;" : Line ";ERL
  67. 10660 RESUME *END_EXIT
  68.