*******************
Les dents du Daron
*******************
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 :
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 »
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 »
Téléchargement : Deuligne 04 Les Dents Du Daron(TONTONGUI)
0 commentaires