`D|D| `D|D| colorPref 7ComPort 8ComBaud fndefPos ZnAdvNotice autoDate 7false false 250690 age id 0 linktbkuser linksound initsound initwindow inittimer DayBook necessary ToolBook M"daybook. 4dbhwnd daygr map" toolbook initauto 0,-19,214,35 0,-19,214,150 0,-19,214,35 checkAlarms expiredAlarms currentDate p+ advNotice 8* 60 (alarms & "." focustime DVdate DVdatetime %"MMMddy" %"M d, y h: jAMPM." " && recfldid /84600- /84600))*48)+1179 " && setRemote (" " && " && playnote 30,8 "25,4 & "." alarmString & CRLF & notice )/60) 7&& "minute warning. " && " && bringWindowToTop( 8* 60) >= hWnd sysClientHandle -- identifies which message be sent nIDEvent integer used identify within your (see setTimer) killTimer( timerError = 0 PlayNote , notelen 4MusicVoices, MusicAttack, MusicTempo, MusicVolume, MusicPitch Zerr, notendx, dotcnt OpenSound() d = 65535 "The Device Is Busy" fokay SetVoiceAccent( 1, <> 0 * Failed:" && SetVoiceNote( 1, <> 0 = 65529 "Invalid Dot Count:" && err = 65530 Length: " && : " && StartSound() WaitSoundState( 0 ) y<> 0 StopSound() CloseSound() toggleStatus linkToCOMDLL suspend X"tbk-comm.dll" OpenComPort( SetComPort( CloseComPort( IsComTxReady( IsComRxReady( WriteComPort( ReadComPort( FlushComTxBuffer( FlushComRxBuffer( SetComPortTxXlate( "Dialer.tbk cannot work without TBK-COMM.DLL."\ && " Please asure the path." IsNumber s s + 0 fixPhoneNumber s look pbeginning "01234567890(#*" hasParenth -- now scan obvious that 's no longer a phone "01234567890 -" cns <> "01234567890#*") IsPhoneNumber s "01234567890(),- ") trim s cs <> s ) <= 32 cs <> s ) <= 32 tryDial phNum dial 8=" & 8&& " =" & "No DLL" xisPhoneNumber( && "Only digits 0...9 T- ( ) , are allowed." "invalid DialPrefix -- count "01234567890#*" n > 6 portNo xisNumber( "I don't know what use."\ Setup 4attempting error" gComBaud ispeed talk modem."\ ,128,128) < 0 "COM xavailable. It Hanother"\ setup incorrect. Check ,8,1,0,0) ,"ATZ" & CR) readComPort( c"OK") "Modem does xrespond. Unable closeComPort( default dialstring "ATDT" & & CR extraWait ) * 10) (4 + extrawait) "Pick up Fpress click OK." , "+++~~~ATH0" & CR) yield() ReadCompPort( popMenu(WORD,STRING,INT, showwindow( gsetActiveWindow( .drv" CountVoiceNotes( GetThresholdStatus( ) SetSoundNoise( SetVoiceEnvelope( SetVoiceQueueSize( SetVoiceSound( SetVoiceThreshold( SyncAllVoices( ) MusicLevel, = 65535 f"OK" 1, 2000 ) <> 0 f"OK" -- -20 ex style lo -- -18 -- -16 -- -14 -- -12 -- -10 hinstance wndproc lo ggetwindowword( ,nIndex) gsetwindowword( ',wNewWord) 38594 -- popup, b, clip siblings, children, K, border, dialog fram, minimize box ,-14, linkDLL " Windows functions SetTimer( DWORD) INT KillTimer( arbitrary wElapse 32000 -- specifies elapsed milliseconds) between events lpTimerFunc parameter timers c free, so will %"ddmmyy" <> autoDate ayNote reader toggleStatus checkAlarms linktbkwin author linktbkuser linksound enterbook initsound initwindow leaveBook inittimer PlayNote initauto fixPhoneNumber linkToCOMDLL IsPhoneNumber IsNumber tryDial enterbook linktbkwin linktbkuser linksound initsound initwindow inittimer seconds syswindowhandle daybook.tbk daybook.tbk send buttonUp to group daygr of page map toolbook daybook.tbk xinitauto reader dbhwnd ToolBook author reader o checkAlarms advNotice alarms alarms alarms MMMddy M d, y h:min AMPM. go page daybook.tbk text of recordfield id ToolBook daybook.tbk text of recordfield id ToolBook daybook.tbk set fontstyle of text of recordfield id to bold ToolBook daybook.tbk Pxplaynote Pxplaynote Pxplaynote advNotice advNotice minute warning. set fontstyle of text of recordfield id to null ToolBook daybook.tbk bringWindowToTop dbhwnd notice alarmString recfldid toolbook DVdatetime DVdate focustime currentDate expiredAlarms alarms advNotice alarms checkAlarms leaveBook killTimer No timer to kill. timerError nIDEvent PlayNote OpenSound The Sound Device Is Busy SetVoiceAccent SetVoiceAccent Failed: SetVoiceNote Invalid Dot Count: Invalid Note Length: Invalid Note: StartSound WaitSoundState WaitSoundState Failed: StopSound CloseSound notendx dotcnt MusicVoices MusicAttack MusicTempo MusicVolume MusicPitch notelen toggleStatus linkToCOMDLL tbk-comm.dll OpenComPort SetComPort CloseComPort IsComTxReady IsComRxReady WriteComPort ReadComPort FlushComTxBuffer FlushComRxBuffer SetComPortTxXlate Dialer.tbk cannot work without TBK-COMM.DLL. Please make sure TBK-COMM.DLL is in the path. suspend IsNumber fixPhoneNumber 01234567890(#* 01234567890 - 01234567890#* hasParenth IsPhoneNumber 01234567890(),- tryDial phNum IsComRxReady linkToCOMDLL No DLL Phone Number fixPhoneNumber isPhoneNumber is not a valid phone number. Only digits 0...9 and the characters - ( ) , or space are allowed. invalid phone number DialPrefix 01234567890#* DialPrefix ComPort isNumber I don't know what port to use. Please use Setup before attempting to dial. Setup error ComBaud isNumber I don't know what speed to use to talk to the modem. Please use Setup before attempting to dial. Setup error OpenComPort COM port is not available. It is used by another application or setup is incorrect. Check Setup. Setup error ComBaud SetComPort WriteComPort readComPort Modem does not respond. Unable to dial. Check Setup. closeComPort Setup error WriteComPort extrawait Pick up the phone, then press the space bar or click OK. +++~~~ATH0 WriteComPort yield ReadCompPort CloseComPort Dial OK extraWait dialstring default portNo phNum linktbkwin tbkwin.dll popMenu linktbkuser showwindow setActiveWindow bringWindowToTop linksound sound.drv CloseSound CountVoiceNotes GetThresholdStatus OpenSound SetSoundNoise SetVoiceAccent SetVoiceEnvelope SetVoiceNote SetVoiceQueueSize SetVoiceSound SetVoiceThreshold StartSound StopSound SyncAllVoices WaitSoundState initsound OpenSound The Sound Device Is Busy SetVoiceAccent SetVoiceQueueSize SetVoiceQueueSize Failed: StopSound CloseSound notendx notelen dotcnt MusicVoices MusicAttack MusicTempo MusicLevel MusicPitch initwindow getwindowword setwindowword showwindow setwindowword style inittimer SetTimer KillTimer SetTimer No Windows timers are free, so alarms will not function. timerError lpTimerFunc wElapse nIDEvent initauto ddmmyy autoDate autoDate ntune 30,8,25,8,20,4 840,10,45,10,50,10 40,10,40,10,50,4 linktbkwin linktbkuser linksound initsound initwindow inittimer DayBook necessary 4dbhwnd ToolBook M"daybook. initauto 0,-19,214,200 0,-19,214,19 checkAlarms expiredAlarms currentDate p+ advNotice 8* 60 (alarms focustime DVdate DVmonth DVday DVdatetime DVtime %"MMMddy" %"MMMy" %"dd" %"h24" %"M d, y." ("firstDayOfMonth " && toolbook recfldid 195 + %"M d, y h: jAMPM." /84600- /84600))*48)+1176 " && " && " && setRemote (" " && " && nav) " && && " " && tune playnote & "." alarmString & CRLF & notice )/60) 7&& "minute warning. " && " && && " " && bringwindowtotop( 8* 60) >= hWnd sysClientHandle -- identifies which message be sent nIDEvent integer used identify within your (see setTimer) killTimer( timerError = 0 PlayNote , notelen 4MusicVoices, MusicAttack, MusicTempo, MusicVolume, MusicPitch Zerr, notendx, dotcnt OpenSound() d = 65535 "The Device Is Busy" fokay SetVoiceAccent( 1, <> 0 * Failed:" && SetVoiceNote( 1, <> 0 = 65529 "Invalid Dot Count:" && err = 65530 Length: " && : " && StartSound() WaitSoundState( 0 ) y<> 0 StopSound() CloseSound() toggleStatus linkToCOMDLL suspend X"tbk-comm.dll" OpenComPort( SetComPort( CloseComPort( IsComTxReady( IsComRxReady( WriteComPort( ReadComPort( FlushComTxBuffer( FlushComRxBuffer( SetComPortTxXlate( "Dialer.tbk cannot work without TBK-COMM.DLL."\ && " Please asure the path." IsNumber s s + 0 fixPhoneNumber s look pbeginning "01234567890(#*" hasParenth -- now scan obvious that 's no longer a phone "01234567890 -" cns <> "01234567890#*") IsPhoneNumber s "01234567890(),- ") trim s cs <> s ) <= 32 cs <> s ) <= 32 tryDial phNum dial 8=" & 8&& " =" & "No DLL" "Field blank. Click on xisPhoneNumber( && "Only digits 0...9 T- ( ) , are allowed." "invalid DialPrefix -- count "01234567890#*" n > 6 portNo xisNumber( "I don't know what use."\ Setup 4attempting error" gComBaud ispeed talk modem."\ ,128,128) < 0 "COM xavailable. It Hanother"\ setup incorrect. Check ,8,1,0,0) ,"ATZ" & CR) readComPort( c"OK") "Modem does xrespond. Unable closeComPort( default dialstring "ATDT" & & CR extraWait ) * 10) (4 + extrawait) "Pick up Fpress click OK." , "+++~~~ATH0" & CR) yield() ReadCompPort( popMenu(WORD,STRING,INT, showwindow( gsetActiveWindow( bringWindowToTop( .drv" CountVoiceNotes( GetThresholdStatus( ) SetSoundNoise( SetVoiceEnvelope( SetVoiceQueueSize( SetVoiceSound( SetVoiceThreshold( SyncAllVoices( ) MusicLevel, = 65535 f"OK" 1, 2000 ) <> 0 f"OK" -- -20 ex style lo -- -18 -- -16 -- -14 -- -12 -- -10 hinstance wndproc lo ggetwindowword( ,nIndex) gsetwindowword( ',wNewWord) 38594 -- popup, b, clip siblings, children, K, border, dialog fram, minimize box ,-14, 0,-19,214,19 linkDLL " Windows functions SetTimer( DWORD) INT KillTimer( arbitrary wElapse 32000 -- specifies elapsed milliseconds) between events lpTimerFunc parameter timers free, so will %"ddmmyy" <> autoDate ayNote reader toggleStatus checkAlarms linktbkwin author linktbkuser linksound enterbook initsound initwindow leaveBook inittimer PlayNote initauto fixPhoneNumber linkToCOMDLL IsPhoneNumber IsNumber tryDial enterbook linktbkwin linktbkuser linksound initsound initwindow inittimer seconds syswindowhandle daybook.tbk daybook.tbk syswindowhandle daybook.tbk ToolBook dbhwnd author reader checkAlarms advNotice alarms alarms alarms MMMddy M d, y. firstDayOfMonth of page daybook.tbk M d, y h:min AMPM. go page daybook.tbk text of recordfield id of page ToolBook daybook.tbk text of recordfield id of page ToolBook daybook.tbk set fontstyle of text of recordfield id of page to bold ToolBook daybook.tbk Pxplaynote advNotice advNotice minute warning. set fontstyle of text of recordfield id of page to null ToolBook daybook.tbk bringwindowtotop dbhwnd notice alarmString i:by1 i:to1 recfldid toolbook DVtime DVdatetime DVday DVmonth DVdate focustime currentDate expiredAlarms alarms advNotice alarms checkAlarms leaveBook killTimer No timer to kill. timerError nIDEvent PlayNote OpenSound The Sound Device Is Busy SetVoiceAccent SetVoiceAccent Failed: SetVoiceNote Invalid Dot Count: Invalid Note Length: Invalid Note: StartSound WaitSoundState WaitSoundState Failed: StopSound CloseSound notendx dotcnt MusicVoices MusicAttack MusicTempo MusicVolume MusicPitch notelen toggleStatus linkToCOMDLL tbk-comm.dll OpenComPort SetComPort CloseComPort IsComTxReady IsComRxReady WriteComPort ReadComPort FlushComTxBuffer FlushComRxBuffer SetComPortTxXlate Dialer.tbk cannot work without TBK-COMM.DLL. Please make sure TBK-COMM.DLL is in the path. suspend IsNumber fixPhoneNumber 01234567890(#* 01234567890 - 01234567890#* hasParenth IsPhoneNumber 01234567890(),- tryDial phNum IsComRxReady linkToCOMDLL No DLL Field is blank. Click on field with valid phone number and try again. fixPhoneNumber isPhoneNumber is not a valid phone number. Only digits 0...9 and the characters - ( ) , or space are allowed. invalid phone number DialPrefix 01234567890#* DialPrefix ComPort isNumber I don't know what port to use. Please use Setup before attempting to dial. Setup error ComBaud isNumber I don't know what speed to use to talk to the modem. Please use Setup before attempting to dial. Setup error OpenComPort COM port is not available. It is used by another application or setup is incorrect. Check Setup. Setup error ComBaud SetComPort WriteComPort readComPort Modem does not respond. Unable to dial. Check Setup. closeComPort Setup error WriteComPort extrawait Pick up the phone, then press the space bar or click OK. +++~~~ATH0 WriteComPort yield ReadCompPort CloseComPort Dial OK extraWait dialstring default portNo phNum linktbkwin tbkwin.dll popMenu linktbkuser showwindow setActiveWindow bringWindowToTop linksound sound.drv CloseSound CountVoiceNotes GetThresholdStatus OpenSound SetSoundNoise SetVoiceAccent SetVoiceEnvelope SetVoiceNote SetVoiceQueueSize SetVoiceSound SetVoiceThreshold StartSound StopSound SyncAllVoices WaitSoundState initsound OpenSound The Sound Device Is Busy SetVoiceAccent SetVoiceQueueSize SetVoiceQueueSize Failed: StopSound CloseSound notendx notelen dotcnt MusicVoices MusicAttack MusicTempo MusicLevel MusicPitch initwindow getwindowword setwindowword showwindow setwindowword reader style inittimer SetTimer KillTimer SetTimer No Windows timers are free, so alarms will not function. timerError lpTimerFunc wElapse nIDEvent initauto ddmmyy autoDate autoDate DAYBOOK daybook egapos xnpos DayBook Companion 0,-19 vgapos ] -- use reference rinstance daybook xfindDayBook( could your file. It will be shut down." linktbkwin linktbkuser linksound initsound initwindow inittimer runDayBook initauto 0,-19,215,200 0,-19,215,20 checkAlarms expiredAlarms currentDate p+ advNotice 8* 60 (alarms Error. Don't worry about , but report around focustime DVdate DVmonth DVday DVdatetime DVtime %"MMMddy" %"MMMy" %"dd" %"h24" %"M d, y." ("firstDayOfMonth " && toolbook recfldid 195 + %"M d, y h: jAMPM." ^) > 0 y* 2 + 1183 " && " && " && nav) ToolBook setRemote (" " && " && " && && " " && tune playnote & "." alarmString & CRLF & notice )/60) 7&& "minute warning. " && " && && " " && 4dbhwnd bringwindowtotop( 8* 60) >= hWnd sysClientHandle -- identifies which message be sent nIDEvent integer used identify within (see setTimer) killTimer( timerError = 0 PlayNote , notelen 4MusicVoices, MusicAttack, MusicTempo, MusicVolume, MusicPitch Zerr, notendx, dotcnt OpenSound() d = 65535 "The Device Is Busy" fokay SetVoiceAccent( 1, <> 0 * Failed:" && SetVoiceNote( 1, <> 0 = 65529 "Invalid Dot Count:" && err = 65530 Length: " && : " && StartSound() WaitSoundState( 0 ) y<> 0 StopSound() CloseSound() toggleStatus linkToCOMDLL suspend X"tbk-comm.dll" OpenComPort( SetComPort( CloseComPort( IsComTxReady( IsComRxReady( WriteComPort( ReadComPort( FlushComTxBuffer( FlushComRxBuffer( SetComPortTxXlate( "Dialer.tbk cannot work without TBK-COMM.DLL."\ && " Please asure the path." IsNumber s s + 0 fixPhoneNumber s look pbeginning "01234567890(#*" hasParenth -- now scan obvious that 's no longer a phone "01234567890 -" cns <> "01234567890#*") IsPhoneNumber s "01234567890(),- ") trim s cs <> s ) <= 32 cs <> s ) <= 32 tryDial phNum dial 8=" & 8&& " =" & "No DLL" "Field blank. Click on xisPhoneNumber( && "Only digits 0...9 T- ( ) , are allowed." "invalid DialPrefix -- count "01234567890#*" n > 6 portNo xisNumber( "I don't know what use."\ Setup 4attempting error" gComBaud ispeed talk modem."\ ,128,128) < 0 "COM xavailable. It Hanother"\ setup incorrect. Check ,8,1,0,0) ,"ATZ" & CR) readComPort( c"OK") "Modem does xrespond. Unable closeComPort( default dialstring "ATDT" & & CR extraWait ) * 10) (4 + extrawait) "Pick up Fpress click OK." , "+++~~~ATH0" & CR) yield() ReadCompPort( popMenu(WORD,STRING,INT, showwindow( gsetActiveWindow( bringWindowToTop( .drv" CountVoiceNotes( GetThresholdStatus( ) SetSoundNoise( SetVoiceEnvelope( SetVoiceQueueSize( SetVoiceSound( SetVoiceThreshold( SyncAllVoices( ) MusicLevel, = 65535 f"OK" 1, 2000 ) <> 0 f"OK" -- -20 ex style lo -- -18 -- -16 -- -14 -- -12 -- -10 hinstance wndproc lo ggetwindowword( ,nIndex) gsetwindowword( ',wNewWord) 38594 -- popup, b, clip siblings, children, K, border, dialog fram, minimize box ,-14, 0,-19,215,20 linkDLL " Windows functions SetTimer( DWORD) INT KillTimer( arbitrary wElapse 32000 -- specifies elapsed milliseconds) between events lpTimerFunc parameter timers free, so %"ddmmyy" <> autoDate TBKFILE. fileExists( "New File" --Find M" && be found. What full unlinkDLL "tbkfile. toggleStatus checkAlarms author linktbkwin linktbkuser enterbook linksound initsound leaveBook initwindow PlayNote inittimer initauto reader runDayBook ixPhoneNumber linkToCOMDLL IsPhoneNumber IsNumber tryDial fixPhoneNumber findDayBook enterbook daybook daybook findDayBook DayBook Companion could not find your DayBook file. It will be shut down. linktbkwin linktbkuser linksound initsound initwindow inittimer seconds runDayBook DayBook author reader checkAlarms advNotice alarms alarms alarms Alarms Error. Don't worry about it, but report it to Jeff Day if you get around to it. alarms MMMddy M d, y. firstDayOfMonth of page M d, y h:min AMPM. h24.min go page text of recordfield id of page ToolBook text of recordfield id of page ToolBook set fontstyle of text of recordfield id of page to bold ToolBook Pxplaynote advNotice advNotice minute warning. set fontstyle of text of recordfield id of page to null ToolBook bringwindowtotop dbhwnd notice alarmString i:by1 i:to1 recfldid toolbook DVtime DVdatetime DVday DVmonth DVdate focustime currentDate expiredAlarms daybook alarms advNotice alarms checkAlarms leaveBook killTimer No timer to kill. daybook timerError nIDEvent daybook PlayNote OpenSound The Sound Device Is Busy SetVoiceAccent SetVoiceAccent Failed: SetVoiceNote Invalid Dot Count: Invalid Note Length: Invalid Note: StartSound WaitSoundState WaitSoundState Failed: StopSound CloseSound notendx dotcnt MusicVoices MusicAttack MusicTempo MusicVolume MusicPitch notelen toggleStatus linkToCOMDLL tbk-comm.dll OpenComPort SetComPort CloseComPort IsComTxReady IsComRxReady WriteComPort ReadComPort FlushComTxBuffer FlushComRxBuffer SetComPortTxXlate Dialer.tbk cannot work without TBK-COMM.DLL. Please make sure TBK-COMM.DLL is in the path. suspend IsNumber fixPhoneNumber 01234567890(#* 01234567890 - 01234567890#* hasParenth IsPhoneNumber 01234567890(),- tryDial phNum IsComRxReady linkToCOMDLL No DLL Field is blank. Click on field with valid phone number and try again. fixPhoneNumber isPhoneNumber is not a valid phone number. Only digits 0...9 and the characters - ( ) , or space are allowed. invalid phone number DialPrefix 01234567890#* DialPrefix ComPort isNumber I don't know what port to use. Please use Setup before attempting to dial. Setup error ComBaud isNumber I don't know what speed to use to talk to the modem. Please use Setup before attempting to dial. Setup error OpenComPort COM port is not available. It is used by another application or setup is incorrect. Check Setup. Setup error ComBaud SetComPort WriteComPort readComPort Modem does not respond. Unable to dial. Check Setup. closeComPort Setup error WriteComPort extrawait Pick up the phone, then press the space bar or click OK. +++~~~ATH0 WriteComPort yield ReadCompPort CloseComPort Dial OK extraWait dialstring default portNo phNum linktbkwin tbkwin.dll popMenu linktbkuser showwindow setActiveWindow bringWindowToTop linksound sound.drv CloseSound CountVoiceNotes GetThresholdStatus OpenSound SetSoundNoise SetVoiceAccent SetVoiceEnvelope SetVoiceNote SetVoiceQueueSize SetVoiceSound SetVoiceThreshold StartSound StopSound SyncAllVoices WaitSoundState initsound OpenSound The Sound Device Is Busy SetVoiceAccent SetVoiceQueueSize SetVoiceQueueSize Failed: StopSound CloseSound notendx notelen dotcnt MusicVoices MusicAttack MusicTempo MusicLevel MusicPitch initwindow getwindowword setwindowword showwindow setwindowword reader style inittimer SetTimer KillTimer SetTimer No Windows timers are free, so alarms will not function. timerError lpTimerFunc wElapse nIDEvent initauto ddmmyy autoDate autoDate findDayBook TBKFILE.DLL fileExists New DayBook File fileExists The file cannot be found. What is its full path-name? tbkfile.dll daybook runDayBook syswindowhandle syswindowhandle daybook ToolBook dbhwnd --DayBook Companion HJeff , Asymetrix Corporation --Copyright 1990, rights reserved. daybook xfindDayBook( could your file. It will be shut down." runDayBook linktbkwin linktbkuser initwindow inittimer linksound initsound 0,-19,215,200 0,-19,215,20 checkAlarms expiredAlarms currentDate p+ advNotice 8* 60 (alarms Error. Don't worry about , but report around focustime DVdate DVmonth DVday DVdatetime DVtime %"MMMddy" %"MMMy" %"dd" %"h24" %"M d, y." ("firstDayOfMonth " && toolbook recfldid 195 + %"M d, y h: jAMPM." ^) > 0 y* 2 + 1183 " && " && " && nav) ToolBook setRemote (" " && " && " && && " " && tune playnote & "." alarmString & CRLF & notice )/60) 7&& "minute warning. " && " && && " " && 4dbhwnd bringwindowtotop( 8* 60) >= hWnd sysClientHandle -- identifies which message be sent nIDEvent integer used identify within (see setTimer) killTimer( timerError = 0 PlayNote , notelen 4MusicVoices, MusicAttack, MusicTempo, MusicVolume, MusicPitch Zerr, notendx, dotcnt OpenSound() d = 65535 "The Device Is Busy" fokay SetVoiceAccent( 1, <> 0 * Failed:" && SetVoiceNote( 1, <> 0 = 65529 "Invalid Dot Count:" && err = 65530 Length: " && : " && StartSound() WaitSoundState( 0 ) y<> 0 StopSound() CloseSound() toggleStatus linkToCOMDLL X"tbk-comm.dll" OpenComPort( SetComPort( CloseComPort( IsComTxReady( IsComRxReady( WriteComPort( ReadComPort( FlushComTxBuffer( FlushComRxBuffer( SetComPortTxXlate( suspend "Dialer.tbk cannot work without TBK-COMM.DLL."\ && " Please asure the path." IsNumber s s + 0 fixPhoneNumber s look bbeginning "01234567890(#*" hasParenth -- now scan obvious that 's no longer a phone "01234567890 -" cns <> "01234567890#*") IsPhoneNumber s "01234567890(),- ") trim s cs <> s ) <= 32 cs <> s ) <= 32 tryDial phNum dial "No DLL" "Field blank. Click on xisPhoneNumber( && "Only digits 0...9 T- ( ) , are allowed." "invalid DialPrefix -- count "01234567890#*" n > 6 portNo xisNumber( "I don't know what use."\ Setup 4attempting error" gComBaud ispeed talk modem."\ ,128,128) < 0 "COM xavailable. It Hanother"\ setup incorrect. Check ,8,1,0,0) ,"ATZ" & CR) readComPort( c"OK") "Modem does xrespond. Unable closeComPort( default dialstring "ATDT" & & CR extraWait ) * 10) (4 + extrawait) "Pick up Fpress click OK." , "+++~~~ATH0" & CR) yield() ReadCompPort( popMenu(WORD,STRING,INT, pageFromClient( % verticalDisplayRes() showwindow( gsetActiveWindow( bringWindowToTop( .drv" CountVoiceNotes( GetThresholdStatus( ) SetSoundNoise( SetVoiceEnvelope( SetVoiceQueueSize( SetVoiceSound( SetVoiceThreshold( SyncAllVoices( ) MusicLevel, = 65535 f"OK" 1, 2000 ) <> 0 f"OK" ggetwindowword( ,nIndex) gsetwindowword( ',wNewWord) style 38594 -- popup, b, clip siblings, children, K, border, dialog fram, minimize box ,-14, 0,-18,215,17 egaPos vertPos "buttons" ,sysMagnification,"1,1,211,14") " && 0,-19,215,20 vgaPos z1,1,211,16") linkDLL " Windows functions SetTimer( DWORD) INT KillTimer( arbitrary wElapse 32000 -- specifies elapsed milliseconds) between events lpTimerFunc parameter timers free, so TBKFILE. fileExists( enter wish d" && be found. What full unlinkDLL "tbkfile. ayNote reader toggleStatus checkAlarms linktbkwin author linktbkuser linksound enterbook initsound initwindow leaveBook inittimer PlayNote runDayBook ixPhoneNumber linkToCOMDLL IsPhoneNumber IsNumber tryDial fixPhoneNumber findDayBook enterbook daybook daybook findDayBook DayBook Companion could not find your DayBook file. It will be shut down. daybook daybook runDayBook linktbkwin linktbkuser initwindow inittimer linksound initsound reader seconds DayBook author reader checkAlarms advNotice alarms alarms alarms Alarms Error. Don't worry about it, but report it to Jeff Day if you get around to it. alarms MMMddy M d, y. firstDayOfMonth of page M d, y h:min AMPM. h24.min go page text of recordfield id of page ToolBook text of recordfield id of page ToolBook set fontstyle of text of recordfield id of page to bold ToolBook Pxplaynote advNotice advNotice minute warning. set fontstyle of text of recordfield id of page to null ToolBook bringwindowtotop dbhwnd notice alarmString i:by1 i:to1 recfldid toolbook DVtime DVdatetime DVday DVmonth DVdate focustime currentDate expiredAlarms daybook alarms advNotice alarms checkAlarms leaveBook killTimer No timer to kill. timerError nIDEvent daybook PlayNote OpenSound The Sound Device Is Busy SetVoiceAccent SetVoiceAccent Failed: SetVoiceNote Invalid Dot Count: Invalid Note Length: Invalid Note: StartSound WaitSoundState WaitSoundState Failed: StopSound CloseSound notendx dotcnt MusicVoices MusicAttack MusicTempo MusicVolume MusicPitch notelen toggleStatus linkToCOMDLL tbk-comm.dll OpenComPort SetComPort CloseComPort IsComTxReady IsComRxReady WriteComPort ReadComPort FlushComTxBuffer FlushComRxBuffer SetComPortTxXlate Dialer.tbk cannot work without TBK-COMM.DLL. Please make sure TBK-COMM.DLL is in the path. suspend IsNumber fixPhoneNumber 01234567890(#* 01234567890 - 01234567890#* hasParenth IsPhoneNumber 01234567890(),- tryDial phNum IsComRxReady linkToCOMDLL No DLL Field is blank. Click on field with valid phone number and try again. fixPhoneNumber isPhoneNumber is not a valid phone number. Only digits 0...9 and the characters - ( ) , or space are allowed. invalid phone number DialPrefix 01234567890#* DialPrefix ComPort isNumber I don't know what port to use. Please use Setup before attempting to dial. Setup error ComBaud isNumber I don't know what speed to use to talk to the modem. Please use Setup before attempting to dial. Setup error OpenComPort COM port is not available. It is used by another application or setup is incorrect. Check Setup. Setup error ComBaud SetComPort WriteComPort readComPort Modem does not respond. Unable to dial. Check Setup. closeComPort Setup error WriteComPort extrawait Pick up the phone, then press the space bar or click OK. +++~~~ATH0 WriteComPort yield ReadCompPort CloseComPort Dial OK extraWait dialstring default portNo phNum linktbkwin tbkwin.dll popMenu pageFromClient verticalDisplayRes linktbkuser showwindow setActiveWindow bringWindowToTop linksound sound.drv CloseSound CountVoiceNotes GetThresholdStatus OpenSound SetSoundNoise SetVoiceAccent SetVoiceEnvelope SetVoiceNote SetVoiceQueueSize SetVoiceSound SetVoiceThreshold StartSound StopSound SyncAllVoices WaitSoundState initsound OpenSound The Sound Device Is Busy SetVoiceAccent SetVoiceQueueSize SetVoiceQueueSize Failed: StopSound CloseSound notendx notelen dotcnt MusicVoices MusicAttack MusicTempo MusicLevel MusicPitch initwindow getwindowword setwindowword showwindow setwindowword verticalDisplayRes egaPos egaPos buttons 1,1,211,14 pageFromClient set item 2 of position of mainWindow to vgaPos buttons 1,1,211,16 pageFromClient ToolBook vertPos style daybook inittimer SetTimer KillTimer SetTimer No Windows timers are free, so alarms will not function. timerError lpTimerFunc wElapse nIDEvent findDayBook TBKFILE.DLL fileExists fileExists Please enter the name of the new DayBook file you wish to use. The file cannot be found. What is its full path-name? tbkfile.dll daybook runDayBook syswindowhandle syswindowhandle ToolBook dbhwnd daybook 0,-17 daybook.tbk 0,-19 d:\toolbook\jeff.tbk 87;4K 4daybook toolbook x"month" bkgnd firstRecFld lastRecFld today recfldid %"h24. #) < .3 B* 2) + 1183 DVdate "MMMddy" "Cannot automatically alarms %"dd" "firstDayOfMonth ToolBook 195 + "MMMy" " && i " && i setAlarm x"day" focustime 6 + ( ) * .5 c) & ":30" x& ":00" h24: o(222) && & "," alarmSet "," & = "," clearAlarm 6 + ( ) * .5 ) & ":30" & ":00" " && setRemote (" " && (j + 1 - i) dialMenu x"Address" mList "Current Field,(Business,( 2,(Home,( popMenu( , sysMagnification,\ " & "," & c"business" ""bphone " & ""hphone " & setupMenu "{Advance Notification...,None,5 minutes,15 hour,}," & \ "Auto Alarms," & \ "{Tune...,Beethoven,Melody 1, 2,Beeps,},," & \ "{Port,COM1,COM2,COM3,COM4,}," & \ "{Baud Rate,300,600,1200,2400,4800,9600,}," &\ "Prefix...,," & \ "{Colors...,White,Red,Yellow,Green,Cyan,Blue,Magenta,Steel,}," & \ "{Position...,Top Left, Right,Bottom }," & \ "DayBook File Name..." AdvNotice "*" & "*" & (tune 8+ 10) "*" & ComPort 8+ 17 "*" & ComBaud L <> 0 "*" & colorPref 8+ 33 "*" & defPos 8+ 43 "*" & " & "," & - 1) "0,5,15,30,60" > 10 > 16 > 23 - 23) "300,600,1200,2400,4800,9600" zthat cmore than 6 digits ( instance, 9 outside U):" \ fDialPrefix r<> Cancel > 33 180,25.125,100 180,25.125,100 > 43 verticalDisplayRes() egaPos * 2 - 1) * 2) "0,-17,425,-17,0,314,425,314" vertPos " && vgaPos * 2 - 1) * 2) "0,-19,425,-19,0,442,425,442" olddaybook xfindDayBook( <> oldDayBook "All exisiting " && $ && "will be erased. Do you wish proceed?" f"OK" runDayBook clearAlarm dialMenu setAlarm setupMenu name of this background month h24.min 333333 name of this page MMMddy MMMddy MMMddy Cannot automatically set alarms for a previous day. firstDayOfMonth of this page ToolBook name of this page Cannot automatically set alarms for a previous month. text of recordfield id set focus to recordfield id buttonUp set alarm DVdate recfldid today lastRecFld firstRecFld bkgnd toolbook daybook * setAlarm name of this background month focus firstDayOfMonth of this page ToolBook name of this page MMMddy h24:min MMMy d alarms put ansiToChar(222) && "" before text of focus ToolBook alarms alarms alarms alarms alarms alarms alarmSet recfldid focustime lastRecFld firstRecFld bkgnd toolbook daybook clearAlarm name of this background month focus firstDayOfMonth of this page ToolBook name of this page MMMddy h24:min MMMy d alarms text of recordfield id ToolBook text of recordfield id ToolBook alarms alarms alarms alarms recfldid focustime lastRecFld firstRecFld bkgnd toolbook daybook dialMenu name of this background Address Current Field,(Business,(Business 2,(Home,(Home 2 Current Field,Business,Business 2,Home,Home 2 back dial back dial popMenu text of focus business text of recordfield "bphone text of recordfield "hphone mList toolbook daybook setupMenu {Advance Notification...,None,5 minutes,15 minutes,30 minutes,1 hour,}, Auto Set Alarms, (Auto Alarms, {Tune...,Beethoven,Melody 1,Melody 2,Beeps,},, {Port,COM1,COM2,COM3,COM4,}, {Baud Rate,300,600,1200,2400,4800,9600,}, Prefix...,, {Colors...,White,Red,Yellow,Green,Cyan,Blue,Magenta,Steel,}, {Position...,Top Left,Top Right,Bottom Left,Bottom Right,}, DayBook File Name... AdvNotice ComPort ComPort ComBaud colorPref defPos back setup back setup popMenu AdvNotice 0,5,15,30,60 ComPort ComBaud 300,600,1200,2400,4800,9600 Prefix to use before a number that contains more than 6 digits (for instance, 9 to get an outside line): DialPrefix DialPrefix colorPref white,Red,Yellow,Green,Cyan,Blue,Magenta selectall white,Red,Yellow,Green,Cyan,Blue,Magenta selectall verticalDisplayRes egaPos 0,-17,425,-17,0,314,425,314 egaPos defPos egaPos set item 2 of position of mainWindow to vgaPos 0,-19,425,-19,0,442,425,442 vgaPos defPos findDayBook alarms oldDayBook All exisiting alarms for oldDayBook will be erased. Do you wish to proceed? Cancel daybook alarms runDayBook olddaybook toolbook vertPos defPos colorPref mList daybook ~ [Zv 4*alarms 646444800,648975600,648981000 notes: set up periodic alarms. different alarms for different files. different alarms for different times, use prioritized alarms. device independence. snooze option. advance notice by individual alarm. auto-installalarms 8,8,8,8,8,8,6,4 30,8,25,8,20,4 40,10,45,10,50,10 50,10,50,10 erent times, use prioritized alarms. color preferencesday. Brad says to put alarm is set marker in DB. set up automatic alarms, priodic alarms buttons Set Alarm set alarm setAlarm buttonDown buttonUp buttonDown QhsetAlarm buttonUp Set Alarm Clear Alarm clearAlarm buttonDown buttonUp buttonDown clearAlarm buttonUp Clear Alarm back dial Dial... dialMenu buttonDown buttonDown q_dialMenu Dial... back setup Setup... setupMenu buttonDown buttonDown setupMenu Setup... T8bjaR 86T2' 4daybook toolbook x"month" bkgnd firstRecFld lastRecFld today recfldid %"h24. #) < .3 B* 2) + 1183 DVdate "MMMddy" "Cannot automatically alarms %"dd" "firstDayOfMonth ToolBook 195 + "MMMy" " && i " && i setAlarm x"day" focustime 6 + ( ) * .5 c) & ":30" x& ":00" h24: o(222) && & "," alarmSet "," & = "," clearAlarm 6 + ( ) * .5 ) & ":30" & ":00" " && setRemote (" " && (j + 1 - i) dialMenu x"Address" mList "Current Field,(Business,( 2,(Home,( popMenu( , sysMagnification,\ " & "," & c"business" ""bphone " & ""hphone " & setupMenu "{Advance Notification...,None,5 minutes,15 hour,}," & \ "Auto Alarms," & \ "{Tune...,Beethoven,Melody 1, 2,Beeps,},," & \ "{Port,COM1,COM2,COM3,COM4,}," & \ "{Baud Rate,300,600,1200,2400,4800,9600,}," &\ "Prefix...,," & \ "{Colors...,White,Red,Yellow,Green,Cyan,Blue,Magenta,Steel,}," & \ "{Position...,Top Left, Right,Bottom }," & \ "DayBook File Name..." AdvNotice "*" & "*" & (tune 8+ 10) "*" & ComPort 8+ 17 "*" & ComBaud L <> 0 "*" & colorPref 8+ 33 "*" & defPos 8+ 43 "*" & " & "," & - 1) "0,5,15,30,60" > 10 > 16 > 23 - 23) "300,600,1200,2400,4800,9600" zthat cmore than 6 digits ( instance, 9 outside U):" \ fDialPrefix r<> Cancel > 33 180,25.125,100 180,25.125,100 > 43 verticalDisplayRes() egaPos * 2 - 1) * 2) "0,-17,425,-17,0,316,425,316" vertPos " && vgaPos * 2 - 1) * 2) "0,-19,425,-19,0,442,425,442" olddaybook xfindDayBook( <<> oldDayBook ("All exisiting " && && "will be erased. Do you wish proceed?") f"OK" runDayBook initwindow clearAlarm dialMenu setAlarm setupMenu name of this background month h24.min 333333 name of this page MMMddy MMMddy MMMddy Cannot automatically set alarms for a previous day. firstDayOfMonth of this page ToolBook name of this page Cannot automatically set alarms for a previous month. text of recordfield id set focus to recordfield id QhsetAlarm DVdate recfldid today lastRecFld firstRecFld bkgnd toolbook daybook * setAlarm name of this background month focus firstDayOfMonth of this page ToolBook name of this page MMMddy h24:min MMMy d alarms put ansiToChar(222) && "" before text of focus ToolBook alarms alarms alarms alarms alarms alarms alarmSet recfldid focustime lastRecFld firstRecFld bkgnd toolbook daybook clearAlarm name of this background month focus firstDayOfMonth of this page ToolBook name of this page MMMddy h24:min MMMy d alarms text of recordfield id ToolBook text of recordfield id ToolBook alarms alarms alarms alarms recfldid focustime lastRecFld firstRecFld bkgnd toolbook daybook dialMenu name of this background Address Current Field,(Business,(Business 2,(Home,(Home 2 Current Field,Business,Business 2,Home,Home 2 back dial back dial popMenu text of focus business text of recordfield "bphone text of recordfield "hphone mList toolbook daybook setupMenu {Advance Notification...,None,5 minutes,15 minutes,30 minutes,1 hour,}, Auto Set Alarms, (Auto Alarms, {Tune...,Beethoven,Melody 1,Melody 2,Beeps,},, {Port,COM1,COM2,COM3,COM4,}, {Baud Rate,300,600,1200,2400,4800,9600,}, Prefix...,, {Colors...,White,Red,Yellow,Green,Cyan,Blue,Magenta,Steel,}, {Position...,Top Left,Top Right,Bottom Left,Bottom Right,}, DayBook File Name... AdvNotice ComPort ComPort ComBaud colorPref defPos back setup back setup popMenu AdvNotice 0,5,15,30,60 ComPort ComBaud 300,600,1200,2400,4800,9600 Prefix to use before a number that contains more than 6 digits (for instance, 9 to get an outside line): DialPrefix DialPrefix colorPref white,Red,Yellow,Green,Cyan,Blue,Magenta selectall white,Red,Yellow,Green,Cyan,Blue,Magenta selectall verticalDisplayRes egaPos 0,-17,425,-17,0,316,425,316 egaPos defPos egaPos set item 2 of position of mainWindow to vgaPos 0,-19,425,-19,0,442,425,442 vgaPos defPos findDayBook alarms oldDayBook All exisiting alarms for oldDayBook will be erased. Do you wish to proceed? Cancel daybook alarms runDayBook initwindow olddaybook toolbook vertPos defPos colorPref mList daybook 3alarms \*,646444800 3646444800 notes: set up periodic alarms. different alarms for different files. different alarms for different times, use prioritized alarms. device independence. snooze option. advance notice by individual alarm. auto-installalarms 8,8,8,8,8,8,6,4 30,8,25,8,20,4 40,10,45,10,50,10 50,10,50,10 erent times, use prioritized alarms. color preferencesday. Brad says to put alarm is set marker in DB. set up automatic alarms, priodic alarms buttons Set Alarm set alarm setAlarm buttonDown buttonUp buttonDown QhsetAlarm buttonUp Set Alarm Clear Alarm clearAlarm buttonDown buttonUp buttonDown clearAlarm buttonUp Clear Alarm back dial Dial... dialMenu buttonDown buttonDown q_dialMenu Dial... back setup Setup... setupMenu buttonDown buttonDown setupMenu Setup... :*646444800,646531200 J*\*600,647136000