Warning: A non-numeric value encountered in /web5/aldweb/www/aldweb_com/www/thread.php on line 497
Answer n° 1 -------- 30/03/2005 @ 10:45 by aldweb
visitor |
Je crois que le petit programme iziBasic suivant t'aidera dans ta tâche
' iBChars.ibas {CREATORID "LDIC"} {VERSION "1.0"}
BEGIN T$=" 0 1 2 3 4 5 6 7 8 9" J=-1 PRINT T$; FOR I=32 TO 255 K=I10 IF K>J THEN J=K PRINT IF J=15 THEN FLUSHEVENTS REPEAT W=WAITEVENT UNTIL W=1000 CLS PRINT T$ ENDIF S$=STR$(J,0)+SPACE$(1) K=K<10 S$=SPACE$(K)+S$ IF I=32 S$=S$+SPACE$(4) PRINT S$; ENDIF S$=SPACE$(1)+CHR$(I) PRINT S$; NEXT FLUSHEVENTS REPEAT W=WAITEVENT UNTIL W=1000 END
@+ aldweb |