home *** CD-ROM | disk | FTP | other *** search
INI File | 1993-11-20 | 12.8 KB | 895 lines |
- [ver]
- 4
- [sty]
-
- [files]
- [charset]
- 82
- CHINESEGB2312 (Windows)
- [revisions]
- 0
- [prn]
- HP DeskJet Series v2.0
- [lang]
- 2
- [desc]
-
-
-
-
-
- 753831581
- 22
- 721294910
- 232
- 4
- 0
- 0
- 0
- 0
-
-
-
-
-
-
- 1
- [fopts]
- 0
- 1
- 0
- 0
- [lnopts]
- 2
- Body Text
- 1
- [docopts]
- 5
- 2
- [tag]
- Body T
- 2
- [fnt]
- Helv
- 240
- 0
- 16384
- [algn]
- 1
- 1
- 216
- 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
- 16
- 0
- 0
- [nfmt]
- 24
- 1
- 2
- .
- ,
- úñ
- Body T<\><\>
- 0
- 0
- [tag]
- Body S
- 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]
- 101
- 0
- 1
- 0
- 1
- 1
- 1
- 10
- 10
- 1
- [spec]
- 0
- 0
-
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- [nfmt]
- 24
- 1
- 2
- .
- ,
- úñ
- Body S<\><\>
- 0
- 0
- [tag]
- Functi
- 4
- [fnt]
- Arial
- 240
- 0
- 16385
- [algn]
- 1
- 1
- 0
- 0
- 0
- [spc]
- 33
- 244
- 1
- 0
- 0
- 1
- 100
- [brk]
- 68
- [line]
- 8
- 0
- 1
- 0
- 1
- 1
- 1
- 10
- 10
- 1
- [spec]
- 0
- 1
-
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- [nfmt]
- 24
- 1
- 2
- .
- ,
- úñ
- Functi<\><\>
- 0
- 0
- [tag]
- Body Text
- 5
- [fnt]
- ╧╕╦╬╠σ
- 240
- 0
- 49152
- [algn]
- 1
- 2
- 0
- 0
- 0
- [spc]
- 17
- 0
- 2
- 0
- 0
- 2
- 100
- [brk]
- 4
- [line]
- 8
- 0
- 2
- 0
- 1
- 1
- 1
- 10
- 10
- 2
- [spec]
- 0
- 0
-
- 0
- 2
- 0
- 0
- 0
- 0
- 0
- [nfmt]
- 24
- 1
- 2
- .
- ,
- úñ
- Body Text
- 0
- 0
- [lay]
- 1
- 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
- [elay]
- [l1]
- 1
- [pg]
- 4
- 47 0 14 0 0 0 0 65535 65535 1 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
- 92 0 0 32 0 0 0 65535 65535 1 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
- 136 90 5 32 0 0 0 65535 65535 1 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
- 151 0 0 1025 0 0 0 65535 65535 1 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
- [edoc]
- <:#288,9025>' **** Function to take a set of text and make it vertical.
-
- <:#576,9025>' **** The text can span several paragraphs. The text will be typed right aligned
-
- <:#288,9025>' **** The user has a choice of font size, number of character per line,
-
- <:#288,9025>' **** right indent, and line and character spacing.
-
- <:#288,9025>
-
- <:#288,9025>' --- by Charles Pau
-
- <:#288,9025>
-
- <:#288,9025>Define SBCSSpace " "
-
- <:#288,9025>Define DBCSSpace "<:f,QCF╦╬╠σ,>íí<:f>"
-
- <:#288,9025>
-
- @Function@<:#288,9025>Function V_TEXT()
-
- <:#288,9025>'SingleStep(1)
-
- <:#288,9025>DEFSTR Name, Color, Size, Family ;
-
- <:#288,9025>'Type ("<[>CTRLUp]<[>CTRLSHIFTDown]")
-
- <:#288,9025>GetCurFontInfo(&Name, & Color, &Size, &Family)
-
- <:#288,9025>
-
- <:#288,9025>'Set up Dialog Box Defaults
-
- <:#288,9025>Textstr = CurShade$() 'Pick up the Shaded Text
-
- <:#298,9025>Lenstr =<:f,BHelv,>T<:f>LEN(Textstr)
-
- <:#288,9025>FillEdit(8002,Size / 20) 'Font Size
-
- <:#288,9025>if Lenstr <;> 19 then
-
- <:#288,9025>FillEdit(8003,20) 'Char per line
-
- <:#288,9025>else
-
- <:#288,9025>FillEdit(8003,Lenstr)
-
- <:#288,9025>Endif
-
- <:#288,9025>FillEdit(8004,0) 'Right Indent
-
- <:#298,9025>FillEdit(9000<:f,BHelv,>,"<:f><:f,QCF╦╬╠σ,>├▄<:f><:f,BHelv,>") 'Line spacing
-
- <:#298,9025><:f,BHelv,>FillEdit(9000,"<:f><:f,QCF╦╬╠σ,>╥╗╨╨<:f><:f,BHelv,>")
-
- <:#298,9025><:f,BHelv,>FillEdit(9000,"<:f><:f,QCF╦╬╠σ,>╥╗╨╨░δ<:f><:f,BHelv,>")
-
- <:#283,9025><:f,BHelv,>FillEdit(9001," ") 'Char Spacing
-
- <:#298,9025><:f,BHelv,>FillEdit(9001,"<:f><:f,QCF╦╬╠σ,>├▄<:f><:f,BHelv,>")
-
- <:#298,9025><:f,BHelv,>FillEdit(9001,"<:f><:f,QCF╦╬╠σ,>╩Φ<:f><:f,BHelv,>")
-
- <:#298,9025><:f,BHelv,>FillEdit(9001,"<:f><:f,QCF╦╬╠σ,>╝½╩Φ<:f><:f,BHelv,>")<:f>
-
- <:#288,9025>
-
- <:#288,9025>Box = DialogBox(".","VTEXT")
-
- <:#288,9025>
-
- <:#288,9025>If Box = 0 Then Exit Function EndIf
-
- <:#288,9025>
-
- <:#288,9025>'Retrieve Data from Dialog Box
-
- <:#288,9025>
-
- <:#288,9025>CSize = GetDialogField$(8002) * 20
-
- <:#288,9025>NROW = GetDialogField$(8003)
-
- <:#288,9025>RIndt = GetDialogField$(8004) * 1440
-
- <:#288,9025>LSpace = GetDialogField$(9000)
-
- <:#288,9025>CSpace = GetDialogField$(9001)
-
-
- DIM LSTR(NROW)
-
- <:#302,9025>
-
- <:#288,9025>'****** Determine Line Spacing
-
- <:#288,9025>
-
- <:#288,9025>SWITCH LSpace
-
- <:#298,9025> CAS<:f,BHelv,>E "<:f><:f,QCF╦╬╠σ,>├▄<:f><:f,BHelv,>"
-
- <:#283,9025><:f,BHelv,> LSP = ""
-
- <:#298,9025><:f,BHelv,> CASE "<:f><:f,QCF╦╬╠σ,>╥╗╨╨<:f><:f,BHelv,>"
-
- <:#283,9025><:f,BHelv,> LSP = SBCSSpace
-
- <:#298,9025><:f,BHelv,> CASE "<:f><:f,QCF╦╬╠σ,>╥╗╨╨░δ<:f><:f,BHelv,>"
-
- <:#298,9025><:f,BHelv,> LSP = DBCSSpace<:f>
-
- <:#288,9025> DEFAULT
-
- <:#288,9025> LSP = ""
-
- <:#288,9025>ENDSWITCH
-
- <:#288,9025>
-
- <:#288,9025>'Textstr = CurShade$() 'Pick up the Shaded Text
-
- <:#288,9025>
-
- <:#586,9025>'Lenstr =<:f,BHelv,>T<:f>LEN(Textstr) 'This needs to be changed to TLEN for Taiwan
-
- <:#288,9025>
-
- <:#288,9025>For I = 1 to NROW
-
- <:#288,9025> LSTR(I)=""
-
- <:#288,9025>NEXT
-
- <:#288,9025>
-
- <:#288,9025>JPOS = 1
-
- <:#288,9025>LOOP:
-
- <:#288,9025>FOR I = 1 to NROW
-
- <:#288,9025> CURCHAR = MID$(Textstr,JPOS,1)
-
- <:#288,9025> If ASC(CURCHAR) = 10 Then ' End of Line Processing
-
- <:#576,9025> ' 10 is the ASCII code for Newline
-
- <:#288,9025> FOR J = I to NROW
-
- <:#298,9025> LSTR(J) = STRCAT$(<:f,BHelv,>DB<:f,BHelv,>CS<:f>Space,LSTR(J))
-
- <:#288,9025> LSTR(J) = STRCAT$(LSP,LSTR(J))
-
- <:#288,9025> NEXT
-
- <:#288,9025> JPOS = JPOS + 1
-
- <:#288,9025> GOTO LOOP
-
- <:#288,9025> ENDIF
-
- <:#288,9025> If CURCHAR = SBCSSpace Then CURCHAR = DBCSSpace ENDIF
-
- <:#288,9025> LSTR(I) = STRCAT$(CURCHAR,LSTR(I))
-
- <:#288,9025> LSTR(I) = STRCAT$(LSP,LSTR(I))
-
- <:#288,9025> JPOS = JPOS + 1
-
- <:#288,9025> IF JPOS <;> Lenstr Then GOTO DISPLAY ENDIF
-
- <:#288,9025>NEXT
-
- <:#288,9025>GOTO LOOP
-
- <:#288,9025>
-
- <:#288,9025>DISPLAY:
-
-
- <:#576,9025>' *** To delete original text, remove comment mark from the following statement
-
- <:#302,9025>Type("<[>Del]")
-
- <:#302,9025>
-
- <:#302,9025>
-
- <:#302,9025>'*** To retain original text, remove the comment mark from the following statement
-
- <:#302,9025>'Type ("<[>Left]<[>CTRLDown]<[>Enter]<[>Enter]")
-
- <:#302,9025>RightAlign()
-
- <:#302,9025>
-
- <:#302,9025>' ***** Change the alignment to Right, and set the indentation and font size
-
- <:#302,9025>
-
- <:#302,9025>Ecode = ModifySelect("RightAlign")
-
- <:#302,9025>If Ecode = -2 Then ' Create Style RightAlign if it does not exist
-
- <:#302,9025> CreateStyle("RightAlign", "Body Text",0)
-
- <:#302,9025> ModifySelect("RightAlign")
-
- <:#302,9025>EndIF
-
- <:#302,9025>ModifyAlignment(2,0,0,0,0,0)
-
- <:#302,9025>ModifyReflow()
-
- <:#302,9025>SetStyle("RightAlign")
-
- <:#302,9025>FontChange(Name, Family,Color,CSize)
-
- <:#302,9025>Indent(0,0,0,RIndt)
-
- <:#302,9025>SWITCH <:f,BHelv,>CSpace
-
- <:#317,9025><:f,BHelv,> CASE "<:f><:f,QCF╦╬╠σ,>├▄<:f><:f,BHelv,>"
-
- <:#302,9025><:f,BHelv,> CSP = -1
-
- <:#317,9025><:f,BHelv,> CASE "<:f><:f,QCF╦╬╠σ,>╩Φ<:f><:f,BHelv,>"
-
- <:#302,9025><:f,BHelv,> CSP = -2
-
- <:#317,9025><:f,BHelv,> CASE "<:f><:f,QCF╦╬╠σ,>╝½╩Φ<:f><:f,BHelv,>"
-
- <:#302,9025><:f,BHelv,> CSP = -3
-
- <:#302,9025><:f,BHelv,> DEFAULT<:f>
-
- <:#302,9025> CSP = -1
-
- <:#302,9025>ENDSWITCH
-
- <:#302,9025>Spacing(CSP)
-
- <:#302,9025>
-
- <:#302,9025>FOR I = 1 to NROW
-
- <:#302,9025> PSTR = LSTR(I)
-
- <:#302,9025> Type ("{PSTR}<[>Enter]")
-
- <:#302,9025>NEXT
-
- <:#302,9025>LeftAlign()
-
- <:#302,9025>
-
- <:#302,9025>End Function
-
- <:#302,9025>
-
- <:#302,9025>
-
- @Function@<:#293,9025>DIALOG VTEXT
-
- <:#317,9025>-2134376448 14 42 28 201 126 "" "" "<:f,QCF╦╬╠σ,>╬─╫╓╩·┼┼<:f>"
-
- 156 10 40 14 1 1342373889 "button" "<:f,QCF╦╬╠σ,>╫¬╗╗<:f>" 0
-
- <:#576,9025>156 35 40 14 2 1342373888 "button" "<:f,QCF╦╬╠σ,>╚í╧√<:f>" 0
-
- <:#576,9025>19 100 172 15 1001 1342177280 "static" "<:f,QCF╦╬╠σ,>╟δ╫ó╥Γú¼╬─╫╓╥╗╡⌐╕─╬¬╩·┼┼ú¼╛═╬▐╖¿╕─╗╪║ß┼┼íú<:f>" 0
-
- <:#302,9025>63 4 22 11 8002 1350631424 "edit" "" 0
-
- <:#317,9025>7 6 44 10 1002 1342177280 "static" "<:f,QCF╦╬╠σ,>╫╓╨═┤≤╨í<:f><:f,QCF╦╬╠σ,>ú║<:f>" 0
-
- <:#317,9025>7 19 59 10 1000 1342177280 "static" "<:f,QCF╦╬╠σ,>├┐╨╨╫╓╩²<:f><:f,QCF╦╬╠σ,>ú║<:f>" 0
-
- <:#317,9025>7 33 56 10 1003 1342177280 "static" "<:f,QCF╦╬╠σ,>╙╥▒▀─┌╦⌡<:f><:f,QCF╦╬╠σ,>ú║<:f>" 0
-
- <:#302,9025>63 17 22 12 8003 1350631424 "edit" "" 0
-
- <:#302,9025>63 32 22 12 8004 1350631424 "edit" "" 0
-
- <:#302,9025>24 61 48 34 9000 1352728577 "listbox" "" 0
-
- <:#302,9025>105 61 48 34 9001 1352728577 "listbox" "" 0
-
- <:#576,9025>11 49 49 10 1004 1342177280 "static" "<:f,QCF╦╬╠σ,>╨╨╝Σ╛α
- <:f><:f,QCF╦╬╠σ,>ú║<:f>" 0
-
- <:#317,9025>91 49 59 10 1005 1342177280 "static" "<:f,QCF╦╬╠σ,>╫╓╛αú║<:f,BHelv,>"<:f> 0
-
- <:#302,9025>90 33 40 10 1006 1342177280 "static" "ins." 0
-
- <:#302,9025>END DIALOG
-
- <:#288,9025>
-
- >
-
- [Embedded]
- 00010187
- >
- [macsum] 2
- V_TEXT 0 0 22 10
- VTEXT 2076 0 -1 133
- [macse]
- 14 V_TEXT
- 0 804 &1 &2 &3 &4
- 0 24
- 13
- 8 5
- 0 134 "{5}"
- 13
- 8 6
- 6 3
- 5 20
- 4 1
- 0 31 8002 [X]
- 6 6
- 5 19
- 18 3
- 11 00000155
- 0 31 8003 20
- 10 00000172
- 0 31 8003 "{6}"
- 0 31 8004 0
- 0 31 9000 "├▄"
- 0 31 9000 "╥╗╨╨"
- 0 31 9000 "╥╗╨╨░δ"
- 0 31 9001 " "
- 0 31 9001 "├▄"
- 0 31 9001 "╩Φ"
- 0 31 9001 "╝½╩Φ"
- 0 26 "." "VTEXT"
- 13
- 8 7
- 6 7
- 5 0
- 18 0
- 11 00000372
- 6 0
- 15
- 9
- 0 27 8002
- 13
- 5 20
- 4 0
- 8 8
- 0 27 8003
- 13
- 8 9
- 0 27 8004
- 13
- 5 1440
- 4 0
- 8 10
- 0 27 9000
- 13
- 8 11
- 0 27 9001
- 13
- 8 12
- 6 9
- 21 13 [X]
- 7 "├▄"
- 6 11
- 18 0
- 11 00000573
- 7 ""
- 8 14
- 10 00000710
- 7 "╥╗╨╨"
- 6 11
- 18 0
- 11 00000634
- 7 " "
- 8 14
- 10 00000710
- 7 "╥╗╨╨░δ"
- 6 11
- 18 0
- 11 00000698
- 7 "íí"
- 8 14
- 10 00000710
- 7 ""
- 8 14
- 5 1
- 8 15
- 6 9
- 6 15
- 18 2
- 12 00000799
- 10 00000831
- 5 1
- 6 15
- 3 0
- 8 15
- 10 00000721
- 6 15
- 7 ""
- 23 13
- 10 00000764
- 5 1
- 8 16
- 5 1
- 8 15
- 6 9
- 6 15
- 18 2
- 12 00000931
- 10 00001452
- 5 1
- 6 15
- 3 0
- 8 15
- 10 00000853
- 0 15 "{5}" "{16}" 1
- 13
- 8 17
- 0 40 "{17}"
- 13
- 5 10
- 18 0
- 11 00001234
- 6 15
- 8 18
- 6 9
- 6 18
- 18 2
- 12 00001094
- 10 00001199
- 5 1
- 6 18
- 3 0
- 8 18
- 10 00001016
- 6 18
- 6 18
- 22 13
- 0 16 "íí" [X]
- 13
- 23 13
- 6 18
- 6 18
- 22 13
- 0 16 "{14}" [X]
- 13
- 23 13
- 10 00001059
- 6 16
- 5 1
- 3 0
- 8 16
- 10 00000842
- 6 17
- 7 " "
- 18 0
- 11 00001280
- 7 "íí"
- 8 17
- 6 15
- 6 15
- 22 13
- 0 16 "{17}" [X]
- 13
- 23 13
- 6 15
- 6 15
- 22 13
- 0 16 "{14}" [X]
- 13
- 23 13
- 6 16
- 5 1
- 3 0
- 8 16
- 6 16
- 6 6
- 18 3
- 11 00001439
- 10 00001465
- 10 00000896
- 10 00000842
- 0 6 "[46]"
- 2 261 1
- 2 311 1 "RightAlign"
- 13
- 8 19
- 6 19
- 5 -2
- 18 0
- 11 00001607
- 2 301 1 "RightAlign" "Body Text" 0
- 2 311 1 "RightAlign"
- 2 313 1 2 0 0 0 0 0
- 2 319 1
- 2 323 1 "RightAlign"
- 2 251 1 "{1}" "{4}" "{2}" "{8}"
- 2 265 1 0 0 0 "{10}"
- 7 "├▄"
- 6 12
- 18 0
- 11 00001772
- 5 -1
- 8 20
- 10 00001902
- 7 "╩Φ"
- 6 12
- 18 0
- 11 00001830
- 5 -2
- 8 20
- 10 00001902
- 7 "╝½╩Φ"
- 6 12
- 18 0
- 11 00001890
- 5 -3
- 8 20
- 10 00001902
- 5 -1
- 8 20
- 2 252 1 "{20}"
- 5 1
- 8 15
- 6 9
- 6 15
- 18 2
- 12 00002007
- 10 00002055
- 5 1
- 6 15
- 3 0
- 8 15
- 10 00001929
- 6 15
- 22 13
- 8 21
- 0 6 "{21}[13]"
- 10 00001972
- 2 259 1
- 6 0
- 15
- 9
- DIALOG VTEXT
- -2134376448 14 42 28 201 126 "" "" "╬─╫╓╩·┼┼"
- 156 10 40 14 1 1342373889 "button" "╫¬╗╗" 0
- 156 35 40 14 2 1342373888 "button" "╚í╧√" 0
- 19 100 172 15 1001 1342177280 "static" "╟δ╫ó╥Γú¼╬─╫╓╥╗╡⌐╕─╬¬╩·┼┼ú¼╛═╬▐╖¿╕─╗╪║ß┼┼íú" 0
- 63 4 22 11 8002 1350631424 "edit" "" 0
- 7 6 44 10 1002 1342177280 "static" "╫╓╨═┤≤╨íú║" 0
- 7 19 59 10 1000 1342177280 "static" "├┐╨╨╫╓╩²ú║" 0
- 7 33 56 10 1003 1342177280 "static" "╙╥▒▀─┌╦⌡ú║" 0
- 63 17 22 12 8003 1350631424 "edit" "" 0
- 63 32 22 12 8004 1350631424 "edit" "" 0
- 24 61 48 34 9000 1352728577 "listbox" "" 0
- 105 61 48 34 9001 1352728577 "listbox" "" 0
- 11 49 49 10 1004 1342177280 "static" "╨╨╝Σ╛α ú║" 0
- 91 49 59 10 1005 1342177280 "static" "╫╓╛αú║" 0
- 90 33 40 10 1006 1342177280 "static" "ins." 0
- 00010212
-