Liren Large Software Subsidy 14

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

/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / SMM.LIB / 123G.SMM next >

Wrap

INI File | 1993-10-28 | 10.9 KB | 1,097 lines

[ver] 4 [sty] _default.sty [charset] 82 ANSI (Windows, IBM CP 1252) [PanoseFontTable] 4 5 Arial 2818 1030 514 514 1026 Helvetica 2818 1029 514 514 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] 1 [desc] Launch 123 for OS/2 751844556 6 750620291 136 0 0 0 0 0 1 [prn] QMS-PS 810 [port] NW:\\SPEEDY\QMS [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Outline5 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 5 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline1 1 [fnt] Times New Roman 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 72 0 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline1 0 0 [tag] Outline2 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 216 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 2 0 1 1 0 16 0 0 [nfmt] 272 1 3 . , $ Outline2 0 0 [tag] Outline3 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 720 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 3 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline4 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 4 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Function 1 [fnt] Helvetica 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Title 8 [fnt] Helvetica 280 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [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 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 [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 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [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 792 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [elay] [lay] 1 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 0 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] 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,P943718> > [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,P943718> > [elay] [l1] 1 [edoc] @Outline2@<:s><:#P30670848,P786432> @Function@<:s><:#P30670848,P912261><:X3,0;Include "Amixlate.sam!a123g">'Defines for 123G @Outline2@<:s>Define AppName "1-2-3 for OS/2" @Outline2@<:s>Define NotFound "Ami Pro cannot find Lotus 1-2-3 for OS/2. If you have 1-2-3 currently installed, please enter the path below." @Outline2@<:s>Define EnterPath "Enter the path for Lotus 1-2-3 for OS/2:" @Outline2@<:s>Define Caption "Launch 1-2-3g" @Outline2@<:s>Define Path "C:\123G\123G.EXE"<:X~3,0;Include "Amixlate.sam!a123g"> @Outline2@<:s><:#P30670848,P786432>define deffile "DEFAULT.WG2" @Outline2@<:s><:#P30670848,P786432>define PLAT_SLASH "\" @Outline2@<:s><:#P30670848,P786432>declare GetPathFromName(filename) @Outline2@<:s><:#P30670848,P786432> @Function@<:s><:#P30670848,P912261>Function 123g() @Outline2@<:s><:#P30670848,P786432>if AppIsRunning(AppName) @Outline3@<:s><:#P30670848,P786432> ' if 1-2-3 is running, then activate the window @Outline3@<:s><:#P30670848,P786432> ActivateApp(AppName) @Outline3@<:s><:#P30670848,P786432> EXIT FUNCTION @Outline2@<:s><:#P30670848,P786432>ENDIF @Outline2@<:s><:#P30670848,P786432>appPath=GetProfileString$("LotusApplications","123G") @Outline2@<:s><:#P30670848,P786432>if apppath != "" @Outline2@<:s><:#P30670848,P786432> defpath=GetPathFromName(apppath) @Outline2@<:s><:#P30670848,P786432> defname=strcat$(defpath, deffile) @Outline2@<:s><:#P30670848,P786432> launchResult=Exec(appPath,defname) @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>Mac = GetRunningMacroFile$() @Outline2@<:s><:#P30670848,P786432>While launchResult<<33 @Outline3@<:s><:#P30670848,P786432> FillEdit(1001, NotFound) @Outline3@<:s><:#P30670848,P786432> FillEdit(1004, EnterPath) @Outline3@<:s><:#P30670848,P786432> FillEdit(8000, Path) @Outline3@<:s><:#P30670848,P786432> SetDlgCallBack(0, "{Mac}!InitDlg") @Outline3@<:s><:#P30670848,P786432> Box=DialogBox("Launch.dlg","Missouri") ' display the dialog box @Outline3@<:s><:#P30670848,P786432> if Box<<<;>1 @Outline3@<:s><:#P30670848,P786432> ' if cancel was selected then exit the macro @Outline3@<:s><:#P30670848,P786432> EXIT FUNCTION @Outline3@<:s><:#P30670848,P786432> endif @Outline3@<:s><:#P30670848,P786432> ' get the path from the editbox @Outline3@<:s><:#P30670848,P786432> appPath=GetDialogField$(8000) @Outline3@<:s><:#P30670848,P786432> WriteProfileString("LotusApplications","123G",appPath) @Outline3@<:s><:#P30670848,P786432> ' try to exec the app @Outline3@<:s><:#P30670848,P786432> defpath=GetPathFromName(apppath) @Outline3@<:s><:#P30670848,P786432> defname=strcat$(defpath, deffile) @Outline3@<:s><:#P30670848,P786432> launchResult=Exec(appPath,defname) @Outline3@<:s><:#P30670848,P786432> ActivateApp(AppName) @Outline2@<:s><:#P30670848,P786432>WEND @Outline2@<:s><:#P30670848,P786432>end function <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P912261>Function InitDlg(Hdlg) @Outline2@<:s><:#P30670848,P786432>' Since all of the macros to launch applications share a dialogbox, we need to set the caption @Outline2@<:s><:#P30670848,P786432>DlgSetCaption(Hdlg, Caption) @Outline2@<:s><:#P30670848,P786432>End Function <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P912261>function GetPathFromName(filename) @Outline2@<:s><:#P30670848,P786432>defstr char; @Outline2@<:s><:#P30670848,P786432>Length = len(FileName) @Outline2@<:s><:#P30670848,P786432>WHILE PLAT_SLASH != Assign(&Char, MID$(FileName, Length, 1)) @Outline2@<:s><:#P30670848,P786432> Length = Length - 1 @Outline2@<:s><:#P30670848,P786432>WEND @Outline2@<:s><:#P30670848,P786432>InFileName = Right$(FileName, (len(FileName) - Length)) @Outline2@<:s><:#P30670848,P786432>InDir = Left$(FileName, Length - 1) @Outline2@<:s><:#P30670848,P786432>if right$(indir, 1) <<<;> PLAT_SLASH @Outline2@<:s><:#P30670848,P786432> indir = strcat$(indir, PLAT_SLASH) @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>return indir @Outline2@<:s><:#P30670848,P786432>end function <:s><:#P30670848,P786432> > [Embedded] 00009405 > [macsum4] 3 29 123g 0 0 7 11 InitDlg 1056 1 1 45 GetPathFromName 1145 1 5 50 [macse] 14 123g 29 0 123g 17 1 0 1032 "1-2-3 for OS/2" 13 11 00000109 17 3 0 38 "1-2-3 for OS/2" 6 0 15 9 17 6 29 1 appPath 0 286 "LotusApplications" "123G" 13 8 1 17 7 6 1 7 "" 18 1 11 00000371 17 8 29 2 defpath 16 GetPathFromName "{1}" 13 8 2 17 9 29 3 defname 0 16 "{2}" "DEFAULT.WG2" 13 8 3 17 10 29 4 launchResult 0 22 "{1}" "{3}" 13 8 4 17 12 29 5 Mac 0 802 13 8 5 17 13 6 4 5 33 18 5 11 00001037 17 14 0 31 1001 "Ami Pro cannot find Lotus 1-2-3 for OS/2. If you have 1-2-3 currently installed, please enter the path below." 17 15 0 31 1004 "Enter the path for Lotus 1-2-3 for OS/2:" 17 16 0 31 8000 "C:\123G\123G.EXE" 17 17 0 41 0 "{5}!InitDlg" 17 18 29 6 Box 0 26 "Launch.dlg" "Missouri" 13 8 6 17 19 6 6 5 1 18 1 11 00000802 6 0 15 9 17 24 0 27 8000 13 8 1 17 25 0 287 "LotusApplications" "123G" "{1}" 17 27 16 GetPathFromName "{1}" 13 8 2 17 28 0 16 "{2}" "DEFAULT.WG2" 13 8 3 17 29 0 22 "{1}" "{3}" 13 8 4 17 30 0 38 "1-2-3 for OS/2" 10 00000404 6 0 15 17 32 9 14 InitDlg 29 0 Hdlg 29 1 InitDlg 17 2 0 75 "{0}" "Launch 1-2-3g" 6 1 15 17 3 9 14 GetPathFromName 29 0 filename 29 1 GetPathFromName 17 1 29 2 char 17 2 29 3 Length 0 14 "{0}" 13 8 3 17 3 7 "\" 0 15 "{0}" "{3}" 1 13 0 805 &2 [X] 13 18 1 11 00000227 17 4 6 3 5 1 3 1 8 3 10 00000114 17 6 29 4 InFileName 0 14 "{0}" 13 6 3 3 1 0 807 "{0}" [X] 13 8 4 17 7 29 5 InDir 6 3 5 1 3 1 0 806 "{0}" [X] 13 8 5 17 8 0 807 "{5}" 1 13 7 "\" 18 1 11 00000443 17 9 0 16 "{5}" "\" 13 8 5 17 11 6 5 15 9 6 1 15 17 12 9 00009430