7-Segment Display

[Weregoose]

Time to commemorate the lucky 77^th challenge! Have the user provide a number through Input or Ans, and then display it on up to seven 7-segment displays (you're free to do this however you like). For the sake of simplicity, I only expect integers from 0–9,999,999. Note: A bit of research may be extremely useful!

[Builderboy2005]

Does setting up the graph screen coordinates count towards the total size? I currently have a (very unoptimized and probably sucky) 227 byte program

[Weregoose]

Here's a rough sketch which steers from the guidelines slightly in that more digits are displayed:

[spoiler]DelVar XAns10^(-int(log(Ans→N
FnOff
ClrDraw
PlotsOff
ZStandard
84→Xmin
52→Ymin
ZInteger
While N
int(N
Line(X+1,8,X+3,8,Ans≠1 and Ans≠4
Line(X+4,7,X+4,5,Ans≠5 and Ans≠6
Line(X+4,3,X+4,1,Ans≠2
Line(X+3,0,X+1,0,Ans≠4 and 3≠abs(Ans-4
Line(X,1,X,3,Ans≠4 and not(fPart(.5Ans
Line(X,5,X,7,Ans≠7 and 1<abs(Ans-2
Line(X+1,4,X+3,4,3≠abs(Ans-4+not(Ans
10fPart(N→N
X+6→X
End
[/spoiler]
I'll try to work on a version that uses the next digit to select from a list a number that will decode bit-wise into the proper segments. This should play well with the clock functions, I think.