Media Share 13

home *** CD-ROM | disk | FTP | other *** search

/ Media Share 13 / mediashare_13.zip / mediashare_13 / ZIPPED / EDITOR / DOCW_10.ZIP / DOCWORK1.EXE / DOCWORK1.SMM < prev next >

Wrap

INI File | 1993-07-20 | 143KB | 4,913 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] IBM Proprinter [port] LPT1: [lang] 1 [desc] Makro til letter at kunne arrangere sine Dokumenter, Kun for Ami Pro 2.0 eller senere. 743223625 201 738737377 214680790 26 3057 26948 127 127 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 3 3 [GramStyle] [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 17 0 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 24 1 2 , . kr Br<\x>dtekst 0 0 [tag] Br<\x>d. enkelt 3 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 2 0 0 0 [spc] 33 272 2 0 0 2 100 [brk] 36 [line] 8 0 2 0 1 1 1 10 10 1 [spec] 0 0 0 2 1 0 0 0 0 [nfmt] 24 1 2 , . kr Body Single 3 1 1083 2 4446 3 7866 0 [tag] Bullet 4 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 2 0 289 289 [spc] 33 272 2 0 0 2 100 [brk] 4 [line] 8 0 2 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 2 1 0 0 0 0 [nfmt] 24 1 2 , . kr Bullet 0 0 [tag] Bullet 1 5 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 2 289 289 289 [spc] 33 272 2 0 0 2 100 [brk] 4 [line] 8 0 2 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 2 1 0 0 0 0 [nfmt] 24 1 2 , . kr Bullet 1 0 0 [tag] Nummerliste 6 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 2 357 357 357 [spc] 33 272 2 0 0 2 100 [brk] 4 [line] 8 0 2 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 0 2 1 0 0 0 0 [nfmt] 24 1 2 , . kr Number List 0 0 [tag] Overskrift 7 [fnt] TimesNewRomanPS 240 0 49155 [algn] 1 2 0 0 0 [spc] 33 272 2 73 73 2 100 [brk] 4 [line] 8 0 2 0 1 1 1 10 10 1 [spec] 0 2 0 2 1 0 0 0 0 [nfmt] 24 1 2 , . kr Overskrift 1 0 0 [tag] Titel 8 [fnt] Arial MT 360 0 16385 [algn] 4 2 0 0 0 [spc] 33 447 2 141 73 2 100 [brk] 16 [line] 8 0 2 0 1 1 1 10 10 1 [spec] 0 1 0 2 1 0 0 0 0 [nfmt] 24 1 2 , . kr Title 0 0 [tag] Br<\x>dtekst 9 [fnt] Times New Roman 240 0 32768 [algn] 257 2 0 0 0 [spc] 33 277 2 0 0 2 100 [brk] 36 [line] 8 0 2 0 1 1 1 10 10 1 [spec] 0 0 0 2 1 0 0 0 0 [nfmt] 24 1 2 , . kr Body Text 10 1 1938 1 2505 1 3135 3 4545 1 4845 1 6210 1 7050 1 8721 1 9690 1 10203 0 [lay] Standard 516 [rght] 16834 11907 2 1423 1440 2 1440 1457 0 1 0 1 0 2 1 1425 10450 8 1 840 1 1980 1 3120 1 4260 1 5407 1 6533 1 7674 1 8815 [hrght] [lyfrm] 1 11200 0 0 11907 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 11907 1 1440 73 2 226 1440 0 1 0 1 1 0 1 1440 10465 0 [txt] <+B><+!> <+B><+!>'Jannik Graversen <-!> <+B><+!>20<-!><+!>-07<-!><+!>-93<-!> <+A> <:P11,1,Side > <+B> <+B> <+A><:P11,1,Side > <+B> <+B> <+B> <+B> <+A><:P11,1,Side ><:P11,1,Side ><:P11,1,Side ><:P11,1,Side > > [frght] [lyfrm] 1 13248 0 15394 11907 16834 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 16834 11907 1 1440 793 2 15467 1440 0 1 0 1 1 0 1 1440 10465 0 [txt] > [elay] [l1] 0 [pg] 26 47 0 11 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 96 0 11 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 144 0 24 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 191 0 49 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 240 0 24 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 289 0 27 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 337 0 6 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 385 0 0 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 434 0 23 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 483 0 18 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 532 0 4 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 580 0 16 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 628 0 5 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 677 0 23 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 725 0 5 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 774 0 27 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 822 0 6 32 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 869 0 33 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 918 0 19 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 966 0 2 0 1 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 1000 36 16 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 1036 0 42 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 1076 36 15 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 1104 36 103 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 1149 0 64 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 1173 0 10 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 [edoc] <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Define CloseBox() DllCall("User,EndDialog,HHH",%1,1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Define GetWindowSize() DllCall("User,GetWindowRect,HHN",%1,%2) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHH",%1,%2,%3,%4,%5,1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Define GetVersion() DllCall("Kernel,GetVersion,H") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!><:ZF-Filer>Function<-!> filer<:Z~F-Filer>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>am=GetAmiDirectory$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>T=GetProfileString$("Logs","Logs","{am}Docwork1.hlp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>If T="" <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>T=1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>WriteProfileString("Logs","Logs",T,"{am}Docwork1.hlp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>T=T+1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>WriteProfileString("Logs","Logs",T,"{am}Docwork1.hlp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Defstr Stat; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>j1: <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> AllocGlobalVar("navn",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> AllocGlobalVar("hlp",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> AllocGlobalVar("udfyld",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetGlobalVar("udfyld",0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetGlobalvar("hlp","Begynd") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>init=GetProfileString$("AmiPro","UserName","amipro.ini") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetGlobalVar("navn",init) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Makro=GetrunningMacrofile$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (59,"{makro}!Check") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (50,"{makro}!kopiere") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (51,"{makro}!omd<\x>b") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (52,"{makro}!Slet") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (53,"{makro}!Flyt") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (54,"{makro}!opret") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (55,"{makro}!Bibliotek") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (56,"{makro}!Fyldop") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (58,"{makro}!dokhj<\f>lp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> fh=Fopen("Docwork1.hlp","r") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>if Fh<<1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#852,9025> Filledit(1002," Kan ikke finde hj<\f>lpefilen. Hj<\f>lpen er derfor ikke tilg<\f>ngelig!") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Goto j <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>li="" <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> s<\f>tn=Mid$("<[><[>",1,1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> While(Li <<<;> "{s<\f>tn}Start]") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Li=Fgets$(Fh) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> If Li= -1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Message("Hj<\f>lpefilen kan ikke l<\f>ses. Kontakt Jannik.") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>return 1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Fclose(fh) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Wend <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Li=Fgets$(Fh) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>FClose(FH) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Filledit(1002,li) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>j: <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Filledit(1000,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Filledit(1001,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (57,"{makro}!Settekst") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>While (1<<= Assign(&Stat, DialogBox(".","Begynd"))) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Goto j1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Wend <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Call Afslut(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025><+!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!><:ZF-Settekst>Function<-!> Settekst<:Z~F-Settekst>(Hdlg,id,text) <:R><:#284,9025>AllocGlobalVar("hejs",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>navnet=GetGlobalVar$("navn") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>flag=GetGlobalVar$("hejs") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025><+!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> If (flag)="" <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgItemText(Hdlg,1001,navnet) <:R><:#284,9025> SetDlgItemText(Hdlg,1000,"Hej") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Flag=1 <:R><:#284,9025>SetGlobalVar("Hejs",flag) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgItemText(Hdlg,1000,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetDlgItemText(Hdlg,1001,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>flag="" <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetGlobalVar("Hejs",flag) <:R><:#284,9025>endif <:#284,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!><:ZF-Fyldop>Function<-!> Fyldop<:Z~F-Fyldop>(Hdlg) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Hourglass(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> If GetGlobalVar$("udfyld")<<<;> 1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Dim Rect(4) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> GetWindowSize(Hdlg,&Rect) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> x=Rect(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> y=Rect(2) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> x1=Rect(3) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> y1=Rect(4) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>MoveWindow(Hdlg,x,y,x1-x,y1-y+99) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> SetGlobalVar("udfyld",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Dim Rect(4) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> GetWindowSize(Hdlg,&Rect) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> x=Rect(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> y=Rect(2) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> x1=Rect(3) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> y1=Rect(4) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>MoveWindow(Hdlg,x,y,x1-x,y1-y+-99) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> SetGlobalVar("udfyld",0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#270,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025><+!><:ZF-Opret>Function<-!> Opret<:Z~F-Opret>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>CloseBox(Hdlg) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Om: <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack (58,"dokhj<\f>lp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack (59,"Tilbage") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Defstr stat; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>IgnoreKeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>AllocGlobalVar("hlp",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetGlobalVar("hlp","Opret") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Box=DialogBox(".","Opretfil") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> If Box=-1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Message("- Intern fejl: 1. Afslutter funktionen!") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> IgnoreKeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> elseif Box=0 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> fil8=GetDialogField$(8000) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>f8=Right$(fil8,5) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> If Len(fil8)<;>12 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#560,9025> Message("Filnavnet er for langt. Navnet m<\e> max. v<\f>re p<\e> 8 bogstaver, efterfulgt af *.SAM...") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>goto om <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>if Len(fil8)<<=4 or f8=fil8 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Message("- Skulle du ik' oprette et dokument, eller hvad??? Pr<\x>v igen.") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>goto om <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>If Right$(fil8,4)=".SAM" <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>luk=GetDialogField$(21) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> if luk=1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>fluk=GetOpenFileCount() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>if fluk<;>0 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FileClose() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> bib8=GetDocPath$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> strng=("{bib8}{fil8}") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> HourGlass(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>AnswerMsgBox(6) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FileOpen("{fil8}",1,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Fil8=Ucase$(fil8) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> WriteProFileString("AmiPro","Lastopen1",fil8,"AmiPro.ini") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> HourGlass(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Strng=Ucase$(Strng) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Message("Dokumentet '{Strng}' er oprettet!") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#840,9025>Message("Dokument-navnet skal have endelsen 'SAM', for at Ami Pro kan acceptere det. Hvis du <\x>nsker at <\e>bne dokumentet med et andet format, skal du bruge '<\E>bn' eller 'Open'-kommandoen under Filmenu'en.") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>goto om <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> IgnoreKeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#270,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025><+!><:ZF-Dokhj<\f>lp>Function<-!> Dokhj<\f>lp<:Z~F-Dokhj<\f>lp>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> flythj=Fopen("Docwork1.hlp","r") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>if flythj<<1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Message("- Kan ikke finde hj<\f>lpefilen!") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>return 1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Fclose(Flythj) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> emne=GetGlobalVar$("hlp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>l="" <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> m=Mid$("<[><[>",1,1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> While (l<<<;> "{m}{emne}]") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> l=Fgets$(flythj) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>if l=-1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>message("-Der er ingen hj<\f>lp til denne funktion") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> return 1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Fclose(Flythj) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>wend <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> l=Fgets$(Flythj) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Fclose(Flythj) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Filledit(1001,l) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Box=DialogBox(".","dokhlp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> If Box=-1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Message("-Intern fejl 1. Afslutter funktionen!") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>elseif Box=0 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#270,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025><+!><:ZF-Flyt>Function<-!> Flyt<:Z~F-Flyt>(hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>CloseBox(Hdlg) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Defstr Char; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Defstr Stat; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> mak=GetRunningMacrofile$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack (9001,"flytfilnu") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack (58,"dokhj<\f>lp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack (59,"Tilbage") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> bib2=GetCurrentDir$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Bib2=Lcase$(bib2) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> AllocGlobalVar("Flyt",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> AllocGlobalVar("Flytbib",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> AllocGlobalVar("ffil",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetGlobalVar("ffil",0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Defstr a; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Defstr b; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>allocGlobalVar("x",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>allocGlobalVar("y",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>AllocGlobalVar("Hlp",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetGlobalVar("hlp","Flytning") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>x2=GetGlobalVar$("x") <:R><:#280,9025>y2=GetGlobalVar$("y") <:#280,9025>if x2=a and y2=b <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Filledit(1006,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Filledit(1029,"") <:R><:#280,9025>else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>filledit(1006,"Filen :") <:R><:#284,9025>Filledit(1029,"- er flyttet til :") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> FreeGlobalVar("filener") <:R><:#284,9025> FreeGlobalVar("biberne") <:#284,9025> FreeGlobalVar("x") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> FreeGlobalVar("y") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>ba1=GetAmiDirectory$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1002,bib2) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(9001,"{bib2}*.sam") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(8002,Lcase$(ba1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1002,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> While(1<<=Assign(&Stat, DialogBox(".","Flytning"))) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Bib3=GetDialogField$(8002) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetGlobalVar("Flytbib",bib3) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Call Flytnu(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> FreeGlobalVar("Flytbib") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>FreeGlobalVar("ffil") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Wend <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>FreeGlobalVar("ffil") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><+!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><+!><:ZF-Flytfilnu>Function <-!>FlytFilnu<:Z~F-Flytfilnu>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>Fil21=GetDlgItemText(Hdlg,9001) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>Fil22=Ucase$(Left$(fil21,1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>Fil23=Right$(fil21,(Len(fil21) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>Fil2=StrCat$(fil22,Fil23) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>SetDlgItemtext(Hdlg,1002,fil2) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,> SetGlobalVar("Flyt",fil2) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>SetGlobalVar("FFil",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>SetDlgItemText(Hdlg,1040,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>SetDlgItemText(Hdlg,1006,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>SetDlgItemText(Hdlg,1030,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>SetDlgItemText(Hdlg,1029,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><+!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><+!><:ZF-Flytnu>Function<-!> Flytnu<:Z~F-Flytnu>(hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>AllocGlobalVar("filener",1) <:R>AllocGlobalVar("biberne",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> fil4=GetCurrentDir$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> fil5=GetGlobalVar$("Flyt") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>kopi=("{fil4}{fil5}") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>If GetGlobalVar$("ffil")=0 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>goto her1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetGlobalVar("ffil",0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> bib32 = GetGlobalVar$("flytbib") <:R><:#284,9025> if Right$(bib32,1)<<<;>"\" <:#284,9025> bib32="{bib32}\" <:#284,9025> endif <:#284,9025> <:#284,9025> Nytsted=("{bib32}{fil5}") <:#284,9025> Fil5=Ucase$(Fil5) <:#284,9025> bib32=Ucase$(bib32) <:#284,9025> if len(bib32)<<=1 or len(fil5)<<5 <:#284,9025>her1: <:#284,9025>Beep() <:#284,9025>message("- Du skulle jo angive en fil eller et bibliotek??? Pr<\x>v igen!") <:#284,9025> Ignorekeyboard(0) <:#284,9025> Call Flyt(Hdlg,id,text) <:#284,9025> FreeGlobalVar("Flytbib") <:#284,9025> FreeGlobalVar("Flyt") <:#284,9025> exit function <:#284,9025>else <:#284,9025> <:#284,9025>HourGlass(1) <:#284,9025> bib32=Lcase$(bib32) <:#284,9025>fil5=Lcase$(fil5) <:#284,9025> <:#284,9025> f55=findfirst$({nytsted} 1) <:#284,9025> f54=FindFirst$({kopi} 1) <:#284,9025> if f55=f54 <:#284,9025> <:#284,9025> fil5a=Right$(fil5 (len(fil5)- 1)) <:#284,9025> fil5="_{fil5a}" <:#284,9025>Nytsted="{bib32}{fil5}" <:#284,9025> <:#284,9025>f55=Ucase$(f55) <:#284,9025>fil5=Ucase$(fil5) <:#284,9025> <:#284,9025>beep() <:#568,9025>Message("Der eksisterer allerede et dokument af samme navn i det nye bibliotek. Navnet p<\e> Dokumentet: {f55} er <\f>ndret til: {fil5}.") <:#284,9025>endif <:#284,9025>StatusBarMsg("Flytter {fil5} til {bib32}...") <:#284,9025> if 0=DosCopyFile(Kopi,nytsted) <:#284,9025>StatusBarMsg("") <:#284,9025>Beep() <:#284,9025>fil5=Ucase$(fil5) <:#568,9025>Message("- Det kunne ikke lade sig g<\x>re at flytte {fil5}. Check om filen og biblioteket eksisterer...") <:#284,9025> FreeGlobalVar("Flytbib") <:#284,9025> FreeGlobalVar("Flyt") <:#284,9025> Call Flyt(Hdlg,id,text) <:#284,9025> else <:#284,9025>DosDelFile("{Kopi}") <:#284,9025>StatusBarMsg("") <:#284,9025>fil5=Ucase$(fil5) <:#284,9025>bib32=Ucase$(bib32) <:#284,9025>message("Dokumentet: {fil5}, blev flyttet til: {bib32}..") <:#284,9025>HourGlass(0) <:#284,9025> FreeGlobalVar("Flytbib") <:#284,9025> FreeGlobalVar("Flyt") <:#284,9025>if len(bib32)=3 goto vid <:#284,9025>endif <:#284,9025>If "\"=Right$(Bib32,1) <:#284,9025>b31=Left$(bib32, (Len(bib32) - 1)) <:#284,9025>else <:#284,9025>vid: <:#284,9025>b31=bib32 <:#284,9025>endif <:#284,9025>SetGlobalVar("filener",fil5) <:#284,9025>SetGlobalVar("biberne",b31) <:#284,9025> <:#284,9025> Call bekr(Hdlg,id,text) <:#284,9025> <:#284,9025> Call Flyt(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!><:ZF-Bekr>Function<-!> Bekr<:Z~F-Bekr>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>AllocGlobalVar("x",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>AllocGlobalvar("y",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>x1="a" <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>y1="b" <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetGlobalVar("x",x1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetGlobalVar("y",y1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>b3=GetGlobalVar$("biberne") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>f3=GetGlobalVar$("filener") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> b3=Lcase$(b3) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> f3=Lcase$(f3) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> f32=Ucase$(left$(f3,1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> f33=Right$(f3, (len(f3) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>f34=StrCat$(f32,f33) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> b32=Ucase$(left$(b3,1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> b33=Right$(b3, (len(b3) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>b34=StrCat$(b32,b33) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>filledit(1040,f34) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1030,b34) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!><:ZF-V<\f>k>Function<-!> V<\f>k(Hdlg,key) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!>end function<-!><:Z~F-V<\f>k> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!><:ZF-Afslut>Function<-!> Afslut<:Z~F-Afslut>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Udfyld") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Navn") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("X") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Y") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Hejs") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Flag") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Flyt") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Flytbib") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Enfil") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Enfiler") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>CloseBox(Hdlg) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#270,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025><+!><:ZF-Bibliotek>Function<-!> Bibliotek<:Z~F-Bibliotek>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>CloseBox(Hdlg) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>AllocGlobalVar("hlp",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetGlobalVar("hlp","Obib") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> StatusBarMsg("Indl<\f>ser Ami Pro biblioteker ...") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack (50,"opretbib") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack (51,"Sletbib") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack (58,"dokhj<\f>lp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack (59,"Tilbage") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Defstr Char; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Tegn=GetProFileString$("AmiVisd","AmiDraw","AMIPRO.INI") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> format=GetStylePath$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> dok=GetDocPath$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> amidir=GetAmiDirectory$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Windir=GetWindowsDirectory$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> makrodir=GetMacPath$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Backup=GetBackPath$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ver=GetVersion(Hdlg) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> ikon=GetProfileString$("AmiPro","IconPath","AMIPRO.INI") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> WinDir=Lcase$(windir) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> AmiDir=LCase$(AmiDir) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> if len(tegn)<<1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> goto lh <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>t=Len(tegn) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> While "," !=Assign(&Char, Mid$(tegn, t,1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> T=T - 1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Wend <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>lh: <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> If "\" =Right$(format,1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> formater=Left$(format,(len(format) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> formater=format <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> If "\" =Right$(backup,1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> back=Left$(backup,(len(backup) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> back=backup <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> If "\" =Right$(dok,1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> dokument=Left$(dok,(len(dok) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> dokument=dok <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> If "\" =Right$(amidir,1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ami=Left$(amidir,(len(amidir) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> ami=amidir <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> If "\" =Right$(windir,1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Windows=Left$(windir,(len(windir) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> windows=windir <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> If "\" =Right$(makrodir,1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> mak=Left$(makrodir,(len(makrodir) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> mak=makrodir <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Tegninger=Right$(tegn, (len(Tegn) - t )) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Tegninger=LCase$(Tegninger) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1018,ami) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1019,dokument) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1020,formater) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1023,back) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1022,Tegninger) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1021,Mak) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1024,ikon) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1025,windows) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Filledit(1007,Ver) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>StatusBarMsg("") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Box=DialogBox(".","Biblioteker") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> if box= -1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> message(" - Intern fejl 1. Afslutter funktionen!") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> elseif Box= 0 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#270,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025><+!><:ZF-Opretbib>Function<-!> Opretbib<:Z~F-Opretbib>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Defstr Char; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>igenigen: <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>AllocGlobalVar("hlp",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetGlobalVar("hlp","Opr") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack (58,"dokhj<\f>lp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Defstr Stat; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> While 1<<=Assign(&Stat, DialogBox(".","Opretbib")) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> bib4=GetDialogField$(8000) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>if len(bib4)<<1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>goto omi <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>bx1=Left$(bib4,3) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>bx2=Right$(bx1, (len(bx1) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> If bx2=":\" <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> If "\" = Right$(bib4,1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> bib41=Left$(bib4 (Len(bib4) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Bib41=bib4 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Bib41=Ucase$(bib41) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>L=Len(bib41) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> While "\" !=Assign(&Char, Mid$(bib41,L,1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>L=L - 1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Wend <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> b41=Right$(bib41, (Len(bib41) - L)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> If len(b41)<;>8 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#568,9025>Message("Navnet du har givet dit bibliotek er for langt, der m<\e> h<\x>jst indg<\e> 8 bogstaver i navnet...")goto igenigen <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> If len(bib41)<<=3 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>omi: <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Message("- Du skulle jo indtaste et bibliotek??? Pr<\x>v en gang til...")Goto igenigen <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> else if -1 =DosMkdir(bib41) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Message("- Kunne ikke oprette {bib41}. Er der angivet en rigtig sti? Pr<\x>v igen...") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Message(" Biblioteket {bib41} er succesfuldt blevet oprettet !") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetGlobalVar("hlp","Obib") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>wend <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetGlobalVar("hlp","Obib") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#270,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025><+!><:ZF-Sletbib>Function<-!> Sletbib<:Z~F-Sletbib>(Hdlg,id,text) <:R><:#280,9025> Ignorekeyboard(1) <:#280,9025> Defstr Stat; <:#280,9025>om: <:#280,9025> AllocGlobalVar("bibliotek",1) <:#280,9025> AllocGlobalVar("hlp",1) <:#280,9025>SetGlobalVar("Hlp","Spr") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack (58,"dokhj<\f>lp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R><:#280,9025> While(1<<= Assign(&Stat, DialogBox(".","Sletbib"))) <:#280,9025> bib55=GetDialogField$(8000) <:#280,9025> If "\" = Right$(bib55,1) <:#280,9025> bib5=Left$(bib55,(Len(bib55) - 1)) <:#280,9025> else <:#280,9025> Bib5=bib55 <:#280,9025>endif <:#280,9025> Bib5=Ucase$(bib5) <:#280,9025> <:#280,9025>SetGlobalVar("bibliotek",bib5) <:#280,9025> <:#284,9025> If len(bib5)<<=3 <:#284,9025> Beep() <:R1,12,1,720,1,954,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#280,9025>message("- Du skulle jo indtaste et bibliotek??? Pr<\x>v en gang til...")Goto om <:R><:#284,9025> else <:#280,9025> Call sletbibnu(Hdlg,id,text) <:#284,9025>endif <:#284,9025> Ignorekeyboard(0) <:#284,9025>SetGlobalVar("hlp","Obib") <:#284,9025>exit function <:#284,9025>Wend <:#284,9025>SetGlobalVar("hlp","Obib") <:#284,9025> Ignorekeyboard(0) <:#289,9025><+!>end function<-!> <:#284,9025> <:#289,9025><+!><:ZF-Sletbibnu>Function<-!> Sletbibnu<:Z~F-Sletbibnu>(Hdlg,id,text) <:#284,9025> Ignorekeyboard(1) <:#284,9025> Defstr Stat; <:#280,9025>AllocGlobalVar("Hlp",1) <:#280,9025>SetGlobalVar("Hlp","Janej") <:#280,9025>SetDlgCallBack(58,"DokHj<\f>lp") <:#280,9025> bib51=GetGlobalVar$("bibliotek") <:#280,9025> Filledit(1004,bib51) <:#280,9025> <:#280,9025> While (1<<= Assign(&Stat, DialogBox(".","Sletbibnu"))) <:#280,9025> Call Sletkat(Hdlg,id,text) <:#280,9025> FreeGlobalVar("Bibliotek") <:#280,9025> <:#280,9025> Ignorekeyboard(0) <:#280,9025> exit function <:#280,9025>wend <:#280,9025> <:#280,9025>FreeGlobalVar("bibliotek") <:#280,9025> Call Sletbib(Hdlg,id,text) <:#280,9025> Ignorekeyboard(0) <:#270,9025><+!>end function<-!> <:#280,9025> <:#280,9025><+!><:ZF-Sletkat>Function<-!> Sletkat<:Z~F-Sletkat>(Hdlg,id,text) <:#280,9025> Ignorekeyboard(1) <:#280,9025> bib52=GetGlobalVar$("bibliotek") <:#280,9025> <:#280,9025> If -1 =DosRmDir(bib52) <:#280,9025>Beep() <:#560,9025>Message("{bib52} kan ikke slettes! Check om du har tastet rigtigt. (Biblioteket SKAL v<\f>re tomt!!!)") <:#280,9025> <:#280,9025>FreeGlobalVar("bibliotek") <:#280,9025> Ignorekeyboard(0) <:#280,9025>Call Sletbib(Hdlg,id,text) <:#280,9025> exit function <:#284,9025> else <:#284,9025>Message("Biblioteket {bib52} er succesfuldt blevet slettet!") <:#280,9025> <:#284,9025>FreeGlobalVar("bibliotek") <:#280,9025> endif <:#284,9025>Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,9,1,435,1,982,1,1420,3,2736,1,2850,1,4326,1,5130,1,6123,1,8778,><:#289,9025><+!><:ZF-Slet>Function<-!> slet<:Z~F-Slet>(Hdlg,id,text) <:R1,9,1,435,1,982,1,1420,3,2736,1,2850,1,4326,1,5130,1,6123,1,8778,><:#284,9025>CloseBox(Hdlg) <:R1,9,1,435,1,982,1,1420,3,2736,1,2850,1,4326,1,5130,1,6123,1,8778,><:#284,9025> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>AllocGlobalVar("Filerne",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>AllocGlobalVar("hlp",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>AllocGlobalvar("sletf",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetGlobalVar("Sletf",0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetGlobalVar("hlp","Slet") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Defstr Stat; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> SetDlgCallBack(9001,"Slether") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> SetDlgCallBack(58,"dokhj<\f>lp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> SetDlgCallBack(59,"Tilbage") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> dir=GetCurrentdir$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>filledit(9001,"{dir}*.sam") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> While(18<<= Assign(&stat, DialogBox(".","sletning"))) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalvar("Sletf") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Wend <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Call Sletnu(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Sletf") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#270,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#270,9025><+!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025><+!><:ZF-Slether>Function <-!>Slether<:Z~F-Slether>(hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> fil1=GetDlgItemtext(Hdlg,9001) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>fil11=Ucase$(Left$(fil1,1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>fil13=Right$(fil1,(len(fil1)- 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Fil12=StrCat$(fil11,fil13) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgItemtext(HDlg,1000,fil12) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetGlobalVar("Filerne",fil12) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetGlobalVar("Sletf",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#270,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025><+!><:ZF-Sletnu>Function <-!>Sletnu<:Z~F-Sletnu>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Defstr stat; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>AllocGlobalVar("hlp",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetGlobalVar("hlp","Janej") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>makro=GetRunningMacrofile$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Filen=GetGlobalVar$("Filerne") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetDlgCallBack(58,"Dokhj<\f>lp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>If GetGlobalVar$("Sletf")=0 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>goto her2 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> If len(Filen)=0 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>her2: <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Message(" - Du har ikke valgt nogen fil, Pr<\x>v igen!")goto omigen <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Filen=Ucase$(Filen) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> filledit(1082,filen) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> While(1<<= Assign(&stat, DialogBox(".","janej"))) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Filerne") Goto omigen <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Wend <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> bib1=GetCurrentDir$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>HourGlass(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Filen=Lcase$(Filen) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>bib1=Lcase$(bib1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>StatusBarMsg("Sletter {filen} fra {bib1}...") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> If -1 = DosDelFile(Filen) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> HourGlass(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>StatusBarMsg("") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#560,9025>Message("- Dukumentet kunne ikke slettes... Check om filen eksisterer, og pr<\x>v igen.")Goto omigen <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>StatusBarMsg("") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> bib1=Ucase$(bib1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Filen=Ucase$(Filen) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>message("Dokumentet {filen} er slettet fra bibliotek {bib1}...") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>HourGlass(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>IgnoreKeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>omigen: <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("Filerne") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> HourGlass(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#240,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Call Slet(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>HourGlass(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!><:ZF-Kopiere>Function<-!> Kopiere<:Z~F-Kopiere>(hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>CloseBox(Hdlg) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>AllocGlobalVar("hlp",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>AllocGlobalVar("enfil",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetGlobalvar("hlp","Kopiering") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetGlobalVar("enfil",0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Defstr Char; <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>mak=GetRunningMacrofile$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (50,"kopiernu") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (9001,"filnu") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (58,"dokhj<\f>lp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (59,"Tilbage") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> bib2=GetCurrentDir$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Bib2=Lcase$(bib2) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> ba=GetAmiDirectory$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Filledit(1006,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Filledit(1007,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Filledit(1014,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Filledit(1002,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Filledit(9001,"{bib2}*.sam") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>Filledit(8002,Lcase$(ba)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Box=DialogBox(".","Kopiering") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> if box=-1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>message(" - Intern fejl 1. Afslutter funktionen!") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> elseif box=0 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>FreeGlobalVar("enfil") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#270,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#270,9025><+!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025><+!><:ZF-Filnu>Function <-!>Filnu<:Z~F-Filnu>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> Fil2=GetDlgItemText(Hdlg,9001) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>SetGlobalVar("enfil",fil2) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025> fil21=Ucase$(left$(fil2,1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#280,9025>fil22=Right$(fil2,(len(fil2) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> fil23=StrCat$(fil21,fil22) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgItemtext(Hdlg,1002,fil23) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetDlgItemtext(Hdlg,1006,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetDlgItemtext(Hdlg,1007,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetDlgItemtext(Hdlg,1014,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><+!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><+!><:ZF-Kopiernu>Function<-!> kopiernu<:Z~F-Kopiernu>(hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,> fil4=GetCurrentDir$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,> fil5=GetGlobalVar$("enfil") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>kopi=("{fil4}{fil5}") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>if getGlobalVar$("enfil")=0 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>goto der <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,> bib3 = GetDlgItemText(Hdlg,8002) <:R> if Right$(bib3,1)<<<;>"\" bib3="{Bib3}\" endif Nytsted=("{bib3}{fil5}") Fil5=Ucase$(Fil5) bib3=Ucase$(bib3) if len(bib3)<<2 or len(fil5)<<5 der: Beep() message("Der er ikke angivet fil eller bibliotek...Pr<\x>v igen!") Ignorekeyboard(0) exit function else HourGlass(1) Fil5=Lcase$(fil5) bib3=Lcase$(bib3) f55=findfirst$({nytsted} 1) f54=FindFirst$({kopi} 1) if f55=f54 fil5a=Right$(fil5 (len(fil5)- 1)) fil5="_{fil5a}" Nytsted="{bib3}{fil5}" f55=Ucase$(f55) fil5=Ucase$(fil5) beep() <:#568,9025>Message("Der eksisterer allerede et dokument af samme navn i det nye bibliotek. Navnet p<\e> Dokumentet: {f55} er <\f>ndret til: {fil5}.") <:#284,9025>endif <:R1,10,1,1026,1,2505,1,3135,3,4545,1,4845,1,6210,1,7050,1,8721,1,9690,1,10203,><:#284,9025>StatusBarMsg("Kopi<\i>re {fil5} til {bib3}...") <:R1,10,1,1026,1,2505,1,3135,3,4545,1,4845,1,6210,1,7050,1,8721,1,9690,1,10203,><:#284,9025> if 0=DosCopyFile(Kopi,nytsted) <:R><:#284,9025>StatusBarMsg("") <:#284,9025> Beep() <:#284,9025>Fil5=Ucase$(Fil5) <:#568,9025>Message("- Det kunne ikke lade sig g<\x>re at kopi<\i>re {fil5}. Check om filen og biblioteket eksisterer...") <:#284,9025> else <:#284,9025>StatusBarMsg("") <:#284,9025>Fil5=Ucase$(fil5) <:#284,9025>bib3=Ucase$(bib3) <:#284,9025>message("Dokumentet: {fil5}, blev kopi<\i>ret til: {bib3}..") <:#284,9025>HourGlass(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>AllocGlobalVar("setfil",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>AllocGlobalVar("setbib",1) <:R1,10,1,1197,1,2505,1,3135,3,4545,1,4845,1,6210,1,7050,1,8721,1,9690,1,10203,><:#284,9025> <:R1,10,1,1197,1,2505,1,3135,3,4545,1,4845,1,6210,1,7050,1,8721,1,9690,1,10203,><:#284,9025> SetGlobalVar("setfil",fil5) <:R1,10,1,1197,1,2505,1,3135,3,4545,1,4845,1,6210,1,7050,1,8721,1,9690,1,10203,><:#284,9025> SetGlobalVar("setbib",bib3) <:R><:#284,9025>Call filset(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> FreeGlobalVar("setfil") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> FreeGlobalVar("SetBib") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!><:ZF-Filset>Function<-!> filset<:Z~F-Filset>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> fils=GetGlobalVar$("setFil") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> sbib=GetGlobalVar$("setbib") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Sbib=Lcase$(sbib) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> fils=Lcase$(fils) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> fils1=Ucase$(Left$(fils,1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> fils2=Right$(fils,(len(fils)- 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>sfil=StrCat$(fils1,fils2) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> if len(sbib)=3 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>s2bib=sbib <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> s2bib=Left$(sbib, (len(sbib) - 1)) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>sfil=StrCat$(sfil," -<;>-<;>-<;>-<;>") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetDlgItemText(Hdlg,1006,sfil) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>if len(s2bib)<;>16 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> s23bib=Left$(s2bib,16) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> s3bib=Right$(s2bib,(len(s2bib) -(len(s23bib)))) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> s31bib=StrCat$(" ....",s3bib) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>s21bib=StrCat$("-<;>-<;> ",s23bib) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetDlgItemText(Hdlg,1014,s21bib) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetDlgItemText(Hdlg,1007,s31bib) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>s21bib=StrCat$("-<;>-<;> ",s2bib) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetDlgItemText(Hdlg,1014,s21bib) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> SetDlgItemText(Hdlg,1007,"") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!><:ZF-Check>Function<-!> Check()<:Z~F-Check> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>am=GetAmiDirectory$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>dh=GetProfileString$("Logs","Logs","{am}Docwork1.hlp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Message("Antal opstarter: {dh}.") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025><+!>End Function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!><:ZF-Omd<\x>b>Function<-!> omd<\x>b<:Z~F-Omd<\x>b>(Hdlg,id,text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>CloseBox(Hdlg) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (58,"dokhj<\f>lp") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (59,"Tilbage") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetDlgCallBack (61,"Omd<\x>bnu") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>AllocGlobalVar("hlp",1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>SetGlobalvar("hlp","Nytnavn") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Dir2=GetdocPath$() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Filledit(9001,"{dir2*.sam") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Filledit(8000,"*.SAM") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Filledit(8002,"*.SAM") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Box=DialogBox(".","Renam") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> if Box= -1 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>message(" - Intern fejl 1. Afslutter funktionen!") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>elseif box=0 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025><+!>end function<-!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025><+!> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#289,9025><+!><:ZF-Omd<\x>bnu>function <-!>omd<\x>bnu<:Z~F-Omd<\x>bnu>(Hdlg,Id,Text) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> fil6=GetDlgItemText(Hdlg,8000) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Fil7=GetDlgItemText(Hdlg,8002) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> If len(fil6)<<5 or len(fil7)<<5 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>message("Indtast venligst 2 dokument-navne med endelsen '*.SAM'!") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>elseif fil6=fil7 <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>message("Husk at angive 2 <++>forskellige<-+> Dokument-navne...") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> exit function <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>HourGlass(1) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> if -1 = DosRename(Fil6,Fil7) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>Beep() <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#568,9025>message("Det nye navn du gav filen eksistere i forvejen. Eller ogs<\e> findes filen, du vil omd<\x>be ikke...") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> else <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> fil6=Ucase$(fil6) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> fil7=Ucase$(fil7) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>message("Dokumentet '{fil6}' er blevet omd<\x>bt til: '{fil7}'.") <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>HourGlass(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025>endif <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025> Ignorekeyboard(0) <:R1,8,1,435,1,982,1,1420,3,2466,1,2873,1,4326,1,5264,1,6123,><:#284,9025><+!>end function<-!> <+B><:R1,1,-16383,9006,><:#284,9025> <+B><:R1,1,-16383,9006,><:#284,9025> <+B><:R1,1,-16383,9006,><:#284,9025> <+B><:R1,1,-16383,9006,><:#284,9025> <+B><:R1,1,-16383,9006,><:#284,9025> <+B><:R1,1,-16383,9006,><:#284,9025> <+B><:R1,1,-16383,9006,><:#284,9025> <+B><:R1,1,-16383,9006,><:#284,9025> <+B><:R1,1,-16383,9006,><:#284,9025> <+B><:R1,1,-16383,9006,><:#284,9025> <+B><:R1,1,-16383,9006,><:#284,9025><+!> <+B><:R1,1,-16383,9006,><:#284,9025><+!> <+B><:R1,1,-16383,9006,><:#284,9025><+!> <+B><:R1,1,-16383,9006,><:#284,9025><+!> <+B><:R1,1,-16383,9006,><:#284,9025><+!> <+B><:R1,1,-16383,9006,><:#284,9025><+!> <+B><:R1,1,-16383,9006,><:#284,9025><+!> <+B><:R1,1,-16383,9006,><:#284,9025><+!> <+B><:R1,1,-16383,9006,><:#284,9025><+!> <+B><:R1,1,-16383,9006,><:#284,9025><+!><:Z'Dialogbokse>'Dialogbokse til funktioner:<-!><:Z~'Dialogbokse> <:R1,1,-16383,9006,><:#284,9025> <:R1,1,-16383,9006,><:#284,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025><:ZD-Renam>DIALOG Renam<:Z~D-Renam> <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#568,9025>-2134376448 14 68 51 235 116 "" "" "Omd<\x>b dokument..." <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#284,9025>FONT 8 "Helv" <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#284,9025>187 2 41 17 61 1342373889 "button" "&Omd<\x>b..." 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#284,9025>187 21 41 17 2 1342373889 "button" "Annull<\i>r" 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#568,9025>68 37 114 10 1060 1342177280 "static" "Angiv dokument til omd<\x>bning:" 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#284,9025>68 48 102 12 8000 1350631552 "edit" "" 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#568,9025>68 82 116 10 1070 1342177280 "static" "Angiv nyt navn til dokumentet:" 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#284,9025>68 93 102 12 8002 1350631552 "edit" "" 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#284,9025>103 20 73 9 7999 1342177280 "static" "" 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#284,9025>23 20 79 9 1073 1342177282 "static" "Nuv<\f>rende bibliotek:" 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#284,9025>3 43 62 72 9001 1352728579 "listbox" "" 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#284,9025>192 78 31 28 1000 1342177290 "static" "dok.bmp" 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#568,9025>68 67 165 10 1071 1342177281 "static" "--------------------------------------------------------------------------------------------------------"0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#568,9025>45 2 117 10 2000 1342177280 "static" "Giv dine dokumenter et nyt navn..." 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#284,9025>187 40 41 17 58 1342242817 "button" "&Hj<\f>lp..." 0 <:R1,11,1,513,1,1254,1,1995,3,3044,1,3363,1,4788,1,5700,1,7011,1,7448,1,8058,1,8815,><:#284,9025>3 31 40 10 1001 1342177280 "static" "Bibliotek:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>END DIALOG <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025><:ZD-Begynd>DIALOG Begynd<:Z~D-Begynd> <:R><:#568,9025>-2134376448 20 73 10 205 158 "" "" "Arrangering af dokumenter..." <:#284,9025>FONT 9 "Helv" <:#568,9025>9 92 54 20 50 1342373889 "button" "&Kopier..." 0 <:#568,9025>69 92 54 20 51 1342373889 "button" "Om&d<\x>b..." 0 <:#568,9025>9 114 54 20 52 1342373889 "button" "&Slet..." 0 <:#568,9025>69 114 54 20 53 1342373889 "button" "&Flyt..." 0 <:#568,9025>9 136 54 20 54 1342373889 "button" "Op&ret..." 0 <:#568,9025>69 136 54 20 55 1342373889 "button" "&Biblioteker..." 0 <:#568,9025>145 8 54 20 2 1342373889 "button" "Afslut" 0 <:#568,9025>129 136 70 20 56 1342373889 "button" "&Om Docwork 1.0..-<;>" 0 <:#568,9025>154 60 36 37 57 1342373896 "button" "Skifter.bmp" 0 <:#568,9025>127 104 74 10 1000 1342177281 "static" "Hej" 0 <:#568,9025>127 114 74 20 1001 1342177281 "static" "" 0 <:#568,9025>3 2 137 88 21 1342308359 "button" "Lidt om Docwork 1.0:" 0 <:#568,9025>4 13 134 76 1002 1342177280 "static" "" 0 <:#568,9025>5 174 74 17 1003 1342177280 "static" "Docwork 1.0 er skrevet i Ami Pro MakroSprog." 0 <:#568,9025>5 190 61 10 1004 1342177281 "static" "@ 1993." 0 <:#568,9025>133 170 75 10 1006 1342177280 "static" "<<- Med venlig hilsen" 0 <:#568,9025>133 200 75 10 1007 1342177280 "static" "-<;> Jannik Graversen" 0 <:#568,9025>83 162 48 52 1005 1342177290 "static" "Galmand.bmp" 0 <:#568,9025>145 33 54 20 58 1342242817 "button" "&Info..." 0 <:#568,9025>128 214 2 2 59 1342373889 "button" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>END DIALOG <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025><:ZD-Dokhlp>DIALOG Dokhlp<:Z~D-Dokhlp> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#568,9025>-2134376448 3 86 45 200 146 "" "" "Hj<\f>lp til Dokument-behandling..." <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>FONT 9 "Helv" <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>9 5 146 135 20 1342308359 "button" "Forklaring:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>11 17 142 120 1001 1342177280 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>162 15 28 27 1 1342373896 "button" "hjbill.bmp" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>END DIALOG <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025><:ZD-Kopiering>DIALOG Kopiering<:Z~D-Kopiering> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#568,9025>-2134376448 16 67 20 208 154 "" "" "Kopiering af dokumenter..." <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>FONT 8 "Helv" <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>46 42 67 73 9001 1352728579 "listbox" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>4 3 66 10 1001 1342177281 "static" "V<\f>lg et dokument:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>46 18 88 10 7999 1342177280 "static" "(Her vises bibliotek)" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>158 26 43 17 2 1342373888 "button" "Annull<\i>r" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>158 3 43 17 50 1342373888 "button" "&Kopi<\i>r..." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>6 137 129 12 8002 1350631552 "edit" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>4 18 41 10 1010 1342177282 "static" "Bibliotek:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>4 30 41 10 1005 1342177282 "static" "Valgt fil:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>14 63 29 19 1000 1342177290 "static" "floppy.bmp" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>46 30 81 10 1002 1342177280 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>117 68 85 64 21 1342308359 "button" "Kopiering" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>118 86 83 9 1006 1342177281 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>118 103 83 10 1014 1342177280 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>118 113 83 10 1007 1342177280 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#568,9025>6 116 109 20 1003 1342177280 "static" "Angiv hvilket bibliotek, dokumentet skal kopieres til:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>158 48 43 17 58 1342242817 "button" "&Hj<\f>lp..." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>END DIALOG <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025><:ZD-Sletning>DIALOG Sletning<:Z~D-Sletning> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#568,9025>-2134376448 12 78 50 183 103 "" "" "Sletning af dokumenter..." <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>FONT 8 "Helv" <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>73 21 59 76 9001 1352728579 "listbox" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>3 1 120 10 1001 1342177280 "static" "V<\f>lg dokument(er) til sletning:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>3 28 67 10 7999 1342177280 "static" "(Her vises bibliotek)" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>138 25 40 14 18 1342373888 "button" "Annull<\i>r" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>138 7 40 14 2 1342373889 "button" "&Slet..." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>3 17 55 10 1010 1342177280 "static" "Bibliotek:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>3 42 55 10 1005 1342177280 "static" "Valgt fil:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>3 70 62 10 1030 1342177280 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>3 88 64 9 1040 1342177280 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>3 80 62 8 1050 1342177280 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>3 52 63 10 1000 1342177280 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>138 43 40 14 58 1342242817 "button" "&Hj<\f>lp..." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>END DIALOG <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025><:ZD-Janej>DIALOG janej<:Z~D-Janej> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#568,9025>-2134376448 6 87 51 172 94 "" "" "Advarsel!" <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>FONT 8 "Helv" <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>16 8 134 10 1081 1342177281 "static" "Du er ved at slette dokumentet:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#568,9025>2 44 164 10 1083 1342177281 "static" "Er du sikker p<\e> at du vil slette dokumentet?" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>67 69 40 15 1 1342373889 "button" "Nej" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>15 69 40 15 2 1342373889 "button" "Ja" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>10 21 151 10 1082 1342177281 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>119 69 40 15 58 1342242817 "button" "&Hj<\f>lp..." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>END DIALOG <+@><:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025><:ZD-Biblioteker>DIALOG Biblioteker<:Z~D-Biblioteker> <:R><:#568,9025>-2134376448 35 63 22 195 131 "" "" "Biblioteker..." <:#568,9025>145 42 40 14 2 1342373889 "button" "Afbryd" 0 <:#568,9025>145 6 40 14 50 1342373889 "button" "&Opret..." 0 <:#568,9025>145 24 40 14 51 1342373889 "button" "&Slet..." 0 <:#568,9025>3 44 40 10 1001 1342177280 "static" "Dokumenter" 0 <:#568,9025>3 54 40 10 1002 1342177280 "static" "Formats<\f>t" 0 <:#568,9025>3 64 40 10 1003 1342177280 "static" "Makroer" 0 <:#568,9025>3 74 40 10 1004 1342177280 "static" "Tegninger" 0 <:#568,9025>3 84 40 10 1005 1342177280 "static" "Backup" 0 <:#568,9025>3 94 40 10 1006 1342177280 "static" "Smarticons" 0 <:#568,9025>3 107 40 10 1008 1342177280 "static" "Windows" 0 <:#568,9025>3 34 40 10 1009 1342177280 "static" "Ami Pro" 0 <:#280,9025>43 34 6 10 1010 1342177280 "static" "=" 0 <:#480,9025>43 44 6 10 1011 1342177280 "static" "=" 0 <:#284,9025>43 54 6 10 1012 1342177280 "static" "=" 0 <:#480,9025>43 64 6 10 1013 1342177280 "static" "=" 0 <:#480,9025>43 74 6 10 1014 1342177280 "static" "=" 0 <:#568,9025>43 84 6 10 1015 1342177280 "static" "=" 0 <:#568,9025>43 94 6 10 1016 1342177280 "static" "=" 0 <:#568,9025>42 107 6 10 1017 1342177280 "static" "=" 0 <:#284,9025>50 34 92 10 1018 1342177280 "static" "" 0 <:#284,9025>50 44 93 10 1019 1342177280 "static" "" 0 <:#568,9025>50 54 94 10 1020 1342177280 "static" "" 0 <:#568,9025>50 64 94 10 1021 1342177280 "static" "" 0 <:#284,9025>50 74 94 10 1022 1342177280 "static" "" 0 <:#284,9025>50 84 92 10 1023 1342177280 "static" "" 0 <:#568,9025>50 94 138 10 1024 1342177280 "static" "" 0 <:#568,9025>50 107 138 10 1025 1342177280 "static" "" 0 <:#568,9025>2 1 122 10 1026 1342177280 "static" "Opret eller slet dine egne biblioteker." 0 <:#568,9025>7 13 4 4 9001 1352728579 "listbox" "" 0 <:#568,9025>2 11 122 10 1027 1342177280 "static" "Nuv<\f>rende bibliotek er :" 0 <:#568,9025>20 21 111 11 7999 1342177281 "static" "" 0 <:#568,9025>1 29 143 5 1029 1342177280 "static" "--------------------------------------------------------------------------------------------------" 0 <:#280,9025>145 60 40 14 58 1342242817 "button" "&Hj<\f>lp..." 0 <:#560,9025>3 119 67 10 1000 1342177280 "static" "Windows Version:" 0 <:#280,9025>70 119 40 10 1007 1342177280 "static" "" 0 <+@><:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>END DIALOG <+@><:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025><:ZD-Opretbib>DIALOG opretbib<:Z~D-Opretbib> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#568,9025>-2134376448 6 87 70 176 55 "" "" "Opret bibliotek..." <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>5 22 119 12 8000 1350631552 "edit" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>133 3 37 15 1 1342373889 "button" "&Opret" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>133 21 37 15 2 1342373889 "button" "Annull<\i>r" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>5 1 116 10 1000 1342177280 "static" "Indtast navnet (fuld l<\f>ngde), p<\e> det" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>5 11 110 10 1001 1342177280 "static" "nye bibliotek:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>133 38 37 15 58 1342242817 "button" "&Hj<\f>lp..." 0 <+@><:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>END DIALOG <+@><:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025><:ZD-Sletbib>DIALOG Sletbib<:Z~D-Sletbib> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>-2134376448 6 87 70 176 58 "" "" "Slet bibliotek..." <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>5 22 119 12 8000 1350631552 "edit" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>133 3 37 15 1 1342373889 "button" "&Slet" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>133 21 37 15 2 1342373889 "button" "Annull<\i>r" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>5 1 126 10 1000 1342177280 "static" "Indtast navnet (fuld l<\f>ngde), p<\e> bib-" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>5 11 97 10 1001 1342177280 "static" "lioteket, som du vil slette :" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>133 39 37 15 58 1342242817 "button" "&Hj<\f>lp..." 0 <+@><:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>END DIALOG <+@><:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025><:ZD-Sletbibnu>DIALOG Sletbibnu<:Z~D-Sletbibnu> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#480,9025>-2134376448 6 88 71 134 75 "" "" "Advarsel !" <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>3 52 40 14 1 1342373889 "button" "Ja" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>46 52 40 14 2 1342373889 "button" "Nej" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>9 8 110 10 1002 1342177281 "static" "Er du sikker p<\e> at du vil slette" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>9 18 50 10 1003 1342177281 "static" "biblioteket:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>9 31 116 10 1004 1342177281 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>89 52 40 14 58 1342242817 "button" "&Hj<\f>lp..." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>END DIALOG <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025><:ZD-Opretfil>DIALOG Opretfil<:Z~D-Opretfil> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#560,9025>-2134376448 8 95 77 163 92 "" "" "Opret nyt dokument..." <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>FONT 8 "Helv" <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>5 10 100 10 1000 1342177280 "static" "Indtast navn p<\e> det" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>5 20 106 10 1001 1342177280 "static" "nye dokument. (Max. 8 tegn)." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>5 47 80 12 8000 1350631552 "edit" "*.SAM" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>5 36 30 10 1002 1342177280 "static" "Navn :" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>113 4 47 18 1 1342373889 "button" "&Opret..." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>113 26 47 18 2 1342373889 "button" "Annull<\i>r" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>5 68 107 12 21 1342242819 "button" "&Luk nuv<\f>rende dokument." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>113 48 47 18 58 1342242817 "button" "&Hj<\f>lp..." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>END DIALOG <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025><:ZD-Flytning>DIALOG Flytning<:Z~D-Flytning> <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#568,9025>-2134376448 17 62 23 208 154 "" "" "Flytning af dokument..." <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>FONT 8 "Helv" <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>46 43 67 73 9001 1352728579 "listbox" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>1 3 66 10 1001 1342177281 "static" "V<\f>lg et dokument:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>46 18 88 10 7999 1342177280 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>158 24 43 17 2 1342373888 "button" "Annull<\i>r" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>158 3 43 17 1 1342373888 "button" "&Flyt..." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>6 138 128 12 8002 1350631552 "edit" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>8 18 36 10 1010 1342177282 "static" "Bibliotek:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>9 30 35 10 1005 1342177282 "static" "Valgt fil:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>46 30 87 10 1002 1342177280 "Static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>117 89 84 12 1040 1342177281 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>117 115 84 11 1030 1342177281 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>117 105 79 10 1029 1342177280 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>117 79 83 10 1006 1342177280 "static" "" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>116 61 87 69 20 1342308359 "button" "Handling:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>14 62 29 21 1000 1342177290 "static" "floppy.bmp" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#560,9025>6 117 108 20 1012 1342177280 "static" "Angiv hvilket bibliotek, dokumentet skal flyttes til:" 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#280,9025>158 45 43 17 58 1342242817 "button" "&Hj<\f>lp..." 0 <:R1,11,1,456,1,1026,1,1716,3,2622,1,2850,1,4332,1,5529,1,6357,1,7294,1,8107,1,8841,><:#284,9025>END DIALOG > [Embedded] 00115125 > [macsum] 38 filer 0 3 9 6 Settekst 1348 3 3 68 Fyldop 1625 1 6 87 Opret 2195 3 9 110 Dokhjµlp 3510 3 6 172 Flyt 4140 3 11 212 FlytFilnu 5020 3 5 268 Flytnu 5344 3 10 284 Bekr 7060 3 11 371 Vµk 7535 2 1 397 Afslut 7555 3 1 400 Bibliotek 7757 3 20 414 Opretbib 9630 3 9 506 Sletbib 10900 3 4 559 Sletbibnu 11519 3 3 593 Sletkat 11864 3 2 615 slet 12232 3 3 635 Slether 12654 3 5 661 Sletnu 12900 3 5 673 Kopiere 13872 3 6 729 Filnu 14474 3 5 766 kopiernu 14759 3 9 783 filset 16119 3 11 849 Check 16853 0 3 880 omd°b 16968 3 3 886 omd°bnu 17416 3 3 916 Renam 18099 0 -1 969 Begynd 19057 0 -1 988 Dokhlp 20251 0 -1 1013 Kopiering 20504 0 -1 1021 Sletning 21461 0 -1 1042 janej 22170 0 -1 1059 Biblioteker 22594 0 -1 1070 opretbib 24471 0 -1 1109 Sletbib 24872 0 -1 1119 Sletbibnu 25285 0 -1 1129 Opretfil 25662 0 -1 1139 Flytning 26202 0 -1 1152 [macse] 14 filer 0 798 13 8 4 0 286 "Logs" "Logs" "{4}Docwork1.hlp" 13 8 5 6 5 7 "" 18 0 11 00000172 5 1 8 5 0 287 "Logs" "Logs" "{5}" "{4}Docwork1.hlp" 10 00000237 6 5 5 1 3 0 8 5 0 287 "Logs" "Logs" "{5}" "{4}Docwork1.hlp" 0 271 "navn" 1 0 271 "hlp" 1 0 271 "udfyld" 1 0 264 "udfyld" 0 0 264 "hlp" "Begynd" 0 286 "AmiPro" "UserName" "amipro.ini" 13 8 7 0 264 "navn" "{7}" 0 802 13 8 8 0 41 59 "{8}!Check" 0 41 50 "{8}!kopiere" 0 41 51 "{8}!omd<\x>b" 0 41 52 "{8}!Slet" 0 41 53 "{8}!Flyt" 0 41 54 "{8}!opret" 0 41 55 "{8}!Bibliotek" 0 41 56 "{8}!Fyldop" 0 41 58 "{8}!dokhj<\f>lp" 0 259 "Docwork1.hlp" "r" 13 8 9 6 9 5 1 18 5 11 00000876 0 801 0 31 1002 " Kan ikke finde hj<\f>lpefilen. Hj<\f>lpen er derfor ikke tilg<\f>ngelig!" 10 00001164 10 00001307 7 "" 8 10 0 15 "[[" 1 1 13 8 11 6 10 7 "{11}Start]" 18 1 11 00001110 0 257 "{9}" 13 8 10 6 10 5 -1 18 0 11 00001097 0 801 0 3 "Hj<\f>lpefilen kan ikke l<\f>ses. Kontakt Jannik." 5 1 15 9 0 260 "{9}" 10 00000913 0 257 "{9}" 13 8 10 0 260 "{9}" 0 31 1002 "{10}" 0 31 1000 "" 0 31 1001 "" 0 41 57 "{8}!Settekst" 5 1 0 26 "." "Begynd" 13 0 805 &6 [X] 13 18 4 11 00001307 10 00000237 10 00001216 16 Afslut "{0}" "{1}" "{2}" 6 3 15 9 14 Settekst 0 271 "hejs" 1 0 265 "navn" 13 8 4 0 265 "hejs" 13 8 5 6 5 7 "" 18 0 11 00000194 0 43 "{0}" 1001 "{4}" 0 43 "{0}" 1000 "Hej" 5 1 8 5 0 264 "Hejs" "{5}" 10 00000265 0 43 "{0}" 1000 "" 0 43 "{0}" 1001 "" 7 "" 8 5 0 264 "Hejs" "{5}" 6 3 15 9 14 Fyldop 0 296 1 0 265 "udfyld" 13 5 1 18 1 11 00000317 5 4 21 2 [X] 0 284 "User,GetWindowRect,HHN" "{0}" &2 5 1 22 2 8 3 5 2 22 2 8 4 5 3 22 2 8 5 5 4 22 2 8 6 6 5 6 3 3 1 6 6 6 4 3 1 5 99 3 0 0 284 "User,MoveWindow,HHHHHHH" "{0}" "{3}" "{4}" [X] [X] 1 0 264 "udfyld" 1 10 00000558 5 4 21 2 [X] 0 284 "User,GetWindowRect,HHN" "{0}" &2 5 1 22 2 8 3 5 2 22 2 8 4 5 3 22 2 8 5 5 4 22 2 8 6 6 5 6 3 3 1 6 6 6 4 3 1 5 -99 3 0 0 284 "User,MoveWindow,HHHHHHH" "{0}" "{3}" "{4}" [X] [X] 1 0 264 "udfyld" 0 6 1 15 9 14 Opret 0 284 "User,EndDialog,HHH" "{0}" 1 0 41 58 "dokhj<\f>lp" 0 41 59 "Tilbage" 0 32 1 0 271 "hlp" 1 0 264 "hlp" "Opret" 0 26 "." "Opretfil" 13 8 5 6 5 5 -1 18 0 11 00000279 0 801 0 3 "- Intern fejl: 1. Afslutter funktionen!" 0 32 0 6 3 15 9 10 00000320 6 5 5 0 18 0 11 00000320 6 3 15 9 0 27 8000 13 8 6 0 807 "{6}" 5 13 8 7 0 14 "{6}" 13 5 12 18 3 11 00000537 0 801 0 3 "Filnavnet er for langt. Navnet m<\e> max. v<\f>re p<\e> 8 bogstaver, efterfulgt af *.SAM..." 10 00000046 10 00001295 0 14 "{6}" 13 5 4 18 4 6 7 6 6 18 0 1 2 11 00000691 0 801 0 3 "- Skulle du ik' oprette et dokument, eller hvad??? Pr<\x>v igen." 10 00000046 0 807 "{6}" 4 13 7 ".SAM" 18 0 11 00001066 0 27 21 13 8 8 6 8 5 1 18 0 11 00000841 0 1050 13 8 9 6 9 5 0 18 3 11 00000841 2 147 1 0 268 13 8 10 7 "{10}{6}" 8 11 0 296 1 0 291 6 2 102 1 "{6}" 1 "" 0 18 "{6}" 13 8 6 0 287 "AmiPro" "Lastopen1" "{6}" "AmiPro.ini" 0 296 0 0 18 "{11}" 13 8 11 0 3 "Dokumentet '{11}' er oprettet!" 10 00001295 0 801 0 3 "Dokument-navnet skal have endelsen 'SAM', for at Ami Pro kan acceptere det. Hvis du <\x>nsker at <\e>bne dokumentet med et andet format, skal du bruge '<\E>bn' eller 'Open'-kommandoen under Filmenu'en." 10 00000046 0 32 0 6 3 15 9 14 Dokhjµlp 0 259 "Docwork1.hlp" "r" 13 8 4 6 4 5 1 18 5 11 00000162 0 801 0 3 "- Kan ikke finde hj<\f>lpefilen!" 5 1 15 9 0 260 "{4}" 10 00000618 0 265 "hlp" 13 8 5 7 "" 8 6 0 15 "[[" 1 1 13 8 7 6 6 7 "{7}{5}]" 18 1 11 00000402 0 257 "{4}" 13 8 6 6 6 5 -1 18 0 11 00000389 0 801 0 3 "-Der er ingen hj<\f>lp til denne funktion" 5 1 15 9 0 260 "{4}" 10 00000219 0 257 "{4}" 13 8 6 0 260 "{4}" 0 31 1001 "{6}" 0 26 "." "dokhlp" 13 8 8 6 8 5 -1 18 0 11 00000577 0 801 0 3 "-Intern fejl 1. Afslutter funktionen!" 10 00000618 6 8 5 0 18 0 11 00000618 6 3 15 9 6 3 15 9 14 Flyt 0 284 "User,EndDialog,HHH" "{0}" 1 0 32 1 0 802 13 8 6 0 41 9001 "flytfilnu" 0 41 58 "dokhj<\f>lp" 0 41 59 "Tilbage" 0 290 13 8 7 0 17 "{7}" 13 8 7 0 271 "Flyt" 1 0 271 "Flytbib" 1 0 271 "ffil" 1 0 264 "ffil" 0 0 271 "x" 1 0 271 "y" 1 0 271 "Hlp" 1 0 264 "hlp" "Flytning" 0 265 "x" 13 8 10 0 265 "y" 13 8 11 6 10 6 8 18 0 6 11 6 9 18 0 1 1 11 00000438 0 31 1006 "" 0 31 1029 "" 10 00000547 0 31 1006 "Filen :" 0 31 1029 "- er flyttet til :" 0 266 "filener" 0 266 "biberne" 0 266 "x" 0 266 "y" 0 798 13 8 12 0 31 1002 "{7}" 0 31 9001 "{7}*.sam" 0 17 "{12}" 13 0 31 8002 [X] 0 31 1002 "" 5 1 0 26 "." "Flytning" 13 0 805 &5 [X] 13 18 4 11 00000846 0 27 8002 13 8 13 0 264 "Flytbib" "{13}" 16 Flytnu "{0}" "{1}" "{2}" 0 266 "Flytbib" 0 266 "ffil" 6 3 15 9 10 00000649 0 32 0 0 266 "ffil" 6 3 15 9 14 FlytFilnu 0 32 1 0 42 "{0}" 9001 13 8 4 0 806 "{4}" 1 13 0 18 [X] 13 8 5 0 14 "{4}" 13 5 1 3 1 0 807 "{4}" [X] 13 8 6 0 16 "{5}" "{6}" 13 8 7 0 43 "{0}" 1002 "{7}" 0 264 "Flyt" "{7}" 0 264 "FFil" 1 0 43 "{0}" 1040 "" 0 43 "{0}" 1006 "" 0 43 "{0}" 1030 "" 0 43 "{0}" 1029 "" 0 32 0 6 3 15 9 14 Flytnu 0 32 1 0 271 "filener" 1 0 271 "biberne" 1 0 290 13 8 4 0 265 "Flyt" 13 8 5 7 "{4}{5}" 8 6 0 265 "ffil" 13 5 0 18 0 11 00000181 10 00000414 10 00001696 0 264 "ffil" 0 0 265 "flytbib" 13 8 7 0 807 "{7}" 1 13 7 "\" 18 1 11 00000283 7 "{7}\" 8 7 7 "{7}{5}" 8 8 0 18 "{5}" 13 8 5 0 18 "{7}" 13 8 7 0 14 "{7}" 13 5 1 18 4 0 14 "{5}" 13 5 5 18 5 1 2 11 00000584 0 801 0 3 "- Du skulle jo angive en fil eller et bibliotek??? Pr<\x>v igen!" 0 32 0 16 Flyt "{0}" "{1}" "{2}" 0 266 "Flytbib" 0 266 "Flyt" 6 3 15 9 10 00001696 0 296 1 0 17 "{7}" 13 8 7 0 17 "{5}" 13 8 5 0 280 "{8}" 1 13 8 9 0 280 "{6}" 1 13 8 10 6 9 6 10 18 0 11 00000979 0 14 "{5}" 13 5 1 3 1 0 807 "{5}" [X] 13 8 11 7 "_{11}" 8 5 7 "{7}{5}" 8 8 0 18 "{9}" 13 8 9 0 18 "{5}" 13 8 5 0 801 0 3 "Der eksisterer allerede et dokument af samme navn i det nye bibliotek. Navnet p<\e> Dokumentet: {9} er <\f>ndret til: {5}." 0 789 "Flytter {5} til {7}..." 5 0 0 803 "{6}" "{8}" 13 18 0 11 00001267 0 789 "" 0 801 0 18 "{5}" 13 8 5 0 3 "- Det kunne ikke lade sig g<\x>re at flytte {5}. Check om filen og biblioteket eksisterer..." 0 266 "Flytbib" 0 266 "Flyt" 16 Flyt "{0}" "{1}" "{2}" 10 00001696 0 779 "{6}" 0 789 "" 0 18 "{5}" 13 8 5 0 18 "{7}" 13 8 7 0 3 "Dokumentet: {5}, blev flyttet til: {7}.." 0 296 0 0 266 "Flytbib" 0 266 "Flyt" 0 14 "{7}" 13 5 3 18 0 11 00001473 10 00001584 7 "\" 0 807 "{7}" 1 13 18 0 11 00001584 0 14 "{7}" 13 5 1 3 1 0 806 "{7}" [X] 13 8 12 10 00001595 6 7 8 12 0 264 "filener" "{5}" 0 264 "biberne" "{12}" 16 bekr "{0}" "{1}" "{2}" 16 Flyt "{0}" "{1}" "{2}" 0 32 0 6 3 15 9 14 Bekr 0 271 "x" 1 0 271 "y" 1 7 "a" 8 4 7 "b" 8 5 0 264 "x" "{4}" 0 264 "y" "{5}" 0 265 "biberne" 13 8 6 0 265 "filener" 13 8 7 0 17 "{6}" 13 8 6 0 17 "{7}" 13 8 7 0 806 "{7}" 1 13 0 18 [X] 13 8 8 0 14 "{7}" 13 5 1 3 1 0 807 "{7}" [X] 13 8 9 0 16 "{8}" "{9}" 13 8 10 0 806 "{6}" 1 13 0 18 [X] 13 8 11 0 14 "{6}" 13 5 1 3 1 0 807 "{6}" [X] 13 8 12 0 16 "{11}" "{12}" 13 8 13 0 31 1040 "{10}" 0 31 1030 "{13}" 6 3 15 9 14 Vµk 6 2 15 9 14 Afslut 0 266 "Udfyld" 0 266 "Navn" 0 266 "X" 0 266 "Y" 0 266 "Hejs" 0 266 "Flag" 0 266 "Flyt" 0 266 "Flytbib" 0 266 "Enfil" 0 266 "Enfiler" 0 284 "User,EndDialog,HHH" "{0}" 1 6 3 15 9 14 Bibliotek 0 284 "User,EndDialog,HHH" "{0}" 1 0 32 1 0 271 "hlp" 1 0 264 "hlp" "Obib" 0 789 "Indl<\f>ser Ami Pro biblioteker ..." 0 41 50 "opretbib" 0 41 51 "Sletbib" 0 41 58 "dokhj<\f>lp" 0 41 59 "Tilbage" 0 286 "AmiVisd" "AmiDraw" "AMIPRO.INI" 13 8 5 0 269 13 8 6 0 268 13 8 7 0 798 13 8 8 0 1288 13 8 9 0 295 13 8 10 0 270 13 8 11 0 284 "Kernel,GetVersion,H" 13 8 12 0 286 "AmiPro" "IconPath" "AMIPRO.INI" 13 8 13 0 17 "{9}" 13 8 9 0 17 "{8}" 13 8 8 0 14 "{5}" 13 5 1 18 5 11 00000551 10 00000677 0 14 "{5}" 13 8 14 7 "," 0 15 "{5}" "{14}" 1 13 0 805 &4 [X] 13 18 1 11 00000677 6 14 5 1 3 1 8 14 10 00000573 7 "\" 0 807 "{6}" 1 13 18 0 11 00000788 0 14 "{6}" 13 5 1 3 1 0 806 "{6}" [X] 13 8 15 10 00000799 6 6 8 15 7 "\" 0 807 "{11}" 1 13 18 0 11 00000913 0 14 "{11}" 13 5 1 3 1 0 806 "{11}" [X] 13 8 16 10 00000925 6 11 8 16 7 "\" 0 807 "{7}" 1 13 18 0 11 00001036 0 14 "{7}" 13 5 1 3 1 0 806 "{7}" [X] 13 8 17 10 00001047 6 7 8 17 7 "\" 0 807 "{8}" 1 13 18 0 11 00001158 0 14 "{8}" 13 5 1 3 1 0 806 "{8}" [X] 13 8 18 10 00001169 6 8 8 18 7 "\" 0 807 "{9}" 1 13 18 0 11 00001280 0 14 "{9}" 13 5 1 3 1 0 806 "{9}" [X] 13 8 19 10 00001291 6 9 8 19 7 "\" 0 807 "{10}" 1 13 18 0 11 00001405 0 14 "{10}" 13 5 1 3 1 0 806 "{10}" [X] 13 8 20 10 00001417 6 10 8 20 0 14 "{5}" 13 6 14 3 1 0 807 "{5}" [X] 13 8 21 0 17 "{21}" 13 8 21 0 31 1018 "{18}" 0 31 1019 "{17}" 0 31 1020 "{15}" 0 31 1023 "{16}" 0 31 1022 "{21}" 0 31 1021 "{20}" 0 31 1024 "{13}" 0 31 1025 "{19}" 0 31 1007 "{12}" 0 789 "" 0 26 "." "Biblioteker" 13 8 22 6 22 5 -1 18 0 11 00001811 0 801 0 3 " - Intern fejl 1. Afslutter funktionen!" 6 3 15 9 10 00001853 6 22 5 0 18 0 11 00001853 6 3 15 9 0 32 0 6 3 15 9 14 Opretbib 0 32 1 0 271 "hlp" 1 0 264 "hlp" "Opr" 0 41 58 "dokhj<\f>lp" 5 1 0 26 "." "Opretbib" 13 0 805 &5 [X] 13 18 4 11 00001230 0 27 8000 13 8 6 0 14 "{6}" 13 5 1 18 5 11 00000218 10 00000855 0 806 "{6}" 3 13 8 7 0 14 "{7}" 13 5 1 3 1 0 807 "{7}" [X] 13 8 8 6 8 7 ":\" 18 0 11 00000815 7 "\" 0 807 "{6}" 1 13 18 0 11 00000436 0 14 "{6}" 13 5 1 3 1 0 806 "{6}" [X] 13 8 9 10 00000467 6 6 8 9 0 18 "{9}" 13 8 9 0 14 "{9}" 13 8 10 7 "\" 0 15 "{9}" "{10}" 1 13 0 805 &4 [X] 13 18 1 11 00000593 6 10 5 1 3 1 8 10 10 00000489 0 14 "{9}" 13 6 10 3 1 0 807 "{9}" [X] 13 8 11 0 14 "{11}" 13 5 8 18 3 11 00000815 0 801 0 3 "Navnet du har givet dit bibliotek er for langt, der m<\e> h<\x>jst indg<\e> 8 bogstaver i navnet..." 10 00000021 0 14 "{9}" 13 5 3 18 4 11 00000959 0 801 0 3 "- Du skulle jo indtaste et bibliotek??? Pr<\x>v en gang til..." 10 00000021 10 00001177 5 -1 0 780 "{9}" 13 18 0 11 00001120 0 801 0 3 "- Kunne ikke oprette {9}. Er der angivet en rigtig sti? Pr<\x>v igen..." 0 32 0 6 3 15 9 10 00001177 0 3 " Biblioteket {9} er succesfuldt blevet oprettet !" 0 32 0 0 264 "hlp" "Obib" 6 3 15 9 10 00000078 0 264 "hlp" "Obib" 0 32 0 6 3 15 9 14 Sletbib 0 32 1 0 271 "bibliotek" 1 0 271 "hlp" 1 0 264 "Hlp" "Spr" 0 41 58 "dokhj<\f>lp" 5 1 0 26 "." "Sletbib" 13 0 805 &4 [X] 13 18 4 11 00000579 0 27 8000 13 8 5 7 "\" 0 807 "{5}" 1 13 18 0 11 00000294 0 14 "{5}" 13 5 1 3 1 0 806 "{5}" [X] 13 8 6 10 00000304 6 5 8 6 0 18 "{6}" 13 8 6 0 264 "bibliotek" "{6}" 0 14 "{6}" 13 5 3 18 4 11 00000494 0 801 0 3 "- Du skulle jo indtaste et bibliotek??? Pr<\x>v en gang til..." 10 00000020 10 00000526 16 sletbibnu "{0}" "{1}" "{2}" 0 32 0 0 264 "hlp" "Obib" 6 3 15 9 10 00000098 0 264 "hlp" "Obib" 0 32 0 6 3 15 9 14 Sletbibnu 0 32 1 0 271 "Hlp" 1 0 264 "Hlp" "Janej" 0 41 58 "DokHj<\f>lp" 0 265 "bibliotek" 13 8 5 0 31 1004 "{5}" 5 1 0 26 "." "Sletbibnu" 13 0 805 &4 [X] 13 18 4 11 00000276 16 Sletkat "{0}" "{1}" "{2}" 0 266 "Bibliotek" 0 32 0 6 3 15 9 10 00000126 0 266 "bibliotek" 16 Sletbib "{0}" "{1}" "{2}" 0 32 0 6 3 15 9 14 Sletkat 0 32 1 0 265 "bibliotek" 13 8 4 5 -1 0 777 "{4}" 13 18 0 11 00000275 0 801 0 3 "{4} kan ikke slettes! Check om du har tastet rigtigt. (Biblioteket SKAL v<\f>re tomt!!!)" 0 266 "bibliotek" 0 32 0 16 Sletbib "{0}" "{1}" "{2}" 6 3 15 9 10 00000348 0 3 "Biblioteket {4} er succesfuldt blevet slettet!" 0 266 "bibliotek" 0 32 0 6 3 15 9 14 slet 0 284 "User,EndDialog,HHH" "{0}" 1 0 32 1 0 271 "Filerne" 1 0 271 "hlp" 1 0 271 "sletf" 1 0 264 "Sletf" 0 0 264 "hlp" "Slet" 0 41 9001 "Slether" 0 41 58 "dokhj<\f>lp" 0 41 59 "Tilbage" 0 290 13 8 5 0 31 9001 "{5}*.sam" 5 18 0 26 "." "sletning" 13 0 805 &4 [X] 13 18 4 11 00000358 0 266 "Sletf" 0 32 0 6 3 15 9 10 00000242 0 32 0 16 Sletnu "{0}" "{1}" "{2}" 0 266 "Sletf" 6 3 15 9 14 Slether 0 32 1 0 42 "{0}" 9001 13 8 4 0 806 "{4}" 1 13 0 18 [X] 13 8 5 0 14 "{4}" 13 5 1 3 1 0 807 "{4}" [X] 13 8 6 0 16 "{5}" "{6}" 13 8 7 0 43 "{0}" 1000 "{7}" 0 264 "Filerne" "{7}" 0 264 "Sletf" 1 0 32 0 6 3 15 9 14 Sletnu 0 32 1 0 271 "hlp" 1 0 264 "hlp" "Janej" 0 802 13 8 5 0 265 "Filerne" 13 8 6 0 41 58 "Dokhj<\f>lp" 0 265 "Sletf" 13 5 0 18 0 11 00000189 10 00000229 10 00000943 0 14 "{6}" 13 5 0 18 0 11 00000315 0 801 0 3 " - Du har ikke valgt nogen fil, Pr<\x>v igen!" 10 00000882 10 00000943 0 18 "{6}" 13 8 6 0 31 1082 "{6}" 5 1 0 26 "." "janej" 13 0 805 &4 [X] 13 18 4 11 00000460 0 266 "Filerne" 10 00000882 10 00000353 0 290 13 8 7 0 296 1 0 17 "{6}" 13 8 6 0 17 "{7}" 13 8 7 0 789 "Sletter {6} fra {7}..." 5 -1 0 779 "{6}" 13 18 0 11 00000759 0 296 0 0 789 "" 0 801 0 3 "- Dukumentet kunne ikke slettes... Check om filen eksisterer, og pr<\x>v igen." 10 00000882 0 32 0 6 3 15 9 10 00000943 0 789 "" 0 18 "{7}" 13 8 7 0 18 "{6}" 13 8 6 0 3 "Dokumentet {6} er slettet fra bibliotek {7}..." 0 296 0 0 32 0 0 266 "Filerne" 0 296 0 0 32 0 16 Slet "{0}" "{1}" "{2}" 0 296 0 0 32 0 6 3 15 9 14 Kopiere 0 284 "User,EndDialog,HHH" "{0}" 1 0 271 "hlp" 1 0 271 "enfil" 1 0 264 "hlp" "Kopiering" 0 264 "enfil" 0 0 32 1 0 802 13 8 5 0 41 50 "kopiernu" 0 41 9001 "filnu" 0 41 58 "dokhj<\f>lp" 0 41 59 "Tilbage" 0 290 13 8 6 0 17 "{6}" 13 8 6 0 798 13 8 7 0 31 1006 "" 0 31 1007 "" 0 31 1014 "" 0 31 1002 "" 0 31 9001 "{6}*.sam" 0 17 "{7}" 13 0 31 8002 [X] 0 26 "." "Kopiering" 13 8 8 6 8 5 -1 18 0 11 00000538 0 801 0 3 " - Intern fejl 1. Afslutter funktionen!" 0 32 0 6 3 15 9 10 00000582 6 8 5 0 18 0 11 00000582 0 266 "enfil" 0 32 0 6 3 15 9 14 Filnu 0 32 1 0 42 "{0}" 9001 13 8 4 0 264 "enfil" "{4}" 0 806 "{4}" 1 13 0 18 [X] 13 8 5 0 14 "{4}" 13 5 1 3 1 0 807 "{4}" [X] 13 8 6 0 16 "{5}" "{6}" 13 8 7 0 43 "{0}" 1002 "{7}" 0 43 "{0}" 1006 "" 0 43 "{0}" 1007 "" 0 43 "{0}" 1014 "" 0 32 0 6 3 15 9 14 kopiernu 0 32 1 0 290 13 8 4 0 265 "enfil" 13 8 5 7 "{4}{5}" 8 6 0 265 "enfil" 13 5 0 18 0 11 00000134 10 00000351 0 42 "{0}" 8002 13 8 7 0 807 "{7}" 1 13 7 "\" 18 1 11 00000220 7 "{7}\" 8 7 7 "{7}{5}" 8 8 0 18 "{5}" 13 8 5 0 18 "{7}" 13 8 7 0 14 "{7}" 13 5 2 18 5 0 14 "{5}" 13 5 5 18 5 1 2 11 00000454 0 801 0 3 "Der er ikke angivet fil eller bibliotek...Pr<\x>v igen!" 0 32 0 6 3 15 9 10 00001340 0 296 1 0 17 "{5}" 13 8 5 0 17 "{7}" 13 8 7 0 280 "{8}" 1 13 8 9 0 280 "{6}" 1 13 8 10 6 9 6 10 18 0 11 00000849 0 14 "{5}" 13 5 1 3 1 0 807 "{5}" [X] 13 8 11 7 "_{11}" 8 5 7 "{7}{5}" 8 8 0 18 "{9}" 13 8 9 0 18 "{5}" 13 8 5 0 801 0 3 "Der eksisterer allerede et dokument af samme navn i det nye bibliotek. Navnet p<\e> Dokumentet: {9} er <\f>ndret til: {5}." 0 789 "Kopi<\i>re {5} til {7}..." 5 0 0 803 "{6}" "{8}" 13 18 0 11 00001086 0 789 "" 0 801 0 18 "{5}" 13 8 5 0 3 "- Det kunne ikke lade sig g<\x>re at kopi<\i>re {5}. Check om filen og biblioteket eksisterer..." 10 00001340 0 789 "" 0 18 "{5}" 13 8 5 0 18 "{7}" 13 8 7 0 3 "Dokumentet: {5}, blev kopi<\i>ret til: {7}.." 0 296 0 0 271 "setfil" 1 0 271 "setbib" 1 0 264 "setfil" "{5}" 0 264 "setbib" "{7}" 16 filset "{0}" "{1}" "{2}" 0 266 "setfil" 0 266 "SetBib" 0 32 0 6 3 15 9 14 filset 0 265 "setFil" 13 8 4 0 265 "setbib" 13 8 5 0 17 "{5}" 13 8 5 0 17 "{4}" 13 8 4 0 806 "{4}" 1 13 0 18 [X] 13 8 6 0 14 "{4}" 13 5 1 3 1 0 807 "{4}" [X] 13 8 7 0 16 "{6}" "{7}" 13 8 8 0 14 "{5}" 13 5 3 18 0 11 00000283 6 5 8 9 10 00000335 0 14 "{5}" 13 5 1 3 1 0 806 "{5}" [X] 13 8 9 0 16 "{8}" " ->->->->" 13 8 8 0 43 "{0}" 1006 "{8}" 0 14 "{9}" 13 5 16 18 3 11 00000648 0 806 "{9}" 16 13 8 10 0 14 "{9}" 13 0 14 "{10}" 13 3 1 0 807 "{9}" [X] 13 8 11 0 16 " ...." "{11}" 13 8 12 0 16 "->-> " "{10}" 13 8 13 0 43 "{0}" 1014 "{13}" 0 43 "{0}" 1007 "{12}" 10 00000722 0 16 "->-> " "{9}" 13 8 13 0 43 "{0}" 1014 "{13}" 0 43 "{0}" 1007 "" 6 3 15 9 14 Check 0 798 13 8 1 0 286 "Logs" "Logs" "{1}Docwork1.hlp" 13 8 2 0 3 "Antal opstarter: {2}." 6 0 15 9 14 omd°b 0 284 "User,EndDialog,HHH" "{0}" 1 0 32 1 0 41 58 "dokhj<\f>lp" 0 41 59 "Tilbage" 0 41 61 "Omd<\x>bnu" 0 271 "hlp" 1 0 264 "hlp" "Nytnavn" 0 268 13 8 4 0 31 9001 "{dir2*.sam" 0 31 8000 "*.SAM" 0 31 8002 "*.SAM" 0 26 "." "Renam" 13 8 5 6 5 5 -1 18 0 11 00000379 0 801 0 3 " - Intern fejl 1. Afslutter funktionen!" 0 32 0 6 3 15 9 10 00000428 6 5 5 0 18 0 11 00000428 0 32 0 6 3 15 9 0 32 0 6 3 15 9 14 omd°bnu 0 32 1 0 42 "{0}" 8000 13 8 4 0 42 "{0}" 8002 13 8 5 0 14 "{4}" 13 5 5 18 5 0 14 "{5}" 13 5 5 18 5 1 2 11 00000247 0 801 0 3 "Indtast venligst 2 dokument-navne med endelsen '*.SAM'!" 0 32 0 6 3 15 9 10 00000663 6 4 6 5 18 0 11 00000370 0 801 0 3 "Husk at angive 2 forskellige Dokument-navne..." 0 32 0 6 3 15 9 10 00000663 0 296 1 5 -1 0 778 "{4}" "{5}" 13 18 0 11 00000555 0 801 0 3 "Det nye navn du gav filen eksistere i forvejen. Eller ogs<\e> findes filen, du vil omd<\x>be ikke..." 10 00000663 0 18 "{4}" 13 8 4 0 18 "{5}" 13 8 5 0 3 "Dokumentet '{4}' er blevet omd<\x>bt til: '{5}'." 0 296 0 0 32 0 6 3 15 9 DIALOG Renam -2134376448 14 68 51 235 116 "" "" "Omd°b dokument..." FONT 8 "Helv" 187 2 41 17 61 1342373889 "button" "&Omd°b..." 0 187 21 41 17 2 1342373889 "button" "AnnullΘr" 0 68 37 114 10 1060 1342177280 "static" "Angiv dokument til omd°bning:" 0 68 48 102 12 8000 1350631552 "edit" "" 0 68 82 116 10 1070 1342177280 "static" "Angiv nyt navn til dokumentet:" 0 68 93 102 12 8002 1350631552 "edit" "" 0 103 20 73 9 7999 1342177280 "static" "" 0 23 20 79 9 1073 1342177282 "static" "Nuvµrende bibliotek:" 0 3 43 62 72 9001 1352728579 "listbox" "" 0 192 78 31 28 1000 1342177290 "static" "dok.bmp" 0 68 67 165 10 1071 1342177281 "static" "--------------------------------------------------------------------------------------------------------" 0 45 2 117 10 2000 1342177280 "static" "Giv dine dokumenter et nyt navn..." 0 187 40 41 17 58 1342242817 "button" "&Hjµlp..." 0 3 31 40 10 1001 1342177280 "static" "Bibliotek:" 0 DIALOG Begynd -2134376448 20 73 10 205 158 "" "" "Arrangering af dokumenter..." FONT 9 "Helv" 9 92 54 20 50 1342373889 "button" "&Kopier..." 0 69 92 54 20 51 1342373889 "button" "Om&d°b..." 0 9 114 54 20 52 1342373889 "button" "&Slet..." 0 69 114 54 20 53 1342373889 "button" "&Flyt..." 0 9 136 54 20 54 1342373889 "button" "Op&ret..." 0 69 136 54 20 55 1342373889 "button" "&Biblioteker..." 0 145 8 54 20 2 1342373889 "button" "Afslut" 0 129 136 70 20 56 1342373889 "button" "&Om Docwork 1.0..->" 0 154 60 36 37 57 1342373896 "button" "Skifter.bmp" 0 127 104 74 10 1000 1342177281 "static" "Hej" 0 127 114 74 20 1001 1342177281 "static" "" 0 3 2 137 88 21 1342308359 "button" "Lidt om Docwork 1.0:" 0 4 13 134 76 1002 1342177280 "static" "" 0 5 174 74 17 1003 1342177280 "static" "Docwork 1.0 er skrevet i Ami Pro MakroSprog." 0 5 190 61 10 1004 1342177281 "static" "@ 1993." 0 133 170 75 10 1006 1342177280 "static" "<- Med venlig hilsen" 0 133 200 75 10 1007 1342177280 "static" "-> Jannik Graversen" 0 83 162 48 52 1005 1342177290 "static" "Galmand.bmp" 0 145 33 54 20 58 1342242817 "button" "&Info..." 0 128 214 2 2 59 1342373889 "button" "" 0 DIALOG Dokhlp -2134376448 3 86 45 200 146 "" "" "Hjµlp til Dokument-behandling..." FONT 9 "Helv" 9 5 146 135 20 1342308359 "button" "Forklaring:" 0 11 17 142 120 1001 1342177280 "static" "" 0 162 15 28 27 1 1342373896 "button" "hjbill.bmp" 0 DIALOG Kopiering -2134376448 16 67 20 208 154 "" "" "Kopiering af dokumenter..." FONT 8 "Helv" 46 42 67 73 9001 1352728579 "listbox" "" 0 4 3 66 10 1001 1342177281 "static" "Vµlg et dokument:" 0 46 18 88 10 7999 1342177280 "static" "(Her vises bibliotek)" 0 158 26 43 17 2 1342373888 "button" "AnnullΘr" 0 158 3 43 17 50 1342373888 "button" "&KopiΘr..." 0 6 137 129 12 8002 1350631552 "edit" "" 0 4 18 41 10 1010 1342177282 "static" "Bibliotek:" 0 4 30 41 10 1005 1342177282 "static" "Valgt fil:" 0 14 63 29 19 1000 1342177290 "static" "floppy.bmp" 0 46 30 81 10 1002 1342177280 "static" "" 0 117 68 85 64 21 1342308359 "button" "Kopiering" 0 118 86 83 9 1006 1342177281 "static" "" 0 118 103 83 10 1014 1342177280 "static" "" 0 118 113 83 10 1007 1342177280 "static" "" 0 6 116 109 20 1003 1342177280 "static" "Angiv hvilket bibliotek, dokumentet skal kopieres til:" 0 158 48 43 17 58 1342242817 "button" "&Hjµlp..." 0 DIALOG Sletning -2134376448 12 78 50 183 103 "" "" "Sletning af dokumenter..." FONT 8 "Helv" 73 21 59 76 9001 1352728579 "listbox" "" 0 3 1 120 10 1001 1342177280 "static" "Vµlg dokument(er) til sletning:" 0 3 28 67 10 7999 1342177280 "static" "(Her vises bibliotek)" 0 138 25 40 14 18 1342373888 "button" "AnnullΘr" 0 138 7 40 14 2 1342373889 "button" "&Slet..." 0 3 17 55 10 1010 1342177280 "static" "Bibliotek:" 0 3 42 55 10 1005 1342177280 "static" "Valgt fil:" 0 3 70 62 10 1030 1342177280 "static" "" 0 3 88 64 9 1040 1342177280 "static" "" 0 3 80 62 8 1050 1342177280 "static" "" 0 3 52 63 10 1000 1342177280 "static" "" 0 138 43 40 14 58 1342242817 "button" "&Hjµlp..." 0 DIALOG janej -2134376448 6 87 51 172 94 "" "" "Advarsel!" FONT 8 "Helv" 16 8 134 10 1081 1342177281 "static" "Du er ved at slette dokumentet:" 0 2 44 164 10 1083 1342177281 "static" "Er du sikker pσ at du vil slette dokumentet?" 0 67 69 40 15 1 1342373889 "button" "Nej" 0 15 69 40 15 2 1342373889 "button" "Ja" 0 10 21 151 10 1082 1342177281 "static" "" 0 119 69 40 15 58 1342242817 "button" "&Hjµlp..." 0 DIALOG Biblioteker -2134376448 35 63 22 195 131 "" "" "Biblioteker..." 145 42 40 14 2 1342373889 "button" "Afbryd" 0 145 6 40 14 50 1342373889 "button" "&Opret..." 0 145 24 40 14 51 1342373889 "button" "&Slet..." 0 3 44 40 10 1001 1342177280 "static" "Dokumenter" 0 3 54 40 10 1002 1342177280 "static" "Formatsµt" 0 3 64 40 10 1003 1342177280 "static" "Makroer" 0 3 74 40 10 1004 1342177280 "static" "Tegninger" 0 3 84 40 10 1005 1342177280 "static" "Backup" 0 3 94 40 10 1006 1342177280 "static" "Smarticons" 0 3 107 40 10 1008 1342177280 "static" "Windows" 0 3 34 40 10 1009 1342177280 "static" "Ami Pro" 0 43 34 6 10 1010 1342177280 "static" "=" 0 43 44 6 10 1011 1342177280 "static" "=" 0 43 54 6 10 1012 1342177280 "static" "=" 0 43 64 6 10 1013 1342177280 "static" "=" 0 43 74 6 10 1014 1342177280 "static" "=" 0 43 84 6 10 1015 1342177280 "static" "=" 0 43 94 6 10 1016 1342177280 "static" "=" 0 42 107 6 10 1017 1342177280 "static" "=" 0 50 34 92 10 1018 1342177280 "static" "" 0 50 44 93 10 1019 1342177280 "static" "" 0 50 54 94 10 1020 1342177280 "static" "" 0 50 64 94 10 1021 1342177280 "static" "" 0 50 74 94 10 1022 1342177280 "static" "" 0 50 84 92 10 1023 1342177280 "static" "" 0 50 94 138 10 1024 1342177280 "static" "" 0 50 107 138 10 1025 1342177280 "static" "" 0 2 1 122 10 1026 1342177280 "static" "Opret eller slet dine egne biblioteker." 0 7 13 4 4 9001 1352728579 "listbox" "" 0 2 11 122 10 1027 1342177280 "static" "Nuvµrende bibliotek er :" 0 20 21 111 11 7999 1342177281 "static" "" 0 1 29 143 5 1029 1342177280 "static" "--------------------------------------------------------------------------------------------------" 0 145 60 40 14 58 1342242817 "button" "&Hjµlp..." 0 3 119 67 10 1000 1342177280 "static" "Windows Version:" 0 70 119 40 10 1007 1342177280 "static" "" 0 DIALOG opretbib -2134376448 6 87 70 176 55 "" "" "Opret bibliotek..." 5 22 119 12 8000 1350631552 "edit" "" 0 133 3 37 15 1 1342373889 "button" "&Opret" 0 133 21 37 15 2 1342373889 "button" "AnnullΘr" 0 5 1 116 10 1000 1342177280 "static" "Indtast navnet (fuld lµngde), pσ det" 0 5 11 110 10 1001 1342177280 "static" "nye bibliotek:" 0 133 38 37 15 58 1342242817 "button" "&Hjµlp..." 0 DIALOG Sletbib -2134376448 6 87 70 176 58 "" "" "Slet bibliotek..." 5 22 119 12 8000 1350631552 "edit" "" 0 133 3 37 15 1 1342373889 "button" "&Slet" 0 133 21 37 15 2 1342373889 "button" "AnnullΘr" 0 5 1 126 10 1000 1342177280 "static" "Indtast navnet (fuld lµngde), pσ bib-" 0 5 11 97 10 1001 1342177280 "static" "lioteket, som du vil slette :" 0 133 39 37 15 58 1342242817 "button" "&Hjµlp..." 0 DIALOG Sletbibnu -2134376448 6 88 71 134 75 "" "" "Advarsel !" 3 52 40 14 1 1342373889 "button" "Ja" 0 46 52 40 14 2 1342373889 "button" "Nej" 0 9 8 110 10 1002 1342177281 "static" "Er du sikker pσ at du vil slette" 0 9 18 50 10 1003 1342177281 "static" "biblioteket:" 0 9 31 116 10 1004 1342177281 "static" "" 0 89 52 40 14 58 1342242817 "button" "&Hjµlp..." 0 DIALOG Opretfil -2134376448 8 95 77 163 92 "" "" "Opret nyt dokument..." FONT 8 "Helv" 5 10 100 10 1000 1342177280 "static" "Indtast navn pσ det" 0 5 20 106 10 1001 1342177280 "static" "nye dokument. (Max. 8 tegn)." 0 5 47 80 12 8000 1350631552 "edit" "*.SAM" 0 5 36 30 10 1002 1342177280 "static" "Navn :" 0 113 4 47 18 1 1342373889 "button" "&Opret..." 0 113 26 47 18 2 1342373889 "button" "AnnullΘr" 0 5 68 107 12 21 1342242819 "button" "&Luk nuvµrende dokument." 0 113 48 47 18 58 1342242817 "button" "&Hjµlp..." 0 DIALOG Flytning -2134376448 17 62 23 208 154 "" "" "Flytning af dokument..." FONT 8 "Helv" 46 43 67 73 9001 1352728579 "listbox" "" 0 1 3 66 10 1001 1342177281 "static" "Vµlg et dokument:" 0 46 18 88 10 7999 1342177280 "static" "" 0 158 24 43 17 2 1342373888 "button" "AnnullΘr" 0 158 3 43 17 1 1342373888 "button" "&Flyt..." 0 6 138 128 12 8002 1350631552 "edit" "" 0 8 18 36 10 1010 1342177282 "static" "Bibliotek:" 0 9 30 35 10 1005 1342177282 "static" "Valgt fil:" 0 46 30 87 10 1002 1342177280 "Static" "" 0 117 89 84 12 1040 1342177281 "static" "" 0 117 115 84 11 1030 1342177281 "static" "" 0 117 105 79 10 1029 1342177280 "static" "" 0 117 79 83 10 1006 1342177280 "static" "" 0 116 61 87 69 20 1342308359 "button" "Handling:" 0 14 62 29 21 1000 1342177290 "static" "floppy.bmp" 0 6 117 108 20 1012 1342177280 "static" "Angiv hvilket bibliotek, dokumentet skal flyttes til:" 0 158 45 43 17 58 1342242817 "button" "&Hjµlp..." 0 00115150