*********************
****************


Le Deuuligne de

RetroPoke #04


****************
*********************

KIT CAT
Ce n'est pas parce-que je me suis levé du pied gauche ce matin que je vais te 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.

Voici le réglement si vous voulez vous aussi participer au deuuligne du mois ?

* 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.

amstrad.eu vous récompensera en affichant votre programme sur la page principale du site.
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 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.

s0

s1

alire

    
Listing & 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