*************************************
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 :
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.  REMARQUE : (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 »
|
