[comp.sources.atari.st] v05i011: loadspx -- Spectrum picture viewer

koreth@twitterpater.eng.sun.com (Steven Grimm) (06/06/91)

Submitted-by: lsmichae@immd4.informatik.uni-erlangen.de (Lars Michael)
Posting-number: Volume 5, Issue 11
Archive-name: loadspx

these are the sources of the mini spectrum pic viewer which
I've posted to c.b.atari.st.

[It views a picture 'madonna.spc' in the current directory. -sg]

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 loadspxs.lzh
M']0M;&@Q+7$-  "V.P  X#QI%R  "6QO861S<'@N<U50VVL /I]?_B?[]@.'z
M@_KXW?Q?>WX8%VS& FO_+GWU[^]_-%A4K:+>\MJ;.%: [2&JI)TZ+/F9G+3<y
MU\KB"C]\ 0S_]ARY';#@;_HQ8WK O=$BXE.&OA@OS[$+Q3#A]YNZA4)N%^DCx
M\3?;SBHCQE\!-Q)5W#D72!N2>EP;/.?CPK&UQ#=TL9#A[A;@N WN@SKUE62Yw
MAC$T'#9X_?[G%$A+:"8MJ<(' B0T:2,I(@)?E H6P7:)<AW!W!.#$V*3?U8Xv
M^IC6%!TW\KT'" -Z@DN<-WP=V@\.(=&_!Y@-F9KL8!LQ+7CU])%/&$3E(-D^u
MCH&Z4,DVZ-SS;TH)>*AF[Q.JJ';X^%SN=?K;6_D>! CW_.Y-@8)["7<PLHWFt
M'R.1A\RF)0-H>NW+6YT)W+#0:[E22W%4@N5 LJ+#IDU<U#>K7?Z\(5C-:\X9s
M9D*'UWV#SGS)K+!HD:7,4/_I+NXU]S=TK><C50$(6Y/[^FDDYDYV=J]XT=GHr
MB'#V74JF,EY2B/57E3'BU82N#B\L!2F++?CU2'4Z;Y3WLGF#ZH_PI*)Q+-%2q
M*BJ+(EVNCCE@J[2'F@7<9W#0_XH%WV?=!J41[<Y3#T(,W:?&YC(\6V5'API=p
MUS+"C<YF=M!U+"?QH%91L4>I<?8;187+P$M2)D\U)O_2NZ_2S*RM.D^CRR"Oo
MQ2O'XCMR9,]NPAC*[_$_ ;5(?3484>!W29_FVYZMB<#G3L2SA-3N[IDG[@]-n
MC]5!4W\+$\YJCRZB'II[L]=?[X+9 %EG.F+B/;P728LHFDS)$!X6DVJV0O16m
M18>E'%L'?:SI$%>=#,BREN^.'!B58KOIU1:'I,2HC2CGI)RA1>V"9.NRR#NDl
MA320&!H]G..=TDPW260& (HA78L%J3&$2+XE.]FRN^!C:>'<,)3&:FG"UTT&k
M@0%XUE,( 8;#^A%@2&OL7* A+!C\L\/F)6V45FI7,J\WQTM]5CC6*=$=E3U>j
M+&+.U*,6DS-.)6D\5044O8Q-MQ69E,0VRS?PK<!KW;,(,41ZJN6$G[<&I;A_i
MDH2PHZPRXBBYEYT<^<\D9D,P9)R7\4W3BJ+^G/EEMQBI;89958:/.ZP]5Y0Fh
MG32!P>NTL1"Q-9*W)/U<5]*O3?65=,2LIF=:.\>YS3'VKD5ZHG)G(P;KH'!-g
MPWN4-;#KTY&3M83H<A>KD"A;D/!R6U2H,IAG)0<X]WAYO@5EY67(@R_C>\$Lf
MM+FHXLM^XV_S*Q]E;TRM_*[+VOE68YM?,&S$ [)4*;P[>%NJ9BG/IR$4FG/Se
M7(NJUF\!&56OTQOU@#7Z_O!8;++Q+-MSD<L'?=8L\I2>+1?_OHWPS=MUI/V1d
M-;'-G8EVIK.'_XUT'HH:ZZX^R/,&MA\=7#O!)[@$E^+#I9U&0Q_B1:]P$C)Ec
M7%,'GFLX8/9+_<:WA_\IS#,H_Y'A4\Y?J C?KRD"?Q-/7@W=WI.C*?W?5U/Jb
M%>IV6]95:Z^W)?=<1=\=,\2+4@T];?#^06TH!QF2R^MZ856WK(]T>ZB\G4 \a
M=0+L)'0FGT^DZ^WJ\H0$D]1 3 1GV7TRRR]?C/M\A,#S$U^=77]7]C^W<GZ.z
MMRQ,D(H2[V=_,M/_+B3Q]WV ?+&>%&7P;WX #!=7X85Z>#(C'>@D6 OJ_CNPy
M7=FV/9[J6.3[FET]_N0)&4H!M)'!5OE3$/\* -Y5V2&H!_"@=>>_!I\-;"-;x
M] Y "+^1H24'_\P)@_.\J]9)RZ4%M.!;JB(5,HM]]XWT6Y>M4*#Q>#@B@@P0w
M/+  L4<C'[S[T;%=W'%%+!YZY%&$2PBKYSK]"CC"&?H9+D[ZKKJT]G?KI@SXv
MZUUA:Y?XNO,_6/:5(E;'[3NC@S<_4PFP.)-U _T7E<]A+1?"KX7@I?1C*'(.u
MLM&5_ZG$_7N6>./^R79;+M#-F9=9"U/ UYF#[HK5;,62>'&FKT5,TF76$E'Ot
MQP:M:D<7*KDKT;XI6R/*0U^-<1,UMK8 G]6Q!\]F6L4^W3_=Q)!/*Z'E/;HRs
MQI%\R<=]).5Q&*%-@MI"F"Q^JM^U J,!#.'F:-.PK^ZIJY-%BWLS\WH)\\:Wr
MW&Y4E-Z'<MK:_NOC4/+E*L?/TF^-0ZVD;-$(C"=ZAU@P2A[M\DDFK,3>[$_ q
M**O(PT5@ K23BW4)Z:02'-%-!+%O662]M^*5?/#.$^EQI@3.M4<V<:U4')58p
M0+:EU>:;\_5;F=W:"[>825TI%C7.J+[U\/.DJIE/"KM==;VR/'?LU^Z!G@TFo
M3<3A_;95F-'C1_/(7==;4ME_RJ32YD_#)C,]8Z/OF?[V/O5MA,,_7O.MI=WKn
MK,CV3<?.)H!4-MKD3 'F,>!=3=Q;K0%?&MO?9))6V>&:$F6Z.9MN:FFX@XGRm
M.@9K\)25EA;OX8E:NN;=8=%53M89T75;3\:\6BEUW.%\C5U57:3:M%; I Y3l
MH&>0VSOSQ88EG3KL!C3?4?1_3?17] [6X'#CA5K\KX1IU=?!?5DOP(&[']O*k
MR--7C3@[H.RW5?7MZEJ%2KM&4;8U8I_U5?>^'Z<&-[>!L:7%,!2KO4>E4UD;j
M3_R, U$XR!VB>^H%'Q.UH"RGNA\8+V S,6(($7\GBAA>6L36!40Z/8;-N.+Ji
M($'W?7?U"=;2P,B82D,(N.LD@J:V;_V&D_^\SQC/F"@BJ-')?B,VB3^,A+\Qh
M]WZOOG9&^!GP.6R:(RKH$)0CKO11_W41U5_L,,U "=64XNJ0?@M<U?74+;0Ig
M6Y^*]&'"Z"VF:,DT.2//-C-/X4]:9],$)5)^WXA=DU-<?6K]/:1S:K,_;@Q_f
M(S31U%_?/8TT9_M'7W9'.?WX ,C&?@B@R+&#</L\3$?%QI(TC-*G1N\3][<Ae
MY1'EKN]@/E3)A+!R_L*"QXYP4R4-DA\!7X4_,+D/ES_W:7@&$MNG/S6[&0@4d
M,RHK$N<1I!$,N-%)N-I:*31^Y\P2+J44D;2L+.'>N]1]H2_@[^9#O9.EL^YGc
M>E]YX_1C/:M+\G/; Q^;-^P/";)3)-:XU%CO 6XHT<BT_#^HIP=8?L^4\O,<b
M(6#(V'=ANNN4,*=SH@)E(".4,1Z&]V<A_LW=\0_8*C*U0/!2M3\03?!DI 7&a
M##X %@5<5Z .[\GK7(?HB&@19TL3J(JMF?]&U]*7++>^BJ/_(2A%&$+,YZ?]z
M^A$A+7H[?!A%X#<X8K1^\;PQ^\!8K(S4:OOY[HU0F-X?8I[=,%LL-LKVU0:*y
MDINON%RAH>A097RME75!ST_I$JZW\2*^L]#%L=1U&U^%V/?(CN[7;!!M'O8%x
M\Y67\?!^EW^R/JPR^7=A[((59>]915E(2_FC';%D&+K?:$@MHJ-;IU?Y1I)@w
M7 &XC<7D7<P3PXH]*N@LQYCT<]=FEO /IK/_)$_U/EK-7@9JJ=&W,F_5W3I5v
M13S%^+,N3TPJ#D\.=Q;XEC8LRC5G(K>DERFJ#I8B<KE; %OJ6"XW7"V+YA16u
M&W;@GM1+#"[M1!]>DX<L4'$:$WXL^3?CA08GLS(BDI)NQ?VK!/I2V<DW;LH5t
M627BTN6K(SP\62LF#@K4CTQZLG\JY&$7'._7@RV0;>PSYU[W=_>HSZ_1!4J3s
M\I&K"FK+-EN7(%,GYX+U!FPB R5E0V.SQZ2(^:BY\% E5:\7["^0UU"U:/:6r
M%WZFAX R47K_1'<+@O_[L/D>-Z6KEF^7#(G\H=$YT,TAS]!CS?[O=-_K\?).q
MQEV,K-C"ND)_PQ8F0?CMFN<1\20&./I6I&+2JD<NQ:.*/90>Z@7&7HQA6@_.p
M!_"#PH/( \L#T(/> ^$#Z(/I@^V#]0/W@_F#^X/"!XH/%!Y0/*!Y8/1![8/=o
M!\ /D!\X/H!] /64'_X$7WF<O-(\OA1KPZB5/NMW[%QQ"\B9>WY:",^3;GB6n
M+D'+_G:0;*W\&XVU[_%7DGK7]R_]T>_7^?^$O&?^A&SBC'9R]&Z8\J#]8?L#m
M]L/V)3VGW5=3P6T#_A.NZGS^K< _B'] _D#^\4^SR*?_ESBC13QCS4/[!_</l
MR0?=M8NP/(64)_CG9R;K;+YW/ 5=<#]M#_/;?5-,?_E((_\-C]QRZHEH.$LRk
M7-$M&B7FB/F8/H/]A\-$8:(Q31B#XP^2B,E$9)HR!\@?N#_YZ9>Y87@!VEL)j
MH)\.ET)JGM*SVJT$OC)+P@-9LTOS"1JL1?55X0CN4ES>XWYTY##7*/ %7G=Ki
M<):LOLE"MH=2F%5+B@^H/K#^U4N,I7:'VA]X?E]*XV%2O/Y$&KN!0<YR1=_*h
M[ZH$DLMU_!'+F+MM1#)F7M#CYG1$X+WA]X?/F'^<],K[& IJ216S()X:F1XAg
M^D;/)LN_4>'&+._KM.]MB&U6WS%Z>*F>%%Z25H0-4'M-<4,LW<'=3A<&YA= f
M!"+ZMK_L$4E<*:]MR*5"COPK(P2X38'RRM@]K"W[$_++(H#LF'RS<"DI?CJ*e
M?]6Q7DHY04?N-1 *#K>^CA"Z6%/EQH;-YW^Q>84GWC[HG)QU0HS8A33]WEE"d
M(2:JL*2\M3MRQY%B!\5W4Y$2_5HP!>PWIFV\GZ.[?P'6K4?G?.L<X*90<BM4c
M'Y.4<\<1[!N6O[^LQD,#3$AFGWFL#5O!.@Y,NB]Q8].B]GUN]1<DU^EK$#@Db
*[)=B_LR 9>H, +^La
 z
end