dim dat(63)
for t=0 to 63
read w
dat(t)=w
next t
`SmileBASIC
remstart
DIM C[5]C[1]=-7543C[2]=-1466811C[3]=-5940736 S=32456<<16FOR P=-63TO . W=ASC("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"[-P])S=W+(S>>16<<16)C[4]=127AND W
C[0]=W>>8
FOR L=0 TO 31-P*32O=S
S=S<<1
IF O<0 THEN S=79764919 XOR S=130 AND S
T=D*2AND 4C[T]=127AND C[T]-(D>>6)+1GPSET C[4],C[0]+144,C[3AND P]NEXT
NEXT
remend
`````````````````````````````````
DIM C(5)
C(1)=-7543 : C(2)=-1466811 : C(3)=-5940736
S=32456<<16
FOR P=-63 TO 0
pp=abs(p)
w=dat(pp)
`read w-p
S=W+(S>>16<<16)
C(4)=127 AND W
C(0)=W>>8
FOR L=0 TO 31-P*32 : o =S
S=S<<1:IF O<0 THEN S=79764919 ~~ S : D=130 AND S
T=D*2 AND 4 : C(T)=127 AND C(T)-(D>>6)+1
`GPSET C(4),C[0]+144,
ink C(3 AND P) and 0xffff00
box C(4),C(0)+144,c(4)+1,c(0)+145 `,C(3 AND P)
NEXT L
NEXT P
`The string of "x"s had some invalid unicode characters, so I'm not able to post it here. Here are the character codes in decimal (just the BRUSH array in reverse)
boom:
data 8505, 11193, 11332, 40503, 9639, 38606, 12590, 44957, 49275, 9103, 45629, 7700, 44387, 16047, 36156, 21056, 32967, 44146, 47330, 6263, 59670, 16059, 2569, 1043, 21292, 45297, 10516, 35478, 45332, 45634, 21547, 54321, 12369, 54650, 3453, 32252, 41772, 10669, 2137, 35575, 41799, 37027, 38901, 57113, 9942,
data 15633, 8348, 8339, 40146, 53425, 640, 28853, 45146, 47166, 37752, 3773, 6923, 35473, 62875, 3644, 1835, 12187, 14270, 778
ink 0
box 0,280,555,400
do
sync
loop
`````````````````````````````````````
