Programming Languages Suite/ProgLangD.iso/Bonus/WSTAR2/DISK4/COUNT.WM_/COUNT.bin

Text File | 1994-02-28 | 11.7 KB | 164 lines

REM Description:  Count words or sentences
REM Filename: count.wmc
REM Created by: Robin Fried and Steven 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 a graphic or table frame
frameType% = GetFrameType()
IF frameType% <> 0 THEN
    Message "The current frame must be a text frame."
    STOP
ENDIF

DIM typeStr$(2)
DIM whereStr$(5)

typeStr$(1) = "characters"
typeStr$(2) = "words"

whereStr$(1) = "entire document"
whereStr$(2) = "current story"
whereStr$(3) = "current frame"
whereStr$(4) = "current column"
whereStr$(5) = "selected text"

sel% = GetTextOffset(start%, end%)

IF sel% = 1 THEN where% = 4
type% = 1

BEGIN DIALOG Dialog1 134, 110, "Count"
    GROUPBOX       4, 4, 80, 34, "Type:"
    OPTIONGROUP    type%
    OPTIONBUTTON   14, 14, 64, 10, "&Characters"
    OPTIONBUTTON   14, 24, 64, 10, "&Words"
    GROUPBOX       4, 40, 80, 64, "Where:"
    OPTIONGROUP    where%
    OPTIONBUTTON   14, 50, 64, 10, "Entire &Document"
    OPTIONBUTTON   14, 60, 64, 10, "Current Stor&y"
    OPTIONBUTTON   14, 70, 64, 10, "Current &Frame"
    OPTIONBUTTON   14, 80, 64, 10, "Current Co&lumn"
    OPTIONBUTTON   14, 90, 64, 10, "&Selection"
    OKBUTTON       90, 4, 40, 14
    CANCELBUTTON   90, 20, 40, 14
END DIALOG

BEGIN DIALOG Dialog2 134, 80, "Count"
    GROUPBOX       4, 4, 80, 34, "Type:"
    OPTIONGROUP    type%
    OPTIONBUTTON   14, 14, 64, 10, "&Characters"
    OPTIONBUTTON   14, 24, 64, 10, "&Words"
    GROUPBOX       4, 40, 80, 34, "Where:"
    OPTIONGROUP    where%
    OPTIONBUTTON   14, 50, 64, 10, "Current Stor&y"
    OPTIONBUTTON   14, 60, 64, 10, "&Selection"
    OKBUTTON       90, 4, 40, 14
    CANCELBUTTON   90, 20, 40, 14
END DIALOG

IF GetEditor() = 1 THEN        ' Page Editor
    ret% = Dialog(dialog1)
ELSE
    where% = sel%
    ret% = Dialog(dialog2)        ' Draft Editor
    IF where% = 0 THEN
        where% = 1
    ELSE
        where% = 4
    ENDIF
ENDIF

if ret% = 2 THEN STOP

if type% = 0 THEN
    count% = CountCharacters(where%)
else
    count% = CountWords(where%)
endif

messageText$ = "There are "+str$(count%)+" "+typeStr$(type%+1)+" in the "+whereStr$(where%+1)+"."
Message(messageText$)


*****  WARNING *****
This is a WSWin macro file.
Subsequent data is binary information and should not be modified.
# MF # 1.0None762570320
╕Φ ╡#
8
àêë
âêçèâ
8ìî
ïìÄÅ
8    

8    æÉÆ
8âÉöâ
8ûò
ïûùÿ
8

1Ö


1¢


82Ç
0₧Ö    ₧¥
82Ü
0áÖ    áƒ
82Ç
0ó¢    óí
82Ü
0ñ¢    ñú
82Ñ
0º¢    ºª
82¿
0¬¢    ¬⌐
82£
0¼¢    ¼½
8«»░¡▒
8 
â¡Ç│â
8 !┤¿
8!"╡Ç
3╢╖╕╣4¿¿║╗╝4╡4
╜╜╛┐└4
╜┴╛┐┬4¿├║╛─4┤4
╜┼╛┐╞4
╜╟╛┐╚4
╜╔╛┐╩4
╜║╛┐╦4
╜╠╛┐═4╠¿├╜4    ╠╬├╜
8"25
3╧╖║╣4¿¿║╗╝4╡4
╜╜╛┐└4
╜┴╛┐┬4¿├║╗─4┤4
╜┼╛┐╚4
╜╟╛┐═4╠¿├╜4    ╠╬├╜
82?5
8?@╨╥╙
â╥Ç╘â
8@B6╒╢╤
8BD┤¡
8DE6╒╧
8EE
â┤╫â
8EG┤Ç╓
8GI┤¿
8IL
â╒Ü┘â
8LM

8MN
â╡█â
8NP
▌┤▄▐┌
8PR
▀┤▄α
8RU
π▄τΦ"ΘΓτ"ΩΘΣ∞╡Ç2∞
0δÖ"φΩδ"εφσ≡┤Ç2≡
0∩¢"±ε∩"≥±µ    ß≥
8UV    ≤ß
ï≤⌠⌡

°~¡$≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈.?N.?N
.?N .?N-.?N5.?N;.?NA.?NN.?N^.?N    l.?N
z.?Nê.?Nû.?Nñ.?N▓.?N╢.?N╣.?N╜.?N└.?N┬.?N─.?N╞.?N╔.?N╠.?N╧.?N╥.?N╘.?N╓.?N┌.?N▄.?N▐.?Nα.?N Γ.?N!Σ.?N"Θ.?N#∞.?N$≡.?N%⌡.?N&ⁿ.?N'/?N(
/?N)/?N*/?N+/?N,"/?N-(/?N.-/?N/3/?N06/?N1;/?N2@/?N3B/?N4E/?N5J/?N6N/?N7T/?N8Y/?N9`/?N:g/?N;l/?N<o/?N=w/?N>y/?N?{/?N@/?NAê/?NBî/?NCÅ/?NDù/?NE₧/?NFú/?NG¡/?NH┤/?NI╣/?NJ╜/?NK┬/?NL╟/?NM═/?NN╤/?NO╒/?NP▄/?NQπ/?NRΩ/?NS≡/?NT≈/?NU0?NV0?NW0?NX$0?NY10?NZ:0?N[G0?N\P0?N]X0?N^`0?N_h0?N`q0?Nav0?Nb{0?NcÇ0?Ndç0?NeÄ0?Nfö0?Ng¢0?Nh¥0?Nió0?Nj¿0?Nk«0?Nl╡0?Nm╛0?Nn╟0?No╦0?Np╙0?Nq╫0?Nr▄0?NsΓ0?NtΦ0?Nuε0?Nv⌠0?Nw∙0?Nx■0?Ny1?Nz1?N{1?N|1?N}_N  _N
+
_N
+

    _N

_N

_N  _N _N
ë
,_N  H1_N+      
4_N      9_N    
>_N  HC_NçK_N+      
Ä_N      ô_N  ÿ_N    

¥_N          
¿_Nç
╡_N    
║_N  ÿ┐_N  ÿ─_N+      
ε_N      ≤_N  °_N    

■_N
    
      
_N
+  
    
_N
    
      
_N
+  

_N+      
"
_N      Ö(
_N+      
0
_N      Ö6
_N+      
H
_N      ¢N
_N+      
^
_N      ¢d
_N
+  
f
_N+      
v
_N      ¢|
_N
+  
~
_N+      
Å
_N      ¢ò
_N+      
Ñ
_N      ¢½
_N          
░
_Nç
╛
_N          
┼
_N          
╩
_N    
╨
_N  ╝
╒
_N  ╝
┌
_N          
ß
_N          
τ
_N      
∩
_N
+  å
≤
_N
+  n
≈
_N+      
 
_N
+  P
_N
+  "
_N+      
_N
+  
_N
+  @
_N
+

_N+      
$_N
+  
'_N+      
0_N
+  (
3_N+      
<_N
+  2
?_N+      
R_N
+  <
U_N+      
f_N
+  F
i_N+      
z_N+      
î_N
+  Z
Å_N+      
£_N
+  
ƒ_N      
º_Nç
    ▒_N  ó╢_N  ╝_N    
┬_N  F╟_N          
╠_N  ó╤_N  Æ╫_N  ╞▌_N  ╞π_N  
Θ_N  ÷∩_N          
÷_Nç

_N    

_Nç
_N    

_N
          
*_N+      
7_N
ë<_N+      
@_N+      
K_N+      
O_N      U_N    

[_N      a_N      g_N      Öm_N  s_N      y_N      _N      ¢à_N  ï_N      æ_N      ù_N      ¥_N  ú_N    

⌐_N½_N????01CANCELERRORNUM[T1]
GETDOCNAME$[L1]""[T2][T3][L2]MESSAGE"Please create a new document or open an existing document first."[T4][T5][T6]FRAMETYPE%GETFRAMETYPE[T7][L3][L4]"The current frame must be a text frame."[T8][T9][T10]TYPESTR$2WHERESTR$5"characters"[T11]"words"[T12]"entire document"[T13]"current story"[T14]3"current frame"[T15]4"current column"[T16]"selected text"[T17]SEL%GETTEXTOFFSETSTART%END%[T18][L5][L6]WHERE%TYPE%DIALOG1134110"Count"8034"Type:"146410"&Characters"24"&Words"40"Where:"50"Entire &Document"60"Current Stor&y"70"Current &Frame""Current Co&lumn"90"&Selection"20DIALOG2GETEDITOR[L7][T19][T20][L8]RET%[L9][L10][L11][L12][L13][L14]COUNT%COUNTCHARACTERS[T21]COUNTWORDS[T22]MESSAGETEXT$"There are "STR$" "" in the ""."[T23][T24][T25][T26][T27][T28][T29][T30][T31][T32][T33][T34][T35][T36][T37]