Tweet
eight:
wide% = 48
Draw "bu9 u9 e1 u2 e5 r1 e2 h1 l1 h1 l1 h2 u1 h1 u1 h1 u5"
Draw "e1 u1 e1 u1 e1 u1 e1 r1 e1 r1 e1 r1 e1 r14 f1 r1 f1 r1"
Draw "f1 r1 f2 d1 f1 d1 f1 d7 g1 d1 g4 l1 l1 f2 r1 f4 d1"
Draw "f1 d1 f1 d7 g1 d2 g1 d1 g5 l1 g1 l1 g1 l4 g1 l5"
Draw "h1 l4 h1 l2 h2 l1 h3 u1 h1 u1"
Draw "br10 u1 h1 u8 e5 r7 f5 d7 g1 d1 g3 l1 g1 l5 h1 l1"
Draw "h2 br3 bu21 u1 h4 u6 e4 r6 f4 d6 g4 l5 bd2"
Draw "p7,7 bd28 br31"
Return
seven:
wide% = 38
draw "br8 u7 e1 u5 e1 u2 e1 u2 e1 u2 e1 u1 e1 u1 e1 u1 e1 u1 e1 u1 "
Draw "e1 u1 e3 u1 e4 u1 l27 u8 r37 d7 g6 d1 g3 d1 g1 d2 g1 d1 g1 d1"
Draw "g1 d1 g1 d2 g1 d2 g1 d2 g1 d3 g1 d5 g1 d4 l8 be1"
Draw "p7,7 bd1 br36"
Return
six:
wide% = 50
Draw "br13 u1 h1 l1 h1 l1 h5 u1 h1 u2 h1 u2 h1 u6 h1 u6 e1 u6"
Draw "e1 u2 e1 u2 e1 u1 e6 r1 e1 r2 e1 r12 f1 r1 f1 r1 f4 d1"
Draw "f1 d1 f1 d2 l10 u1 h1 u1 h2 l6 g4 d1 g1 d3 g1 d4 f1"
Draw "e2 r1 e1 r2 e1 r6 f1 r2 f1 r1 f1 r1 f4 d1 f1 d2 f1 d10"
Draw "g1 d3 g7 l1 g1 l3 g1 l8 h1 l2 bu9 u1 h1 u1 h1 u8"
Draw "e1 u1 e3 r7 f4 d1 f1 d9 g1 d1 g3 l1 g1 l3 h1 l1 h2"
Draw "bd2"
Draw "p7,7 bd6 br35"
Return
five:
wide% = 50
Draw "bu10 u2 r11 d2 f5 r6 e5 u1 e1 u8 h1 u1 h3 l1 h1 l6"
Draw "g1 l1 g1 l1 g2 l2 h1 l5 u2 e1 u4 e1 u4 e1 u4 e1 u5 e1 u4"
Draw "r29 d9 l20 d2 g1 d3 g1 d2 f1 e1 r2 e1 r7 f1 r2 f1 r1"
Draw "f1 r1 f4 d1 f1 d2 f1 d12 g1 d1 g1 d1 g1 d1 g4 l1 g1 l2"
draw "g1 l3 g1 l7 h1 l3 h1 l1 h1 l1 h1 l1 h4 u2 h1 u1 br1"
Draw "p7,7 bd11 br48"
Return
three:
wide% = 48
Draw "bu11 u2 r5 e1 r4 d2 f1 d1 f3 r2 f1 r3 e1 r1 e5 u7 h5 l7"
Draw "u7 r5 e5 u4 h4 l5 g5 d2 l2 h1 l4 h1 l2 u1 e1 u1 e2 u1 e4 r1 e1"
Draw "r3 e1 r6 f1 r3 f1 r2 f1 r1 f5 d2 f1 d5 g6 l1 g1 f1 r1 f1 r1 f1"
Draw "r1 f3 d1 f1 d10 g2 d1 g5 l1 g1 l2 g1 l3 g1 l5 h1 l4 h1 l1 h1 l1"
Draw "h5 u1 h1 u1 h1 br1"
Draw "p7,7 bd10 br47"
Return:
four:
wide% = 51
Draw "bu10 u9 ta320 u42 ta0 r9 d33 r7 d8 l7 d10 l10 u10 l25 be7 r2"
Draw "ta320 u25 ta0 d18 l14 bd2"
Draw "p7,7 bd16 br39"
Return
two:
wide% = 50
DRAW "r1 l1 u1 e1 u3 e1 u1 e1 u1 e1 u1 e12 r1 e11 u1 e1 u5 h1 u1 h2 l1"
Draw "h1 l6 g1 l1 g3 d2 g1 d1 l6 h1 l4 e1 u3 e1 u1 e1 u1 e3 r1"
Draw "e1 r1 e1 r2 e1 r12 f1 r2 f1 r1 f1 r1 f3 d1 f1 d1 f1 d7"
Draw "g1 d2 g1 d1 g1 d1 g12 l1 g8 f1 r23 d8 l37 be1"
Draw "p7,7 bd1 br48"
Return
one:
wide% = 38
Draw "br14 r1 l1 u38 h1 g4 l1 g1 l1 g1 l1 g1 l2 g1 l1 u8 e1 r2 e1 r1"
Draw " e1 r1 e2 r1 e5 u1 e1 u1 r8 d53 l9 be2"
Draw "p7,7 bd2 br20"
Return
zero:
wide% = 49
DRAW "br15 bd1 u1 l3 h1 l1 h1 l1 h5 u1 h1 u2 h1 u6 h1 u13 e1 u5"
Draw "e1 u1 e1 u2 e1 u1 e5 r2 e1 r3 e1 r5 f1 r3 f1 r1 f1 r1"
Draw "F4 d1 f1 d1 f1 d3 f1 d5 f1 d11 g1 d5 g1 d3 g1 d1 g1 d1"
Draw "g5 l1 g1 l3 g1 l6 bu8 u1 h4 u3 h1 u20 e1 u3 e1 u1 e3 r5"
Draw "f4 d3 f1 d21 g1 d3 g4 l4 bd1"
Draw "p7,7 bd8 br32"
return
nine:
wide% = 48
Draw "br12 bd 1u1 l3 h1 l1 h5 u1 h1 u2 h1 r3 h1 r6 f1 d1 f3 r5"
Draw "e5 u2 e1 u5 h1 g1 l1 g1 l1 g1 l9 h1 l2 h1 l1 h4 u1 h1 u1"
Draw "h1 u2 h1 u6 e1 u3 e1 u1 e1 u1 e5 r1 e1 r1 e1 r4 e1 r3"
draw "f1 r4 f1 r1 f1 r1 f6 d2 f1 d2 f1 d4 f1 d12 g1 d5 g1 d2"
Draw "g1 d1 g1 d1 g5 l1 g1 l1 g1 l3 g1 l7 bu26 u1 h3 u1"
Draw "h1 u7 e1 u1 e4 r5 f1 r1 f4 d9 g1 d1 g3 l1 g1 l3 h1 l1"
draw "bd1"
Draw "p7,7 bd25 br33"
Return
function bin.2.quad&&(tt$) public
mm$ = ""
for x = len(tt$) to 1 step -1
mm$ = mm$ + mid$(tt$,x,1)
next x
for x = 1 to len(mm$)
z$ = mid$(mm$,x,1)
if z$ = "1" then
t&& = t&& + (2 ^ (x-1))
end if
next x
bin.2.quad&& = t&&
end function
function binari$(t&&)
if t&& = 0 then
binari$ = "0"
exit function
end if
p&& = t&& + 1
te$ = ""
test&& = 1
do until test&& => p&&
test&& = test&& * 2
loop
test&& = test&& / 2
do until test&& = 0
if test&& < p&& then
te$ = te$ + "1"
p&& = p&& - test&&
else
te$ = te$ + "0"
end if
test&& = test&& / 2
loop
binari$ = te$
end function
Comment