Here's a little program that will write TI in "3D"-text on yoru 
display, using the random dot model. It will take about 15 minutes to 
run, but there is also a finished picture included (PIC:RD) for those 
who aren't interested in the way it's created...
The program is written by Magnus Johansson, and is not entirely 
bug-free. The T letter has a couple of "lines" in it, but it's still 
a nice effect.
Remember to "dis-focus" on the image to see something.


\START\
\COMMENT=Program file dated 02/14/95, 19:39
\NAME=RDS
\FILE=rds.85P
ClLCD
Outpt(4,5,"Calculating...")
{0}\->\PAT
64\->\dimL PAT
For(A,1,64)
Outpt(1,1,A)
int (65536*rand)-32768\->\PAT(A)
End
0\->\xMin
126\->\xMax
0\->\yMin
62\->\yMax
AxesOff:FnOff 
ClLCD:ClDrw
For(A,0,126)
For(B,0,63)
If (PAT(B+1) and 2^mod(A+1,16))
PtOn(A,B)
End:End
For(A,18,33)
For(B,43,54)
If (PAT(B+1) and 2^mod(A+1,16)):Then
PtOn(A+1,B)
Else
PtOff(A+1,B)
End:End:End
For(A,33,48)
For(B,43,54)
If (PAT(B+1) and 2^mod(A+1,16)):Then
PtOn(A+2,B)
Else
PtOff(A+2,B)
End:End:End
For(A,48,76)
For(B,43,54)
If (PAT(B+1) and 2^mod(A+1,16)):Then
PtOn(A+3,B)
Else
PtOff(A+3,B)
End:End:End
For(A,77,122)
For(B,43,54)
If (PAT(B+1) and 2^mod(A+1,16)):Then
PtOn(A+4,B)
Else
PtOff(A+4,B)
End:End:End
For(A,34,79)
For(B,11,42)
If (PAT(B+1) and 2^mod(A+1,16)):Then
PtOn(A+1,B)
Else
PtOff(A+1,B)
End:End:End
For(A,79,124)
For(B,11,42)
If (PAT(B+1) and 2^mod(A+1,16)):Then
PtOn(A+2,B)
Else
PtOff(A+2,B)
End:End:End
StPic RD
\STOP\


section 1 of uuencode 5.25 of file rds.85g    by R.E.M.

begin 644 rds.85g
M*BI423@U*BH:#`!'<F]U<&5D(&9I;&4@9&%T960@,#(O,30O.34L(#$Y.C,X
M```,``T`"`!@!P<`60,2`U)$4UD#5P/L;^L01#0`+T0U`"\M0V%L8W5L871I
M;F<N+BX`$6\.1#``#PLU4$%4;T0V-``+P#50051OW1`S02]$,0`O1#8T`!%O
MZQ!$,0`O1#$`+S-!$6^E$$0V-34S-@!P01%A1#,R-S8X``LU4$%4$#-!$6_>
M;T0P``L]!&]$,3(V``L]!6]$,``+/09O1#8R``L]!V][;I%O[&Z#;]T0,T$O
M1#``+T0Q,C8`$6_=$#-"+T0P`"]$-C,`$6_8$#500500,T)@1#$`$4!$,@#P
M%1`S06!$,0`O1#$V`!$1;Y@0,T$O,T(1;]YNWF_=$#-!+T0Q.``O1#,S`!%O
MW1`S0B]$-#,`+T0U-``1;]@0-5!!5!`S0F!$,0`10$0R`/`5$#-!8$0Q`"]$
M,38`$1%NV6^8$#-!8$0Q`"\S0A%OVF^9$#-!8$0Q`"\S0A%OWF[>;MYOW1`S
M02]$,S,`+T0T.``1;]T0,T(O1#0S`"]$-30`$6_8$#500500,T)@1#$`$4!$
M,@#P%1`S06!$,0`O1#$V`!$1;MEOF!`S06!$,@`O,T(1;]IOF1`S06!$,@`O
M,T(1;]YNWF[>;]T0,T$O1#0X`"]$-S8`$6_=$#-"+T0T,P`O1#4T`!%OV!`U
M4$%4$#-"8$0Q`!%`1#(`\!40,T%@1#$`+T0Q-@`1$6[9;Y@0,T%@1#,`+S-"
M$6_:;YD0,T%@1#,`+S-"$6_>;MYNWF_=$#-!+T0W-P`O1#$R,@`1;]T0,T(O
M1#0S`"]$-30`$6_8$#500500,T)@1#$`$4!$,@#P%1`S06!$,0`O1#$V`!$1
M;MEOF!`S06!$-``O,T(1;]IOF1`S06!$-``O,T(1;]YNWF[>;]T0,T$O1#,T
M`"]$-SD`$6_=$#-"+T0Q,0`O1#0R`!%OV!`U4$%4$#-"8$0Q`!%`1#(`\!40
M,T%@1#$`+T0Q-@`1$6[9;Y@0,T%@1#$`+S-"$6_:;YD0,T%@1#$`+S-"$6_>
M;MYNWF_=$#-!+T0W.0`O1#$R-``1;]T0,T(O1#$Q`"]$-#(`$6_8$#500500
M,T)@1#$`$4!$,@#P%1`S06!$,0`O1#$V`!$1;MEOF!`S06!$,@`O,T(1;]IO
MF1`S06!$,@`O,T(1;]YNWF[>;Y(T4D0&`/(#$0)21/(#\`/QM/&T\;3QM/&T
M\;3QM/&TON6^Y;[EON6^Y;[EON6^Y.C2Z-+HTNC2Z-+HTNC2Z-*=3YU/G4^=
M3YU/G4^=3YU.`UX#7@->`UX#7@->`UX#7C$V,38Q-C$V,38Q-C$V,3;[X_OC
M^^/[X_OC^^/[X_OBVE':4=I1VE':4=I1VE':4/=]^[[]WW[OON_?=]]WWW;>
M8<\P]YA[S#O,G>8=YAWFA.&"<,$X<)PPG)A.&$X83IPOCA?'"_.%\X7YPOG"
M^<+0QLAC=#&Z&-H8[0QM#&T,8@9Q`SB!C$#,0&8@9B!F(/QG_C/_&?^,_XS_
MQG_&?\:)CH3'0F.Q,=$QZ)CHF.B8R"3$$G().029!,R"3(),@OI?_2_^E_]+
M_TO_I?^E_Z1@(W`1N`C,!&P$-@(V`C8"E:B*U$5J,K42M8E:B5J)6H#:@-J`
M;4!M0&T@-J`VH#;['?L=_8[]COV._L=^QW[&G\>?QX_CS^//X^?QY_'G\!/*
M$\H)Y0GE">4$\H3RA/*-$XT3AHG&B<:)XT3C1.-$ZYOKF_7-]<WUS?KF^N;Z
MYG7B=>)Z\3KQ.O$=>)UXG7C)T\G3Q.GDZ>3I\G3R=/)T76%=84ZPKK"NL-=8
M5UA76+VDO:2^TE[27M(O:2]I+VC,T,S0QFAF:&9H,S0S-#,T?&M\:WXUOC6^
M-=\:WQK?&@#C`.,`<8!Q@''`.,`XP#B2]9+UB7K)>LEZY+UDO62\Q=3%U,+J
M8NIBZC%U,74Q='+T<O1Y>CEZ.7H<O1R]'+S,#,P,Q@9F!F8&,P,S`S,"\E?R
M5_DK^2OY*_R5_)7\E%7H5>A*]"KT*O05>A5Z%7KT.?0Y^ASZ'/H<_0Y]#GT.
MWQK?&L^-;XUOC3?&M\:WQDMT2W1%NB6Z);H2W1+=$MQ&NT:[0UVC7:-=T:[1
MKM&N?!U\'7X.O@Z^#M\'7P=?!D9H1FA#-",T(S01FA&:$9H15Q%7"*N(JXBK
MQ%7$5<14($H@2C`E$"40)0@2B!*($JHUJC6U&M4:U1KJC6J-:HRL>:QYMCS6
M/-8\ZQYK'FL>S&#,8,8P9C!F,#,8,Q@S&,'.P<[`YV#G8.<P<[!SL'*!9X%G
M@+/`L\"SX%G@6>!8H!2@%*`4H!2@%*`4H!2@%-_LW^S?[-_LW^S?[-_LW^PP
MDS"3,),PDS"3,),PDS"2)D4F129%)D4F129%)D4F1.V:[9KMFNV:[9KMFNV:
M[9H-@@V"#8(-@@V"#8(-@@V"WJC>J-ZHWJC>J-ZHWJC>J*XCKB.N(ZXCKB.N
M(ZXCKB*_++\LORR_++\LORR_++\LA.:$YH3FA.:$YH3FA.:$YE`64!90%E`6
*4!90%E`64!;2^1;2
`
end
sum -r/size 4901/2708 section (from "begin" to "end")
sum -r/size 50192/1945 entire input file


Regards,
Magnus Hagander
mha@algonet.se