1 mai 2022
DEUULIGNE#02 POUR AMSTRAD.EU AVRIL 2022: TAPEVITE
********************* **************** 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. |
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
|
TAPEVITE |
Résumé: Apprendre à taper sur un clavier de plus en plus vite, c'est l'ambition de ce programme en 2 lignes de BASIC. Au commencement, un clavier s'affiche sur l'écran et vous aurez 60 secondes pour taper sur les lettres tirées aléatoirement par l'ordinateur. |
Listing & Téléchargement |
1 MODE 1:INK 0,11:a$= »AZERTYUIOP^* 789QSDFGHJKLM|# 456WXCVBN?./=$0 123″:FOR l=0 TO 2:FOR c=1 TO 16:LOCATE 3+c*2+l,8+l*3:PRINT MID$(a$,c+l*16,1):NEXT c,l:t=TIME+17980:WHILE TIME<t:v=20:t$= » « :WHILE t$= » « :t$=MID$(a$,1+RND*48,1):p=INSTR(a$,t$):WEND:WHILE v |
Publicité
Publicité
Commentaires