Non, il ne s'agit pas du nouveau slogan entendu entre Bastille et Nation, mais tout simplement de deux petites routines qui vous feront gagner de la place sur vos disquettes. De 178 Ko, vous passerez, d'un seul coup d'un seul (enfin près que), à 191 Ko, soit un gain de 13 Ko. Voyons d'abord le formateur qui récupère les pistes 40 et 41.
10 FOR N 1 TO 51
20 READ A$:POKE X,VAL("&" + A$)
30 NEXT N
40 CALL &0F80
50 DATA 6,9,3E,C1,21 ,b3,F,23,23,77, 23,36
40 DATA 2,23,3C,10,F6,AF,F5,21,b3, F,E5
50 DATA 11,4,0,6,9,77,19,10,FC,57, 1E,0
60 DATA E1 ,E,C1 ,DF,b0,F,F1,3C,FE, 2A.20
70 DATA E3,C7,42,C0,07
Ne soyez pas surpris si le programme fait un RESET après formatage (DATA) d'une face. Voyons maintenant l'exploiteur qui doit être, impérativement, exécuté avant toute opération sur le disque. Laurent KUTIL, qui nous envoie ce truc, recommande de l'incorporer à vos LOADERS.
10 OPENOUT"X”
20 POKE &A8A8,&FF
30 POKE &A895,PEEK(&A895) + 13
40 CLOSEOUT
Pour la vérification, exécutez l'exploiteur et faites CAT.
CPC n°22
| A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
» Coding Listing - Mergefix (CPC Amstrad International)
» Coding Source 65 - Rhino - Zoomscroll
» Coding Listing - Rsx - Hardcopy - Dmp 2000
» Coding Listing - Rsx - Random Disc Access (Popular Computing Weekly)
» Coding Listing - Rsx - Hardcopy - Dmp 2000
» Coding Listing - Curve (The Amstrad User)
» Coding Listing - Rsx - Bigprint (Amstrad Action)
» Coding Listing - Controlling Patterns (The Amstrad User)
» Coding Source 05
CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ
CPCrulez[Content Management System] v8.00 par hERMOL
Page créée en 097 millisecondes et consultée 299 fois |
