System
waB|B|
defComPort
:PRINTLAYOUT
waB|B|
Videodisc log
s Rmn
`D|D|
`D|D|
defcomport
videodisc
Cannot initialize the videodisc. Video controls will have
no effect.
leavebook
Close
videodisc
"ld-v2200.tbk" 
videodisc("Open", defcomport 
8) < 0
"Cannot initialize the 
=. Video controls will have"\
&& "no effect."
s_videodisc_init <> 
Stop")
Close")
isNumber x
suspend 
x + 0
c"Help" 
c"Text" 
terbook
leavebook
enterbook
reader
isNumber
enterbook
ld-v2200.tbk
ld-v2200.tbk
defcomport
videodisc
Cannot initialize the videodisc. Video controls will have
no effect.
reader
sizetopage
leavebook
Close
videodisc
isNumber
suspend
reader
sizetopage
4s_suspend_fr, s_suspend_ch, s_videoDisc_init
"frame" 
videodisc("status 
"No response"
"Videodisc player off 
disconnected."\
&& "Closing driver.
9controls will have no effect."
Close")
isNumber(
"scene" <> 
disable 
"Next" 
enable 
"Previous" 
adjust x --**
-- reset proportions 
moved
objs 
-15, 
-15, 
-15,\
-15, 
-15, 
-15, 
- 15,\
defBounds 
setCaption what
txtsize 
0,50.1875,0
adjust
enterpage
setCaption
disable
enable
frame
frame
status frame
videodisc
No response
Videodisc player off or disconnected.
Closing driver.  Videodisc controls will have no effect.
Close
videodisc
isNumber
frame
s_suspend_fr
s_suspend_ch
s_videoDisc_init
enterpage
scene
scene
ox%disable
enable
ox%disable
Previous
enable
Previous
adjust
defBounds
setCaption
txtsize
disable
enable
0,0,0
@\C>F
End label
frame"
isNumber(
videodisc("Seek", 
buttonDown
buttonDown
end frame
isNumber
videodisc
start label
frame"
isNumber(
videodisc("Seek", 
buttonDown
buttonDown
start frame
isNumber
videodisc
Start:
Sweep Track
GHitPos, a, b
=+ 105
=- 105
x > x2 
x < x1 
B"speed thumb" 
"keypad" 
buttonup
buttondoubleclick
buttonup
buttonDown
speed thumb
buttonStillDown
speed thumb
buttonUp
speed thumb
HitPos
buttondoubleclick
:PHYSSIZE
speed thumb
"slider" 
-- stores a bunch 
dimensions 
%private 
receives the "Calibrate" message
-- Can 
itself a "
detects 
error
PaintObject "Sweep Track" 
otBounds 
otrack 
-- I will never 
oWidth 
oxOffset 
"glide 
minTrack 
+ 135
maxTrack 
- 150
omaxX 
ominX 
-- there are 9 "zones" on 
zoneWidth 
) / 17
2* i) + 
65000 
) /2) + 
goPosition x
x = "play"
+ 15) / 17
* (x-1)) + 
p= 1 
oLastZone 
,x)), 
 = 1 
 = 17
 = 2 
 = 16
 = 3 
 = 15
 = 4 
 = 14
 = 5 
 = 13
"1/2"
 = 6 
 = 12
"1/3"
 = 7 
 = 11
"1/4"
 = 8 
 = 10
"1/6"
 = 1 
 = 17
 = 2 
 = 16
 = 3 
 = 15
 = 4 
 = 14
 = 5 
 = 13
 = 6 
 = 12
 = 7 
 = 11
 = 8 
 = 10
videodisc("still")
 < 9 
 reverse", 
librate
buttonDown
goPosition
buttonstilldown
Calibrate
buttonUp
buttonDown
Sweep Track
tBounds
track
Sweep Track
}Calibrate
Calibrate
Width
xOffset
Width
tBounds
track
tBounds
tBounds
xOffset
xOffset
zones
zones
zones
zoneWidth
maxTrack
minTrack
goPosition
xOffset
zoneWidth
buttonstilldown
zones
LastZone
xOffset
buttonUp
LastZone
still
videodisc
videodisc
videodisc
play reverse
videodisc
!*!zones
65000,2059,1944,1828,1713,1597,1481,1366,1250,1135,1019,904,788,672,557,441,326
!LastZone
!minX
172.5
!maxX
2137.5
!tBounds
75,60,2325,345
"xOffset
,"""Width
@"6"y
N"track
paintobject id 3 of background id 0
6#:PHYSSIZE
goPosition "still" 
B"Speed Thumb" 
videodisc("reject")
door")
buttonUp
buttonUp
goPosition
still
Speed Thumb
reject
videodisc
open door
videodisc
videodisc("Init")
goPosition "still" 
B"Speed Thumb" 
buttonUp
buttonUp
videodisc
goPosition
still
Speed Thumb
videodisc("scan reverse")
buttonStillDown
buttonStillDown
scan reverse
videodisc
videodisc("play reverse")
buttonUp
buttonUp
play reverse
videodisc
videodisc("
reverse")
goPosition "still" 
B"Speed Thumb" 
buttonUp
buttonUp
step reverse
videodisc
goPosition
still
Speed Thumb
videodisc("stop")
goPosition "still" 
B"Speed Thumb" 
buttonUp
buttonUp
videodisc
goPosition
still
Speed Thumb
videodisc("
goPosition "still" 
B"Speed Thumb" 
buttonUp
buttonUp
videodisc
goPosition
still
Speed Thumb
videodisc("play")
goPosition "
B"Speed Thumb" 
buttonUp
buttonUp
videodisc
goPosition
Speed Thumb
3,7\o
videodisc("scan 
buttonStillDown
buttonStillDown
scan forward
videodisc
speakers
"stereo" 
right
stereo
x0:PHYSSIZE
X1:PHYSSIZE
2:PHYSSIZE
2:PHYSSIZE
videodisc("
audio",3)
"Speakers" 
buttonDown
buttonDown
select audio
videodisc
Speakers
videodisc("
audio",1)
"Speakers" 
buttonDown
buttonDown
select audio
videodisc
Speakers
videodisc("
audio",2)
"Speakers" 
buttonDown
buttonDown
select audio
videodisc
Speakers
videodisc("
audio",0)
"speakers" 
buttonDown
buttonDown
select audio
videodisc
speakers
Copyright 
 1990 Asymetrix Corporation
There is no technical support for this bookk
reset --**
proportions 
moved
- 15, 
- 15,\
- 15, 
-15, 
reset
reset
Scene
:z:textstyle
plain
:textsize
:textface
reset --**
proportions 
moved
- 15, 
- 15,\
- 15, 
-15, 
reset
reset
Start Frame
h=\=textstyle
plain
=z=textsize
=textface
reset --**
proportions 
moved
- 15, 
- 15,\
- 15, 
-15, 
reset
reset
End Frame
H@<@textstyle
plain
b@Z@textsize
t@textface
reset --**
proportions 
moved
- 15, 
- 15,\
- 15, 
-15, 
reset
reset
Title
Ctextstyle
plain
>C6Ctextsize
PCtextface
reset --**
proportions 
moved
- 15, 
- 15,\
- 15, 
-15, 
reset
reset
Description
Etextstyle
plain
Ftextsize
2Ftextface
odefBounds
adjust 
buttonUp
buttonDown
buttonUp
buttonDown
defBounds
adjust
GdefBounds
2145,4920,3240,5280
lHDHiH
Go Back 
Previous
odefBounds
adjust 
buttonUp
buttonDown
buttonUp
previous
buttonDown
defBounds
adjust
JdefBounds
0,4920,1035,5280
Previous 
vKdLe
odefBounds
adjust 
buttonUp
buttonDown
buttonUp
buttonDown
defBounds
adjust
vLdefBounds
1110,4920,2070,5280
Next 
odefBounds
adjust 
frame"
isnumber(f1) 
videodisc("play 
" && f1 && "
" && f2)
buttonDown
buttonDown
defBounds
adjust
start frame
end frame
isnumber
isnumber
play from
videodisc
~OdefBounds
30,1125,1125,1410
LP$PIP
Play Scene 
Mark Start
odefBounds
adjust 
videodisc("status","frame")
isNumber(
buttonDown
buttonDown
defBounds
adjust
status
frame
videodisc
isNumber
start frame
(RdefBounds
1200,1125,2190,1410
Mark Start 
Mark End
odefBounds
adjust 
videodisc("status","frame")
isNumber(
buttonDown
buttonDown
defBounds
adjust
status
frame
videodisc
isNumber
end frame
TdefBounds
2250,1125,3240,1410
Mark End 
Clear
9/0[=
{what
) > 1 
"Clear 
delete 
[the 
frame"\
&& "Information only?"\
f"Frame 
"Page" 
"Cancel"
"Start 
"End 
"Title" 
"Description" 
znothing
default
buttonDown
buttonDown
Clear and delete this page, or clear the start and end frame
Information only?
Frame Info
Cancel
Cancel
Frame Info
Start Frame
End Frame
clear
Start Frame
End Frame
Title
Description
default
YdefBounds
525,795,1080,1050
pZHZmZ
Clear 
field-1
reset --**
proportions 
moved
- 15, 
- 15,\
- 15, 
-15, 
reset
reset
frame
4s_suspend_fr
videodisc("seek frame",
enterfield
keydown
leavefield
keydown
seek frame
videodisc
s_suspend_fr
enterfield
s_suspend_fr
leavefield
s_suspend_fr
j_alignment
centered
Works with Pioneer LD-V2200, LD-V4200 and LD-V8000.
This is where you type the title
This is where you type the description
Videodisc frame logging system.
Works with Pioneer LD-V2200, LD-V4200 and LD-V8000.