home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
WORDPRO6.EXE
/
123SMM.LIB
/
AMI123B.SMM
< prev
Wrap
INI File
|
1994-01-07
|
7KB
|
634 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]
757894737
1
746758596
128
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
[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>
>
[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>
>
[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(20, "WatchBox")
<:s><:#P36569088,P927990><:ZDDE_BookMark1> FillEdit(24, TRUE)
<:s><:#P36569088,P927990> dlgretval = dialogBox("","ami123b.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> 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 (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> 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> SetDlgItemText(hdlg, 20,FALSE)
<:s><:#P36569088,P927990> DlgClearControl(hdlg, 8000)
<:s><:#P36569088,P927990> CASE (20)
<:s><:#P36569088,P927990> SetDlgItemText(hdlg, 24,FALSE)
<: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> 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]
00005612
>
[macsum4] 2 20
MainDialog 0 0 7 0
WatchBox 824 3 1 36
[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 20 "WatchBox"
17 6
0 31 24 1
17 7
29 2 dlgretval
0 26 "" "ami123b.dlg"
13
8 2
17 8
6 2
5 -1
18 0
11 00000312
17 9
29 3 password
5 -1
8 3
10 00000771
17 11
6 2
5 1
18 0
11 00000754
17 12
29 4 entirefile
0 27 24
13
8 4
17 13
29 5 range
0 27 20
13
8 5
17 14
6 4
5 1
18 0
11 00000535
17 15
32 2 101 57 96 "button" "entire"
17 16
5 1
8 1
10 00000741
17 18
6 5
5 1
18 0
11 00000724
17 19
32 2 101 57 96 "button" "selected"
17 20
29 6 fields
0 27 8000
13
8 6
17 21
32 2 101 57 96 "fields" "{6}"
17 22
5 1
8 1
10 00000741
17 24
5 0
8 1
10 00000771
17 28
5 0
8 1
17 31
0 32 0
17 32
6 1
15
9
6 0
15
17 33
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 00000190
17 4
0 53 "{0}" 1 1
17 5
0 43 "{0}" 20 0
17 6
0 54 "{0}" 8000
10 00000381
5 20
6 1
18 0
11 00000278
17 8
0 43 "{0}" 24 0
17 9
0 53 "{0}" 1 0
10 00000381
5 8000
6 1
18 0
11 00000381
17 11
0 43 "{0}" 20 1
17 12
0 43 "{0}" 24 0
17 13
0 53 "{0}" 1 1
17 15
0 32 0
6 3
15
17 16
9
00005637