CHEMIN FICHIER BLOAD

     CHEMIN FICHIER BLOAD FAIT PAR LEGOLD





Salut, j'ai remis la main sur un vieux programme en GFA que j'avais fait dont je ne me rappel plus du tout !
C'est un simulateur de Radio EMPEROR SHOGUN , une sorte de CB sophistiquer orienter radioamateur , bref!
Dans ce programe j'ai un bload nom de fichier , sauf que l'interpreteur me dis qu'il ne trouve pas le fichier ?
Je precise que mes test sont fait sous Steem avec le GFA 3.6 , j'ai essayer en metant tout au meme endroit que le GFA , ou sur disquette
et j'ai toujours la meme erreur, meme en ecrivant le nom du fichier en majuscule ou minuscule ???

Mon programme est le suivant
Code:
'
'  EMPEROR Shogun simulator par JC  un dimanche soir je ai fait
'
'        17/11/96
'
'
RESERVE 20000
'
DIM freq$(40)
'
freq%=269650
freqq%=freq%
FOR i%=0 TO 40
 '
 freqq%=ADD(freqq%,100)
 IF i%=3
   freqq%=270050
 ENDIF
 IF i%=7
   freqq%=270550
 ENDIF
 IF i%=11
   freqq%=271050
 ENDIF
 IF i%=15
   freqq%=271550
 ENDIF
 IF i%=19
   freqq%=272050
 ENDIF
 IF i%=22
   freqq%=272550
 ENDIF
 IF i%=23
   freqq%=272350
 ENDIF
 IF i%=24
   freqq%=272450
 ENDIF
 IF i%=25
   freqq%=272650
 ENDIF
 '
 '
 '
 '
 '
 freq$(i%)=STR$(freqq%)
 '  PRINT ;freqq%;"  "
 '
NEXT i%
'
' VOID INP(2)
'
'
a%=XBIOS(2)
z%=a%
CLS
a%=a%-32000
b%=a%-32000
c%=b%-32000
d%=c%-32000
e%=d%-32000
ee%=e%-32000
ecransauv%=ee%-32000
f%=ecransauv%-32036
BMOVE z%,a%,32000
BMOVE z%,b%,32000
'
BLOAD "shogun.pi1",f%
BMOVE f%+34,e%,32000
'
'
BLOAD "rfpower.pi1",f%
FOR i%=0 TO 31 STEP 2
 SDPOKE &HFF8240+i%,DPEEK((f%+2)+i%)
NEXT i%
BMOVE f%+34,d%,32000
'
on%=0
off%=1
key%=0
ton%=0
chanel%=1
' on%=1
'
REPEAT
 key%=PEEK(&HFFFFC02)
 '
 IF key%=59 AND ton%=0
   SWAP on%,off%
   ton%=0
   INC scan%
   IF scan>40
     scan%=1
   ENDIF
 ENDIF
 RC_COPY e%,0,0,279,98 TO a%,0,0
 IF on%=0
   RC_COPY d%,0,61,147,23 TO a%,67,12
 ENDIF
 '
 IF on%=1
   RC_COPY d%,0,38,147,23 TO a%,67,12
   rf%=RAND(11)
   '    rf%=PEEK(&HFFFC06)\23
   ' rf%=MOUSEX
   IF rf%>11
     rf%=11
   ENDIF
   rfx%=MUL(SUB(rf%,(MUL(DIV(rf%,6),6))),48)
   rfy%=MUL(DIV(rf%,6),19)
   RC_COPY d%,rfx%,rfy%,44,19 TO a%,69,14
   '  ENDIF
   '
   INC qana%
   '
   IF qana%>=15
     INC chanel%
     INC kanel%
     qana%=0
   ENDIF
   '  chanel%=MOUSEX
   '
   IF chanel%>9
     chanel%=0
     INC chana%
   ENDIF
   IF chana%=>4 AND chanel%>=1
     RC_COPY d%,61,99,7,9 TO a%,123,20
     chana%=0
     chanel%=1
     kanel%=0
   ENDIF
   '
   '    PRINT AT(15,10);kanel%;"  "
   '   PRINT ;freq$(kanel%);"  ";
   '  REPEAT
   ' UNTIL PEEK(&HFFFFC02)=&H39
   '
   chx%=MUL(SUB(chanel%,(MUL(DIV(chanel%,10),10))),6)
   chy%=MUL(DIV(chanel%,10),11)
   '
   RC_COPY d%,chx%,ADD(chy%,99),7,9 TO a%,130,20
   '
   IF chana%>=1
     '
     chx%=MUL(SUB(chana%,(MUL(DIV(chana%,10),10))),6)
     chy%=MUL(DIV(chana%,10),11)
     '
     RC_COPY d%,chx%,ADD(chy%,99),7,9 TO a%,123,20
   ENDIF
   '
   freq$=freq$(kanel%)
   '
   zogrux%=139
   FOR gre%=1 TO 6
     az$=MID$(freq$,gre%,1)
     '    PRINT az$;"  "
     wana%=SUB(ASC(az$),48)
     '
     chx%=MUL(SUB(wana%,(MUL(DIV(wana%,10),10))),9)
     chy%=MUL(DIV(wana%,10),11)
     '
     RC_COPY d%,chx%,ADD(chy%,84),9,15 TO a%,zogrux%,17
     '
     '
     zogrux%=ADD(zogrux%,11)
     ' 139
     '
   NEXT gre%
   '
 ENDIF
 '
 '
 '  PRINT AT(10,10);key%;"  ";on%;"  ";off%;"  "
 '
 VOID XBIOS(5,L:a%,L:a%,-1)
 ' SPOKE &HFFF8240,&HF0
 VSYNC
 '  SPOKE &HFFF8240,&HF
 SWAP a%,b%
 ton%=0
 IF key%=59
   ton%=1
 ENDIF
 '
UNTIL MOUSEK
VOID XBIOS(5,L:z%,L:z%,-1)
VSYNC
RESERVE -20000

et il doit afficher les images suivante PI1 !
A moins que mes fichiers soit légèrement corrompu ou alors le chemin pas bon ??
Ce qui est dommage c'est que je ne me rappel pas du tout faire ces dessins et ce programme et j'aurai voulu savoir qu'est ce qu'il en ressortait ??
[Vous devez être inscrit et connecté pour voir ce lien]

Sujet du message: Re: Chemin fichier Bload
Publié: Dim Déc 22, 2013 10:19 pm

Bon j'ai reussi malgré tout a le faire fonctionner comme j'ai pu , le problème est que je n'arrive pas a faire de "\" antislash sous Steem , donc je suis passer par PSPAD sous Windows j'ai tout mis sous disquette virtuelle avec chemin a:\monimage , je crois que le probleme viens du GFA qui prend comme chemin la ou il a été lancer , donc s'il est lancer en racine de disquette et si on change de disque et s'il n'y a pas de lettre pas de problem pour bload "monimage" mais si je lance d'un partition disque dur genre c:\gfa que je charge mon source sous c:\mesgfa , ou sur la disquette, bein bload "monimage" ne fonctionne pas , je ne sais pas si on peut metre un chemin relatif il me semble que sur l'ancien forum on m'avait donner une astuce pour palier a cela , en attention je passe par disquette tant pis , ou alors il faut tout metre dans le meme repertoire que le GFA et ca fini par etre le bordel !


Bon mon programme donne cela

et c'est en fait un emulateur de ca !

Apparement c'est plusieurs version dont des plus abouti avec des fichiers son, sauf que je n'ai pas pu recuperer pour le moment les fichier son c'est corompu , j'esepere que j'arriverai a recuprer cela a partir d'un vrais ST , car j'ai directement lu la disquette sur PC avec Linux et tout les fichiers n'ont pas été copier :/


Auto réponse ! C'est bon ça !

En haut de steem, tu as une icône "Shortcuts" (l'éclair), tu fais "Add New", tu cliques dans la case la plus à gauche du nouveau raccourci, puis tu appuis par exemple sur la touche "ALT GR", puis cliques sur celle à sa droit, puis appuis sur la touche "_", dans le menu déroulant 2 case vers la droite tu choisis "Type ST Character", puis dans le menu déroulant à sa droite, tu choisis le caractère...
Pour changer de répertoire, il y a CHDIR "directory name"

Peu pas etre plus precis
Reponce claire et précis

;-)

Sous STEEM j'utilise Alt et pas Alt Gr pour obtenir les @ \ | # ~, etc . . .