GFA BASIC : Lecture fichier QUARTET (Microdeal)

Tous les ST, Falcon et compagnie (et même éventuellement les PC)

Modérateur : Politburo

Répondre
Avatar du membre
Ythunder
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4548
Enregistré le : 09 août 2008 17:46
Localisation : 03

GFA BASIC : Lecture fichier QUARTET (Microdeal)

Message par Ythunder »

Bonjour

je chercher le bout de code pour la lecture de musique du logiciel QUARTET de Microdeal, sous GFA BASIC
Merci !
Quand je lis ça "oui des passionnées qui modifie des machines pour en faire des moutons a 5 pattes qui n'ont plus rien a voir avec la machine d'origine afin de faire la video choc sur youtube..."

Ca me fait rire. Perso, je n'ai ni chaine youtube sur les machines et je n'ai aucun mouton à 5 pattes qui n'a pàlus rien a voir avec des machines d'origine. Mais à qui s'adressait on ?
Avatar du membre
LeGlod
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 503
Enregistré le : 04 oct. 2008 10:47
Localisation : Montpellier
Contact :

Re: GFA BASIC : Lecture fichier QUARTET (Microdeal)

Message par LeGlod »

Sur la disquette de quartet ya pas les sources ?

Edit
Les exemple sont pour GFA 2 , du coup je ne sais pas si ca fonctionne avec le 3+ mais ya pas raison !

Code : Tout sélectionner

' make sure you reserve enough memory for your program
' here because once the exec has finished you can't
' get it back!!!!!!
IF FRE(0)>=100000 THEN
  RESERVE 10000
  ' load up player
  prog=EXEC(3,"singsong.prg","","")
  ' check numbers
  PRINT HIMEM,prog
  IF prog<0 THEN
    STOP
  ENDIF
ELSE
  prog=HIMEM+2
  ' THAT'S JUST A GUESS AND MIGHT BE WRONG
ENDIF
INPUT "Insert songs disk",a$
song=prog+17000
vset=song+10000
BLOAD "demo1.4v",song
BLOAD "voice.set",vset
'
' set up the 2 pointers
'
LPOKE prog+256+12,song
LPOKE prog+256+16,vset
'
' and start it
'
prog=prog+256
CALL prog
Si t'as pas singsong.prg , j'arangerai cela ;)
Mes video Youtube de vielle becanes ;) Ma collec. Atari 520 STE, Amiga 1200 , Macintosh G3 DV , plein de PC :p , Sega Saturn
Avatar du membre
Ythunder
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4548
Enregistré le : 09 août 2008 17:46
Localisation : 03

Re: GFA BASIC : Lecture fichier QUARTET (Microdeal)

Message par Ythunder »

Je vais regarder tout ça prochainement !
Il n'y aura pas de soucis entre le GFA 2 et 3, j'en suis persuadé.

Faut que je revois ce qu'il y a dans ma boite Quartet, en tout cas merci d'avoir recopié le code !!!
Quand je lis ça "oui des passionnées qui modifie des machines pour en faire des moutons a 5 pattes qui n'ont plus rien a voir avec la machine d'origine afin de faire la video choc sur youtube..."

Ca me fait rire. Perso, je n'ai ni chaine youtube sur les machines et je n'ai aucun mouton à 5 pattes qui n'a pàlus rien a voir avec des machines d'origine. Mais à qui s'adressait on ?
Répondre

Retourner vers « Atari ST et compagnie »