Player MOD 1

Aller en bas

Player MOD 1

Message par Shadow272 le Sam 30 Déc - 7:38

De ESAT SOFTWARE en 1991 ce listing accompagnait le HMS SOUNDTRAKER.
Il ne tourne pas sous interruption, au mieux affichez une image avant de lancer le player.
En chargement [Vous devez être inscrit et connecté pour voir ce lien]

Code:
'
'  Player HMS SOUND TRACKER            (c) ESAT SOFTWARE 1991
'  Tous GFA
'  Player pour tout type de machine
'
' $C+  activer cette ligne si vous compilez avec GFA 3.xx
RESERVE 40000
HIDEM
'
' Nom du Module … charger
module$="a:\modules\*.mod"
'
' Chemin d'acc‚s … la routine
cnx$="a:\players\USERS.BIN"
'
CLS
PRINT CHR$(27);"p"
PRINT "                                      "
PRINT "  Player SOUND TRACKER ESAT SOFTWARE  "
PRINT "      Tout type de machine ATARI      "
PRINT "                                      "
PRINT "    ESC pour arreter la musique      "
PRINT "                                      "
PRINT CHR$(27);"q"
'
OPEN "I",#1,module$
len%=LOF(#1)+10
CLOSE #1                                ! taille du module
'
module%=GEMDOS(72,L:len%)
IF module%=0
  END
ENDIF
'
volume%=GEMDOS(72,L:18000)              ! On reserve pour la table de volume
IF volume%=0
  END
ENDIF
'
tracker%=GEMDOS(72,L:42000)            ! R‚servation m‚moire pour le player
IF tracker%=0
  END
ENDIF
'
BLOAD cnx$,tracker%              ! charge le Player
BLOAD module$,module%            ! Charge le Module
'
output%=&H1                      ! sortie STF ETENDU
'
'      Liste des sorties disponibles :
' ************************************************************************
'
' 0 : STf Normal
' 1 : STf Etendu
' ------------------------
' $10 : STE 12.5 kHz
' $11 : STE 25  kHz
' $112: TT  50  kHz
' $13 : MEGA STE 50 kHz
' $14 : MEGA STE 25 kHz
' ------------------------
' $20 : ST REPLAY
' $21 : ST REPLAY PRO / MV16
' $22 : PLAY BACK
' $24 : PRO SOUND DESIGNER
'
'  POUR TOUTE SORTIE SUR TT AJOUTER $100 ( EX: ST REPLAY SUR TT = $120 )
' ************************************************************************
'
'
VOID C:tracker%(L:module%,W:output%,L:volume%)    ! Appel du Player
'
CLS
'
VOID GEMDOS(73,L:module%)                ! Libere la m‚moire
VOID GEMDOS(73,L:tracker%)
VOID GEMDOS(73,L:volume%)
'
SHOWM
END

Bonne écoute à tous
avatar
Shadow272
Admin

Messages : 132
Date d'inscription : 28/12/2017
Age : 59
Localisation : Hainaut Belgique

Voir le profil de l'utilisateur http://toutatari.blog4ever.xyz/

Revenir en haut Aller en bas

Re: Player MOD 1

Message par Atlantis le Mar 20 Fév - 18:42

Merci Shadow, je vais surement avoir besoin de ce genre de player prochainement.
avatar
Atlantis

Messages : 32
Date d'inscription : 20/02/2018
Localisation : Seine et Marne

Voir le profil de l'utilisateur http://www.safargames.fr

Revenir en haut Aller en bas

Re: Player MOD 1

Message par Shadow272 le Mer 21 Fév - 7:49

Attention que la routine prend beaucoup de temps machine.
avatar
Shadow272
Admin

Messages : 132
Date d'inscription : 28/12/2017
Age : 59
Localisation : Hainaut Belgique

Voir le profil de l'utilisateur http://toutatari.blog4ever.xyz/

Revenir en haut Aller en bas

Re: Player MOD 1

Message par Atlantis le Mer 21 Fév - 16:01

Oui j'imagine.
Intéressante pour une page d'intro ou GameOver par exemple.
En revanche, y a-t-il des solutions simples et efficaces pour jouer de petites digit par contre ?
avatar
Atlantis

Messages : 32
Date d'inscription : 20/02/2018
Localisation : Seine et Marne

Voir le profil de l'utilisateur http://www.safargames.fr

Revenir en haut Aller en bas

Re: Player MOD 1

Message par Shadow272 le Mer 21 Fév - 18:53

Probablement, je crois que Cooper a la solution.
avatar
Shadow272
Admin

Messages : 132
Date d'inscription : 28/12/2017
Age : 59
Localisation : Hainaut Belgique

Voir le profil de l'utilisateur http://toutatari.blog4ever.xyz/

Revenir en haut Aller en bas

Re: Player MOD 1

Message par Atlantis le Sam 24 Fév - 18:34

Cooper c'est un membre ?
Je vais la contacter.

Merci shadow
avatar
Atlantis

Messages : 32
Date d'inscription : 20/02/2018
Localisation : Seine et Marne

Voir le profil de l'utilisateur http://www.safargames.fr

Revenir en haut Aller en bas

Re: Player MOD 1

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum