home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 1 / FREEWARE.BIN / basic / fos / onsyoku.bas < prev    next >
BASIC Source File  |  1989-10-17  |  1KB  |  33 lines
  1. 10000 '
  2. 10010 '--- 音色名表示プログラム（ＴｏｗｎｓＦＯＳ対応） ---
  3. 10020 '                                Programed by Chama7 and Hokkon-Club!
  4. 10030 '                                Filename     "ONSYOKU.BAS"
  5. 10040 '   [Towns-FOS] - Oh!FM 1989/7   Programed by たろぴょん
  6. 10050 '
  7. 10060 DIM PA%(63)
  8. 10070 '
  9. 10080 PRINT "* 音色名表示プログラム Programed by Chama7 & Hokkon-Club! *"
  10. 10090   IF ARGC%>0 THEN *PARA_READ
  11. 10100   INPUT "0)[F M]  1)[PCM] : ",TYPE
  12. 10110 IF TYPE<0 OR TYPE>1 THEN BEEP : GOTO 10100  ELSE *MAIN
  13. 10120 '
  14. 10130 *PARA_READ
  15. 10140   IF ARGV$(1)="PCM" THEN TYPE=1 : GOTO *MAIN
  16. 10150   IF ARGV$(1)="FM"  THEN TYPE=0                ELSE 10100
  17. 10160 '
  18. 10170 *MAIN
  19. 10180 PRINT MID$("F MPCM",TYPE*3+1,3)+" Sound name list."
  20. 10190 FOR NO=1 TO 32-96*(TYPE=0)
  21. 10200   VOICE COPY NO,PA%,TYPE
  22. 10210   NA$="" : PX=((NO-1) MOD 5) : PY=CSRLIN
  23. 10220   FOR I=0 TO 3
  24. 10230     NA$=NA$+CHR$(PA%(I)-INT(PA%(I)/256)*256)+CHR$(PA%(I)/256)
  25. 10240   NEXT
  26. 10250   LOCATE PX*16  ,PY : PRINT USING ":No###";NO;
  27. 10260   LOCATE PX*16+7,PY : PRINT NA$;               : IF PX=4 THEN PRINT
  28. 10270   IF (NO MOD 80)=0 THEN WHILE INKEY$="" : WEND : PRINT
  29. 10280 NEXT
  30. 10290 '
  31. 10300 WHILE INKEY$="" : WEND : PRINT : PRINT
  32. 10310 IF ARGC%>0 THEN RETURN   ELSE END
  33.