g}y=w
CDBSE&File
&Open...	Ctrl+O
&Save	Ctrl+S
Save &As...
saveas
&Import...
import
&Export...
export
Print Set&up...
printsetup
&Print Pages...	Ctrl+P
printpages
Prin&t Report...
printreport
Send &Mail...
sendmail
&Run...
E&xit	Alt+F4
&Edit
&Undo	Ctrl+Z
Cu&t	Ctrl+X
&Copy	Ctrl+C
&Paste	Ctrl+V
paste
C&lear	Del
clear
Select &All	Shift+F9
selectall
Select Pa&ge	Shift+F12
selectpage
&Size to Page	F11
sizetopage
F&ind...	F5
Re&place...
replace
Aut&hor	F3
author
&Text
&Character...	F6
character
&Paragraph...	F7
paragraph
&Regular	Ctrl+Space
regular
&Bold	Ctrl+B
&Italic	Ctrl+I
italic
&Underline	Ctrl+U
underline
Stri&keout	Ctrl+K
strikeout
Superscrip&t/Subscript
superscriptSubscript
&Normal Script
normalscript
Su&bscript	Ctrl+L
subscript
Su&perscript	Ctrl+Shift+L
superscript
&Show Hotwords	F9
showhotwords
&Page
&Next	Alt+Right
&Previous	Alt+Left
previous
&First	Alt+Up
first
&Last	Alt+Down
&Back	Shift+F2
&History...	Ctrl+F2
history
N&ew Page	Ctrl+N
newpage
&Help
&Contents	F1
contents
Status &Bar	F12
statusbar
enterbook
\pcx\music\
cca10.DAT
cca31.DAT
\pcx\birds\
\pcx\arrows\
cca36.DAT
\pcx\trains\
\pcx\travel\
ccao9.DAT
cca12.DAT
\pcx\food\
cca40.DAT
\pcx\children\
cca14.DAT
cca20.DAT
\pcx\silhoet\
cca25.DAT
\pcx\cartoons\
\pcx\xmas\
\pcx\cats\
\pcx\symbols\
\pcx\maps\
cca26.DAT
cca01.DAT
ccao4.DAT
cca18.DAT
\pcx\occasio\
cca13.DAT
ccao5.DAT
cca23.DAT
\pcx\sports\
cca30.DAT
\pcx\people\
szCategory
\pcx\circus\
cca17.DAT
ccao6.DAT
cca41.DAT
cca34.DAT
\pcx\plants\
\pcx\religion\
cca33.DAT
ccao3.DAT
\pcx\borders\
\pcx\frames\
cca38.DAT
\pcx\health\
nCategorynumber
\pcx\misc\
cca22.DAT
cca24.DAT
nfilesincategory
cca37.DAT
\pcx\dogs\
\pcx\fish\
\pcx\autumn\
cca21.DAT
\pcx\trans\
\pcx\nautical\
cca19.DAT
ccao2.DAT
szsubpath
\pcx\western\
\pcx\educatio\
cca28.DAT
\pcx\signs\
\pcx\letters\
cca32.DAT
\pcx\home\
cca11.DAT
cca27.DAT
sztmpclp
cca39.DAT
ccao8.DAT
\pcx\recreati\
cca15.DAT
\pcx\hands\
\pcx\horses\
ccao7.DAT
cca16.DAT
\pcx\astro\
\pcx\holidays\
\pcx\romance\
\pcx\business\
\pcx\animals\
cca35.DAT
cca29.DAT
setvariables
.&+	+E
V,	#>
V,	#>
.&+	+E
nfilesincategory
szMedia
Done Importing
setvariables
szsubpath
t.BMP
mainctr
szCategory
start
ButtonClick
4szCategory
4nfilesincategory
4szsubpath
setvariables ncasenumber
nCategorynumber = 
nCategoryNumber = 1
 = 101000
nFilesinCategory = 163
szsubPath = "\pcx\animals\"
setMediaPaths
sztmpclp = 
& "cca01.DAT"
importclips 
ncategoryNumber = 2
 = 102000
arrows\"
SetMediapaths
~& "ccao2.
 = 103000
astro\"
& "ccao3.
 = 104000
utumn\"
& "ccao4.
 = 105000
birds\"
& "ccao5.
 = 106000
borders\" 	
& "ccao6.
 = 107000
business\"
& "ccao7.
 = 108000
cartoons\"
& "ccao8.
 = 109000
cats\"
& "ccao9.
 = 11
children\"
& "cca10.
 = 111000
circus\"
& "cca11.
 = 112000
dogs\"	
& "cca12.
 = 113000
educatio\"	
& "cca13.
 = 114000
fish\"
& "cca14.
 = 115000
food\"
& "cca15.
 = 116000
frames\"
& "cca16.
 = 117000
hands\"
& "cca17.
 = 118000
health\"
& "cca18.
 = 119000
holidays\"	
& "cca19.
 = 12
home\"
& "cca20.
 = 121000
horses\"
& "cca21.
 = 122000
letters\"
& "cca22.
 = 123000
maps\"
& "cca23.
 = 124000
misc\"
& "cca24.
 = 125000
music\"		
& "cca25.
,	 = 126000
nautical\"
& "cca26.
	 = 127000
occasio\"
& "cca27.
	 = 128000
L	151
<	people\"
%	& "cca28.
 = 129000
	plants\"
}	& "cca29.
 = 13
	recreati\"	
	& "cca30.
 = 131000
religion\"
& "cca31.
 = 132000
romance\"	
& "cca32.
 = 133000
signs\"
& "cca33.
 = 134000
silhoet\"
& "cca34.
 = 135000
sports\"
& "cca35.
 = 136000
symbols\"
& "cca36.
 = 137000
trains\"		
& "cca37.
 = 138000
trans\"
& "cca38.
 = 139000
travel\"
& "cca39.
 = 14
western\"
& "cca40.
 = 141000
xmas\"	
& "cca41.
To Handle ButtonClick
4szCategory
4nfilesincategory
4szsubpath
MainCounter = 
endno = 
While 
setvariables Maincounter
"mainctr" = maincounter
* < nFilesincategory + 1 
szMedia = "f:" & szsubPath & (
& ".PCX"
mmYield
qclip 
Name 
mmSearchCD 
= True
mmSearchHD 
processing 
tnail 
szt = 
U"l" 
zt & (
& "t.BMP"
szmedia
) & "t" 
"Done Importing"
112001
112001t
112002
112002t
112003
112003t
112004
112004t
112005
112005t
112006
112006t
112007
112007t
112008
112008t
112009
112009t
112010
112010t
f:\pcx\dogs\112001.PCX
f:\tnail\dogs\112001t.BMP
f:\pcx\dogs\112002.PCX
f:\tnail\dogs\112002t.BMP
f:\pcx\dogs\112003.PCX
f:\tnail\dogs\112003t.BMP
f:\pcx\dogs\112004.PCX
f:\tnail\dogs\112004t.BMP
f:\pcx\dogs\112005.PCX
f:\tnail\dogs\112005t.BMP
f:\pcx\dogs\112006.PCX
f:\tnail\dogs\112006t.BMP
f:\pcx\dogs\112007.PCX
f:\tnail\dogs\112007t.BMP
f:\pcx\dogs\112008.PCX
f:\tnail\dogs\112008t.BMP
f:\pcx\dogs\112009.PCX
f:\tnail\dogs\112009t.BMP
f:\pcx\dogs\112010.PCX
f:\tnail\dogs\112010t.BMP
\pcx\music\
cca10.DAT
cca31.DAT
\pcx\birds\
\pcx\arrows\
cca36.DAT
\pcx\trains\
\pcx\travel\
ccao9.DAT
cca12.DAT
\pcx\food\
cca40.DAT
\pcx\children\
cca14.DAT
cca20.DAT
\pcx\silhoet\
cca25.DAT
\pcx\cartoons\
\pcx\xmas\
\pcx\cats\
\pcx\symbols\
\pcx\maps\
cca26.DAT
cca01.DAT
ccao4.DAT
cca18.DAT
\pcx\occasio\
cca13.DAT
ccao5.DAT
cca23.DAT
\pcx\sports\
cca30.DAT
\pcx\people\
szCategory
\pcx\ci
false
:HDMEDIAPATH
System
<BookPath>;d:\bmp\cat800;d:\tnail\cat800
syschangedb
false
System
enterbook
nCategorynumber
setvariables
4szCategory
4nfilesincategory
4szsubpath
setvariables ncasenumber
nCategorynumber = 
V,	#>
nStart
szPath
szMedia
Please Enter the Category Name to Import
Please Enter the complete path for the media to be imported
Please Enter the Start number of the Media
Please Enter the End number of the Media
szCatName
Done Importing
ButtonClick
To Handle ButtonClick
Ask "Please Enter the Category Name 
Import"
szCatName = It
)complete path 
;media 
be imported"
szPath = It
_Start 
jMedia"
nStart = It
nEnd = It
Counter = 
While 
szMedia = 
+ counter)
& ".BMP"
qclip 
mmSearchCD 
= True
mmSearchHD 
] + 1
"Done Importing"
Import Clip Media
,%H.%
allclips
buttonclick
buttonclick
counter = 1
allclips = resourceList("
szn = 
&clear clips
V,	#>
nStart
szPath
szMedia
Please Enter the Category Name to Import
Please Enter the complete path for the media to be imported
Please Enter the Start number of the Media
Please Enter the End number of the Media
szCatName
Done Importing
ButtonClick
To Handle ButtonClick
Ask "Please Enter the Category Name 
Import"
szCatName = It
)complete path 
;media 
be imported"
szPath = It
_Start 
jMedia"
nStart = It
nEnd = It
Counter = 
While 
szMedia = 
+ counter) & "t"
& ".BMP"
qclip 
e) & "t"
mmSearchCD 
= True
mmSearchHD 
l + 1
"Done Importing"
Import Thumb Nail
Mainctr
Begin Import
buttonclick
buttonclick
resourceCount(clip, 
&Button
start
Start