Coloration Syntaxique pour Basic 512

Yo !

Aujourd'hui un peu d'auto-pub pour la coloration syntaxique que j'ai pondue pour les codes sources en Basic 512 sous Notepad++ et que vous pouvez télécharger ici :

http://sokoban.pagesperso-orange.fr/pagethom.htm

Lien direct vers le XML à importer dans Notepad++ (cliquez droite + enregistrer sous) :

http://sokoban.pagesperso-orange.fr/thomson/basic_512.xml

Voici un code source SANS coloration syntaxique :

10 CLS:REM dummy comment
20 SCREEN 2,0,0
30 LOCATE,,0
40 CLEAR,,3
100 DEFGR$(0)=&B11111111,&B10000001,&B10000001,&B10000001,&B10000001,
&B10000001,&B10000001,&B11111111
110 DEFGR$(1)=&B11111111,&B11111111,&B11000011,&B11000011,&B11000011,
&B11000011,&B11111111,&B11111111
120 DEFGR$(2)=&B11111111,&B11111111,&B11111111,&B11100111,&B11100111,
&B11111111,&B11111111,&B11111111
200 FOR J=0 TO 24
210 FOR I=0 TO 39
220 PSET(I,J)GR$(INT(3*RND)),INT(16*RND),INT(16*RND)
230 NEXT I,J
300 GOTO 300:PRINT"dummy text"

Voici le même code source AVEC coloration syntaxique :

10 CLS:REM dummy comment
20 SCREEN 2,0,0
30 LOCATE,,0
40 CLEAR,,3
100 DEFGR$(0)=&B11111111,&B10000001,&B10000001,&B10000001,&B10000001,
&B10000001,&B10000001,&B11111111
110 DEFGR$(1)=&B11111111,&B11111111,&B11000011,&B11000011,&B11000011,
&B11000011,&B11111111,&B11111111
120 DEFGR$(2)=&B11111111,&B11111111,&B11111111,&B11100111,&B11100111,
&B11111111,&B11111111,&B11111111
200 FOR J=0 TO 24
210 FOR I=0 TO 39
220 PSET(I,J)GR$(INT(3*RND)),INT(16*RND),INT(16*RND)
230 NEXT I,J
300 GOTO 300:PRINT"dummy text"

Et en cadeau bonux, le résultat sous l'émulateur DCMOTO en mode TO9+ :

Ca vous plait ? C'est moi qui l'ai fait ! Non et puis je suis honnête, je mets le résultat aussi pour avoir une jolie vignette pour cette article, hein.

A+