10 MODE 1:BORDER 10
20 ' ***************************
39 ' *                         *
49 ' *     REVISION CHINIE     *
50 ' *                         *
60 ' *    Par CARIN J-Marie    *
70 ' *                         *
80 ' ***************************
99 FOR r=1 TO 60:READ x,y,z:LOCATE x+5,y:PRINT CHR$(z)
100 DATA 5,10,214,6,10,143,7,10,14\
3,5,11,143,5,12,143,5,13,143,5,14,\
213,6,14,143,7,14,143,9,14,143,9,1\
3,143,9,12,143,9,11,143,9,10,143,1\
1,10,143,11,11,143,11,12,143,11,13\
,143,11,14,143,13,8,231,13,10,143,\
13,11,143,13,12,143,13,13,143,13,1\
4,143,10,12,131
110 DATA 15,10,143,15,11,143,15,12\
,143,15,13,143,15,14,143,16,10,215\
,17,11,215,18,11,214,19,10,214,20,\
10,143,20,11,143,20,12,143,20,13,1\
43,20,14,143,22,10,143,22,11,143,2\
2,12,143,22,13,143,22,14,143,24,10\
,143,24,11,143,24,12,143,24,13,143\
,24,14,143
120 DATA 25,10,143,26,10,143,25,14\
,143,26,14,143,25,12,133,22,8,231,\
16,11,213,17,12,213,18,12,212,19,1\
1,212
209 NEXT
211 FOR t=1 TO 24:LOCATE 8+t,16:PRINT CHR$(127):NEXT
229 LOCATE 9,20:PRINT"Realise par CARIN J-Marie":PRINT:PRINT:PRINT
230 RUN"!CHIMIE2"

