adop="DOPUS.1"; adad="ADPro"; address value adop; options results; NL = '0A'X; lad=0; vers="V1.5"; topstring="PIC-to-IFF "vers" (c)1993 by Conny Ankargren"; Toptext topstring; status 3; activ=result; status 7 activ; valda=result; if valda<1 then do; Toptext "ERROR: inga filer valda!"; exit; end; if activ=0 then do; status 13 1; dest=result; status 13 0; source=result; end; if activ=1 then do; status 13 0; dest=result; status 13 1; source=result; end; status 26 set "JA"; status 27 set "NEJ"; Again:; status 26 set "CFG Settings"; status 27 set "Manuellt"; request "Vilka Inställningar ?"; inst=result; status 26 set "JA"; status 27 set "NEJ"; if inst=1 then getstring "VILKEN_CONFIG_FIL_? 256-HAM"; cfgnr=upper(result); cfgfile="Sys:Pic2Iff/"cfgnr".cfg"; auto=0; if exists(cfgfile) & inst=1 then do; open(fn1,cfgfile,'R'); form=word(readln(fn1),1); upp=word(readln(fn1),1); inter=word(readln(fn1),1); dith=word(readln(fn1),1); skal=word(readln(fn1),1); bredd=word(readln(fn1),1); hojd=word(readln(fn1),1)
icon=word(readln(fn1),1); av=word(readln(fn1),1); exten=word(readln(fn1),1); close(fn1); auto=1; end; status 26 set "JA"; status 27 set "NEJ"; if auto=1 then call Starta; getstring "Antal_Färger:(2,4,8,16,32,64,128,256,EHB,HAM,HAM8) HAM"; form=upper(result); Formats="2 4 8 16 32 64 128 256 EHB HAM HAM8"; fit=0; do o=1 to words(formats); if form=word(Formats,o) then fit=fit+1; end; if fit=0 then do; request "Formatet : '"format"' finns ej, det blir HAM!"; form="HAM"; end; status 26 set "LOW-RES"; status 27 set "HI-RES"; request "Vilken upplösning ?"; upp=result; status 26 set "JA"; status 27 set "NEJ"; request "Interlace mode ?"; inter=result; getstring "ADPRO_DITHER_MODE_[0-8] 0"; dith=result; if dith>8 | dith<1 then dith=0; request "Endast Gråskalor ?"; skal=result; getstring "Komprimera_Bredden_?_[%_av_Bilden] 100"; Bredd=result; if Bredd<=0 then Bredd=1; getstring "Komprimera_Höjden_?_[%_av_Bilden] 100"; Hojd=result; if Hojd<=0 then Hojd=1; request "Iconifiera DirOpus under konvertering?"; icon=result
request "Stänga av ADPro efteråt ?"; av=result; Starta:; call Hemta; flag=0; if SHOW(Ports,"ADPro")=0 then do until SHOW(Ports,"ADPro") >0; if flag=0 then do; address command "run Adpro:Adpro"; Toptext "Kör igång ADPro..."; flag=1; end; end; if icon=1 then iconify; busy on; address 'ADPro'; RED = 0; GREEN = 0; BLUE = 0; BRIGHTNESS = 0; CONTRAST = 0; GAMMA = 0; ORIENTATION PORTRAIT; DITHER Dith; auto = 0; orientation "portrait"; pstatus "unlocked"; first_flag = 0; adpro_to_front; do i=1 to antal; fuck=0; lformat "UNIVERSAL"; sformat "IFF"; load file.i; if rc ~= 0 then do; okay1 "Unable to load" file.i; fuck=1; end; if fuck=0 then do; if Bredd<100 | Hojd<100 then PCT_SCALE Bredd Hojd; if Skal=1 then OPERATOR "COLOR_TO_GRAY"; if upp=1 & inter=1 then SCREEN_TYPE 30; if upp=0 & inter=1 then SCREEN_TYPE 31; if upp=1 & inter=0 then SCREEN_TYPE 20; if upp=0 & inter=0 then SCREEN_TYPE 21; RENDER_TYPE form; execute; adpro_display; save Dfile.i "Image"; if rc ~= 0 then do; okay1 "Unable to save" Dfile.i; end; else do
address command 'c:filenote 'Dfile.i' "Saved using 'topstring'"'; end; end; end; if av=1 then adpro_exit; address value adop; if icon=1 then uniconify; if activ=0 then rescan 1; if activ=1 then rescan 0; busy off; exit; Hemta:; antal=0; do forever; antal=antal+1; getnextselected; file.antal=result; file2.antal=file.antal; file.antal=source""file.antal; if file2.antal>0 then selectfile file2.antal 0 1; if file2.antal=0 then leave; lang=length(file2.antal); if auto=1 & exten="#" then exten="."form; if auto=1 then suffix=exten; else suffix="."form; if upper(substr(file2.antal,lang-3))=".GIF" | upper(substr(file2.antal,lang-3))=".JPG" then Dfile.antal=dest""delstr(file2.antal,lang-3)""suffix; else Dfile.antal=dest""file2.antal""suffix; end; if file2.antal=0 then antal=antal-1; return
