Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[Toolkitman]

I have programmed in AMOS BASIC an AMIGA MUSIC MOD PLAYER, it playes only 3 pre configured mods songs for now but can be implemented, if anyone is interested in  this code i can share! it has a simple interface where pressing a letter start the corresponding song.

 

[Toolkitman]

I have modify it playing the song by writing his title:Attached is a photo of the player i have programmed, it's a little dark but works!!!

[Toolkitman]

This is the code:

1 Screen Open 0,320,256,4096,HAM
2 Flash Off
3 Load Iff"DH1:PROVA/piano.iff"
10 ink 7
15 Print ""
16 Print ""
20 Print ""
35 Print "            AMIGA MUSIC PLAYER"
40 Print "========================================"
50 Print ""
60 Print ""
70 Print ""
80 Print ""
90 Print ""
100 Print "Write 1. CONCERT return to play songs"
109 Print "Write 2. I"
112 Print "Write 3. EGU"
110 Input A$
120 If A$="CONCERT" Then Goto 140
121 If A$="I" Then Goto 180
122 If A$="EGU" Then Goto 220
130 If A$<>"CONCERT" Then Goto 100
131 If A$<>"I" Then Goto 100
132 If A$<>"EGU" Then Goto 100
140 Track Load"DH1:PROVA/CONCERT.MOD",1
150 Track Play
160 Track Loop On
170 Close
175 Goto 100
180 Track Load"DH1:PROVA/I.MOD",1
190 Track Play
200 Track Loop on
210 Close
215 Goto 100
220 Track Load"DH1:PROVA/EGU.MOD",1
230 Track Play
240 Track Loop on
250 Close
260 Goto 100

Remember to change the path of the song destination and name in base what song you have as .mod inside the respective folder.

 

[Toolkitman]

I have make a modification to the mod player in the way that the amiga talk the songs at startup and a question ask what song to choose. It's nice!

[Toolkitman]

Licence BSD:
All rights reserved.

Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
1. Redistributions of source code must retain the above copyright
   notice, this list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright
   notice, this list of conditions and the following disclaimer in the
   documentation and/or other materials provided with the distribution.
3. All advertising materials mentioning features or use of this software
   must display the following acknowledgement:
   This product includes software developed by the <organization>.
4. Neither the name of the <organization> nor the
   names of its contributors may be used to endorse or promote products
   derived from this software without specific prior written permission.

THIS SOFTWARE IS PROVIDED BY <COPYRIGHT HOLDER> ''AS IS'' AND ANY
EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY
DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.



Copyright (c) <2018>, <Matteo Trevisan>
Tutti i diritti riservati.

La ridistribuzione e l'uso in forma di codice sorgente e in forma binaria, con o senza modifiche, è consentito
purché siano rispettate le seguenti condizioni:

1. Le ridistribuzioni del codice sorgente devono conservare la nota di copyright sopra riportata, questa lista di condizioni
   e la seguente limitazione di responsabilità.
2. Le ridistribuzioni in forma binarie devono riprodurre la nota di copyright sopra riportata, questa lista di condizioni
   e la seguente limitazione di responsabilità nella documentazione e/o altri materiali forniti con la distribuzione.
3. Ogni materiale pubblicitario che riporti caratteristiche o uso di questo software deve mostrare la seguente attestazione:
   Questo prodotto include software sviluppati dalla <organizzazione>.
4. Né il nome della <organizzazione>, né i nomi dei suoi collaboratori possono essere utilizzati per avallare o promuovere prodotti
   derivati da questo software senza uno specifico permesso scritto.

Questo software è fornito dal <possessore di copyright> "così com'è" e qualsiasi
garanzia espressa o implicita, inclusiva di, ma non limitata a, garanzie implicite
di commerciabilità e idoneità ad uno scopo particolare, viene disconosciuta. In nessun caso il possessore
di copyright sarà ritenuto responsabile per qualsiasi danno diretto, indiretto, connesso, particolare,
esemplare o conseguente (inclusivo di, ma non limitato a, approvvigionamento di beni o servizi alternativi;
perdita di utilità, dati o profitti; interruzione di affari) comunque causati e su qualsiasi ipotesi di
responsabilità, come da contratto, responsabilità oggettiva, o torto (compresa negligenza o altro)
derivante in qualsiasi modo dall'utilizzo di questo software anche se al corrente della possibilità di tale danno

                ,        ,         
               /(        )`       
               \ \___   / |       
               /- _  `-/  '       
              (/\/ \ \   /\       
              / /   | `    \       
              O O   ) /    |       
              `-^--'`<     '       
             (_.)  _  )   /       
              `.___/`    /         
                `-----' /         
   <----.     __ / __   \         
   <----|====O)))==) \) /====|     
   <----'    `--' `.__,' \         
                |        |         
                 \       /       /\
            ______( (_  / \______/
          ,'  ,-----'   |         
          `--{__________)   

[FOL]

Someone has been busy.
Will have to check it out.

[Toolkitman]

FOL you are welcome!