10 ' 7-SEG par B.L.B.
20 ' crée sur 6128 le 4/11/90 30 MODE 0:BORDER 0:INK 0,0:INK 1,26:PAPER 0:PEN 1 40 DEFINT a-z:DEF FNa(n,m)=VAL(MID$(a$(n),m,1)) 50 FOR n=2 TO 15:INK n,6:NEXT:FOR n=0 TO 9:READ a$(n):NEXT 60 k=360:kk=0:GOSUB 100:k=0:kk=7:GOSUB 100:GOSUB 250 70 FOR m=9 TO 0 STEP-1:FOR n=9 TO 0 STEP-1:kk=7:j=m:GOSUB 240:SOUND 1,400,4,15:kk=0:j=n:GOSUB 240:NEXT:NEXT ' décompte 80 GOSUB 250:FOR m=0 TO 9:FOR n=0 TO 9:kk=7:j=m:GOSUB 240:SOUND 1,400,4,15:kk=0:j=n:GOSUB 240:NEXT:NEXT ' compte 90 GOSUB 250:GOTO 70 100 x=230:y=228:c=2:GOSUB 210 110 x=230:y=54:c=3:GOSUB 210 120 x=6:y=54:c=4:GOSUB 210 130 x=6:y=228:c=5:GOSUB 210 140 x=60:y=0:c=6:GOSUB 190 150 x=60:y=175:c=7:GOSUB 190 160 x=60:y=348:c=8:GOSUB 190:RETURN 170 FOR n=2 TO 15:INK n,0:NEXT 180 INK 3,26:INK 4,26:RETURN 190 x=x+k:c=c+kk:h=2:FOR yy=y TO y+48 STEP 2:IF y+24>yy THEN t=-2 ELSE t=2 200 PLOT x,yy,c:DRAW x+160+h,yy,c:x=x+t:h=h+(-t*2):NEXT:RETURN 210 x=x+k:c=c+kk:h=1:FOR xx=x TO x+48:IF x+24>xx THEN t=-1 ELSE t=1 220 PLOT xx,y,c:DRAW xx,y+114+h,c:y=y+t:h=h+(-t*2):NEXT:RETURN 230 DATA 6666606,6600000,6060666,6600666,6606060,0606666,0666666,6600006,6666666,6606666 240 FOR g=2+kk TO 8+kk:INK g,FNa(j,g-1-kk):NEXT:RETURN 250 FOR ho=1 TO 1000:NEXT:RETURN |