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