System
*defComPort
defaultcomport
`B|B|
4s_Report_Errors, s_aux
"reference 
"working 
B"foo"
B"unloadmidi"
1 -- 
y, no debug terminal
"DVA-4000.tbk,LD-V2200.
linked 
Bsetvideo 
InitLinks
openComPort(
,0,0)
setComPort(
,9600,8,1,0,0) -- no handshake, so won't hang
linkDLL "midisoft.dll"
WORD seqInit(
Exit()
Open(STRING)
,Close()
6Play()
?Stop()
HPause()
\Version()
 tbk-comm.
suspend 
X"TBK-COMM.
--INT clearComBreak(
oseComPort(
$flushComRxBuffer(
;flushComTxBuffer(
isComRxReady(
isComTxReady(
 readComPort(
setComBreak(
setComPortTxXlate(
 TBK_COMMVersion()
writeComPort(
"Cannot find the correct version 
DLL." \
&& "Unable 
access 
3serial ports."
 user functions
showwindow(
setActiveWindow(
bringWindowToTop(
getTickCount()
closeComPort(
defComPort 
-	< End 
8housekeeping >
---< Timer services >---
resetTimer
4s_time_mark
GetTickCount()
elapsed since
;) / 1000
waitFor what
, s_wait_mark
IsComRxReady(
) > 0
) > 0
getControl
---< 
timer 
setup
entire presentation 
,8250
-4,-41,662,501
"Opening midi1.
seqError(
1,2,816))
seqOpen("c:\
Evideodisc..."
g",2)
"error opening 
C overlay driver" && 
f("play")
docommand "
(status,player) = 
("seek",1)
+frame) = 1"
"Videodisc ready.
Closing unwanted windows."
Kill 
other instances 
ToolBook that are out there
x"OK"
excel
)][quit()]"\
 Excel 
x"OK"
--Start 
 DDE demo files 
needed
(""ddedata.xls"")]"\
"OK" 
.exe ddedemo.xlw"
--Move 
desired location
(""macro3.xlm!OffScreen"")]"\
"OK" 
"Setup 
xrunning properly"
"bkgnd.tbk"
"frgnd.
 toolbook 
bringwindowtotop(
"multi2.
320,0;"\
"Other 
 up our 
"Reference Field" 
"Working 
default
key color","dark 
inset", "full screen")
("fade out",1)
audiocontrol("
level",255)
("Fade In",1)
"All OK"
"Everything's 
 now, just hit 
dismissing"\
$Escape 
STARTDEMO
ZvStartTime, vTargetTime, vCommand, vCurrentSysTime, 
Clean up 
Set up 
1	times
Main loop, will 
no more commands 
Get a 
[container
"--" 
First see 
zsomething.
 (relative) 
Wait 
Correct 
going past midnight
H86400
auxIn 
DOCOMMAND 
fCommand
, vExecuteLine, vCommandLength, vSoundCmd
sendaux(trim(
X) & 
"sound" 
 toolBook 
r<> "OK" 
 && "ExecuteRemote 
:" && 
startdemo
cs <> 
s) < 33
cs <> 
s) < 33
resetTimer
InitLinks
setup
STARTDEMO
enterbook
DOCOMMAND
leavebook
keydown
getControl
itFor
elapsed
waitFor
sendaux
enterbook
sizetopage
reference field
working field
unloadmidi
DVA-4000.tbk,LD-V2200.tbk
linked
InitLinks
openComPort
setComPort
setvideo
s_Report_Errors
s_aux
InitLinks
midisoft.dll
seqInit
seqExit
seqOpen
seqClose
seqPlay
seqStop
seqPause
seqError
seqVersion
TBK-COMM.DLL
closeComPort
flushComRxBuffer
flushComTxBuffer
isComRxReady
isComTxReady
openComPort
readComPort
setComPort
setComPortTxXlate
TBK_COMMVersion
writeComPort
Cannot find the correct version of TBK-COMM.DLL.
Unable to get access to the serial ports.
showwindow
setActiveWindow
bringWindowToTop
getTickCount
suspend
leavebook
closeComPort
defComPort
defComPort
closeComPort
s_aux
resetTimer
GetTickCount
s_time_mark
elapsed
GetTickCount
GetTickCount
s_time_mark
since
waitFor
readComPort
GetTickCount
IsComRxReady
IsComRxReady
readComPort
getControl
s_aux
s_wait_mark
setup
reference field
working field
unloadmidi
setvideo
seconds
Opening midi1.mid
seqInit
seqError
c:\midi\midi1.mid
seqOpen
seqError
Opening videodisc...
Close
videodisc
videodisc
error opening videodisc overlay driver
videodisc
docommand
wait, videodisc(status,player) = play
videodisc
docommand
wait, videodisc(status,frame) = 1
Videodisc ready.  Closing unwanted windows.
name of this book
send exit
[close(false)][close(false)][quit()]
[activate("ddedata.xls")]
excel.exe ddedemo.xlw
[run("macro3.xlm!OffScreen")]
Setup error: Excel is not running properly
bkgnd.tbk
frgnd.tbk
hide mainwindow
toolbook
frgnd.tbk
bringwindowtotop
multi2.tbk
send sizeToPage;set position of mainwindow to 320,0;
hide mainwindow
toolbook
multi2.tbk
Other instances are ready
Reference Field
Working Field
Opening DVA driver
Close
video
video
error opening video overlay driver
set key color
dark yellow
video
set inset
full screen
video
fade out
video
set level
audiocontrol
Fade In
video
All OK
Everything's ready now, just hit the space bar after dismissing
this DB,  or hit Escape to show the demo control book's window.
default
Excel
ToolBook
s_aux
STARTDEMO
Working Field
Working Field
Working Field
        
isComRxReady
isComRxReady
readComPort
getControl
getControl
DOCOMMAND
default
auxIn
vStartTime
vTargetTime
vCommand
vCurrentSysTime
s_aux
DOCOMMAND
sendaux
sound
video
videodisc
waitFor
ExecuteRemote Error:
sendaux
toolBook
s_Report_Errors
s_aux
vTarget
vExecuteLine
vCommandLength
vSoundCmd
fCommand
keydown
field
startdemo
getControl
getControl
reference field
working field
unloadmidi
setvideo
show mainwindow; send sizetopage;
set syslevel to author
frgnd.tbk
show mainwindow; send sizetopage;
set syslevel to author
bkgnd.tbk
setActiveWindow
bringWindowToTop
sizeToPage
toolbook
sendaux
writeComPort
s_aux
`B|B|
Asymetrix  ToolBook
later
later
later
"working 
B"foo"
B"unloadmidi"
B"setvideo"
1 -- 
y, no debug terminal
"DVA-4000.tbk,LD-V2200.
linked 
InitLinks
openComPort(
setComPort(
9600,8,1,0,0) -- no handshake, so won't hang
linkDLL "midisoft.dll"
WORD seqInit(
Exit()
Open(STRING)
,Close()
6Play()
?Stop()
HPause()
\Version()
 tbk-comm.
suspend 
X"TBK-COMM.
--INT clearComBreak(
oseComPort(
$flushComRxBuffer(
;flushComTxBuffer(
isComRxReady(
isComTxReady(
 readComPort(
setComBreak(
setComPortTxXlate(
 TBK_COMMVersion()
writeComPort(
"Cannot find the correct version 
DLL." \
&& "Unable 
access 
3serial ports."
 user functions
showwindow(
setActiveWindow(
bringWindowToTop(
getTickCount()
closeComPort(
defComPort 
-	< End 
8housekeeping >
---< Timer services >---
resetTimer
4s_time_mark
GetTickCount()
elapsed since
;) / 1000
waitFor what
wait_mark
s_wait_mark 
IsComRxReady(
) > 0
) > 0
getControl
---< 
timer 
setup whichPart -- 
entire presentation 
,8250
-4,-41,662,501
"Opening midi1.
seqError(
1,2,816))
seqOpen("c:\
Evideodisc..."
g",2)
"error opening 
C overlay driver" && 
f("play")
docommand "
(status,player) = 
("seek",1)
+frame) = 1"
"Videodisc 
Closing unwanted windows."
Kill 
other instances 
ToolBook that are out there
x"OK"
excel
)][quit()]"\
 Excel 
x"OK"
--Start 
 DDE demo files 
needed
(""ddedata.xls"")]"\
"OK" 
.exe ddedemo.xlw"
--Move 
desired location
(""macro3.xlm!OffScreen"")]"\
"OK" 
"Setup 
xrunning properly"
"bkgnd.tbk"
"frgnd.
 toolbook 
bringwindowtotop(
"multi2.
320,0;"\
"Other 
 up our 
"Reference Field"
startLine 
c("@" & whichpart)
"Working 
Dstartline 
default
key color","dark 
inset", "full screen")
("fade out",1)
audiocontrol("
level",255)
("Fade In",1)
"All OK" && 
"Everything's 
 now, just hit 
dismissing"\
$Escape 
sendaux(
(7) & 
(12)\
& "Demo 
Waiting 
a keypress." & 
STARTDEMO
ZvStartTime, vTargetTime, vCommand, vCurrentSysTime
, s_requestStop
y-- so we don't restart 
accidentally
Clean up 
Set up 
times
Main loop, will 
no more commands 
Get a 
[container
"--" 
First see 
zsomething.
 (relative) 
Correct 
going past midnight
H86400
) > 0
auxIn 
) > 0
s_RequestStop 
DOCOMMAND 
h& "<<< 
completed successfully. >>>" & 
TfCommand
, vExecuteLine, vCommandLength, vSoundCmd
trim(
T) & 
"sound" 
 toolBook 
r<> "OK" 
 && "ExecuteRemote 
:" && 
startdemo
"Interrupted"
cs <> 
s) < 33
cs <> 
s) < 33
 <> 0
tTimer
InitLinks
setup
STARTDEMO
enterbook
DOCOMMAND
leavebook
keydown
resetTimer
getControl
itFor
elapsed
waitFor
sendaux
enterbook
sizetopage
reference field
working field
unloadmidi
setvideo
DVA-4000.tbk,LD-V2200.tbk
linked
InitLinks
openComPort
setComPort
setvideo
s_Report_Errors
s_aux
s_ready
InitLinks
midisoft.dll
seqInit
seqExit
seqOpen
seqClose
seqPlay
seqStop
seqPause
seqError
seqVersion
TBK-COMM.DLL
closeComPort
flushComRxBuffer
flushComTxBuffer
isComRxReady
isComTxReady
openComPort
readComPort
setComPort
setComPortTxXlate
TBK_COMMVersion
writeComPort
Cannot find the correct version of TBK-COMM.DLL.
Unable to get access to the serial ports.
showwindow
setActiveWindow
bringWindowToTop
getTickCount
suspend
leavebook
closeComPort
defComPort
defComPort
closeComPort
s_aux
resetTimer
GetTickCount
s_time_mark
elapsed
GetTickCount
GetTickCount
s_time_mark
since
waitFor
readComPort
GetTickCount
IsComRxReady
IsComRxReady
readComPort
getControl
s_aux
s_wait_mark
setup
leaveBook
enterBook
unloadmidi
setvideo
commandwindow
reference field
seconds
Opening midi1.mid
seqInit
seqError
c:\midi\midi1.mid
seqOpen
seqError
Opening videodisc...
Close
videodisc
videodisc
error opening videodisc overlay driver
videodisc
docommand
wait, videodisc(status,player) = play
videodisc
docommand
wait, videodisc(status,frame) = 1
Videodisc ready.  Closing unwanted windows.
name of this book
send exit
[close(false)][close(false)][quit()]
[activate("ddedata.xls")]
excel.exe ddedemo.xlw
[run("macro3.xlm!OffScreen")]
Setup error: Excel is not running properly
bkgnd.tbk
frgnd.tbk
hide mainwindow
toolbook
frgnd.tbk
bringwindowtotop
multi2.tbk
send sizeToPage;set position of mainwindow to 320,0;
hide mainwindow
toolbook
multi2.tbk
Other instances are ready
Reference Field
whichpart
Working Field
startline
Opening DVA driver
Close
video
video
error opening video overlay driver
set key color
dark yellow
video
set inset
full screen
video
fade out
video
set level
audiocontrol
Fade In
video
All OK
working field
Everything's ready now, just hit the space bar after dismissing
this DB,  or hit Escape to show the demo control book's window.
Demo ready.  Waiting for a keypress.
sendaux
default
startLine:to
startLine
Excel
ToolBook
s_aux
s_ready
whichPart
STARTDEMO
Working Field
Working Field
Working Field
        
isComRxReady
isComRxReady
readComPort
getControl
s_RequestStop
getControl
DOCOMMAND
<<< Demo completed successfully. >>>
sendaux
auxIn
s_aux
s_ready
s_requestStop
vStartTime
vTargetTime
vCommand
vCurrentSysTime
DOCOMMAND
sendaux
sound
video
videodisc
waitFor
ExecuteRemote Error:
sendaux
toolBook
s_Report_Errors
s_aux
vTarget
vExecuteLine
vCommandLength
vSoundCmd
fCommand
keydown
field
startdemo
getControl
s_ready
s_requestStop
startdemo
getControl
s_ready
getControl
commandwindow
reference field
working field
unloadmidi
setvideo
commandwindow
Interrupted
show mainwindow; send sizetopage;
set syslevel to author
frgnd.tbk
show mainwindow; send sizetopage;
set syslevel to author
bkgnd.tbk
setActiveWindow
bringWindowToTop
sizeToPage
default
toolbook
s_ready
s_requestStop
sendaux
writeComPort
s_aux
*nextbook
4s_Report_Errors, s_aux, s_ready
"reference 
"working 
B"foo"
nextBook 
"later"
"" -- 
y, no debug terminal
"DVA-4000.tbk,LD-V2200.
linked 
Bsetvideo 
InitLinks
openComPort(
setComPort(
9600,8,1,0,0) -- no handshake, so won't hang
linkDLL "midisoft.dll"
WORD seqInit(
Exit()
#Open(STRING)
5Close()
BPlay()
NStop()
ZPause()
tVersion()
 tbk-comm.
suspend 
X"TBK-COMM.
INT closeComPort(
flushComRxBuffer(
/flushComTxBuffer(
isComRxReady(
isComTxReady(
 readComPort(
setComPortTxXlate(
writeComPort(
"Cannot find the correct version 
DLL." \
&& "Unable 
access 
3serial ports."
 user functions
showwindow(
setActiveWindow(
bringWindowToTop(
getTickCount()
defComPort 
-	< End 
8housekeeping >
---< Timer services >---
resetTimer
4s_time_mark
GetTickCount()
elapsed since
;) / 1000
waitFor what
wait_mark
s_wait_mark 
IsComRxReady(
) > 0
) > 0
getControl
---< 
timer 
setup whichPart -- 
entire presentation 
,8250
-4,-41,662,501
"Opening midi1.
seqError(
1,2,816))
seqOpen("c:\
Nvideodisc..."
v",2)
"error opening 
O overlay driver" && 
{("play")
docommand "
(status,player) = 
("seek",1)
1frame) = 1"
"Videodisc 
Closing unwanted windows."
Kill 
other instances 
ToolBook that are out there
x"OK"
excel
)][quit()]"\
 Excel 
x"OK"
--Start 
load DDE demo files 
needed
(""ddedata.xls"")]"\
"OK" 
.exe ddedemo.xlw"
--Move 
desired location
(""macro3.xlm!OffScreen"")]"\
"OK" 
"Setup 
xrunning properly"
"bkgnd.tbk"
"frgnd.
Here you would 
"Other 
 up our 
"Reference Field" one 
startLine 
c("@" & whichpart)
"Working 
Dstartline 
default
key color","dark 
inset", "full screen")
("fade out",1)
audiocontrol("
level",255)
("Fade In",1)
"All OK" && 
"Everything's 
 now! Hit CTRL+A 
begin A/V extravaganza"\
&& "(
hit Escape 
sendaux(
(7) & 
(12)\
& "Demo 
Waiting 
a keypress." & 
STARTDEMO
ZvStartTime, vTargetTime, vCommand, vCurrentSysTime
, s_requestStop
y-- so we don't restart 
accidentally
Clean up 
Set up 
times
Main loop, will 
no more commands 
Get a 
[container
"--" 
First see 
zsomething.
 (relative) 
Correct 
going past midnight
H86400
) > 0
auxIn 
) > 0
s_RequestStop 
DOCOMMAND 
h& "<<< 
completed successfully. >>>" & 
TfCommand
, vExecuteLine, vCommandLength, vSoundCmd
trim(
T) & 
"sound" 
 toolBook 
r<> "OK" 
 && "ExecuteRemote 
:" && 
key, isShift, isCtrl
keyA 
startdemo
10072,8192
"now"
syschangesDB 
8"C:\SWDEMO\STEVE.TBK"
B"unloadmidi"
"Interrupted"
 toolbook 
cs <> 
s) < 33
cs <> 
s) < 33
 <> 0
tTimer
InitLinks
setup
STARTDEMO
enterbook
DOCOMMAND
leavebook
keydown
resetTimer
getControl
itFor
elapsed
waitFor
sendaux
enterbook
sizetopage
reference field
working field
commandwindow
nextBook
later
DVA-4000.tbk,LD-V2200.tbk
linked
InitLinks
openComPort
setComPort
setvideo
s_Report_Errors
s_aux
s_ready
InitLinks
Cannot find the correct version of TBK-COMM.DLL.
Unable to get access to the serial ports.
showwindow
setActiveWindow
bringWindowToTop
getTickCount
suspend
leavebook
closeComPort
defComPort
defComPort
closeComPort
s_aux
resetTimer
GetTickCount
s_time_mark
elapsed
GetTickCount
GetTickCount
s_time_mark
since
waitFor
readComPort
GetTickCount
IsComRxReady
IsComRxReady
readComPort
getControl
s_aux
s_wait_mark
setup
leaveBook
enterBook
commandwindow
reference field
seconds
name of this book
send exit
Other instances are ready
Reference Field
whichpart
Working Field
startline
video
error opening video overlay driver
set key color
dark yellow
video
set inset
full screen
video
fade out
video
set level
audiocontrol
Fade In
video
All OK
working field
Everything's ready now! Hit CTRL+A to begin A/V extravaganza
(after losing this DB),  or hit Escape to show the demo control book's window.
Demo ready.  Waiting for a keypress.
sendaux
default
startLine:to
startLine
ToolBook
s_aux
s_ready
whichPart
STARTDEMO
Working Field
Working Field
Working Field
        
isComRxReady
isComRxReady
readComPort
getControl
s_RequestStop
getControl
DOCOMMAND
<<< Demo completed successfully. >>>
sendaux
auxIn
s_aux
s_ready
s_requestStop
vStartTime
vTargetTime
vCommand
vCurrentSysTime
DOCOMMAND
sendaux
sound
video
videodisc
waitFor
ExecuteRemote Error:
sendaux
toolBook
s_Report_Errors
s_aux
vTarget
vExecuteLine
vCommandLength
vSoundCmd
fCommand
keydown
startdemo
getControl
sizeToPage
field
s_ready
s_requestStop
isCtrl
isShift
nextBook
C:\SWDEMO\STEVE.TBK
getControl
getControl
commandwindow
reference field
working field
unloadmidi
setvideo
commandwindow
Interrupted
show mainwindow; send sizetopage;
set syslevel to author
frgnd.tbk
show mainwindow; send sizetopage;
set syslevel to author
bkgnd.tbk
setActiveWindow
bringWindowToTop
sizeToPage
default
toolbook
suspend
s_ready
s_requestStop
sendaux
writeComPort
s_aux
s_aux
vTarget
vExecuteLine
vCommandLength
vSoundCmd
fCommand
keydown
startdemo
getControl
sizeToPage
field
s_ready
s_requestStop
isCtrl
isShift
nextBook
C:\SWDEMO\STEVE.TBK
getControl
getControl
commandwindow
reference field
working field
unloadmidi
setvideo
commandwindow
Interrupted
show mainwindow; send sizetopage;
set syslevel to author
frgnd.tbk
show mainwindow; send sizetopage;
set syslevel to author
bkgnd.tbk
setActiveWindow
bringWindowToTop
sizeToPage
default
toolbook
suspend
s_ready
s_requestStop
sendaux
writeComPort
s_aux
buttonDoubleClick
buttonDoubleClick
enterbook
psaveIds
field id 0 of page id 0,field id 1 of page id 0,button id 5 of page id 0,button id 6 of page id 0
psaveBounds
4950,1815,9180,5895,315,1815,4545,5895,7515,6315,8910,6750,5790,6330,7185,6765,
Reference Field
Working Field
setup
buttonup
buttonup
setup
Hide everything and get everything ready to go.
unloadmidi
seqError(seqClose())
Exit())
unlinkDLL "MIDISOFT.
buttonUp
buttonUp
seqClose
seqError
seqExit
seqError
MIDISOFT.DLL
Unload MIDI
SetVideo
video("Close")
 ("Open")
"error opening 
9 overlay driver" && 
key color","dark 
inset", "full screen")
fade 
audiocontrol("
level",255)
buttonUp
buttonUp
Close
video
video
error opening video overlay driver
set key color
dark yellow
video
set inset
full screen
video
fade in
video
set level
audiocontrol
linked
false
Set Video
commandwindow
buttonUp
buttonUp
Command Window
"T (bZaR