[comp.sys.atari.st] SCODE

braner@batcomputer.tn.cornell.edu (braner) (12/06/86)

[]

Since there is no news about atari.st.sources, here it is here.
This is a program that installs itself in RAM (run it from the auto folder,
or anyway before you enter any "shell"!).  Later when you press Alt-Help,
instead of the usual printout you get the screen saved in a file.  The format
of the file is both compressed and printable:  about 30-70% compressed,
depends on the image, and coded in a way that uses "safe" characters only
(i.e. no square brackets and such) - suitable for e-mail.

Following postings will include the companion decoding program, and the
source for a program that decodes and translates into Postscript.
(I send the coded images over the modem to a VAX, and there print it on a
Laserwriter.)  The source for the first two programs will be mailed/posted
by request.

- Moshe Braner

---------------------- cut here -----------------------
begin 644 SCODE.TOS
M8!H```K$```"4```&@P``````````````````$[Y````#$[Y```)OBI/*FT`x
M!"`M``S0K0`4T*T`'-"\```A`"(`THW"O/____XN02\`+PU"9S\\`$I.0=_\x
M````#"!M`!@B;0`8T^T`'"`M`!13@&\&$R!1R/_\(&T`$"`M`!Q3@$(84<C_x
M_"AM`!#9[0`<*4W__"IM``A.K0`&(&S__$AH`(!.N@.:6(\O+/_V/RS_^DZZx
M`KY<CS\\``!.N@/8/SP`03\\``).05B/3G5#3T1%3G%.<4WZ`I8M2O_$#*\`x
M_`>&``1G'"!X!**P_`DZ9Q*P_`D,9@`!7`@O``4`1&8``5(Q_``!!.X0.0#_x
M@F#`O`````,M0/_T/4#_^M!\`#`<@$'Z`?X0@$AN_\@_/``:3D%<CT)G2'H!x
MXC\\`$Y.05"/2D!F%$'Z`=8,$`!:;080O`!!8`12$&#:0F=(>@&\/SP`/$Y!x
M4(]*0&L``.8]0/_^/SP``DY.5(\H0'X!/7P``?_X('P`_X)`-#P`#T*`,!C1x
MKO_T80``VE'*__)!^@&$,"[_^M!`/#```#U&__PZ<``&-GP``%-&0D5"1&$`x
M`.XT0&`,,`NP36P\/"[__#@+80``VK!*9@Y*168$5\5V`;9\`']M%,&*2D5Gx
M"$)%80``9F`$80``>F8N4D-1SO_24DM@`/_`2D5G!C`*80``2#`N__1A``!:x
M("[_]&$``%)A``#B80``:#\N__X_/``^3D%8CTI'9A@P/'S_1C0``%'(__HPx
M/'S_1C0``%'(__HD;O_$3G4R`#`#Y$@&0``080``8.E+,`'L2.Q(@$-@!C(`x
M[$CL2&$``$HP`>Q(80``0C`!80``/+Y\$?AM&B\.2,<O!S\N__X_/`!`3D'>x
M_``,L$=F!$)'0D!.=4*`$#1``-A-X4@0-$``V$W1KO_T3G7`?``_T'P`(+!\x
M`"MN!@9``$%@'+!\`#IM%K!\`$!N!@9``#5@"K!\`%MM!`9``!L=@'``4D=2x
M;O_X#&X`0/_X;1(=O``-<``=O``*<`%41T)N__A.=41535!!+D-3;@``8P!Cx
M`,<`H`"@`%!.5@``2.<!,"9N``A@```>8```$C\'/SP``C\\``-.N@0D7(\>x
M&DB'9@#_ZB`;)$`@0!`09@#_VDS?#(!.7DYU3E8``$CG`S!(;.UF3KK_LEB/x
M)'P```4"0J<_/``@3KH$`%R/+@`F4B\'/SP`($ZZ`_!<CPRK0T]$1?_X9@``x
M-$AL[5).NO]Z6(\_/``"/SP``DZZ`[!8CSP`#$8`>6<``!(,1@!99P``"D)Gx
M3KH`ME2/0?K\\"`()D!"IS\\`"!.N@.>7(\N`"`2)T#__"2++P<_/``@3KH#x
MB%R/2&SM,DZZ_QY8CS\\``(_/``"3KH#5%B/0F<O/```%W`_/``Q3KH#7E"/x
M3-\,P$Y>3G5.=4Y6```_+@`(3KH"P%2/#&Z#```(;@8P/```8!X_+@`(/SP`x
M/DZZ`RI8CSE`YS!G!C`\__]@!#`\``!.7DYU3E8``#\N``@_/`!,3KH#!%B/x
M3EY.=4Y6__XO"T'LYWXF2&`6,"L`"L!\``-G""\+3KH`*EB/UOP`%"`+0>SGx
M?B((TKP```6TL(%MV#\N``A.NO^N5(\F7TY>3G5.5@``+PLF;@`(+PM.N@!$x
M6(]*0&<&,#S__V`P,"L`"L!\`!!G"B\K``9.N@'N6(]":P`*/RL`#$ZZ_RQ4x
MCTI`9P8P//__8`0P/```)E].7DYU3E;__$CG`1`F;@`(,"L`"L!\``-F"#`\x
M__]@``".+A.>JP`&,"L`"L!\`(!G3#`K``K`?``"9@8P//__8&PP*P`*P'P`x
M!&<0/SP``D*G/RL`#$ZZ`%Y0CS\'+RL`!C\K``Q.N@+"4(\,0/__9@8P//__x
M8#8":_]_``HM2__\#&L````,;Q@_/``!0J<_*P`,3KH`(%"/(&[__"%```XFx
MJP`&0FL`!#`\``!,WPB`3EY.=4Y6__(,;@````AL"B`\_____V```/X_+@`.x
M/RX`""\N``H_/`!"3KH!BM[\``HM0/_\#(``````;0@@+O_\8```TC\\``$_x
M+@`(0J<_/`!"3KH!8-[\``HM0/_X/SP``C\N``A"IS\\`$).N@%&WOP`"BU`x
M__0,;@`!``YF#B`N__C0K@`*+4``"F`D#&X``@`.9@X@+O_TT*X`"BU```I@x
M#C`N``YG""`\_____V!B("X`"K"N__1O'DAN__(@+@`*D*[_]"\`/RX`"#\\x
M`$!.N@#@WOP`#$)G/RX`""\N``H_/`!"3KH`RM[\``H,@`````!=P,!\``$Yx
M0.<P9PH@//____]@"F`(0FSG,"`N``I.7DYU3E8``"\N``@_/`!)3KH`CER/x
M3EY.=4Y6__Y";O_^8"8P+O_^Y8!![.8`T,`P$+!N``AF#C`N__[E@$'LY@#0x
MP$)04F[__@QN`$S__FW23EY.=4Y6__X_!SXN``@]?`$P__Y![.8`(DC2[O_^x
MOE!G!EA(L\AF]C`H``(^'TY>3G4I2>7\*4KE^"E?Y?1.32)LY?PD;.7X+RSEx
M]$YU*4GE_"E*Y?@I7^7T3D$B;.7\)&SE^"\LY?1.=4Y6```P+@`,4VX`#$I`x
M9S8@;@`($!!(@+!\``IF#C\\``T_/``"3KK_O%B/(&X`"%*N``@0$$B`/P`_x
M/``"3KK_I%B/8+Y.7DYU3E8``#`N``Q3;@`,2D!G&B!N``A2K@`($!!(@#\`x
M/SP`!$ZZ_W98CV#:3EY.=4Y6```P+@`,4VX`#$I`9QH@;@`(4JX`"!`02(`_x
M`#\\``5.NO](6(]@VDY>3G5.5O_R2.<`,"9N``HD2T'L`DPM2/_V#&Z#```(x
M9A8_+@`.+PM.NO\T7(\];@`.__Y@``%(#&Z"_P`(9A8_+@`.+PM.NO]@7(\]x
M;@`.__Y@``$J#&Z"_@`(9A8_+@`.+PM.NO]P7(\];@`.__Y@``$,+4O_^D)Nx
M__X_+@`(3KK^=E2/2D!F``"F(`J0B[!N``YD``"8$!)(@+!\``IF``"&(`J0x
MKO_ZL'P``&]`(`J0KO_Z2,`M0/_R+R[_^B\N__(_+@`(/SP`0$ZZ_G3>_``,x
M.4#G,$C`L*[_\F<(,#S__V```)PP+.<PT6[__B\N__8O/`````(_+@`(/SP`x
M0$ZZ_C[>_``,.4#G,`Q```)G!C`\__]@:%)N__Y2BB`*+4#_^F`"4HI@`/]@x
M8!`@"S8N``[&O```___0@R1`(`J0KO_Z2,`M0/_R+R[_^B\N__(_+@`(/SP`x
M0$ZZ_>3>_``,/4#__CE`YS!(P+"N__)G!C`\__]@"$)LYS`P+O_^3-\,`$Y>x
M3G5#[.UF0>P``"+(0>P`!B+(0>P`)B+(0>P`1B+(0>P`9B+(0>P`AB+(0>P`x
MIB+(0>P`QB+(0>P`YB+(0^SM4D'L`.@BR$'L`0@BR$'L`38BR$'L`3HBR$'Lx
M`5HBR$/L[3)![`%<(LA![`%T(LA![`%X(LA![`&F(LA![`'6(LA![`(&(LA!x
M[`(J(LA![`(X(LA#[.=^(OP`````,OP``"+\`````#+\``DR_(,`(OP`````x
M,OP``"+\`````#+\```B_``````R_`$",OR#`"+\`````#+\`@`B_``````Rx
M_```(OP`````,OP!`C+\@P`B_``````R_`(`TOP%>#E\`@#G?$YU&T4-"@``x
M"2LM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2L-"@`)?"`@(%-#4D5%3B!$x
M54U0(%!23T=204T@("`@?`T*``E\("`@*$-O;7!R97-S960@9F]R;6%T*2`@x
M("!\#0H`"7P@("`@("`@("`@(&9O<B`@("`@("`@("`@('P-"@`)?"!!=&%Rx
M:2!35"!W:71H(%1/4R!I;B!23TT@?`T*``E\("!B>2!-;W-H92!"<F%N97(Lx
M(#@V,3`@("!\#0H`"2LM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2L-"@``x
M``T*"5!R;V=R86T@;F]T("AR92EI;G-T86QL960N#0H`"2A3965M<R!L:6MEx
M(&ET(&AA<R!B965N(&EN<W1A;&QE9"!B969O<F4A*0T*``T*```)26YS=&%Lx
M;"`H86=A:6XI(&%N>7=A>3\@*'DO;BD@````#0H)4')O9W)A;2!I;G-T86QLx
M960N#0H`#0H```DH3&%T97(Z('!R97-S($%L="U(96QP(&9O<B!A('-C<F5Ex
M;B!D=6UP+@T*```)($1U;7!S(&EN=&\@9FEL97,@1%5-4$$N0U-N+"!$54U0x
M0BY#4VXL("XN+@T*```)('=H97)E(&X@/2`P+"`Q(&]R(#(@9F]R(&QO+"!Mx
M960@;W(@:&D@<F5S+@T*```)($)L:6YK<R!S8W)E96X@:68@<W5C8V5S<V9Ux
M;"XI#0H*```)2&ET(&%N>2!K97D@````0T]..@``0558.@``4%)4.@``#0H`x
'``````(&```)x
`
end