*************************************
Le Deuuligne de
RetroPoke #04
*************************************
Ce n’est pas parce-que je me suis levé du pied gauche ce matin que je vais répéter 100 fois :
JE TE DEMANDE PARDON HUMBLE UTILISATEUR.
Bon d’accord, à défaut d’être chat l’heureux pour un article, il comble au moins le chat pitre.
Chaque mois je vous proposerais un nouveau programme tenant sur 2 lignes BASIC maximum.
Le règlement est simple.
– Deux Lignes en BASIC (Les lignes peuvent contenir du BASIC et du langage MACHINE)
– Un seul deux lignes par disquette
– Un petit résumé et explicatif du programme dans un fichier ALIRE.BAS si nécessaire.
– Envoyez le tout à: concours(@)amstrad.eu avant le 20 du mois en cours pour l’édito du mois d’après.
En espérant que vous apporterez de l’eau au moulin pour participer à l’édition de l’édito du mois.
RetroPoke
KIT-CAT (RETROPOKE)
Vous avez toujours admiré le détournement du catalogue des disquettes ?
Alors j’ai une bonne nouvelle pour vous. Ce programme permet justement de créer automatiquement une émulation de détournement du catalogue.
ATTENTION SI VOUS UTILISEZ LE COPIER/COLLER DU PRESSE PAPIER :
ce programme demande d’avoir le fichier “KIT-CAT.BAS” dans le lecteur ‘A’ pour fonctionner.
FONCTIONNEMENT :
Le programme charge le catalogue dans la mémoire interne du CPC puis modifie les noms des fichiers afin que ceux-ci ne s’affiche plus.
Ensuite il mémorise le nom du fichier indiqué dans la variable n$. Cette variable se trouve au tout début de la ligne [10] du programme afin que vous puissiez la modifier à votre convenance.
Vous pouvez alors vérifier que tout fonctionne en tapant la commande [CAT].
A vous alors de modifier la ligne [20] pour améliorer la présentation de votre page du catalogue.
CONSEIL :
Veuillez utiliser une copie de votre disquette. Je ne serais en aucun cas responsable des mauvaises manipulations de votre CAT.
Listing et téléchargement :
10 n$=”KIT-CAT”:MODE 2:b=&DDAD*2:d=66:PRINT n$” Implantation en cours.”:POKE b,201:CALL b+&141,&8000:POKE b,207:FOR a=&8100 TO &83FF:POKE a,PEEK(a)+32*(a>32):NEXT:CALL b-18:PRINT”Opération terminé. Tapez CAT pour voir les modif.”:WHILE a:WHILE INKEY(d)=0
20 END:WEND:PRINT”Ready”:INPUT””,a$:WHILE UPPER$(a$)=”CAT”:MODE 1:PEN 3:LOCATE 15,13:PRINT”RUN”+CHR$(34)+n$:PEN 1:FOR A=12 TO 28:LOCATE A,11:PRINT”#”:LOCATE A,15:PRINT”#”:NEXT:a$=”#”:WEND:WHILE a$>”” AND a$<>”#”:a$=”#”:PRINT”Syntax error”:WEND:WEND
| Les dents du Daron (TONTONGUI) |
|
Vous le dentiste et marabout émérite, devez soigner les dents de JB Le Daron. Il y a du travail sur la planche car les caries ne datent pas d’hier. Mais avec votre tout nouveau machin truc dernier cri le “RATICHEX-3000” qui remplace les vieux chicots par du plastique massif, rien n’est impossible. Pour le piloter, il suffit de taper les numéros dans l’ordre de lecture le plus rapidement possible. (Le copier/coller du listing vers un émulateur Amstrad ne fonctionne pas à cause de certains caractères donc le code ascii est > 126) |
| Listing & Téléchargement |
| 10 DEFINT d:x=16:y=5:MODE 1:INK 1,25:FOR i=0 TO 9:d(i)=RND(9)*9:NEXT:INK 3,26:INK 0,0:BORDER 0:INK 2,6:PEN 2:a$=” “:b$=”#”:LOCATE x,y:PRINT a$:LOCATE x,y+4:PRINT a$:PEN 1:FOR i=0 TO 8 STEP 2:LOCATE x+i,y+1:PRINT USING b$;d(i/2):LOCATE x+i,y+3 20 PRINT USING b$;d(i/2+5):NEXT:PEN 3:t=TIME/300:FOR i=0 TO 9:WHILE p$=”” OR VAL(p$)<>d(i):p$=INKEY$:WEND:LOCATE x+(i MOD 5)*2,y+1+INT(i/5)*2:PRINT” “:p$=””:NEXT:LOCATE 1,y+6:PRINT”Bravo dentiste, tu gagnes 3000 euros!”:PRINT”Ton temps :”TIME/300-t”sec”
|
REMARQUE :