home *** CD-ROM | disk | FTP | other *** search
REM Description: Add bullets to selected paragraphs. REM Filename: bullets.wmc REM Created by: Steve Wylie - 11/08/93 REM Can't run if no document open IF GetDocName$() = "" THEN MESSAGE "Please create a new document or open an existing document first." STOP ENDIF REM Can't run in frame mode ret% = ViewEditMode(1) IF ret% = 2 THEN ret% = ViewEditMode(2) BEEP STOP ENDIF REM The following two arrays describe 27 different bullets. CONST MAXBULLETS% = 27 CONST BulletFont$ = "Wingdings" ' Change the font if you have a different bullet font. Only one font can be used. DIM bullets%(MAXBULLETS%) DIM bulletStr$(MAXBULLETS%+1) bullets%(1) = ASC("Q") ' airplane bullets%(2) = 220 ' arrow - inside circle bullets%(3) = 240 ' arrow - open bullets%(4) = 216 ' arrow - stylish bullets%(5) = 165 ' bullseye bullets%(6) = 252 ' checkmark bullets%(7) = ASC("m") ' circle with shadow bullets%(8) = ASC("V") ' cross bullets%(9) = ASC("u") ' diamond bullets%(10) = ASC("F") ' finger pointing right bullets%(11) = ASC("O") ' flag bullets%(12) = ASC("=") ' floppy disk bullets%(13) = ASC("{") ' flower bullets%(14) = ASC("v") ' four diamonds bullets%(15) = 207 ' leaf bullets%(16) = ASC("8") ' mouse bullets%(17) = 33 ' pencil bullets%(18) = ASC("J") ' smile bullets%(19) = ASC("T") ' snowflake bullets%(20) = ASC("q") ' square with shadow bullets%(21) = 171 ' star bullets%(22) = ASC("Y") ' star of david bullets%(23) = 182 ' star with shadow bullets%(24) = ASC("(") ' telephone bullets%(25) = ASC("C") ' thumbs up bullets%(26) = 255 ' windows logo bullets%(27) = 251 ' x marks the spot REM These are the strings that appear in the dialog. bulletStr$(1) = "Airplane" bulletStr$(2) = "Arrow Inside Circle" bulletStr$(3) = "Arrow - Open" bulletStr$(4) = "Arrow - Stylized" bulletStr$(5) = "Bullseye" bulletStr$(6) = "Checkmark" bulletStr$(7) = "Circle with Shadow" bulletStr$(8) = "Cross" bulletStr$(9) = "Diamond" bulletStr$(10) = "Finger Pointing" bulletStr$(11) = "Flag" bulletStr$(12) = "Floppy Disk" bulletStr$(13) = "Flower" bulletStr$(14) = "Four Diamonds" bulletStr$(15) = "Leaf" bulletStr$(16) = "Mouse" bulletStr$(17) = "Pencil" bulletStr$(18) = "Smile" bulletStr$(19) = "Snowflake" bulletStr$(20) = "Square with Shadow" bulletStr$(21) = "Star" bulletStr$(22) = "Star of David" bulletStr$(23) = "Star with Shadow" bulletStr$(24) = "Telephone" bulletStr$(25) = "Thumbs Up" bulletStr$(26) = "Windows Logo" bulletStr$(27) = "X Marks the Spot" bulletStr$(28) = "-- Remove Bullets --" frameType% = GetFrameType() IF frameType% <> 0 THEN Message "Bullets can only be inserted into text frames." STOP ENDIF index% = 1 BEGIN DIALOG Dialog1 154, 128, "Bullets" TEXT 4, 4, 100, 8, "&Bullet:" LISTBOX 4, 14, 100, 80, bulletStr$, index% OKBUTTON 110, 4, 40, 14 CANCELBUTTON 110, 20, 40, 14 TEXT 4, 100, 146, 24, "Note: this macro works best if you select the paragraphs you want to apply the bullets to." END DIALOG ret% = DIALOG(Dialog1) IF ret% = 2 THEN STOP REM Freeze the screen so that the activity isn't visible freeze% = ViewFreezeScreen(1) REM Changed local% to 0 if you want the change to apply globally to the paragraph style. local% = 1 REM Save the beginning and end of the selection yes% = GetTextOffset(strt%, end%) IF GetEditor() = 0 THEN switch% = 1 ' Remember to switch back when we're done. ViewEditor 1 ENDIF REM If the save position bookmark is in the document, we must delete it. savePosMark$ = "docsavpos" IF ExistBookmark(savPosMark$) THEN EditGoto 7, , savPosMark$, InsertBookmark savPosMark$, , , , 1 ENDIF IF strt% = 0 THEN strt% = 4 IF yes% = 1 THEN REM Count the number of paragraphs EditGotoOffset strt%, DO ret% = GetTextOffset(savestart%, saveend%) ParaDown 1, CharRight 1,, ret% = GetTextOffset(start2%, end2%) numParagraphs% = numParagraphs% + 1 LOOP UNTIL end2% >= end% OR end2% = saveend% REM Go to the beginning of the selection EditGotoOffset strt%, 0 ELSE numParagraphs% = 1 ENDIF adjust% = TO_DP("0.50",0) addStart% = 0 count% = 0 status$ = "Please wait... " FOR i% = 1 TO numParagraphs% REM Get the style information GetStyleParagraph first%, left%, right%, above%, below%, align%, location%, span%, hyphen%, numHyph%, keep%, allowBreak%, widow% REM Make sure the left indent is ahead of the first indent IF left% = first% AND index% < MAXBULLETS%+1 THEN left% = left% + adjust% REM If you choose None, then let's put the indents back to 0. IF left% > first% AND index% = MAXBULLETS%+1 THEN left% = first% REM Redefine the style with the new left indent. DefineStyle , local% DefineStyleParagraph first%, left%, , , , , , , , , , , DefineStyleTabSet 0, 0, left% ' Make sure a tab is set at the left indent position DefineStyleBullet 0, 0, 0 ' Make sure there are no paragraph style bullets EndDefineStyle 1 REM See if there are bullets from this macro already on the paragraph. StartOfPara ' Make sure we're not before the very first style tag. ret% = GetTextOffset(start%, e%) IF start% = 0 THEN EditGotoOffset 4, IF GetNextChar$(0) <> "" THEN WordRight 1, 1 REM If there's a carriage return in the selection, back up one character. IF GetPrevChar$(0) = "<Cr>" THEN CharLeft 1, 1, 1 bullet$ = GetSelection$() IF INSTR(bullet$, BulletFont$) AND INSTR(bullet$, "<Ft") THEN REM Delete the old bullet EditDelete , count% = count% - 1 ' Decrease count% for every time you delete a bullet ENDIF IF i% = 1 AND count% = 0 AND index% < MAXBULLETS%+1 THEN addStart% = 1 IF i% = 1 AND count% < 0 AND index% = MAXBULLETS%+1 THEN addStart% = -1 REM Remove the selection. dummy% = GetTextOffset(s%, e%) EditGotoOffset s%, 0 IF index% < MAXBULLETS%+1 THEN TypeText chr$(bullets%(index%)) CharLeft 1, 1, StyleApplyFont BulletFont$ CharRight 1,, TypeText "<Tb>" count% = count% + 1 ENDIF REM Go to the next paragraph. ParaDown 1,0 CharRight 1,, percent% = i% * 100 / numParagraphs% StatusMsg status$ + STR$(percent%) + "% finished." NEXT i% REM Restore the selection IF switch% = 1 THEN ViewEditor 0 strt% = strt% + (addStart% * 8) IF strt% < 4 THEN strt% = 4 EndOfStory 0 ret% = GetTextOffset(s%, maxend%) EditGotoOffset strt%, 0 end% = end% + (count% * 8) IF end% > maxend% THEN end% = maxend% if yes%=1 then EditGotoOffset end%, 1 REM Restore the screen freeze% = ViewFreezeScreen(0) StatusMsg "" ***** WARNING ***** This is a WSWin macro file. Subsequent data is binary information and should not be modified. # MF # 1.0 None 762570284 ╛ ε vR √_ 8 à ê ë â ê ç è â 8 ì î ï ì Ä Å 8 8 Æ Ç æ Æ É ô 8 â É ò û â 8 ù ò æ ù É ÿ 8 8 8 ¢ £ 1¥ 1₧ 8 2Ç 0í ¥ ó á ƒ ó í ú 8 2ò 0Ñ ¥ Ñ ñ 8 2ª 0¿ ¥ ¿ º 8 2⌐ 0½ ¥ ½ ¬ 8 2¼ 0« ¥ « ¡ 8 2» 0▒ ¥ ▒ ░ 8 2▓ 0┤ ¥ ╡ │ ƒ ╡ ┤ ╢ 8 2╖ 0╣ ¥ ║ ╕ ƒ ║ ╣ ╗ 8 ! 2╝ 0╛ ¥ ┐ ╜ ƒ ┐ ╛ └ 8! " 2┴ 0├ ¥ ─ ┬ ƒ ─ ├ ┼ 8" # 2╞ 0╚ ¥ ╔ ╟ ƒ ╔ ╚ ╩ 8# $ 2╦ 0═ ¥ ╬ ╠ ƒ ╬ ═ ╧ 8$ % 2╨ 0╥ ¥ ╙ ╤ ƒ ╙ ╥ ╘ 8% & 2╒ 0╫ ¥ ╪ ╓ ƒ ╪ ╫ ┘ 8& ' 2┌ 0▄ ¥ ▄ █ 8' ( 2▌ 0▀ ¥ α ▐ ƒ α ▀ ß 8( ) 2Γ 0Σ ¥ Σ π 8) * 2σ 0τ ¥ Φ µ ƒ Φ τ Θ 8* + 2Ω 0∞ ¥ φ δ ƒ φ ∞ ε 8+ , 2∩ 0± ¥ ≥ ≡ ƒ ≥ ± ≤ 8, - 2⌠ 0÷ ¥ ÷ ⌡ 8- . 2≈ 0∙ ¥ · ° ƒ · ∙ √ 8. / 2ⁿ 0■ ¥ ■ ² 8/ 0 2 0¥ ƒ 80 1 2 0¥ ƒ 81 2 2 0 ¥ 82 3 2Ü 0 ¥ 83 6 2Ç 0₧ 86 7 2ò 0₧ 87 8 2ª 0₧ 88 9 2⌐ 0₧ 89 : 2¼ 0₧ 8: ; 2» 0₧ 8; < 2▓ 0₧ 8< = 2╖ 0 ₧ 8= > 2╝ 0 ₧ 8> ? 2┴ 0!₧ ! 8? @ 2╞ 0#₧ #" 8@ A 2╦ 0%₧ %$ 8A B 2╨ 0'₧ '& 8B C 2╒ 0)₧ )( 8C D 2┌ 0+₧ +* 8D E 2▌ 0-₧ -, 8E F 2Γ 0/₧ /. 8F G 2σ 01₧ 10 8G H 2Ω 03₧ 32 8H I 2∩ 05₧ 54 8I J 2⌠ 07₧ 76 8J K 2≈ 09₧ 98 8K L 2ⁿ 0;₧ ;: 8L M 2 0=₧ =< 8M N 2 0?₧ ?> 8N O 2 0A₧ A@ 8O P 2Ü 0C₧ CB 8P Q 2D 0F₧ FE 8Q S HGI 8S S â G Kâ 8S U ML ï MNO 8U V 8V Y PÇ 3QRST4 ⌐ ⌐ U╖ V4 ⌐ ╒ UW₧ P 4 X⌐ Y╒ 4 X∩ Y╒ 4 ⌐ UZ [ 8Y ` 5 8` b 6É Q 8b c â É ò ]â 8c d 8d g `Ç _`^a 8g j bÇ 8j m defcg 8m n hjk â j lâ 8n p mÇ 8p q oÇ nop 8q u qr 8u u " suvwâ vxâ 8u " w z▓ yz u | 8w x ~Ç }u ~ 8x z â e üâ 8z { e⌐ 8{ | â cÇ ââ 8| äe à 8 ü dêëÉ è 8ü é îÇ ïî ì 8é â ÅÇ ÄÅ É 8â ä dæÆÉ ô 8ä à ööÇ 8à å òÆë ûfòâ Æûåâ 8å ê ù äeùÿé 8ê è öÇ 8è ì £¢¥ Ü£¥Ö₧ 8ì Ä ƒ 8Ä Å á 8Å É íó 8É Æ ñöúÇ ÑúúÇ â úñ¿â 8Æ ö ⌐¬½¼¡«»░▒▓│┤╡╢╖ 8ö û 4 ╣½¬║Ö Ç ╗P║ â ╣╗╝â 8û 4 ù ½½Ö 8ù Ö 4 ╛½¬┐Ö Ç └P┐ â ╛└┴â 8Ö 4 Ü ½¬ 8Ü ¥ ┬ b├ 8¥ ₧ ─¬½ ┼ 8₧ ƒ ╟ ╚ ╞╟╚½╔ 8ƒ á ╦ ╠ ═ ╩╦╠═╬ 8á í ╨Ç ╧╨╤ 8í ñ ╥ ╙ 8ñ ª d╘╒É ╓ 8ª ª â ╘ ╪â 8ª º ┘⌐ ä┘ ┌ 8º º ▌ █▌▐▀ â ▐ç αâ 8º ¿ ΓÇ πÇ ßΓπΣ 8¿ ⌐ # Φ σΦΘΩ â Θτδâ 8⌐ # ¬ φÇ εÇ ∩Ç ∞φε∩≡ 8¬ ½ ≥ ≤⌠ ±≤ 8½ ½ @ .≈Ç ±¢ .°Ç ±÷ â ≈°∙â 8½ @ « · √ 8« » ááÇ 8» ░ ; ²úÇ ■á ²■ Ö Ç P â â 8░ ; ▒ ƒÇ 8▒ ▒ ; úÇ á Ö Ç P â â 8▒ ; ▓ !ƒÇ 8▓ ╡ d ╒ 8╡ ╢ ä 8╢ ╖ ! Ö Ç â Pâ 8╖ ! ╣ 2P 0¥ 8╣ ║ Ç Ç ∞ 8║ ╗ ¢ 8╗ ╝ Ç Ä 8╝ ╜ ! 8╜ ╛ ááÇ 8╛ ┬ "Ç # ï"#$ 8┬ ├ %Ç Ä% & 8├ ─ (úU'(ö 8─ ┼ *',-".í,"/.+)/0 8┼ ╞ º 8╞ ╚ â mÇ 2â 8╚ ╔ 3 n34 8╔ ╩ 5ƒ╖ 65ee6 8╩ ╩ â e⌐ 8â 8╩ ╦ e⌐ 8╦ ╠ : 9:; 8╠ ═ d <É = 8═ ╬ > äe>? 8╬ ╧ @á╖ A@ffA 8╧ ╧ â f<Câ 8╧ ╨ f< 8╨ ╨ â cÇ Eâ 8╨ ╤ FÇ äfFG 8╤ ╘ H _H^I 8╘ ╓ Jç )JKN~ à ÉMMMMMMMMMMMMMMMMMMMM.╫ .╫ .╫ .╫ -.╫ 5.╫ ;.╫ A.╫ N.╫ ^.╫ l.╫ z.╫ ê.╫ û.╫ ñ.╫ ▓.╫ ╢.╫ ╣.╫ ╜.╫ └.╫ ┬.╫ ─.╫ ╞.╫ ╔.╫ ╠.╫ ╧.╫ ╥.╫ ╘.╫ ╓.╫ ┌.╫ ▄.╫ ▐.╫ α.╫ Γ.╫ ! Σ.╫ " Θ.╫ # ∞.╫ $ ≡.╫ % ⌡.╫ & ⁿ.╫ ' /╫ ( /╫ ) /╫ * /╫ + /╫ , "/╫ - (/╫ . -/╫ / 3/╫ 0 6/╫ 1 ;/╫ 2 @/╫ 3 B/╫ 4 E/╫ 5 J/╫ 6 N/╫ 7 T/╫ 8 Y/╫ 9 `/╫ : g/╫ ; l/╫ < o/╫ = w/╫ > y/╫ ? {/╫ @ /╫ A ê/╫ B î/╫ C Å/╫ D ù/╫ E ₧/╫ F ú/╫ G ¡/╫ H ┤/╫ I ╣/╫ J ╜/╫ K ┬/╫ L ╟/╫ M ═/╫ N ╤/╫ O ╒/╫ P ▄/╫ Q π/╫ R Ω/╫ S ≡/╫ T ≈/╫ U 0╫ V 0╫ W 0╫ X $0╫ Y 10╫ Z :0╫ [ G0╫ \ P0╫ ] X0╫ ^ `0╫ _ h0╫ ` q0╫ a v0╫ b {0╫ c Ç0╫ d ç0╫ e Ä0╫ f ö0╫ g ¢0╫ h ¥0╫ i ó0╫ j ¿0╫ k «0╫ l ╡0╫ m ╛0╫ n ╟0╫ o ╦0╫ p ╙0╫ q ╫0╫ r ▄0╫ s Γ0╫ t Φ0╫ u ε0╫ v ⌠0╫ w ∙0╫ x ■0╫ y 1╫ z 1╫ { 1╫ | 1╫ } + + ë , H 1 + 4 9 > H C ç ( K + Ä ô ÿ ¥ ó ç » ┤ ╣ ¼ ╛ + └ ¼ ┼ ╩ ╨ +P ▄ + ▀ δ + ≈ ç % + ¥ % + ▄ ) ¥ / + 1 + ≡ 5 ¥ ; + = + ╪ A ¥ G + I + Ñ M ¥ S + U + ⁿ Y ¥ _ + a + e ¥ k q w + y + } ¥ â ë Å + æ + ò ¥ ¢ í º + ¬ + « ¥ ┤ ║ └ + ├ + ╟ ¥ ═ ╙ ┘ + ▄ + α ¥ µ ∞ ≥ + ⌡ + ∙ ¥ + + ¥ $ + ' + ╧ + ¥ 1 + 4 + 8 ¥ > D J + M + ! P ¥ V + Y + ] ¥ c i o + r + v ¥ | é ê + ï + Å ¥ ò ¢ í + ñ + ½ ¿ ¥ « + ▒ + ╡ ¥ ╗ ┴ ╟ + ╩ + ╢ ╬ ¥ ╘ + ╫ + █ ¥ ß τ φ + ≡ + ⌠ ¥ · + + ¥ + √ ¥ + ( ₧ . + D ₧ J + Y ₧ _ + r ₧ x + â ₧ ë + ò ₧ ¢ + ░ ₧ ╢ + ╛ ₧ ─ + ╬ ₧ ╘ + µ ₧ ∞ + ≤ ₧ ∙ + ₧ + ₧ + , ₧ 2 + 9 ₧ ? + G ₧ M + V ₧ \ + d ₧ j + v ₧ | + æ ₧ ù + ₧ ₧ ñ + ┤ ₧ ║ + ═ ₧ ╙ + ▀ ₧ σ + ± ₧ ≈ + ₧ + ₧ % + ( + ? ₧ E P ç ' ] c 2 h 2 m + ₧ ñ ½ ▓ ╣ ┴ + Ü ┼ + Ç ╔ + ╙ + d ╫ + Γ + P σ + n Θ + ( ∞ + Æ ≡ + N ╨ S ╨ X ` ç ─ q x å ï ç ╗ Ö ƒ ñ ½ ç / ╡ X ║ ┴ ╚ X ╬ ╓ A ╖ ß Φ ∩ ⁿ + ç 2 ╞ ( / 6 ╞ < A 4 E L S Z A 9 i p w ε } ε â Σ ë ╘ Å A ┴ ₧ Ñ ½ ╢ ▒ ╝ ┼ ╠ A ¼ ╒ ▄ π A » φ ⌠ √ & - 4 ; C ç R I + P W ^ e o v ~ + Æ ò Ü X á f ª P ¼ 4 ▓ A U ─ ╦ ╤ ╪ ▀ µ φ ≈ ² ' . ╥ 4 ; B I ╥ O U \ c j p A c | â A f ÿ ƒ A t ▒ ╕ ┐ ╞ A x ╪ ▀ µ φ ⌠ A | A ~ $ + . 5 ; A H O ë å \ T b i p w T } A ê ç Ä ò £ ë ï ⌐ ñ » + ╢ ╜ ─ ╦ ñ ╤ A á ┌ ß Φ ∩ ÷ ■ ë æ + & - 4 : A ô E L ` R Y ` g n u ` { ░ ü ê Å û ¥ ñ ░ ¬ ▒ ┤ ╗ ┬ ╔ ñ ╧ ╓ ñ ▄ A ¬ σ ë £ Ω ¥ ± ° A ñ * 1 8 ? + F M T [ b i p w Ç ç A ╞ æ ë │ û + ñ ½ ▓ ╣ └ ╟ d ═ d ╙ ┌ ß Φ ∩ ¼ ⌡ ¼ √ A ╣ # * 1 8 ? < E < K n Q n W ^ e l s z ü â ???? 0 1 CANCEL ERRORNUM [T1] GETDOCNAME$ [L1] "" [T2] [T3] [L2] MESSAGE "Please create a new document or open an existing document first." [T4] [T5] [T6] RET% VIEWEDITMODE [T7] [T8] [L3] 2 [L4] [T9] [T10] MAXBULLETS% 27 BULLETFONT$ "Wingdings" BULLETS% BULLETSTR$ ASC "Q" [T11] [T12] [T13] 220 [T14] 3 240 [T15] 4 216 [T16] 5 165 [T17] 6 252 [T18] 7 "m" [T19] [T20] [T21] 8 "V" [T22] [T23] [T24] 9 "u" [T25] [T26] [T27] 10 "F" [T28] [T29] [T30] 11 "O" [T31] [T32] [T33] 12 "=" [T34] [T35] [T36] 13 "{" [T37] [T38] [T39] 14 "v" [T40] [T41] [T42] 15 207 [T43] 16 "8" [T44] [T45] [T46] 17 33 [T47] 18 "J" [T48] [T49] [T50] 19 "T" [T51] [T52] [T53] 20 "q" [T54] [T55] [T56] 21 171 [T57] 22 "Y" [T58] [T59] [T60] 23 182 [T61] 24 "(" [T62] [T63] [T64] 25 "C" [T65] [T66] [T67] 26 255 [T68] 251 [T69] "Airplane" [T70] "Arrow Inside Circle" [T71] "Arrow - Open" [T72] "Arrow - Stylized" [T73] "Bullseye" [T74] "Checkmark" [T75] "Circle with Shadow" [T76] "Cross" [T77] "Diamond" [T78] "Finger Pointing" [T79] "Flag" [T80] "Floppy Disk" [T81] "Flower" [T82] "Four Diamonds" [T83] "Leaf" [T84] "Mouse" [T85] "Pencil" [T86] "Smile" [T87] "Snowflake" [T88] "Square with Shadow" [T89] "Star" [T90] "Star of David" [T91] "Star with Shadow" [T92] "Telephone" [T93] "Thumbs Up" [T94] "Windows Logo" [T95] "X Marks the Spot" [T96] 28 "-- Remove Bullets --" [T97] FRAMETYPE% GETFRAMETYPE [T98] [L5] [L6] "Bullets can only be inserted into text frames." [T99] [T100] [T101] INDEX% DIALOG1 154 128 "Bullets" 100 "&Bullet:" 80 110 40 146 "Note: this macro works best if you select the paragraphs you want to apply the bullets to." [L7] [L8] FREEZE% VIEWFREEZESCREEN [T102] [T103] LOCAL% YES% GETTEXTOFFSET STRT% END% [T104] GETEDITOR [L9] [T105] [T106] [L10] SWITCH% VIEWEDITOR [T107] [T108] SAVEPOSMARK$ "docsavpos" EXISTBOOKMARK [L11] SAVPOSMARK$ [T109] [T110] [L12] EDITGOTO [T111] [T112] [T113] INSERTBOOKMARK [T114] [T115] [L13] [L14] [L15] [L16] EDITGOTOOFFSET [T116] [L17] [L18] SAVESTART% SAVEEND% [T117] PARADOWN [T118] [T119] CHARRIGHT [T120] [T121] START2% END2% [T122] NUMPARAGRAPHS% [T123] [T124] [T125] [T126] ADJUST% TO_DP "0.50" [T127] [T128] [T129] ADDSTART% COUNT% STATUS$ "Please wait... " I% [F1] [L19] [L20] [L21] [L22] GETSTYLEPARAGRAPH FIRST% LEFT% RIGHT% ABOVE% BELOW% ALIGN% LOCATION% SPAN% HYPHEN% NUMHYPH% KEEP% ALLOWBREAK% WIDOW% [T130] [L23] [T131] [T132] [T133] [L24] [L25] [T134] [T135] [T136] [L26] DEFINESTYLE [T137] DEFINESTYLEPARAGRAPH [T138] DEFINESTYLETABSET [T139] [T140] [T141] DEFINESTYLEBULLET [T142] [T143] [T144] [T145] ENDDEFINESTYLE [T146] [T147] STARTOFPARA [T148] START% E% [T149] [L27] [L28] [T150] [T151] GETNEXTCHAR$ [L29] [T152] [T153] [T154] [L30] WORDRIGHT [T155] [T156] [T157] GETPREVCHAR$ [L31] "<Cr>" [T158] [T159] [T160] [L32] CHARLEFT [T161] [T162] [T163] [T164] BULLET$ GETSELECTION$ [T165] [T166] [L33] "<Ft" [T167] [T168] [L34] EDITDELETE [T169] [L35] [T170] [T171] [T172] [T173] [T174] [L36] [L37] [T175] [T176] [T177] [T178] [T179] [L38] DUMMY% S% [T180] [T181] [T182] [L39] [T183] [L40] TYPETEXT CHR$ [T184] [T185] [T186] [T187] [T188] [T189] [T190] STYLEAPPLYFONT [T191] [T192] [T193] "<Tb>" [T194] [T195] [T196] [T197] [T198] [T199] [T200] PERCENT% [T201] STATUSMSG STR$ "% finished." [T202] [T203] [T204] [T205] [T206] [L41] [L42] [T207] [T208] [T209] [T210] [L43] [L44] ENDOFSTORY [T211] [T212] MAXEND% [T213] [T214] [T215] [T216] [T217] [L45] [L46] [L47] [L48] [T218] [T219] [T220] [T221] [T222] [T223] 
