home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 2
/
FreeSoftwareCollection2pd199x-jp.img
/
fbasic
/
bgm
/
bgm.bas
next >
Wrap
BASIC Source File
|
1990-06-14
|
1KB
|
28 lines
10 ' __________________________________
20 '/______【たこ】BGM処理1______/
30 *T_MINIT
40 IF PLAY(0) THEN RETURN
50 PLAY OFF : FOR T_A=0 TO 13 : READ T_B : PART T_A,T_B : NEXT
60 IF T_PCB$<>T_PC$ THEN LOAD@ T_PC$+".PMB" : T_PCB$=T_PC$
70 IF T_FMB$<>T_FM$ THEN LOAD@ T_FM$+".FMB" : T_FMB$=T_FM$
80 CLOSE #2 : OPEN "I",#2,T_FN$+".MML" : PLAY T_MS$ : GOSUB *MUSIC_PLAY
90 INTERVAL 1 : ON INTERVAL GOSUB *MUSIC_PLAY : INTERVAL ON
100 RETURN
110 '
120 *T_MPLAY
130 IF PLAY(0)=0 THEN T_MSB=PLAY(1)-4
140 T_MS=PLAY(1) : T_MR=T_MS-T_MSB
150 WHILE T_MR>0
160 IF EOF(2) THEN CLOSE #15:OPEN "I",#2,T_FN$:LINE INPUT #2,T_MA$
170 LINE INPUT #2,T_MA$:T_MO$=LEFT$(T_MA$,1):IF T_MO$<>"/" THEN 160
180 INPUT #2,T_MA$,T_MB$,T_MC$,T_MD$,T_ME$,T_MF$,T_MG$ ,T_MH$,T_MI$,T_MJ$,T_MK$,T_ML$,T_MM$,T_MN$
190 PLAY T_MA$,T_MB$,T_MC$,T_MD$,T_ME$,T_MF$,T_MG$ ,T_MH$,T_MI$,T_MJ$,T_MK$,T_ML$,T_MM$,T_MN$
200 INPUT #2,T_MA$ : T_MR=T_MR-1
210 WEND
220 T_MSB=T_MS
230 RETURN
240 '
250 *T_MSTOP
260 INTERVAL OFF : PLAY OFF : CLOSE #2
270 RETURN