10 DATA 21,07,a2,01,09,a0,c3,d1,bc,14,3d8
20 DATA a0,c3,2a,a0,c3,b7,a0,c3,d5,a0,67f 30 DATA 4d,55,4c,54,c9,52,45,54,4f,55,39a 40 DATA d2,43,4f,55,cc,00,21,17,a1,c3,421 50 DATA 00,a1,fe,04,20,f6,cd,ca,a0,21,511 60 DATA 01,a2,36,00,11,02,a2,01,05,00,194 70 DATA ed,b0,06,06,21,05,a2,dd,7e,00,3cc 80 DATA 77,2b,dd,23,dd,23,10,f5,3a,02,3e3 90 DATA a2,32,01,a2,3a,05,a2,32,06,a2,332 100 DATA 3e,c9,32,eb,bd,3e,00,32,00,a2,3f3 110 DATA 06,14,cd,19,bd,10,fb,21,f7,a1,481 120 DATA 06,81,11,76,a0,c3,e0,bc,3a,00,447 130 DATA a2,3c,fe,06,32,00,a2,20,04,af,389 140 DATA 32,00,a2,f5,21,01,a2,16,00,5f,302 150 DATA 19,7e,cd,1c,bd,f1,cd,99,a0,cd,601 160 DATA 25,bd,c9,fe,06,30,14,5f,cb,27,444 170 DATA cb,27,cb,27,cb,27,83,21,0b,a2,427 180 DATA 16,00,5f,19,e5,d1,c9,21,ab,a1,47a 190 DATA c3,00,a1,f5,cd,ca,a0,f1,b7,20,658 200 DATA 05,3e,02,c3,0e,bc,dd,7e,00,c3,3f0 210 DATA 0e,bc,3e,c3,32,eb,bd,21,f7,a1,55e 220 DATA c3,e6,bc,b7,28,22,47,cb,27,3d,4dc 230 DATA dd,e5,e1,5f,16,00,19,2b,7e,e5,4bf 240 DATA cd,99,a0,e1,05,2b,2b,7e,fe,1b,4d9 250 DATA 30,04,cd,0a,a1,12,13,10,f2,c9,39c 260 DATA 21,52,a1,c3,00,a1,7e,fe,24,c8,4e0 270 DATA 23,cd,5a,bb,18,f6,e5,d5,5f,16,542 280 DATA 00,21,71,a2,19,7e,d1,e1,c9,0a,450 290 DATA 7c,4d,55,4c,54,49,2c,58,31,2c,2e8 300 DATA 58,32,2c,58,33,2c,58,34,0d,0a,210 310 DATA 0a,43,68,6f,69,73,69,73,20,6c,368 320 DATA 65,20,6d,6f,64,65,20,28,65,6e,345 330 DATA 74,72,65,20,30,20,65,74,20,31,2e5 340 DATA 20,29,20,20,21,21,21,24,0a,7c,196 350 DATA 43,4f,55,4c,2c,58,2c,42,2c,45,296 360 DATA 30,2c,2e,2e,2c,45,31,35,0d,0a,1a6 370 DATA 0a,43,48,4f,49,53,49,53,20,4c,288 380 DATA 45,20,4d,4f,44,45,2c,4c,45,20,267 390 DATA 42,4f,52,44,45,52,20,45,54,20,297 400 DATA 4c,45,53,20,31,35,20,45,4e,43,260 410 DATA 52,45,53,20,44,45,20,43,45,54,28f 420 DATA 54,45,20,53,45,43,54,49,4f,4e,2ce 430 DATA 20,28,58,29,20,21,20,0a,45,52,1cb 440 DATA 52,45,55,52,20,44,45,20,53,59,2b3 450 DATA 4e,54,41,58,45,20,21,21,20,41,243 460 DATA 54,54,45,4e,54,49,4f,4e,20,21,2b6 470 DATA 21,20,20,0d,0a,43,48,4f,49,53,1ee 480 DATA 49,53,20,55,4e,45,20,53,45,43,29f 490 DATA 54,49,4f,4e,20,44,45,20,30,20,253 500 DATA 41,20,35,20,21,21,20,20,20,20,178 510 DATA 20,20,24,00,00,00,00,00,00,00,064 520 DATA 00,00,01,00,00,00,00,00,00,fc,0fd 530 DATA a6,09,a0,0c,14,12,0c,15,00,02,1a4 540 DATA 03,04,05,06,07,0a,0b,0c,0d,0e,055 550 DATA 0e,14,12,0c,15,00,02,03,04,05,063 560 DATA 06,07,0a,0b,0c,0d,0e,0a,14,12,079 570 DATA 0c,15,00,02,03,04,05,06,07,0a,046 580 DATA 0b,0c,0d,0e,12,14,12,0c,15,00,08b 590 DATA 02,03,04,05,06,07,0a,0b,0c,0d,049 600 DATA 0e,15,14,12,0c,15,00,02,03,04,073 610 DATA 05,06,07,0a,0b,0c,0d,0e,0d,14,06f 620 DATA 12,0c,15,00,02,03,04,05,06,07,04e 630 DATA 0a,0b,0c,0d,0e,14,04,15,1c,18,09d 640 DATA 1d,0c,05,0d,16,06,17,1e,00,1f,0ab 650 DATA 0e,07,0f,12,02,13,1a,19,1b,0a,0a3 660 DATA 03,0b,00,00,00,00,00,00,00,00,00e 670 DATA 00,00,00,00,00,00,00,00,00,00,000 680 n=10:a=&A000:l=10:WHILE l<680:GOSUB 690:WEND:GOTO 730 690 cs=0:FOR x=1 TO n:READ v$:v=VAL("&"+v$):POKE a,v 700 cs=cs+v:a=a+1:NEXT:READ c$:c=VAL("&"+c$) 710 IF c<>cs THEN PRINT"erreur dans les datas en ligne ",l:END 720 l=l+10:RETURN 730 'demonstration 740 MODE 2:CALL &A000:ùMULTI,0,0,0,2:MODE 2:ùCOUL,4,23,0,26:LOCATE 25,22:PRINT"27 COULEURS A L'ECRAN AVEC":LOCATE 1,24:PRINT" MULTI-MODES,MULTI-COULEURS,MULTI-BORDER (C) 1989 PAR STEPHANE SAINT-MARTIN":MODE 0:ùCOUL,0,2,0:ùCOUL,4,23,0:ùCOUL,5,26,0 750 FOR I=0 TO 18 STEP 9:ùCOUL,(i/9)+1,40,0,i,i+1,i+2,i+3,i+4,i+5,i+6,i+7,i+8:NEXT:FOR i=0 TO 8:PEN i+1:FOR j=0 TO 2:LOCATE i*2+2,j*7+2:GOSUB 770 760 NEXT j:NEXT i:WHILE-1:WEND 770 PRINTCHR$(136)CHR$(140)CHR$(10)CHR$(8)CHR$(8)CHR$(138)CHR$(143)CHR$(10)CHR$(8)CHR$(8)CHR$(138)CHR$(143):RETURN 780 'syntaxe des rsx => mettre devant les commandes ù 790 'multi,x1,x2,x3,x4 ( x1 a x4 : mode 0 a mode 2 ) 800 'coul,x,b,e1,..a..,e15 ( x :section (x1 a x4)) 810 ' ( b : border) , ( E1 a E15 : encres de couleur) 820 'retour ( retour a la normale ) 830 ' (C) 1989 par stephane SAINT-MARTIN |