Liren Large Software Subsidy 18

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

/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / PUNC.SMM < prev next >

Wrap

INI File | 1993-11-19 | 7.2 KB | 868 lines

[ver] 4 [sty] [files] [charset] 82 CHINESEBIG5 (Windows) [revisions] 0 [prn] HP LaserJet III [lang] 1 [desc] 745042044 23 720471130 321 1 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [tag] Body Text 2 [fnt] Courier 240 0 32768 [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 240 0 49155 [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 360 0 16385 [algn] 4 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 [lay] Standard 516 [rght] 16833 11908 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10465 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 11908 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 11908 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10465 2 2 4680 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 15393 11908 16833 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 16833 11908 1 1440 792 1 15465 1440 0 1 0 1 1 0 1 1440 10465 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [pg] 1 49 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 [edoc] <:#240,9025>Function Punct() <:#240,9025>Dim List(1) ' Multiple Variable <:#240,9025>DEFSTR id,Item,Fp,Item1 ' Single element <:#240,9025> <:#240,9025>ONERROR OOPS <:#240,9025>ONCANCEL OOPS <:#240,9025>AmiDir = GetAmiDirectory$() <:#240,9025>Start: <:#240,9025>Dim List(1) <:#240,9025>Fp=Assign(&id,fopen("{AmiDir}Punct1.txt","rt")) <:#240,9025>If Fp = 0 <:#240,9025> Goto OOPS <:#240,9025>Endif <:#480,9025>'***** Punc.txt will contain the internal code for the various punctuations <:#240,9025> <:#240,9025> While -1 != Assign(&Item, fgets$(id)) <:#240,9025> I=I+1 <:#240,9025> If I = 1 <:#240,9025> Item1 = "{Item}" <:#240,9025> Endif <:#240,9025> ArrayInsert(&List,I,Item) <:#240,9025> FillList(List(I)) <:#240,9025>Wend <:#240,9025>Filledit(8000,"{Item1}") <:#240,9025>PButton = DialogBox(".","Punc") <:#240,9025>OldStr = GetDialogField$(9000) <:#240,9025>FillEdit(8000,"{Oldstr}") <:#240,9025> ' get Str from Edit Box <:#240,9025>Switch Pbutton <:#240,9025> Case(1) 'Insert <:#240,9025> Type("{Oldstr}") <:#240,9025> Case(2) 'Cancel <:#240,9025> Goto OOPS <:#240,9025> DEFAULT <:#240,9025>EndSwitch <:#240,9025> <:#240,9025>OOPS: <:#240,9025>Fclose(id) <:#240,9025>End Function <:#240,9025> DIALOG Punc -2134376448 6 82 52 98 111 "" "" "▒Ω╡π╖√║┼╤í╧ε" 52 57 35 15 1 1342373889 "button" "╚╖╢¿(&O)" 0 10 40 31 60 9000 1352728577 "listbox" "" 0 52 81 35 15 2 1342373888 "button" "╚í╧√(&C)" 0 10 10 32 8 1000 1342177280 "static" "╤í╚í :" 0 10 24 54 10 1001 1342177280 "static" "╖√║┼▒φ:" 0 44 10 27 10 8000 1342177280 "static" "Static" 0 END DIALOG > [Embedded] 00006323 > [macsum] 2 Punct 0 0 10 0 Punc 572 0 -1 40 [macse] 14 Punct 5 1 21 1 [X] 20 00000547 19 00000547 0 798 13 8 6 5 1 21 1 [X] 0 259 "{6}Punct1.txt" "rt" 13 0 805 &2 [X] 13 8 4 6 4 5 0 18 0 11 00000179 10 00000547 5 -1 0 257 "{2}" 13 0 805 &3 [X] 13 18 1 11 00000359 6 7 5 1 3 0 8 7 6 7 5 1 18 0 11 00000302 7 "{3}" 8 5 0 1041 &1 "{7}" "{3}" 6 7 22 1 0 25 [X] 10 00000179 0 31 8000 "{5}" 0 26 "." "Punc" 13 8 8 0 27 9000 13 8 9 0 31 8000 "{9}" 5 1 6 8 18 0 11 00000492 0 6 "{9}" 10 00000547 5 2 6 8 18 0 11 00000547 10 00000547 10 00000547 0 260 "{2}" 6 0 15 9 DIALOG Punc -2134376448 6 82 52 98 111 "" "" "▒Ω╡π╖√║┼╤í╧ε" 52 57 35 15 1 1342373889 "button" "╚╖╢¿(&O)" 0 10 40 31 60 9000 1352728577 "listbox" "" 0 52 81 35 15 2 1342373888 "button" "╚í╧√(&C)" 0 10 10 32 8 1000 1342177280 "static" "╤í╚í :" 0 10 24 54 10 1001 1342177280 "static" "╖√║┼▒φ:" 0 44 10 27 10 8000 1342177280 "static" "Static" 0 00006348