home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / maksiu / kurs-ma / p61_przyklad.amos / p61_przyklad.amosSourceCode
AMOS Source Code  |  1998-01-25  |  2KB  |  63 lines
  1. ' otwarcie ekranu
  2. Screen Open 0,640,256,8,Hires
  3. Curs Off : Palette $0,$FFF
  4. Cls 0 : Flash Off : Ink 1,0 : Pen 1 : Paper 0
  5. ' wywo�anie selektora plik�w 
  6. NAZWA$=Fsel$("P61.*","","Wybierz modu�")
  7. If NAZWA$="" Then End 
  8. ' sprawdzam d�ugo�� pliku  
  9. Open In 1,NAZWA$
  10. DLUGOSC=Lof(1)
  11. Close 1
  12. ' rezerwuje bank nr 10 i wczytuje modu�
  13. If Chip Free>DLUGOSC
  14.    Reserve As Chip Work 10,DLUGOSC
  15.    Bload NAZWA$,10
  16. Else End 
  17. End If 
  18. ' tworzenie GUI
  19. Reserve Zone 9
  20. Print At(2,20);Border$(Zone$(" PLAY ",1),1)
  21. Print At(12,20);Border$(Zone$(" STOP ",2),1)
  22. Print At(22,20);Border$(Zone$(" PAUSE ",3),1)
  23. Print At(33,20);Border$(Zone$(" CONTINUE ",4),1)
  24. Print At(50,20);Border$(Zone$(" PATERN + ",5),1)
  25. Print At(63,20);Border$(Zone$(" PATERN -",6),1)
  26. Print At(2,24);Border$(Zone$(" VOLUME + ",7),1)
  27. Print At(16,24);Border$(Zone$(" VOLUME - ",8),1)
  28. Print At(37,24);Border$(Zone$(" EXIT ",9),1)
  29. ' warto�ci pocz�tkowe
  30. VOL=35
  31. PAT=0
  32. Print At(2,12);"Module: ";NAZWA$
  33. ' p�tla g��wna 
  34. Do 
  35.    Wait 3
  36.    A=Mouse Zone
  37.    B=Mouse Key
  38.  
  39.    If B=1 and A=1 Then P61 Play 10
  40.    If B=1 and A=2 Then P61 Stop 
  41.    If B=1 and A=3 Then P61PAUSE
  42.    If B=1 and A=4 Then P61CONTINUE
  43.    If B=1 and A=5 Then Inc PAT : P61 Play 10,PAT
  44.    If B=1 and A=6 Then Dec PAT : P61 Play 10,PAT
  45.    If B=1 and A=7 Then Inc VOL : P61 Volume VOL
  46.    If B=1 and A=8 Then Dec VOL : P61 Volume VOL
  47.    If B=1 and A=9 Then Exit 
  48.  
  49.    Print At(2,14);"Position of song: ";P61POS;" "
  50.  
  51.    If P61SIGNAL=-2 Then Print At(2,16);"End of song" : P61 Stop 
  52.  
  53.    ' graniczne warto�ci g�o�no�ci 
  54.    If VOL<0 Then VOL=0
  55.    If VOL>70 Then VOL=70
  56.  
  57. Loop 
  58. ' wyj�cie
  59. P61 Fade 3 : Wait 150
  60. Reserve Zone 
  61. Erase 10
  62. Screen Close 0
  63. End