home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windoware
/
WINDOWARE_1_6.iso
/
miscprog
/
divelg
/
divelg.tbk
(
.txt
)
next >
Wrap
Asymetrix ToolBook File
|
1991-06-07
|
85KB
|
695 lines
System
Courier
`D|D|M
euRfDzpIJ
Courier
`D|D|M
Courier
`D|D|M
c"Text"
c"Help"
"&Author"
c"File"
c"Edit"
"Import"
"Export"
"Change Printer..."
"Open"
"Save As..."
"About Toolbook..."
B"OK"
enterBook
About
enterBook
&Author
Import
Export
Change Printer...
Save As...
About Toolbook...
About
About
Diver's Log Book
c"Text"
c"Help"
"&Author"
c"File"
"A&bout,,,"
c"Edit"
"Import"
"Export"
"Change Printer..."
"Open"
"Save As..."
"About Toolbook..."
B"OK"
enterBook
About
enterBook
&Author
A&bout,,,
Import
Export
Change Printer...
Save As...
About Toolbook...
About
About
Diver's Log Book
System
Courier
`D|D|M
RfDzpIJ
Courier
`D|D|M
Courier
`D|D|M
Courier
`D|D|
`D|D|
"Change Printer..."
"Open"
"Save As..."
"About Toolbook..."
B"OK"
enterBook
About
enterBook
&Author
Import
Export
Change Printer...
Save As...
About Toolbook...
About
About
Diver's Log Book
"bbox"
sizetoPage
c"Text"
c"Help"
"A&bout Diver's Log Book,,,"
c"File"
"Import"
"Export"
"Change Printer..."
"Open"
"Save As..."
"About Toolbook..."
"History"
"Back"
y Report..."
AboutDiversLogBook
"about"
enterBook
AboutDiversLogBook
enterBook
sizetoPage
A&bout Diver's Log Book,,,
Import
Export
Change Printer...
Save As...
About Toolbook...
History
Print Report...
AboutDiversLogBook
about
`D|D|
Gainesville, FL 32608
Ask with donation, and I will send you the Author password.
Thanks
A&bout Diver's Log Book,,,
Import
Export
Change Printer...
Save As...
About Toolbook...
History
Print Report...
AboutDiversLogBook
Diver's Log Book, Version 2.2
By Dane Basch, HeadFirst Software.
Remember: WETTER IS BETTER
euRfDzpIJ
X"sound.drv"
CloseSound( )
CountVoiceNotes(
GetThresholdStatus( )
OpenSound( )
SetSoundNoise(
SetVoiceAccent(
SetVoiceEnvelope(
SetVoiceNote(
SetVoiceQueueSize(
SetVoiceSound(
SetVoiceThreshold(
StartSound( )
StopSound( )
SyncAllVoices( )
WaitSoundState(
vTemp
opensound()
PLAY pitch,duration
setVoiceNote(1,ABS(80-
startSound()
PLAYSTRING num
setVoiceQueueSize(1,500)
vtemp
setVoiceSound (1,5632,1000)
setvoiceaccent(1,160,250,1,0)
(1,i*(80/
),16,0)
(1,i*(80/
),16,0)
CHROMESLIDE
, fstart,dur, direction
INITSOUND 1000
endnum
(1,i,
"down"
(1,i,
"warble"
(1,j+
(1,j+
STARTSOUND
TWILITEZONE
queue
32,1000)
0,250,1,0)
ACCELSLIDE
type--,--
,rate
vstep
j/80)
delta
* .19
's a guess, but don't change
`* i,
(dur+
_)),0)
"note"
> 40
* .275
> 40
* .275
deldur
* .19
F)),0)
SHARK ct
vDiff
Y(2^i))
(1,5,4+
(1,6,8+2*
(1,0,8+2*
default
ROMESLIDE
TWILITEZONE
enterPage
INITSOUND
PLAYSTRING
STARTSOUND
ACCELSLIDE
CHROMESLIDE
SHARK
enterPage
sound.drv
CloseSound
CountVoiceNotes
GetThresholdStatus
OpenSound
SetSoundNoise
SetVoiceAccent
SetVoiceEnvelope
SetVoiceNote
SetVoiceQueueSize
SetVoiceSound
SetVoiceThreshold
StartSound
StopSound
SyncAllVoices
WaitSoundState
opensound
vTemp
setVoiceNote
startSound
duration
pitch
PLAYSTRING
setVoiceQueueSize
vtemp
setVoiceSound
vtemp
setvoiceaccent
vtemp
setVoiceNote
vtemp
setVoiceNote
vtemp
startSound
vTemp
CHROMESLIDE
INITSOUND
setVoiceNote
setVoiceNote
warble
setVoiceNote
setVoiceNote
STARTSOUND
j:by2
j:to2
i:by1
vtemp
i:to1
endnum
direction
fstart
TWILITEZONE
INITSOUND
setVoiceNote
setVoiceNote
setVoiceNote
setVoiceNote
STARTSOUND
vtemp
fstart
INITSOUND
setVoiceQueueSize
vtemp
setVoiceSound
vtemp
setvoiceaccent
vTemp
queue
STARTSOUND
startSound
vTemp
ACCELSLIDE
INITSOUND
setVoiceNote
setVoiceNote
setVoiceNote
STARTSOUND
deldur
vTemp
i:to1
delta
vstep
direction
fstart
SHARK
INITSOUND
setVoiceNote
setVoiceNote
setVoiceNote
STARTSOUND
default
vTemp
vDiff
A6BDC
J$[t^
Send Next
buttonUp
buttonUp
Let's Begin
About
&C~B#C
Diver's Log Book,
Version 1.11
By Dane Basch, NAUI Diver
CIS # 72027,3036
Remember: Wetter is better!!
B"OK"
"About"
buttonUp
buttonUp
About
shark
shark 60
914, 1400, 1424, 1720
914, 1400, 1484, 1765
914, 1400, 1544, 1885
914, 1400, 1619, 1990
914, 1400, 1889, 2110
914, 1400, 2144, 2320
914, 1400, 2429, 2410
914, 1400, 2714, 2590
914, 1400, 3284, 2815
914, 1400, 3734, 2995
914, 1400, 4214, 3205
914, 1400, 5054, 3640
914, 1400, 5654, 3895
914, 1400, 6434, 4135
914, 1400, 7109, 4585
914, 1400, 8144, 5335
914, 1400, 9014, 5725
914, 1400, 10014, 6225
914, 1400, 11014, 6725
914, 1400, 12014, 7225
914, 1400, 13014, 7725
914, 1400, 14014, 8225
914, 1400, 15014, 8725
H1000, 0
914,1400,1409,1705
stopsound()
buttonUp
buttonUp
shark
stopsound
This Toolbook application is SHAREWARE.
You are encouraged to evaluate this program.
If you find it useful, please register your copy by
paying nominal fee of $10. Thank you.
Registrations, comments, and suggestions
can be sent to:
Dane Basch (Headfirst Software)
2811 SW Archer RD
Apt. K-99
Gainesville, FL 32608
CIS #: 72027,3036
America On Line: DaneBasch
Sending in your fee will entitle you to receive a copy of this program without this "Beggar's Box."app
Continuation
"bbox"
buttonUp
buttonUp
Continue
about
r`*`o`
SCUBA Diver's Log Book, Version 2.20
A better way to record the dives you make. Certainly the prettiest way.
REMEMBER, WETTER IS BETTER!
By Dane Basch, NAUI Diver.
"About"
buttonUp
buttonUp
About
buttonUp
shark
stopsound
Send Background
NewPage
buttonUp
buttonUp
Background
y5NewPage
New Page
"T ,b^aR
AboutDiversLogBook
"about"
AboutDiversLogBook
AboutDiversLogBook
about
Date of the Dive:Dive::
Destination for the Dive:
Description of Dive Activity:::::
Maximum Depth of Dive:
Total Bottom Time
of Dive:
Button
Minutes
d,<,a,
about
~262{2
SCUBA Diver's Log Book, Version 2.20
A better way to record the dives you make. Certainly the prettiest way.
REMEMBER, WETTER IS BETTER!
By Dane Basch, NAUI Diver.
"About"
buttonUp
buttonUp
About
NITSOUND 1000
endnum
(1,i,
"down"
(1,i,
"warble"
(1,j+
(1,j+
STARTSOUND
TWILITEZONE
queue
32,1000)
0,250,1,0)
ACCELSLIDE
type--,--
,rate
vstep
j/80)
delta
* .19
's a guess, but don't change
`* i,
(dur+
_)),0)
"note"
> 40
* .275
> 40
* .275
deldur
* .19
F)),0)
SHARK ct
vDiff
Y(2^i))
(1,5,4+
(1,6,8+2*
(1,0,8+2*
default
P4QBR
h t
Send Next
buttonUp
buttonUp
Begin
About
$R|Q!R
Diver's Log Book,
Version 1.11
By Dane Basch, NAUI Diver
CIS # 72027,3036
Remember: Wetter is better!!
B"OK"
"About"
buttonUp
buttonUp
About
shark
914, 1400, 1424, 1720
914, 1400, 1484, 1765
914, 1400, 1544, 1885
914, 1400, 1619, 1990
914, 1400, 1889, 2110
914, 1400, 2144, 2320
914, 1400, 2429, 2410
914, 1400, 2714, 2590
914, 1400, 3284, 2815
914, 1400, 3734, 2995
914, 1400, 4214, 3205
914, 1400, 5054, 3640
914, 1400, 5654, 3895
914, 1400, 6434, 4135
914, 1400, 7109, 4585
914, 1400, 8144, 5335
914, 1400, 9014, 5725
914, 1400, 10014, 6225
914, 1400, 11014, 6725
914, 1400, 12014, 7225
914, 1400, 13014, 7725
914, 1400, 14014, 8225
914, 1400, 15014, 8725
H1000, 0
914,1400,1409,1705
stopsound()
buttonUp
buttonUp
stopsound
SoundEngine
--This
the "Sound Engine",
other
that generates
--sound
INITIALIZESOUND
!.drv"
CloseSound( )
CountVoiceNotes(
GetThresholdStatus( )
OpenSound( )
SetSoundNoise(
SetVoiceAccent(
SetVoiceEnvelope(
SetVoiceNote(
SetVoiceQueueSize(
SetVoiceSound(
SetVoiceThreshold(
StartSound( )
StopSound( )
SyncAllVoices( )
WaitSoundState(
vTemp
opensound()
PLAY pitch,duration
setVoiceNote(1,ABS(80-
startSound()
PLAYSTRING num
setVoiceQueueSize(1,500)
vtemp
setVoiceSound (1,5632,1000)
setvoiceaccent(1,160,250,1,0)
(1,i*(80/
),16,0)
(1,i*(80/
),16,0)
CHROMESLIDE
, fstart,dur, direction
INITSOUND 1000
endnum
(1,i,
"down"
(1,i,
"warble"
(1,j+
(1,j+
STARTSOUND
TWILITEZONE
queue
32,1000)
0,250,1,0)
ACCELSLIDE
type--,--
vstep
i/80)
delta
* .19
's a guess, but don't change
`* i,
(dur+
_)),0)
"note"
> 40
* .275
> 40
* .275
deldur
* .19
F)),0)
SHARK ct
vDiff
Y(2^i))
(1,5,4+
(1,6,8+2*
(1,0,8+2*
default
BUTTONUP
LIZESOUND
CHROMESLIDE
TWILITEZONE
INITSOUND
STARTSOUND
PLAYSTRING
ACCELSLIDE
SHARK
INITIALIZESOUND
BUTTONUP
INITIALIZESOUND
sound.drv
CloseSound
CountVoiceNotes
GetThresholdStatus
OpenSound
SetSoundNoise
SetVoiceAccent
SetVoiceEnvelope
SetVoiceNote
SetVoiceQueueSize
SetVoiceSound
SetVoiceThreshold
StartSound
StopSound
SyncAllVoices
WaitSoundState
opensound
vTemp
setVoiceNote
startSound
duration
pitch
PLAYSTRING
setVoiceQueueSize
vtemp
setVoiceSound
vtemp
setvoiceaccent
vtemp
setVoiceNote
vtemp
setVoiceNote
vtemp
startSound
vTemp
CHROMESLIDE
INITSOUND
setVoiceNote
setVoiceNote
warble
setVoiceNote
setVoiceNote
STARTSOUND
j:by2
j:to2
i:by1
vtemp
i:to1
endnum
direction
fstart
TWILITEZONE
INITSOUND
setVoiceNote
setVoiceNote
setVoiceNote
setVoiceNote
STARTSOUND
vtemp
fstart
INITSOUND
setVoiceQueueSize
vtemp
setVoiceSound
vtemp
setvoiceaccent
vTemp
queue
STARTSOUND
startSound
vTemp
ACCELSLIDE
INITSOUND
setVoiceNote
setVoiceNote
setVoiceNote
STARTSOUND
deldur
vTemp
i:to1
delta
vstep
direction
fstart
SHARK
INITSOUND
setVoiceNote
setVoiceNote
setVoiceNote
STARTSOUND
default
vTemp
vDiff
BUTTONUP
Sound Engine