*************************************
Le Deuuligne de
RetroPoke #02
*************************************
Ca fait un mois que le DeuuLigne a commencé et j’ai pleins d’idées en tête.
Bon toutes les idées ne parviendront pas à rentrer sur 2 lignes de BASIC mais peu importe, l’important c’est que j’ apprend pleins de trucs de cette manière et ça me motive à fond pour le deuuligne du mois prochain.
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
TAPEVITE (RetrPoke)
Voici TAPEVITE de RetroPoke ou il faut taper plus vite que son ombre.
Listing et téléchargement :
5 PRINT CHR$(30)MAX(0,INT((t-TIME)/300))g:c=1+(p-1) MOD 16:l=(p-c)/16:FOR z=1 TO 4:MOVE (1+c*2+l)*16,264-l*48:DRAWR 44,0,z:DRAWR 0,32:DRAWR -44,0:DRAWR 0,-32:NEXT:s$=UPPER$(INKEY$):WHILE s$=t$:g=g+1:v=1:t$= » « :WEND:v=v-1:WEND:WEND:WHILE INKEY(47):WEND:RUN
ROCKECKET (Tontongui)
Permettez-moi de vous présenter le premier deuuligne de Tontongui « ROCKECKET » avec une bonne pointe d’humour dans le fichier « ALIRE.BAS »…
Listing et téléchargement :
20 IF COPYCHR$(#0)<>CHR$(32) THEN PRINT »CRASH! Votre score: « ;c:END ELSE PRINT CHR$(239):c=c+1:WEND