Forum
| ****************** ********** 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. |
| 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) 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 COPIER/COLLER DU PRESSE PAPIER : FONCTIONNEMENT : |
| 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 |
Hello, si l'édito du mois de juin n'est pas clos, il y a tontongui qui propose un deuuligne, sinon il participera pour le mois de juillet !
(Le copier/coller du listing vers un émulateur Amstrad ne fonctionne pas à cause de certains caractères donc le code ascii est > 126)
| 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. |
| 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" |
J'ai fait l'article, mais je vais rajouter ce deuligne 😉
OK merci c'est sympa !
Merci à toi 😉
