home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / music / xb32_gfa.lzh / XB32PLAY.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1992-11-14  |  1KB  |  56 lines
  1. start
  2. > PROCEDURE start
  3.   CLS
  4.   path$=CHR$(GEMDOS(25)+65)+":"+DIR$(0)+"\"
  5.   oldtune$=""
  6.   DO
  7.     PRINT AT(12,1);"p";SPACE$(57);"q"
  8.     PRINT AT(12,2);"p  XBIOS(32)/dosound() MusiX Player..   © 1992 M.J.Matts  q"
  9.     PRINT AT(12,3);"p";SPACE$(57);"q"
  10.     FILESELECT #"",path$,oldtune$,tune$
  11.     EXIT IF tune$=""
  12.     play(tune$)
  13.     oldtune$=MID$(tune$,RINSTR(tune$,"\")+1)
  14.     path$=LEFT$(tune$,RINSTR(tune$,"\"))
  15.     PRINT AT(18,14);"Press any key or click mouse to play another"
  16.     PRINT AT(18,16);"Click on p[CANCEL]q in Fileselector to finish"
  17.     PRINT AT(20,8);"p";SPACE$(40);"q"
  18.     PRINT AT(20,9);"p  q";SPACE$(36);"p  q"
  19.     PRINT AT(20,10);"p";SPACE$(40);"q"
  20.     scroll$="NOW PLAYING : "+oldtune$
  21.     scroll$=scroll$+STRING$(36-LEN(scroll$)," ")
  22.     dely#=1000
  23.     DO
  24.       IF dely#>300
  25.         scroll$=MID$(scroll$,2)+LEFT$(scroll$,1)
  26.         PRINT AT(22,9);scroll$
  27.         dely#=0
  28.       ENDIF
  29.       INC dely#
  30.       EXIT IF MOUSEK OR INKEY$<>""
  31.     LOOP
  32.   LOOP
  33.   CLS
  34. RETURN
  35. > PROCEDURE play(mus$)                     !Play Xbios 32 Music
  36.   IF EXIST(mus$)=FALSE AND EXIST(mus$+".MUS")
  37.     mus$=mus$+".MUS"
  38.   ENDIF
  39.   IF EXIST(mus$)
  40.     CLOSE #15
  41.     OPEN "I",#15,mus$
  42.     do$=INPUT$(MIN(LOF(#15),32766),#15)+CHR$(0)
  43.     CLOSE #15
  44.     void$=MKI$(0)
  45.     VOID XBIOS(32,L:VARPTR(void$))
  46.     SOUND 0,0
  47.     SOUND 1,0
  48.     SOUND 2,0
  49.     VOID XBIOS(32,L:VARPTR(void$))
  50.     SOUND 0,0
  51.     SOUND 1,0
  52.     SOUND 2,0
  53.     VOID XBIOS(32,L:VARPTR(do$))
  54.   ENDIF
  55. RETURN
  56.