*******************
NEMO (Gilles59)
*******************
Listing :
1 DEFINT a-z:t=2+RND*8:MODE 1:BORDER 0: INK 0,0:C=20:L=13:a=(a+1) MOD 15:c$=CHR$(-((a=0)*205+(a=1)*238+(a=2)*233+(a=3)*200+(a=4)*159+(a=5)*144+(a=6)*201+(a=7)*204+(a=8)*127+(a=9)*206+(a=10)*207+(a=11)*212+(a=12)*202+(a=13)*253+(a=14)*61))
2 PEN RND*4:i=RND*t:j=RND*t:LOCATE c-i,l-j:PRINT c$:LOCATE c-j,l-i:PRINT c$:LOCATE c+i,l+j:PRINT c$:LOCATE c+j,l+i:PRINT c$:LOCATE c+j,l-i:PRINT c$:LOCATE c+i,l-j:PRINT c$:LOCATE c-j,l+i:PRINT c$:LOCATE c-i,l+j:PRINT c$:IF INKEY$= »a » THEN 1 ELSE 2
Téléchargement : Deuligne 05 NEMO (Gilles59)





0 commentaires