home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78b98.iso
/
Smart30
/
ENGLISH
/
PRODUCTS
/
LOTUS018.DSK
/
SPECIALF.SMM
< prev
next >
Wrap
INI File
|
1992-06-18
|
17KB
|
1,392 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
QMS-PS 810
[port]
LPT1:
[lang]
1
[desc]
Install special features for Ami Pro
708887093
13
706329947
231
5
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial
240
0
16384
[algn]
1
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Header
9
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Header
0
0
[tag]
Footer
11
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Footer
0
0
[tag]
Outline3
12
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
3
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline3
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
5
32 0 19 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
65 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
98 0 43 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
131 0 66 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
154 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]
@Title@<:#284,9360>'declares and defines
@Subhead@<:#240,9360>declare loadlist();
@Subhead@<:#240,9360>declare savelist();
@Title@<:#284,9360>function menus()
@Subhead@<:#240,9360>rmac=getrunningmacrofile$()
@Subhead@<:#240,9360>deletemenuitem(1, "Too&ls", "Speci&al Features...")
@Subhead@<:#480,9360>insertmenuitem(1, "Too&ls", 16, "Speci&al Features...", "{rmac}!specfeat" "Install and remove special features for Ami Pro.")
@Subhead@<:#240,9360>zmkauto="_autorun.smm!zmkauto"
@Subhead@<:#240,9360>calli zmkauto("specialf.smm")
@Subhead@<:#240,9360>end function
@Title@<:#284,9360>function specfeat()
@Subhead@<:#240,9360>ignorekeyboard(2)
@Subhead@<:#240,9360>filledit (20, True)
@Subhead@<:#240,9360>box = dialogbox(".", "ctrlbox")
@Subhead@<:#240,9360>if box = 0 or box = 2
@Subhead@<:#240,9360> exit function
@Subhead@<:#240,9360>endif
@Subhead@<:#240,9360>if getdialogfield$(20)
@Subhead@<:#240,9360> call opengoodies()
@Subhead@<:#240,9360>elseif getdialogfield$(21)
@Subhead@<:#240,9360> call _autorun.smm()
@Subhead@<:#240,9360>elseif getdialogfield$(22)
@Subhead@<:#240,9360> call amimenus.smm()
@Subhead@<:#240,9360>elseif getdialogfield$(23)
@Subhead@<:#240,9360> call removespecfeat()
@Subhead@<:#240,9360>endif
@Subhead@<:#240,9360>end function
@Title@<:#284,9360>function removespecfeat()
@Subhead@<:#240,9360>position=0
@Subhead@<:#240,9360>loadlist()
@Subhead@<:#240,9360>count=getglobalvar$("count")
@Subhead@<:#240,9360>dim namelist(count)
@Subhead@<:#240,9360>for i = 1 to count
@Subhead@<:#240,9360>namelist(i)=lcase$(getglobalarray$("loadem", i,))
@Subhead@<:#240,9360>txt=namelist(i)
@Subhead@<:#240,9360>next
@Subhead@<:#240,9360>position=arraysearch(&namelist, "specialf.smm")
@Subhead@<:#240,9360>if position != 0
@Subhead@<:#240,9360> result=arraydelete(&namelist, position)
@Subhead@<:#240,9360> newcount=arraysize(&namelist)
@Subhead@<:#240,9360> setglobalvar("count", newcount)
@Subhead@<:#240,9360> for i = 1 to newcount
@Subhead@<:#240,9360> setglobalarray("loadem", i, namelist(i))
@Subhead@<:#240,9360> next
@Subhead@<:#240,9360>endif
@Subhead@<:#240,9360>savelist()
@Subhead@<:#240,9360>deletemenuitem(1, "Too&ls", "Speci&al Features...")
@Subhead@<:#240,9360>freeglobalvar("count")
@Subhead@<:#240,9360>freeglobalvar("loadem")
@Subhead@<:#240,9360>ret=chr$(13)
@Subhead@<:#240,9360>message("To restore this menu item to the Tools menu, {ret}run the SPECIALF macro.", "Special Features")
@Subhead@<:#240,9360>end function
@Title@<:#284,9360>function loadlist() <:f240,BArial,0,0,255>' load list of autorun macros from amiauto.cfg file<:f>
@Subhead@<:#240,9360>allocglobalvar("loadem", 50)
@Subhead@<:#240,9360>allocglobalvar("count", 1)
@Subhead@<:#240,9360>ignorekeyboard(2)
@Subhead@<:#240,9360>hourglass(1)
@Subhead@<:#240,9360>windir = getwindowsdirectory$()
@Subhead@<:#240,9360>autofile = strcat$(windir, "amiauto.cfg")
@Subhead@<:#240,9360>ck = findfirst$(autofile, 33)
@Subhead@<:#240,9360>if ck = ""
@Subhead@<:#240,9360> option = "w"
@Subhead@<:#240,9360>else
@Subhead@<:#240,9360> option = "r"
@Subhead@<:#240,9360>endif
@Subhead@<:#240,9360>fh = fopen(autofile, option)
@Subhead@<:#240,9360>if fh << 1
@Subhead@<:#240,9360> message("Unable to create file AMIAUTO.CFG")
@Subhead@<:#240,9360> return -1
@Subhead@<:#240,9360>endif
@Subhead@<:#240,9360>if option = "w"
@Subhead@<:#240,9360> goto endit
@Subhead@<:#240,9360>endif
@Subhead@<:#240,9360>onerror endit
@Subhead@<:#240,9360>oncancel endit
@Subhead@<:#240,9360>i = 0
@Subhead@<:#240,9360>while (1)
@Subhead@<:#240,9360> txt = fgets$(fh)
@Subhead@<:#240,9360> if txt = -1
@Subhead@<:#240,9360> break
@Subhead@<:#240,9360> endif
@Subhead@<:#240,9360> i = i + 1
@Subhead@<:#240,9360> setglobalarray("loadem", i, txt)
@Subhead@<:#240,9360>wend
@Subhead@<:#240,9360>endit:
@Subhead@<:#240,9360>fclose(fh)
@Subhead@<:#240,9360>setglobalvar("count", i)
@Subhead@<:#240,9360>hourglass(0)
@Subhead@<:#240,9360>end function
@Title@<:#284,9360>function savelist() <:f240,BArial,0,0,255>' write out list of macros to be autorun<:f>
@Subhead@<:#240,9360>ignorekeyboard(2)
@Subhead@<:#240,9360>hourglass(1)
@Subhead@<:#240,9360>windir = getwindowsdirectory$()
@Subhead@<:#240,9360>autofile = strcat$(windir, "amiauto.cfg")
@Subhead@<:#240,9360>defstr txt;
@Subhead@<:#240,9360>fh = fopen(autofile, "w")
@Subhead@<:#240,9360>if fh << 1
@Subhead@<:#240,9360> message("Unable to save file AMIAUTO.CFG")
@Subhead@<:#240,9360> hourglass(0)
@Subhead@<:#240,9360> return -1
@Subhead@<:#240,9360>endif
@Subhead@<:#240,9360>onerror endit
@Subhead@<:#240,9360>oncancel endit
@Subhead@<:#240,9360>count = getglobalvar$("count")
@Subhead@<:#240,9360>for i = 1 to count
@Subhead@<:#240,9360> if assign(&txt, getglobalarray$("loadem", i)) <<<;> ""
@Subhead@<:#240,9360> fputs(fh, txt)
@Subhead@<:#240,9360> endif
@Subhead@<:#240,9360>next
@Subhead@<:#240,9360>endit:
@Subhead@<:#240,9360>fclose(fh)
@Subhead@<:#240,9360>hourglass(0)
@Subhead@<:#240,9360>'call zproglod("")
@Subhead@<:#240,9360>end function
@Title@<:#284,9360>function opengoodies()
@Subhead@<:#240,9360> defstr count;
@Subhead@<:#240,9360> if assign(&count, getopenfilecount()) << 1
@Subhead@<:#240,9360> goto jump
@Subhead@<:#240,9360> endif
@Subhead@<:#284,9360> dim mdifiles(count) <:f240,BArial,0,0,255>' is goodies open?<:f>
@Subhead@<:#240,9360> getopenfilenames(&mdifiles)
@Subhead@<:#240,9360> alreadyopen = 0
@Subhead@<:#240,9360> for i = 1 to count
@Subhead@<:#240,9360> if instr(1, lcase$(mdifiles(i)), "goodies.sam") <;> 0
@Subhead@<:#240,9360> alreadyopen = 1
@Subhead@<:#240,9360> break
@Subhead@<:#240,9360> endif
@Subhead@<:#240,9360> next
@Subhead@<:#240,9360> if alreadyopen = 0
@Subhead@<:#240,9360> opts = 1
@Subhead@<:#284,9360> if count << 1 <:f240,BArial,0,0,255>' didn't have a mdi window<:f>
@Subhead@<:#240,9360> jump:
@Subhead@<:#240,9360> defstyle = getprofilestring$("amipro", "defstyle", "amipro.ini")
@Subhead@<:#284,9360> new(defstyle, 0, 0) <:f240,BArial,0,0,255>' open window<:f>
@Subhead@<:#240,9360> opts = 129
@Subhead@<:#240,9360> endif
@Subhead@<:#240,9360> FileOpen(strcat$(getdocpath$(), "goodies.sam"), opts, "")
@Subhead@<:#240,9360> else
@Subhead@<:#240,9360> appmaximize("goodies.sam")
@Subhead@<:#240,9360> layoutmode()
@Subhead@<:#240,9360> endif
@Subhead@<:#240,9360>end function
@Title@DIALOG ctrlbox
@Subhead@-2134376448 8 114 66 212 80 "" "" "Special Features"
@Subhead@FONT 8 "Helv"
@Subhead@4 3 152 12 20 1342242825 "button" "Read a &description of the special features" 0
@Subhead@4 17 138 13 21 1342242825 "button" "&Install special features" 0
@Subhead@4 41 170 12 22 1342242825 "button" "Install a special feature on an Ami Pro &menu." 0
@Subhead@4 62 200 12 23 1342242825 "button" "&Remove the Special Features item from the Ami Pro menu" 0
@Subhead@168 3 40 14 1 1342373889 "button" "OK" 0
@Subhead@168 19 40 14 2 1342373888 "button" "Cancel" 0
@Subhead@12 29 125 10 1000 1342177280 "static" " to automatically load with Ami Pro." 0
@Subhead@14 52 138 10 1001 1342177280 "static" "or assign a keyboard accelerator." 0
@Subhead@END DIALOG
>
[Embedded]
00012754
>
[macsum] 7
menus 0 0 3 3
specfeat 245 0 2 10
removespecfeat 592 0 9 27
loadlist 1317 0 8 52
savelist 1917 0 7 89
opengoodies 2385 0 7 114
ctrlbox 2970 0 -1 142
[macse]
14 menus
0 802
13
8 1
0 520 1 "Too&ls" "Speci&al Features..."
0 527 1 "Too&ls" 16 "Speci&al Features..." "{1}!specfeat" "Install and remove special features for Ami Pro."
7 "_autorun.smm!zmkauto"
8 2
16 "{2}" "specialf.smm"
6 0
15
9
14 specfeat
0 32 2
0 31 20 1
0 26 "." "ctrlbox"
13
8 1
6 1
5 0
18 0
6 1
5 2
18 0
1 2
11 00000123
6 0
15
9
0 27 20
13
11 00000178
16 opengoodies
10 00000335
0 27 21
13
11 00000234
16 _autorun.smm
10 00000335
0 27 22
13
11 00000290
16 amimenus.smm
10 00000335
0 27 23
13
11 00000335
16 removespecfeat
6 0
15
9
14 removespecfeat
5 0
8 1
16 loadlist
0 265 "count"
13
8 2
6 2
21 3 [X]
5 1
8 4
6 2
6 4
18 2
12 00000166
10 00000246
5 1
6 4
3 0
8 4
10 00000091
6 4
0 273 "loadem" "{4}"
13
0 17 [X]
13
23 3
6 4
22 3
8 5
10 00000133
0 1044 &3 "specialf.smm"
13
8 1
6 1
5 0
18 1
11 00000512
0 1042 &3 "{1}"
13
8 6
0 1046 &3
13
8 7
0 264 "count" "{7}"
5 1
8 4
6 7
6 4
18 2
12 00000462
10 00000512
5 1
6 4
3 0
8 4
10 00000387
6 4
22 3
0 272 "loadem" "{4}" [X]
10 00000429
16 savelist
0 520 1 "Too&ls" "Speci&al Features..."
0 266 "count"
0 266 "loadem"
0 39 13
13
8 8
0 3 "To restore this menu item to the Tools menu, {8}run the SPECIALF macro." "Special Features"
6 0
15
9
14 loadlist
0 271 "loadem" 50
0 271 "count" 1
0 32 2
0 296 1
0 1288
13
8 1
0 16 "{1}" "amiauto.cfg"
13
8 2
0 280 "{2}" 33
13
8 3
6 3
7 ""
18 0
11 00000198
7 "w"
8 4
10 00000210
7 "r"
8 4
0 259 "{2}" "{4}"
13
8 5
6 5
5 1
18 5
11 00000321
0 3 "Unable to create file AMIAUTO.CFG"
5 -1
15
9
6 4
7 "w"
18 0
11 00000365
10 00000545
20 00000545
19 00000545
5 0
8 6
5 1
11 00000545
0 257 "{5}"
13
8 7
6 7
5 -1
18 0
11 00000484
10 00000545
6 6
5 1
3 0
8 6
0 272 "loadem" "{6}" "{7}"
10 00000401
0 260 "{5}"
0 264 "count" "{6}"
0 296 0
6 0
15
9
14 savelist
0 32 2
0 296 1
0 1288
13
8 1
0 16 "{1}" "amiauto.cfg"
13
8 2
0 259 "{2}" "w"
13
8 4
6 4
5 1
18 5
11 00000198
0 3 "Unable to save file AMIAUTO.CFG"
0 296 0
5 -1
15
9
20 00000434
19 00000434
0 265 "count"
13
8 5
5 1
8 6
6 5
6 6
18 2
12 00000333
10 00000434
5 1
6 6
3 0
8 6
10 00000258
0 273 "loadem" "{6}"
13
0 805 &3 [X]
13
7 ""
18 1
11 00000421
0 258 "{4}" "{3}"
10 00000300
0 260 "{4}"
0 296 0
6 0
15
9
14 opengoodies
0 1050
13
0 805 &1 [X]
13
5 1
18 5
11 00000083
10 00000388
6 1
21 2 [X]
0 1051 &2
5 0
8 3
5 1
8 4
6 1
6 4
18 2
12 00000204
10 00000320
5 1
6 4
3 0
8 4
10 00000129
6 4
22 2
0 17 [X]
13
0 808 1 [X] "goodies.sam"
13
5 0
18 3
11 00000307
5 1
8 3
10 00000320
10 00000171
6 3
5 0
18 0
11 00000542
5 1
8 5
6 1
5 1
18 5
11 00000468
0 286 "amipro" "defstyle" "amipro.ini"
13
8 6
2 101 1 "{6}" 0 0
5 129
8 5
0 268
13
0 16 [X] "goodies.sam"
13
2 102 1 [X] "{5}" ""
10 00000573
0 1029 "goodies.sam"
2 210 1
6 0
15
9
DIALOG ctrlbox
-2134376448 8 114 66 212 80 "" "" "Special Features"
FONT 8 "Helv"
4 3 152 12 20 1342242825 "button" "Read a &description of the special features" 0
4 17 138 13 21 1342242825 "button" "&Install special features" 0
4 41 170 12 22 1342242825 "button" "Install a special feature on an Ami Pro &menu." 0
4 62 200 12 23 1342242825 "button" "&Remove the Special Features item from the Ami Pro menu" 0
168 3 40 14 1 1342373889 "button" "OK" 0
168 19 40 14 2 1342373888 "button" "Cancel" 0
12 29 125 10 1000 1342177280 "static" " to automatically load with Ami Pro." 0
14 52 138 10 1001 1342177280 "static" "or assign a keyboard accelerator." 0
00012779
