[comp.binaries.atari.st] v14i003: geniscan -- Software to read from GeniScan scanner

koreth@panarthea.ebay.sun.com (Steven Grimm) (03/07/91)

Submitted-by: larserio@ifi.uio.no (LarsErikOsterud)
Posting-number: Volume 14, Issue 3
Archive-name: geniscan

New and superb scanning software for GeniScan hand scanner !
------------------------------------------------------------
* Resident pop-up program for use inside programs like Degas
* Small desk-accessory for use everywhere (saves as Degas).
  Use it to scan pictures when inside DTP and import them.

The desk-acc took up over 20K of RAM and I didn't like that.
So I rewrote it into 100% pure 68000-assembler and now it
takes up only 5.5 K of RAM when installed (not a byte more).

 Lars-Erik  /  ABK-BBS +47 2132659  /   ____ ______ ________________________
  Osterud  /  larserio@ifi.uio.no  /   /___    /            The norwegian ST
__________/ ______________________/   ____/   /   Klubben,  user association

begin 600 scan_prg.lzh
M'9XM;&@Q+0\#  #2!0  >R15%B  !U)%040N346^B\KW/Q\?;_\+68 #_+G]
M_X O\'#KV?A7 K5R\K5?FK]75NG\IL2^]TOU]\_0K5\ZIKJ)\.SI[_T@NY_'
M6 &ZQ ?^<N&/ S.6Q=SE0!AP!*D3-3N"CWN\;6=KKK;AFPB.#",F^SOHH%6-
M7*,L:">0YM=V_?.E'JQ=X-E :H%&HF1_TT]Y#"9LD@R0M.,Z-FL68,4&"L7\
M8+G5B8\$ 6"9>&'"XG 47ZD*AM$CG!D_-]!+_SVEA!:JFE6+\0/EP4O)%<C^
M]Z.3/(](?P//R)'>>A63$(.VM;L6^IB. "G@R*=ZP^. R/[P;"=6'2NG<8-U
M=>HP#_XO^['/QPSX 2 _^8U4_DONN'7K-B_28\8.]N;-N3JWP[AJ&V-WCM>"
MOZ$ZW+C+9Z#X(E"U$APQ=GHKL[<AT=_Z=G[WU_MM:L0--CYHO=C;@VFR*01*
ML(UFZ=U0/RV9S9SM<[5RH2 NSU)5 <R,=#: _-<5OXFX%;-JZ-KC"E-LH[,U
MEWN#KMX]QU5L4078E=A-.%[-MH9@=[VNFGD3E78&VUZ#)1Z?9IPG<SA:1]$7
M8>55>]JD6DBP6ZRLX#=+;IS$;&K:1%#BQY)% &$1O9PGFU<RUR8(MO=POB"3
M295!:DZM>PL"LJX:**[T+6WI2"^>.I>EN@TG<+>6W/F75^$51D9''@CKJ30B
MK<OCI-P5>AD^ DP >5BJ@2> 58!_XCS%:,F)&4H8+\5E9<W)?'S&BH.M5->=
ML[J0Q@%^B,(^/8#R,<I(OR,0<,&$DBM9IMUDUYXL-.3%;E4U/#XA,]<QAFUU
M&"8S'U[V",JX$MBC5B IXC?YC<*913RI]I!)?HI.'-"?5 O!&Q!J;?+B+L3?
M?G>VR6%Q,=9 !\#]VS6O^X?"!#IM#OPV0Y-!EAA3N$*$?RE%O.=AW3]/"6'!
M,BK 7[<>DCOT=.Y8Z=QA!-B^Z";H1GNV^H $ B@;O ]\@#B'$UJ"5 K$"4 !
M1VH=4SNR8)(T]]G^$A2@;QAWZKGP.+'G8K_#J6@4\9B+*.,_T)NV>U9$W-;^
MH,]7H!Z#+6QH,2U> 0  FP$  !)I4Q8@  A30T%.+E!21] 1]FFQF'C0+!-@
M#"P78MU[I>3G=[F]_GV?:C0EK@:+AK0=RG$JQ]4_GDCSD3T]-CIX#U'.PJ19
MEO;^M8"9"AB4<*W11(7N5)=&[6UQM\8]&C 7.1Z<&!99[.VA<^]S]VSV:]8%
M6%YBA';X$!EV7RKWJXR:MD^!0+!7'NP1;8&F"LZ99B/>&M(UYJANW+<S65[%
M'"Q#8A<4C$GNR2327,#J@=MFN6X;L=>:((RGZ(</Q2Q=%%OZ=)Q[>^H^Q??J
M96=Q'9EUC;'TQYP?V^^X%-G+Z(..:$["]Q\/$MF?7N'Y:8ME><TJ,)_]2SU?
MW&(&46 U^*LG'ZMN;MZ(4>&$^(H7FG2.Q:=7)0!_AVN/0N'K<(_LA$<&'7[%
M.ZJAWWX=8JDW%VJU%AB!V L?G %W_G<X5#$ZRZG\N_E*M'W,O=][!^BMY01R
MM"69G*%\,;JR30'F-<F(ZE@:81#]4QP:[@ AM"UL:#$MR0,  ",&  #$(U46
M(  +4T-!3DY%4BY!0T/4$/9IL9AY%>P1P R7RCP/(@#%P8[@;],C ^Q9#F5Y
M9QZG-AJN17/E57.#,Y27P79)^TEC9P)9K4$W,\$M$L$X^0$M6NK(0E:K>08J
MG:IH8!C.S0:[A0 .%\ [=-!=)+*)!S8GF,)LU7@'=B>$*.39 ?#"J*(.Z ;;
MDJFD>^)UY3WIP'9M1.T>C=8DF,I2"_<"/*LFT6:ZAPN:R+R  ;-R)J4 U*S_
M1*0&F7YBR?J1ME.UR1G%AM"0..4 U$@G%NL>WX#<DLE]99##,K\Q=,$%F>L 
M"Z_J&=[3"]HIA/YY@7>07P(308[&T)LL4(D;'_WD@&O(!M L<I0#,2<+K1*P
M)O*):@M:-;VL</_+001=)!&:) 1OT\V1A>\ZG;*0OO\_OK]"#%(]7K46_OK)
M(B,0H1BVLA$KW;H$5&(1FB 3_H-!/R$W?D&:U>.W7&" 3[2[]C.;T(;DOPY_
MFM<CR=)$6(]Q45?3W;WMM8E4_1/#[U7$A?92&P_:LBCXKTLF"D"\JU$5_1]<
M600V.IG*4#QM*]H7*^X)^]>#+0UIJ]6 2NH*$-_[X8!<_;*9F/58%!2G"_1=
MP8:[@#\6=PYV$ >-2;QF& /D8L:!B=I2%42I\::><.2=M.MCR%U54#,F:(*E
M0\B[.9.YXVU06>Y.=P5XOIB] _Q%W:3.^2-WR1^Z ##0SN+XMZL3WK"QO.2G
MN?N<*%E;DY M%NO(%@:AS)BVZOQ?\MI.'&=[.AZ^X@&N5(<OPX&O?/% M/Z,
MWR,S#)(NJ"MO 5O/1+(WN6+\9[,? .F;NTDK5F[4MB:"$Q,R;2W_Y1@2P.0V
M;B*T/&Z!=0@/V*I$O 2-A</'RB:6'=,<;2S]+3&\Q/[TWUKT&=)".Q8,Y19-
M&: !=A-20[35:/*2<Z3,GSEQ>)N^LU,!+P_]F.^,7_!D+J)>=$*4_?@#;&U;
M$_4KLY,TSY=W!_UY\FDH,!C@L^(<">'3_60#LGC\';JN0=WHQ4+P35\,?7[\
M@:DJ)B!*5_R.0NKX#_. ^D92_D'2O%^EH[#9U/!ROBWKF2WVXA=ZWDSROYFB
M#1=(&V"!M&0Z(X:7%.H;4SPEU&MT[_X GN_L&*FI:69J5<!W*G/O_$F6!TI=
MKUD+Q''])Q@]&TH,51O:[SGZ:.GY*=TX2HJQ,5$.G]55\Q_ LYNWS=>=A5!-
M@ .IN:2CL^RN\ZL?.PFXUE@ ,?KB8+G80MW6R4J#?;D=:\XC0?+S>A357R)J
I?/UEHX@[F "P/1SJ5#K1L"AE3W3HL [VB1*EC7]^2^&W=0;' W.T0 #5
 
end

koreth@panarthea.ebay.sun.com (Steven Grimm) (03/07/91)

Submitted-by: larserio@ifi.uio.no (LarsErikOsterud)
Posting-number: Volume 14, Issue 3
Archive-name: geniscan

New and superb scanning software for GeniScan hand scanner !
------------------------------------------------------------
* Resident pop-up program for use inside programs like Degas
* Small desk-accessory for use everywhere (saves as Degas).
  Use it to scan pictures when inside DTP and import them.

The desk-acc took up over 20K of RAM and I didn't like that.
So I rewrote it into 100% pure 68000-assembler and now it
takes up only 5.5 K of RAM when installed (not a byte more).

 Lars-Erik  /  ABK-BBS +47 2132659  /   ____ ______ ________________________
  Osterud  /  larserio@ifi.uio.no  /   /___    /            The norwegian ST
__________/ ______________________/   ____/   /   Klubben,  user association

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 scan_prg.lzh
M'9XM;&@Q+0\#  #2!0  >R15%B  !U)%040N346^B\KW/Q\?;_\+68 #_+G]z
M_X O\'#KV?A7 K5R\K5?FK]75NG\IL2^]TOU]\_0K5\ZIKJ)\.SI[_T@NY_'y
M6 &ZQ ?^<N&/ S.6Q=SE0!AP!*D3-3N"CWN\;6=KKK;AFPB.#",F^SOHH%6-x
M7*,L:">0YM=V_?.E'JQ=X-E :H%&HF1_TT]Y#"9LD@R0M.,Z-FL68,4&"L7\w
M8+G5B8\$ 6"9>&'"XG 47ZD*AM$CG!D_-]!+_SVEA!:JFE6+\0/EP4O)%<C^v
M]Z.3/(](?P//R)'>>A63$(.VM;L6^IB. "G@R*=ZP^. R/[P;"=6'2NG<8-Uu
M=>HP#_XO^['/QPSX 2 _^8U4_DONN'7K-B_28\8.]N;-N3JWP[AJ&V-WCM>"t
MOZ$ZW+C+9Z#X(E"U$APQ=GHKL[<AT=_Z=G[WU_MM:L0--CYHO=C;@VFR*01*s
ML(UFZ=U0/RV9S9SM<[5RH2 NSU)5 <R,=#: _-<5OXFX%;-JZ-KC"E-LH[,Ur
MEWN#KMX]QU5L4078E=A-.%[-MH9@=[VNFGD3E78&VUZ#)1Z?9IPG<SA:1]$7q
M8>55>]JD6DBP6ZRLX#=+;IS$;&K:1%#BQY)% &$1O9PGFU<RUR8(MO=POB"3p
M295!:DZM>PL"LJX:**[T+6WI2"^>.I>EN@TG<+>6W/F75^$51D9''@CKJ30Bo
MK<OCI-P5>AD^ DP >5BJ@2> 58!_XCS%:,F)&4H8+\5E9<W)?'S&BH.M5->=n
ML[J0Q@%^B,(^/8#R,<I(OR,0<,&$DBM9IMUDUYXL-.3%;E4U/#XA,]<QAFUUm
M&"8S'U[V",JX$MBC5B IXC?YC<*913RI]I!)?HI.'-"?5 O!&Q!J;?+B+L3?l
M?G>VR6%Q,=9 !\#]VS6O^X?"!#IM#OPV0Y-!EAA3N$*$?RE%O.=AW3]/"6'!k
M,BK 7[<>DCOT=.Y8Z=QA!-B^Z";H1GNV^H $ B@;O ]\@#B'$UJ"5 K$"4 !j
M1VH=4SNR8)(T]]G^$A2@;QAWZKGP.+'G8K_#J6@4\9B+*.,_T)NV>U9$W-;^i
MH,]7H!Z#+6QH,2U> 0  FP$  !)I4Q8@  A30T%.+E!21] 1]FFQF'C0+!-@h
M#"P78MU[I>3G=[F]_GV?:C0EK@:+AK0=RG$JQ]4_GDCSD3T]-CIX#U'.PJ19g
MEO;^M8"9"AB4<*W11(7N5)=&[6UQM\8]&C 7.1Z<&!99[.VA<^]S]VSV:]8%f
M6%YBA';X$!EV7RKWJXR:MD^!0+!7'NP1;8&F"LZ99B/>&M(UYJANW+<S65[%e
M'"Q#8A<4C$GNR2327,#J@=MFN6X;L=>:((RGZ(</Q2Q=%%OZ=)Q[>^H^Q??Jd
M96=Q'9EUC;'TQYP?V^^X%-G+Z(..:$["]Q\/$MF?7N'Y:8ME><TJ,)_]2SU?c
MW&(&46 U^*LG'ZMN;MZ(4>&$^(H7FG2.Q:=7)0!_AVN/0N'K<(_LA$<&'7[%b
M.ZJAWWX=8JDW%VJU%AB!V L?G %W_G<X5#$ZRZG\N_E*M'W,O=][!^BMY01Ra
MM"69G*%\,;JR30'F-<F(ZE@:81#]4QP:[@ AM"UL:#$MR0,  ",&  #$(U46z
M(  +4T-!3DY%4BY!0T/4$/9IL9AY%>P1P R7RCP/(@#%P8[@;],C ^Q9#F5Yy
M9QZG-AJN17/E57.#,Y27P79)^TEC9P)9K4$W,\$M$L$X^0$M6NK(0E:K>08Jx
MG:IH8!C.S0:[A0 .%\ [=-!=)+*)!S8GF,)LU7@'=B>$*.39 ?#"J*(.Z ;;w
MDJFD>^)UY3WIP'9M1.T>C=8DF,I2"_<"/*LFT6:ZAPN:R+R  ;-R)J4 U*S_v
M1*0&F7YBR?J1ME.UR1G%AM"0..4 U$@G%NL>WX#<DLE]99##,K\Q=,$%F>L u
M"Z_J&=[3"]HIA/YY@7>07P(308[&T)LL4(D;'_WD@&O(!M L<I0#,2<+K1*Pt
M)O*):@M:-;VL</_+001=)!&:) 1OT\V1A>\ZG;*0OO\_OK]"#%(]7K46_OK)s
M(B,0H1BVLA$KW;H$5&(1FB 3_H-!/R$W?D&:U>.W7&" 3[2[]C.;T(;DOPY_r
MFM<CR=)$6(]Q45?3W;WMM8E4_1/#[U7$A?92&P_:LBCXKTLF"D"\JU$5_1]<q
M600V.IG*4#QM*]H7*^X)^]>#+0UIJ]6 2NH*$-_[X8!<_;*9F/58%!2G"_1=p
MP8:[@#\6=PYV$ >-2;QF& /D8L:!B=I2%42I\::><.2=M.MCR%U54#,F:(*Eo
M0\B[.9.YXVU06>Y.=P5XOIB] _Q%W:3.^2-WR1^Z ##0SN+XMZL3WK"QO.2Gn
MN?N<*%E;DY M%NO(%@:AS)BVZOQ?\MI.'&=[.AZ^X@&N5(<OPX&O?/% M/Z,m
MWR,S#)(NJ"MO 5O/1+(WN6+\9[,? .F;NTDK5F[4MB:"$Q,R;2W_Y1@2P.0Vl
M;B*T/&Z!=0@/V*I$O 2-A</'RB:6'=,<;2S]+3&\Q/[TWUKT&=)".Q8,Y19-k
M&: !=A-20[35:/*2<Z3,GSEQ>)N^LU,!+P_]F.^,7_!D+J)>=$*4_?@#;&U;j
M$_4KLY,TSY=W!_UY\FDH,!C@L^(<">'3_60#LGC\';JN0=WHQ4+P35\,?7[\i
M@:DJ)B!*5_R.0NKX#_. ^D92_D'2O%^EH[#9U/!ROBWKF2WVXA=ZWDSROYFBh
M#1=(&V"!M&0Z(X:7%.H;4SPEU&MT[_X GN_L&*FI:69J5<!W*G/O_$F6!TI=g
MKUD+Q''])Q@]&TH,51O:[SGZ:.GY*=TX2HJQ,5$.G]55\Q_ LYNWS=>=A5!-f
M@ .IN:2CL^RN\ZL?.PFXUE@ ,?KB8+G80MW6R4J#?;D=:\XC0?+S>A357R)Je
I?/UEHX@[F "P/1SJ5#K1L"AE3W3HL [VB1*EC7]^2^&W=0;' W.T0 #5d
 c
end