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