home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
WORDPRO6.EXE
/
123SMM.LIB
/
AMI123A.SMM
next >
Wrap
INI File
|
1994-01-07
|
8KB
|
677 lines
[ver]
4
[sty]
_default.sty
[charset]
82
ANSI (Windows, IBM CP 1252)
[PanoseFontTable]
5
5
TimesNewRomanPS
257
257
257
257
257
Arial MT
257
257
257
257
257
Helvetica
2818
1030
514
770
1026
Helv
2818
1029
514
770
1026
Times New Roman
514
774
1029
517
1027
[revisions]
0
[recfile]
*
1
1
3
8
0
0
[lang]
2
[desc]
757895132
1
746758596
119
0
0
0
0
0
0
[prn]
HP LaserJet IIISi PostScript
[port]
LPT3:
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[tag]
Body Text
2
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
0
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
0
1
1
144
144
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
0
0
0
0
1
1
1440
10800
0
[frght]
[lyfrm]
0
13184
0
14400
12240
15840
0
1
1
0 0 0 0 0 0 0
0
16777215
0
[frmlay]
15840
12240
1
1440
648
1
14472
1440
0
0
16777215
0
0
0
1
1440
10800
0
[txt]
<:s>
>
[hrght]
[lyfrm]
0
11136
0
0
12240
1440
0
1
1
0 0 0 0 0 0 0
0
16777215
0
[frmlay]
1440
12240
1
1440
72
1
648
1440
0
0
16777215
0
0
0
1
1440
10800
0
[txt]
<:s>
>
[elay]
[lay]
1
513
[rght]
15840
12240
1
648
1440
1
1440
432
0
0
16777215
1
0
2
1
648
11808
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
[frght]
[lyfrm]
0
13184
0
14400
12240
15840
0
1
1
0 0 0 0 0 0 0
0
16777215
0
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
0
16777215
0
0
0
1
1440
10800
2
2
4680
3
9360
[txt]
<:s><:#P30670848,P927990>
>
[hrght]
[lyfrm]
0
11136
0
0
12240
1440
0
1
1
0 0 0 0 0 0 0
0
16777215
0
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
0
16777215
0
0
0
1
1440
10800
1
3
9360
[txt]
<:s><:#P30670848,P927990>
>
[elay]
[l1]
1
[edoc]
<:s><:#P36569088,P927990>FUNCTION MainDialog()
<:s><:#P36569088,P927990> IgnoreKeyboard(2) '/* Turn off keyboard interruptions */
<:s><:#P36569088,P927990> returnvalue = 0
<:s><:#P36569088,P927990> SetDlgCallback(8000, "WatchBox")
<:s><:#P36569088,P927990> SetDlgCallback(24, "WatchBox")
<:s><:#P36569088,P927990> SetDlgCallback(23, "WatchBox")
<:s><:#P36569088,P927990> SetDlgCallback(20, "WatchBox")
<:s><:#P36569088,P927990><:ZDDE_BookMark1> FillEdit(24, TRUE)
<:s><:#P36569088,P927990> dlgretval = dialogBox("","ami123a.dlg")<:Z~DDE_BookMark1>
<:s><:#P36569088,P927990> if (dlgretval = -1) '/* Major problem */
<:s><:#P36569088,P927990> password = -1
<:s><:#P36569088,P927990> else
<:s><:#P36569088,P927990> if (dlgretval = 1) '/* Success*/
<:s><:#P36569088,P927990> entirefile = GetDialogField$(24)
<:s><:#P36569088,P927990> activewrk = GetDialogField$(23)
<:s><:#P36569088,P927990> range = GetDialogField$(20)
<:s><:#P36569088,P927990> if (entirefile = TRUE)
<:s><:#P36569088,P927990> .UserInterface.Macro.NamedSetProperty("button","entire")
<:s><:#P36569088,P927990> returnvalue = 1
<:s><:#P36569088,P927990> else
<:s><:#P36569088,P927990> if (activewrk = TRUE)
<:s><:#P36569088,P927990> .UserInterface.Macro.NamedSetProperty("button","active")
<:s><:#P36569088,P927990> returnvalue = 1
<:s><:#P36569088,P927990> else
<:s><:#P36569088,P927990> if (range = TRUE)
<:s><:#P36569088,P927990> .UserInterface.Macro.NamedSetProperty("button","selected")
<:s><:#P36569088,P927990> fields = GetDialogField$(8000)
<:s><:#P36569088,P927990> .UserInterface.Macro.NamedSetProperty("fields",fields)
<:s><:#P36569088,P927990> returnvalue = 1
<:s><:#P36569088,P927990> else '/* Paranoia */
<:s><:#P36569088,P927990> returnvalue = 0
<:s><:#P36569088,P927990> endif
<:s><:#P36569088,P927990> endif
<:s><:#P36569088,P927990> endif
<:s><:#P36569088,P927990> else '/*Canceled*/
<:s><:#P36569088,P927990> returnvalue = 0
<:s><:#P36569088,P927990> endif
<:s><:#P36569088,P927990> endif
<:s><:#P36569088,P927990> IgnoreKeyboard(0) ' Put keyboard back!
<:s><:#P36569088,P927990> return returnvalue
<:s><:#P36569088,P927990>END FUNCTION
<:s><:p<* >>
<:s><:#P36569088,P927990>
<:s><:#P36569088,P927990>FUNCTION WatchBox(hdlg, id, text)
<:s><:#P36569088,P927990> IgnoreKeyboard(2) '/* Turn off keyboard interruptions */
<:s><:#P36569088,P927990> SWITCH id
<:s><:#P36569088,P927990> CASE (24)
<:s><:#P36569088,P927990> DlgEnableControl(hdlg, 1, TRUE)
<:s><:#P36569088,P927990> DlgClearControl(hdlg, 8000)
<:s><:#P36569088,P927990> CASE (23)
<:s><:#P36569088,P927990> DlgEnableControl(hdlg, 1, TRUE)
<:s><:#P36569088,P927990> DlgClearControl(hdlg, 8000)
<:s><:#P36569088,P927990> CASE (20)
<:s><:#P36569088,P927990> DlgEnableControl(hdlg, 1, FALSE)
<:s><:#P36569088,P927990> CASE (8000)
<:s><:#P36569088,P927990> SetDlgItemText(hdlg, 20,TRUE)
<:s><:#P36569088,P927990> SetDlgItemText(hdlg, 24,FALSE)
<:s><:#P36569088,P927990> SetDlgItemText(hdlg, 23,FALSE)
<:s><:#P36569088,P927990> DlgEnableControl(hdlg, 1, TRUE)
<:s><:#P36569088,P927990> ENDSWITCH
<:s><:#P36569088,P927990> IgnoreKeyboard(0) ' Put keyboard back!
<:s><:#P36569088,P927990>END FUNCTION
<:s><:#P36569088,P927990>
>
[Embedded]
00006111
>
[macsum4] 2 20
MainDialog 0 0 8 0
WatchBox 1000 3 1 43
[macse]
14 MainDialog
29 0 MainDialog
17 1
0 32 2
17 2
29 1 returnvalue
5 0
8 1
17 3
0 41 8000 "WatchBox"
17 4
0 41 24 "WatchBox"
17 5
0 41 23 "WatchBox"
17 6
0 41 20 "WatchBox"
17 7
0 31 24 1
17 8
29 2 dlgretval
0 26 "" "ami123a.dlg"
13
8 2
17 9
6 2
5 -1
18 0
11 00000339
17 10
29 3 password
5 -1
8 3
10 00000947
17 12
6 2
5 1
18 0
11 00000930
17 13
29 4 entirefile
0 27 24
13
8 4
17 14
29 5 activewrk
0 27 23
13
8 5
17 15
29 6 range
0 27 20
13
8 6
17 16
6 4
5 1
18 0
11 00000603
17 17
32 2 101 57 96 "button" "entire"
17 18
5 1
8 1
10 00000917
17 20
6 5
5 1
18 0
11 00000711
17 21
32 2 101 57 96 "button" "active"
17 22
5 1
8 1
10 00000917
17 24
6 6
5 1
18 0
11 00000900
17 25
32 2 101 57 96 "button" "selected"
17 26
29 7 fields
0 27 8000
13
8 7
17 27
32 2 101 57 96 "fields" "{7}"
17 28
5 1
8 1
10 00000917
17 30
5 0
8 1
10 00000947
17 35
5 0
8 1
17 38
0 32 0
17 39
6 1
15
9
6 0
15
17 40
9
14 WatchBox
29 0 hdlg
29 1 id
29 2 text
29 3 WatchBox
17 1
0 32 2
17 2
5 24
6 1
18 0
11 00000167
17 4
0 53 "{0}" 1 1
17 5
0 54 "{0}" 8000
10 00000448
5 23
6 1
18 0
11 00000255
17 7
0 53 "{0}" 1 1
17 8
0 54 "{0}" 8000
10 00000448
5 20
6 1
18 0
11 00000321
17 10
0 53 "{0}" 1 0
10 00000448
5 8000
6 1
18 0
11 00000448
17 12
0 43 "{0}" 20 1
17 13
0 43 "{0}" 24 0
17 14
0 43 "{0}" 23 0
17 15
0 53 "{0}" 1 1
17 17
0 32 0
6 3
15
17 18
9
00006136