[comp.sys.atari.st] Jack Knight where are you?

gary@hpbbrd.HP.COM (Gary Tuosto) (05/17/89)

Jack,

  My Atari-Guru here assures me that BIGSCRN.PRG is in fact PD. I have 
appended what he gave me to the end of this letter. Hope it works!

I tried to get to you though mail, but I couldn't reach you.

Regards
Gary Tuosto


# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
#
# Wrapped by Gary Tuosto <gary@hpbeo25> on Wed May 17 10:58:13 1989
#
# This archive contains:
#	bigscrn.prg	
#
# Files are compressed using compress(1).

LANG=""; export LANG


rm -f /tmp/uud$$
(echo "begin 777 /tmp/uud$$\n \nend" | uudecode) >/dev/null 2>&1
if [ -f /tmp/uud$$ ]
then
	rm -f /tmp/uud$$
	unpacker=uudecode
else
	echo Compiling unpacker for non-ascii files
	pwd=`pwd`; cd /tmp
	cat >unpack$$.c <<-'EOF'
	#include <stdio.h>
	#define DEC(c)	(((c) - ' ') & 077)
	main()
	{
		int n;
		char dest[128], a,b,c,d;

		scanf("begin %o ", &n);
		gets(dest);

		if (freopen(dest, "w", stdout) == NULL) {
			perror(dest);
			exit(1);
		}

		while ((n=getchar()) != EOF && (n=DEC(n))!=0)  {
			while (n>0) {
				a = DEC(getchar());
				b = DEC(getchar());
				c = DEC(getchar());
				d = DEC(getchar());
				if (n-- > 0) putchar(a << 2 | b >> 4);
				if (n-- > 0) putchar(b << 4 | c >> 2);
				if (n-- > 0) putchar(c << 6 | d);
			}
			n=getchar();
		}
		exit(0);
	}
	EOF
	cc -o unpack$$ unpack$$.c
	rm unpack$$.c
	cd $pwd
	unpacker=/tmp/unpack$$
fi

echo x - bigscrn.prg '[compressed]'
$unpacker <<'@eof'
begin 600 bigscrn.prg
M'YV08#0  !"!TT !/ 8",**PH<.!2/(,E# H#( &#%XD!!! SX^$)IPXX?+D
M(P 1(JD\&0%LX 1T4?*YA&<2AI,@*F'QJ0" #00H,@%,@!=Q8 13%ADP$Y)K
M( 4*0B0"H, @JE,'3%WBLRJ4WL=__TPN<-($RQ,E0,X0L+@  8,\ OZX9&1&
M HP<+LV]#?#(I:,S [$5)3@O*1T0;P 0 +$Q  !HJ  P@#R5,@<A@63@%<I(
M2A!S20Q(="S4D;"@$QP1&.T76B!HO 8&@*)$ZM S!F /!'02A6))D0' "N1&
MC) S+P P'EBA0^V9N'4#X V,%]A_ %@Z1?#UGV:7Y&39IFL@.9B!"#1>_Y?<
M9 &13]Y)UBB;ELF0(TLFC'%SL(1N;+ERW$U*\.-?/VQY H8[(. ! "(62=9@
M 0)$2( 3=3" "A9">/8//6;0HZ$021PQQ3_XG($ "&C\P\\9Y(!!CG]CL$4&
M&+2,@,^#LN$3 C^R 8D(*-DAXQ0%,.!  !7E(-$@ 5;(08 2L$  @(I8!"$+
M$"%B&$)LBA%A)88<>D:BB0TIL=D$HIB!@DX S&&&"" $,0(ZDCD% 0A0,  %
M1V9 ,()\ CB%P0M\'$0#  * (%4 ^#@!C1! 0* D$T&@9DJ3(\#3T 3D9.J2
M+)U^BLTX2(@JE"^E*C0!-Z42X!(X$8+AJ)XQV.8(H[G.-5 (MF$#@ '=J7?=
M"YM1P%U"[SD1GV0,X, H 4P$JB.% T' S8_9@D,A4"Z)@JRA&(K&T5SFDI::
MI=3"DE  ;N P Y (N$3*O(RZ9,UWI8F3Q S!^*4$ &98@*^Z^Z[)B+\ S[7:
MN9P]K*XCMTZ%Y)J.8"8# -(D&H @Z/PC3<-"\0.);>8 PP>*,[0TE0%WS:4Q
MQQZ3/($_-*QI#3EID$R! " /Y#, )X.G,LLN4T! S*7% $0_3D@!1,LN><+T
M!(PXW0\34E,M%">]3B7 /_Z$_3.O4E$ P#_4A#T!/_]80T!DC@7 MA" ,/TS
M,"%+X_0_V+C-R(=2M$B/VXZX6+B+=_8CA4N8Z"W !"Y/$,H,>"I$ 0? NH2-
MXV1V&,294Z2YIBB #:#*<T+!<P8+3UJA!"1GD!!"HA?A,E#%+S$ "0#\^".(
M&0X <0X ?!R@7&S!,V+$-THT9?$9+N1L+[\4&%#Q4W    ,*_:!2]%0,P&(;
M-VU(8+Y+WK A !@P5),V V 84,G\K%/%A@%<426>4PQP@P%\5A7I30 ?5R/'
M^CCC)KSIC0' ",K/H(&+"R5G O)QS#\$$0 ,YFN# U#")S"$/0)T[WO],,7X
M*." !4X '.ESH3C:0 -S66DJ#@ # AYV0Q;FSP'[ZY\#_H=# ?H,*P;$!Q).
M 18EX($ /C #H^20+I?08WL7<PD[8(&&%)K! U=S!Q?#5Q<!2&0 5F3=!$#$
M*!)<C1XJ Q2C+""$4WQ (ANLVQW7)@@T-NH+(K -/J*G%3.XP(')@J $!0 -
MZ2E+!$ 0@B"LAT,;Z,P<:IB&,$:0#*U$:UI, $P L"%)2OZ,$HD"A1PFP(1L
M\$&)Z'CE0%KY2B3$<D<HH"4L90D%7=I2EGC0I"]O"0!0#%.6R#CFCN"AS !@
M0)BNW"4^ @"$9J*AF9!H)BZ@6<M;!@ <RA0  L()@W!B@9O2%  @PHF*<$(C
MG/A YR_Q,0 0*', 2+@G'.Z)"7G><@# N"<ZE$D "! 4!_Y\)0' 0%!$$!06
M!,5&0O%1   HLP"YC.8\"]!+C=ZR ,$4QD6-Z=%7%B"9):4H,U-J@&<*(PCH
M,  0HI ,?U@!BYA+H19S&IP)N(,)GP +ADJ9+ &@$@!0D$,"E#G+E ( !1-%
M*E-#RE22=A.945WI5:?ITF96,Z4!0,-$ Y!-L&Y3I& %9TK%.5$!E'.MYT3K
M5M7)SK:^<ZWQE*LTZWE/)$QT /M,Z0#ZJ==Y E2@$RWH01/+T)02 !&)A:AC
M)5K8CUHTI1B=*$<O2E7,6E6:)]6L5J79THG*5)D&$&ME7VF LF[5 &=%K5JW
M>@ $3/0 ;Z5M7)5Y@'6F] "HN.U=:9M79:[(N'Y=+3X0$-BM(H"PQ@UH2A& 
MCHDFP* I30!"E9N QFXU 9#EKF2_2UEE*N"R6U4 5)6K@(ZFM[/I_>P\%8",
MB2I@M/-<0%=3NH"O;G4!JE7F EPKS07$EK^SE28#;*M<!N16P7&%*0, 05-^
M*.(\_.!"%3FSX=3 @ <G$,YX]N<UK+G0$22NG"/>HLZYL $!\VHQ9_;RN]*\
M>%YD]8M% H"$P4P@"CN6@4D.<).<)&0%9E" N7C#&3!8PET :$&2'\9DK('!
M$%!6@1D88$._G.<?=H#R"[;,0R^OC0P^SD"$N#'D(C\!RB  #  P >4&F$$=
M_F& 279P$Y,(P#\2,$D/;O(L!R@!$&T8""5*+(_C_$ Y&\$:)*P#%G*T)R%"
M(+1\%'#H-H!A7!&[Q+D"\(('T&<@!/C!FN1A$B!H&@ 0Z#0.5.T25B?$!S<Q
M2Z=-,)@(:"-"-O!Q$R+$ HDYC#6EP9!_AA A"(!!,%*1@ <L! 9FL. +)DG 
M34CB!&L@X1QDNQHC5#6!+43("^(FMQDBY 1QBR-5J(E#A'AP-4>0&PS$KO>[
MR;V&"&E W_!VB1TB-,YO_.$?R@:W/X80E(+(( .+(D0P(B"$@;34>\0(!B2$
MH(0T#,0, S4XPNM@/.0I#XL("(X_6'$&'. -,]_S!RID@ )_J.)Y2JAY*^:T
MQ)84 1W^L,6.?_H) -0S;13X>=!AR@]4$!Q#S\/0#WQ#+-\@0 @<1X-BW$<'
M"/Q  %A'@"K.U5JM Z ,%K#D7"R1J ? 8@AB@  "U$%V,"@ &HF" !T0  8!
M=%T26A< 3 &@@#)(0.VE83L 'B +N$M #\[&@ X"H(V\ER,(D B&$()@=QU@
M3!-!D$(1+"( %(C@B4Z81C".$)0',"(AO$@4 LK  -8/Y %^X$%"(, )(*A@
M#R!P 0N 7[UD<< & K#&$'!0U!(D@5$U* )ZZ&[Q(M = 2Y(@ P*  8BW'Y@
MBZ?"[<^S>#+<7@ZWQP.EQ$&H: "!_8HY!Q2@D9BG[D$YWSZ/$RS!A&\,:_+E
MT 204 R31P6'( )'$ 7*(#)<\ @8<GN><'NF<'NN<'NV<'M@\@#$<'O*<'O2
M0 ,1@ 1"0 ,Q  , 0 +"D'HS( @F*((R( C20 Q1T S_@ X8 H(TD(+3\((Q
M.(,?<H,1D(,BF'HN"(,R2(/P@"$GA 'M@ OH)P-,F M.0 U+B 1 P Y." !0
MF"KL((74  B!8 2 0 R X 350 B 8 2!0 R!8(9B2(:$T(9G" AQ:(:S( AO
M6(9S>(=N.(: P(?5$ N"4(?5('8*80!R9@PXH (#00,$, 5"@'@_ P)JP"A#
M<'V>YQ0<4 5%( 94< 8<@ ",Z!@&D&0PD G0, P*^ _Z@"$@@(JJN("M6 <J
M@ 380 2B2'9U00))0 W$  /9  .:H W#  )-L(KV@"&\Z(N^"(PPH W..(S%
M>(P+* \84HNWF(ND^$7+2 PFH 360 PHL 2WZ(S0N TPP G$:(RK:(UU<(O=
M^(WA.([8\(O!>(XPP WF" /HJ([3N(KJH&RG8(+#L$B(-P'6L"A(( S$L#+P
M8 YB( V"$$</ %22\8 #4"B.42:C4R*EHQ!)0@!&  T)$024XQ)\<!P^Q@<F
MP0,W 05/P&B=-A",X&.0<&JP]FBM]FKE R:P9@9<X ,8(P2&P -%Q0*HYV.@
M@),"0&M"86L X&I!\"P]J1 "8 8F\ (.\ +$LFH[.97R43Z&0#S=8 Q1\ S_
M  P&@!?J4@A..0%0B6M!8!8Q #?_0 #N@"$#@"?F=UZDL05T( =YD 9N< 8@
M0 =O  )FD 9X  )P( =O( 9L4 9M, <@< =I0 =H@!AL0 8@H!)3  )V4 9R
M, =I\ 9N, <NL)I=T #G-02HN9AG4 =R$ 9T<)IN  )S$ :C20:KZ0*N"0!"
MD 9G, 5C( =E4 :Y29AS0 =AP :3Z9NK&9Q<$ 9U@)@ ( ;$.0?'Z08N\)B 
M<0!&D :3"0+5>9UOP 7:>0;<*0?>"9X@X 9O<!AF\ 9UX :^&9P'P&QN< *'
M<0=RD)EE<)B)^9AO< :UV0:*29YE )SG=0##69S'F9RY^9S(&09DD <@P)S.
M"9UED)_GY9H1:IS(J9P@8 4QX (P  ()  ,VH*(YX (X@ .P$P,XH ,YHP,R
M@ .N"9MPD <!>@9H<!@H, 8ID !*4 =LD 9AD)M&X (@( 5EP)UHL 8#>I^>
M.6QRL 9T8 )44 9C@ 9ND 9KH)].,)\@H)SV*:0@T :4^0:""0*\&0;D&0:2
M608AH)\C.J$F*I^'P:'/&9UY&J(*P -3  =A, 9EX ,Z  *PZ0:WZ09U,*",
M(:5T0)MNP*@@, 6\.:!C$)O$29NVB9O!N0%ET   L %NL@(M\ (JD *-"@.R
M"@,J,*LK"@*V6JNS"@*X.JNZ*JNH.@(ZP 53, 2B5P0WX0))T 1'<!!_,  ?
M<"[UXAB%\A#3T1 0$ "/=@QQ 0#<^@=\(0#H(*X!0 ?D2@?EJAP < K*$0#1
M"@+K&I5-&94!\ 3R^FAH=! *8 $&D#U*9@  &XH(H  BP&4(X  >T*]*!@(4
M  $ZX  &H  @8 $2  $&<+!*A@ :.[ 7BP 2H $7&[$>BP 7:[ :"[ 2$+$&
M +$<JV1<9K(>ZP , +$A:P$*('>A"+ &JP DV[, J[(@L+,9&[+98P S&[$B
MH+(JJP 2$ "ZH+$.$ !2"PD#V[-5JP *H $0  $2(+$08+,&8 %/T;4+YA8<
ML+0M6[44H (RH ,JP+ .0 $*P $$4+=UJR1V:[>RX "T8  V<+ ,  (#RP <
$<+8  +44
 
end
@eof
uncompress <bigscrn.prg >/tmp/compress$$
mv /tmp/compress$$ bigscrn.prg

chmod 664 bigscrn.prg

rm -f /tmp/unpack$$
exit 0