home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / fbasic / bgm / bgm.bas next >
Encoding:
BASIC Source File  |  1990-06-14  |  1.1 KB  |  28 lines
  1. 10 ' __________________________________
  2. 20 '/______【たこ】ＢＧＭ処理１______/
  3. 30 *T_MINIT
  4. 40  IF PLAY(0) THEN RETURN
  5. 50  PLAY OFF : FOR T_A=0 TO 13 : READ T_B : PART T_A,T_B : NEXT
  6. 60  IF T_PCB$<>T_PC$ THEN LOAD@ T_PC$+".PMB" : T_PCB$=T_PC$
  7. 70  IF T_FMB$<>T_FM$ THEN LOAD@ T_FM$+".FMB" : T_FMB$=T_FM$
  8. 80  CLOSE #2 : OPEN "I",#2,T_FN$+".MML" : PLAY T_MS$ : GOSUB *MUSIC_PLAY
  9. 90  INTERVAL 1 : ON INTERVAL GOSUB *MUSIC_PLAY : INTERVAL ON
  10. 100 RETURN
  11. 110 '
  12. 120 *T_MPLAY
  13. 130  IF PLAY(0)=0 THEN T_MSB=PLAY(1)-4
  14. 140  T_MS=PLAY(1) : T_MR=T_MS-T_MSB
  15. 150  WHILE T_MR>0
  16. 160    IF EOF(2) THEN CLOSE #15:OPEN "I",#2,T_FN$:LINE INPUT #2,T_MA$
  17. 170      LINE INPUT #2,T_MA$:T_MO$=LEFT$(T_MA$,1):IF T_MO$<>"/" THEN 160
  18. 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$
  19. 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$
  20. 200    INPUT #2,T_MA$ : T_MR=T_MR-1
  21. 210  WEND
  22. 220  T_MSB=T_MS
  23. 230 RETURN
  24. 240 '
  25. 250 *T_MSTOP
  26. 260  INTERVAL OFF : PLAY OFF : CLOSE #2
  27. 270 RETURN
  28.