home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78b98.iso
/
Smart30
/
ENGLISH
/
PRODUCTS
/
LOTUS018.DSK
/
TOAREMOV.SMM
< prev
next >
Wrap
INI File
|
1992-09-14
|
1KB
|
118 lines
[ver]
4
[sty]
_macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[port]
LPT1:
[lang]
1
[desc]
Remove a TOA mark
716498861
4
704139151
5
1
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[l1]
0
[pg]
1
13 0 12 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]
@Function@<:#293,9360>Function Test()
<:#284,9360>Menu = "Too&ls"
<:#284,9360>Item = "&Generate TOA..."
<:#284,9360>CheckMenuItem(1, Menu, Item, 1)
<:#284,9360>if not CheckMenuItem(1, Menu, Item, 1)
<:#284,9360> ' Toa.smm has not been run. We need to run it now.
<:#284,9360> Call Toa.smm()
<:#284,9360>endif
<:#284,9360>CheckMenuItem(1, Menu, Item, 0)
<:#284,9360>Mac = GetMacPath$()
<:#284,9360>Name = StrCat$(Mac,"Toa.smm!MarkMain")
<:#284,9360>Calli Name(3) ' Remove Toa Marks
<:#284,9360>End Function
>
[Embedded]
00001050
>
[macsum] 1
Test 0 0 5 0
[macse]
14 Test
7 "Too&ls"
8 1
7 "&Generate TOA..."
8 2
0 518 1 "{1}" "{2}" 1
0 518 1 "{1}" "{2}" 1
13
1 3
11 00000133
16 Toa.smm
0 518 1 "{1}" "{2}" 0
0 295
13
8 3
0 16 "{3}" "Toa.smm!MarkMain"
13
8 4
16 "{4}" 3
6 0
15
9
00001075