WORD getDriveType(INT) -- Where 0=A, 1=B, etc. Removable returns 2
ASetErrorMode(
C GetPrivateProfileString(STRING,
--For getting & freeing memory.
lobalAlloc(
,DWORD)
lobalFree(
POINTER globalLock(
lobalUnlock(
checkDLL "
user"
E GetClientRect(
[) --
finding tbook client
--
knowing
we're
) --
sending
PostMessage(
, LONG)
-- Check
asure Multimedia Extentions are loaded, &
misc. stuff.
X"mmsystem.dll"
INT sndPlaySound(
waveOutGetDevCaps(
--
" test.
timeGetTime()
movies.
noMME
X"tb30win.
xUnitsFromPixels(
repositioning
pageFromClient(
clientFromPage(
INT,
) --
displayBitsPerPixel() --
256 color checking
getWinIniVar(
tb30dos.
getDriveList()
getCurrentDrive()
getCurrentDirectory(
getFileList(
copyFile(
vReply1
"Can't
""" &
_ & """." &
"Make
either on
hard disk directory where
resides, "&\
." &
"If you're
that
should be,
%"&&\
"still
message, try turning on Virtual Memory (see"&&\
"Control Panel Help
directions). "
"The
sions
xinstalled,
-- "
properly." &
&& "can't
without them."
readCDerrorMsgs
"catcd.
--
--
vErrorsText
ZvFirstFixedDisk,vIsCD
vErrorMsgs
1) -- Turn
msgs. during
vDriveList
x"A"
isCDDrive(
0 -- It's
xa CD drive.
i - 1) = 3
-- It's a
-- It's a CD
& ":\
) & ":\
-- If
root:
& ":\
) & ":\")
-- You've gotten
, so stop
0) --
vReply2
CD containing """ &
-- """
your CD-ROM
-- "Put
click ""Retry,""
-- ""
"""& "
sysMediaSuspend =
isNewTBKfile
tbkfile.
x"OK"
fExt
-- We're assuming
)least a
every
, vNewFileList
vFileList
& "cat*." &
isType(
insertionSort(
quickSort(
) -- Only
]quicksort algorithm.
getBookStub
ZvStub
4svCanPlayWave
ZvMsg
checkCueing() -- See
. If so,
-- definately
"0" -- It cued a wavefile successfully.
"-1" -- No .WAV
exists.
-- It
j, but
hese other tests
4giving up.
checkDevCaps() --
waveOutDevCaps.
--MCI reports: "
range."
"Your
z audio
xresponding." --12
driver present."
"An unknown
occurred." --14
checkInis()
4." --15
correctly on
4." --16
missing
U""wav=waveaudio"""&&\
""[mci extensions]"" section
WIN.INI
" --17
"sounds
wav") )
" &&
&& "type
waveFile wait")
sysErrorNumber
vReturn
" &&
getMemPointer(64)
vHandle
vPtr
freeMemory(
f128)
"mci","WaveAudio","
,128,"
4.ini")
c"mciwave.drv")
-- Aris Entertainment's Product Catalog, ver. 2.0
-- Copyright (c) 1994,
CMultimedia
K, Inc.
-- All rights reserved.
k --This prevents
4books on the
--SYSSTARTUPBOOKS
ToolBook
WIN.INI
running
instance
"catalogStatusBar"
/"main"
sysMediaSuspend =
4svProgNameStub, svExitMsgNum
closeWave
closeMovie
lockScreen
-- If the Wizard
out there, let
know we're exiting so
normalize
PostMessage(0xFFFF,
, 0, 0)
-- Prevents user
going
Ctrl-
Sarrow key.
t --
saving
keyEnter
buttonClick
canPlayMovies
4svMovieType
testDeviceType("mpg")
"0" -- Check
MPEG.
xpresent.
Mavi")
"2" -- 2 means
are no VFW movies.
pCaptionText
--
"The [MCI] Microsoft AVI Video Driver
SuperMatch Cinepak
xbe installed,"&&\
-- "
correctly." &\
k& "You will
xbe able
play
" &&\
-- "
program."
-- For
only maximize
Let's see
's possible.
testStretchability("
tbkMCIwaveChk cmd,notif
ZretVal
callMCI(
B"sound" =
"mainPage" =
waveFile wait")
aniFile")
untranslateWindowMessage 514
enabled
fFileExt
4svDataPath
getFileList( (
& "cat*." &
vFile
" &&
&& "alias
style child
" && sysClientHandle && "
state
sysErrorNumber
vReturn
sndPlaySound(0,0)
" &&
&& "
" &&
" &&
&& "
"capability" &&
&& "can stretch")
"fullScreen"
"Your" &&\
-- "
xcapable
displaying
_-screen mode." &&\
-- "
a small
"normalScreen"
" &&
checkFor8bit
4svBitDepth
displaybitsperpixel()
& < 8
vReply1
vReply2
current Windows video driver cannot" && \
256 colors simultaneously.
pictures
" &&\
"appear off-
getBookPath
getMemPointer fBytes
vHandle
GlobalAlloc(0,
"Unable
allocate enough global memory
perform
operation." --3
lpPtr
GlobalLock(
GlobalFree(
. Can't
freeMemory fHandle
GlobalUnlock(
tbkmmdevices
4s_mmdevices
imageCommandChk
req,brk
(cmd)
vError
tbkMCIchk
syserrornumber
tbkmmerrorstring(
calcNewTextBounds
vBounds
"mainText"
pageFromClient(
,sysMagnification,TBclientWin())
)/2)
vScreenX -- Horiz.
-- Horizontal
half
) - (
)) /2)
vFieldX
xUnitsFromPixels(1)
-- - 23
-- - 23
getScreenCenter
)/2)
vScreenCenter
)/2)
moveBMP
4svBMPpos
calcBMPpos
ebmpFile
" &&
calcVFWVertPos fWinYsize
"testingMotion"
"showMotion"
clientFromPage(
) - 10) / 2
r / 2) )
U"BMPline"
= pageUnitsToFrame(
putMovieWindow
"where
allocation
." &
"Cannot
." --35
)/2) - ((
)/2)) \
)/2) - ((
)/2)) \
)" &&
"realize
hRect
globalAlloc(0,8)
lpRect
globalLock(
getClientRect(
vSize
globalUnlock(
globalFree(
resetCatalog
= " "
following sorting functions
Asymetrix's Scrap
(C)
insertion
limited
about 150
(due, perhaps,
limitations). When
engine
3.0,
quicksort
algorithm below
be a better
certainly faster) one
insertionSort
fTable, fKeyNum
vLineCount,
lines
vRecordNumber,
zbeing inserted \
vCurKey,
key value \
vSortedCount,
already sorted \
vTemp
--holder
jduring its deletion
"Empty table"
zgreater than
elements"
> 0
& CRLF
a recusive
that currently
because
(due
stack
). In
3.0, however,
, so
more
above, which
now.
fText
4svSortList
ZvSortText
quicksrt 1,textlineCount(
1fFirst,fLast
vSplitPoint
@split(
vKey
t + 1
swap
fPoint1,fPoint2
vTemp1
vTemp2
End
scripts
mainPage
40,30
normalPos
pageGroup
BMPline
statusBarTextline
This feature is not currently available.
J5pCaptionText
catalogStatusBar
mouseEnter
statusBarTextline
window bmpFile state hide
maintext
.buttonChosen
mainText
window bmpFile state show
buttonClick
statusBarTextline
sound
toggleWaveSound
buttonClick
statusBarTextline
.&+ +E
.&+ +E
showNewProduct
svCatCount
first
svCatNumber
previous
.buttonChosen
vOldCatNumber
buttonClick
first
statusBarTextline
previous
statusBarTextline
statusBarTextline
statusBarTextline
order
.&+ +E
.&+ +E
mainText
.buttonChosen
order
return
buttonClick
statusBarTextline
.&+ +E
.&+ +E
showNewProduct
false
svSlideShow
.buttonChosen
stuff
false
svSlideShow
stuff
svBitDepth
J5pCaptionText
"setCatNumber
buttonClick
svCatCount
svCatNumber
setCatNumber
statusBarTextline
vReply1
svBookInfo
vReply2
vReply1
.buttonChosen
J5pCaptionText
vReply2
buttonClick
statusBarTextline
buttonClick
4svSlideShow,svBitDepth
buttonChosen
y --Start the
pCaptionText
("Enter
9amount
display each product screen:"
f"10"
stuff = sysErrorNumber
isType("
"You didn't enter a whole
z. Try
setCatNumber
* 1000)
showNewProduct
timerStop(0)
4svCatNumber,svCatCount
statusBarTextline
vReply1
svBookInfo
vReply2
vReply1
.buttonChosen
J5pCaptionText
vReply2
buttonClick
buttonClick
4svBookInfo
buttonChosen
vReply1
pCaptionText
vReply2
"Are you sure
want
" &&
"?"""
f"Yes"
"Cancel" --34
-- "
flushMessageQueue()
statusBarTextline
pCaptionText
mainText
bottomLine
topLine
catalogStatusBar
To learn about a button, just move your mouse over it. Information about that button will appear here.
request "There are no compatible motion video drivers installed on your system. You will not be able to play any movies from this program."
request "Your current Windows video driver cannot display 256 colors simultaneously. The pictures in this program will appear off-color."
Unable to allocate enough global memory to perform this operation.
Unable to lock global memory. Can't perform this operation.
request "Can't run Help." & crlf & crlf & "Make sure that the file WINHELP.EXE is in your Windows directory."
request "Can't link to file """ & fDLL & ".""" & crlf & crlf & "Make sure it is either on the hard disk directory where this program resides, or in any directory on the DOS path." & crlf & crlf & "If you're sure that the file is where it should be, and you still get this message, you may be running low on memory. To remedy this situation, try turning on Virtual Memory (see the Windows Control Panel Help or your Windows manual for directions)." with vReply1
request "The Multimedia Extensions to Windows are not installed, or not installed properly." & crlf & crlf & quote & caption of this book & quote && "can't run without them." with vReply1
request "An older version of the file" && vFilename && "is in directory " & uppercase(svBookPath) & ", or elsewhere in your path." & crlf & crlf & "Replace your old" && vFilename && "file with the newer one on the CD containing """ & caption of this book & ","" and run """ & caption of this book & """ again." with vReply1
request "The correct CD is not in your CD-ROM drive." & crlf & crlf & "Put the CD into your drive and click ""Retry,"" or click ""Exit"""& " to leave this program." with vReply1 or vReply2
request "An older version of the file" && vFilename && "is in directory " & uppercase(svBookPath) & ", or elsewhere in your path." & crlf & crlf & "When you are finished using """ & caption of this book & ","" replace your old" && vFilename && "file with the newer one on the CD containing """ & caption of this book & "."""
request "Unable to locate Product Screen files. Exiting program." & crlf&crlf& "[Error code:" && it & "]"
Your wave audio device is not responding.
Your wave audio device driver is not responding.
An unknown error occurred.
The MCI Sound driver is not installed on your system.
The MCI Sound driver is not installed correctly on your system.
set vMsg to "You are missing the line ""wav=waveaudio"""&& "in the ""[mci extensions]"" section of your WIN.INI file."
request vMsg & crlf & crlf & "You will not be able to hear any wave audio sounds from this program."
request quote & fTargetFile & """ already exists." & crlf & "Do you want to replace it?" & crlf & crlf & "Existing file's size is " & it && "bytes." & crlf & "Replacement file's size is " & vSourceFileSize && "bytes." with vReply1 or vReply2
Your destination drive doesn't have enough free space.
There's a problem accessing your destination drive.
An out of memory condition occurred.
can't be found.
can't be copied to
request "Unable to play this movie." & crlf & crlf & "The [MCI] Microsoft AVI Video Driver and/or the SuperMatch Cinepak Driver may not be installed, or not installed correctly."
request "Unable to play this movie." & crlf & crlf & "Your MPEG driver or hardware may not be installed, or not installed correctly."
request "Are you sure you want to exit this program?" with vReply1 or vReply2
request "Memory allocation error." & crlf & crlf & "Cannot play this movie."
request "Unable to play this movie. There are no compatible motion video drivers installed on your system."
(.txt)