10 ' RASTERS par B.L.B. 20 ' créé sur 6128 le 25/08/90 30 MODE 0:INK 0,0:PAPER 0:BORDER 0:INK 15,26:INK 2,3:PRINT CHR$(22);CHR$(1) 40 FOR n=4 TO 13:INK n,0:NEXT:y=4:t=70 50 x=288:c=4:i=1:GOSUB 130:LOCATE 2,7:PEN 15:PRINT"MICROZINE FREEWARE":GOSUB 110 60 x=224:c=12:i=-1:GOSUB 130:LOCATE 7,11:PEN 0:PRINT"présente":GOSUB 110 70 x=160:c=4:i=1:GOSUB 130:LOCATE 3,15:PEN 5:PRINT"THE MINI-RASTERS":GOSUB 110 80 x=96:c=12:i=-1:GOSUB 130:LOCATE 2,19:PEN 2:PRINT"Copyright BLB 1990":GOSUB 110 90 FOR n=4 TO 13:PEN n:LOCATE 2+n,3:PRINT CHR$(143):LOCATE 21-(2+n),23:PRINT CHR$(143):NEXT 100 y=1:FOR t=70 TO 0 STEP-5:GOSUB 110:NEXT:GOTO 30 110 FOR r=1 TO y:a=4:b=12:d=1:GOSUB 120:a=13:b=3:d=-1:GOSUB 120:NEXT:RETURN 120 FOR n=a TO b STEP d:INK n,24:INK n-d,12:INK n+d,12:FOR ho=1 TO t:NEXT:INK n,12:INK n-d,0:INK n+d,24:NEXT:RETURN  130 FOR n=x TO x+16 STEP 2:PLOT 0,n,c:DRAW 640,n:c=c+i:NEXT:RETURN