'spectate01Sep2022 messing with random fix
'spectate30Aug2022 random default always off
'spectate20Aug2022 minor changes to the start list of my files
'source15Aug 2022change the startup created control stuff
'source29Jul 2019Restore.txt start again with this Jan 24 2022
'get the again to work as a slo motion by moving ahead by 1 1000
'30 november 2002 the stuff below
Private Declare Function GetVersionEx Lib "kernel32" Alias _
"GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
'19 january 2003
'12 December 2004a
Private Declare Function mciGetErrorString Lib "winmm.dll" _
Alias "mciGetErrorStringA" _
(ByVal dwError As Long, _
ByVal lpstrBuffer As String, _
ByVal uLength As Long) As Long
'12 December 2004a

Private Declare Function getshortpathname Lib "kernel32" _
Alias "GetShortPathNameA" _
(ByVal lpszlongpath As String, _
ByVal lpszshortpath As String, _
ByVal cchBuffer As Long) As Long
'18 June 2003

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance string for PSS usage
End Type

Private Type id3tag
header As String * 3
songtitle As String * 30
artist As String * 30
album As String * 30
year As String * 4
comments As String * 30
genre As Byte
End Type
Private temptag As id3tag
'24 June 2003 above

' dwPlatforID Constants
Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2
'-- End --' 30 november 2002

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long

Private rewind As String '12Apr2014 use fastfwd as a rewind playback
Private copy_all As String '15Dec2012
Private ser_num As String '03Sep2011
Private cont_str As String '08Feb2012
Private mixx As Integer '30Jun2012
Private budgeyn As Integer '17Dec2017 budge turned on by file name or at command promp #2
Private linebudgeyn As Integer '17Dec2017 budge turned on a segment at a time
Private smlbud As Double '17Dec2017 how much the video creeps ahead from the start position
Private bigbud As Double '17Dec2017 When in fast forward this is the amount to jump ahead after but smlbud has played
Private maxbud As Integer '17Dec2017 the max no of times the mini segment will play set to 30
Private totbud As Integer '17Dec2017 the count on the way to maxbud
Private rand_prog As Integer '29Oct2012
Private group_match As Integer '29Oct2012
Private altt As Integer '12Aug2012
Private mssg As String * 255 '26 February 2004
Private multi_prompt2 As String '04 September 2004
Private hold_len As String '20Feb2012
Private video_length As Long '26 February 2004
Private slomo_point As Long '25Feb2012
Private begin_locat As Long '25Feb2012
'Private vs As String * 30 '06 February 2004
Private vs As String * 255 '19 March 2004 Having this the wrong size was a bug of major proportions...
Private last_vs As Double '24 March 2004
Private replay_pos As Double '10 April 2004
Private replay_yn As Integer '10 April 2004
Private hold_speed As Double '10 April 2004
Private command_line As String '19 September 2004
Private back_job As String '12 September 2004
Private testing As String '10Feb2012
Private line_fit As String '03 August 2003
Private start_point As Double '16 July 2003 Ver=1.07T
Private line_start_point As Double '19 July 2003 Ver=1.07T
Private begin As String '15Sep2011
Private begin_point As Double '20Sep2011
Private alt_amt As Double '12Aug2012
Private resume_str As String '25Sep2011
Private budge_str As String '17Dec2017
Private again_str As String '08Nov2011
Private keep_begin As String '08Nov2011
Private keep_play_speed As Long '08Nov2011
Private keep_line_delay_sec As Double '08Nov2011
Private keep_resume_str As String '08Nov2011
Private keep_line_start_point As Double '08Nov2011
Private keep_begin_point As Double '08Nov2011
Private keep_slomo As Integer '08Nov2011
Private continueyn As String '28Jan2012
Private pauseyn As String '28Jan2012
Private hold_pauseyn As String '25Mar2012
Private temp_double As Double '19 July 2003 Ver=1.07T
Private thumb_nail As String '16 July 2003 Ver=1.07T
Private elapse_start As Double '13 July 2003
Private elapse_end As Double '13 July 2003
Private elapse_yn As String '13 July 2003
Private Pict_file As String 'february 09 2001 moved up to here for the "interrupt prompt"
Private long_pict_file As String '22 November 2006
Private Save_file As String '15 January 2004
Private ooo As String 'february 09 2001 moved up here
Private xx1 As Integer 'february 09 2001 moved up to here for the "interrupt prompt"
Private yy1 As Integer
Private old_line As String '25 March 2003 part of version ver=1.02b
Private motion_yn '29 March 2003 part of version ver=1.04
Private special_date As String '01 April 2003 reduce the delay if "Tuesday April 1" date display done as it has delays built in ver=1.05
Private time_displayed As String '03 April 2003 indicate that time was displayed....
'Private replace_data As String '03 April 2003 save SSS1 and replace it after date displayed
Private replace_sss1 As String
Private replace_sss2 As String
Private replace_sss3 As String
Private replace_sss4 As String
Private replace_sss5 As String
Private replace_sss6 As String '03 April 2003 add the replace_sss? code above
Private sshortfile As String * 67 '18 june 2003
Private lresult As Long '18 june 2003
Private videoyn As String '10 february 2003
Private detailyn As String '18 November 2004
Private avi_file As String '01 february 2003
Private mpg_file As String '11 May 2003 ver=1.05
Private wav_file As String '10 June 2003 ver=1.07
Private mid_file As String '10 June 2003 ver=1.07
Private auto_exe As String '07 december 2002
Private ss_only As String '07 december 2002
Private program_info '21 december 2002
Private random_info '21 december 2002
Private stretch_info '21 december 2002
Private text_pause As Integer '05 october 2002
Private debug_photo As Integer '12 october 2002
Private show_files As String '24 december 2002
Private show_files_yn As Integer '24 december 2002
Private do_tab As Integer '05 october 2002
Private search_str As String '26 august 2002
Private rand As Integer '18 august 2002
Private rand1 As Integer '23 March 2004
Private rand_cnt1 As Double '23 March 2004
Private rand_no1 As Double '23 March 2004
Private rand_cnt As Double '18 august 2002
Private rand_no As Double '18 august 2002
Private rand_str As String '18Mar2012
Private diryes As String 'february 18 2002
Private Mergem As String 'february 24 2002
Private temptemp As String 'february 18 2002
Private tempdata As String '31 March 2003
Private eofsw As String '26 November 2004
Private fract_time As Double 'january 23 2002
Private check_time As Double 'january 23 2002
Private slomo As Integer '08 January 2004
Private slomo_start As Double '08 january 2004
Private motion_in As Double '01 March 2004
Private motion_out As Double '01 March 2004
Private slomo_in As Double '08 January 2004
Private slomo_out As Double '08 January 2004
Private pad_time As Double '21 March 2004
Private slomo_seg As Double '08 January 2004
Private inter_in As Double '22 February 2004
Private inter_out As Double '22 February 2004
Private sscreen_saver As String 'may 06 2001
Private sscreen_saver_ww As String '28 april 2002
Private os_ver As String '30 november 2002
Private os_num As String '01 december 2002
Private offset1 As Integer 'april 06 2001
Private offset2 As Integer 'april 06 2001
Private ppoffset1 As Integer '27 july 2002
Private ppoffset2 As Integer '27 july 2002
Private dblStart As Double 'used for elapsed time
Private dblEnd As Double ' " " " "
Private dbltime1 As Double
Private dbltime2 As Double
Private prompt2 As String 'march 01 2001
Private interrupt_prompt2 '20 November 2004
'see the 15 December 2004 minor changes so that "Y" for last of file can be defaulted in and out..
Private SAVE_ttt As String 'march 01 2001 controls defaults on start and default out after first entry
Private inin As String 'march 01 2001
Private SSS1 As String 'march 01 2001
Private prev_option As String 'february 25 2001
Private hh_cnt As Long 'april 22 2001
Private xtemp As String 'november 12 2000
Private ooopen As String 'september 02 2001
Private dsp_cnt As Long 'may 09 2001 count of total pictures displayed
Private delete_file As String 'june 30 2001
'insert the new globals right here october 28 2001
Private strBuffer As String
Private lngBufSize As Long
Private lngStatus As Long
Private lpBuff As String * 25
Private ret As Long, UserName As String

Private strRootPathName As String
Private lngSectorsPerCluster As Long
Private lngBytesPerSector As Long
Private lngNumberOfFreeClusters As Long
Private lngTotalNumberOfClusters As Long

Private strDrive As String
Private strMessage As String
Private lngTotalBytes As Long
Private lngFreeBytes As Long
Private hilite_hh As String 'april 22 2001
Private hilite_cnt As Integer 'april 22 2001
Private fs, f1, s 'april 11 2001
Private dirdates As String 'april 11 2001
Private indates As String 'april 11 2001

Private append_start1 As String 'april 10 2001
Private append_end1 As String 'april 10 2001
Private prev_ttt As String 'april 10 2001
Private skipyesno As String 'june 09 2001
Private old_pict As String 'april 08 2001
Private newname As String 'april 01 2001
Private filereason As String 'april 01 2001
Private savepath As String 'april 01 2001
Private leaddidg As String 'april 01 2001
Private thedir As String 'april 01 2001
Private indir As String 'april 01 2001
Private outdir As String 'april 01 2001
Private filetype As String 'april 01 2001
Private dirtype As String 'february 23 2002
Private minsize As Double 'april 01 2001 08 junt 2003
Private maxsize As Double 'april 01 2001 08 june 2003 change from long to double
Private autobuild As String 'april 01 2001
Private inplace As String 'april 01 2001
Private endstuff As String 'january 21 2001
Private s1_imbed As String 'january 19 2001
Private s2_imbed As String 'january 19 2001
Private s3_imbed As String 'january 19 2001
Private s4_imbed As String '23 june 2002
Private s5_imbed As String '23 june 2002
Private s6_imbed As String '23 june 2002
Private imbedded As String 'january 19 2001
Private new_len As Integer 'january 18 2001
Private array_ooo(55) As String 'january 18 2001
Private array_aaa(55) As String 'january 18 2001
Private match_flag As String 'january 18 2001
Private array_pos As Integer 'january 18 2001
Private array_prt As Integer 'january 18 2001
Private data_ooo As String 'january 15 2001
Private data_aaa As String 'january 15 2001
Private over_lap As Integer 'january 10 2001
Private crop_len As Integer 'january 09 2001
Private wrap_cnt As Long 'january 07 2001
Private mess_cnt As Long 'january 02 2001
Private tot_s1 As Long 'january 01 2001
Private tot_s2 As Long 'january 01 2001
Private tot_s3 As Long 'january 01 2001
Private tot_s4 As Long '23 june 2002
Private tot_s5 As Long '23 june 2002
Private tot_s6 As Long '23 june 2002
Private context_win As Integer 'january 01 2001
Private page_prompt As String 'december 31 2000
Private dateskip As String 'december 12 2000
Private boundarycnt As Integer 'december 11 2000
Private boundarystr As String 'december 11 2000
Private mbxyes As String 'december 17 2000
Private mbxi As Integer 'december 17 2000
Private emailsea As String 'december 11 2000
Private iimport As String 'december 24 2000
Private showpos As String 'december 6 2000
Private showasc As String 'december 11 2000
' showpos = "Y" 'december 6 2000 **keep** very handy for testing line wraps only
Private uppercase As String 'december 8 2000
Private posstring As String 'december 6 2000
Private crlf As String 'december 2 2000
Private changes As String 'december 2 2000
Private save_line As String 'to display error line numbers
'usefull for debug
Private extract_yes As String 'november 12 2000
Private skip_info As String 'november 14 2000
Private encript As String 'november 20 2000
Private hilite_this As String 'november 8 2000
Private OutFile As Integer
Private BatchFile As Integer '27 October 2004
Private FileFile As Integer 'march 20/00 edit files list
Private CtrlFile As Integer '19 November 2004
Private NewFile As Integer 'january 29 2002
Private ResultFile As Integer '08 November 2004
Private ExtFile 'november 12 2000
Private FileExt As String 'november 17 2000
Private case_yes 'november 13 2000
Private search_prompt As String
Private ampm As String
Private hhour As String
Private mminute As String
Private ssecond As String
Private ggg As String
Private hhhour As Long
Private mmminute As Long
Private sssecond As Long
Private chhour As Long
Private cmminute As Long
Private control_file As String 'november 03 2000
Private control_files(10) As String '23 November 2004
Private xxx_found As String 'november 03 2000
Private pp_entered As String 'november 6 2000
Private cssecond As Long
Private freeze_sec As Double '01 October 2003
Private adjust_sec As Double '29 September 2003
Private delay_sec As Double
Private fast_forward As Double '06Feb2012
Private new_delay_sec As Double '05 March 2004
Private line_delay_sec As Double '19 July 2003 Ver=1.07T
Private Line_freeze_sec As Double '24 September 2003
Private line_speed As Double '16 November 2003
Private hold_sec As Double 'february 08 2002
Private photo_copy As String 'march 17 2001
Private copy_photo As String 'march 17 2001
Private photo_dir As String 'march 17 2001 ie c:\search\tempfold\
Private bad_dir As String '08Aug2016 mp3 with bad metadata ie pics go here d:\bad_mp3\
Private photo_file As String 'march 17 2001 ie pict
Private photo_cnt As Integer 'march 17 2001 sequential count of photo's
Private temp_sec As Integer 'march 14 2001
Private temp_cnt As Double '08 July 2003
Private temp_cnt1 As Double '12 April 2004
Private screen_capture As String 'march 15 2001
Private tot_print As Integer
Private ss_search As String
'may 06 2001 Dim sscreen_saver As String
'12 December 2004a
Private result1 As Long '12 December 2004a
Private errormsg1 As Integer '12 December 2004a
Private returnstring1 As String * 1024 '12 December 2004a
Private errorstring1 As String * 1024 '12 December 2004a
'12 December 2004a
Private line_len As Integer
Private entered_notes As String
Private in_str As String
Private out_str As String
Private f As Integer
Private FFF As String
Private TheFile As String
Private LastFile As String
Private AllFiles(20) As String
Private vvversion As String
Private AllSearch(20) As String
Private Cmd(100) As String
'april 01 2001 made cript1 400 for the folders used in gf option
' Private cript1(20000) As String 'november 18 2000
Private cript1(25000) As String '04 March 2010
' Private cript2(100) As String 'november 18 2000
' Private cript3(100) As Integer 'november 20 2000
' Private cript2(20000) As String '28 October 2004 big enough for my program...
' Private cript3(20000) As Integer '28 October 2004
Private cript2(25000) As String '04 March 2010
Private cript3(25000) As Integer '04 March 2010
' Private criptcnt As Integer 'november 18 2000
Private criptcnt As Long '28 October 2004 above was 10000 too
Private TheSearch As String
Private FileFound As Integer
Private Clip_data As String
Private Last_match As String 'input line where match found
Private last_pict '28 february 2003
Private noshow(10) As String
Private screensave(10) As String
Private screencount As Integer
Private nocount As Integer
Private Line_Search
Private Picture_Search As String
Private Previous_line_save As String
Private Previous_line As String
Private Next_line_save As String
Private Next_line As String
Private This_line As String
Private String_Position As Integer
' Dim Pict_file As String 'moved up for "interrupt prompt" february 09 2001
Private disp_file As String
Private long_line As String 'identify long line
Private II As Integer
Private EE As Double '11 december 2002
Private III As Integer
Private JJ As Integer
Private tt As Integer
Private ttt1 As Integer
Private ddd As Integer
Private Enter_Count As Integer
Private img_ctrl As String 'february 21 2001
Private stretch_img As String 'march 31 2001
Private auto_redraw As String 'november 10 2001
Private ttt As String
Private p2p2 As String '10 august 2002
Private tt1 As String 'testing only
Private Test1_str As String 'Testing only
Private Test2_str As String 'november 23 2001
Private prompt1 As String
' Dim prompt2 As String
Private prompt3 As String
' Dim SAVE_ttt As String
Private qqq As String
' Dim SSS1 As String what the hey why commented out????? ***vip*** it is strange too
Private SSS2 As String
Private SSS3 As String
Private SSS4 As String '09 june 2002
Private SSS5 As String
Private SSS6 As String
Private sep As String
' Dim inin As String
Private KEEPS1 As String
Private KEEPS2 As String
Private KEEPS3 As String
Private KEEPS4 As String '09 june 2002
Private KEEPS5 As String
Private KEEPS6 As String
Private hi_lites As String 'flash display
Private SAVE_KEEPS1 As String 'june 26/99
Private SAVE_KEEPS2 As String
Private SAVE_KEEPS3 As String
Private SAVE_KEEPS4 As String '09 june 2002
Private SAVE_KEEPS5 As String
Private SAVE_KEEPS6 As String
Private Context As String 'june 26/99
Private aaa As String
' Dim ooo As String 'hold the original upper/lower case
Private ccc As String 'aug 08/99
Private xxx As String 'january 19 2001 checking for imbedded spaces in search string only
Private Context_text(40) As String 'aug 08/99
Private previous_picture(100) As Long
Private pp As Long
Private last_pp As Long 'may 10 2001
Private skip_pp As Long 'may 10 2001
Private previous_count As Long
Private ddemo As String
Private date_check As String
Private today_date As String
Private visual_impared As String
Private Context_cnt As Integer 'aug 08/99
Private Context_lines As Integer
Private Clear_Context_lines As Integer '18 March 2003 ver=1.01
Private zzz_chrs As Long
Private zzz_len As Integer
Private cnt As Long
Private SSS As String
Private SAVE_SSS As String
Private SAVE_SRCH As String
Private MAX_CNT As Long
' Dim back_cnt As Long
Private bbb As Long
Private tot_cnt As Long
Private end_cnt As Integer
Private tot_disp As Long
Private time_cnt As Long
Private time_num As Long
Private lll As String
Private tttpos As Integer
Private i As Long

Private loop_cnt As Long
Private loop_inc As Long
Private j As Long
Private AltColor As Integer
Private Hold_Fore As Integer '27 July 2003
Private Def_Fore As Integer
Private Set_Fore As Integer
Private temp_fore As Integer 'november 9 2000
Private new1 As String 'november 9 2000
Private new2 As String 'november 9 2000
Private new3 As String 'november 9 2000
Private new4 As String '09 june 2002
Private new5 As String '09 june 2002
Private new6 As String '09 june 2002
Private mult1 As String 'november 21 2000
Private mult2 As String 'november 21 2000
Private mult3 As String 'november 21 2000
Private mult4 As String '09 june 2002
Private mult5 As String '09 june 2002
Private mult6 As String '09 june 2002
Private line_pos As String 'november 22 2000
Private line_match As String 'november 21 2000
Private keep_aaa As String 'november 9 2000
Private keep_ooo As String 'november 9 2000
Private temp1 As Long
Private temp11 As Long 'march 14 2001
Private temp2 As Long
Private temp3 As Integer
Private temp4 As Long 'november 9 2000
Private temps As String
Private testprompt As String 'january 24 2001
Private ytemp As String 'december 11 2000
Private badmp3_fold As String '15Aug2016
Private good_fold As String '12Aug2016 the good mp3 directory
Private tempss As String
Private ppaste As String
Private gpaste As String

Private play_speed As Long '29 October 2003
Private save_play_speed As Long '16 November 2003
Private date_displayed As String 'save for later search
Private printed_cnt As Long 'may 10/00
Private displayed_cnt As Long
Private printed As String
Private break_num As Long '27Aug2010
Private grp As Integer '15Sep2010 group number counter
Private seq As Integer '15Sep2010 sequence number count
Private grpseq As String '15Sep2010 display string in output file
Private OffSet As Double '02Nov2011 the offset value for time differences between various computers and devices when doing video
'october 28 2001
Private hold_zzz As Long '21 September 2004
Private yyy_cnt As Long '28 October 2004
Private zzz_cnt As Long 'february 19 2001 display in interrupt prompt
'if items arn't declared in general they arn't available to the other subroutines.
'

Private Sub Command1_Click()
' MsgBox xx1
'may 06 2001 allow for an interrupt on the screen saver to switch into
' the p1 search and thus be able to do a "P" for previous picture
Def_Fore = Hold_Fore 'reset color 27 July 2003
' Test2_str = InputBox("27 July 2003 testing ", "testing doug ", , xx1 - 5000, yy1 - 5000) '
'23 February 2004 If sscreen_saver = "Y" Then
'20 November 2004 with the code here the interrupt didnot work so put it back.. good test though
'20 November 2004 If sscreen_saver = "Y" And mpg_file <> "YES" And interrupt_prompt2 <> "WW" Then
' frmproj2.Caption = "interrupt click " + ttt + "*" + Test1_str + "*" + prompt2 '20 November 2004
interrupt_prompt2 = "WW" '21 November 2004
If sscreen_saver = "Y" And mpg_file <> "YES" Then
ttt = "P"
Test1_str = "P1"
sscreen_saver = "N"
' Test2_str = InputBox("delay_sec test ", CStr(new_delay_sec) + "*" + CStr(delay_sec), , xx1 - 5000, yy1 - 5000) '
' frmproj2.Caption = "delay_sec test " + CStr(new_delay_sec) + "*" + CStr(delay_sec) '20 November 2004
new_delay_sec = delay_sec '23 November 2004 allow it to back up faster
delay_sec = 0 '23 November 2004 delay_sec gets reset each new photo
'20 November 2004 SSS1 = "PHOTO" 'may 28 2001 allows the "P" to show all previous
'pictures after the screen saver is interrupted.
'it just looks at the last picture saved.
prompt2 = "P1"
GoTo little_lower '21 November 2004
End If 'may 06 2001
If mpg_file = "YES" Then '22 February 2004
'02 March 2004 check the status here before pause
DoEvents '02 March 2004
i = mciSendString("status video1 mode", mssg, 255, 0) '02 March 2004
DoEvents '05 March 2004
frmproj2.Caption = " status_a is " + Trim(mssg) '05 March 2004
DoEvents '02 March 2004
If Left(UCase(mssg), 6) = "PAUSED" Then
i = mciSendString("resume video1", 0&, 0, 0)
DoEvents
mssg = "PLAYING" '02 March 2004
End If '02 March 2004
If Left(UCase(mssg), 7) = "PLAYING" Then
i = mciSendString("pause video1", 0&, 0, 0) '02 March 2004
DoEvents
Else
'Test2_str = InputBox("video status= " + Trim(mssg), "testing doug ", , xx1 - 5000, yy1 - 5000)
' Print bel '02 March 2004 testing only
' frmproj2.Caption = " status is " + Trim(mssg)
End If '02 March 2004

'02 march 2004 i = mciSendString("pause video1", 0&, 0, 0) '22 February 2004
inter_in = Timer '22 February 2004 get the time we delay here.
DoEvents '22 February 2004
i = mciSendString("status video1 position", vs, 255, 0) '22 February 2004
tempdata = " **Pos=" + CStr(Val(vs)) + " (of) " + CStr(video_length) '26 February 2004
DoEvents '23 February 2004
'26 February 2004 frmproj2.Caption = LCase(temptemp) + " pos=" + Trim(vs) '22 February 2004
frmproj2.Caption = LCase(temptemp) + tempdata '26 February 2004
DoEvents '22 February 2004
End If '22 February 2004
If mpg_file = "YES" Then '24 February 2004
If replay_yn = True Then '10 April 2004
play_speed = hold_speed '10 April 2004
replay_yn = False '10 April 2004
End If '10 April 2004 in case 2 interrupts in a row...
'27 August 2004 Test2_str = InputBox("Enter . to rewind video " + vbCrLf + Pict_file + vbCrLf + ooo, "Interrupt Prompt # " + CStr(dsp_cnt), , xx1, yy1) '24 February 2004
'02 September 2004 If thumb_nail = "YES" Then GoTo little_lower '29 August 2004
'allow for thumbnail of video to pause first off maybe even do the same for mp3 (a pause is not bad here?)
Test2_str = "A" '02 September 2004
If thumb_nail = "YES" And InStr(UCase(Line_Search), "MP3") <> 0 Then GoTo little_lower '29 August 2004
'02 September 2004 Test2_str = InputBox("Enter . to rewind video (aa) for all" + CStr(video_length) + vbCrLf + Pict_file + vbCrLf + ooo, "Interrupt Prompt # " + CStr(dsp_cnt), , xx1, yy1) '24 February 2004
'08Nov2011 test the various saved values here
'25Dec2011 testing here doug
' testtest = resume_str + "mpg_file=" + mpg_file + " picture_search=" + Picture_Search + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " picture_search=" + Picture_Search + " line_start_point=" + CStr(line_start_point) + " begin_point=" + CStr(begin_point) + " keep_line_start_point=" + CStr(keep_line_start_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " delay_sec=" + CStr(delay_sec) + " " '08Nov2011 teststring
' Test2_str = InputBox("E or X to Stop -- Enter . to rewind video (a) for all " + testtest, "Interrupt Prompt # 0 " + CStr(dsp_cnt) + " " + save_line, , xx1, yy1) '24 February 2004
'17Jan2012 default to "G" if mpegvideo here interrupt will cause the video clip to play again backspace to rid the "G"
Test2_str = "" '17Jan2012
again_str = "NO" '17Jan2012
budge_str = "NO" '17Dec2017
budtot = 0 '17Dec2017
If mpg_file = "YES" Then Test2_str = "G" '08Feb2012 use for full rather than just again
If cont_str <> "" Then Test2_str = cont_str '08Feb2012
'25Mar2012
' Test2_str = InputBox("*0 pauseyn=" + pauseyn + " delay_sec=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + " E or X to Stop -- Enter . to rewind video (a) for all (F) or full (g) for aGain " + testtest, "Interrupt Prompt # 0 " + CStr(dsp_cnt) + " " + save_line, Test2_str, xx1, yy1) '
' If video_length = 0 And filetype = "MPG" Then
' Test2_str = InputBox("*1 pauseyn=" + pauseyn + " start_point=" + CStr(start_point) + " delay_sec=" + CStr(delay_sec) + " E or X to Stop -- Enter . to rewind video (a) for all (F) or full (g) for aGain " + testtest, "Interrupt Prompt # 0 " + CStr(dsp_cnt) + " " + save_line, Test2_str, xx1, yy1) '
' If play_speed <> 1000 And play_speed <> 126 And again_str <> "YES" Then Test2_str = "" '22May2012 when speed set in file allow for interrupt to just stop the file
Test2_str = InputBox(" E or X to Stop -- Enter . to rewind video (a) for all (F) or full (g) for aGain (s) for Slo-mo" + testtest, "Interrupt Prompt # 0 " + CStr(dsp_cnt) + " " + save_line, Test2_str, xx1, yy1) '
If UCase(Test2_str) = "S" Then
' Test2_str = "G"
cont_str = "H" '16Apr2012 for switch between high and slow speede
play_speed = 126 '14Apr2012
End If '14Apr2012
If UCase(Test2_str) = "H" Then
'Test2_str = "G"
cont_str = "S" '16Apr2012 for switch between high and slow speede
play_speed = 1000 '16Apr2012
End If '16Apr2012
If UCase(Test2_str) = "G" Or UCase(Test2_str) = "H" Or UCase(Test2_str) = "S" Then
' If mpg_file = "YES" And hold_pauseyn <> "Y" And continueyn <> "Y" And again_str <> "YES" Then 17Dec2017 change add budge_str
If mpg_file = "YES" And hold_pauseyn <> "Y" And continueyn <> "Y" And again_str <> "YES" And budge_str <> "YES" Then
'23Jan2018 delay_sec = (video_length - 200) / 1000
delay_sec = video_length
line_delay_sec = delay_sec
keep_line_delay_sec = line_delay_sec
start_point = 100
line_start_point = start_point
keep_line_start_point = line_start_point
pauseyn = "Y"
End If '25Mar2012
again_str = "YES" '27Nov2011
'29May2018 budge_str = "YES" '17Dec2017
'15Dec2011 If begin_point < 11 Then 'something with this ***
'15Dec2011 keep_begin = "YES"
begin = keep_begin
'05Dec2011 begin_point = keep_line_start_point
begin_point = keep_begin_point '05Dec2011
'05Dec2011 keep_begin_point = begin_point
line_start_point = keep_line_start_point
'15Dec2011 End If
' GoTo line_15
'16Apr2012 cont_str = "G" '08Feb2012
End If '27Nov2011
If UCase(Test2_str) = "F" Then
again_str = "YES" '08Feb2012
begin = 10
begin_point = 10 '08Feb2012
delay_sec = 11111
cont_str = "F" '08Feb2012
line_start_point = 10 '08Feb2012
start_point = 10
' keep_begin = 10
' keep_line_start_point = 10
' keep_begin_point = 10
'testing
End If '08Feb2012

'25Dec2011 testing here doug
' testtest = resume_str + "mpg_file=" + mpg_file + " picture_search=" + Picture_Search + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " picture_search=" + Picture_Search + " line_start_point=" + CStr(line_start_point) + " begin_point=" + CStr(begin_point) + " keep_line_start_point=" + CStr(keep_line_start_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " delay_sec=" + CStr(delay_sec) + " " '08Nov2011 teststring
'16Dec2011 Test2_str = InputBox("E or X to Stop -- Enter . to rewind video (a) for all " + testtest, "Interrupt Prompt # 0 " + CStr(dsp_cnt) + " " + save_line, , 4000, 5000) '24 February 2004
Test2_str = Trim(UCase(Test2_str)) '12 December 2004
If Test2_str = "E" Or Test2_str = "X" Then
Unload Me '12 December 2004
Set frmproj2 = Nothing
Stop '12 december 2004
' Resume End_32000 '12 December 2004 this line is not part of this subroutine...
End If '12 December 2004 allow for exit too at interrupt...
little_lower: '29 August 2004
'16 August 2004 frmproj2.Caption = LCase(temptemp) + " (Replay by Spectate Swamp)" '26 February 2004
' frmproj2.Caption = LCase(temptemp) + " (Replay by Spectate Swamp)length=" + CStr(video_length / 1000) + " seconds" '16 August 2004
frmproj2.Caption = LCase(temptemp) + " " + rand_str + " (By Spectate Swamp)len=" + CStr(video_length / 1000) + " seconds" '16 August 2004
'02 September 2004 If thumb_nail = "YES" Then
If thumb_nail = "YES" And UCase(Test2_str) = "A" Then
'
' testtest = resume_str + "mpg_file=" + mpg_file + " picture_search=" + Picture_Search + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " picture_search=" + Picture_Search + " line_start_point=" + CStr(line_start_point) + " begin_point=" + CStr(begin_point) + " keep_line_start_point=" + CStr(keep_line_start_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " delay_sec=" + CStr(delay_sec) + " " '08Nov2011 teststring
' Test2_str = InputBox("testing for thumb_nail= " + thumb_nail + " " + testtest, "Interrupt Prompt # 0 " + CStr(dsp_cnt) + " " + save_line, , 4000, 5000) '
' If UCase(Test2_str) = "AA" Then
' thumb_nail = "NO"
Test2_str = ""
' line_delay_sec = video_length / 1000
' delay_sec = line_delay_sec
' new_delay_sec = delay_sec
i = mciSendString("stop video1", 0&, 0, 0)
DoEvents
' line_start_point = 10
' i = mciSendString("play video1 from " + CStr(10) + " wait", 0&, 0&, 0&) '29 August 2004 this works better
last_vs = video_length - 100 '29 August 2004 These 3 lines replace the WAIT call above works WELL
slomo = True '29 August 2004
i = mciSendString("play video1 from " + CStr(10), 0&, 0&, 0&)
' Test2_str = InputBox("When done hit enter " + vbCrLf + Pict_file + vbCrLf + ooo, "Waiting till end prompt # ", , xx1 - 5000, yy1 - 5000) 'february 09 2001
' i = mciSendString("stop video1", 0&, 0, 0)
' inter_in = Timer
' GoSub line_30300
GoTo down_abit
End If '27 August 2004
DoEvents '26 February 2004
Else
Test2_str = InputBox("Enter to continue x or e to exit " + vbCrLf + Pict_file + vbCrLf + ooo, "Interrupt Prompt # x" + CStr(dsp_cnt) + " " + save_line, , xx1 - 5000, yy1 - 5000) 'february 09 2001
End If

' ShowCursor = True '29 november 2002
Cmd(45) = "" '07 december 2002 allow for other drives after interrupt..
Test2_str = UCase(Test2_str) '06 october 2002
'22 February 2004 on video play Pause, Show Position, Resume after adding in paused time.
If mpg_file = "YES" Then '22 February 2004
DoEvents '22 February 2004
'26 April 2004 try saving the results here
' If Left(Test2_str, 1) = "F" Then
' i = mciSendString("save video2 c:\search\outmpg.mpg", 0&, 0, 0)
' new_delay_sec = 5.5
' GoSub line_30300
' Close video2
' For EE = 1 To 10000000
' DoEvents
' Next EE 'give it some time
' End If
'need more info on the mcisendstring and how to record mpg files???
'26 April 2004
'24 february 2004 back up the video here if .... entered
'23 April 2004 allow for multiple ... or '''' to go back and ahead
'23 April 2004 If Left(Test2_str, 1) = "." Then
If Left(Test2_str, 1) = "." Or Left(Test2_str, 1) = Chr(39) Then
i = mciSendString("stop video1", 0&, 0, 0)
III = Len(Test2_str) '23 April 2004
If Left(Test2_str, 1) = Chr(39) Then III = III * -1 '23 April 2004
DoEvents
'10 April 2004 allow for replay at a slower speed dictated by a cmd(?) value...
replay_yn = False '10 April 2004
i = mciSendString("status video1 position", vs, 255, 0) '10 April 2004
temp3 = InStr(vs, Chr$(0)) '10 April 2004
temp11 = Val(Left(vs, temp3 - 1)) '10 April 2004
'23 April 2004 If Val(Cmd(66)) > 1 And Val(Cmd(66)) < 1000 Then
'23 April 2004 do not change speed if moving ahead in file
'08Nov2011?? check the cmd(66) element for problems
If Val(Cmd(66)) > 1 And Val(Cmd(66)) < 1000 And Left(Test2_str, 1) <> Chr(39) Then
hold_speed = play_speed '10 April 2004
play_speed = Val(Cmd(66)) '10 April 2004
replay_yn = True '10 April 2004
replay_pos = temp11 '10 April 2004
slomo = True '10 April 2004 if full speed to slow speed this needed
End If '10 April 2004
'23 April 2004 i = mciSendString("play video1 from " + CStr(Val(vs) - (Val(Cmd(27)) * 1000)), 0&, 0&, 0&)
i = mciSendString("play video1 from " + CStr(Val(vs) - (Val(Cmd(27)) * 1000) * III), 0&, 0&, 0&)
last_vs = Val(vs) - Val(Cmd(27) * 1000) '06 April 2004 without this the replay is at fast speed
'might be handy to have this as an option maybee
DoEvents
' temptemp = InputBox("04 April 2004 test ", "Test continue " + CStr(dsp_cnt), , xx1 - 5000, yy1 - 5000)
Test2_str = ""
'testtest = interrupt_prompt2 + " " + resume_str + " " + motion_yn + " " + CStr(line_start_point) + " " + CStr(start_point) + " " + CStr(begin_point) + " " + CStr(play_speed) + " " + CStr(slomo) + " " + CStr(delay_sec) + " " '08Nov2011 teststring again info
' testtest = InputBox("again info " + testtest, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
GoTo down_abit
End If '24 February 2004
i = mciSendString("resume video1", 0&, 0, 0)
DoEvents '09 March 2004
down_abit: '24 February 2004
inter_out = Timer '22 February 2004 add the delay here back in.
If slomo = False Then
fract_time = fract_time + inter_out - inter_in '22 February 2004
End If
End If '22 February 2004
'22 February 2004

'06 January 2005 allow for an entry to continue here
'06 January 2005 If text_pause And Test2_str <> "C" Then
If text_pause And (Test2_str = "X" Or Test2_str = "E") Then
text_pause = 0 '05 october 2002 "C" allow for continue of auto display
inin = ""
End If
If UCase(Test2_str) = "A" Then
prompt2 = "C" 'march 01 2001
SAVE_ttt = "C"
inin = "A"
SSS1 = "A" 'march 01 2001
End If
'13 March 2004 If UCase(Test2_str) <> "X" And UCase(Test2_str) <> "E" Then GoTo line_15 'February 09 2001
If mpg_file = "YES" Then
'04 April 2004 i = mciSendString("close all", 0&, 0, 0)
DoEvents
'22 March 2004 tt1 = InputBox("testing only closing down", , , 4400, 4500) 'TESTING ONLY 13 March 2004
End If '11 March 2004
'04 April 2004 Unload Me
'04 April 2004 Set frmproj2 = Nothing 'sdistuff
'04 April 2004 Set colReminderPages = Nothing 'release memory??

' Set sear1 = Nothing 'mdistuff
'04 April 2004 take this out End 'feburary 5 2001
line_15:
' temptemp = InputBox(" 04 April 2004 doug " + SSS1, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
End Sub

Private Sub Form_Click()
'this is activated in the flash mode when mouse button is hit march 02 2001
Test1_str = InputBox("in form_click" + vbCrLf + Pict_file + vbCrLf + ooo, "Interrupt Prompt " + CStr(zzz_cnt) + " " + save_line, , xx1 - offset1, yy1 - offset2) 'february 09 2001
'march 02 2001
'seems not to do anything when in sdi mode ???
'ie holding down the left mouse does nothing only works in mdi mode
End Sub

Private Sub Form_Deactivate()
'03 July 2003 testing to clean up the unload process (just needed to add these two routines?????)
'using the X for closing the form down check this bit out
End Sub

Private Sub Form_Initialize()
'system compoenents: Use
'form does almost everything
'command button used for esc out of screen saver
' set cancel property to true and place off the screen
'text block (removed) allows key entry to interrupt screen saver (placed off the screen)
'image control allows for p2 option with stretch set to true for full screen size
'when compiling for the millennium set BorderStyle to 2 from 0 todo **vip**
'Load proj2
' Always set the working directory to the directory containing the application.
' do the startup steps below
' tt1 = InputBox("doug startup test1 " + App.Path, "titlename", "Default", 4400, 4500) 'TESTING ONLY

ChDir App.Path 'december 1 2000
'same as "set default" on the vax
' frmproj2.Caption = program_info + " (cls #20)" '18Dec2013
Cls 'november 7 2000
'january 31 2001
'App.StartLogging "douglog.txt", 0 'july 04 2001 see other test of startlogging
'the above did create a file so this is a start july 04 2001

'january 31 2001
'31July2011 comment out the following 6 lines for already running 29Jan2012 re-activate it
If App.PrevInstance Then
MsgBox "Already running!", _
vbOKOnly, App.EXEName & _
"Warning!"
End
End If
offset1 = 4500 'april 06 2001
offset2 = 5000 'april 06 2001
program_info = "Spectate Swamp Content Management App" '17Mar2016
App.Title = program_info 'january 31 2001
frmproj2.Caption = program_info + " (stonedan@telusplanet.net)" '25 november 2002
frmproj2.Show 'sdistuff
' sear1.Show 'mdistuff
'equivalent of CVT$% is Asc below
' tt1 = InputBox("Form_Initialize " + CStr(Asc("a")) + Chr(97), , , 4400, 4500) 'TESTING ONLY
' tt1 = InputBox("Form_Initialize " + App.Path, "titlename", "Default", 4400, 4500) 'TESTING ONLY
' Cls

'february 05 2001 comment out the next line
' Call text2_Change ' february 01 2001
Call text2_Chg 'february 05 2001
'test the logging stuff some time later....
' Call App.StartLogging(App.Path + "\logfile.txt", 2) 'january 30 2001
' Call App.LogEvent("starting", 4) 'january 30 2001
' Call App.LogEvent(txtLog, vbLogEventTypeInformation) 'january 30 2001
End Sub

Private Sub text2_Chg()
'Private Sub text2_Change 'february 01 2001
'savior version 1.0
'all unpaid copies carry a curse
' be warned
'
' ** set auto_redraw to "false"
' much much faster than true
' for Keep-it super-search anyway
' set windowstate to 2 for maximized
'to get rid of the mini text block set the
' left element from 402 to 600
'in the properties window for the for set the following
'height to 9000
'width to 12000
'==========================================================================
'january 31 2001 see function above GetComputerName

lngBufSize = 255
strBuffer = String$(lngBufSize, " ")
lngStatus = GetComputerName(strBuffer, lngBufSize)
strBuffer = Left(strBuffer, lngBufSize)
If lngStatus <> 0 Then
'commented out january 31 2001 below
' MsgBox ("Computer name is: " & Left(strBuffer, lngBufSize))
End If
'==========================================================================
'Code: see function above GetUserName
' Main routine to Dimension variables, retrieve user name
' and display answer

' Dimension variables

' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

' Display the User Name
' MsgBox UserName 'commeted out january 31 2001
'==========================================================================
'==========================================================================
'see call to GetDiskFreeSpace function above january 31 2001

'Code:
strDrive = "C:\" 'drive letter

'note to vb6 comment out the following code as it gets errors overflow etc...
'january 27 2002 comment it out as I am not using it anyway
' If GetDiskFreeSpace(strDrive, lngSectorsPerCluster, lngBytesPerSector, lngNumberOfFreeClusters, lngTotalNumberOfClusters) = 0 Then
' strMessage = strMessage & vbCrLf & "An error occurred."
' Else
' strMessage = strMessage & vbCrLf & "Sectors Per Cluster: " & Format$(lngSectorsPerCluster)
' strMessage = strMessage & vbCrLf & "Bytes Per Sector: " & Format$(lngBytesPerSector)
' strMessage = strMessage & vbCrLf & "Free Clusters: " & Format$(lngNumberOfFreeClusters)
' strMessage = strMessage & vbCrLf & "Total Clusters: " & Format$(lngTotalNumberOfClusters)
' lngTotalBytes = lngTotalNumberOfClusters * lngSectorsPerCluster * lngBytesPerSector
' strMessage = strMessage & vbCrLf & "Total Bytes: " & Format$(lngTotalBytes)
' lngFreeBytes = lngNumberOfFreeClusters * lngSectorsPerCluster * lngBytesPerSector
' strMessage = strMessage & vbCrLf & "Bytes Free: " & Format$(lngFreeBytes)
' strMessage = strMessage & vbCrLf & "Percent Used: " & Format$(1 - (lngFreeBytes / lngTotalBytes), "0.00%")
' End If

If Left(strBuffer, lngBufSize) = "OEMCOMPUTER" Then
' MsgBox (strMessage)
End If 'january 31 2001 only show it if it my laptop
strMessage = strMessage + vbCrLf + "User name=" + UserName + vbCrLf + "Computer name=" + strBuffer & vbCrLf

'30 november 2002 the stuff below for computer version
Dim tOSVer As OSVERSIONINFO

' First set length of OSVERSIONINFO
' structure size
tOSVer.dwOSVersionInfoSize = Len(tOSVer)
' Get version information
GetVersionEx tOSVer
' Determine OS type
With tOSVer

Select Case .dwPlatformId
Case VER_PLATFORM_WIN32_NT
' This is an NT version (NT/2000)
' If dwMajorVersion >= 5 then
' the OS is Win2000
If .dwMajorVersion >= 5 Then
FFF = "Windows 2000"
Else
FFF = "Windows NT"
End If
Case Else
' Test2_str = InputBox("testing versioninfo " + CStr(.dwPlatformId) + " " + FFF, " " + CStr(zzz_cnt), , xx1, yy1) 'february 09 2001
' This is Windows 95/98/ME
If .dwMajorVersion >= 5 Then
FFF = "Windows ME"
ElseIf .dwMajorVersion = 4 And .dwMinorVersion > 0 Then
FFF = "Windows 98"
Else
FFF = "Windows 95"
End If
End Select
' Check for service pack
FFF = FFF & " " & Left(.szCSDVersion, _
InStr(1, .szCSDVersion, Chr$(0)))
os_ver = FFF '30 november 2002 I use this variable later maybe
' Get OS version
ttt = "Version= " & .dwMajorVersion & "." & _
.dwMinorVersion & "." & .dwBuildNumber
os_num = .dwMajorVersion & .dwPlatformId '01 december 2002 use to determine 8, 10 or 43, 44
End With
strMessage = strMessage + ttt + " len=" + CStr(Len(os_ver)) + vbCrLf
strMessage = strMessage + "OS=" + os_ver 'I used this for display
' tt1 = InputBox(strMessage, "testing", , 8000, 5000)

'30 november 2002
'==========================================================================

On Error GoTo Errors_31000
save_line = "000" 'for error handling
' Static xx1 As Integer
' Static yy1 As Integer

'0 = black
'1 = dark blue
'2 = green
'3 = aqua
'4 = brown
'5 = purple
'6 = lime/green/brown?
'7 = grey
'8 = dark grey
'9 = blue bright
'10 = lime green bright
'11 = pale blue
'12 = red
'13 = purple light pink
'14 = yellow
'15 = white
'test some code here in this area
'temps = CallByName(wordpad, "c:\search\notes.txt", , "c:\search\notes.txt")
line_20:
save_line = "20"
'04 November 2003 see cmd(61) for play_speed play_speed = 1000 '30 October set to normal speed
SAVE_ttt = "in" 'default to "c" if comming in
'april 14/00
start_point = 0 '16 July 2003 Ver=1.07T
start_point = 10 '09 September 2003 service pack 1 needs this ????
line_start_point = 0 '19 July 2003 Ver=1.07T
line_start_point = 10 '11 March 2007
search_prompt = "in" 'april 24/00
visual_impared = "YES" 'to set up control.txt
visual_impared = "NO" 'settings for ron windels
date_check = "NO" 'do not do date check logic
' date_check = "YES" 'do date check logic 26Feb2012

ddemo = "YES"
ddemo = "NO" 'set to "YES" if demo "NO" if full system
If UCase(App.EXEName) = "DEMO" Then ddemo = "YES" '08 August 2003
' control_file = "c:\control.txt" 'november 03 2000
control_file = "control.txt" 'december 03 2000
GoSub Control_28000 'assign font color etc 20/04/00 initial read control file
'19Aug2011 change the control file here if app.exename is in cmd(82)
If InStr(1, UCase(Cmd(82)), UCase(App.EXEName)) <> 0 Then
control_file = "control1.txt" '19Aug2011
GoSub Control_28000
End If '19Aug2011
' Picture1.Left = 0 'june 17/99
' Picture1.Top = 0
save_line = "25"
OutFile = FreeFile
KEEPS1 = ""
KEEPS2 = ""
KEEPS3 = ""
KEEPS4 = "" '09 june 2002
KEEPS5 = ""
KEEPS6 = ""
ser_num = "0000001" '03Sep2011 some of the initialization here
'tell them where this program comes from
SSS = Format(Now, "ddddd ttttt") 'todays date
temp1 = InStr(2, SSS, "/1/")
' vvversion = "Version September 1/00"
' vvversion = "Version September 5/00" 'extended control.txt to 40 from 20
' vvversion = "Version September 8/00" 'line wrap control.txt element 21 to 40 from 82 etc
' vvversion = "Version September 10/00" 'context lines 10 or 5 etc
'added the B for back option
' vvversion = "Version October 4/00" 'noshow and others added
' vvversion = "Version October 9/00" 'p for previous picture allowed
' vvversion = "Version October 13/00" 'restricted demo version and date check back in
' vvversion = "Version October 19/00" 'don't load the clipboard and make sure search selection has at least 3 of the same chrs
' vvversion = "Version October 21/00" 'Quickie search if Q entered no context display and skip if no match
' vvversion = "version October 23/00" 'quickie fixes and security completed next audio
' vvversion = "Version October 26/00" 'no start character required and unload form3 at end automatically no close required
' vvversion = "Version October 27/00" 'allow for "A" for all at next photo prompt
' vvversion = "Version October 29/00" 'finish with line wrap fixes context data and match line fixed finally
' vvversion = "Version November 3/00" 'allow for ccc to select control1.txt for larger fonts etc
'allow for auto setting of c and p1 depending if xxx. found in first 10 lines
'allow for any file selection to reset as if first time in for defaults etc
' vvversion = "Version November 12/00" 'allow for extract of printed data to file
' vvversion = "Version November 13/00" 'make rrr case sensitive and allow or name as of files
' vvversion = "Version November 14/00" 'allow for "F" at do you want to continue
'as well change the xxx to be entered at the option entry
' vvversion = "Version November 22/00" 'changes to allow for multiples on a line to be displayed ie telusplanet.net
' both the net's will show on a "net" search
' vvversion = "Version November 29/00" 'minor bug fix to the rrr routine
' vvversion = "Version December 2/00" 'allow for QQQ at the option level same as RRR but
'used to fix From: Subject: in mail messages removes crlf at end
'and pastes the next line on to the end Date: Organization: To: done too
' vvversion = "Version December 3/00" 'use default directory App.Path wherever the program exists look for control.txt etc.
' vvversion = "Version December 5/00" 'do display of multiples on a line minor change
' vvversion = "Version December 6/00" 'allow for LL linelength to be input and for showpos options
'the showpos shows the line length at the wrap just in case more problems crop up
' vvversion = "Version December 7/00" 'allow for Cmd(33) to be search default ie "D" for me and use the inputbox prompt field
'do the changes to get rid of the max and min border set borderstyle to 0 from 2 and max and min to false
' vvversion = "Version December 8/00" 'change option S to work like option Q quickie search but not to be case sensitive. it takes 2 as long as Q not 4 times as long now
'allow for X or E to exit if element 30 set to "N" and make files case insensitive?
' vvversion = "Version December 10/00" 'reget defaults once file is selected a second time
' vvversion = "Version December 11/00" 'Allow for showasc at the option level to show the last 4 characters ascii value.
'Allow for email prompt at the option level to read thru and display email records without the junk
' vvversion = "Version December 20/00" 'minor changes to fix the netscape extract etc
' vvversion = "Version December 22/00" 'allow for "A" for all when using the "Q" search
' vvversion = "Version December 23/00" 'a few fix ups for the imported outlook express into netscape 6.0
' vvversion = "Version December 24/00" 'new option of "IMPORT" if the file is email and import entered
' vvversion = "Version December 27/00" 'if CH was selected the option prompt was getting in the way the second time around
'the AppActivate fixed the problem though
' vvversion = "Version December 28/00" 'did some clean up on the search selection no longer allow the number of characters to select previous searches
'minor fix to the "." at the b for back prompt cleared SSS2 and SSS3 etc
' vvversion = "Version December 31/00" 'minor fix re short lines with odd characters and boundarystr reset to ""2
'new option "R" extract skip page_prompt AND set to "Q" search
'as long as everything is being extracted then don't stop at number of lines per screen Cmd(1)
'new option "D" extract skip page_prompt and set to "C" with MAX_CNT = 5 Context_lines = 2
' vvversion = "Version January 01/01" 'new option "T" just like D and R above
'use element Cmd(34) for the context_win default to 3 if not there
' vvversion = "Version January 02/01" 'final counts for tot_s1 tot_s2 tot_s3 now tested and seem to work ok
' vvversion = "Version January 03/01" 'noshow for text display will replace the string with **** as censorship
'the 03a version changes made to allow elements to be hilited after the "A" is entered.
'the very first one on a line was what was happening and this was the fix
' vvversion = "Version January 04/01" 'fix for multiple no-show elements and a 04a fix to show the last elements
'which were sometimes missed.
'04b changes to allow for the "B" back to retain the hiliting capabilities
' vvversion = "Version January 05/01" 'remove reference to Cmd(13) back_cnt and Cmd(19) for re-use
'fixed the "D" date display by searching for "M" as both AM and PM have it..
'if "." default to last search any other chr back to beginning and new search entry.
' vvversion = "Version January 06/01" 'skip duplicate code at line_12004b thru line_12005m as not required, moved some noshow logic
'do not include the counts for hilite_this or "append start" or "append end"
' vvversion = "Version January 08/01" 'fix the logic for wrap_cnt somewhat so the V & B for back work a little better (still not completely checked out)
' vvversion = "Version January 09/01" 'add the "crop" option to shorten very long lines that cause wraping problems
' vvversion = "Version January 10/01" 'allow for the over_lap element 13 on the crop and the wrap function later.
' vvversion = "Version January 19/01" 'the wrap array logic mostly complete with code bypassing this till the 12000 routine completed.
' vvversion = "Version January 20/01" 'the new wrap array and hi-lite logic testing being done
' vvversion = "Version January 21/01" 'add in logic to print last "endstuff" if A for All and wrap info unprinted
' vvversion = "Version January 22/01" 'removed the old hi-lite wrap logic at sub_12000:
' vvversion = "Version January 24/01" 'minor fix to hi-lite elements that wrap on to next page...
' vvversion = "Jan 25/01" 'change the A for append for Z to paste at the end of the file (confused with a for all)
' vvversion = "Jan 27/01" 'fix to skip the noshow elements if SS screen saver
' vvversion = "Jan 28/01" 'use tot_s1 to count the number of emails on the import function
' vvversion = "Jan 31/01" 'check if app is running and set App.Title to Keep-It
' vvversion = "Feb 01/01" 'check for computer name mine and ken's and anyone else
' vvversion = "Feb 06/01" 'allow the esc to stop the screen saver leave in old logic for any other key though
' vvversion = "Feb 09/01" 'if interrupted allow for them to continue
' vvversion = "Feb 16/01" 'add the date and time on the file prompt line
' vvversion = "Mar 01/01" 'allow for "A" for all to be entered at the interrupt prompt
'Feb 19/01 display the file name in each of the prompt boxes
'feb 20/01 setfocus to solve the problem of the interrupt not working after "CH" called then F or SS done
'feb 21/01 add image control set the stretch property to true (for full screen display)
'feb 25/01 add check for only "CH" when using setfocus as it seems to screw up other functions?
'feb 28/01 check for bounary=""" as it crapped out when wrong boundary found
'Mar 14/01 allow for WAIT= to pause line longer ie wait 30 etc fix the timer error at line_30000: area
'Mar 15/01 allow for SC screen capture to pause before the inputbox statements so that the displayed info can be capured using alt/print screen
'Mar 17/01 allow for CP copy picture to a directory in Cmd(23) element
'Mar 21/01 add in a was=scn0321.jpg to the text on a CP so we know the original number & date
'Mar 31/01 set the P1 as the stretch default and P2 non stretched (they will have to user P2 for sizing original scans)
'Apr 01/01 the GF get file routine to catalogue any pictures in the target directory
'Apr 05/01 allow for keeping the same name if no leading didgits entered.
'Apr 06/01 allow for 5000 folders when using the gf option
'Apr 08/01 allow for c:\search\tempfold\ to keep the original name on file copy
'Apr 10/01 allow for HL and HLL to use the append_start1 and append_end1 elements hilite_this could also be used???
'allow for uppercase on all 3 of them working well so far
'Apr 11/01 allow for c:\* to do the whole c drive and * FOR file type
'and put out the date if dirdates entered
'Apr 22/01 allow for hhxxx. to display pictures at the end of screen promopt
' by putting in a HH when some hilited.
'may 06 2001 on interrupt of screen saver switch into photo display p1
' allowing the user to do a "P" to see one of the various previous pictures
' as well at the photo continue prompt allow "SS" to continue screen saver
' with the previous screen saver settings
' vvversion = "May 06/01" 'this is the date of the compile only, just for the users info
'vvversion = 28 april 2002 add in the ww like ss with anded search criteria
' the Nov2011 changes were for the BEGIN AND AGAIN options which were sweet
'ver=1.04 added the ability to clear date to left by removing 1 character at a time and
' re-displaying what is left (looks like motion)
'28Jan2012 4.90 version changes were to allow for the continue and pause statements
'with the 28Jan2012 changes make sure that if using multiples for a wait that the file is "CLOSED" ???
'31Jan2012 the cmd(48) setting to photo required to make the continue work with the pause... change the default on create
'07Feb2012 put in a minor check to catch when video_length is obviously WRONG
'09Feb2012 check for mpg_file when setting delay second needed to be done
'09Feb2012 add "NORG" and "RG" for cmd(81) noRAND_GROUP need to switch back and forth for ff cataloged stuff
'10Feb2012 testing to see why the fast forword would work on the pc and not the laptop
' left the debug lines in with this date it seems if the time for play segment is larger it works???
'17Mar2012 put a trim on the search for BREAK the end of file was looping....
'18Mar2012 display the random number it seems to be a off some times when there is not much data
'25Mar2012 make changes so the enter enter caused a replay to happen
'14Apr2012 change so the error opening video file message does not show error it scares people
'14Apr2012 and allow for a replay to be at slow motion minor bug with random fixed as welllllll
'16Apr2012 allow to switch between slow motion and full speed by hitting enter enter
'12May2012 force the prompts for RANDOM and SEQUENTIAL by name as well as control file
'14May2012 fix a few problems with the 12May2012 and one other small bug
'18Jun2012 allow for program name to control logic flow see catmydrive and a few other changes
'22Jun2012 bigtext changes to allow for automatic large print using bigtext.txt as input file
'23Jun2012 catmydrivemp3 added and minor changes to bigtext
'23Jun2012a allow for auto run of randomseg to play thumbnails with random video and random start point
'26Jun2012 minor fix to cmd(45) so MANUAL runs with prompts
'30Jun2012 through 29Jul2012 changes to allow for mixx of text and video
'07Aug2012 default to no update for every one beyone D
'12Aug2012 allow for alt== in the line to change the start== and begin== points re the pc vs laptop weird start points
'08Sep2012 change so that next pass on mixx stuff would show videos bug fixed but underline persists no big deal
'15Nov2012 change to allow for random mix stuff any changes between 08sep and 15Nov may cause some trouble so beware
'15Dec2012 allow for doall when doing a copy picture with lots of files
'17Mar2014 changes to allow for fastfwd catalog for video collection
'25Mar2014 minor change so rand_group works
'16Apr2014 new feature bb.08 option #2 prompt does the reverse of ff.08 fast forward reverse option for switch
' needs to run reverse right after to switch the records completely
'17Mar2016 Version on Windows 10 laptop
'09jun2016 vvversion = "17 March 2016" this is the date of the compile only, just for the users info
'07Sep2016 mp3 bad records to a 2nd output file the file size on directory command etc
'30Sep2016 add the "COLOR=" option to switch to aqua etc and overprint on a bitmap screen capture of same text etc wipe it clean
vvversion = "Spectate 20Aug2022 " 'clean up of initial control file build my way
'look for "check the latest features above" where to add new features to help file

If temp1 <> 0 And ddemo = "YES" Then
Print vvversion; " of " + program_info
' Print "check web site: http://www.telusplanet.net/public/stonedan"
Print "e-mail Doug Pederson stonedan@telusplanet.net"
Print "for newer versions with more options"
Print "shareware"
Print "this info only displays on the first of month"
Print "Enter to continue"
tt1 = InputBox("Enter to continue", "Continue Prompt", , xx1 - offset1, yy1 - offset2)
End If 'year must be 2000

' do not allow use if date past best before date???
' Print "UserName="; UserName; "="
' tt1 = InputBox("testing prompt", , , 4400, 4500) 'TESTING ONLY
If strBuffer <> "STONEMAN" Then GoTo line_30 'vip todo comment out to activate
If strBuffer = "STONEMAN" Then GoTo line_30 'february 01 2001
If UserName = "stoneman" Then GoTo line_30
If UCase(UserName) = "KENNETH" Then GoTo line_30 'february 02 2001
If UCase(UserName) = "KEN M" Then GoTo line_30 'february 02 2001
If strBuffer = "KEN" Then GoTo line_30 'february 02 2001
MsgBox strBuffer + "=invalid computer " + UserName + "=username"

GoTo End_32000 'february 01 2001
line_30:
If date_check <> "YES" Then
GoTo File_40 'no date check if disabled
End If 'october 27 2000
If ddemo = "YES" Then
GoTo File_40 'no date check on demo version
End If 'as it is restricted enough
'date check should be good till end of march 2001
SSS = Format(Now, "ddddd ttttt") 'display today
temp2 = InStr(SSS, "12") '26Feb2012 if no 12 then not valid just for 2012
If temp2 = 0 Then
Print "invalid date="; SSS; "="
tt1 = InputBox("software expired visit home site for new one", , , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
GoTo End_32000
End If '26Feb2012 no free lunch after 2012
' temp2 = InStr(SSS, "/")
' temp1 = InStr(temp2 + 1, SSS, "/2010") 'for 2010 only
' Print "invalid date="; SSS; "="
' tt1 = InputBox("year not /00", , , 4400, 4500) 'TESTING ONLY
' If temp1 = 0 Then
' temp1 = InStr(temp2 + 1, SSS, "/2000")
' End If
' If temp1 = 0 Then
' temp1 = InStr(temp2 + 1, SSS, "/01")
' End If
' If temp1 = 0 Then
' temp1 = InStr(temp2 + 1, SSS, "/2001")
' End If
'to activate for windows 2000 need a proper date check here as with ME above
' If temp1 = 0 Then
' Print "invalid date="; SSS; "="
' tt1 = InputBox("year not /10", , , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
' GoTo End_32000
' End If 'year must be 2000
line_35:
If Left(SSS, 1) = " " Then
SSS = Right(SSS, Len(SSS) - 1)
GoTo line_35
End If
If Left(SSS, 3) <> "10/" And Left(SSS, 3) <> "11/" _
And Left(SSS, 3) <> "12/" And Left(SSS, 2) <> "1/" _
And Left(SSS, 2) <> "2/" And Left(SSS, 2) <> "3/" Then
' Then
Print "software expired="; SSS; "="
tt1 = InputBox("e-mail stonedan@telusplanet.net", , , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
GoTo End_32000
End If 'must be march also
screen_capture = "NO" 'march 15 2001

File_40:

save_line = "40"
Close #ExtFile 'march 18 2001
copy_photo = "NO" 'march 18 2001

'09 december 2002 rand = 0 '18 august 2002
text_pause = 0 '05 october 2002
debug_photo = False '12 october 2002
' debug_photo = True '01 february 2003 09 september 2003
If InStr(UCase(App.EXEName), "DEBUG") <> 0 Then
debug_photo = True '30Jun2012a
End If '30Jun2012
tt1 = ""
encript = ""
prev_option = ""
If extract_yes = "YES" Then
Close #ExtFile
line_len = Val(Cmd(21))
End If 'november 12 2000
tot_s1 = 0 'january 01 2001
tot_s2 = 0 'january 01 2001
tot_s3 = 0 'january 01 2001
tot_s4 = 0 '23 june 2002
tot_s5 = 0 '23 june 2002
tot_s6 = 0
extract_yes = "" 'november 12 2000
skip_info = "" 'november 14 2000
' img_ctrl = "NO" 'february 21 2001
img_ctrl = "YES" 'march 31 2001
stretch_img = "YES" 'march 31 2001
'22 december 2002
' If UCase(Cmd(38)) = "STRETCH" Then
' stretch_info = " (STRETCH)" '21 december 2002
' Else
' stretch_info = " (NORMAL)"
' End If
dbltime1 = 0
dbltime2 = 0
line_45: 'december 3 2000
boundarycnt = 0 'december 31 2000
boundarystr = "" 'december 31 2000
mbxyes = "" 'december 17 2000
dateskip = "F" 'december 23 2000
GoSub InputFile_24000 'march 20/00
' Print "tt1 SAVE_ttt="; tt1; "="; SAVE_ttt
' ttt = InputBox("testing file_40", , , 4400, 4500) 'TESTING ONLY

If tt1 = "" Then
GoTo End_32000
End If
append_start1 = "append start" 'april 10 2001
append_end1 = "append end" 'april 10 2001
mbxi = 0 'december 17 2000
emailsea = "" 'december 11 2000
SAVE_ttt = "in" 'december 10 2000
GoSub Control_28000 'december 10 2000
extract_yes = "" 'december 31 2000
photo_cnt = 0 'march 17 2001
dirdates = "" 'april 11 2001
hilite_hh = "" 'april 22 2001
hilite_cnt = 0 'april 22 2001
rand_str = "" '18Mar2012
If rand = -1 Then '09 december 2002
Randomize 'use system timer to start randomizer
cnt = 99999999
GoSub line_30920
' rand_cnt = zzz_cnt - 3 'keep the total number of records in file
rand_cnt = zzz_cnt - 6 'keep the total number of records in file 28 april 2003 (this fixed it) ver=1.04a
'seems to loop if it hits end of file
'Hint: (place 6 blank lines at end of file
'so last 3 pictures can be seen in random mode.
zzz_cnt = 0
' xtemp = InputBox(" testing doug " + CStr(rand_cnt), "testing Prompt ", , xx1 - offset1, yy1 - offset2)
rand_no = Int(rand_cnt * Rnd + 1) 'this line moves to after hits or misses
rand_str = "random#" + CStr(rand_no) '18Mar2012
End If '09 december 2002
What_50:

save_line = "50" 'for error handling
pp_entered = "" 'november 6 2000
SSS = Format(Now, "ddddd ttttt") 'display today
'deactivate the date check below have the program work for ever

DoEvents
' Err.Raise 6 'test this to give error info
' works for all error numbers
' Beep 'test the beep bell

prompt2 = ""
ppoffset1 = 0 '27 july 2002
ppoffset2 = 0 '27 july 2002
'find out what can be called of use **vip** todo
'test area for ggg = GetSetting("?","*")
' ggg = GetSetting("RegCust", "Startup", "LastEntry", "0")
' Print "ggg="; ggg; "="
' tt1 = InputBox("testing What_50", , , 4400, 4500) 'TESTING ONLY
' save_line = "50 testing" 'testing only
' ggg = LoadResData("C:|Program Files\Plus!\Themes\UNDERW~5.WAV", 6)

' Print "ggg="; ggg; "="
' tt1 = InputBox("testing What_50", , , 4400, 4500) 'TESTING ONLY

'*********************************************************
'main option entry here entry option prompt
'*********************************************************
'10 august 2002 allow for different keep options for photo file and text files
If xxx_found = "YES" Then
Cmd(20) = Cmd(41)
Cmd(33) = "PHOTO"
' tt1 = InputBox("testing 01 January 2005", , , 4400, 4500) 'TESTING ONLY
End If
If xxx_found = "NO" Then
Cmd(20) = Cmd(42)
Cmd(33) = "D"
End If

'10 august 2002 use the cmd(20) and over-ride with above

' If xxx_found = "NO" And UCase(Cmd(20)) <> "Q" Then
' Cmd(20) = "C"
' Cmd(33) = "D"
' End If 'november 3 2000
' If xxx_found = "YES" Then
' Cmd(20) = "P"
' Cmd(33) = "PHOTO" 'december 18 2000
' End If 'november 3 2000
'10 august 2002 comment out the above logic

iimport = "" 'december 24 2000
If InStr(UCase(TheFile), "\MAIL\") <> 0 And SAVE_ttt = "in" Then Cmd(20) = "email" 'december 12 2000
If InStr(UCase(TheFile), "\OUTLOOK EXPRESS\") <> 0 And SAVE_ttt = "in" Then Cmd(20) = "email" 'december 13 2000
Set Picture = LoadPicture() 'lp#1
page_prompt = "" 'december 31 2000
MAX_CNT = Val(Cmd(1)) 'december 31 2000
Context_lines = Val(Cmd(22)) 'december 31 2000
If Context_lines > 40 Then Context_lines = 40 'February 04 2001
mess_cnt = 0 'january 03 2001
array_pos = 0 'january 21 2001
array_prt = 0
temp_sec = -1 'march 14 2001
' WinSeek.Show 'february 26 2001
' WinSeek.SetFocus
'february 26 2001
' frmOption1.Caption = "Option prompt" 'february 26 2001
' MDIOption1.Show 'february 26 2001
' xtemp = InputBox("testing prompt_ after option1 show=" + TheFile + "*" + UCase(xtemp) + "*" + CStr(wrap_cnt) + " " + CStr(cnt), "test", , 4400, 4500) '
' SetFocus 'february 26 2001
' Unload frmOption1 'february 26 2001
If screen_capture = "YES" Then
new_delay_sec = 5 '03 September 2004
GoSub line_30300 '03 September 2004
' delay_sec = 5 'march 15 2001
' GoSub line_30000
End If
dsp_cnt = 0 'may 12 2001
dbltime2 = Timer 'get the end time may 12 2001
Test1_str = ""
If dbltime1 <> 0 And dbltime1 <> dbltime2 Then
Test1_str = " elap=" + Format(dbltime2 - dbltime1, "#####0.000")
End If 'show elapsed times may 12 2001
multi_prompt2 = "" '04 September 2004
Get_no2: 'march 21 2002
search_str = "" '26 august 2002
' xtemp = InputBox(" input prompt #2 multi_prompt2 " + multi_prompt2 + "*" + ttt, " testing Prompt #2 ", , xx1 - offset1, yy1 - offset2)
If Cmd(20) = "Y" And SAVE_ttt <> "in" Then Cmd(20) = "" '15 december 2004
If Len(multi_prompt2) > 0 Then
temp1 = InStr(1, multi_prompt2, sep)
If temp1 <> 0 Then
ttt = Left(multi_prompt2, temp1 - 1)
multi_prompt2 = Right(multi_prompt2, Len(multi_prompt2) - temp1)
' xtemp = InputBox(" input prompt #2* multi_prompt2 " + multi_prompt2 + "*" + ttt, " testing Prompt #2* ", , xx1 - offset1, yy1 - offset2)
Else
ttt = multi_prompt2
multi_prompt2 = ""
' xtemp = InputBox(" input prompt #2** multi_prompt2 =" + multi_prompt2 + "*" + ttt, " testing Prompt #2** ", , xx1 - offset1, yy1 - offset2)
' Cmd(20) = "" '05 September 2004
End If
GoTo auto_p2 '04 September 2004

End If '04 September 2004 allow for multiple inputs at a time

' xtemp = InputBox(" input prompt #2 test " + auto_exe + "*", " testing Prompt #2 ", , xx1 - offset1, yy1 - offset2)
'12 September 2004 If UCase(App.EXEName) = Trim(UCase(Cmd(45))) And Left(App.Path, 3) <> "C:\" Then
' If (UCase(App.EXEName) = Trim(UCase(Cmd(45))) And Left(App.Path, 3) <> "C:\") Or InStr(1, UCase(App.Path + App.EXEName), "BACKGRD") <> 0 Then
'19Aug2011 If (UCase(App.EXEName) = Trim(UCase(Cmd(45))) And Left(App.Path, 3) <> "C:\") Or InStr(1, UCase(App.EXEName), "BACKGRD") <> 0 Then
mixx = False '12Feb2017
If InStr(UCase(App.EXEName), "MIX") <> 0 Then
mixx = True
End If '12Feb2017
budgeyn = False '17Dec2017
If InStr(UCase(App.EXEName), "BUDGE") <> 0 Then
budgeyn = True
End If '17Dec2017
If Left(UCase(App.EXEName), 6) = "RANDOM" Then
rand_prog = True
rand = True
If mixx Then Cmd(81) = "RAND_GROUP " '29Oct2012 if random and mix then rand_group needed
End If '29Oct2012
If InStr(UCase(App.EXEName), "ALT") <> 0 Then
altt = True
End If '12Aug2012
'If Left(UCase(App.EXEName), 7) = "BIGTEXT" Then
' xtemp = InputBox("testing#4dd Match 29Oct2012 rand=" + CStr(rand) + " break_num=" + CStr(break_num) + " group_match=" + CStr(group_match) + " rand_no=" + CStr(rand_no) + " zzz_cnt=" + CStr(zzz_cnt) + " rand_prog=" + CStr(rand_prog) + " aaa=" + Left(aaa, 10), , , 4400, 4500) 'TESTING ONLY
If Left(UCase(App.EXEName), 7) = "BIGTEXT" Or mixx = True Then '30Jun2012
ttt = "C"
If mixx = True Then
ttt = "WW" '30Jun2012b this seems to be the problem area
End If
' tt1 = InputBox("testing#2a 29Oct2012 mixx=" + CStr(mixx) + " ttt=" + ttt + " rand_prog=" + CStr(rand_prog), , , 4400, 4500) 'TESTING ONLY
If Left(UCase(Cmd(77)), 5) <> "CHARA" Then '**note** do not override what they have if not noCHARA
' xtemp = InputBox(" 29Oct2012 input prompt #2 mixx= " + CStr(mixx) + "*", " testing Prompt #2 ", , xx1 - offset1, yy1 - offset2)
MAX_CNT = 10 'lines per screen cmd(1)
Font.Size = 48 'font size cmd(2) 48 point size
BackColor = 0 'black background cmd(3)
Def_Fore = 15 'white text cmd(4)
Cmd(5) = 14 'hi-lite color yellow
' ForeColor = QBColor(Def_Fore)
'Cmd(21) = 26
line_len = 260 'cmd(21) make line length long.. all formatting done by user
Cmd(31) = ":" 'the highlite this element
hilite_this = ":" 'cmd(31)
Context_lines = 0 'cmd(22)
rand = 0 '24Jun2012
Cmd(76) = "LINEPAUSE==0.15"
Cmd(77) = "CHARACTERPAUSE==.0333"
Cmd(80) = "PROMPTDETAILS"
'22Jun2012
'frmproj2.AutoRedraw = True
End If 'ie they have their own settings no need to override
GoTo auto_p2
End If '21Jun2012
If Left(UCase(App.EXEName), 14) = "CATMYDRIVEGOLF" Then
ttt = "GOLF"
GoTo auto_p2
End If '18Jun2012
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
ttt = "GF"
GoTo auto_p2
End If '18Jun2012
If Left(UCase(App.EXEName), 6) = "RANDOM" Or Left(UCase(App.EXEName), 10) = "SEQUENTIAL" Then
ttt = "WW"
Cmd(49) = "NORANDOM"
If Left(UCase(App.EXEName), 6) = "RANDOM" Then
Cmd(49) = "RANDOM"
If UCase(Left(Cmd(81), 10)) = "RAND_GROUP" Then
frmproj2.Caption = "turn cmd(81) RAND_GROUP off if no BREAK records" '12May2012
End If
End If
GoTo auto_p2 '12May2012
End If
If (InStr(1, UCase(Cmd(45)), UCase(App.EXEName)) <> 0 And Left(App.Path, 3) <> "C:\") Or InStr(1, UCase(App.EXEName), "BACKGRD") <> 0 Then
ttt = RTrim(Cmd(47)) 'the search options entered here for now use "WW"
'want to make it so multiple prompts can be done todo **vip**
' xtemp = InputBox(" backgrd test2", " testing Prompt #2* ", , xx1 - offset1, yy1 - offset2)
If debug_photo Then '12 october 2002
xtemp = InputBox("DOUG TESTING AUTO PROMPT #2" + ttt, , , 4400, 4500) 'TESTING ONLY
End If
GoTo auto_p2
End If '07 december 2002
If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then '27 October 2004
ttt = Right(Cmd(71), Len(Cmd(71)) - 11)
' xtemp = InputBox("27 october 2004 TESTING 1 =" + ttt, , , 4400, 4500) 'TESTING ONLY
BatchFile = FreeFile
Open ttt For Input As #BatchFile
DoEvents

ttt = "RRR" 'testing only re the close of the file etc...
Line Input #BatchFile, ttt
' xtemp = InputBox("27 october 2004 TESTING 1a =" + ttt, , , 4400, 4500) 'TESTING ONLY
' interrupt_prompt2 = UCase(ttt) '20 November 2004
GoTo auto_p2
End If '27 October 2004
'19 august 2003 the following line deactivated. If xxx. not found then disable random. We want it random here
'19 August 2003 If xxx_found = "NO" Then rand = 0 '19 january 2003
'the above can be over-ridden below

ttt = InputBox("P P1 P2 TT WW SS CH X RAND NORAND RANDA NORANDA THUMB HELP option ", "Option Prompt #2 " + TheFile + Test1_str, UCase(Cmd(20)), xx1 - offset1, yy1 - offset2)

' frmproj2.BorderStyle = "0" '25 november 2002
' frmproj2.BorderStyle = "0" '25 november 2002
'10 august 2002 allow for cmd(41) and cmd(42) to override
' interrupt_prompt2 = UCase(ttt) '20 November 2004
auto_p2: '07 december 2002
ttt = UCase(ttt) '07 december 2002

If inin = "" Then
start_point = 0 '21 February 2007
start_point = 10 '11 March 2007
line_start_point = start_point '21 February 2007
keep_line_start_point = line_start_point '25Dec2011
cont_str = "" '08Feb2012
End If '21 February 2007
cont_str = "S" '16Apr2012
'04 September 2004 below
If InStr(1, ttt, sep) <> 0 Then
temp1 = InStr(1, ttt, sep)
multi_prompt2 = Right(ttt, Len(ttt) - temp1)
ttt = Left(ttt, temp1 - 1)
' xtemp = InputBox(" input prompt #2a multi_prompt2 " + multi_prompt2 + "*" + ttt, " testing Prompt #2a ", , xx1 - offset1, yy1 - offset2)
End If '04 September 2004
If Left(ttt, 6) = "SPEED=" Then
play_speed = Val(Right(ttt, Len(ttt) - 6))
keep_play_speed = play_speed '08Nov2011
GoTo Get_no2
End If '29 October 2003 testing this a bit

p2p2 = UCase(ttt) '10 august 2002
If ttt = "SS" And ss_only <> "YES" Then
ss_only = "YES"
GoTo Do_Search_110
End If '07 december 2002
If p2p2 = "DEBPHO" Then
debug_photo = True
GoTo Get_no2
End If '12 october 2002 allow for debug of photo problems

'16 July 2003 testing only below 28Dec2011 this is for batch start point other is per video and audio file
If Left(p2p2, 7) = "START==" Then
start_point = Val(Right(p2p2, Len(p2p2) - 7))
line_start_point = start_point '22 March 2004
keep_line_start_point = line_start_point '28Dec2011
GoTo Get_no2
End If '16 July 2003 Ver=1.07T testing the start point

If Left(p2p2, 4) = "ELAP" Then
elapse_yn = "YES" '13 July 2003
GoTo Get_no2
End If '13 July 2003
If p2p2 = "PAUSE" Or p2p2 = "PA" Then
text_pause = True
extract_yes = "NO" 'do not want these two taking up disc space
auto_redraw = "NO"
frmproj2.AutoRedraw = False
inin = ""
GoTo Get_no2
End If '05 october 2002
'12May2012
'12May2012 If p2p2 = "RAND" Then
If p2p2 = "RAND" Or Left(UCase(App.EXEName), 6) = "RANDOM" Then
rand = -1
Randomize 'use system timer to start randomizer
cnt = 99999999
GoSub line_30920
rand_cnt = zzz_cnt - 3 'keep the total number of records in file
'seems to loop if it hits end of file
zzz_cnt = 0
' xtemp = InputBox(" testing doug " + CStr(rand_cnt), "testing Prompt ", , xx1 - offset1, yy1 - offset2)
rand_no = Int(rand_cnt * Rnd + 1) 'this line moves to after hits or misses
rand_str = "random#" + CStr(rand_no) '18Mar2012
' If rand Then
' xtemp = InputBox(" testing doug randomizer rnd " + CStr(rand_no), "testing Prompt ", , xx1 - offset1, yy1 - offset2)
' End If
GoSub Control_28000
'22 december 2002
Cmd(49) = "RANDOM" '09 December 2002
' random_info = " (RANDOM)" '21 december 2002
GoSub line_30800 'kill and update the control file
frmproj2.Caption = program_info + random_info + stretch_info '09 december 2002
If Left(UCase(App.EXEName), 6) <> "RANDOM" Then GoTo Get_no2 '12May2012
p2p2 = Cmd(20) '12May2012
ttt = Cmd(20) '12May2012
'12May2012 GoTo Get_no2
'12May2012 test below
' If rand Then
' xtemp = InputBox(" testing doug randomizer rnd " + CStr(rand_no), "testing Prompt ", , xx1 - offset1, yy1 - offset2)
' End If
End If '18 august 2002
If Left(UCase(App.EXEName), 9) = "RANDOMSEG" Then
thumb_nail = "YES"
rand1 = -1
Randomize
Cmd(65) = "RANDBEG"
End If '23Jun2012a
'12May2012 If p2p2 = "NORAND" Then
If p2p2 = "NORAND" Or Left(UCase(App.EXEName), 10) = "SEQUENTIAL" Then
rand = 0
GoSub Control_28000
Cmd(49) = "NORANDOM" '09 december 2002
'22 december 2002
' random_info = "" '21 december 2002
GoSub line_30800 'kill and update the control file
frmproj2.Caption = program_info + stretch_info '09 december 2002
If Left(UCase(App.EXEName), 10) <> "SEQUENTIAL" Then GoTo Get_no2 '12May2012
p2p2 = Cmd(20) '12May2012
ttt = Cmd(20) '12May2012
'12May2012 GoTo Get_no2
End If '09 december 2002

If p2p2 = "DETAIL" Then
GoSub Control_28000
Cmd(56) = "PHOTO_DETAIL" '18 November 2004
GoSub line_30800 'kill and update the control file
detailyn = "PHOTO_DETAIL" '18 November 2004
GoTo Get_no2
End If '18 November 2004

If p2p2 = "NODETAIL" Then
GoSub Control_28000
Cmd(56) = "noPHOTO_DETAIL" '18 November 2004
GoSub line_30800 'kill and update the control file
detailyn = "noPHOTO_DETAIL" '18 November 2004
GoTo Get_no2
End If '18 November 2004

If p2p2 = "RG" Then
GoSub Control_28000
Cmd(81) = "RAND_GROUP" '09Feb2012
GoSub line_30800 'kill and update the control file
GoTo Get_no2
End If '09Feb2012

If p2p2 = "NORG" Then
GoSub Control_28000
Cmd(81) = "noRAND_GROUP" '09Feb2012
GoSub line_30800 'kill and update the control file
GoTo Get_no2
End If '09Feb2012

If Left(p2p2, 4) = "THUM" Then
thumb_nail = "YES" '16 July 2003 ver=1.07T
GoSub Control_28000
Cmd(67) = "THUMB" '14 April 2004
GoSub line_30800
GoTo Get_no2
End If

If Left(p2p2, 6) = "NOTHUM" Then
thumb_nail = "NO"
GoSub Control_28000
Cmd(67) = "noTHUMB" '14 April 2004
GoSub line_30800
GoTo Get_no2
End If

'23 March 2004
If p2p2 = "RANDA" Then
rand1 = -1
Randomize
GoSub Control_28000
Cmd(65) = "RANDBEG"
GoSub line_30800
GoTo Get_no2
End If

If p2p2 = "NORANDA" Then
rand1 = 0
GoSub Control_28000
Cmd(65) = "noRANDBEG"
GoSub line_30800
GoTo Get_no2
End If '23 March 2004 add random start point in video

If p2p2 = "NOVIDEO" Then
GoSub Control_28000
Cmd(53) = "NOSHOWVIDEO" '10 FEBRUARY 2003
GoSub line_30800 'kill and update the control file
videoyn = "NOSHOWVIDEO"
GoTo Get_no2
End If '10 FEBRUARY 2003

If p2p2 = "VIDEO" Then
GoSub Control_28000
Cmd(53) = "SHOWVIDEO" '10 FEBRUARY 2003
GoSub line_30800 'kill and update the control file
videoyn = "SHOWVIDEO"
GoTo Get_no2
End If '10 FEBRUARY 2003

'05 december 2002 If p2p2 = "P1" Or p2p2 = "P2" Or p2p2 = "WW" Or p2p2 = "SS" Then
'midway thru the program appx

If p2p2 = "P" Or p2p2 = "WW" Or p2p2 = "SS" Then
If Cmd(41) <> p2p2 Then
GoSub Control_28000
Cmd(41) = p2p2
GoSub line_30800 'kill and update the control file
End If
End If '10 august 2002

'15 December 2004 If p2p2 = "C" Or p2p2 = "S" Or p2p2 = "Q" Or p2p2 = "CC" Then
If p2p2 = "C" Or p2p2 = "S" Or p2p2 = "Q" Or p2p2 = "CC" Or p2p2 = "Y" Then
If Cmd(42) <> p2p2 Then
GoSub Control_28000
Cmd(42) = p2p2
GoSub line_30800 'kill and update the control file
End If
End If '10 august 2002
If p2p2 = "CC" Then
search_str = "CC" '26 august 2002
p2p2 = "S"
prompt2 = "S"
ttt = "S"
End If

dbltime2 = Timer 'may 12 2001
dbltime1 = Timer 'Get the start time may 12 2001
prev_ttt = ttt 'april 10 2001
If UCase(ttt) = "Z" Then prev_option = "" 'february 25 2001
If prev_option = "CH" Then
SetFocus 'this solved the problem of the esc / enter not interrupting
End If
'the program once the "CH" option was done february 20 2001
line_60: 'february 09 2001
tt1 = ttt 'november 14 2000
ttt = UCase(ttt) 'all to upper case june 14/99
If ttt = "M" Then
frmproj2.WindowState = 1 '0=normal 1 = min 2 = max
'when I used co-ordinates of 40000 , 40000 below the input box failed and
'it skipped immediately to the get_no2 prompt what the hey
ttt = InputBox(" window state prompt", "minimized ", "WHAT", 20000, 20000)
frmproj2.WindowState = 2 '
GoTo Get_no2
End If 'march 21 2002
' "Y" for yesterday display in text file december 09 2001
' read till end of file then do similar to the "B" option
If ttt = "Y" Then
save_line = "65"
OutFile = FreeFile
Open TheFile For Input As #OutFile
DoEvents 'yield to operating system
dblStart = Timer 'get the start time

line_65:
Line Input #OutFile, aaa
zzz_cnt = zzz_cnt + 1
GoTo line_65
End If

If ttt = "HELP" Then
rand = 0 '10 december 2002
Close #OutFile
DoEvents
DoEvents
GoSub line_30900
Close #OutFile
DoEvents
OutFile = FreeFile
Open "help.txt" For Input As #OutFile
DoEvents
prompt2 = "C"
printed_cnt = 1 'otherwise the "reading 1" shows up on screen
inin = "A" 'forces all data to be displayed
SSS1 = "" 'when set to "A" only lines with "A" in displayed
SAVE_KEEPS1 = "==" 'the search match is an and (just use one at a time)
SAVE_KEEPS2 = "CMD(" '**vip** the search here must be in all capitals
SAVE_KEEPS3 = ") " 'use this for some other display all caps
SAVE_KEEPS4 = "" '09 JUNE 2002
SAVE_KEEPS5 = ""
SAVE_KEEPS6 = ""
SAVE_ttt = "C" 'this ensures it is "C" context display
Picture_Search = "" 'this one was important in making the help work
hi_lites = "YES"
' frmproj2.Caption = program_info + " (cls #1)" '18Dec2013

Cls 'clear the screen
' can not seem to get this routine to display the hilites on the second pass
' after a photo has been displayed and the option prompt "help" request
' not a big deal but just having no luck today october 22 2001
' SSS = SAVE_KEEPS1 + sep + SAVE_KEEPS2 + sep + SAVE_KEEPS3
' xtemp = InputBox("DOUG 1 TESTING SSS1 SSS2 SSS3" + SSS1 + SSS2 + SSS3, , , 4400, 4500) 'TESTING ONLY
' xtemp = InputBox("DOUG 2 TESTING SAVE_ttt hi_lites" + SAVE_ttt + "," + hi_lites, , , 4400, 4500) 'TESTING ONLY
' KEEPS1 = ""
' KEEPS1 = ""
' KEEPS2 = ""
' KEEPS3 = ""
' xtemp = InputBox("DOUG 3 TESTING KEEPS1 KEEPS2 KEEPS3 " + KEEPS1 + "," + KEEPS2 + "," + KEEPS3, , , 4400, 4500) 'TESTING ONLY
' xtemp = InputBox("DOUG 4 TESTING tt1" + tt1, , , 4400, 4500) 'TESTING ONLY
' tt1 = ""
' xtemp = InputBox("DOUG 5 TESTING save_search" + save_search, , , 4400, 4500) 'TESTING ONLY
' xtemp = InputBox("DOUG 6 TESTING SAVE_KEEPS1" + SAVE_KEEPS1, , , 4400, 4500) 'TESTING ONLY
' xtemp = InputBox("DOUG 7 TESTING SAVE_KEEPS2" + SAVE_KEEPS2, , , 4400, 4500) 'TESTING ONLY
' line_match = "Y"
GoTo input_1000a

End If 'october 14 2001
If ttt = "DIRDATES" Then
dirdates = "Y"
GoTo What_50
End If 'april 11 2001
If Left(ttt, 2) = "HH" Then
hilite_this = Mid(prev_ttt, 3)
GoSub Control_28000 '19 january 2003
Cmd(31) = Mid(prev_ttt, 3) ' only hilites data not on matching line
GoSub line_30800 '19 january 2003
hilite_hh = "Y" 'april 22 2001
GoTo What_50
End If 'april 10 2001
If Left(ttt, 3) = "HLL" Then
append_end1 = Mid(prev_ttt, 4)
GoTo What_50
End If 'april 10 2001
If Left(ttt, 2) = "HL" And Mid(ttt, 3, 1) <> "L" Then
append_start1 = Mid(prev_ttt, 3)
GoTo What_50
End If 'april 10 2001
If ttt = "P1" Then
img_ctrl = "YES" 'march 31 2001
stretch_img = "YES" 'march 31 2001
'22 december 2002
' stretch_info = " (STRETCH)" '21 december 2002
' frmproj2.Caption = program_info + random_info + stretch_info '09 december 2002
GoSub Control_28000 'october 07 2001 read the most current then update
Cmd(38) = "stretch"
search_prompt = "in" 'october 07 2001
GoSub line_30800 'september 23 2001
frmproj2.Caption = program_info + random_info + stretch_info '22 december 2002
If debug_photo Then '12 october 2002
xtemp = InputBox("DOUG TESTING photo 1" + ttt, , , 4400, 4500) 'TESTING ONLY
End If
ttt = "P1" 'OCTOBER 07 2001
ttt = "P" '05 december 2002
GoTo What_50 '05 december 2002
End If 'march 31 2001
If ttt = "P" Then
ttt = "P1"
End If 'september 23 2001

If ttt = "SC" Then
screen_capture = "YES" 'march 15 2001
GoTo What_50
End If
If ttt = "DIR" Then
ttt = "GF" 'february 18 2002
diryes = "DIR"
dirdates = "Y"
End If 'february 18 2002
Mergem = "NO" 'february 24 2002
If ttt = "MERGE" Then
ttt = "GF" 'february 24 2002
diryes = "DIR"
dirdates = "Y"
Mergem = "YES"
End If 'february 24 2002

If ttt = "GOLF" Then
ttt = "GF" '25Jun2010
Mergem = "GOLF" '25Jun2010
End If
If ttt = "VL" Then
ttt = "GF" '04Feb2012 put the video_length and size in bytes on the catalog
Mergem = "VL" '04Feb2012
End If
rewind = "NO" '12Apr2014
If Left(ttt, 2) = "BB" Then
ttt = "FF" + Right(ttt, Len(ttt) - 2) '12Apr2014 rewind very similar to fast forward
rewind = "YES"
' xtemp = InputBox("testing 12Apr2014 " + ttt, , , 4400, 4500) '12Apr2014
End If '12Apr2014
If Left(ttt, 2) = "FF" Then 'ie FF.7 for a .7 sec play 17Mar2014
nocount = 0 '12Apr2014
fast_forward = 0.7 '17Mar2014 if none entered play for .7 of a second
If Len(ttt) > 2 Then fast_forward = Val(Right(ttt, Len(ttt) - 2)) 'set a new delay time on screen saver
ttt = "GF" '06Feb2012 catalog for fast forward of videos
Mergem = "FF" '06Feb2012
End If

If ttt = "GF" Then
GoSub Control_28000
rand = 0 '19 July 2003 take random off GF option
Cmd(49) = "NORANDOM"
GoSub line_30800 'kill and update the control file
'19 July 2003 (somehow having random set causes the tag record
'on mp3 files not to be read properly (so this should be a temp fix)
GoSub Control_28000 '19 July 2003
Close #OutFile '18 August 2004 so there is no conflict with file opened at prompt number 1 one
GoSub line_30700 'april 01 2001
'15 december 2002 GoTo What_50
GoTo File_40
End If

If Left(ttt, 2) = "PC" Then
photo_cnt = Val(Mid(ttt, 3)) - 1
GoTo What_50
End If 'march 17 2001
If ttt = "CP" Then
copy_photo = "YES" 'march 17 2001
'need to allow for change of file name etc here
xtemp = Cmd(19)
GoSub line_16000 '
If UCase(FileExt) = UCase(TheFile) Then
ttt = "X"
GoTo File_40
End If
'might want to make the open below append or new

' save_line = "16100-1" '18 March 2007 testing only only
GoSub line_16100 'open the replace.txt for output
xtemp = InputBox(" output directory (you can rename folder later)", "Directory Prompt ", Cmd(23), xx1 - offset1, yy1 - offset2)
temps = xtemp
good_fold = xtemp '15Aug2016
' good_fold = "" '28Aug2016 they seem to be going to the default on c: somehow
' If Len(temps) < 4 Then
' GoTo What_50
' End If 'april 08 2001
'09Aug2016 a blank directory is allowed because those with mp3 errors blow will be ougput
badmp3_fold = InputBox(" problems directory (you can rename folder later) " + Cmd(84), "Directory Prompt " + Test1_str + " " + zemp, "", xx1 - offset1, yy1 - offset2) '08Aug2016
' badmp3_fold = "d:\bad_mp3\" 'JUST DURING TESTING 09Aug2016
' GoTo What_50 '08Aug2016 testing only just to check test1_str above
save_dir:
photo_dir = xtemp 'ie c:\search\tempfold\
xtemp = InputBox(" keep original file name Y/N <Y> (pict for pict00001 & pict00002 etc)", "Output file name prompt ", "Y", xx1 - offset1, yy1 - offset2)
photo_file = xtemp 'ie pict
If xtemp = "Y" Then photo_file = ""
' xtemp = InputBox("testing dir" + photo_dir, , , 4400, 4500) 'TESTING ONLY
' xtemp = InputBox("testing file" + photo_file, , , 4400, 4500) 'TESTING ONLY
GoTo What_50
End If 'end "CP" if statement
prev_option = ttt 'february 25 2001
If ttt = "P2" Then
stretch_img = "NO" 'march 31 2001
'22 december 2002
' stretch_info = " (NORMAL)" '21 december 2002
' frmproj2.Caption = program_info + random_info + stretch_info '25 november 2002
' img_ctrl = "YES" 'february 21 2001
img_ctrl = "NO" 'march 31 2001
ttt = "P1"
GoSub Control_28000 'october 07 2001
Cmd(38) = "normal" 'september 23 2001
search_prompt = "in" 'october 07 2001
GoSub line_30800 'september 23 2001
frmproj2.Caption = program_info + random_info + stretch_info '25 november 2002
' xtemp = InputBox("TESTING DOUG photo 2" + ttt, , , 4400, 4500) 'TESTING ONLY
ttt = "P1" 'OCTOBER 07 2001
ttt = "P" '05 december 2002
GoTo What_50 '05 december 2002
End If
If Cmd(20) = "email" And ttt = "IMPORT" Then
emailsea = "Y"
iimport = "Y" 'december 24 2000
ttt = "F" 'for flash display
extract_yes = "YES"
xtemp = Cmd(19)
GoSub line_16000 'get file name
If UCase(FileExt) = UCase(TheFile) Then
ttt = "X"
GoTo File_40
End If 'january 22 2001
' save_line = "16100-2" '18 March 2007 testing only only
GoSub line_16100 'january 01 2001
End If
Cmd(20) = "" 'december 7 2000
xxx_found = "" 'december 7 2000
If ddemo = "YES" And ttt = "" Then
GoTo line_80
End If

'demo only allows the P1 and the SS options
If ddemo = "YES" And ttt <> "P1" And ttt <> "X" And ttt <> "RRR" And ttt <> "SS" Then
GoTo What_50
End If
'december 11 2000 re the emailsea option email
If ttt = "EMAIL" Then
emailsea = "Y"
ttt = "C"
End If
If ttt = "R" Then
page_prompt = "NO"
extract_yes = "YES"
xtemp = Cmd(19)
GoSub line_16000
If UCase(FileExt) = UCase(TheFile) Then
ttt = "X"
GoTo File_40
End If 'january 22 2001
' save_line = "16100-3" '18 March 2007 testing only only
GoSub line_16100 'january 01 2001
ttt = "Q"
End If 'december 31 2000
If ttt = "CROP" Then
GoSub line_30600 'crop the input file to a given length
SAVE_ttt = ""
GoTo File_40
End If 'december 31 2000
If ttt = "DISC" Then
MsgBox strMessage
strMessage = App.Path + "*" + App.EXEName + " serial#= " + ser_num '07 december 2002
MsgBox strMessage
GoTo What_50
End If 'january 31 2001
If ttt = "D" Then
page_prompt = "NO"
extract_yes = "YES"
xtemp = Cmd(19)
GoSub line_16000
' xtemp = InputBox("testing prompt_=" + TheFile + "*" + UCase(xtemp) + "*" + CStr(wrap_cnt) + " " + CStr(cnt), "test", , 4400, 4500) '
If UCase(TheFile) = UCase(FileExt) Then
ttt = "X"
GoTo File_40
End If 'january 22 2001
' save_line = "16100-4" '18 March 2007 testing only only
GoSub line_16100 'january 01 2001
'january 01 2001 MAX_CNT = 5
'january 01 2001 Context_lines = 2
MAX_CNT = context_win
Context_lines = Int((context_win - 1) / 2)
If Context_lines > 40 Then Context_lines = 40 'january 28 2001
ttt = "C"
End If 'december 31 2000

If ttt = "T" Then
page_prompt = "NO"
extract_yes = "YES"
xtemp = Cmd(19)
GoSub line_16000
If UCase(FileExt) = UCase(TheFile) Then
ttt = "X"
GoTo File_40
End If 'january 22 2001
' save_line = "16100-5" '18 March 2007 testing only only
GoSub line_16100 'january 01 2001
ttt = "S" 'see logic below for changing S to Q for search
End If 'january 01 2001
'november 14 2000 the following stuff moved up to do_search area
uppercase = "N" 'december 8 2000
If ttt = "S" Then
uppercase = "Y"
ttt = "Q"
End If 'december 8 2000
If ttt = "XXX" Then
extract_yes = "YES" 'november 12 2000
text_pause = 0 '05 october 2002 don't want these two taking up disc
xtemp = Cmd(19)
GoSub line_16000 'get the file name november 17 2000
If UCase(FileExt) = UCase(TheFile) Then
ttt = "X"
GoTo File_40
End If 'january 22 2001
' save_line = "16100-6" '18 March 2007 testing only only
GoSub line_16100 'january 01 2001

GoTo What_50
End If
If ttt = "LL" Then
line_len = Val(Cmd(21))
GoTo What_50
End If 'december 6 2000
If Left(ttt, 2) = "LL" Then
line_len = Val(Right(ttt, Len(ttt) - 2))
GoTo What_50
End If 'december 6 2000
If Left(ttt, 7) = "SHOWPOS" Then
showpos = "Y"
GoTo What_50
End If 'december 6 2000
'**keep** the showpos is handy to check the wrap functions for problems
'and there will be problems
If Left(ttt, 7) = "SHOWASC" Then
showasc = "Y"
GoTo What_50
End If 'december 6 2000
If Left(ttt, 4) = "SKIP" Then
skip_info = Right(tt1, Len(tt1) - 4)
GoTo What_50 'november 14 2000
End If

If Left(ttt, 2) = "NS" And Len(ttt) > 2 Then
Cmd(28) = " " + Cmd(28) + " " + Right(ttt, Len(ttt) - 2) + " "
GoSub line_29100 'set up new noshow elements
GoTo What_50
End If
'november 03 2000 allow switch between two control files ie for font sizes etc
If Left(ttt, 3) = "CCC" Then
' control_file = "c:\control1.txt"
control_file = "control1.txt" 'december 3 2000 hint use control1.txt to switch multiple settings at once
GoSub Control_28000
DoEvents
' control_file = "c:\control.txt"
'23 september 2002 control_file = "control.txt" 'december 3 2000
SAVE_ttt = "in" 'november 23 2000
GoTo What_50
End If
If Left(ttt, 2) = "SS" And Len(ttt) > 2 Then
Cmd(26) = " " + Right(ttt, Len(ttt) - 2) + " "
' ss_search = Right(ttt, Len(tt) - 2) + " " 'october 24 2000
GoSub line_29200 'set up new screen saver elements
' sscreen_saver = "Y" 'october 24 2000
' prompt2 = "SS"
' Print "screensave(?)="; "*"; screensave(screencount); "*"; aaa; screencount; sscreen_saver; prompt2
' tt1 = InputBox("testing screen saver logic", , , 4400, 4500) 'TESTING ONLY

ttt = "SS"
End If

'28 april 2002 WW screen saver option added
If Left(ttt, 2) = "WW" Then
sscreen_saver_ww = "YES"
interrupt_prompt2 = "" '23 November 2004
inin = ""
ttt = "SS"
Picture_Search = "YES" '26 November 2004 testing this doug
' ShowCursor = False '29 november 2002
' Me.MousePointer = False '29 november 2002
End If

If Left(ttt, 6) = "SMLBUD" Then '17Dec2017
budgeyn = True
If Len(ttt) > 6 Then '17Dec2017
GoSub Control_28000
smlbud = Val(Right(ttt, Len(ttt) - 6))
Cmd(85) = Format(smlbud, "####0.0000")
If smlbud <> 0 Then GoSub line_30800 'do not update file if zero but let em try it
End If
GoTo Get_no2
End If '17Dec2017
If Left(ttt, 6) = "BIGBUD" Then '17Dec2017
budgeyn = True
If Len(ttt) > 6 Then '17Dec2017
GoSub Control_28000
bigbud = Val(Right(ttt, Len(ttt) - 6))
Cmd(86) = Format(bigbud, "####0.0000")
' If bigbud <> 0 Then GoSub line_30800 'do not update file if zero but let em try it
End If
GoTo Get_no2
End If '17Dec2017

If Left(ttt, 6) = "MAXBUD" Then '17Dec2017
maxbud = 4 'when budge is in effect this must be non zero
budgeyn = True
If Len(ttt) > 6 Then '17Dec2017
GoSub Control_28000
maxbud = Val(Right(ttt, Len(ttt) - 6))
Cmd(87) = Format(maxbud, "####0.0000")
If maxbud <> 0 Then GoSub line_30800 'do not update file if zero but let em try it
End If
GoTo Get_no2
End If '17Dec2017

' tt1 = InputBox("testing1 delay " + ttt + " " + Cmd(85), , , 4400, 4500) 'TESTING 22 March 2004

If Left(ttt, 2) = "TT" And Len(ttt) > 2 Then
GoSub Control_28000
delay_sec = Val(Right(ttt, Len(ttt) - 2)) 'set a new delay time on screen saver
'february 08 2002 the 4 lines below were added to save the delay time
hold_sec = delay_sec
Cmd(27) = Format(hold_sec, "###0.0000")
delay_sec = hold_sec '29 november 2002
GoSub line_30800
delay_sec = hold_sec '18 November 2004
' tt1 = InputBox("testing delay " + ttt + " " + Cmd(27), , , 4400, 4500) 'TESTING 22 March 2004
GoTo Get_no2 '05 September 2004
'05 September 2004 GoTo What_50
End If

If Left(ttt, 6) = "OFFSET" And Len(ttt) > 6 Then
GoSub Control_28000
OffSet = Val(Right(ttt, Len(ttt) - 6)) 'set a new OffSet value
Cmd(83) = "OFFSET==" + Format(OffSet, "###0.0000")
GoSub line_30800
GoTo Get_no2 '02Nov2011
End If

If ttt = "" And SAVE_ttt = "in" Then
ttt = UCase(Cmd(20)) 'april 14/00
If ttt = " " Then
ttt = "C"
Cmd(20) = ttt
End If
End If 'default to "c" on incomming
prompt2 = ttt + ""

previous_count = 0
If ttt = "SS" Then
ttt = "P1"
'14May2012 If strecth_img = "NO" Then img_ctrl = "NO" 'march 31 2001
If stretch_img = "NO" Then img_ctrl = "NO" 'march 31 2001
sscreen_saver = "Y"
End If
' If UCase(Left(ttt, 3)) = "VVV" Then
' ppaste = Right(ttt, Len(ttt) - 3)
' GoTo What_50
' End If
If UCase(Left(ttt, 2)) = "VV" Then
Clipboard.SetText Right(ttt, Len(ttt) - 2)
'see programmers guide page 170 re mdi forms and clipboard.settext
GoTo What_50
End If

crlf = "" 'December 2 2000
If UCase(ttt) = "QQQ" Then
ttt = "RRR"
crlf = "NO"
End If
'add the option to do a search and replace
If UCase(ttt) = "RRR" Then
encript = "RRR"
' xtemp = InputBox("27 October testing 2" + ttt, , , 4400, 4500) 'TESTING ONLY
GoSub replace_29000
GoTo File_40
End If
'do the encription here november 20 2000 16Apr2014 need something like this max of 25000 lines for rewind bb option
line_70:
save_line = "70"
If UCase(ttt) <> "REVERSE" Then GoTo line_75
ttt = ""
FileExt = Cmd(19) '16Apr2014a replace.txt
Close OutFile '16apr2014a
DoEvents '16apr2014a
OutFile = FreeFile 'november 14 2000
' xtemp = InputBox("16Apr2014a reverse files (in file)= " + TheFile + " (out file) = " + FileExt, , , 4400, 4500) 'TESTING ONLY"
' If xtemp = "x" Then GoTo End_32000 '16apr2014 testing
Open TheFile For Input As #OutFile 'the main file open for input here vip
encript = "RRR"
criptcnt = 0
line_73:
Line Input #OutFile, aaa
criptcnt = criptcnt + 1
cript1(criptcnt) = aaa
GoTo line_73
line_74:
ExtFile = FreeFile 'november 14 2000
' FileExt = "replace.txt" '16Apr2014b
Open FileExt For Output As #ExtFile '
' xtemp = InputBox("16Apr2014 testing total reversal array count " + CStr(criptcnt), , , 4400, 4500) 'TESTING ONLY
' If xtemp = "x" Then GoTo End_32000 '16apr2014 testing
For i = criptcnt To 1 Step -1
Print #ExtFile, cript1(i)
Next i
' xtemp = InputBox("16Apr2014 testingb output done" + CStr(criptcnt), , , 4400, 4500) 'TESTING ONLY
' xtemp = InputBox("16Apr2014 OK reversal ranaming file " + FileExt + " as " + TheFile, , , 4400, 4500) 'TESTING ONLY
' Close ExtFile '16Apr2014b testing only
' If xtemp = "x" Then GoTo End_32000 '16apr2014 testing
tt1 = UCase(InputBox("total reversals=" + CStr(criptcnt) + " rename files Y/N <Y>", "Rename Prompt", , xx1 - offset1, yy1 - offset2))
If tt1 <> "N" Then
tt1 = "Y"
End If
If UCase(tt1) = "N" Then
Close ExtFile, OutFile
' Close FileFile, OutFile
GoTo line_74a
End If
' xtemp = InputBox("16Apr2014 stepa " + FileExt + " as " + TheFile, , , 4400, 4500) 'TESTING ONLY
Close ExtFile, OutFile
' Close FileFile, OutFile
' xtemp = InputBox("16Apr2014 stepb " + FileExt + " as " + TheFile, , , 4400, 4500) 'TESTING ONLY
DoEvents
' Name TheFile As "c:\oldfile.txt"
' Kill "oldfile.txt" 'december 3 2000
DoEvents
' xtemp = InputBox("16Apr2014 stepc " + FileExt + " as " + TheFile, , , 4400, 4500) 'TESTING ONLY
' Name TheFile As "oldfile.txt"
DoEvents
' xtemp = InputBox("16Apr2014 stepd " + FileExt + " as " + TheFile, , , 4400, 4500) 'TESTING ONLY
Kill TheFile
DoEvents
Name FileExt As TheFile
'rename files here if Y entered
line_74a:
save_line = "line_74a"
GoTo End_32000
line_75:
save_line = "75"

If UCase(ttt) = "CRIPT" Then
encript = "CRIPT"
xtemp = Cmd(32)
GoSub line_16000
GoSub line_29500 'encription array read
case_yes = "Y"
GoSub replace_29000
GoTo File_40
End If
'do the de-encription here november 20 2000
If UCase(ttt) = "DECRIPT" Then
encript = "DECRIPT"
xtemp = Cmd(32)
GoSub line_16000
GoSub line_29500 'encription array read
case_yes = "Y"
GoSub replace_29000
GoTo File_40
End If
'set up for the de-encription here november 20 2000
If UCase(ttt) = "MYSTUF" Then
encript = "MYSTUF"
xtemp = Cmd(32)
GoSub line_16000
GoSub line_29500 'encription array read
case_yes = "Y"
GoTo What_50
End If

'10 January 2005 If text_pause Then
If text_pause And p2p2 <> "F" Then
MAX_CNT = MAX_CNT + 1 '06 January 2005 no need to display the end of screen stuff when pausing
End If '06 January 2005 add 1 to the max number of lines to display here
' allow for the number of characters in string to do select
If Len(ttt) = 0 Then GoTo line_80
If Len(ttt) = 1 Then GoTo line_80
If Len(ttt) = 2 And ttt = "P1" Then GoTo line_80
If Len(ttt) = 2 And ttt = "CH" Then GoTo line_80
If Len(ttt) = 2 Then
ttt = "P"
GoTo line_80
End If
If Len(ttt) = 3 Then
ttt = "P1"
GoTo line_80
End If
If Len(ttt) = 4 Then
ttt = "CH"
GoTo line_80
End If
If Len(ttt) = 5 Then
ttt = "Z"
GoTo line_80
End If
If Len(ttt) = 6 Then
ttt = "E"
GoTo line_80
End If
If Len(ttt) = 7 Then
ttt = "F"
GoTo line_80
End If
If Len(ttt) = 8 Then
ttt = "S"
GoTo line_80
End If
If Len(ttt) = 9 Then
ttt = "X"
GoTo line_80
End If

line_80:
Test1_str = "P"
' Print "Cmd(20)="; Cmd(20); "="
If debug_photo Then '12 october 2002
tt1 = InputBox("testing photo 3", , , 4400, 4500) 'TESTING ONLY
End If
If ttt = "P1" Then
ttt = "P"
Test1_str = "P1"
End If
If ttt = "P2" Then
ttt = "P"
Test1_str = "P2"
End If
If ttt = "P3" Then
ttt = "P"
Test1_str = "P3"
End If

SAVE_ttt = ttt
' frmproj2.Caption = program_info + " (cls #2)" '18Dec2013
Cls 'clear screen each time
'enter data to end of file
Picture_Search = "NO"
If ttt = "P" Then
Picture_Search = "YES"
ttt = "C"
GoTo Do_Search_110
SAVE_ttt = ttt
End If 'march 31/00

If ttt = "Z" Then
GoSub Do_Append_19000
GoTo What_50
End If 'march 28/00
If ttt = "CH" Then
GoSub Do_Change_18000
DoEvents
GoTo What_50
End If 'march 29/00
If ttt = "E" Then
GoTo Do_Enter_20000
End If
'search and search with start
If ttt = "S" Or ttt = "SS" Then
GoTo Do_Search_110
End If
'flash search
If ttt = "F" Then
' tt1 = InputBox("testing flash prompt", , , 4400, 4500) '04 September 2004
auto_redraw = "NO"
frmproj2.AutoRedraw = False 'november 11 2001
'turn off redraw on flash display
GoTo Do_Search_110
End If

'context search aug 08/99
If ttt = "C" Then
GoTo Do_Search_110 'aug 08/99
End If
'quick search october 21 2000
If ttt = "Q" Then
GoTo Do_Search_110
End If
GoTo File_40
' GoTo End_32000

Do_Search_110:
save_line = "110" 'for error handling
If img_ctrl = "YES" Then
Set Image1.Picture = LoadPicture 'february 21 2001
End If
If debug_photo Then '12 october 2002
tt1 = InputBox("testing photo 3.1", , , 4400, 4500) 'TESTING ONLY
End If

Close OutFile
OutFile = FreeFile 'november 14 2000
If mbxyes = "Y" Then
Open TheFile For Binary As #OutFile 'the main file open for input here vip
Else
Open TheFile For Input As #OutFile 'the main file open for input here vip
End If
SSS1 = ""
SSS2 = ""
SSS3 = ""
SSS4 = "" '09 JUNE 2002
SSS5 = ""
SSS6 = ""

'may 12 2001 dsp_cnt = 0
zzz_cnt = 0
zzz_chrs = 0
tot_disp = 0 ' zero count of lines displayed
end_cnt = 0 'allow for more than 1 eof in file

' ScrollBars = True
' Picture1.Picture = LoadPicture("c:\temp.bmp")
' Picture2.Picture = Picture1.Picture
' Picture2.Top = 0
' Picture2.Left = 0
' Picture2.Width = Picture1.Width
' Picture2.Height = Picture1.Height

' II = DoEvents()

' PaintPicture Picture1.Picture, -1, -3300, 9400, 8000
' MyAppID = Shell("C:\WINDOWS\KODAKIMG.EXE", 1)

' MyAppID = Shell("C:\WINDOWS\SYSTEM\VIEWERS\QUIKVIEW.EXE", 1)

' MyAppID = Shell("C:\PROGRAM FILES\ACCESSORIES\MSPAINT.EXE", 1)
' AppActivate MyAppID
' SendKeys "^o", True
' SendKeys "c:\temp.tif", True
' SendKeys "{c:\temp.bmp}", True

' SendKeys "%F1", 1

' SendKeys "%F0C:\TEMP.BMP", 1
' SendKeys " C:\TEMP.BMP"

' SendKeys Ctrl("o"), 1
' SendKeys "^co"

' MyAppID = Shell("C:\PROGRAM FILES\colordesk utilities\photo\cdphoto.EXE", 1)

' MyAppID = Shell("C:\fbscanner\imagein3\imagein.EXE", 1)
' MyAppID = Shell("C:\PRORAM FILES\ACCESSORIES\IMAGEIN.EXE", 1)

'*******************************************************
' * * * S E A R C H S T R I N G * * * entry option prompt
'*******************************************************
'august 27/00
' ttt = InputBox("Search String 'A' for ALL", , , 4400, 4500)
' ttt = UCase(ttt)
TheSearch = "."
'28 april 2002 If sscreen_saver = "Y" Then
' frmproj2.Caption = " do_search_110 dougdoug " + SAVE_SSS + "*" + interrupt_prompt2 + "*" + sscreen_saver + "*" + sscreen_saver_ww + "*" + SSS1 + "*" + SSS2 + "*" + ss_search '20 November 2004 test
If sscreen_saver = "Y" And sscreen_saver_ww = "YES" And interrupt_prompt2 = "WW" Then '21 November 2004
ttt = SAVE_SSS '21 November 2004 ie like "OLDIE/IRENE" IN SAVE_SSS
delay_sec = new_delay_sec '23 November 2004 set it back
interrupt_prompt2 = "" '23 November 2004 was not allowing a WW entry at prompt two
GoTo line_600
End If '21 November 2004
If sscreen_saver = "Y" And sscreen_saver_ww <> "YES" Then
ttt = ss_search 'screen saver logic
GoTo line_600
End If
line_500: 'december 3 2000
If text_pause And inin <> "" Then
' tt1 = InputBox("testing pause " + p2p2 + "*" + inin + "*", , , 4400, 4500)
GoTo line_510 '05 october 2002
End If
If iimport = "Y" Then
ttt = "kskdlskdj" 'skip search entry prompt
GoTo line_510 'december 24 2000
End If

If debug_photo Then '12 october 2002
tt1 = InputBox("testing photo 3.2", , , 4400, 4500) 'TESTING ONLY
End If

GoSub Search_26000 'get the string to find search prompt here *******

line_510: 'december 24 2000
' Print ttt 'testing
' tt1 = InputBox("testing search_26000", , , 4400, 4500)

If UCase(ttt) = "E" Or UCase(ttt) = "X" Then GoTo What_50
' If Len(ttt) = 1 Then GoTo What_50 'january 05 2001
If (prompt2 = "P1" Or prompt2 = "P") And _
search_prompt = "in" And ttt = "" Then
ttt = "PHOTO"
GoTo line_600
End If
If (prompt2 = "P1" Or prompt2 = "P") And _
UCase(ttt) = "A" Then
ttt = "PHOTO"
GoTo line_600
End If
If search_prompt = "in" And ttt = "" Then
ttt = Cmd(33) 'december 7 2000
' ttt = "D"
GoTo line_600
End If 'april 24/00
'default to day search on start

If UCase(ttt) = "A" Then GoTo line_600
If UCase(ttt) = "D" Then GoTo line_600
If UCase(ttt) = "M" Then GoTo line_600
' If ttt = "MM" Then GoTo line_600
' If ttt = "DD" Then GoTo line_600
'december 28 2000 If Len(ttt) = 1 Then ttt = "." 'force display old searches

'december 28 2000 comment out the logic below
'any 2 matching characters will do a paste function Ctrl/V
' If Len(ttt) = 2 And Left(ttt, 1) = Right(ttt, 1) Then
' ttt = Clipboard.GetText(vbCFText)
' Print ttt 'testing only
' End If
line_600:
' search_prompt = "D"
search_prompt = Cmd(33) 'december 7 2000

printed_cnt = 1 'may 10/00
printed = "NO"

TheSearch = ttt
'august 27/00
' If TheSearch <> "" Then
' GoSub Search_26000
' End If

If ttt = "-" Then
ttt = SAVE_SRCH + ""
End If 'use last search if - entered 15mar00
If ttt <> "" Then
If UCase(ttt) <> "A" Then
SAVE_SRCH = ttt + "" 'save search for reuse 15mar00
End If
'november 6 2000
If prompt2 = "Q" And SSS <> "D" Then
SAVE_SRCH = qqq + ""
End If 'october 23 2000
End If

SSS = UCase(ttt) 'Ensure all is upper case for search
'november 6 2000
'december 8 2000 If prompt2 = "Q" And SSS <> "D" Then
If prompt2 = "Q" And SSS <> "D" And uppercase = "N" Then
SSS = qqq 'no upper case in quickie search october 23 2000
End If
SAVE_SSS = SSS + ""
'check for tabs here later and make them 4 or 5 spaces
'20 August 2003 Cls 'june 27/99
cnt = 0
dblStart = Timer 'get the start time
hi_lites = "NO"
If SSS = "" Then
Close #OutFile 'june 27/99
II = DoEvents 'june 27/99
GoTo What_50
End If
'if D entered switch with current date ie 6/14/99 as the
' search string in the format 6/6/14/99
'06 December 2004 testing previous day.
'--------------------------------------------------
'date is as 12/6/2004 for December 06 2004 returned with time also
'this will not do a previous month ie if sitting on 01 good enought for now.
If SSS = "DX" Then
SSS = Format(Now, "ddddd ttttt") 'display today
temp1 = InStr(2, SSS, " ")
temptemp = Trim(Left(SSS, temp1))
II = InStr(temptemp, "/")
III = InStr(II + 1, temptemp, "/")
temptemp = Mid(temptemp, II + 1, III - II + 1)
temp1 = Val(temptemp) - 1 'the day is reduced by 1 here
If temp1 = 0 Then temp1 = 1 'do not worry about last month for now
temptemp = CStr(temp1)
temptemp = Left(SSS, II) + CStr(Val(temptemp)) + Right(SSS, Len(SSS) - III + 1)
SSS = temptemp
temp1 = InStr(2, SSS, " ") 'case it changes from 10 to 9 etc
' frmproj2.Caption = " 06 Dec 2004 testing=" + temptemp + "=" '06 December 2004
' new_delay_sec = 2 '06 December 2004 testing
' GoSub line_30300 '06 December 2004 testing
' SSS = " " + sep + " " + sep + Left(SSS, temp1 - 1)
'09 june 2002 SSS = "M" + sep + ":" + sep + Left(SSS, temp1 - 1) 'january 05 2001
SSS = "M" + sep + "M" + sep + "M" + sep + "M" + sep + ":" + sep + Left(SSS, temp1 - 1) 'january 05 2001
End If

'--------------------------------------------------
If SSS = "D" Then
SSS = Format(Now, "ddddd ttttt") 'display today
' frmproj2.Caption = " 06 Dec 2004 testing=" + SSS + "=" '06 December 2004
' new_delay_sec = 2 '06 December 2004 testing
' GoSub line_30300 '06 December 2004 testing
temp1 = InStr(2, SSS, " ")
' SSS = " " + sep + " " + sep + Left(SSS, temp1 - 1)
'09 june 2002 SSS = "M" + sep + ":" + sep + Left(SSS, temp1 - 1) 'january 05 2001
SSS = "M" + sep + "M" + sep + "M" + sep + "M" + sep + ":" + sep + Left(SSS, temp1 - 1) 'january 05 2001
End If

If SSS = "DD" Then
SSS = " " + sep + " " + sep + date_displayed 'day of last find
End If

If SSS = "M" Then
SSS = Format(Now, "ddddd ttttt") 'display this month
temp1 = InStr(2, SSS, "/") 'end of month
temp2 = InStr(2, SSS, " ") 'right after year
' temp3 = InStr(temp1 + 1, SSS, "/") 'start of year
' SSS = " " + sep + Mid(SSS, temp3 + 1, temp2 - temp3) + sep + " " + Left(SSS, temp1)
' sep99 sep 7/ for july
SSS1 = Left(SSS, temp1)
SSS2 = Mid(SSS, temp2 - 3, 4)
SSS3 = ""
SSS4 = "" '09 JUNE 2002
SSS5 = ""
SSS6 = ""

SSS = ""
KEEPS1 = SSS1 + ""
KEEPS2 = SSS2 + ""
KEEPS3 = SSS3 + ""
KEEPS4 = SSS4 + "" '09 june 2002
KEEPS5 = SSS5 + ""
KEEPS6 = SSS6 + ""

SAVE_KEEPS1 = KEEPS1 + ""
SAVE_KEEPS2 = KEEPS2 + ""
SAVE_KEEPS3 = KEEPS3 + ""
SAVE_KEEPS4 = KEEPS4 + "" '09 june 2002
SAVE_KEEPS5 = KEEPS5 + ""
SAVE_KEEPS6 = KEEPS6 + ""
inin = "M"
'maybe put the above changes in the MM below june 15/00
' Context = "yes"
' Print "testing="; SSS1; "*"; SSS2; "*"; SSS3; "*"
If debug_photo Then '12 october 2002
tt1 = InputBox("testing photo 4", , , 4400, 4500) 'TESTING ONLY
End If
GoTo input_990
End If

If SSS = "MM" Then 'month of last find
SSS = date_displayed
temp1 = InStr(2, SSS, "/") 'end of month
temp2 = InStr(2, SSS, " ") 'right after year
temp3 = InStr(temp1 + 1, SSS, "/") 'start of year
' SSS = " " + sep + Mid(SSS, temp3 + 1, temp2 - temp3) + sep + " " + Left(SSS, temp1)
' sep99 sep 7/ for july
SSS1 = Left(SSS, temp1)
SSS2 = Mid(SSS, temp2 - 3, 4)
SSS3 = ""
SSS4 = "" '09 JUNE 2002
SSS5 = ""
SSS6 = ""
SSS = ""
KEEPS1 = SSS1 + ""
KEEPS2 = SSS2 + ""
KEEPS3 = SSS3 + ""
KEEPS4 = SSS4 + "" '09 june 2002
KEEPS5 = SSS5 + ""
KEEPS6 = SSS6 + ""
SAVE_KEEPS1 = KEEPS1 + ""
SAVE_KEEPS2 = KEEPS2 + ""
SAVE_KEEPS3 = KEEPS3 + ""
SAVE_KEEPS4 = KEEPS4 + "" '09 june 2002
SAVE_KEEPS5 = KEEPS5 + ""
SAVE_KEEPS6 = KEEPS6 + ""
inin = "MM"
GoTo input_990
End If

Context = "no" 'june 26/99 what is with this line?
'june 26/99
If SSS = "-" Then
Context = "yes"
SSS = " " + sep + " " + sep + date_displayed
SAVE_KEEPS1 = KEEPS1 + "" 'ALLOW FOR CONTEXT HILITE
SAVE_KEEPS2 = KEEPS2 + "" 'june 26/99
SAVE_KEEPS3 = KEEPS3 + ""
SAVE_KEEPS4 = KEEPS4 + "" '09 june 2002
SAVE_KEEPS5 = KEEPS5 + ""
SAVE_KEEPS6 = KEEPS6 + ""
End If 'use date found from previous search to get
'all data entered that day

If SSS = "=" Then
Context = "yes"
SSS = date_displayed
temp1 = InStr(SSS, "/") 'end of month
temp2 = InStr(SSS, " ") 'right after year
temp3 = InStr(temp1 + 1, SSS, "/") 'start of year
SSS = " " + sep + Mid(SSS, temp3 + 1, temp2 - temp3) + sep + " " + Left(SSS, temp1)
' sep99 sep 7/ for july
SAVE_KEEPS1 = KEEPS1 + "" 'ALLOW FOR CONTEXT HILITE
SAVE_KEEPS2 = KEEPS2 + "" 'june 26/99
SAVE_KEEPS3 = KEEPS3 + ""
SAVE_KEEPS4 = KEEPS4 + ""
SAVE_KEEPS5 = KEEPS5 + ""
SAVE_KEEPS6 = KEEPS6 + ""
End If

'PARSE THE SSS STRING INTO PARTS SSS1 SSS2 SSS3 SSS4 SSS5 SSS6
line_700:
i = InStr(SSS, " ")
If i <> 0 Then
SSS = Left(SSS, i) + Mid(SSS, i + 2)
GoTo line_700
End If
i = InStr(SSS, sep)
SSS1 = SSS + ""
s1len = Len(SSS1)
inin = SSS + "" 'june 13/99

If i = 0 Then
GoTo input_990
End If
SSS1 = Left(SSS, i - 1)
s1len = Len(SSS1)
j = Len(SSS)
SSS = Right(SSS, j - i)

i = InStr(SSS, sep)
SSS2 = SSS
s2len = Len(SSS2)
' Print "testing="; SSS1; "*"; SSS2; "*"; SSS3; "*"
If debug_photo Then '12 october 2002
tt1 = InputBox("testing photo 5", , , 4400, 4500) 'TESTING ONLY
End If
'09 june 2002 add 3 more elements here
If i = 0 Then
GoTo input_990
End If
SSS2 = Left(SSS, i - 1)
s2len = Len(SSS2)
j = Len(SSS)
SSS = Right(SSS, j - i)

i = InStr(SSS, sep)
SSS3 = SSS
s3len = Len(SSS3)
'---------------------------------------------
If i = 0 Then
GoTo input_990
End If
SSS3 = Left(SSS, i - 1)
s3len = Len(SSS3)
j = Len(SSS)
SSS = Right(SSS, j - i)

i = InStr(SSS, sep)
SSS4 = SSS
s4len = Len(SSS4)
'========================================================
If i = 0 Then
GoTo input_990
End If
SSS4 = Left(SSS, i - 1)
s4len = Len(SSS4)
j = Len(SSS)
SSS = Right(SSS, j - i)

i = InStr(SSS, sep)
SSS5 = SSS
s5len = Len(SSS5)

'----------------------------------------------
If i = 0 Then
GoTo input_990
End If
SSS5 = Left(SSS, i - 1)
s5len = Len(SSS5)
j = Len(SSS)
SSS6 = Right(SSS, j - i)
s6len = Len(SSS6)

input_990:

If ss_only = "YES" And p2p2 = "SS" Then
ttt = "SS" + " " + SSS1 + " " + SSS2 + " " + SSS3 + " " + SSS4 + " " + SSS5 + " " + SSS6
ss_only = "NO"
GoTo auto_p2
End If '07 december 2002
tot_cnt = 0
GoSub line_14500 'check for imbedded spaces in search strings
'january 19 2001
'***********************************************
'Major input line for the sequential file read
'***********************************************

input_1000: 'INPUT HERE
save_line = "1000" 'for error handling
slomo = False '14 January 2004
slomo = True '31Dec2011 need this for the ability to interrupt ***vip*** maybe???
'14May2012
cont_str = "S" '14May2012 make it the default for each new set
motion_yn = "NO" '03 September 2004

If SAVE_ttt = "C" Then
Context_cnt = Context_cnt + 1 'aug 08/99
If Context_cnt > MAX_CNT Then
Context_cnt = 1
End If
Context_text(Context_cnt) = ccc + ""
End If 'aug 08/99 save last 10 lines at least

'the following code along with the form keypreview set to true
'should enable escape similar to ctrl/c on the vax
'endscript and keydown subroutines at the end also Dec 02/99
If zzz_cnt Mod 1000 = 0 Then
DoEvents
End If

If Escape Then
Escape = False
GoTo End_32000
End If
If Picture_Search = "YES" Then
Previous_line = ooo 'keep this to search for XXX.
End If 'march 31/00
'main input file read here

'*************************************************
'main input file data read ' * * * I N P U T * * * INPUT INPUT INPUT
'*************************************************
input_1000a:

Line Input #OutFile, aaa

'29Oct2012 If mixx = True Then
If mixx = True And rand <> True Then
If Left(UCase(aaa), 5) <> "PHOTO" Then
ss_search = "A"
mpg_file = "" 'change from no to blank
Picture_Search = "NO"
sscreen_saver_ww = "NO"
xxx_found = ""
interrupt_prompt2 = ""
inin = "A" 'tested and needed
p2p2 = "C"
ttt = "C"
text_pause = True '29Jul2012
'testing now Test2_str = "A"
sscreen_saver = "N" 'text will not show without this?
Else
Test1_str = "P1" '13Jul2012 this seems very important very important
p2p2 = "WW" '13Jul2012
Line_Search = "" '13Jul2012
sscreen_saver = "Y" '13Jul2012
ss_search = "photo"
'11Jul2012 test comment this out mpg_file = "YES"
Picture_Search = "YES"
sscreen_saver_ww = "YES"
xxx_found = ""
interrupt_prompt2 = ""
inin = "PHOTO" '13Jul2012
ttt = "SS"
' Test2_str = ""
sscreen_saver = "Y"
' frmproj2.Caption = program_info + " (cls #3)" '18Dec2013
Cls '12Nov2012
End If
End If '30Jun2012b
' If UCase(Left(aaa, 5)) = "PHOTO" Then
' frmproj2.Caption = App.EXEName + " 30Jun2012a -- aaa =" + aaa + " * " + ss_search + " * " + mpg_file + " * " + Picture_Search + " * " + sscreen_saver_ww + " * " + xxx_found
' ggg = InputBox(" 30Jun2012a (ss_search) (mpg_file) (picture_search) (sscreen_saver_ww) (xxx_found)", , , 4400, 4500) 'TESTING ONLY
' frmproj2.Caption = App.EXEName + " 30Jun2012aa -- " + p2p2 + " * " + Line_Search + " * " + sscreen_saver + " * " + inin + " * " + Test1_str
' ggg = InputBox(" 30Jun2012aa (p2p2) (line_search) (sscreen_saver) (inin) (Test1_str) ", , , 4400, 4500) 'TESTING ONLY
' If ggg = "x" Then GoTo End_32000 '30Jun2012
' End If '30Jun2012
'22Jun2012
'If Left(UCase(App.EXEName), 7) = "BIGTEXT" Then
' ooo = InputBox("", "data to display", , xx1 - ppoffset1, yy1 - ppoffset2) '
' If ooo = "" Then GoTo End_32000
' 'ooo = "test this Print and whatever else we need to do right here"
' aaa = ooo
' vvv = ooo
'End If '22Jun2012
' frmproj2.Caption = " testing=" + Left(aaa, 40) + "=" '26 November 2004
'20 November 2004 maybe the line below needs setting as I return here a lot... ***vip*** todo check out sometime
' save_line = "1000" 'for error handling 20 November 2004
' line_pos = 0 'november 22 2000 january 05 2001
zzz_cnt = zzz_cnt + 1
'29Oct2012
If rand_prog And mixx And rand <> True And Left(UCase(Trim(aaa)), 5) = "BREAK" Then rand = True '29Oct2012
' If rand Then frmproj2.Caption = "Watching randomizer rand_str=" + rand_str + " rnd=" + CStr(rand_no) + " " + CStr(zzz_cnt) + " break_num=" + CStr(break_num)
' xtemp = InputBox("12Nov2012b (need a random number here) break_num zzz_cnt " + CStr(break_num) + " " + CStr(zzz_cnt) + " " + Left(aaa, 10), , , 4400, 4500) 'TESTING ONLY
If rand Then
'27Aug2010 maybe save the last break line here? below is the first "BREAK" line before the match line
If Left(Cmd(81), 10) = "RAND_GROUP" And Left(UCase(Trim(aaa)), 5) = "BREAK" Then break_num = zzz_cnt '27Aug2010
'12May2012 test rand below testing randomizer testing randomizer
' frmproj2.Caption = "11Nov2012a testing randomizer rnd=" + CStr(rand_no) + " " + CStr(zzz_cnt) + " break_num=" + CStr(break_num) + " aaa=" + Left(aaa, 20)
' xtemp = InputBox(" 11Nov2012a testing doug randomizer rnd " + CStr(rand_no) + " " + CStr(zzz_cnt), "testing Prompt ", , xx1 - offset1, yy1 - offset2)
If zzz_cnt < rand_no Then GoTo input_1000a '18 august 2002
' frmproj2.Caption = "11Nov2012ab testing randomizer rnd=" + CStr(rand_no) + " " + CStr(zzz_cnt) + " break_num=" + CStr(break_num) + " aaa=" + Left(aaa, 20)
'03 August 2003 below is where to change the 2 to what ever the range is for random by group display
'ie if there are 6 videos in the group the number should be 12 or 13 below??? ***vip*** todo
'06 September 2004 if random and a text search just do random on first get then sequential
'12Nov2012 If p2p2 = "C" Or p2p2 = "S" Or p2p2 = "F" Then
If mixx <> True And (p2p2 = "C" Or p2p2 = "S" Or p2p2 = "F") Then
rand = False
GoTo input_1000a
End If '06 September 2004
' frmproj2.Caption = "11Nov2012ac testing randomizer rnd=" + CStr(rand_no) + " " + CStr(zzz_cnt) + " break_num=" + CStr(break_num) + " aaa=" + Left(aaa, 20)
'27Aug2010 skip out on the next break line after a match is found. so we need one at the end of the file Maybe?
'03Nov2012 does not seem to be generating another number here
'12Nov2012 change this logic If (Left(Cmd(81), 10) = "RAND_GROUP" And Left(UCase(Trim(aaa)), 5) = "BREAK") Or Left(Cmd(81), 10) <> "RAND_GROUP" Then '27Aug2010
If group_match = True And Left(UCase(Trim(aaa)), 5) <> "BREAK" And zzz_cnt < rand_no + 3 Then GoTo input_1000az '12Nov2012
frmproj2.Caption = "showing randomizer rnd=" + CStr(rand_no) + " " + CStr(zzz_cnt) + " break_num=" + CStr(break_num) + " aaa=" + Left(aaa, 20)
' If (Left(Cmd(81), 10) = "RAND_GROUP" And Left(UCase(Trim(aaa)), 5) <> "BREAK") And break_num <> 0 And group_match = True Then GoTo input_1000az '12Nov2012
'25Mar2014 maybe here
' If zzz_cnt > rand_no + 2 Then 'this may display 2 in a row but that is ok 27Aug2010 random group needs to look for next BREAK line
If zzz_cnt > rand_no + 2 And pauseyn <> "Y" Then '25Mar2014
'refresh, #outfile need to be able to reset the file at beginning
Close #OutFile
II = DoEvents
OutFile = FreeFile
Open TheFile For Input As #OutFile
II = DoEvents 'yield to operating system
'29Oct2012 watch randomizer here

rand_no = Int(rand_cnt * Rnd + 1) 'get a new random number
rand_str = "random#" + CStr(rand_no) '18Mar2012
frmproj2.Caption = "showing randomizer a rand_str=" + rand_str + " rnd=" + CStr(rand_no) + " " + CStr(zzz_cnt) + " break_num=" + CStr(break_num)
' xtemp = InputBox("12Nov2012b (need a random number here) break_num zzz_cnt " + CStr(break_num) + " " + CStr(zzz_cnt) + " " + Left(aaa, 10), , , 4400, 4500) 'TESTING ONLY
zzz_cnt = 0
break_num = 0 '27Aug2010 from 999999???
group_match = 0 '29Oct2012
GoTo input_1000a
End If
input_1000az: '12Nov2012
If Left(UCase(Trim(aaa)), 5) = "BREAK" Then GoTo input_1000a '14Nov2012 all this line is for is a BREAK was showing up
' frmproj2.Caption = "11Nov2012ae testing randomizer rnd=" + CStr(rand_no) + " zzz_cnt=" + CStr(zzz_cnt) + " break_num=" + CStr(break_num) + " aaa=" + Left(aaa, 20)
'12Nov2012 change this logic End If '27Aug2010 should keep going till "BREAK" found if "RAND_GROUP"
End If
'12May2012 test rand below
' frmproj2.Caption = "testing doug randomizer rnd #3 " + aaa + SSS1 + " " + CStr(rand_no) + " " + CStr(zzz_cnt)
' xtemp = InputBox("looking for match ( in 2 lines) break_num zzz_cnt " + CStr(break_num) + " " + CStr(zzz_cnt), , , 4400, 4500) 'TESTING ONLY
' If hi_lites <> "YES" Then line_match = "" 'november 21 2000
If encript = "MYSTUF" Then
GoSub line_29400
' If zzz_cnt Mod 10000 = 0 Then
' DoEvents
' Print "searching "; zzz_cnt
' End If
End If
If skip_info <> "" Then
If InStr(aaa, skip_info) <> 0 Then
GoTo input_1000a
End If
End If 'november 14 2000 this check takes 1/2 second on 190,000 records
'ie 9.67 to 10.20 in the quickie mode for the if skip_info <> "" 190,000 times
'12May2012 test rand below
' frmproj2.Caption = "testing doug randomizer rnd #4 " + aaa + " " + SSS1 + " " + CStr(rand_no) + " " + CStr(zzz_cnt)
' xtemp = InputBox(" 11Nov2012(match found *****) break_num zzz_cnt prompt2=" + prompt2 + CStr(break_num) + " " + CStr(zzz_cnt), , , 4400, 4500) 'TESTING ONLY
If prompt2 <> "Q" Then
GoTo input_1000b 'Quickie search fix
End If

' aaa = UCase(aaa) 'december 8 testing ucased timing
'info in testing the above line it took over 2 times as much
'time to do the search with just including the above statement'
'my outmail.txt search went from 14.45 seconds to 34.45 secs
If uppercase = "Y" Then
ooo = aaa + ""
aaa = UCase(aaa) 'december 8 2000
End If

If InStr(aaa, SSS1) = 0 Then
GoTo input_1000a
End If
If SSS2 = "" Then
GoTo input_1000aa
End If
If InStr(aaa, SSS2) = 0 Then
GoTo input_1000a
End If
If SSS3 = "" Then
GoTo input_1000aa
End If
If InStr(aaa, SSS3) = 0 Then
GoTo input_1000a
End If

'add in sss4 thru sss6 09 june 2002
If SSS4 = "" Then
GoTo input_1000aa
End If
If InStr(aaa, SSS4) = 0 Then
GoTo input_1000a
End If

If SSS5 = "" Then
GoTo input_1000aa
End If
If InStr(aaa, SSS5) = 0 Then
GoTo input_1000a
End If

If SSS6 = "" Then
GoTo input_1000aa
End If
If InStr(aaa, SSS6) = 0 Then
GoTo input_1000a
End If

' If InStr(aaa, qqq) = 0 Then
' GoTo input_1000a
' End If 'october 21 2000
input_1000aa:
If uppercase = "Y" Then aaa = ooo 'december 8 2000
previous_count = previous_count + 1 'october 22 2000
If previous_count > 100 Then
previous_count = 1
End If
previous_picture(previous_count) = zzz_cnt

input_1000b:
'12May2012 test rand below
'14May2012 aaa = UCase(aaa) '12May2012
' frmproj2.Caption = "testing 12May2012 randomizer rnd #5 " + aaa + " " + SSS1 + " " + CStr(rand_no) + " " + CStr(zzz_cnt)
' xtemp = InputBox(" (match found *****) break_num zzz_cnt prompt2=" + prompt2 + CStr(break_num) + " " + CStr(zzz_cnt), , , 4400, 4500) 'TESTING ONLY
'december 11 2000 the lines from here to input_1000bb
'december 15 2000 testing stuff below
'
' xtemp = InputBox(" 29Oct2012a(match found *****) break_num zzz_cnt prompt2=" + prompt2 + CStr(break_num) + " " + CStr(zzz_cnt) + " aaa=" + Left(aaa, 20), , , 4400, 4500) 'TESTING ONLY
'23Mar2014 might need a change here for fast forward where there is a pause in the search string
If pauseyn = "Y" And rand And UCase(Left(Cmd(81), 10)) = "RAND_GROUP" Then group_match = True '23Mar2014
If mixx And rand And UCase(Left(Cmd(81), 10)) = "RAND_GROUP" Then group_match = True '29Oct2012
If show_files_yn Then '24 december 2002
' xtemp = InputBox("DOUG " + show_files+" "+aaa, , , 4400, 4500) 'TESTING ONLY
II = InStr(aaa, " append start") 'other appends have -append start
If II <> 0 Then
show_files = Left(aaa, II - 1)
End If
End If '24 december 2002

xtemp = ""
' xtemp = "test="
If xtemp <> "" Then
III = Len(aaa) 'december 17 2000
If III > 10 Then III = 10
For II = 1 To III
xtemp = xtemp + CStr(Asc(Mid(aaa, II, 1))) + " "
Next II
aaa = aaa + xtemp + CStr(Len(aaa))
End If 'end of test section

If emailsea <> "Y" Then GoTo line_1001
If Right(aaa, 3) = "=20" Then
aaa = Left(aaa, Len(aaa) - 3)
End If 'december 18 2000 whatever the deal is with the "-20 " get rid of it
'december 17 2000 if more than 1 ascii value < 10 then mbx start of new mail message
If mbxyes <> "Y" Then GoTo nombx1000 'december 17 2000
If Len(aaa) = 0 And mbxi = 0 Then GoTo input_1000a 'december 18 2000
If mbxi = 0 Then III = InStr(aaa, "From:") 'december 17 2000
If mbxi = 0 And III <> 0 Then
aaa = Right(aaa, Len(aaa) - III + 1)
dateskip = "" 'december 19 20002
mbxi = 1
End If

If mbxi = 0 Then GoTo input_1000a 'december 18 2000

nombx1000:

'december 15 2000 added and in test mode
If InStr(aaa, "Reply-To") <> 0 And mbxyes = "Y" Then
dateskip = ""
boundarystr = ""
boundarycnt = 0
aaa = "========================= email start ========================="
GoTo input_1000bb 'need to print the seperator above
End If
If InStr(aaa, "Return-Path") <> 0 Then
GoTo input_1000a
End If 'december 20 2000
If InStr(aaa, "Return-Path") <> 0 Then
dateskip = ""
boundarystr = ""
boundarycnt = 0
aaa = "========================= email start ========================="
GoTo input_1000bb 'need to print the seperator above
End If
If InStr(aaa, "From - ") <> 0 Then
dateskip = "Y"
boundarystr = ""
boundarycnt = 0
aaa = "========================= email start ========================="
GoTo input_1000bb 'need to print the seperator above
End If
If InStr(aaa, "From ????") <> 0 Then
dateskip = "Y"
boundarystr = ""
boundarycnt = 0
aaa = "========================= email start ========================="
GoTo input_1000bb 'need to print the seperator above
End If
If dateskip = "F" Then
dateskip = "Y"
boundarystr = ""
boundarycnt = 0
aaa = "========================= email start ========================="
GoTo input_1000bb 'need to print the seperator above
End If
If InStr(aaa, "Date: ") <> 0 And dateskip = "Y" Then
dateskip = ""
GoTo input_1000bb
End If
If InStr(aaa, "From: ") <> 0 And dateskip = "Y" Then
dateskip = ""
GoTo input_1000bb
End If
If dateskip = "Y" Then GoTo input_1000a 'december 12 2000
If InStr(aaa, "Reply-To") <> 0 Then GoTo input_1000a
If InStr(aaa, "To: ") <> 0 Then GoTo input_1000bb
If InStr(aaa, "Subject: ") <> 0 Then GoTo input_1000bb
' If InStr(aaa, "boundary=") <> 0 Then february 28 2001
If InStr(aaa, "boundary=""") <> 0 Then
III = InStr(aaa, "boundary=")
II = InStr(III + 10, aaa, """") 'quote mark search double quote
boundarystr = Mid(aaa, III + 10, II - III - 10)
boundarycnt = 0 'december 18 2000
' tt1 = InputBox(boundarystr + " " + CStr(boundarycnt), , , 4400, 4500) 'TESTING ONLY
GoTo input_1000a
End If
If Len(boundarystr) > 2 And InStr(aaa, boundarystr) <> 0 Then
boundarycnt = boundarycnt + 1
GoTo input_1000a
End If
If boundarycnt = 0 And Len(boundarystr) > 2 Then GoTo input_1000a
If boundarycnt > 1 Then GoTo input_1000a
'december 30 2000 skip a few of the odd characters that linger
If mbxyes = "Y" And Len(aaa) < 6 Then
III = Len(aaa) 'december 17 2000
For II = 1 To III
If Asc(Mid(aaa, II, 1)) > 126 Then GoTo input_1000a
If Asc(Mid(aaa, II, 1)) < 9 Then GoTo input_1000a
Next II
End If 'december 30 2000 end of code

input_1000bb:
If InStr(aaa, "= email start =") <> 0 Then tot_s1 = tot_s1 + 1 'january 28 2001
If InStr(aaa, "Errors-to:") <> 0 Then GoTo input_1000a
If InStr(aaa, "Mime-Version:") <> 0 Then GoTo input_1000a
If InStr(aaa, "Reply-to:") <> 0 Then GoTo input_1000a
If InStr(aaa, "User-Agent:") <> 0 Then GoTo input_1000a
If InStr(aaa, "X-Accept-Language:") <> 0 Then GoTo input_1000a
If InStr(aaa, "Importance:") <> 0 Then GoTo input_1000a
If InStr(aaa, "X-Mozilla") <> 0 Then GoTo input_1000a
If InStr(aaa, "References:") <> 0 Then GoTo input_1000a
If InStr(aaa, "X-Mailer:") <> 0 Then GoTo input_1000a
If InStr(aaa, "X-MSMail-") <> 0 Then GoTo input_1000a
If InStr(aaa, "X-MimeOLE") <> 0 Then GoTo input_1000a
If InStr(aaa, "X-Priority:") <> 0 Then GoTo input_1000a
If InStr(aaa, "MIME-V") <> 0 Then GoTo input_1000a
If InStr(aaa, "MIME format.") <> 0 Then GoTo input_1000a
If InStr(aaa, "Message-ID") <> 0 Then GoTo input_1000a
If InStr(aaa, "Message-Id: ") <> 0 Then GoTo input_1000a
If InStr(aaa, "Content-T") <> 0 Then GoTo input_1000a
If InStr(aaa, "charset=") <> 0 Then GoTo input_1000a
'the characters "photo" must exist for this to match up
line_1001: 'december 25/2000
If Picture_Search = "YES" Then '
If InStr(UCase(aaa), "PHOTO") = 0 Then
'don't skip if search is for XXX.
ooo = aaa + ""
GoTo input_1000
End If
End If 'march 31/00
'25 July 2003 If temp_sec <> -1 And temp_sec <> delay_sec Then
If temp_sec <> 0 And temp_sec <> -1 And temp_sec <> delay_sec Then
delay_sec = temp_sec
' If delay_sec < 0.3 Then
' tt1 = InputBox("testing=" + Format(delay_sec, "###0.000") + "=", , , 4400, 4500) 'TESTING ONLY
' End If '25 July 2003
End If 'march 14 2001
If Picture_Search = "YES" Then 'start of picture if statement----------------------------------------------
mpg_file = "NO" '06Apr2012
III = InStr(UCase(aaa), " WAIT=")
line_delay_sec = 0 '19 July 2003 Ver=1.07T
'22 september 2003 If III <> 0 Then
' If III = 0 And thumb_nail <> "YES" Then 21Jan2012 deactivate this for now and in future only use it for my laptop maybe
If III = 99 And thumb_nail <> "YES" Then
aaa = aaa + " WAIT=6.5 " + CStr(video_length) '19Jan2012 Maybe need to set this real low and when it starts move it to a much larger number
III = InStr(UCase(aaa), " WAIT=") 'as long as the time is less than the video length it will start ok
End If '19Jan2012 force the wait it seems to work on my laptop with wait
If III <> 0 And thumb_nail <> "YES" Then
temp_sec = delay_sec
II = InStr(III + 5, aaa + " ", " ") 'make sure there is a trailing space here
xtemp = Mid(aaa, III + 6, II - III - 6)
' tt1 = InputBox("testing=" + xtemp + "=", , , 4400, 4500) 'TESTING ONLY 08Nov2011doug
delay_sec = Val(xtemp)
line_delay_sec = delay_sec '19 July 2003 Ver=1.07T
End If
keep_line_delay_sec = line_delay_sec '08Nov2011
'16 November 2003

III = InStr(UCase(aaa), " COLOR=") '29Sep2016
If III = 0 Then GoTo line_1001a '29Sep2016
If Mid(UCase(aaa), III + 7, 3) = "BLA" Then Def_Fore = 0 'BLACK
If Mid(UCase(aaa), III + 7, 3) = "NAV" Then Def_Fore = 1 'NAVY BLUE
If Mid(UCase(aaa), III + 7, 3) = "GRE" Then Def_Fore = 2 'GREEN
If Mid(UCase(aaa), III + 7, 3) = "AQU" Then Def_Fore = 3 'AQUA
If Mid(UCase(aaa), III + 7, 3) = "BRO" Then Def_Fore = 4 'BROWN
If Mid(UCase(aaa), III + 7, 3) = "PUR" Then Def_Fore = 5 'PURPLE
If Mid(UCase(aaa), III + 7, 3) = "LIM" Then Def_Fore = 6 'LIME GREEN
If Mid(UCase(aaa), III + 7, 3) = "GRE" Then Def_Fore = 7 'GREY
If Mid(UCase(aaa), III + 7, 3) = "DAR" Then Def_Fore = 8 'DARK GREY
If Mid(UCase(aaa), III + 7, 3) = "BLU" Then Def_Fore = 9 'BLUE BRIGHT
If Mid(UCase(aaa), III + 7, 3) = "LGB" Then Def_Fore = 10 'LIME GREEN BRIGHT
If Mid(UCase(aaa), III + 7, 2) = "PB" Then Def_Fore = 11 'PALE BLUE
If Mid(UCase(aaa), III + 7, 3) = "RED" Then Def_Fore = 12 'RED
If Mid(UCase(aaa), III + 7, 3) = "PIN" Then Def_Fore = 13 'PINK
If Mid(UCase(aaa), III + 7, 3) = "YEL" Then Def_Fore = 14 'YELLOW
If Mid(UCase(aaa), III + 7, 3) = "WHI" Then Def_Fore = 15 'WHITE
Hold_Fore = Def_Fore '12Feb2017

line_1001a: '29Sep2016

III = InStr(UCase(aaa), " SPEED=")
line_speed = 1000
play_speed = line_speed '13 May 2004 (see other setting too) 28Apr2010 reactivating this line fixed the slow motion on non applicable ones
If III <> 0 Then
' temp_sec = delay_sec
II = InStr(III + 6, aaa + " ", " ") 'make sure there is a trailing space here
xtemp = Mid(aaa, III + 7, II - III - 7)
' tt1 = InputBox("testing=" + xtemp + "=", , , 4400, 4500) 'TESTING ONLY
line_speed = Val(xtemp)
play_speed = line_speed
End If '16 November 2003
keep_play_speed = play_speed '08Nov2011
' keep_slomo = False '14Nov2011
If keep_play_speed <> 1000 Then keep_slomo = True '08Nov2011??
slomo = True '31Dec2011 somehow speed makes a big difference in the again stuff???
'25Dec2011 also see the replay_yn logic how does that work
'24 September 2003 add the line_freeze_sec stuff
III = InStr(UCase(aaa), " FREEZE=")
Line_freeze_sec = 0
If III <> 0 Then
temp_sec = delay_sec
II = InStr(III + 7, aaa + " ", " ") 'make sure there is a trailing space here
xtemp = Mid(aaa, III + 8, II - III - 8)
' tt1 = InputBox("testing=" + xtemp + "=", , , 4400, 4500) 'TESTING ONLY
Line_freeze_sec = Val(xtemp)
End If

'24 September 2003 end of line_freeze_sec stuff

'22 March 2004 line_start_point = 0 '19 July 2003 Ver=1.07T
If thumb_nail <> "YES" Then line_start_point = 0 '22 March 2004
If thumb_nail <> "YES" Then line_start_point = 10 '11 March 2007
III = InStr(UCase(aaa), " START==") '19 July 2003 Ver=1.07T
line_start_point = 10 '28Dec2011
' If keep_line_start_point <> 0 Then line_start_point = keep_line_start_point '25Dec2011
If III <> 0 Then
II = InStr(III + 7, aaa + " ", " ") 'make sure there is a trailing space here
xtemp = Mid(aaa, III + 8, II - III - 8)
'02Nov2011 line_start_point = Val(xtemp)
line_start_point = Val(xtemp) + (OffSet * 1000) '02Nov2011
If line_start_point < 0 Then line_start_point = 10 '02Nov2011
' testing = "mpg_file11.6=" + mpg_file + " " + CStr(line_start_point) + " " + Left(mssg, 10) + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
End If
keep_line_start_point = line_start_point '28Dec2011 this is important placement???
' testtest = resume_str + "mpg_file=" + mpg_file + " picture_search=" + Picture_Search + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " picture_search=" + Picture_Search + " line_start_point=" + CStr(line_start_point) + " begin_point=" + CStr(begin_point) + " keep_line_start_point=" + CStr(keep_line_start_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " delay_sec=" + CStr(delay_sec) + " " '08Nov2011 teststring
' Test2_str = InputBox("E or X to Stop -- Enter . to rewind video (a) for all " + testtest, "Interrupt Prompt # 0 " + CStr(dsp_cnt) + " " + save_line, , xx1, yy1) '24 February 2004
' Test2_str = InputBox("testing keep_line_start_point only " + testtest, "Interrupt Prompt # 0 " + CStr(dsp_cnt) + " " + save_line, , xx1, yy1) '24 February 2004
' begin = "" '15Sep2011
begin = "NO" '25Dec2011
' begin_point = 0 '08Nov2011
begin_point = line_start_point '16Dec2011 moved from below 28Dec2011
III = InStr(UCase(aaa), " BEGIN") '15Sep2011
If III > 0 Then
begin = "YES" '15Sep2011
begin_point = 10 '20Sep2011 & 08Nov2011? change from 0 to 10
End If
III = InStr(UCase(aaa), " BEGIN==") '20Sep2011
If III <> 0 Then
II = InStr(III + 7, aaa + " ", " ") 'make sure there is a trailing space here
xtemp = Mid(aaa, III + 8, II - III - 8)
'02Nov2011 begin_point = Val(xtemp)
begin_point = Val(xtemp) + (OffSet * 1000) '02Nov2011
End If '20Sep2011
If begin_point < 0 Then
begin_point = line_start_point + begin_point '27Sep2011
If begin_point < 0 Then begin_point = 10 '27Sep2011
End If '27Sep2011
If altt Then '12Aug2012
III = InStr(UCase(aaa), " ALT==") '12Aug2012
If III <> 0 Then
II = InStr(III + 5, aaa + " ", " ") 'make sure there is a trailing space here
xtemp = Mid(aaa, III + 6, II - III - 6)
alt_amt = Val(xtemp) + (OffSet * 1000) '12Aug2012
begin_point = begin_point + alt_amt '12Aug2012
keep_line_start_point = keep_line_start_point + alt_amt '12Aug2012
line_start_point = line_start_point + alt_amt '12Aug2012
End If '12Aug2012
End If '12Aug2012
'30Jan2012
' testtest = "delay_sec=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testtest = InputBox("check delay_sec info " + testtest, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
' If line_start_point = 10 And begin = "NO" And delay_sec = 0 Then
'19Jan2012 The logic below makes it run a 2nd time when there is no timing controls it is needed....
' for some reason my PC works fine now with this logic for the "G" stuff but not my laptop thus the changes for today???
' hopefully they will solve the problem on the laptop. If I hit enter at the right time the laptop version works????
' also if there is a "wait=" in the control file my laptop works so I will try forcing that if thumb_nail <> "YES" and mpg_file = "YES"
' If thumb_nail <> "YES" And mpg_file = "YES" And begin = "NOoo" And line_start_point = 10 Then
'III = InStr(UCase(aaa), " WAIT=")
' III = 0 'force it for now
' line_delay_sec = 0
' Beep 'just to let me know
' If III = 0 Then
' temp_sec = delay_sec
' delay_sec = 1111
' line_delay_sec = delay_sec
' keep_line_delay_sec = line_delay_sec
' End If
' End If '19Jan2012 first stab at trying to get by without wait= for my laptop
'09Feb2012 If line_start_point = 10 And begin = "NO" And delay_sec = Val(Cmd(27)) Then
'needed to add the mpg_file stuff below because ww for pictures was getting the huge delay values of 11111
If line_start_point = 10 And begin = "NO" And delay_sec = Val(Cmd(27)) And mpg_file = "YES" Then
DoEvents
DoEvents
begin = "YES"
begin_point = 10
' line_start_point = 10
' keep_line_start_point = 10
' play_speed = 777
' keep_play_speed = 777
keep_begin = begin
keep_begin_point = begin_point
'16Jan2012 and check above for line_delay_sec delay_sec = 10000
'17Jan2012
' frmproj2.Caption = "(Finding Video length)"
'i = mciSendString("status video1 length wait", mssg, 255, 0)
' DoEvents
'temp3 = InStr(mssg, Chr$(0))
' video_length = Val(Left(mssg, temp3 - 1))
'17Jan2012 maybe the file isn't opened yet
' testtest = "delay_sec=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testtest = InputBox("check delay_sec info " + testtest, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001

' delay_sec = video_length / 1000 '16Jan2012 this might need to change...
'09Feb2012 the delay_sec below was causing a problem till i checked mpg_file above
delay_sec = 11111 ' 17Jan2012 if no begin and no start play the full video on "G" entry
line_delay_sec = delay_sec
keep_line_delay_sec = delay_sec
new_delay_sec = delay_sec
slomo = True
keep_slomo = True
End If '12Jan2012 when no start or begin set begin point
keep_begin_point = begin_point '08Nov2011
keep_begin = begin '08Nov2011?
' keep_line_start_point = begin_point '08Nov2011
resume_str = "" '25Sep2011
III = InStr(UCase(aaa), " RESUME") '25Sep2011
If III > 0 Then resume_str = "YES" '25Sep2011
keep_resume_str = resume_str '08Nov2011
again_str = "" '08Nov2011
III = InStr(UCase(aaa), " AGAIN") '08Nov2011
If III > 0 Then again_str = "YES" '08Nov2011

linebudgeyn = False '17Dec2017
totbud = 0 '06Jan2018
smlbud = Val(Cmd(85)) '17Dec2017
III = InStr(UCase(aaa), "SMLBUD") '17DEC2017
' frmproj2.Caption = LCase(temptemp) + " linebudge***** " + budge_str + " " + tempdata + " of " + CStr(video_length) '06Jan2018
' temptemp = InputBox("11a January 2018 test ", aaa + " budge " + CStr(JJ) + " " + CStr(III) + " ", , xx1 - 5000, yy1 - 5000) '07Jan2018
If III = 0 Then
GoTo line_1001b '11Jan2018
End If
linebudgeyn = True '17Dec2017
' frmproj2.Caption = LCase(temptemp) + " linebudge********* " + budge_str + " " + tempdata + " of " + CStr(video_length) '06Jan2018
' temptemp = InputBox("11b January 2018 test ", aaa + " budge " + CStr(JJ) + " " + CStr(III) + " ", , xx1 - 5000, yy1 - 5000) '07Jan2018
JJ = InStr(III + 6, aaa, " ")
If JJ = 0 Then GoTo line_1001b
If JJ > III + 6 Then smlbud = Val(Mid(aaa, III + 6, JJ - III + 6)) '17Dec2017
If smlbud = 0 And linebudgeyn = True Then smlbud = 2 'budge with no budge amount crazy
If linebudgeyn = True Then budge_str = "YES" '17Dec2017

line_1001b:
'2018
save_line = "1001b" 'for error handling
III = InStr(UCase(aaa), "BIGBUD") '17DEC2017
If III = 0 Then GoTo line_1001c
linebudgeyn = True '17Dec2017
JJ = InStr(III + 6, aaa, " ")
If JJ = III + 6 Then GoTo line_1001c
If JJ > III + 6 Then bigbud = Val(Mid(aaa, III + 6, JJ - III + 6)) '17Dec2017
If bigbud = 0 And linebudgeyn = True Then bigbud = 300 'budge with no budge amount crazy
budge_str = "" '17Dec2017
If linebudgeyn = True Then budge_str = "YES" '17Dec2017

line_1001c:
continueyn = "N" '28Jan2012
III = InStr(UCase(aaa), " CONTINUE") '28Jan2012
If III > 0 Then continueyn = "Y" '28Jan2012
pauseyn = "N" '28Jan2012
III = InStr(UCase(aaa), " PAUSE") '28Jan2012
If III > 0 Then pauseyn = "Y" '28Jan2012
hold_pauseyn = pauseyn '25Mar2012
' If again_str = "YES" Then slomo = False '14Nov2011
'for the AGAIN stuff to work for fts objects the speed can only be less than 1000 ie 999 till this is fixed???
'it works for speed=200 or such but not 1000 need to eventually fix this but for now 999 is good enough
End If 'march 14 2001 end of picture if statement---------------------------------------------

'replace any tabs with 4 spaces right here
save_line = "1002" 'for error handling
line_1002:
'07 november 2002 comment out the do_tab below for now
' If do_tab Then '05 october 2002 (no spaces in search string)
tt = InStr(aaa, Chr(9)) 'check for tabs
If tt = 0 Then
GoTo line_1008
End If
'change any tabs to 4 spaces
aaa = Left(aaa, tt - 1) + " " + Mid(aaa, tt + 1)
GoTo line_1002
'07 november 2002 End If '05 october 2002
line_1008:
tt = InStr(aaa, Chr(10)) 'check for line feed january 22 2001
If tt = 0 Then
GoTo line_1008d
End If
'change any line feeds to nothings
aaa = Left(aaa, tt - 1) + " " + Mid(aaa, tt + 1)
ooo = Left(ooo, tt - 1) + " " + Mid(ooo, tt + 1)
GoTo line_1008
line_1008d:
ooo = aaa + "" 'save the original chr upper/lower
'original input line saved
save_line = "1008" 'for error handling
' If Len(aaa) > zzz_len Then
' zzz_len = Len(aaa)
' long_line = Left(aaa, 20) ' maybe fix it in editor?
' End If

zzz_chrs = zzz_chrs + Len(ooo) + 2 'the cr/lf characters.
If printed <> "YES" And printed_cnt Mod MAX_CNT * 10000 = 0 Then
Cls
End If 'may 10/00
If printed <> "YES" And printed_cnt Mod 10000 = 0 Then
DoEvents 'december 06 2001
Print "reading "; zzz_cnt
End If 'may 10/00

printed_cnt = printed_cnt + 1 'may 10/00 ********************************
old_line = " " + aaa + " " '25 March 2003 part of version ver=1.02b
If uppercase = "Y" Or sscreen_saver = "Y" Then
aaa = " " + UCase(aaa) + " "
Else
aaa = " " + aaa + " "
End If '01 october 2002 no need to to put uppercase if all numeric

ooo = " " + ooo + " " 'just to match with aaa
'december 8 2000 If prompt2 = "Q" Then
If prompt2 = "Q" And uppercase = "N" Then
aaa = ooo + ""
End If 'no upper case switch for quicky search
lll = aaa + "" 'used to show where "P1" matched on in e to exit prompt
ccc = ooo + "" 'aug 08/99

'no show logic

'might want to have the logic for no-show changed here somewhat
'ie if anything other that P1 or P then the noshow elements should
'be cleared (ie count set to 0) etc if "no-show" not the first element
'this would allow for the replacement of the skip and the complete removal
'in the text display of anything that shouldn't be shown
'these notes were done december 30 2000
'may want the no-show words replaced with "******" so the search will fail
'todo **vip** at some point in time this is censorship???
' If prompt2 <> "P1" And prompt2 <> "P" Then GoTo line_1009_a 'december 25 2000
If extract_yes = "YES" Then GoTo line_1009_a 'january 03 2001
If encript <> "" Then GoTo line_1009_a 'january 03 2001
' tt1 = InputBox("doshow logic " + aaa, , , 4400, 4500) 'TESTING ONLY
If InStr(aaa, "DOSHOW") <> 0 Then GoTo line_1009_a '18 August 2003
For II = 1 To nocount
' If zzz_cnt > 80 Then
' Print "noshow(a)="; "*"; zzz_cnt; "*"; noshow(II); "*"; prompt2; "*"; aaa; nocount
' this one can go on and on so allow for an exit here if bad entry
If debug_photo Then '12 october 2002
tt1 = InputBox("testing photo 6", , , 4400, 4500) 'TESTING ONLY
If Len(tt1) > 0 Then debug_photo = False 'allow for an out here
End If
' End If 'testing only january 27 2001
If Len(noshow(II)) < 1 Then
GoTo line_1009
End If
If (prompt2 = "P1" Or prompt2 = "P") And InStr(aaa, noshow(II)) <> 0 Then
GoTo input_1000 'skip if noshow found in line
End If
If prompt2 = "SS" And InStr(aaa, noshow(II)) <> 0 Then
GoTo input_1000 'skip if noshow in screen saver also january 27 2001
End If
tt = 1 'january 04 2001
'the following keeps these words from showing in text display??
line_1008m:
III = InStr(tt, aaa, noshow(II)) 'january 03 2001
If III = 0 Then GoTo line_1009 'january 03 2001
tt = III + 1
JJ = Len(noshow(II)) 'january 03 2001
ooo = Left(ooo, III - 1) + String(JJ, "*") + Mid(ooo, III + JJ) 'january 03 2001
GoTo line_1008m
'the mid statement without the length works the same as the vax basic right statement vms stuff

line_1009:
Next II
line_1009_a: 'december 25 2000
'screensaver logic
' Print "screensave(?)="; "*"; screensave(1); "*"; aaa; "1"; sscreen_saver; prompt2
' Print "screensave(?)="; "*"; screensave(screencount); "*"; aaa; screencount; sscreen_saver; prompt2
' Print sscreen_saver
' tt1 = InputBox("testing screen saver logic", , , 4400, 4500) 'TESTING ONLY
' If tt1 = "X" Or tt1 = "x" Then
' GoTo End_32000
' End If 'testing only

'if no screen saver jump around this logic
'28 APRIL 2002 If sscreen_saver <> "Y" Then GoTo line_1009b
If sscreen_saver <> "Y" Or sscreen_saver_ww = "YES" Then GoTo line_1009b

For II = 1 To screencount
If Len(screensave(II)) < 1 Then
GoTo input_1000
End If

If InStr(aaa, screensave(II)) <> 0 Then
SSS1 = screensave(II)
' inactive ss_search = "PHOTO"
ss_search = screensave(II)
' Print "inlogic="; "*"; screensave(screencount); "*"; aaa; screencount; sscreen_saver; prompt2
' tt1 = InputBox("testing screen saver logic", , , 4400, 4500) 'TESTING ONLY

GoTo display_all_2000 'show if screensave found in line
End If
line_1009a:

Next II
GoTo input_1000 'october 24 2000 screen saver fix

line_1009b:

If inin = "A" Or inin = "ALL" Then
GoTo display_all_2000
End If

'on flash display to screen
If SAVE_ttt = "F" Then
GoTo display_all_2000
End If

If SAVE_ttt = "C" And hi_lites = "YES" Then
GoTo display_all_2000 'aug 08/99
End If

If inin = "M" Or inin = "MM" Then
If Left(aaa, Len(SSS1) + 1) <> " " + SSS1 Then
GoTo input_1000
End If
End If

line_match = "Y" 'november 21 2000
'if the input strings match this will remain
'otherwise it is reset at the input line

If InStr(aaa, SSS1) <> 0 Then
GoTo line_1010
End If
line_match = "" 'november 21 2000
GoTo input_1000

line_1010:
save_line = "1010" 'for error handling
If SSS2 = "" Then
GoTo display_all_2000
End If
If InStr(aaa, SSS2) <> 0 Then
GoTo line_1020
End If
line_match = "" 'november 21 2000
GoTo input_1000
line_1020:
save_line = "1020" 'for error handling
If SSS3 = "" Then
GoTo display_all_2000
End If
If InStr(aaa, SSS3) <> 0 Then
'09 june 2002 GoTo display_all_2000
GoTo line_1030
End If
line_match = "" 'november 21 2000
GoTo input_1000
line_1030:
If SSS4 = "" Then
GoTo display_all_2000
End If
If InStr(aaa, SSS4) <> 0 Then
GoTo line_1040
End If
line_match = "" 'november 21 2000
GoTo input_1000
'midway1 thru the program appx'==================================================================================

line_1040:
If SSS5 = "" Then
GoTo display_all_2000
End If
If InStr(aaa, SSS5) <> 0 Then
GoTo line_1050
End If
line_match = "" 'november 21 2000
GoTo input_1000
line_1050:
If SSS6 = "" Then
GoTo display_all_2000
End If
If InStr(aaa, SSS6) <> 0 Then
GoTo display_all_2000
End If

'---------------------------------------------
line_match = "" 'november 21 2000
GoTo input_1000

'match found now do the hi-light here print print print
display_all_2000:
' xtemp = InputBox(" 11Nov2012a(match found *****) break_num zzz_cnt prompt2=" + prompt2 + " " + CStr(break_num) + " " + rand_str + " cnt=" + CStr(zzz_cnt) + " " + Left(aaa, 10), , , 4400, 4500) 'TESTING ONLY
' xtemp = InputBox("testing#4cc Match 29Oct2012 rand=" + CStr(rand) + " break_num=" + CStr(break_num) + " group_match=" + CStr(group_match) + " rand_no=" + CStr(rand_no) + " zzz_cnt=" + CStr(zzz_cnt) + " rand_prog=" + CStr(rand_prog) + " aaa=" + Left(aaa, 10), , , 4400, 4500) 'TESTING ONLY
If mixx = True And rand <> True And (UCase(Left(aaa, 5)) = " PHOT" Or UCase(Left(aaa, 5)) = " XXX.") Then 'this was for testing and showing print
' frmproj2.Caption = "30Jun2012x -- aaa =" + aaa + " * " + ss_search + " * " + mpg_file + " * " + Picture_Search + " * " + sscreen_saver_ww + " * " + xxx_found
' ggg = InputBox(" 30Jun2012x ss_search mpg_file picture_search sscreen_saver_ww xxx_found", , , 4400, 4500) 'TESTING ONLY
' If ggg = "x" Then GoTo End_32000 '30Jun2012
GoTo line_2130 ''29Jul2012
' GoTo Photo_continue_prompt '29Jul2012 testing this now
End If
'03Nov2012 the if below
If Left(UCase(Cmd(77)), 5) <> "CHARA" And mixx And rand <> True Then '**note** do not override what they have if not noCHARA
' xtemp = InputBox(" 29Oct2012 input prompt #2 mixx= " + CStr(mixx) + "*", " testing Prompt #2 ", , xx1 - offset1, yy1 - offset2)
MAX_CNT = 10 'lines per screen cmd(1)
Font.Size = 48 'font size cmd(2) 48 point size
BackColor = 0 'black background cmd(3)
'12Feb2017 Def_Fore = 15 'white text cmd(4)
Cmd(5) = 14 'hi-lite color yellow
' ForeColor = QBColor(Def_Fore)
'Cmd(21) = 26
line_len = 260 'cmd(21) make line length long.. all formatting done by user
Cmd(31) = ":" 'the highlite this element
hilite_this = ":" 'cmd(31)
Context_lines = 0 'cmd(22)
rand = 0 '24Jun2012
Cmd(76) = "LINEPAUSE==0.15"
Cmd(77) = "CHARACTERPAUSE==.0333"
Cmd(80) = "PROMPTDETAILS"
'22Jun2012
frmproj2.Caption = program_info + " (cls #4)" '18Dec2013
If Not mixx Then Set Picture = LoadPicture() '12Feb2017
' Set Picture = LoadPicture() '18Dec2013
Set Image1.Picture = LoadPicture(Pict_file) '20Dec2013
' Picture2.Picture = Picture1.Picture '18dec2013 test
'18Dec2013 Cls '12Nov2012
'frmproj2.AutoRedraw = True
End If 'ie they have their own settings no need to override
'27Aug2010 reset the file start point to where the last "break" record + 1
'do this only once ie 999999 once a match is found and in random group mode set the file search point to the value in temp1
If break_num < zzz_cnt And rand And Left(Cmd(81), 10) = "RAND_GROUP" Then
Close #OutFile
II = DoEvents
OutFile = FreeFile
Open TheFile For Input As #OutFile
II = DoEvents 'yield to operating system
zzz_cnt = 0 'just past the first break record
display_all_2001:
Line Input #OutFile, aaa
zzz_cnt = zzz_cnt + 1
If zzz_cnt < break_num Then GoTo display_all_2001
break_num = 999999
rand_no = zzz_cnt 'force new rand start to this break_num line
'11Nov2012 rand_str = "random#" + CStr(rand_no) '18Mar2012
' xtemp = InputBox("29Oct2012 (match reset start) break_num zzz_cnt " + CStr(break_num) + " " + CStr(zzz_cnt), , , 4400, 4500) 'TESTING ONLY
If mixx = True Then rand = 0 '29Oct2012 switch this back when break found
GoTo input_1000a 'When first match found and in random group reset the input file and go look for match sequentially
End If
' xtemp = InputBox("t27Aug2010 (match continuing) break_num zzz_cnt " + CStr(break_num) + " " + CStr(zzz_cnt), , , 4400, 4500) 'TESTING ONLY
'27Aug2010

' frmproj2.AutoRedraw = True '04 January 2005
' xtemp = InputBox("DOUG 1 TESTING SSS1 SSS2 SSS3 " + SSS1 + " " + SSS2 + " " + SSS3 + " " + SSS4 + " " + SSS5 + " " + SSS6, , , 4400, 4500) 'TESTING ONLY
'
' tt1 = InputBox("doug testing " + aaa, , , 4400, 4500) 'TESTING ONLY
If Left(UCase(Cmd(70)), 10) = "FOREGROUND" Then
new_delay_sec = 1 'enough time for the main job to get going again
GoSub line_30300
SetFocus '17 September 2004 background job to front.
'this only keeps focus till foreground job runs another file
'so the background job that is moved to the foreground should not be any longer
'than the other job time wise.... (until something else can be done)
End If '17 September 2004
save_line = "2000" 'for error handling
displayed_cnt = displayed_cnt + 1 'october 13/00
If displayed_cnt Mod 10 = 0 And ddemo = "YES" And prompt2 = "P1" Then
'pause a bit and do a couple of beeps just to bug them
For tt = 1 To 3
For II = 1 To 3000
For JJ = 1 To 5000
Next JJ
Next II
Beep
DoEvents
Next tt
tt1 = InputBox("Demo copy only e-mail stonedan@telusplanet.net for full version", , , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
End If
If printed_cnt > 20000 And printed <> "YES" Then
Cls
End If
printed = "YES"
printed_cnt = 1 'may 10/00
If auto_redraw = "YES" Then frmproj2.AutoRedraw = True 'november 10 2001 autoredraw pair-4

If Context = "no" Then 'june 26/99
GoTo line_2003
End If
temp1 = Len(date_displayed) 'june 26/99 ie "6/26/99"
'PRINT THE DATE PART AND REMOVE IT FROM HE SEARCH STRING
' REPLACING IT WITH THE ORIGINAL SEARCH STRINGS
'print print print done here
Print Left(aaa, temp1);
JJ = Len(aaa)
aaa = Right(aaa, JJ - temp1) + ""
ooo = Right(ooo, JJ - temp1) + ""
SSS1 = SAVE_KEEPS1
SSS2 = SAVE_KEEPS2
SSS3 = SAVE_KEEPS3 'june 26/99
SSS4 = SAVE_KEEPS4 '09 june 2002
SSS5 = SAVE_KEEPS5
SSS6 = SAVE_KEEPS6
line_2003:
save_line = "2003"
cnt = cnt + 1
tot_disp = tot_disp + 1 'how many to the screen

'context below deals with the "-" and "=" displays
'and only applies to date formatted files
'clean up by moving the context = "yes"

tttpos = 1
KEEPS1 = SSS1 + ""
KEEPS2 = SSS2 + ""
KEEPS3 = SSS3 + ""
KEEPS4 = SSS4 + "" '09 june 2002
KEEPS5 = SSS5 + ""
KEEPS6 = SSS6 + ""
vvv = aaa

If SSS1 = "A" Or SSS1 = "ALL" Then
vvv = aaa
End If

If SSS1 = "A" Or SSS1 = "ALL" Then
GoTo line_2200
End If
If SAVE_ttt = "F" And SSS1 <> "" And InStr(aaa, SSS1) = 0 Then
GoTo line_2200
End If
If SAVE_ttt = "F" And SSS2 <> "" And InStr(aaa, SSS2) = 0 Then
GoTo line_2200
End If
If SAVE_ttt = "F" And SSS3 <> "" And InStr(aaa, SSS3) = 0 Then
GoTo line_2200
End If
If SAVE_ttt = "F" And SSS4 <> "" And InStr(aaa, SSS4) = 0 Then
GoTo line_2200
End If
If SAVE_ttt = "F" And SSS5 <> "" And InStr(aaa, SSS5) = 0 Then
GoTo line_2200
End If
If SAVE_ttt = "F" And SSS6 <> "" And InStr(aaa, SSS6) = 0 Then
GoTo line_2200
End If
If SAVE_ttt = "F" Then
hi_lites = "YES"
vvv = aaa
GoTo line_2004
End If
'november 21 2000 the following 3 lines
If SAVE_ttt = "C" And SSS1 <> "" And hi_lites = "YES" And InStr(aaa, SSS1) = 0 Then
mult1 = ""
mult2 = ""
mult3 = ""
mult4 = ""
mult5 = ""
mult6 = ""
End If
If SAVE_ttt = "C" And SSS2 <> "" And hi_lites = "YES" And InStr(aaa, SSS2) = 0 Then
mult1 = ""
mult2 = ""
mult3 = ""
mult4 = ""
mult5 = ""
mult6 = ""
End If
If SAVE_ttt = "C" And SSS3 <> "" And hi_lites = "YES" And InStr(aaa, SSS3) = 0 Then
mult1 = ""
mult2 = ""
mult3 = ""
mult4 = ""
mult5 = ""
mult6 = ""
End If
'09 JUNE 2002
If SAVE_ttt = "C" And SSS4 <> "" And hi_lites = "YES" And InStr(aaa, SSS4) = 0 Then
mult1 = ""
mult2 = ""
mult3 = ""
mult4 = ""
mult5 = ""
mult6 = ""
End If
If SAVE_ttt = "C" And SSS5 <> "" And hi_lites = "YES" And InStr(aaa, SSS5) = 0 Then
mult1 = ""
mult2 = ""
mult3 = ""
mult4 = ""
mult5 = ""
mult6 = ""
End If
If SAVE_ttt = "C" And SSS6 <> "" And hi_lites = "YES" And InStr(aaa, SSS6) = 0 Then
mult1 = ""
mult2 = ""
mult3 = ""
mult4 = ""
mult5 = ""
mult6 = ""
End If

' If SAVE_ttt = "C" And SSS1 <> "" And hi_lites = "YES" And _ january 03a 2001
If SAVE_ttt = "C" And SSS1 <> "" And (hi_lites = "YES" Or inin = "A") And _
InStr(aaa, SSS1) = 0 Then
' mult1 = "" 'november 21 2000
' line_match = "" 'november 21 2000
GoTo line_2200 'aug 08/99
End If
' If SAVE_ttt = "C" And SSS2 <> "" And hi_lites = "YES" And _ january 03a 2001
If SAVE_ttt = "C" And SSS2 <> "" And (hi_lites = "YES" Or inin = "A") And _
InStr(aaa, SSS2) = 0 Then
' mult2 = "" 'november 21 2000
' line_match = "" 'november 21 2000
GoTo line_2200 'aug 08/99
End If
' If SAVE_ttt = "C" And SSS3 <> "" And hi_lites = "YES" And _ january 03a 2001
If SAVE_ttt = "C" And SSS3 <> "" And (hi_lites = "YES" Or inin = "A") And _
InStr(aaa, SSS3) = 0 Then
' mult3 = "" 'november 21 2000
' line_match = "" 'november 21 2000
GoTo line_2200 'aug 08/99
End If
' 09 JUNE 2002
If SAVE_ttt = "C" And SSS4 <> "" And (hi_lites = "YES" Or inin = "A") And _
InStr(aaa, SSS4) = 0 Then
' mult3 = "" 'november 21 2000
' line_match = "" 'november 21 2000
GoTo line_2200 'aug 08/99
End If

If SAVE_ttt = "C" And SSS5 <> "" And (hi_lites = "YES" Or inin = "A") And _
InStr(aaa, SSS5) = 0 Then
' mult3 = "" 'november 21 2000
' line_match = "" 'november 21 2000
GoTo line_2200 'aug 08/99
End If

If SAVE_ttt = "C" And SSS6 <> "" And (hi_lites = "YES" Or inin = "A") And _
InStr(aaa, SSS6) = 0 Then
' mult3 = "" 'november 21 2000
' line_match = "" 'november 21 2000
GoTo line_2200 'aug 08/99
End If

If SAVE_ttt = "C" And hi_lites <> "YES" Then
hi_lites = "YES"
' line_match = "Y" 'november 21 2000
GoSub Last_lines_15000 'aug 08/99
vvv = aaa
GoTo line_2004
End If

'AT THIS POINT BOLD/HILITING IS GOING TO BE DONE
line_2004:
Context_cnt = -1 'november 10 2000 this fixes the display
If p2p2 = "S" And search_str = "CC" Then
prompt2 = "C" '26 august 2002
SAVE_ttt = "C"
cnt = MAX_CNT 'force it to the end by indicating screen full
previous_picture(previous_count) = zzz_cnt
' previous_count = previous_count + 1
' zzz_cnt = zzz_cnt - Context_lines
' temptemp = InputBox(" 26 august at bold ", "prompt2= " + prompt2 + p2p2 + " " + CStr(zzz_cnt), , xx1 - offset1, yy1 - offset2)
'un comment the line below when working
GoTo line_2100
End If
GoSub sub_12000 'The hilite display subroutine november 9 2000
line_2100:
save_line = "2100"
'===============================================================================
If prompt2 = "C" Then ' see end of if below "end of if below"
previous_count = previous_count + 1 'october 19 2000
If previous_count > 100 Then
previous_count = 1
End If
previous_picture(previous_count) = zzz_cnt
End If

If Context = "yes" And SAVE_SSS = "=" Then
If date_displayed <> "" Then
SSS1 = " "
SSS = date_displayed
temp1 = InStr(1, SSS, "/")
SSS2 = Left(SSS, temp1 - 1) + "/"
temp1 = InStr(temp1 + 1, SSS, "/")
SSS3 = "/" + Mid(SSS, temp1 + 1, 2)
End If
End If

If Context = "yes" And SAVE_SSS = "-" Then 'june 26/99
SSS1 = " "
SSS2 = " "
SSS3 = date_displayed
End If

If Context = "no" And SSS1 <> "A" Then
If KEEPS1 <> "" Then
SSS1 = KEEPS1
End If
If KEEPS2 <> "" Then
SSS2 = KEEPS2
End If
If KEEPS3 <> "" Then
SSS3 = KEEPS3
End If
If KEEPS4 <> "" Then '09 june 2002
SSS4 = KEEPS4
End If
If KEEPS5 <> "" Then
SSS5 = KEEPS5
End If
If KEEPS6 <> "" Then
SSS6 = KEEPS6
End If
End If
'*******************************************************
' major pause prompt on picture display done here
'*******************************************************
line_2130:
save_line = "2130" 'november 6 2000
'21 March 2004 maybe do some thing to display the time here too
' If Picture_Search = "YES" Or mpg_file = "YES" Then
If Picture_Search = "YES" Then
' If mpg_file = "YES" Then GoTo line_2130a

' frmproj2.Caption = "lll1=" + lll '08 November 2004
Line_Search = ""
GoSub Display_pict_17000
'23 November 2004 do the options== stuff here right after the picture shownmaybe
'================================================================================
' frmproj2.Caption = " testing=" + UCase(lll) + "=" 'testing
temptemp = UCase(lll) '23 November 2004
III = InStr(temptemp, "OPTIONS==") '23 November 2004
If III <> 0 Then
JJ = 0
temptemp = Right(temptemp, Len(temptemp) - III - 8)
' frmproj2.Caption = " testing=" + temptemp + "=" 'testing

More_ops:
II = InStr(temptemp, "OPT=")
' frmproj2.Caption = " testing1=" + temptemp + "=" + CStr(JJ) 'testing
If II <> 0 Then
temptemp = Right(temptemp, Len(temptemp) - 4) 'strip off the OPT=
ddd = InStr(temptemp, "OPT=")
' frmproj2.Caption = " testing1a=" + temptemp + "=" + CStr(ddd) 'testing
If ddd <> 0 Then
control_files(JJ + 1) = Left(temptemp, ddd - 1)
' frmproj2.Caption = " testing1b=" + temptemp + "=" + CStr(JJ) 'testing
temptemp = Right(temptemp, Len(temptemp) - ddd + 1)
JJ = JJ + 1
Else
control_files(JJ + 1) = temptemp
temptemp = ""
JJ = JJ + 1
End If
GoTo More_ops
End If
Pick_op:
If JJ <> 0 Then
'have it default to option 1 allways
'display the file here
' Set Picture = LoadPicture(Pict_file) 'Normal Mode

' frmproj2.Caption = " testing2=" + control_file + "="
II = InputBox("enter option # 1 thru " + CStr(JJ), , "1", 4400, 4500)
If II > JJ Or II < 1 Then GoTo Pick_op
End If
control_file = control_files(II)
tempdata = Cmd(73)
' frmproj2.Caption = " testing=" + tempdata + "="
DoEvents
If Left(UCase(tempdata), 10) = "FILESWITCH" Then
GoSub Control_28000 'change the control file from in a *.txt file
Close #OutFile
DoEvents
OutFile = FreeFile
DoEvents
TheFile = Trim(Cmd(46)) 'Must be a file name here not a number
' frmproj2.Caption = " test TheFile=" + TheFile + "="
Open TheFile For Input As #OutFile
DoEvents
End If
' frmproj2.Caption = " testing1x=" + control_file + "=" '23 November 2004
GoTo input_1000a
End If '23 November 2004

'================================================================================
'08 November 2004 put the results to a file ie play list generation or if something interesting played random
If UCase(Left(Cmd(72), 11)) = "RESULTS.TXT" And UCase(Trim(TheFile)) <> "RESULTS.TXT" Then '08 November 2004
' frmproj2.Caption = " ooo1=" + ooo '08 November 2004 testing Just need "xxx." put in front here.
ResultFile = FreeFile '08 November 2004
Open "RESULTS.TXT" For Append Access Write As #ResultFile '08 November 2004 do this if RESULTS.TXT IN Cmd(72)
Print #ResultFile, LTrim(ccc) '08 November 2004 this is the PHOTO stuff
Print #ResultFile, Line_Search '08 November 2004 this is the xxx. stuff
Close ResultFile '08 November 2004
'then do a print / write then a close on that file
End If '08 November 2004

' frmproj2.Caption = "hey 7g " + Left(mssg, 5) + " " + CStr(array_pos) ' + Left(temptemp, 15) '22Mar2016
'line_2130a: '21 March 2004
'

' P O S T P H O T O D I S P L A Y C L E A N U P
' show time date info before going on to next picture
' maybe something else should be done here in the future
' ie quote of the day display etc... random...
'
'24 March 2003 do some messing with the time display
'version ver=1.02b time and date hard coded display for now every 4 show time on the 10"s show day too
'see similar code at PHOTO_DETAIL calls to Last_lines_15000 and sub_12000
'doing the time display here after photo and text finished
'should have a few other options coded here for flexability soon.
'most of the hard coding should be comming from the control.txt file
'making it easier to center text what ever.
'
' If dsp_cnt Mod 4 = 0 Then 'do every 4 records ver=1.03 make switchable
special_date = "NO" '01 April 2003 skip additional display delays if logic below used ver=1.05
time_displayed = "NO" '03 April 2003 just indicates if the time below is displayed...
Def_Fore = Cmd(29) 'Use alt color here for display 26 July 2003
If dsp_cnt Mod 4 = 0 And Cmd(57) = "SHOWTIME" Then 'do every 4 records
' replace_data = SSS1 '03 April 2003 save SSS1 so it can be replaced a few lines down
replace_sss1 = SSS1
replace_sss2 = SSS2
replace_sss3 = SSS3
replace_sss4 = SSS4
replace_sss5 = SSS5
replace_sss6 = SSS6 '03 April 2003
time_displayed = "YES" '03 April 2003
' Def_Fore = 12 'make the text red???
' ForeColor = QBColor(Def_Fore)
Context_lines = 3 '1 less than the PHOTO_DETAIL display
' ForeColor = QBColor(12) 'red
' ForeColor = QBColor(10) 'try lime green instead of red above
' ForeColor = QBColor(14) 'make this yellow and photo_detail lime green
' ForeColor = QBColor(9) 'make this bright blue instead
' ForeColor = QBColor(13) 'make this light purple instead
' ForeColor = QBColor(14) 'make this yellow instead
' ForeColor = QBColor(10) 'make this lime green (10) instead
ForeColor = QBColor(11) 'make this pale blue (11) instead
Font.Italic = False
Font.Size = 72 'making time huge
' Font.Size = 48 '20 May 2003 switch to this for laptop

' If sscreen_saver = "Y" Then GoSub line_30000 'do a pause again if screen saver mode

' P A U S E for screen saver mode here

' frmproj2.Caption = "hey 7h " + Left(mssg, 5) + " " + CStr(array_pos) ' + Left(temptemp, 15) '01 September 2004
'01 September 2004 GoSub line_30000 'do a pause again if screen saver mode
'the above caused it to hang on music thumbs that were being played full
new_delay_sec = Val(Cmd(60)) '01 September 2004
GoSub line_30300 '01 September 2004
' frmproj2.Caption = "hey 7i " + Left(mssg, 5) + " " + CStr(array_pos) ' + Left(temptemp, 15) '01 September 2004
'changed setting of aaa to below
' tt1 = InputBox("testing counts tot_s1=" + CStr(tot_s1), , , 4400, 4500) 'TESTING ONLY
'20 August 2003 Cls

II = 0
ooo = Now
II = InStr(1, ooo, " PM") 'trim the seconds out of the time display
If II <> 0 Then
ooo = Left(ooo, II - 4) + " PM"
End If

II = InStr(1, ooo, " AM") 'trim the seconds out of the time display
If II <> 0 Then
ooo = Left(ooo, II - 4) + " AM"
End If

II = 0
If dsp_cnt Mod 10 <> 0 Then
II = InStr(2, ooo, " ") 'chop off the day month info ie except if ends in 10 ie 20 30 40 etc
' tt1 = InputBox("testing time=" + CStr(II) + "=" + ooo, , , 4400, 4500) 'TESTING ONLY
Else
ooo = Format(Now, "dddd, mmmm dd, yyyy") 'test another date format

II = InStr(1, UCase(ooo), ", 20")

If II <> 0 Then
ooo = Left(ooo, II - 1) 'strip off ", 2003" year info (as with seconds) not needed
'logic should work till 2100, then the year will show
End If

II = InStr(1, ooo, ",") 'remove the comma ie Saturday, March 29
If II <> 0 Then
ooo = Left(ooo, II - 1) + Right(ooo, Len(ooo) - II)
End If '29 march 2003

II = 0
Font.Size = 72
' Font.Size = 48 '20 May 2003 switch to this for laptop display
Context_lines = 3
'...??? SSS1 = Right(ooo, 2) '30 March 2003 ver=1.04 hilite the day (30) in "Sunday March 30"
SSS1 = Right(ooo, 2) '30 March 2003 ver=1.04 hilite the day (30) in "Sunday March 30"
SSS2 = ""
SSS3 = ""
SSS4 = ""
SSS5 = ""
SSS6 = "" '03 April 2003
End If
ooo = Right(ooo, Len(ooo) - II) ' + CStr(dsp_cnt)
ooo = " " + ooo 'center the date time display a bit
If Len(ooo) < 12 Then ooo = " " + ooo 'ie the time only center 10:52 AM stuff
'when too many spaces added above data disappeared ???^
' dsp_cnt = Len(ooo)

' aaa = "sure would be nice if other stuff prints" + Space(10) 'testing the fix for all characters to print only
aaa = "dummydummydummydummydummydummy" 'some how forces the full date time to print????
aaa = UCase(ooo) '+ "-----------------------------------------" 'see if this changes match hi-liting

' testing the hi-liting of the time element..
'28 March 2003 should be able to hi-lite the following in the time some how
' KEEPS1 = "AM"
' KEEPS2 = "PM"
If InStr(1, aaa, " PM") <> 0 Then
'...??? SSS1 = "PM"
SSS1 = "PM"
SSS2 = ""
SSS3 = ""
SSS4 = ""
SSS5 = ""
SSS6 = "" '03 April 2003
End If '30 March 2003 ver=1.04
If InStr(1, aaa, " AM") <> 0 Then
'...??? SSS1 = "AM"
SSS2 = ""
SSS3 = ""
SSS4 = ""
SSS5 = ""
SSS6 = "" '03 April 2003
SSS1 = "AM"
End If '30 March 2003 ver=1.04 done with 2 if statements re the sss1 20 or so lines above
' SSS1 = " PM"
' SSS2 = "PM" 'see if this is hi-lited
' s1len = 2
' s2len = 2
' messing with the above resulted in the hi-liting of the matches disappearing...
' in screen saver photo_detail mode.
' tt1 = InputBox("testing time display keep_sss1=" + keep_SSS1, , , 4400, 4500) 'TESTING ONLY
' tt1 = InputBox("testing time display ooo=" + ooo, , , 4400, 4500) 'TESTING ONLY
' tt1 = InputBox("testing time display array_pos=" + CStr(array_pos), , , 4400, 4500) 'TESTING ONLY

tempdata = ooo '31 March 2003
'03 April 2003 tempdata = " " + ooo '01 April 2003 ver=1.05 make it shift one to the right before it disappears to the left
GoSub Last_lines_15000
'21 March 2004 If mpg_file <> "YES" Then GoSub Last_lines_15000
GoSub sub_12000 'do the bolding and high-liting hi-liting here
new_delay_sec = Val(Cmd(27)) '03 September 2004
GoSub line_30300 '03 September 2004
' tt1 = InputBox("testing=" + CStr(new_delay_sec) + "=", , , 4400, 4500) 'TESTING ONLY 26 November 2004

'30 March 2004 may need a reset of hold_sec here
' delay_sec = Val(Cmd(27)) '30 March 2004
' If mpg_file = "YES" Then
' new_delay_sec = Val(Cmd(27))
' GoSub line_30300 '30 March 2004
' End If '30 March 2004

'only if screen saver mode
If dsp_cnt Mod 10 = 0 Then
special_date = "YES" '01 April 2003 ver=1.05
' If sscreen_saver = "Y" Then GoSub line_30000 'do a extra pause again on "weekday Month dd" display
new_delay_sec = Val(Cmd(27)) '03 September 2004
If sscreen_saver = "Y" Or sscreen_saver_ww = "YES" Then GoSub line_30300 '03 September 2004
'03 September 2004 If sscreen_saver = "Y" Or sscreen_saver_ww = "YES" Then GoSub line_30000 '03 April 2003
tempdata = " " + tempdata '03 August 2003 start it a little farther over
f = Len(tempdata)

' tt1 = InputBox("testing sscreen_saver=" + sscreen_saver + " " + sscreen_saver_ww, , , 4400, 4500) 'TESTING ONLY
' For JJ = II To 1 Step -1
For III = f To 0 Step -1

ooo = Right(tempdata, III)
aaa = UCase(ooo)
' tt1 = InputBox("testing ooo=" + ooo + CStr(f) + CStr(III), , , 4400, 4500) 'TESTING ONLY
'20 August 2003 Cls
GoSub Last_lines_15000
GoSub sub_12000
' delay_sec = 0.1
new_delay_sec = 0.1 '03 September 2004
GoSub line_30300 '03 September 2004
' GoSub line_30000 '31 March 2003 have it move off the screen 1 chr at a time
Next III
delay_sec = Val(Cmd(27)) '31 March 2003
End If
Font.Size = Val(Cmd(2)) 'reset it back from 72 above
End If 'end of Picture_Search = "YES"
'21 March 2004
' tt1 = InputBox("testing ppp=" + ooo + CStr(f) + CStr(III), , , 4400, 4500) '22Mar2016

'03 April 2003 SSS1 = "" 're the am - pm hi-light above 30 march 2003 ver=1.04
If time_displayed = "YES" Then
' SSS1 = replace_data '03 April 2003
SSS1 = replace_sss1
SSS2 = replace_sss2
SSS3 = replace_sss3
SSS4 = replace_sss4
SSS5 = replace_sss5
SSS6 = replace_sss6 '03 April 2003
End If

If SSS1 = "AM" Or SSS1 = "PM" Then SSS1 = "" '03 April 2003
'24 March 2003 ver=1.02b ^

DoEvents
If pp_entered = "YES" Then
GoTo What_50
End If 'november 6 2000

'skip the pause below if no xxx. found
' frmproj2.Caption = "testing 21Sep2010 =" + disp_file + "*" + hold_sss1 + "*" + sscreen_saver + "*" + screen_saver_ww + "*" + interrupt_prompt2 '20 November 2004
'03Jul2012 note this section loop for the mixx stuff ----------------------------------------------------
If InStr(1, UCase(Line_Search), "XXX.") <> 0 Then
'maybe display the last text line if match is photo "P1"
'this has to show for laptops and pc's maybe based on
'lines per inch this must show at 7500 and 7400 for both screens
tempss = "" 'must have the input string complete
' If Test1_str = "P1" Or Test1_str = "P" Or Test1_str = "SS" Then '11Jul2016 add the ss
If Test1_str = "P1" Or Test1_str = "P" Then
tempss = lll 'lll is the upper case line
'save the clipboard for later paste
' Clipboard.SetText tempss
End If
'itwasheredoug
disp_file = Pict_file
line_2150:
JJ = InStr(1, disp_file, "\")
If JJ <> 0 Then
disp_file = Right(disp_file, Len(disp_file) - JJ)
GoTo line_2150
End If

disp_file = Right(Line_Search, Len(Line_Search) - 4) '21Sep2010 maybe this will fix it? Password? url? pic, video make sure they all work
frmproj2.Caption = "found 21Sep2010 =" + disp_file + "*" + Line_Search + "*" + sscreen_saver + "*" + screen_saver_ww + "*" + interrupt_prompt2 '20 November 2004
'16Aug2016 test the above frm display
'Screen Saver mode pause takes place below

If sscreen_saver = "Y" Then
'GoSub line_30000 01 April 2003
'14 July 2003 this is where the pause after the movies was showing the small text (not needed) below
'14 july 2003 If special_date <> "YES" Then GoSub line_30000 '01 April 2003 ver=1.05
new_delay_sec = Val(Cmd(27)) '03 September 2004
If line_delay_sec <> 0 Then new_delay_sec = line_delay_sec '26 November 2004
' tt1 = InputBox("testing=" + CStr(new_delay_sec) + "=", , , 4400, 4500) 'TESTING ONLY 26 November 2004
'03 September 2004 following line completely removed... when doing music it pauses when it should not
If special_date <> "YES" And motion_yn <> "YES" Then GoSub line_30300 '01 April 2003 ver=1.05
'03 September 2004 If special_date <> "YES" And mpg_file <> "YES" Then GoSub line_30000 '01 April 2003 ver=1.05
' Set Picture = LoadPicture() '03 August 2003 testing (clear em both) lp#2
Set Image1.Picture = LoadPicture '03 August 2003 testing
' xtemp = InputBox(" testing doug#11 " + aaa + "*line_fit=" + line_fit + "*img_ctrl=" + img_ctrl, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
GoTo line_2155
End If
If screen_capture = "YES" Then
'03 September 2004 delay_sec = 5 'march 15 2001
'03 September 2004 GoSub line_30000
'03mar2017 new_delay_sec = 5 '03 September 2004
GoSub line_30300 '03 September 2004
End If
'allow for the keeping of the original file name on the copy
' copy_photo = "YES" '11Jul2016 just a hard code test for wmv transfer
If copy_photo = "YES" Then 'april 08 2001
temps = Pict_file + ""
next_slasha:
II = InStr(temps, "\")
If II = 0 Then GoTo no_slash
III = III + II
temps = Mid(temps, II + 1)
GoTo next_slasha
no_slash:
old_pict = Mid(Pict_file, III + 1)
End If

'march 17 2001
'25Aug2016 xtemp = InputBox(" testing doug 12jul2016", "testing Prompt " + Cmd(23) + disp_file, xx1 - offset1, yy1 - offset2)
' copy_photo = "YES" '11Jul2016
If copy_photo = "YES" Then
temps = CStr(photo_cnt + 1)
If photo_cnt + 1 < 10 Then temps = "0" + temps
II = InStr(Pict_file, ".")
temps = photo_dir + photo_file + temps + Mid(Pict_file, II)
' xtemp = InputBox(" testing doug 12jul2016", " testing Prompt " + temps, , xx1 - offset1, yy1 - offset2)
If photo_file = "" Then 'april 08 2001
temps = photo_dir + old_pict
' xtemp = InputBox(" testing 22 nov " + old_pict, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
End If
'15Dec2012 xtemp = InputBox(" copy picture to " + temps + " <Y>", "Copy Prompt ", Pict_file, xx1 - offset1, yy1 - offset2)
If copy_all = "Y" Then
xtemp = "Y"
GoTo line_2150a
End If '15Dec2012
xtemp = InputBox(" (doall) or copy picture to " + temps + " <Y>", "Copy Prompt or (doall) ", Pict_file, xx1 - offset1, yy1 - offset2)
If UCase(xtemp) = "DOALL" Then
copy_all = "Y"
xtemp = "Y"
End If '15Dec2012
'22 November 2006 xtemp = InputBox(" copy picture to " + temps + " <Y>", "Copy Prompt ", long_pict_file, xx1 - offset1, yy1 - offset2)
' xtemp = InputBox(" copy picture to " + temps + " <Y>", "Copy Prompt ", long_pict_file, xx1 - offset1, yy1 - offset2) '12Jul2016 testing
line_2150a: '15Dec2012
' Pict_file = Cmd(23) + Right(disp_file, III + 1) '12jul2016

'15Aug2016 If xtemp = "Y" Or xtemp = Pict_file Then
If xtemp = "Y" Or xtemp = Pict_file Then
photo_cnt = photo_cnt + 1
temps = CStr(photo_cnt)
' temps = Right("00000" + temps, 5) '31Mar2008
temps = Right("00000" + temps, 5) '11Jul2016
'31Mar2008 If photo_cnt < 10 Then temps = "0" + temps
temps = photo_dir + photo_file + temps + Mid(Pict_file, II)
If photo_file = "" Then 'april 08 2001
temps = photo_dir + old_pict
End If
' xtemp = InputBox("testing file =" + temps, , , 4400, 4500) 'TESTING ONLY
line_2153: '09Aug2016
ytemp = disp_file + "" '14Jul2016 needed to update III maybe
' ytemp = Pict_file + "" '15Aug2016 needed to update III maybe
more_slasha:
II = InStr(ytemp, "\")
If II = 0 Then GoTo nomore_slash
III = III + II
ytemp = Mid(ytemp, II + 1)
GoTo more_slasha
nomore_slash:
' xtemp = InputBox(" 18jul2016 copy picture " + tempss + " <Y>", "Copy Prompt ", disp_file, xx1 - offset1, yy1 - offset2) '18Jul2016 testing
On Error GoTo copy_problem 'march 18 2001
If Not mixx Then Set Picture = LoadPicture() '12Feb2017
' Set Picture = LoadPicture() 'march 18 2001 maybe this will do it lp#3
DoEvents 'march 18 2001
'12jul2016 FileCopy Pict_file, temps 'copy the file create a copy
'14Jul2016 use the outdir default not cmd(23) below
'test did not work FileCopy Pict_file, outdir + newname 'testing newname... 14jul2016
' xtemp = InputBox("testing disp_file 14Jul2015= " + CStr(III) + " " + disp_file, , , 4400, 4500) 'TESTING ONLY 14Jul2016
' 28Aug2016 FileCopy Pict_file, photo_dir + ytemp 'copy the file create a copy changed 18jul2016 copy file
If photo_dir <> "" Then FileCopy Pict_file, photo_dir + ytemp 'copy the file create a copy changed 18jul2016 copy file
'25Aug2016 xtemp = InputBox("testing old_pict 14Jul2016=" + photo_dir + " *** " + ytemp, , , 4400, 4500) 'TESTING ONLY 14Jul2016
photo_dir = good_fold '12Aug2016 restore back to ok mp3 directory
' FileCopy Pict_file, photo_dir + Right(disp_file, Len(disp_file) - III) 'copy the file create a copy changed 12jul2016
' FileCopy Pict_file, outdir + Right(disp_file, Len(disp_file) - III + 1) 'copy the file create a copy changed 12jul2016
' xtemp = InputBox(" copy picture testing " + temps + " <Y>", "Copy Prompt ", photo_dir + disp_file, xx1 - offset1, yy1 - offset2) '12Jul2016 testing

' DoEvents '22 November 2006
' xtemp = InputBox("testing file 22 november 2006=" + temps, , , 4400, 4500) 'TESTING ONLY
' xtemp = InputBox("testing file 22 november 2006=" + long_pict_file, , , 4400, 4500) 'TESTING ONLY
' Name temps As long_pict_file '22 November 2006
tempss = " was=" + disp_file + " " + Format(Now, "ddddd ttttt")
If photo_file = "" Then
tempss = ""
End If 'april 08 2001
' xtemp = InputBox(" copy picture testing 1" + tempss + " <Y>", "Copy Prompt ", photo_dir + disp_file, xx1 - offset1, yy1 - offset2) '12Jul2016 testing
Print #ExtFile, ccc; " (was=)"; disp_file; " "; Format(Now, "ddddd ttttt") 'march 21 2001 add the was info
'12jul2016 Print #ExtFile, ccc; tempss 'april 08 2001
'12jul2016 Print #ExtFile, "xxx." + temps 'march 18 2001
Print #ExtFile, "xxx." + photo_dir + ytemp '18jul2016
' Print #ExtFile, "xxx." + photo_dir + Right(disp_file, Len(disp_file) - III) '14jul2016
' Print #ExtFile, "xxx." + Cmd(23) + Right(disp_file, III + 1) '12jul2016
On Error GoTo Errors_31000 'march 18 2001
GoTo input_1000
copy_problem: 'march 18 2001
xtemp = InputBox("file copy error=" + CStr(Err.Number) + " " + Err.Description, , , xx1 - offset1, yy1 - offset2) 'march 18 2001
On Error GoTo Errors_31000 'march 18 2001
'22Mar2016 Resume input_1000 'march 18 2001
GoTo input_1000 '22Mar2016 somehow this ends up with permission denied?
End If
If Len(xtemp) < 3 And UCase(xtemp) <> "N" Then GoTo What_50
GoTo input_1000
End If 'march 17 2001
Photo_continue_prompt: '27 july 2002
'17 September 2004
If Left(UCase(Cmd(69)), 8) = "HIT_STOP" And InStr(1, UCase(App.Path + App.EXEName), "BACKGRD") <> 0 Then
GoTo End_32000 '17 September 2004
End If '17 September 2004
'march 19 2001 tt1 = InputBox("E to exit " + tempss + " " + disp_file, "Photo continue Prompt", , xx1, yy1)
' frmproj2.Caption = "testing pcp =" + disp_file + "*" + hold_sss1 + "*" + sscreen_saver + "*" + screen_saver_ww + "*" + interrupt_prompt2 '20 November 2004
' 21Sep2010 frmproj2.Caption = "testing pcp =" + App.EXEName + "*" + hold_sss1 + "*" + sscreen_saver + "*" + screen_saver_ww + "*" + interrupt_prompt2 '20 November 2004
' frmproj2.Caption = hold_sss1 + "*" + interrupt_prompt2 + "*" + CStr(zzz_cnt) + "*" + interrupt_prompt2 '20 November 2004
'29 November 2006
' SendKeys "^c" '22Jun2016
' SendKeys "^c" '22Jun2016

tt1 = "" '29 November 2006
If Left(UCase(disp_file), 5) = "HTTP:" Then
If Mid(disp_file, 6, 1) <> "/" Then
disp_file = Right(disp_file, Len(disp_file) - 5)
End If '29 January 2007
'when xxx.http: and no / then take everything after it emails etc 29 January 2007
Clipboard.SetText disp_file '29 November 2006
SendKeys "^c" '29 January 2007
tt1 = disp_file '29 November 2006
frmproj2.Caption = " Paste the URL: " + disp_file + "<<<" '29 November 2006
End If '29 November 2006
'29 November 2006 tt1 = InputBox("P or J for previous E to exit or '.' " + ccc + " " + disp_file, "Photo continue Prompt #pcp" + CStr(zzz_cnt), , xx1 - ppoffset1, yy1 - ppoffset2)
'08 February 2008 add the if text_pause <> true then (below)
If text_pause <> True Then '08 February 2008
' 21Jun2016 tt1 = InputBox("P or J for previous E to exit or '.' " + ccc + " " + disp_file, "Photo continue Prompt #pcp" + CStr(zzz_cnt), tt1, xx1 - ppoffset1, yy1 - ppoffset2)
tt1 = InputBox("P or J for previous E to exit or '.' " + ccc + " " + disp_file, "Photo continue Prompt #pcp" + CStr(zzz_cnt), disp_file, xx1 - ppoffset1, yy1 - ppoffset2)

If tt1 = disp_file Then
tt1 = ""
End If '29 January 2007
Else
' SetFocus '08 February 2008
tt1 = "" '08 February 2008
new_delay_sec = Val(Cmd(27))
GoSub line_30300 '08 February 2008
' GoTo line_3050 '08 February 2008
End If '08 February 2008
'no If Cmd(45) = App.EXEName Then Cmd(45) = "" '07 december 2002 allow interrupt to come here and continue
' xtemp = InputBox("ww test=" + sscreen_saver_ww + "*" + sscreen_saver + "*" + inin + "*" + tt1, , , xx1, yy1) 'march 18 2001
' If mpg_file = "YES" Then
' GoTo input_1000 '23 February 2004
' End If
'20 November 2004 allow for auto run program to continue if return entered here
If tt1 = "" And interrupt_prompt2 = "WW" Then '20 November 2004
sscreen_saver = "Y"
prompt2 = "WW" 'this one seems to keep it going where before it stopped. now it gets wrong data
prompt2 = "SS" 'testing this now
' Test1_str = "P1" 'or maybe p2 find out later
tt1 = "WW"
sscreen_saver_ww = "YES"
' prompt2 = interrupt_prompt2
' frmproj2.Caption = SSS1 + SSS2 + "xxx*" + interrupt_prompt2 + CStr(zzz_cnt) '20 November 2004
' prompt2 = Cmd(47)
' inin = "" '20 November 2004 test this
' GoTo input_1000a
GoTo input_1000
End If '20 November 2004

If sscreen_saver_ww = "YES" Then
sscreen_saver_ww = "NO" '28 april 2002
sscreen_saver = "N" '28 april 2002
inin = ""
' GoTo What_50
'
End If
If tt1 = "." Then
ppoffset1 = 4500
ppoffset2 = 5000
GoTo Photo_continue_prompt
End If '27 july 2002
'allow for the photo details to be redisplayed
'so they can be view on the screen

'03 August 2003 If img_ctrl = "YES" Then
' If (img_ctrl = "YES" Or line_fit = "FIT") And line_fit <> "REG" Then
If img_ctrl = "YES" Or line_fit = "FIT" Then
Set Image1.Picture = LoadPicture 'february 21 2001
' Else '03 August 2003
If Not mixx Then Set Picture = LoadPicture() '12Feb2017
' Set Picture = LoadPicture() '03 August 2003 lp#4
End If
' Set Image1.Picture = LoadPicture '03 August 2003

If Left(UCase(tt1), 2) = "SS" Then
If Len(tt1) > 2 Then
Cmd(26) = " " + Right(tt1, Len(tt1) - 2) + " "
GoSub line_29200 'set up new screen saver elements
End If 'may 06 2001
ttt = "P1"
If stretch_img <> "NO" Then img_ctrl = "YES" 'march 31 2001
sscreen_saver = "Y"
SSS1 = ""
SSS2 = ""
SSS3 = ""
SSS4 = "" '09 JUNE 2002
SSS5 = ""
SSS6 = ""
GoTo input_1000
End If 'february 09 2001

If Len(tt1) > 2 Then
ttt = tt1
SSS1 = ttt
SSS2 = ""
SSS3 = ""
SSS4 = "" '09 JUNE 2002
SSS5 = ""
SSS6 = ""
GoTo line_510
End If 'february 09 2001
line_2155:
' Set Picture = LoadPicture() 'clear any picture
tt1 = UCase(tt1)
If tt1 = "PP" And ddemo <> "YES" Then
Test1_str = "P"
pp_entered = "YES"
prompt2 = "P"
GoTo line_2130
End If 'november 6 2000

'19 December 2004 If tt1 = "P" And ddemo <> "YES" Then
If (tt1 = "P" Or tt1 = "J") And ddemo <> "YES" Then
tt1 = "P" '19 December 2004
rand = 0 '21 august 2002 keep this as we are backing up to previous picture...
dsp_cnt = dsp_cnt - 1 'may 09 2001
pp = previous_count - 1
If pp < 1 Then
pp = 100
End If
Close #OutFile
II = DoEvents
OutFile = FreeFile
Open TheFile For Input As #OutFile
II = DoEvents 'yield to operating system

tt = 3
If yyy = "P" Then
tt = MAX_CNT
yyy = ""
End If
For bbb = 1 To previous_picture(pp) - tt
Line Input #OutFile, aaa
Next bbb
Previous_line = aaa
Line Input #OutFile, aaa
zzz_cnt = bbb
previous_count = pp - 1

'testing may 07 2001
' Print "previous_picture(previous_count)zzz_cnt,previous_count"; TheFile; previous_picture(previous_count); "="; zzz_cnt, previous_count
' tt1 = InputBox("continue", , , 4400, 4500) 'TESTING ONLY
'
GoTo input_1000
'read up to the previous picture appx cnt
End If ' end if for tt1 = "P" And ddemo <> "YES"
'======================================================

'maybe check for a for all here october 27 2000
If tt1 = "A" Then
SSS1 = "PHOTO"
SSS = "PHOTO"
SAVE_SSS = "PHOTO"
inin = "A"
SAVE_KEEPS1 = "PHOTO"
SAVE_KEEPS2 = ""
SAVE_KEEPS3 = ""
SAVE_KEEPS4 = ""
SAVE_KEEPS5 = ""
SAVE_KEEPS6 = ""
' tt1 = InputBox("continue", , , 4400, 4500) 'TESTING ONLY 01 January 2005

GoTo input_1000
' SAVE_ttt = "S"
End If

If Len(tt1) = 1 And tt1 <> "P" Then
Def_Fore = Hold_Fore '27 July 2003
GoTo Do_Search_110 'all chrs exit
End If
Def_Fore = Hold_Fore '30Jun2012 testing this new line this seems to fix the color switching problem
If UCase(tt1) = "E" Then
GoTo Do_Search_110
End If
End If ' end if for InStr(1, UCase(Line_Search), "XXX.") <> 0
'03Jul2012 note this section loop for the mixx stuff ----------------------------------------------------

'20 August 2003 Cls
' xtemp = InputBox(" testing doug#3 " + aaa + "*line_fit=" + line_fit + "*img_ctrl=" + img_ctrl, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
GoTo input_1000
End If ' end if for Picture_Search = "YES" see end of it above "end of if below"

'================================================================================

' temptemp = InputBox(" 26 august step a9 ", "prompt2= " + prompt2 + p2p2 + " " + CStr(zzz_cnt), , 7000, 6000)

'march 31/00

GoTo line_3010

line_2200:
Context_cnt = -1 'november 10 2000
save_line = "2200" 'for error handling
' Font.Size = 10
' BackStyle = 1 MESS WITH THIS A BIT BACKGROUND COLOR ETC
' Font.Charset = 2

'*********************************************************
'main print to screen here
'lots of monkeying around to be done here for
'log type output extract files etc replace.txt files
'*********************************************************
' * * * P R I N T * * *
'august 10/00 if line longer than 1 chop it
'need to change any tabs to 4 characters
'need to see if there is a valid end of line sequence
'before the 72 chrs and print out that by itself.
'so a bit more to be done before this will work correctly
'need to strip any odd ball characters and check for
'carriage return/linefeed sequences in the line also
'replace any tabs with 4 spaces right here
line_2210:
tt = InStr(ooo, Chr(9)) 'check for tabs
If tt = 0 Then
GoTo line_2220
End If
'change any tabs to 4 spaces
ooo = Left(ooo, tt - 1) + " " + Right(ooo, Len(ooo) - tt)
GoTo line_2210

line_2220:

'april 10 2001 If InStr(1, ooo, "append start") <> 0 Then

' If InStr(1, ooo, append_start1) <> 0 Then
If InStr(1, UCase(ooo), UCase(append_start1)) <> 0 Then
append_start1 = Mid(ooo, InStr(1, UCase(ooo), UCase(append_start1)), Len(append_start1))

tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '09 june 2002
new5 = SSS5
new6 = SSS6
'april 10 2001 SSS1 = "append start"
SSS1 = append_start1
SSS2 = ""
SSS3 = ""
SSS4 = "" '09 june 2002
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
aaa = ooo + ""
GoSub sub_12000
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '09 JUNE 2002
SSS5 = new5
SSS6 = new6
Set_Fore = temp_fore
GoTo line_2300
End If 'hilite any append lines i put in
'april 10 2001 If InStr(1, ooo, "append end") <> 0 Then
' If InStr(1, ooo, append_end1) <> 0 Then
If InStr(1, UCase(ooo), UCase(append_end1)) <> 0 Then
append_end1 = Mid(ooo, InStr(1, UCase(ooo), UCase(append_end1)), Len(append_end1))
tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '09 june 2002
new5 = SSS5
new6 = SSS6
'april 10 2001 SSS1 = "append end"

SSS1 = append_end1
SSS2 = ""
SSS3 = ""
SSS4 = "" '09 june 2002
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
aaa = ooo + ""
GoSub sub_12000
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '09 june 2002
SSS5 = new5
SSS6 = new6
Set_Fore = temp_fore
GoTo line_2300
End If 'hilite any append lines i put in
' with the ucase stuff below
If (InStr(1, UCase(ooo), UCase(hilite_this)) <> 0 And _
hilite_this <> "" And hilite_this <> " ") Then
hilite_this = Mid(ooo, InStr(1, UCase(ooo), UCase(hilite_this)), Len(hilite_this))
tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '09 june 2002
new5 = SSS5
new6 = SSS6
If hilite_hh = "Y" Then
GoSub hilite_25500
End If 'april 22 2001
SSS1 = hilite_this
SSS2 = ""
SSS3 = ""
SSS4 = "" '09 june 2002
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
aaa = ooo + ""
GoSub sub_12000
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '09 june 2002
SSS5 = new5
SSS6 = new6
Set_Fore = temp_fore
GoTo line_2300
End If 'hilite control element Cmd(31) info only hilites data not on matching line

line_2225:
'november 10 2000
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '09 june 2002
new5 = SSS5
new6 = SSS6

SSS1 = ""
SSS2 = ""
SSS3 = ""
SSS4 = ""
SSS5 = ""
SSS6 = ""
GoSub sub_12000
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4
SSS5 = new5
SSS6 = new6

line_2300:
'lots need to be done around here in the future.

' Print Left(ooo, 70)
' Print Mid(ooo, 71, 70)
' Print Mid(ooo, 141, 70)
' Print Mid(ooo, 211, 70)
' Print Mid(ooo, 281, 70)
' Print Mid(ooo, 351, 70)
' Print Mid(ooo, 421, 70)
' Print Mid(ooo, 491, 70)
' Print Mid(ooo, 561, 70)
' Print Mid(ooo, 631, 70)

line_3010:

save_line = "3010" 'for error handling
If Picture_Search = "YES" And InStr(UCase(Next_line), "XXX.") <> 0 Then
Next_line = ""
aaa = Next_line_save
GoTo line_1002
'we read ahead looking at the next line
End If 'march 31/00

If cnt < MAX_CNT Then
GoTo input_1000
End If
yyy = ""
line_3020:
save_line = "3020" 'for error handling
If ttt <> "F" Then
II = DoEvents 'yield to operating system
End If 'aug 24/99

' placing the InputBox at position 10,000 x 10,000 puts it
' off the screen / thus hiding it...
'10 January 2005 If Not text_pause Then '06 January 2005 just added the if statement around the print below
If Not text_pause Or p2p2 = "F" Then '10 January 2005 just added the if statement around the print below
ForeColor = QBColor(Val(Cmd(5)))
Print Format(zzz_cnt, " #########");
End If '06 January 2005
'january 05 2001 display "next match" or "next screen" here
' Print " do you want to continue y/n <y> 'a' for all 'b' for back, '.' for new search"
tt1 = "MATCH" 'january 05 2001
If inin = "A" Then tt1 = "SCREEN" 'january 05 2001
Test1_str = ""
If line_len > Val(Cmd(21)) And extract_yes <> "YES" Then
line_len = Val(Cmd(21)) 'january 06 2001
Test1_str = "NOWRAP"
End If
'24 august 2002
dblEnd = Timer 'get the end time
' temptemp = InputBox("01 september 2002 " + p2p2 + CStr(zzz_cnt), "flash", , 2000, 2000)
'what the hey ***vip*** todo why does the following fix need to be used as the
'flash failed to work once the line was put in..... fix it when ever
If p2p2 <> "F" Then yyy = " elap=" + Format(dblEnd - dblStart, "#####0.000") + " Chrs= " + CStr(zzz_chrs)
'01 september 2002 yyy = " elap=" + Format(dblEnd - dblStart, "###0.000") + " Chrs= " + CStr(zzz_chrs)
' zzz_chrs = 0 '25 august 2002
'06 January 2005 move the text_pause code from below a few lines to here, no need to see this prompt
' when the screen is going to continue on its own
'10 January 2005 If text_pause Then
If text_pause And p2p2 <> "F" Then
frmproj2.Caption = " #4 Pause at line= " + CStr(zzz_cnt) '06 January 2005
'23Feb2017 new_delay_sec = Val(Cmd(27)) '03 September 2004
GoSub line_30300 '03 September 2004
'03 September 2004 GoSub line_30000
' frmproj2.Caption = program_info + " (cls #5)" '18Dec2013
Cls '06 September 2004
yyy = ""
GoTo line_3050
End If '05 october 2002

Print " prompt #4 Enter for next " + tt1 + " y/n <y> 'a' =all, 'b' =back, '.'" + yyy + Test1_str + " Hits="; tot_s1; " "; tot_s2; " "; tot_s3; " "; tot_s4; " "; tot_s5; " "; tot_s6
ForeColor = QBColor(Def_Fore)

If show_files_yn Then frmproj2.Caption = program_info + random_info + stretch_info + " " + show_files '24 december 2002

If SAVE_ttt = "F" And hi_lites <> "YES" Then

'even with the following code the above " End of Screen" line only showed in about
' 80% of the interrupts. It did noticably slow down the flash display february 20 2001
' For III = 1 To 1000
' DoEvents 'february 20 2001
' II = InStr(ooo, "xxx") 'dummy line did a little bit to enable interrupt display but not much
' Next III 'to allow for the interrupt to display above end of screen line
GoTo line_3500
End If
If SAVE_ttt = "F" Then '10 January 2005
new_delay_sec = Val(Cmd(27))
GoSub line_30300
Cls
GoTo line_3050
End If '10 January 2005
'06 January 2005
' If text_pause Then
' new_delay_sec = Val(Cmd(27)) '03 September 2004
' GoSub line_30300 '03 September 2004
'03 September 2004 GoSub line_30000
' Cls '06 September 2004
' yyy = ""
' GoTo line_3050
' End If '05 october 2002
'06 January 2005
' * * * C O N T I N U E D I S P L A Y * * *
line_3030: 'november 14 2000
If page_prompt = "NO" Then
yyy = ""
If prompt2 = "C" Then
mess_cnt = mess_cnt + 1 'january 02 2001
Print #ExtFile, "------------------- next message "; Format(mess_cnt, "#####0"); " ---------------------"
End If
GoTo line_3050
End If 'december 31 2000

'main end of screen prompt here----------------------------------------
If screen_capture = "YES" Then
'03 September 2004 delay_sec = 5 'march 15 2001
'03 September 2004 GoSub line_30000
new_delay_sec = 5 '03 September 2004
GoSub line_30300 '03 September 2004
End If
line_3040:
If search_str = "CC" And p2p2 = "S" Then
tt1 = "P"
yyy = "P"
p2p2 = "C"
prompt2 = "C"
SAVE_ttt = "C"
GoTo skip_input_tt1
'need to read to previous_count after a close and open
End If '26 august 2002
yyy = InputBox("Do you want to continue y/n <y>", "Continue Prompt", , 20000, 20000)
dblStart = Timer 'get the start time 24 august 2002
skip_input_tt1: '26 august 2002
' frmproj2.AutoRedraw = False '04 January 2005
' frmproj2.Caption = program_info + " (cls #6)" '18Dec2013
Cls 'november 10 needed with the autoredraw
If auto_redraw = "YES" Then frmproj2.AutoRedraw = False 'november 10 2001 autoredraw pair-4
yyy = UCase(yyy)
'COULD DO THINGS WITH THIS PROMPT AS WELL (FUTURE)
'april 22 2001 allow for any HH element to be displayed
line_3045: 'october 21 2001
If hilite_hh = "Y" And yyy = "HH" And hilite_cnt > 0 Then
For II = 1 To hilite_cnt
Pict_file = cript2(II) ' testing this area
'pg328 the stretch property - if set to true, the picture loaded into
' the image control via the Picture property is stretched (see below)
If debug_photo Then '12 october 2002
tt1 = InputBox("testing photo 6a", , , 4400, 4500) 'TESTING ONLY
End If
'03 August 2003 do same here Meebee even allow for size to determine FIT or REG ???? another option ????

line_fit = "" '03 August 2003
If InStr(1, UCase(aaa), "FIT==") <> 0 Then
line_fit = "FIT"
End If '03 August 2003

If InStr(1, UCase(aaa), "REG==") <> 0 Then
line_fit = "REG"
End If '03 August 2003

If (img_ctrl = "YES" Or line_fit = "FIT") And line_fit <> "REG" Then
Set Image1.Picture = LoadPicture(Pict_file) 'Stretch Mode
' xtemp = InputBox(" testing doug#2 " + aaa + "*line_fit=" + line_fit + "*img_ctrl=" + img_ctrl, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
End If 'february 21 2001

If (img_ctrl <> "YES" And line_fit <> "FIT") Or line_fit = "REG" Then
' If img_ctrl <> "YES" Or line_fit = "REG" Then
Set Picture = LoadPicture(Pict_file) 'Normal Mode
' xtemp = InputBox(" testing doug#1 " + aaa + "*line_fit=" + line_fit + "*img_ctrl=" + img_ctrl, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
End If 'february 21 2001

'-------------
'03 August 2003 If img_ctrl = "YES" Then
' Set Image1.Picture = LoadPicture(Pict_file)
' Else
' Set Picture = LoadPicture(Pict_file)
' End If
xtemp = InputBox("show picture and wait", "Continue Prompt", , 20000, 20000)

'03 august 2003 If img_ctrl = "YES" Then
' Set Image1.Picture = LoadPicture()
' Else
' Set Picture = LoadPicture()
' End If
If (img_ctrl = "YES" Or line_fit = "FIT") And line_fit <> "REG" Then
Set Image1.Picture = LoadPicture() 'Stretch Mode
' xtemp = InputBox(" testing doug#4 " + aaa + "*line_fit=" + line_fit + "*img_ctrl=" + img_ctrl, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
End If 'february 21 2001

If (img_ctrl <> "YES" And line_fit <> "FIT") Or line_fit = "REG" Then
' If img_ctrl <> "YES" And line_fit <> "FIT" Then
' If img_ctrl <> "YES" Or line_fit = "REG" Then
If Not mixx Then Set Picture = LoadPicture() '12Feb2017
' Set Picture = LoadPicture() 'Normal Mode lp#5
' xtemp = InputBox(" testing doug#5 " + aaa + "*line_fit=" + line_fit + "*img_ctrl=" + img_ctrl, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
End If 'february 21 2001

Next II
hh_cnt = zzz_cnt
hilite_cnt = 0
yyy = "B" 'may want to make this "V" todo **vip**
'testing to see if I can get the screen re-displayed(text)
' GoTo line_3040
End If 'april 22 2001
hilite_cnt = 0 'april 22 2001

' If yyy = "A" Then
If yyy = "A" Or (yyy = "" And inin = "A") Then 'january 04 2001
inin = "A"
SSS1 = KEEPS1
SSS2 = KEEPS2
SSS3 = KEEPS3
SSS4 = KEEPS4
SSS5 = KEEPS5
SSS6 = KEEPS6

hi_lites = "YES"
' hi_lites = ""
yyy = ""
prompt2 = "C"
SAVE_ttt = "C"
line_match = "" 'this gets rid of the first one printing hilited
' if the previous page had one hilited???
End If 'january 03a 2001 testing
If inin <> "A" Then
array_pos = 0
array_prt = 0
End If 'january 21 2001
line_3050:
' Print "tt1="; tt1; "=previous_count ="; previous_count
' tt1 = InputBox("testing only", , , 4400, 4500) 'TESTING ONLY
' If tt1 = "x" Or tt1 = "X" Then
' GoTo End_32000
' End If 'testing
tt1 = yyy

If tt1 = "F" Then
SAVE_ttt = "F" 'november 14 2000
yyy = "." 'december 25 2000
tt1 = "." 'december 25 2000
' GoTo line_3030 'december 25 2000
End If
'19 December 2004 If tt1 = "P" And ddemo <> "YES" Then
If (tt1 = "P" Or tt1 = "J") And ddemo <> "YES" Then
tt1 = "P" '19 December 2004
'--------------------------------------------------------------
'november 8 2000
If prompt2 = "Q" Then
prompt2 = "C"
SAVE_ttt = "C"
SSS1 = UCase(SSS1)
SSS2 = UCase(SSS2)
SSS3 = UCase(SSS3)
SSS4 = UCase(SSS4)
SSS5 = UCase(SSS5)
SSS6 = UCase(SSS6)
End If
'--------------------------------------------------------------
'26 august 2002 pp = previous_count - 1
' this logic only does the "CC" search once could be reset for each new search
' but once the search is half way thru the file there may be no time savings
' at least on the first search if no match it will be much much quicker
' 26 august 2002
' temptemp = InputBox(" 26 august at previous ", "prompt2= " + prompt2 + p2p2 + " " + CStr(zzz_cnt), , xx1 - offset1, yy1 - offset2)
pp = previous_count '26 august 2002
If search_str <> "CC" Then pp = previous_count - 1
'same logic for previous match as previous picture
line_3200:
If pp < 1 Then
pp = 100
End If
Close #OutFile
II = DoEvents
OutFile = FreeFile
Open TheFile For Input As #OutFile
II = DoEvents 'yield to operating system
'if previous_picture count is on the same page go 1 more back
If previous_picture(pp) + MAX_CNT > zzz_cnt And previous_picture(pp - 1) <> 0 Then
pp = pp - 1
GoTo line_3200
End If

For bbb = 1 To previous_picture(pp) - MAX_CNT
Line Input #OutFile, aaa
Next bbb
Previous_line = aaa
Line Input #OutFile, aaa
zzz_cnt = bbb
previous_count = pp - 1
' hi_lites = "NO" 'the only difference between text and photo
'19 August 2003 Cls
yyy = ""
' Print "previous_picture(previous_count)zzz_cnt,previous_count"; TheFile; previous_picture(previous_count); "="; zzz_cnt, previous_count
' tt1 = InputBox("continue", , , 4400, 4500) 'TESTING ONLY
'
' GoTo input_1000
'read up to the previous picture appx cnt
End If
hi_lites = "NO" 'flash display
printed_cnt = 1 'may 10/00
printed = "NO"

If SAVE_ttt = "C" Then
For temp1 = 1 To MAX_CNT
Context_text(temp1) = "" 'aug 08/99
Next temp1
End If 'aug 08/99

'allow for full display if "A" entered at this prompt
If yyy = "A" Then
SSS1 = "A"
SSS = "A"
SAVE_SSS = "A"
inin = "A"
SAVE_KEEPS1 = "A"
SAVE_KEEPS2 = ""
SAVE_KEEPS3 = ""
SAVE_KEEPS4 = ""
SAVE_KEEPS5 = ""
SAVE_KEEPS6 = ""

yyy = ""
' SAVE_ttt = "S"
'december 22 2000
prompt2 = "C" 'december 22 2000
SAVE_ttt = "C" 'december 22 2000
End If
'allow them to back up 1 page or what ever number of lines in Cmd(23)
line_3300:
'january 06 2001 If yyy = "B" Then
If yyy = "B" Or yyy = "V" Then
' Print "previous_picture(previous_count)zzz_cnt,previous_count"; TheFile; previous_picture(previous_count); "="; zzz_cnt, previous_count
' tt1 = InputBox("continue", , , 4400, 4500) 'TESTING ONLY
If yyy = "V" Then
line_len = 5000 'january 06 2001
yyy = "B"
End If
If prompt2 = "Q" Then
prompt2 = "C" 'october 22 2000
If previous_picture(previous_count) <> 0 Then
zzz_cnt = previous_picture(previous_count)
End If
End If
'--------------------------------------------------------
'january 04b 2001 to allow for the B to keep the hilites
inin = "A"
SSS1 = KEEPS1
SSS2 = KEEPS2
SSS3 = KEEPS3
SSS4 = KEEPS4
SSS5 = KEEPS5
SSS6 = KEEPS6
hi_lites = "YES"
' hi_lites = ""
yyy = ""
prompt2 = "C"
SAVE_ttt = "C"
line_match = "" 'this gets rid of the first one printing hilited

'--------------------------------------------------------
'january 04b 2001 to allow for the B to keep the hilites
' SSS1 = "A"
' SSS = "A"
' SAVE_SSS = "A"
' inin = "A"
' SAVE_KEEPS1 = "A"
' SAVE_KEEPS2 = ""
' SAVE_KEEPS3 = ""
' yyy = ""
'--------------------------------------------------------
Close #OutFile
DoEvents
Open TheFile For Input As #OutFile
II = DoEvents 'yield to operating system
If cnt > MAX_CNT Then
tt = cnt - MAX_CNT
wrap_cnt = wrap_cnt - tt
cnt = MAX_CNT 'january 08a 2001
End If
' xtemp = InputBox("testing prompt_=" + CStr(zzz_cnt) + " " + CStr(wrap_cnt) + " " + CStr(cnt), "test", , 4400, 4500) '
' xtemp = InputBox("testing prompt=" + AllSearch(1) + "*" + ttt + " " + SSS1 + " " + SSS2 + " " + SSS3 + " " + CStr(zzz_cnt), "test", , 4400, 4500) '
' If UCase(xtemp) = "X" Then GoTo End_32000

' For bbb = 1 To zzz_cnt - MAX_CNT - MAX_CNT + wrap_cnt - 1
If hilite_hh = "Y" Then zzz_cnt = hh_cnt + MAX_CNT 'april 22 2001
For bbb = 1 To zzz_cnt - MAX_CNT - MAX_CNT + wrap_cnt - MAX_CNT + cnt
Line Input #OutFile, aaa
Next bbb
zzz_cnt = bbb - 1
End If
wrap_cnt = 0 'january 07 2001

If yyy = "." Then
TheSearch = "."
ttt = "."
GoSub Search_26000
If prompt2 = "C" Then
SSS = UCase(ttt)
Else
SSS = ttt
End If 'december 29 2000
If Len(SSS) < 2 Then GoTo What_50 'january 05 2001
SSS2 = "" 'december 28 2000
SSS3 = "" 'december 28 2000
SSS4 = "" '09 june 2002
SSS5 = ""
SSS6 = ""
'december 22 2000
If SSS = "A" Then
SSS1 = "A"
SSS = "A"
SAVE_SSS = "A"
inin = "A"
SAVE_KEEPS1 = "A"
SAVE_KEEPS2 = ""
SAVE_KEEPS3 = ""
SAVE_KEEPS4 = ""
SAVE_KEEPS5 = ""
SAVE_KEEPS6 = ""
yyy = ""
' SAVE_ttt = "S"
'december 22 2000
prompt2 = "C" 'december 22 2000
SAVE_ttt = "C" 'december 22 2000
End If

'do the parse again
'PARSE THE SSS STRING INTO PARTS SSS1 SSS2 AND SSS3
line_3350:
i = InStr(SSS, " ")
If i <> 0 Then
SSS = Left(SSS, i) + Mid(SSS, i + 2)
GoTo line_3350
End If

i = InStr(SSS, sep)
SSS1 = SSS + ""
s1len = Len(SSS1)
inin = SSS + "" 'june 13/99
If i = 0 Then
GoTo line_3400
End If
SSS1 = Left(SSS, i - 1)
s1len = Len(SSS1)
j = Len(SSS)
SSS = Right(SSS, j - i)

i = InStr(SSS, sep)
SSS2 = SSS
s2len = Len(SSS2)
If i = 0 Then
GoTo line_3400
End If
SSS2 = Left(SSS, i - 1)
s2len = Len(SSS2)
j = Len(SSS)
SSS = Right(SSS, j - i)
'=========================================
i = InStr(SSS, sep)
SSS3 = SSS
s3len = Len(SSS3)
If i = 0 Then
GoTo line_3400
End If
SSS3 = Left(SSS, i - 1)
s3len = Len(SSS3)
j = Len(SSS)
SSS = Right(SSS, j - i)
'-----------------------------------------
i = InStr(SSS, sep)
SSS4 = SSS
s4len = Len(SSS4)
If i = 0 Then
GoTo line_3400
End If
SSS4 = Left(SSS, i - 1)
s4len = Len(SSS4)
j = Len(SSS)
SSS = Right(SSS, j - i)

'-----------------------------------------
i = InStr(SSS, sep)
SSS5 = SSS
s5len = Len(SSS5)
If i = 0 Then
GoTo line_3400
End If
SSS5 = Left(SSS, i - 1)
s5len = Len(SSS5)
j = Len(SSS)
SSS = Right(SSS, j - i)

'------------------------------------------
SSS6 = Right(SSS, j - i)
s6len = Len(SSS6)

line_3400:
GoSub line_14500 'check for imbedded spaces in search strings
'january 19 2001

yyy = ""

End If 'end if for "." search string recall

'allow for a stop to see if screen remains
If yyy = "S" Then
Close #OutFile
II = DoEvents
GoTo End_32000
End If
line_3500:
save_line = "3500"

'17 September 2004 dougheredoughere
If Left(UCase(Cmd(69)), 8) = "HIT_STOP" And InStr(1, UCase(App.Path + App.EXEName), "BACKGRD") <> 0 Then
GoTo End_32000 '17 September 2004
End If '17 September 2004
line_4000:
save_line = "4000"
cnt = 0
If yyy <> "Y" And yyy <> "" Then

Close #OutFile
Close #ExtFile 'november 14 2000
line_len = Val(Cmd(21)) 'november 14 2000
extract_yes = "NO" 'november 14 2000
II = DoEvents 'yield to operating system
GoTo Do_Search_110
' GoTo File_40 'january 01 2001
End If
'20 August 2003 the cls was moved to the last_lines_1500 routine
'20 August 2003 Cls 'clear the current form
If SAVE_ttt = "F" Then Cls '20 august 2003a

GoTo input_1000

'Subroutines start here ----------------------------
sub_10000:
sslen = 0
s1 = 0
s2 = 0
s3 = 0
s4 = 0 '23 june 2002
s5 = 0
s6 = 0
ss = 1000

If SSS1 <> "" Then
s1 = InStr(aaa, SSS1)
End If
If SSS2 <> "" Then
s2 = InStr(aaa, SSS2)
End If
If SSS3 <> "" Then
s3 = InStr(aaa, SSS3)
End If
If SSS4 <> "" Then
s4 = InStr(aaa, SSS4) '23 june 2002
End If
If SSS5 <> "" Then
s5 = InStr(aaa, SSS5)
End If
If SSS6 <> "" Then
s6 = InStr(aaa, SSS6)
End If

If s1 < ss And s1 <> 0 Then
ss = s1
sslen = s1len
End If
If s2 < ss And s2 <> 0 Then
ss = s2
sslen = s2len
End If
If s3 < ss And s3 <> 0 Then
ss = s3
sslen = s3len
End If
If s4 < ss And s4 <> 0 Then
ss = s4 '23 june 2002
sslen = s4len
End If
If s5 < ss And s5 <> 0 Then
ss = s5
sslen = s5len
End If
If s6 < ss And s6 <> 0 Then
ss = s6
sslen = s6len
End If

' If ss = s1 Then
'december 5 2000 SSS1 = ""
' End If
' If ss = s2 Then
'december 5 2000 SSS2 = ""
' End If
' If ss = s3 Then
'december 5 2000 SSS3 = ""
' End If

If ss = 1000 Then
ss = 0
End If

Return

sub_12000: 'hi-lite print subroutine here
'need the tabs to spaces where it is. Spaces may be in the search for matches?
' test to eliminate excess prints
'20 May 2003 note I may want to de-activate the following change along with
' the other one for 20 May 2003 this data is now displayed in
' the detail display / caption option....
' If sscreen_saver = "Y" Then GoTo line_13999 '20 May 2003
' testprompt = InputBox("testing prompt 12050=" + sscreen_saver + " " + disp_file + " " + aaa, "test", , 4400, 4500) '
line_12050: 'january 15 2001
If array_pos <> 0 Then
data_aaa = aaa + ""
data_ooo = ooo + ""
endstuff = "YES"
array_prt = array_prt + 1
aaa = array_aaa(array_prt)
ooo = array_ooo(array_prt)
SSS1 = KEEPS1 'january 24 2001
If SSS1 = "A" Then SSS1 = "" 'january 25 2001
SSS2 = KEEPS2
SSS3 = KEEPS3 'january 24 2001
SSS4 = KEEPS4 '09 june 2002
SSS5 = KEEPS5
SSS6 = KEEPS6
' testprompt = InputBox("testing prompt 12050=" + CStr(array_prt) + " " + data_ooo + " " + CStr(array_pos) + " " + array_ooo(array_prt), "test", , 4400, 4500) '
GoTo line_12120 'january 21 2001
End If
line_12053: 'january 21 2001
endstuff = "NO" 'january 21 2001
data_aaa = aaa + " "
data_ooo = ooo + " "
tot_print = 0
line_12055:
'below reduce multiple trailing spaces to 1
JJ = Len(data_aaa)
If JJ < 2 Then GoTo line_12070
If Right(data_aaa, 2) = " " Then
data_aaa = Left(data_aaa, JJ - 1)
data_ooo = Left(data_ooo, JJ - 1)
GoTo line_12055
End If

line_12070:
aaa = data_aaa + ""
ooo = data_ooo + ""
line_12100:

'now do a search for the match strings.
match_flag = "YES"
'is there a match of the 3 elements in this string YES or NO
If SSS1 = "" Then match_flag = "NO"
If SSS1 <> "" And InStr(aaa, SSS1) = 0 Then
match_flag = "NO"
GoTo line_12110
End If
If SSS2 <> "" And InStr(aaa, SSS2) = 0 Then
match_flag = "NO"
GoTo line_12110
End If
'23 june 2002 add 4 5 and 6 below
If SSS3 <> "" And InStr(aaa, SSS3) = 0 Then
match_flag = "NO"
GoTo line_12110
End If
If SSS4 <> "" And InStr(aaa, SSS4) = 0 Then
match_flag = "NO"
GoTo line_12110
End If
If SSS5 <> "" And InStr(aaa, SSS5) = 0 Then
match_flag = "NO"
GoTo line_12110
End If
If SSS6 <> "" And InStr(aaa, SSS6) = 0 Then match_flag = "NO"
line_12110:
If Len(aaa) > line_len + over_lap Then
GoTo line_13000 'do the line wrap inserts etc
End If
line_12120: 'return from the wrap logic here if required.
' If zzz_cnt > 43180 Then
' testprompt = InputBox("testing prompt 12120=" + match_flag + "*" + SSS1 + "*" + SSS2 + "*" + SSS3 + "*" + SSS4 + "*" + SSS5 + "*" + SSS6, , , 4400, 4500) 'TESTING ONLY
' If tt1 = "X" Or tt1 = "x" Then
' GoTo End_32000
' End If 'testing only
' End If
'29Oct2012 not this one match_flag If group_match = True Then xtemp = InputBox("testing#4c1 Match 29Oct2012 break_num=" + CStr(break_num) + " group_match=" + CStr(group_match) + " rand_no=" + CStr(rand_no) + " zzz_cnt=" + CStr(zzz_cnt) + " rand_prog=" + CStr(rand_prog) + " >" + Left(aaa, 8), , , 4400, 4500) 'TESTING ONLY
If match_flag = "YES" Then GoTo line_12500 '
line_12125:

If Left(UCase(Cmd(77)), 16) = "CHARACTERPAUSE==" Then '03 January 2005
new_delay_sec = Val(Right(Cmd(77), Len(Cmd(77)) - 16))
tempss = ooo '03 January 2005
If Left(tempss, 2) = " " Then tempss = Right(tempss, Len(tempss) - 2) '31Jul2011 so on line wraps the first 2 characters space are removed
If Left(tempss, 1) = " " Then tempss = Right(tempss, Len(tempss) - 1) '31Jul2011 so on line wraps the first character space is removed
For temp1 = 1 To Len(tempss)
Print Left(tempss, 1);
tempss = Right(tempss, Len(tempss) - 1)
GoSub line_30300 '03 January 2005 slowed print character pause
Next temp1

Else
Print ooo;
End If '03 January 2005
tot_print = tot_print + Len(ooo)
If extract_yes = "YES" Then
Print #ExtFile, ooo;
End If
'24 December 2004 put the timer in here???
If Left(Cmd(76), 11) = "LINEPAUSE==" Then
new_delay_sec = Val(Right(Cmd(76), Len(Cmd(76)) - 11))
GoSub line_30300 '24 December 2004
End If '24 December 2004

line_12130:
If array_prt > 1 Then
cnt = cnt + 1
wrap_cnt = wrap_cnt + 1
End If
posstring = "" 'december 6 2000
If showasc = "Y" Then
II = Len(ooo)
If II > 10 Then II = 10
ytemp = Right(ooo, II)
xtemp = ""
For III = 1 To II
xtemp = xtemp + CStr(Asc(Mid(ytemp, III, 1))) + " "
Next III
posstring = xtemp + "(" + ytemp + ")"
End If 'december 11 2000
If showpos = "Y" Then posstring = "*=" + CStr(tot_print) + " " + CStr(cnt)
Print ; posstring
'24 December 2004 put the timer in here???
If Left(Cmd(76), 11) = "LINEPAUSE==" Then
new_delay_sec = Val(Right(Cmd(76), Len(Cmd(76)) - 11))
GoSub line_30300 '24 December 2004
End If '24 December 2004
tot_print = 0
If extract_yes = "YES" Then
Print #ExtFile,
End If
'check for screen full here 'to be done yet
'at this point need to check for screen full and exit out if need be but do later
line_12135: 'january 21 2001
If cnt >= MAX_CNT Then
If array_prt = array_pos Then
array_prt = 0
array_pos = 0
End If
GoTo line_14222
End If
line_12140:
If array_pos < 1 Then GoTo line_14222
line_12150:
array_prt = array_prt + 1
line_12160:
If array_prt > array_pos Then
array_prt = 0
array_pos = 0
If endstuff = "YES" Then
aaa = data_aaa + ""
ooo = data_ooo + ""
GoTo line_12053 'january 21 2001
End If
GoTo line_14222
End If
line_12170:
aaa = array_aaa(array_prt) + ""
ooo = array_ooo(array_prt) + ""
GoTo line_12120
line_12500:
s1len = Len(SSS1)
s2len = Len(SSS2)
s3len = Len(SSS3)
s4len = Len(SSS4) '23 june 2002
s5len = Len(SSS5)
s6len = Len(SSS6)

GoSub sub_10000 'check for match in string aaa
If ss = 0 Then GoTo line_12125
line_12505:
If ss > 1 Then
'29Oct2012
' If group_match = True Then xtemp = InputBox("testing#4c2 Match 29Oct2012 match_flag=" + match_flag + " break_num=" + CStr(break_num) + " group_match=" + CStr(group_match) + " rand_no=" + CStr(rand_no) + " zzz_cnt=" + CStr(zzz_cnt) + " rand_prog=" + CStr(rand_prog) + " >" + Left(aaa, 8), , , 4400, 4500) 'TESTING ONLY
If Left(UCase(Cmd(77)), 16) = "CHARACTERPAUSE==" Then '03 January 2005
new_delay_sec = Val(Right(Cmd(77), Len(Cmd(77)) - 16))
tempss = Left(ooo, ss - 1) '03 January 2005
If Left(tempss, 1) = " " Then tempss = Right(tempss, Len(tempss) - 1) '31Jul2011 so on line wraps the first character space is removed
For temp1 = 1 To Len(tempss)
Print Left(tempss, 1);
tempss = Right(tempss, Len(tempss) - 1)
GoSub line_30300 '03 January 2005 slowed print character pause
Next temp1

Else
' Print ooo;
Print Left(ooo, ss - 1);
tot_print = tot_print + ss - 1
If extract_yes = "YES" Then
Print #ExtFile, Left(ooo, ss - 1);
End If
End If '03 January 2005
End If
line_12510:
II = 0
If Mid(aaa, ss + sslen - 1, 1) <> " " Then GoTo line_12600

'if last chr in match a space check if that is the start of another match? below
If SSS1 = "" Then GoTo line_12600
If Mid(aaa, ss + sslen - 1, s1len) = SSS1 Then GoTo line_12550
If SSS2 = "" Then GoTo line_12600
If Mid(aaa, ss + sslen - 1, s2len) = SSS2 Then GoTo line_12550
If SSS3 = "" Then GoTo line_12600
If Mid(aaa, ss + sslen - 1, s3len) = SSS3 Then GoTo line_12550
If SSS4 = "" Then GoTo line_12600 '23 june 2002
If Mid(aaa, ss + sslen - 1, s4len) = SSS4 Then GoTo line_12550
If SSS5 = "" Then GoTo line_12600
If Mid(aaa, ss + sslen - 1, s5len) = SSS5 Then GoTo line_12550
If SSS6 = "" Then GoTo line_12600
If Mid(aaa, ss + sslen - 1, s6len) = SSS6 Then GoTo line_12550
GoTo line_12600
line_12550:
'only going to hi-lite up to the next space by reducing count by 1 below
' If zzz_cnt > 658 Then
' tt1 = InputBox("testing prompt 12550" + CStr(ss + sslen - 1) + "*" + Mid(aaa, ss + sslen - 1, 4) + "*" + SSS1, , , 4400, 4500) 'TESTING ONLY
' If tt1 = "X" Or tt1 = "x" Then
' GoTo End_32000
' End If 'testing only
' End If
sslen = sslen - 1
II = 1 'so the match counts below will jive
line_12600:
If UCase(Mid(ooo, ss, sslen + II)) = UCase(SSS1) Then tot_s1 = tot_s1 + 1 'january 01 2001
If UCase(Mid(ooo, ss, sslen + II)) = UCase(SSS2) Then tot_s2 = tot_s2 + 1 'january 01 2001
If UCase(Mid(ooo, ss, sslen + II)) = UCase(SSS3) Then tot_s3 = tot_s3 + 1 'january 01 2001
If UCase(Mid(ooo, ss, sslen + II)) = UCase(SSS4) Then tot_s4 = tot_s4 + 1 '23 june 2002
If UCase(Mid(ooo, ss, sslen + II)) = UCase(SSS5) Then tot_s5 = tot_s5 + 1 '23 june 2002
If UCase(Mid(ooo, ss, sslen + II)) = UCase(SSS6) Then tot_s6 = tot_s6 + 1 '23 june 2002

ForeColor = QBColor(Set_Fore) 'set color
Font.Bold = True
'03mar2017 Font.Underline = True

'26 March 2003 try the below (seemed to work) Print Mid(ooo, ss, sslen);
' If Cmd(56) <> "PHOTO_DETAIL" Then Print Mid(ooo, ss, sslen);
' needed the original display for "C" context hi-liting.... put back
If Left(UCase(Cmd(77)), 16) = "CHARACTERPAUSE==" Then '03 January 2005
new_delay_sec = Val(Right(Cmd(77), Len(Cmd(77)) - 16))
tempss = Mid(ooo, ss, sslen) '03 January 2005
If Left(tempss, 1) = " " Then tempss = Right(tempss, Len(tempss) - 1) '31Jul2011 so on line wraps the first character space is removed
' If Left(tempss, 1) = " " Then tempss = Right(tempss, Len(tempss) - 1) '31Jul2011 so on line wraps the first character space is removed
For temp1 = 1 To Len(tempss)
Print Left(tempss, 1);
tempss = Right(tempss, Len(tempss) - 1)
GoSub line_30300 '03 January 2005
Next temp1

Else
' Print ooo;
Print Mid(ooo, ss, sslen);
End If '03 January 2005

tot_print = tot_print + sslen
If extract_yes = "YES" Then
Print #ExtFile, Mid(ooo, ss, sslen);
End If
' If sscreen_saver = "Y" Then
'26 March 2003 deactivate the following if part of version ver=1.02b fix required
If sscreen_saver = "Y" And sscreen_saver = "N" Then
Font.Size = 24
ForeColor = QBColor(AltColor) 'make a different color here and below screen saver
' dsp_cnt = dsp_cnt + 1 'may 09 2001
'26 March 2003 dump the display count for now (skip the whole routine)
' with the dsp_cnt print and all what the hey anyway
' Print Mid(ooo, ss, sslen); " "; CStr(dsp_cnt); " "; 'may 09 2001
Print Mid(ooo, ss, sslen); " "; 'may 09 2001
Font.Size = Val(Cmd(2))
End If 'october 24 2000
ForeColor = QBColor(Def_Fore) 'default color
Font.Bold = False
Font.Underline = False

aaa = Mid(aaa, ss + sslen)
ooo = Mid(ooo, ss + sslen)

'midway2 thru the program appx'==================================================================================

line_12610:
If Len(aaa) > 0 Then GoTo line_12500
GoTo line_12130 'no more data

GoTo line_14222

line_13000: 'january 18 2001
'below get rid of all trailing spaces
II = Len(aaa)
If Right(aaa, 1) = " " Then
aaa = Left(aaa, II - 1)
ooo = Left(ooo, II - 1)
GoTo line_13000
End If
line_13010: 'january 19 2001 see imbedded spaces in search string and replace them in xxx string
xxx = aaa + ""
' If zzz_cnt > 20929 Then
' tt1 = InputBox("testing prompt 13000c" + CStr(Len(aaa)) + " " + SSS1 + " " + match_flag, , , 4400, 4500) 'TESTING ONLY
' If tt1 = "X" Or tt1 = "x" Then
' GoTo End_32000
' End If 'testing only
' End If
If match_flag <> "YES" Then GoTo line_13070 'only required if match in line
If imbedded = "NO" Then GoTo line_13070 'only required if one has a imbedded space
If s1_imbed = "" Then GoTo line_13020
II = 1
line_13012:
JJ = InStr(II, aaa, SSS1)
If JJ = 0 Then GoTo line_13020
xxx = Left(aaa, JJ - 1) + s1_imbed + Mid(aaa, JJ + Len(SSS1) - 1)
II = JJ + 1
GoTo line_13012
line_13020:
If s2_imbed = "" Then GoTo line_13030
II = 1
line_13022:
JJ = InStr(II, aaa, SSS2)
If JJ = 0 Then GoTo line_13030
xxx = Left(aaa, JJ - 1) + s2_imbed + Mid(aaa, JJ + Len(SSS2) - 1)
II = JJ + 1
GoTo line_13022
line_13030:
If s3_imbed = "" Then GoTo line_13040
II = 1
line_13032:
JJ = InStr(II, aaa, SSS3)
If JJ = 0 Then GoTo line_13040
xxx = Left(aaa, JJ - 1) + s3_imbed + Mid(aaa, JJ + Len(SSS3) - 1)
II = JJ + 1
GoTo line_13032
'23 june 2002 add 4 thru 6 below
line_13040:
If s4_imbed = "" Then GoTo line_13050
II = 1
line_13042:
JJ = InStr(II, aaa, SSS4)
If JJ = 0 Then GoTo line_13050
xxx = Left(aaa, JJ - 1) + s4_imbed + Mid(aaa, JJ + Len(SSS4) - 1)
II = JJ + 1
GoTo line_13042
line_13050:
If s5_imbed = "" Then GoTo line_13060
II = 1
line_13052:
JJ = InStr(II, aaa, SSS5)
If JJ = 0 Then GoTo line_13060
xxx = Left(aaa, JJ - 1) + s5_imbed + Mid(aaa, JJ + Len(SSS5) - 1)
II = JJ + 1
GoTo line_13052
line_13060:
If s6_imbed = "" Then GoTo line_13070
II = 1
line_13062:
JJ = InStr(II, aaa, SSS6)
If JJ = 0 Then GoTo line_13070
xxx = Left(aaa, JJ - 1) + s6_imbed + Mid(aaa, JJ + Len(SSS6) - 1)
II = JJ + 1
GoTo line_13062
line_13070:

line_13620:
II = Len(aaa)
array_pos = array_pos + 1
If array_pos > 55 Then
'22 October 2004 xtemp = InputBox("error 13620 line too long=" + CStr(array_pos), "test", , xx1 - offset1, yy1 - offset2) '
frmproj2.Caption = "error 13620 line too long (use crop option) " + CStr(Len(aaa)) '22 October 2004
new_delay_sec = 1 '22 October 2004
GoSub line_30300 '22 October 2004
Beep '22 October 2004
II = 50 '22 October 2004
aaa = Left(aaa, 50) '22 October 2004
array_pos = 10 '22 October 2004 keep it from stopping on line too long errors
GoTo line_13635
End If
line_13625:
If II <= line_len + over_lap Then GoTo line_13630
line_13626:
tt = InStr(line_len, xxx, " ")
'if a - is going to split a word make sure that there are no nearby spaces below
line_13627:
If (tt = 0 Or tt > line_len + over_lap) And Mid(aaa, line_len - 1, 1) = " " Then tt = line_len - 1
If (tt = 0 Or tt > line_len + over_lap) And Mid(aaa, line_len - 2, 1) = " " Then tt = line_len - 2
If (tt = 0 Or tt > line_len + over_lap) And Mid(aaa, line_len - 3, 1) = " " Then tt = line_len - 3
If (tt = 0 Or tt > line_len + over_lap) And Mid(aaa, line_len - 4, 1) = " " Then tt = line_len - 4
line_13627a:
If tt = 0 Then GoTo line_13628
line_13627b:
If tt > line_len + over_lap Then GoTo line_13628
line_13627c:
array_aaa(array_pos) = " " + Left(aaa, tt - 1) + " "
array_ooo(array_pos) = " " + Left(ooo, tt - 1) + " "
aaa = Mid(aaa, tt)
ooo = Mid(ooo, tt)
xxx = Mid(xxx, tt) 'january 21 2001
GoTo line_13620
line_13628:
new_len = line_len
If match_flag = "NO" Then GoTo line_13628m
'ensure the break does not come in any of the hi-lite items...
'for each of the 3 search elements make sure there is no break
'in the middle use s1len s2len s3len values and the instr(?)
'to check for overlap

'if the hi-lite item less than 2 characters the break can never split it.
' new_len = line_len
If s1len < 2 Then GoTo line_13628d
III = line_len - s1len + 2
If III < 1 Then GoTo line_13628d 'should never happen
JJ = InStr(III, aaa, SSS1)
If JJ = 0 Then GoTo line_13628d 'no match found
If JJ > line_len Then GoTo line_13628d 'match found after break
' If JJ + s1len - 1 = line_len Then GoTo line_13628d '
' the above line was used when III above was calculated using II = line_len-s1len+1
new_len = JJ - 1
GoTo line_13628m
line_13628d:
If s2len < 2 Then GoTo line_13628h
III = line_len - s2len + 2
If III < 1 Then GoTo line_13628h 'should never happen
JJ = InStr(III, aaa, SSS2)
If JJ = 0 Then GoTo line_13628h 'no match found
If JJ > line_len Then GoTo line_13628h 'match found after break
new_len = JJ - 1
GoTo line_13628m
line_13628h:
If s3len < 2 Then GoTo line_13628i
III = line_len - s3len + 2
If III < 1 Then GoTo line_13628i 'should never happen
JJ = InStr(III, aaa, SSS3)
If JJ = 0 Then GoTo line_13628i 'no match found
If JJ > line_len Then GoTo line_13628i 'match found after break
new_len = JJ - 1
GoTo line_13628m
'23 june 2002 do 4 thru 6 below
line_13628i:
If s4len < 2 Then GoTo line_13628j
III = line_len - s4len + 2
If III < 1 Then GoTo line_13628j 'should never happen
JJ = InStr(III, aaa, SSS4)
If JJ = 0 Then GoTo line_13628j 'no match found
If JJ > line_len Then GoTo line_13628j 'match found after break
new_len = JJ - 1
GoTo line_13628m
line_13628j:
If s5len < 2 Then GoTo line_13628k
III = line_len - s5len + 2
If III < 1 Then GoTo line_13628k 'should never happen
JJ = InStr(III, aaa, SSS5)
If JJ = 0 Then GoTo line_13628k 'no match found
If JJ > line_len Then GoTo line_13628k 'match found after break
new_len = JJ - 1
GoTo line_13628m
line_13628k:
If s6len < 2 Then GoTo line_13628m
III = line_len - s6len + 2
If III < 1 Then GoTo line_13628m 'should never happen
JJ = InStr(III, aaa, SSS6)
If JJ = 0 Then GoTo line_13628m 'no match found
If JJ > line_len Then GoTo line_13628m 'match found after break
new_len = JJ - 1

line_13628m:
array_aaa(array_pos) = " " + Left(aaa, new_len) + "-"
array_ooo(array_pos) = " " + Left(ooo, new_len) + "-"
aaa = Mid(aaa, new_len + 1)
ooo = Mid(ooo, new_len + 1)
xxx = Mid(xxx, new_len + 1)
'
' xtemp = InputBox("testing prompt_=" + aaa + " " + CStr(new_len) + " " + CStr(cnt), "test", , 4400, 4500) '
' xtemp = InputBox("testing prompt=" + AllSearch(1) + "*" + ttt + " " + SSS1 + " " + SSS2 + " " + SSS3 + " " + CStr(zzz_cnt), "test", , 4400, 4500) '
' If UCase(xtemp) = "X" Then GoTo End_32000
GoTo line_13620
'line_13629:
' Print #ExtFile, Left(aaa, line_len); "-"
' temp2 = temp2 + 1
' aaa = Mid(aaa, line_len + 1)
' GoTo line_13620
line_13630:
array_aaa(array_pos) = " " + aaa + " "
array_ooo(array_pos) = " " + ooo + " "
line_13635:
If Left(array_aaa(1), 2) = " " Then
array_aaa(1) = Mid(array_aaa(1), 2) 'remove the extra space line 1 only
array_ooo(1) = Mid(array_ooo(1), 2) 'as 1 is already added at start
aaa = array_aaa(1) 'line broken into multiple parts start printing with first part
ooo = array_ooo(1)
array_prt = 1
End If
line_13640:
'back to the logic after 12120 line
GoTo line_12120
line_13999:
line_14222: 'january 15 2001
Return

line_14500: 'january 19 2001 check for imbedded spaces in search strings
s1_imbed = ""
s2_imbed = ""
s3_imbed = ""
s4_imbed = "" '23 june 2002
s5_imbed = ""
s6_imbed = ""
imbedded = "NO"
If Len(SSS1) < 2 Then GoTo line_14510
III = 2
line_14505:
II = InStr(III, SSS1, " ")
If II = 0 Or II = Len(SSS1) Then GoTo line_14510
s1_imbed = Left(SSS1, II - 1) + "x" + Mid(SSS1, II + 1)
III = II + 1
GoTo line_14505
line_14510:
If Len(SSS2) < 2 Then GoTo line_14520
III = 2
line_14515:
II = InStr(III, SSS2, " ")
If II = 0 Or II = Len(SSS2) Then GoTo line_14520
s2_imbed = Left(SSS2, II - 1) + "x" + Mid(SSS2, II + 1)
III = II + 1
GoTo line_14515
line_14520:
If Len(SSS3) < 2 Then GoTo line_14530
III = 2
line_14525:
II = InStr(III, SSS3, " ")
If II = 0 Or II = Len(SSS3) Then GoTo line_14530
s3_imbed = Left(SSS3, II - 1) + "x" + Mid(SSS3, II + 1)
III = II + 1
GoTo line_14525
line_14530:
If Len(SSS4) < 2 Then GoTo line_14540
III = 2
line_14535:
II = InStr(III, SSS4, " ")
If II = 0 Or II = Len(SSS4) Then GoTo line_14540
s4_imbed = Left(SSS4, II - 1) + "x" + Mid(SSS4, II + 1)
III = II + 1
GoTo line_14535
line_14540:
If Len(SSS5) < 2 Then GoTo line_14550
III = 2
line_14545:
II = InStr(III, SSS5, " ")
If II = 0 Or II = Len(SSS5) Then GoTo line_14550
s5_imbed = Left(SSS5, II - 1) + "x" + Mid(SSS5, II + 1)
III = II + 1
GoTo line_14545
line_14550:
If Len(SSS6) < 2 Then GoTo line_14560
III = 2
line_14555:
II = InStr(III, SSS6, " ")
If II = 0 Or II = Len(SSS6) Then GoTo line_14560
s6_imbed = Left(SSS6, II - 1) + "x" + Mid(SSS6, II + 1)
III = II + 1
GoTo line_14555
line_14560:
If s1_imbed + s2_imbed + s3_imbed + s4_imbed + s5_imbed + s6_imbed > "" Then imbedded = "YES"
Return

Last_lines_15000:
save_line = "15000" 'aug 08/99
' frmproj2.Caption = program_info + " (cls #7)" '18Dec2013
Cls '18 august 2003
'---------------------------------------------------- part a
'18 March 2003 ver=1.01 v
' If Clear_Context_lines = Context_lines Then
'clear the context records here **note the spaces=50 other setting = ""
If Clear_Context_lines > 0 Then
' tt1 = InputBox("testing=" + CStr(Context_cnt) + " " + CStr(Context_lines) + " " + CStr(Context_lines - Clear_Context_lines) + "=", , , 4400, 4500) 'TESTING ONLY
' For II = 1 To MAX_CNT
If Context_cnt > Context_lines - 1 Then
' For II = 1 To Context_cnt - 1
For II = 1 To Context_cnt - (Context_lines - Clear_Context_lines)
Context_text(II) = Space(20)
Next II
Else
For II = 1 To Context_cnt - (Context_lines - Clear_Context_lines)
Context_text(II) = Space(20)
Next II 'active testing this logic
For II = Context_cnt + 1 To MAX_CNT Step 1
Context_text(II) = Space(20)
Next II
End If
End If
' End If
'18 March 2003 ver=1.01 ^
'the above routine is handy when used in conjunction with a control file
'command type situation where the font size and clear_context_string cmd(55)
'element is used for display of text on top of existing photos
'may want a blank line or two right after as program will temporarily be
'switched to context display mode and may need to be swapped back???
'
'use the ver=1.01 changes when doing the display of the searched text
'on top of the picture on the screen in ver=1.02 "search criteria"
' "photo_detail" display on screen large font with own delay etc
'
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

If Context_cnt < Context_lines Then
For temp4 = MAX_CNT - Context_lines + Context_cnt To MAX_CNT
If Context_text(temp4) = "" Then GoTo line_15115 'january 22 2001
'april 10 2001 If InStr(1, Context_text(temp4), "append end") <> 0 Then
' If InStr(1, Context_text(temp4), append_end1) <> 0 Then
If InStr(1, UCase(Context_text(temp4)), UCase(append_end1)) <> 0 Then
append_end1 = Mid(Context_text(temp4), InStr(1, UCase(Context_text(temp4)), UCase(append_end1)), Len(append_end1))

tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
'april 10 2001 SSS1 = "append end"
SSS1 = append_end1
SSS2 = ""
SSS3 = ""
SSS4 = "" '23 june 2002
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
If hilite_hh = "Y" Then
GoSub hilite_25500
End If 'april 22 2001
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '23 june 2002
SSS5 = new5
SSS6 = new6

Set_Fore = temp_fore
GoTo line_15110
End If 'hilite any append lines i put in
'april 10 2001 If InStr(1, Context_text(temp4), "append start") <> 0 Then
' with the ucase stuff below

If InStr(1, UCase(Context_text(temp4)), UCase(append_start1)) <> 0 Then
append_start1 = Mid(Context_text(temp4), InStr(1, UCase(Context_text(temp4)), UCase(append_start1)), Len(append_start1))
tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
'april 10 2001 SSS1 = "append start"
SSS1 = append_start1
SSS2 = ""
SSS3 = ""
SSS4 = "" '23 june 2002
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4
SSS5 = new5
SSS6 = new6
Set_Fore = temp_fore
GoTo line_15110
End If 'hilite any append lines i put in

If InStr(1, Context_text(temp4), hilite_this) <> 0 And _
(hilite_this <> "" And hilite_this <> " ") Then
tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
SSS1 = hilite_this
SSS2 = ""
SSS3 = ""
SSS4 = "" '23 june 2002
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
If hilite_hh = "Y" Then
GoSub hilite_25500
End If 'april 22 2001 this one
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '23 june 2002
SSS5 = new5
SSS6 = new6
Set_Fore = temp_fore
GoTo line_15110
End If 'hilite any append lines i put in

line_15100:
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
SSS1 = ""
SSS2 = ""
SSS3 = ""
SSS4 = "" '23 june 2002
SSS5 = ""
SSS6 = ""
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '23 june 2002
SSS5 = new5
SSS6 = new6

line_15110:
cnt = cnt + 1
line_15115: 'january 22 2001
Next temp4
'-------------------------------------------------------
For temp4 = 1 To Context_cnt
If Context_text(temp4) = "" Then GoTo line_15525 'january 22 2001

line_15200:
'april 10 2001 If InStr(1, Context_text(temp4), "append end") <> 0 Then
' If InStr(1, Context_text(temp4), append_end1) <> 0 Then
If InStr(1, UCase(Context_text(temp4)), UCase(append_end1)) <> 0 Then
append_end1 = Mid(Context_text(temp4), InStr(1, UCase(Context_text(temp4)), UCase(append_end1)), Len(append_end1))

tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
'april 10 2001 SSS1 = "append end"
SSS1 = append_end1
SSS2 = ""
SSS3 = ""
SSS4 = "" '23 june 2002
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
If hilite_hh = "Y" Then
GoSub hilite_25500
End If 'april 22 2001
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '23 june 2002
SSS5 = new5
SSS6 = new6
Set_Fore = temp_fore
GoTo line_15520
End If 'hilite any append lines i put in
'april 10 2001 If InStr(1, Context_text(temp4), "append start") <> 0 Then
' If InStr(1, Context_text(temp4), append_start1) <> 0 Then
If InStr(1, UCase(Context_text(temp4)), UCase(append_start1)) <> 0 Then
append_start1 = Mid(Context_text(temp4), InStr(1, UCase(Context_text(temp4)), UCase(append_start1)), Len(append_start1))

tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
'april 10 2001 SSS1 = "append start"
SSS1 = append_start1
SSS2 = ""
SSS3 = ""
SSS4 = ""
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4
SSS5 = new5
SSS6 = new6
Set_Fore = temp_fore
GoTo line_15520
End If 'hilite any append lines i put in

If InStr(1, Context_text(temp4), hilite_this) <> 0 And _
(hilite_this <> "" And hilite_this <> " ") Then
tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
SSS1 = hilite_this
SSS2 = ""
SSS3 = ""
SSS4 = "" '23 june 2002
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
If hilite_hh = "Y" Then
GoSub hilite_25500
End If 'april 22 2001 this one
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '23 june 2002
SSS5 = new5
SSS6 = new6
Set_Fore = temp_fore
GoTo line_15520
End If 'hilite any append lines i put in

new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
SSS1 = ""
SSS2 = ""
SSS3 = ""
SSS4 = "" '23 june 2002
SSS5 = ""
SSS6 = ""
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '23 june 2002
SSS5 = new5
SSS6 = new6

line_15520:
cnt = cnt + 1
line_15525: 'january 22 2001
Next temp4
End If

'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

If Context_cnt > Context_lines - 1 Then
For temp4 = Context_cnt - Context_lines + 1 To Context_cnt
If Context_text(temp4) = "" Then GoTo line_15553 'january 22 2001
' get the context_text stuff to wrap vip
'april 10 2001 If InStr(1, Context_text(temp4), "append end") <> 0 Then
' If InStr(1, Context_text(temp4), append_end1) <> 0 Then
If InStr(1, UCase(Context_text(temp4)), UCase(append_end1)) <> 0 Then
append_end1 = Mid(Context_text(temp4), InStr(1, UCase(Context_text(temp4)), UCase(append_end1)), Len(append_end1))
tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
'april 10 2001 SSS1 = "append end"
SSS1 = append_end1
SSS2 = ""
SSS3 = ""
SSS4 = "" '23 june 2002
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
If hilite_hh = "Y" Then
GoSub hilite_25500
End If 'april 22 2001
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '23 june 2002
SSS5 = new5
SSS6 = new6
Set_Fore = temp_fore
GoTo line_15550
End If 'hilite any append lines i put in
'april 10 2001 If InStr(1, Context_text(temp4), "append start") <> 0 Then
' If InStr(1, Context_text(temp4), append_start1) <> 0 Then
If InStr(1, UCase(Context_text(temp4)), UCase(append_start1)) <> 0 Then
append_start1 = Mid(Context_text(temp4), InStr(1, UCase(Context_text(temp4)), UCase(append_start1)), Len(append_start1))

tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
'april 10 2001 SSS1 = "append start"
SSS1 = append_start1
SSS2 = ""
SSS3 = ""
SSS4 = "" '23 june 2002
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '23 june 2002
SSS5 = new5
SSS6 = new6
Set_Fore = temp_fore
GoTo line_15550
End If 'hilite any append lines i put in

If InStr(1, Context_text(temp4), hilite_this) <> 0 And _
(hilite_this <> "" And hilite_this <> " ") Then
tot_s1 = tot_s1 - 1 'january 06 2001
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
SSS1 = hilite_this
SSS2 = ""
SSS3 = ""
SSS4 = "" '23 june 2002
SSS5 = ""
SSS6 = ""
temp_fore = Set_Fore
Set_Fore = AltColor
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
If hilite_hh = "Y" Then
GoSub hilite_25500
End If 'april 22 2001 this one
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '23 june 2002
SSS5 = new5
SSS6 = new6
Set_Fore = temp_fore
GoTo line_15550
End If 'hilite any append lines i put in

line_15500:
new1 = SSS1
new2 = SSS2
new3 = SSS3
new4 = SSS4 '23 june 2002
new5 = SSS5
new6 = SSS6
SSS1 = ""
SSS2 = ""
SSS3 = ""
SSS4 = "" '23 june 2002
SSS5 = ""
SSS6 = ""
keep_aaa = aaa + ""
keep_ooo = ooo + ""
aaa = Context_text(temp4)
ooo = Context_text(temp4)
GoSub sub_12000
aaa = keep_aaa
ooo = keep_ooo
SSS1 = new1
SSS2 = new2
SSS3 = new3
SSS4 = new4 '23 june 2002
SSS5 = new5
SSS6 = new6

line_15550:
cnt = cnt + 1
line_15553: 'january 22 2001
Next temp4
End If 'aug 08/99
line_15555: 'november 10 2000
' Print Context_cnt 'november 10 2000 testing
Context_cnt = -1 'november 10 2000
Return

line_16000: 'november 17 2000 enter file name
If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then '27 October 2004
' xtemp = InputBox("27 october 2004 TESTING 3 " + ttt, , , 4400, 4500) 'TESTING ONLY
' tt1 = "replace.txt" '27 October 2004 testing only reactivate line below
Line Input #BatchFile, tt1
' xtemp = InputBox("27 october 2004 TESTING 3a =" + tt1, , , 4400, 4500) 'TESTING ONLY
GoTo skip_file
End If '27 October 2004
Test1_str = "File name Prompt" 'april 01 2001
If filereason <> "" Then Test1_str = filereason 'april 01 2001
'18Jun2012
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
tt1 = "MPEG_VIDEOS.TXT"
GoTo skip_file
End If '18Jun2012
tt1 = InputBox("***enter file name", Test1_str, xtemp, xx1 - offset1, yy1 - offset2) 'TESTING ONLY
skip_file: '27 October 2004
tt1 = UCase(tt1)
If tt1 = "" Then
FileExt = UCase(xtemp)
Else
FileExt = tt1
End If
If Right(FileExt, 4) <> ".TXT" Then
GoTo line_16000
End If
' xtemp = InputBox("27 october 2004 TESTING 3b =" + tt1, , , 4400, 4500) 'TESTING ONLY
Return
line_16100: 'january 01 2001
' save_line = "16100"
save_line = "16100"
Close ExtFile
' Kill FileExt 'january 01 2001 january 22 2001
DoEvents
ExtFile = FreeFile
ExtFile = ExtFile + 1 'maybe this will fix the problem?????
DoEvents
' save_line = "16100a" '18 March 2007
If oopen <> "APPEND" Then
Open FileExt For Output Access Write As #ExtFile
Else
Open FileExt For Append Access Write As #ExtFile 'september 02 2001
End If

' save_line = "16100b" '18 March 2007
DoEvents
line_len = 5000 'on extract do not do any wraps???
'see the fix above re the adding of 1 to the file count with this prompt
Return

Display_pict_17000: 'start of display_pict_17000 subroutine look for end
' tt1 = InputBox("doug testing pics1", , , 4400, 4500) 'testing

save_line = "17000" 'march 31/00
If pp_entered = "YES" Then
GoTo line_17045
End If 'november 6 2000
Line Input #OutFile, Next_line
zzz_cnt = zzz_cnt + 1
Next_line_save = Next_line
Previous_line_save = Previous_line
This_line = ooo

Line_17020:
' Print "PICTURE FOUND="; This_line
' tt1 = InputBox("testing", , , 4400, 4500) 'TESTING ONLY
' leave above as example for testing display and prompt
' If InStr(UCase(Previous_line + This_line + Next_line), "XXX.")
If InStr(UCase(Previous_line + Next_line), "XXX.") = 0 Then
GoTo Line_17090
End If 'no more xxx. to display
'get the next line for searching for XXX.
'Next_line_save = Next_line
'clear Next_line if XXX. found there
'Previous_line_save = Previous_line
'clear Previous_line if XXX. found there
'do logic that calls up to two paint program displays
'here and check at end for Next_line
'switched the order here so that only 1 line of text
'will work ie photo bla bla bal then xxx.
'before it was picking up the one before it
If InStr(UCase(Next_line), "XXX.") <> 0 Then
Line_Search = Next_line
' tt1 = InputBox("next_line" + SSS1 + Next_line, , , 4400, 4500) 'TESTING ONLY
' tt1 = InputBox("Previous_line" + SSS2 + Previous_line, , , 4400, 4500) 'TESTING ONLY
Next_line = "" 'so we don't do it again
Previous_line = "" 'line added
GoTo Line_17025 'line added
End If 'no more xxx. to display
If InStr(UCase(Previous_line), "XXX.") <> 0 Then
Line_Search = Previous_line
Previous_line = "" 'so we don't do it again
'goto Line_17025 'line removed
End If 'no more xxx. to display

Line_17025:
String_Position = InStr(UCase(Line_Search), "XXX.")
If String_Position = 0 Then
GoTo Line_17090:
End If
Pict_file = Right(Line_Search, Len(Line_Search) - String_Position - 3)
Save_file = Pict_file '15 January 2004
'30 May 2003 allow for cmd(58) DEFAULT_TO_CD to over-ride path... ver=1.06
If UCase(Left(Cmd(58), 13)) = "DEFAULT_TO_CD" And Left(App.Path, 3) <> "C:\" Then
Pict_file = Left(App.Path, 3) + Right(Pict_file, Len(Pict_file) - 3)
End If 'change any C:\ to D:\ or E:\ etc 30 May 2003 ver=1.06

If auto_exe = "YES" And Left(App.Path, 3) <> "C:\" Then
Pict_file = Left(App.Path, 3) + Right(Pict_file, Len(Pict_file) - 3)
End If 'change any C:\ to D:\ or E:\ etc 07 december 2002
line_17030:
tt = InStr(Pict_file, Chr(9)) 'check for tabs
If tt = 0 Then
GoTo line_17035
End If
'change any tabs to 4 spaces
Pict_file = Left(Pict_file, tt - 1) + " " + Right(Pict_file, Len(Pict_file) - tt)
GoTo line_17030
line_17035:
If Left(Pict_file, 1) <> " " Then
GoTo line_17040 'STRIP OUT LEADING SPACES
End If
Pict_file = Right(Pict_file, Len(Pict_file) - 1)
GoTo line_17035
line_17040:
'check the file exists before going anywhere
save_line = "17040"
FileFile = FreeFile
'13 December 2004 had to comment out the following 2 lines to get the error trap on mcisendstring open to work
'13 December 2004 Open Pict_file For Input As #FileFile
'13 December 2004 Close FileFile
'13 December 2004 maybe check to see what it would take to just check mpg or some such above ***vip*** todo
DoEvents
save_line = "17040a" '13 December 2004
' tt1 = InputBox("doug testing pics2 " + Line_Search, , , 4400, 4500) 'testing 29 november 2006
' aug 08/00

If InStr(UCase(Line_Search), ".BMP") <> 0 And _
Test1_str = "P1" Then
GoTo line_17045
End If
avi_file = "NO" '01 february 2003
mpg_file = "NO" '11 May 2003 ver=1.05
wav_file = "NO" '10 June 2003 ver=1.07
mid_file = "NO" '10 June 2003 ver=1.07
If InStr(UCase(Line_Search), ".AVI") <> 0 Then
avi_file = "YES"
GoTo line_17045 '01 february 2003
End If '01 february 2003

If Mid(UCase(Line_Search), 5, Len(Line_Search) - 4) = "HTTP:" Then
' tt1 = InputBox("doug testing pics2 " + Line_Search, , , 4400, 4500) 'testing 29 november 2006
GoTo Line_17080 '
End If '29 November 2006

'10 June 2003 ver=1.07 If InStr(UCase(Line_Search), ".MPG") <> 0 Then
'16 August 2004 If InStr(UCase(Line_Search), ".MPG") <> 0 Or InStr(UCase(Line_Search), ".MP3") Then
If InStr(UCase(Line_Search), ".MPG") <> 0 Or InStr(UCase(Line_Search), ".MP3") Or InStr(UCase(Line_Search), ".WMV") Or InStr(UCase(Line_Search), ".VOB") Then
mpg_file = "YES"
GoTo line_17045 '11 May 2003
End If

'ver=1.07
If InStr(UCase(Line_Search), ".WAV") <> 0 Then
wav_file = "YES"
GoTo line_17045 '10 June 2003
End If

'ver=1.07
If InStr(UCase(Line_Search), ".MID") <> 0 Then
mid_file = "YES"
GoTo line_17045 '10 June 2003
End If

'28 November 2004 If InStr(UCase(Line_Search), ".JPG") = 0 Then
If InStr(UCase(Line_Search), ".JPG") = 0 And InStr(UCase(Line_Search), ".GIF") = 0 Then
GoTo Line_17080
End If

line_17045:
'28 November 2004 gif here too along with the jpg
' tt1 = InputBox("doug testing pics2a " + Pict_file, , , 4400, 4500) 'testing
' frmproj2.Caption = " testing=" + Pict_file + "=" 'testing
'only .JPG files below see line_17080 and gif now 28 november 2004
LastFile = Pict_file
'check the program exists before going anywhere
save_line = "17041"
FileFile = FreeFile
line_17050:
save_line = "17050"
Close FileFile
DoEvents
' tt1 = InputBox("doug testing pics2.1", , , 4400, 4500) 'TESTING ONLY
'january 03 2002 the nt computer at work failed on the following open
'why oh why are we doing the open cmd(8) below ***vip*** todo check this out
'they should all have explorer anyway...
If debug_photo Then '12 october 2002
tt1 = InputBox("testing photo 6b*", , , 4400, 4500) 'TESTING ONLY
End If
'09 september 2003 If Left(os_ver, 10) = "Windows 20" And Len(os_ver) > 15 Then
If Left(os_ver, 10) = "Windows 20" Then
'09 september 2003 Open Cmd(43) For Input As #FileFile
'09 september 2003 Else
'10 September 2003 Open Cmd(8) For Input As #FileFile
End If '30 november 2002

'10 September 2003 Close FileFile
save_line = "17055-1" '16Aug2016 why is this not at line 17055 maybe test fixing this
' testing below explorer
'the P1 option should work for .bmp .jpg and .tif
' tt1 = InputBox("doug testing pics2.2", , , 4400, 4500) 'TESTING ONLY
'iffy 17050
If (InStr(UCase(Cmd(8)), "EXPLORER") <> 0 Or InStr(UCase(Cmd(8)), "NETSCAPE") <> 0) And Test1_str = "P1" Then
' Print "file name="; Pict_file; "="
' tt1 = InputBox("continue", , , 4400, 4500) 'TESTING ONLY
'question? why the reference to explorer only to make
'question? the above p1 option work.
' tt1 = InputBox("doug testing pics2.3", , , 4400, 4500) 'TESTING ONLY
'20 May 2003 Print Pict_file 'there was no need for this meebee
' Heightnew = 10000 'february 16 2001 the new has no effect
' Widthnew = 12000 'february 16 2001
' Height = 9000 'february 16 2001 this changes the size of the form
' Width = 10500 'february 16 2001
'demo the above using the p1 option and any picture

'february 21 2001 Set Picture = LoadPicture(Pict_file)

' P I C T U R E S D I S P L A Y E D B E L O W

'most of the picture displays take place right below here with the load picture **vip**
' tt1 = InputBox("doug testing pics3", , , 4400, 4500) 'TESTING ONLY
If debug_photo Then '12 october 2002
tt1 = InputBox("testing photo 6b** " + tempdata + " " + motion_yn + " " + Pict_file, , , 4400, 4500) 'TESTING ONLY
End If

'29 March 2003 ver=1.04
motion_yn = "NO" '29 March 2003

'28 february 2003 skip dups if there
'handy to see the duplicates if a visual inventory otherwise skip em for most part
'19 September 2004 do Command== stuff here
'21 September 2004 might want to check for command== right after the input line.****************
'might need to keep the zzz_cnt number and on return read 1 past that count ie reopen...
'19 November allow for switch of control files...
'***vip*** todo maybe allow it to change input files here too
' to whatever is in the corresponding fields in cmd(46) cmd(47) cmd(48) etc
eof_entry: '26 November 2004
' tt1 = InputBox("testingy " + aaa + " " + Cmd(73) + " " + TheFile, , , 4400, 4500) 'TESTING ONLY 26 NOvember 2004
III = InStr(UCase(aaa), "CONTROL==") '19 November 2004
If III <> 0 Then
' tt1 = InputBox("testingA " + control_file + " " + aaa + " " + Cmd(73), , , 4400, 4500) 'TESTING ONLY 26 NOvember 2004
control_file = Trim(Right(aaa, Len(aaa) - III - 8)) '19 November 2004
tempdata = Cmd(73) '22 November 2004 the fileswitch info
' control_file = "chgfile.txt" '26 November 2004 testing with this
' frmproj2.Caption = " testing=" + control_file + "=" '26 November 2004
GoSub Control_28000 'change the control file from in a *.txt file
DoEvents
If Left(UCase(tempdata), 10) = "FILESWITCH" Then
Close #OutFile '22 November 2004
DoEvents
OutFile = FreeFile
DoEvents
TheFile = Trim(Cmd(46)) 'Must be a file name here not a number
' SSS1 = "A" '26 November 2004 testing this
' frmproj2.Caption = " testing=" + TheFile + "=" + SSS1 '26 November 2004
' tt1 = InputBox("testingx " + control_file + " " + Cmd(46) + " " + TheFile, , , 4400, 4500) 'TESTING ONLY 26 NOvember 2004
Open TheFile For Input As #OutFile
' tt1 = InputBox("testingx " + control_file + " " + Cmd(46) + " " + TheFile, , , 4400, 4500) 'TESTING ONLY 26 NOvember 2004
DoEvents
'===========================
' frmproj2.Caption = " testingx=" + TheFile + "=" + Test2_str

' tt1 = InputBox("testingX " + control_file + " " + Cmd(47) + " " + TheFile + " " + Cmd(48), , , 4400, 4500) 'TESTING ONLY 26 NOvember 2004
tempdata = "CONTROL" '26 November 2004 allow for skip of prompt three with this
multi_prompt2 = RTrim(Cmd(47)) '26 NOVEMBER 2004
'18 December 2004 the following line did a fix for the file switching...
Cmd(73) = "noFILESWITCH" '18 December 2004 if the new file had FILESWITCH set it would go wild
temptemp = Cmd(48) '26 November 2004 the search string ie "A" or "PHOTO"
If eofsw = "YES" Then
eofsw = ""
ttt = multi_prompt2
End If
GoTo Get_no2 '26 November 2004
'===========================
End If '22 November 2004
' frmproj2.Caption = " testing1x=" + control_file + "=" '26 November 2004
GoTo input_1000a '19 November 2004 so the pause does not take place etc etc.
End If '19 November 2004
If Len(command_line) < 1 Then
command_line = ""
III = InStr(UCase(aaa), " COMMAND==")
If III <> 0 Then
II = InStr(III + 9, aaa + " ", " ") 'make sure there is a trailing space here
command_line = Mid(aaa, III + 10, II - III - 10)
multi_prompt2 = command_line
hold_zzz = zzz_cnt '21 September 2004
' aaa = Left(aaa, III + 1) + Right(aaa, Len(aaa) - II - 1) '21 September 2004
If SSS1 <> "" Then temptemp = SSS1 '02 January 2005
If SSS2 <> "" Then temptemp = temptemp + sep + SSS2 '02 January 2005
If SSS3 <> "" Then temptemp = temptemp + sep + SSS3 '02 January 2005
If SSS4 <> "" Then temptemp = temptemp + sep + SSS4 '02 January 2005
If SSS5 <> "" Then temptemp = temptemp + sep + SSS5 '02 January 2005
If SSS6 <> "" Then temptemp = temptemp + sep + SSS6 '02 January 2005
' tempdata = InputBox("02 January 2005 test=" + temptemp + " " + SSS1 + " " + SSS2 + " " + SSS3, CStr(zzz_cnt), , xx1 - offset1, yy1 - offset2) '29 February 2004 test
tempdata = "COMMAND" '26 November 2004 allow for skip of prompt three with this

'02 January 2005 temptemp = Cmd(48) '26 November 2004
'01 January 2005 the above line results in the search prompt being "photo" change this to keep the old prompt
'ie screen/saver etc etc
GoTo Get_no2
End If '19 September 2004
Else '21 September 2004
' command_line = "" '21 September 2004
End If '21 September 2004
If Pict_file = last_pict And Cmd(54) <> "SHOWDUPS" Then
GoTo Line_17055 '28 february 2003
End If '28 february 2003
'12 September 2004 check if "backgrd==" in the line here and fire up the background job...
'12 September 2004
back_job = ""
save_line = "17055-2" '23Aug2016
III = InStr(UCase(aaa), " BACKGRD==")
If III <> 0 Then
II = InStr(III + 9, aaa + " ", " ") 'make sure there is a trailing space here
back_job = Mid(aaa, III + 10, II - III - 10)
' xtemp = InputBox("12 Sept test=" + App.Path + "\" + back_job, CStr(delay_sec), , xx1 - offset1, yy1 - offset2) '29 February 2004 test
If InStr(1, back_job, ":") = 0 Then
back_job = App.Path + "\" + back_job
End If
'02 October 2004 check the back_job here
' frmproj2.Caption = "before test " + back_job '02 October 2004 testing
' new_delay_sec = 2 '02 October 2004
' GoSub line_30300 '02 October 2004
MyAppID = Shell(back_job, 3)
SendKeys "^o", True
End If '12 September 2004

'05 march 2003 do a mp3 play
' Pict_file = "E:\Dan\mp3_0001.mp3" 'testing only 20 march 2003 commented it out
'11 June 2003 ver=1.07 If InStr(1, UCase(Pict_file), ".MP3") <> 0 Then
' frmproj2.Caption = "30Jun2012a Previous_line=" + Previous_line + " mpg_file=" + mpg_file + " picture_search=" + Picture_Search + " sscreen_saver_ww=" + sscreen_saver_ww
' xtemp = InputBox(" 30Jun2012a testing prompt", , , 4400, 4500) 'TESTING ONLY
' frmproj2.Caption = "30Jun2012a Pict_file=" + Pict_file + " line_search=" + Line_Search
' xtemp = InputBox(" 30Jun2012a testing prompt", , , 4400, 4500) 'TESTING ONLY
save_line = "17055-3" '23Aug2016
If InStr(1, UCase(Pict_file), ".MP3") <> 0 And motion_yn = "xxxx" Then '11 June 2003 deactivated this logic for now
motion_yn = "YES" '29 March 2003
Last$ = frmproj2.hWnd & " Style " & &H40000000
' ToDo$ = "open e:\cottonwood\101-0186_mvi.avi Type avivideo Alias video1 parent " & Last$
todo$ = "open " + Pict_file + " Type MPEGVideo Alias video1 , vbnullstring, 0& ,0& "
tt1 = InputBox("testing mp3 " + Pict_file, , , 4400, 4500) 'TESTING ONLY
i = mciSendString("close video1", 0&, 0, 0)
i = mciSendString(todo$, 0&, 0&, 0&)
' i = mciSendString("put video1 window at -1 -1 " + Cmd(51) + " " + Cmd(52), 0&, 0, 0)
' i = mciSendString("play video1 wait", 0&, 0, 0)
tt1 = InputBox("testing mp3 a" + Pict_file, , , 4400, 4500) 'TESTING ONLY
i = mciSendString("play video1", vbNullString, 0, 0)
i = mciSendString("close video1", 0&, 0, 0)
save_line = "17055-4" '23Aug2016
tt1 = InputBox("testing mp3 b" + Pict_file, , , 4400, 4500) 'TESTING ONLY
GoTo Line_17055
End If '05 March 2003
save_line = "17055-31" '23Aug2016

'19 january 2003 avi file display here
If avi_file = "YES" Then
motion_yn = "YES" '29 March 2003
If videoyn = "SHOWVIDEO" Then '10 february 2003
Last$ = frmproj2.hWnd & " Style " & &H40000000
' ToDo$ = "open e:\cottonwood\101-0186_mvi.avi Type avivideo Alias video1 parent " & Last$
todo$ = "open " + Pict_file + " Type avivideo Alias video1 parent " & Last$
i = mciSendString(todo$, 0&, 0, 0)
' i = mciSendString("put video1 window at 16 10 124 120", 0&, 0, 0)
' i = mciSendString("put video1 window at 16 10 800 600", 0&, 0, 0)
' i = mciSendString("put video1 window at 16 10 " + Cmd(51) + " " + Cmd(52), 0&, 0, 0)
i = mciSendString("put video1 window at -1 -1 " + Cmd(51) + " " + Cmd(52), 0&, 0, 0)
' i = mciSendString("put video1 window at 16 10 1084 800", 0&, 0, 0) 'for 17 inch screen
i = mciSendString("play video1 wait", 0&, 0, 0)
i = mciSendString("close video1", 0&, 0, 0)
'19 january 2003 commented out till ready
End If '10 february 2003
GoTo Line_17055 '01 february 2003
End If '01 february 2003 end of avi_file = "YES"

'11 May 2003 mpg file display here ver=1.05
save_line = "17055-32" '23Aug2016
If mpg_file = "YES" Then
motion_yn = "YES"
slomo = False '08 January 2004
slomo = True '31Dec2011

If videoyn = "SHOWVIDEO" Then
DoEvents '17Jan2012
Last$ = frmproj2.hWnd & " Style " & &H40000000
' ToDo$ = "open e:\cottonwood\101-0186_mvi.avi Type avivideo Alias video1 parent " & Last$
'18 june 2003 re use short name as long ones with spaces cause a problem
'might need to use this elsewhere ***vip*** todo
'17Jan2012 maybe comment out the stuff below trying the other name
'17Jan2012 lresult = getshortpathname(Pict_file, sshortfile, Len(sshortfile))
'17Jan2012 long_pict_file = Pict_file + "" '22 November 2006
'17Jan2012 Pict_file = Left$(sshortfile, lresult) '18 june 2003 needed the short file name
'11Feb2012 try taking out this stuff
lresult = getshortpathname(Pict_file, sshortfile, Len(sshortfile))
long_pict_file = Pict_file + "" '22 November 2006
Pict_file = Left$(sshortfile, lresult) '18 june 2003 needed the short file name check this out 16Aug2016

'17Jan2012 If elapse_yn = "YES" Then elapse_start = Timer '13 July 2003
'17Jan2012 todo$ = "open " + Pict_file + " Type MPEGVideo Alias video1 parent " & Last$
save_line = "17055-33" '23Aug2016
' todo$ = "open " + Pict_file + " Type MPEGVideo Alias video1 parent " & Last$
todo$ = "open " + Pict_file + " Type MPEGVideo Alias video1 wait parent " & Last$ '03Mar2018
save_line = "17055-33a" '28Aug2016
' todo$ = "open " + Pict_file + " Type MPEGVideo Alias video1 wait parent " & Last$ '22Feb2012 test the wait
'11Feb2012 lresult = getshortpathname(Pict_file, sshortfile, Len(sshortfile)) '04Feb2012
'11Feb2012 Pict_file = Left$(sshortfile, lresult) '04Feb2012
'11Feb2012 todo$ = "open " + Pict_file + " Type MPEGVideo Alias video1 wait parent " & Last$
' For II = 1 To 50
' DoEvents
' DoEvents '17Jan2012
' Next II '17Jan2012 maybe this will help giving it some time
'18 March 2004 i = mciSendString("close all", 0&, 0, 0) '17 March 2004 make sure nothing is there.

'12 December 2004 this does not seem to trap any error but microsoft can check out the open command
'17Jan2012 maybe this is the error if I hit enter before the file starts it seems OK what the hey
'14Apr2012 frmproj2.Caption = "(Error Opening Video File)1 " + Save_file '12 December 2004 bad files stop here....
frmproj2.Caption = "(Opening mpeg File1) " + Save_file '12 December 2004 bad files stop here....
' Timer1.Enabled = True '13 December 2004
' Timer1.Enabled = False '13 December 2004
' Timer1_Timer '13 December 2004 all the timer
' i = mciSendString(todo$, 0&, 0, 0) 'open command
'28Jan2012 need to skip the open here if continueyn = "Y"
'30Jan2012
' testtest = " delay_sec=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testtest = InputBox("continueyn= " + continueyn + testtest, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
If pauseyn <> "Y" And continueyn <> "Y" Then
i = mciSendString("close video1", 0&, 0, 0)
' pauseyn = "N"
' hold_pauseyn = ""
End If '25Mar2012
'20Feb2018a test prompt here...
' tt1 = InputBox("test03Mar2018b=" + xtemp + "=" + " before video len call " + " " + CStr(errormsg1), , , 4400, 4500) '20Feb2018
If continueyn = "Y" Then GoTo no_open '28Jan2012
save_line = "17055-34" '23Aug2016
result1 = mciSendString(todo$, returnstring1, 1024, 0) '12 December 2004a
save_line = "17055-35" '23Aug2016
If Not result1 = 0 Then
errormsg1 = mciGetErrorString(result1, errorstring1, 1024) '12 December 2004a
frmproj2.Caption = " err =" + CStr(result1) + " at " + save_line + " opening video file 3" + Save_file + " " + errorstring1 '12 December 2004
End If '03Mar2018 display any error
' tt1 = InputBox("test03Mar2018b=" + xtemp + "=" + " after open video call " + " " + CStr(result1), , , 4400, 4500) '20Feb2018
'10Feb2012 testing only below This group of 11Feb2012 displays were used to debug the fast forward option
'20Feb2018 check this out maybe
'***vip*** just comment them out and use at another time it seems the laptop needs more play time to work than the pc
' testing = "video_audit1=" + mpg_file + " returnstring1=" + returnstring1 + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
' frmproj2.Caption = "check the alias =" + video1 '12 December 2004
' new_delay_sec = 2
' GoSub line_30300 '13 December 2004
' Timer1.Enabled = False '13 December 2004
' Timer1.Enabled = True '13 December 2004
' On Error GoTo 0 '12 December 2004a
DoEvents
'13 December 2004 try and put the following command in a timer
'13 December 2004 result = mciSendString(todo$, ByVal 0&, 0, 0) '12 December 2004a
' xtemp = InputBox("13 December 2004 test erro test=", CStr(delay_sec), , xx1 - offset1, yy1 - offset2) '29 February 2004 test
'14Apr2012 frmproj2.Caption = "error opening video file2 =" '12 December 2004
frmproj2.Caption = "opening video file2 =" '12 December 2004
DoEvents
' tt1 = InputBox("test03Mar2018c=" + xtemp + "=" + CStr(video_length) + " " + CStr(errormsg1), , , 4400, 4500) '20Feb2018
If Not result1 = 0 Then
errormsg1 = mciGetErrorString(result1, errorstring1, 1024) '12 December 2004a
frmproj2.Caption = " err =" + CStr(result1) + " at " + save_line + " opening video file 3" + Save_file + " " + errorstring1 '12 December 2004
' new_delay_sec = 2 '12Aug2016 no need for this delay
'12Aug2016 GoSub line_30300 '13 December 2004
' new_delay_sec = 2 '12Aug2016 no need for this delay
' GoSub line_30300 '13 December 2004
save_line = "17055-35" '23Aug2016
If (result1 = 277 Or result1 = 263) And copy_photo = "YES" And Left(save_line, 5) = "17055" Then
'need to switch the output file right here badmp3 is captured here
photo_dir = badmp3_fold '12Aug2016
' GoTo line_2153 '25Aug2016
' new_delay_sec = 2 '12Aug2016 no need for this delay
' GoSub line_30300 '13 December 2004
GoTo no_open '25Aug2016
End If '12Aug2016
GoTo input_1000 '12 December 2004
End If '12 December 2004
' On Error GoTo Errors_31000 '12 December 2004a
save_line = "17055-36" '23Aug2016
i = mciSendString("put video1 window at -1 -1 " + Cmd(51) + " " + Cmd(52), 0&, 0, 0)
save_line = "17055-37" '23Aug2016
'23Mar2012 testing only below
' testing = "video_audit2=" + mpg_file + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
no_open: '28Jan2012
'28Jan2012 maybe skip to here if continueyn = "Y"
'26 April 2004 try and start getting output data
' i = mciSendString("set video2 channels 1 ", 0&, 0, 0) 'new
'todo$ = "open new c:\search\outmpg.mpg" + " Type MPEGVideo Alias video2 parent " & Last$
'i = mciSendString(todo$, 0&, 0, 0)
' i = mciSendString("video2 video record", 0&, 0, 0) '26 February 2004
'26 April 2004

'26 February 2004 find the length of the video file here
'01 April 2004 i = mciSendString("status video1 length", mssg, 255, 0) '26 February 2004
'19 August 2004 try and mute the video if not full speed
'the following mute made no difference.
'the slow speed seems to mute it somewhat by itself.
If slomo = True Then
'17Jan2012 could be something here that needs doing
'31Dec2011 deactivate the mute for now i = mciSendString("set video1 audio all off", 0&, 0, 0)
' SendKeys "^c" '01 March 2007 check this out more
' i = mciSendString("set video1 audio right off", 0&, 0, 0)
' i = mciSendString("set video1 audio left off", 0&, 0, 0)
End If '19 August 2004 try to mute video if slomo
'***vip*** need to see why this logic below does not work too well skipping the open is important for fast forward etc
'20Feb2012 If continueyn = "Y" Or hold_pauseyn = "Y" Then GoTo no_lenreqd '20Feb2012
If continueyn = "Y" Then GoTo no_lenreqd '20Feb2012
'20feb2012 If (continueyn = "Y" And save_play_speed = 1000) Or (pauseyn = "Y" And save_play_speed = 1000) Then GoTo no_lenreqd '18Feb2012
' If Not rand1 Then GoTo no_lenreqd '11Feb2012
'12 December 2004 maybe the video stops here...
save_line = "17055-wait" '20Feb2018a
frmproj2.Caption = "(Finding Video length)" '12 December 2004
get_lenagain: '20Feb2018
i = mciSendString("status video1 length wait", mssg, 255, 0) '26 February 2004
' i = mciSendString("status video1 length ", mssg, 255, 0) '20Feb2018a

' i = mciSendString("status video1 length wait", mssg, 255, 0) '20Feb2018 tried multiples of this line no workie nope...
hold_len = mssg + "" '20Feb2012
temp3 = InStr(mssg, Chr$(0)) '26 February 2004
video_length = Val(Left(mssg, temp3 - 1)) '26 February 2004
If Not i = 0 Then
errormsg1 = mciGetErrorString(i, errorstring1, 1024) '20Feb2018
frmproj2.Caption = " err =" + CStr(result1) + " at " + save_line + " opening video file 3" + Save_file + " " + errorstring1 '12 December 2004
End If '20Feb2017
' If debug_photo = True Then
' tt1 = InputBox("test20Feb2018=" + xtemp + "=" + CStr(video_length) + " " + CStr(errormsg1), , , 4400, 4500) '20Feb2018a
' End If '20Feb2018a
' tt1 = InputBox("test20Feb2018x=" + xtemp + "=" + CStr(video_length) + " " + CStr(errormsg1), , , 4400, 4500) '20Feb2018
If tt1 = "x" Then GoTo get_lenagain '20Feb2018a
no_lenreqd: '20feb2012
mssg = hold_len + "" '20Feb2012
temp3 = InStr(mssg, Chr$(0)) '26 February 2004
video_length = Val(Left(mssg, temp3 - 1)) '26 February 2004
' video_length = 262260 '20Feb2018 see if forcing it works (nope)
' tt1 = InputBox("test20Feb2018=" + xtemp + "=" + CStr(video_length), , , 4400, 4500) '20Feb2018
'22Nov2010
If delay_sec < 0# Then
delay_sec = video_length / 1000 + delay_sec
line_delay_sec = delay_sec
' tt1 = InputBox("testing#2=" + xtemp + "=" + CStr(delay_sec), , , 4400, 4500) '21Jan2012
End If '22Nov2010
'25Jun2010 see video_length above need that less the 3 seconds to determine start== value
'23 March 2004 do random start point here
'28 March 2004 some files have bad size data ie demo76_pict6.mpg
'20Feb2018 video_length = 262260
If video_length > 50000000 Then '28 March 2004 ie the value is 19431083 ??
frmproj2.Caption = "(Bad Video length=" + CStr(video_length) + ")" '28 March 2004
new_delay_sec = 4
GoSub line_30300 '28 March 2004
video_length = 10000 'on a bad number set to 10 seconds long
End If '28 March 2004
If rand1 Then
rand_cnt1 = video_length - (hold_sec * 1000) '23 March 2004
rand_no1 = Int(rand_cnt1 * Rnd + 1) '23 March 2004
line_start_point = rand_no1 '23 March 2004
check_l_s_p: '27 March 2004
If line_start_point > 300000 Then
line_start_point = line_start_point - 300000
GoTo check_l_s_p
End If '27 March 2004
keep_line_start_point = line_start_point '25Jan2012
keep_begin_point = line_start_point '25Jan2012
begin_point = line_start_point '25Jan2012

' testtest = resume_str + "mpg_file=" + mpg_file + " picture_search=" + Picture_Search + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " picture_search=" + Picture_Search + " line_start_point=" + CStr(line_start_point) + " begin_point=" + CStr(begin_point) + " keep_line_start_point=" + CStr(keep_line_start_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " delay_sec=" + CStr(delay_sec) + " " '08Nov2011 teststring
' Test2_str = InputBox("testing for thumb_nail= " + thumb_nail + " " + testtest, "Interrupt Prompt # 0 " + CStr(dsp_cnt) + " " + save_line, , 4000, 5000) '
'27 March 2004 jumping to the middle of large files takes too line
'this limits that to the first 5 minutes and that is plenty.

End If '23 March 2004

'29 February 2004 leap year extra day
'14 March 2004 do not allow the delay to be longer than the file below ie 83/3/7 example
' xtemp = InputBox("24 March 2004 test length=" + CStr(video_length) + " " + CStr(line_delay_sec) + " " + CStr(line_start_point), CStr(delay_sec), , xx1 - offset1, yy1 - offset2) '29 February 2004 test
' If thumb_nail = "YES" Then line_delay_sec = hold_sec '22 March 2004
If thumb_nail = "YES" Then
line_delay_sec = hold_sec '25Jan2012
keep_line_delay_sec = hold_sec '25Jan2012
End If '25Jan2012
'25Jan2012
' testtest = resume_str + "mpg_file=" + mpg_file + " picture_search=" + Picture_Search + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " picture_search=" + Picture_Search + " line_start_point=" + CStr(line_start_point) + " begin_point=" + CStr(begin_point) + " keep_line_start_point=" + CStr(keep_line_start_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " delay_sec=" + CStr(delay_sec) + " " '08Nov2011 teststring
' Test2_str = InputBox("testing for thumb_nail= " + thumb_nail + " " + testtest, "Interrupt Prompt # 0 " + CStr(dsp_cnt) + " " + save_line, , 4000, 5000) '
'25 October 2004 remove the link from line_delay_sec below add new command element
'so the short small tiny video file length will now display (ie tt.01) FIXES
'how did line_start_point below ever go negative ????
If line_start_point < -0.5 Then line_start_point = video_length + line_start_point '25Jun2010
If line_start_point < 0# Then line_start_point = 10 '25 October 2004 this did the fix on the short ones.
'25Jun2010 might want to check the line below for the very short vids???
'25Jun2010 comment this out If line_start_point < 9.0001 Then line_start_point = 10 '11 March 2007
' xtemp = InputBox("25 oct test video_length=" + CStr(video_length), CStr(line_delay_sec), , xx1 - offset1, yy1 - offset2) '29 February 2004 test
'11 March 2007 If start_point <> 0 And rand1 <> -1 Then
If start_point <> 10 And rand1 <> -1 Then
line_start_point = start_point '20 August 2005
End If
If line_delay_sec * 1000 + line_start_point > video_length - 100 Then
'20 August 2005 line_delay_sec = 0 '14 March 2004
line_start_point = video_length - line_delay_sec * 1000 '20 August 2005
' xtemp = InputBox("20 August 2005 line_delay_sec=" + CStr(line_delay_sec) + " " + CStr(line_start_point), CStr(delay_sec), , xx1 - offset1, yy1 - offset2) '29 February 2004 test
End If
If line_delay_sec < 0.0001 Then
line_delay_sec = (video_length - line_start_point) / 1000
' xtemp = InputBox("25 oct line_delay_sec=" + CStr(line_delay_sec) + " " + CStr(line_start_point), CStr(delay_sec), , xx1 - offset1, yy1 - offset2) '29 February 2004 test
delay_sec = line_delay_sec
End If '29 February 2004 now that I have the length use it.
If line_delay_sec > delay_sec Then
delay_sec = line_delay_sec
End If
last_vs = 0 '25 March 2004
' xtemp = InputBox("length=", CStr(video_length), , xx1 - offset1, yy1 - offset2) '26 February 2004 test
' If delay_sec = 11111 Then delay_sec = video_length / 1000 '21Jan2012
'25Jan2012
If thumb_nail = "YES" Then
delay_sec = hold_sec '25Jan2012
End If '25Jan2012
If delay_sec = 11111 Then
delay_sec = video_length / 1000 '23Jan2012
line_delay_sec = delay_sec '23Jan2012
temp_double = delay_sec
End If '23Jan2012
' testtest = CStr(temp_double) + " " + CStr(line_delay_sec) + " " + CStr(video_length) + " delay_secY=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '21Jan2012 teststring
' testtest = InputBox("check delay_sec info XX " + testtest, "get files ", , xx1 - offset1, yy1 - offset2) '21Jan2012
' testtest = CStr(video_length) + " delay_sec1=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '21Jan2012 teststring
' testtest = InputBox("check delay_sec info " + testtest, "get files ", , xx1 - offset1, yy1 - offset2) '21Jan2012

' start_point = 5000 'testing 16 july 2003 see if it works here first
'16 July 2003 (why just mp3 do both) -deactivated- If InStr(UCase(Line_Search), ".MP3") <> 0 Then
If InStr(UCase(Line_Search), ".MPx") <> 0 Then
i = mciSendString("set mp3 time format trnsf", 0&, 0, 0)
'18 june 2003 testing
' i = mciSendString("play " & Pict_file, 0&, 0&, 0&)
'16 July 2003 i = mciSendString("play video1 to 10000000", 0&, 0&, 0&)
i = mciSendString("play video1 from " + CStr(start_point), 0&, 0&, 0&)
'see about changing the above with start= and end= data
' mediaplayer1.Open Pict_file
' i = mciSendString("play video1 from 0 to 111111", 0&, 0&, 0&)
End If '11 june 2003 ver=1.07
'20Feb2012 no_lenreqd: '11Feb2012

'********************
'14 July 2003 this is where a wait nowait check needs to be done below (see notify / wait options)
' i = mciSendString("play video1 wait", 0&, 0, 0) 'this is where the display happens
temp_double = start_point '19 July 2003 Ver=1.07T
' play_speed = 150 '29 October 2003 (move this later)
'30 October de-activate the speed command below It seems to work on the laptop
' but freezes the other two big screens set it to 500 for half and 1000 for full speed
' The search.txt file gets corrupted and needs replacing 30 October 2003
' the control.txt file gets corrupted needs some additional spaces? 30 October 2003
slomo = False '08 January 2004
slomo = True '31Dec2011
' frmproj2.Caption = program_info + " Video File= " + Save_file '15 January 2004
' frmproj2.Caption = program_info + " Video info= " + vvv '16 January 2004
'20 January 2004 minor changes here
II = InStr(1, vvv, "PHOTO ")
temptemp = vvv
If II <> 0 Then
temptemp = Left(vvv, II - 1) + Right(vvv, Len(vvv) - (II + 6 - 1)) 'strip off "photo "
End If
'
'16 August 2004 frmproj2.Caption = LCase(temptemp) + " (Replay by Spectate Swamp)" '17 January 2004
' frmproj2.Caption = LCase(temptemp) + " (Replay by Spectate Swamp) length=" + CStr(video_length / 1000) + " seconds" '16 August 2004
frmproj2.Caption = LCase(temptemp) + Trim(Cmd(79)) + " len=" + CStr(video_length / 1000) + " seconds" '11Jun2010 new element #79
'10 August 2010 over-ride the element 79 usage change this info when issuing a new copy to a golf course for their use etc
frmproj2.Caption = LCase(temptemp) + " " + rand_str + " (By Spectate Swamp) len=" + CStr(video_length / 1000) + " secs" '16 August 2004
If Left(Cmd(72), 11) = "RESULTS.TXT" Then '08 November 2004
frmproj2.Caption = LCase(temptemp) + " (Logging to RESULTS.TXT Spectate Swamp) length=" + CStr(video_length / 1000) + " seconds" '16 August 2004
End If '08 November 2004
' frmproj2.Caption = " Line_Search=" + Line_Search '08 November 2004 is the xxx. stuff for output
If Left(UCase(Cmd(61)), 8) = "SETSPEED" Then
If play_speed <> 1000 Then
'08 January 2004 delay_sec = delay_sec * ((1000 / play_speed) + 1) '04 November 2003 if slower make dalay longer
slomo = True '08 January 2004 14 January 2004 moved 1 line up inside of the if ??
' keep_slomo = True '08Nov2011??
' i = mci_setaudio(video1, 0, 0) '29 February 2004
' might need a combination of mci_setaudio and mcisendcommand todo ***vip***
End If 'add the 1 above just to extend the play a bit
'08 January 2004 set speed slow motion removed i = mciSendString("set video1 speed " & play_speed, 0&, 0, 0) '29 October 2003
End If '30 October 2003 switch on and off
'16 November 2003 set play_speed back to command file value
'14 January 2004 what is with the resetting here maybe too early..
'moved down play_speed = save_play_speed '16 November 2003
'
'08 November 2004 open access append then immediately close the file. here. results.txt open for output
'as well make a change to the heading above re the results.txt file logging info.
' frmproj2.Caption = " TheFile=" + TheFile '08 November 2004 testing Just need "xxx." put in front here.
' it sort of hangs if the logging is on and i am using it as input. this just makes sure. i did it first time
If UCase(Left(Cmd(72), 11)) = "RESULTS.TXT" And UCase(Trim(TheFile)) <> "RESULTS.TXT" Then '08 November 2004
' frmproj2.Caption = " ooo1=" + ooo '08 November 2004 testing Just need "xxx." put in front here.
ResultFile = FreeFile '08 November 2004
Open "RESULTS.TXT" For Append Access Write As #ResultFile '08 November 2004 do this if RESULTS.TXT IN Cmd(72)
Print #ResultFile, LTrim(ccc) '08 November 2004 this is the PHOTO stuff
Print #ResultFile, Line_Search '08 November 2004 this is the xxx. stuff
Close ResultFile '08 November 2004
'then do a print / write then a close on that file
End If '08 November 2004
'11 March 2007 If line_start_point <> 0 Then temp_double = line_start_point '19 July 2003 Ver=1.07T
' testtest = CStr(temp_double) + " " + CStr(line_delay_sec) + " " + CStr(video_length) + " delay_secY=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '21Jan2012 teststring
' testtest = InputBox("check delay_sec info XX1 " + testtest, "get files ", , xx1 - offset1, yy1 - offset2) '21Jan2012
line_start_point = keep_line_start_point '23Jan2012 somehow this is the fix......
If line_start_point <> 10 Then temp_double = line_start_point '19 July 2003 Ver=1.07T
'19 July 2003 If Left(UCase(Cmd(59)), 4) <> "WAIT" Or thumb_nail = "YES" Then
'18 August 2003 If thumb_nail = "YES" Or line_delay_sec > 0 Then
' testtest = CStr(temp_double) + " " + CStr(line_delay_sec) + " " + CStr(video_length) + " delay_secY=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '21Jan2012 teststring
' testtest = InputBox("check delay_sec info XX2 " + testtest, "get files ", , xx1 - offset1, yy1 - offset2) '21Jan2012
If delay_sec = 11111 Then
delay_sec = video_length / 1000 '21Jan2012
line_delay_sec = delay_sec
begin = "YES" '23Jan2012 changed from YES
temp_double = 10 '23Jan2012
End If '21Jan2012
'23Jan2012
If thumb_nail = "YES" Or InStr(aaa, "THUMB==") <> 0 Or line_delay_sec > 0 Then
' If thumb_nail = "YES" Then
' i = mciSendString("close video1", 0&, 0, 0) '14 july 2003 moved from a few lines below
' testtest = CStr(temp_double) + " " + CStr(line_delay_sec) + " " + CStr(video_length) + " delay_secY=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '21Jan2012 teststring
' testtest = InputBox("check delay_sec info XX3 " + testtest, "get files ", , xx1 - offset1, yy1 - offset2) '21Jan2012
If temp_double > 1 Then
'12 december 2004 test only frmproj2.Caption = " Video to Start at " + CStr(temp_double) + " delay=" + CStr(line_delay_sec) '12 December 2004 testing
'testing to see what happens on the DVD with no read maybe a wait will fix it.????
'12 December 2004 i = mciSendString("play video1 from " + CStr(temp_double), 0&, 0, 0) 'this is where the display happens
' testtest = "begin=" + begin + " " + CStr(temp_double) + " " + CStr(begin_point) + " " + CStr(video_length) + " delay_secX=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '21Jan2012 teststring
' testtest = InputBox("check delay_sec info YY " + testtest, "get files ", , xx1 - offset1, yy1 - offset2) '21Jan2012
If begin = "YES" Then temp_double = 0 '15Sep2011
If begin_point <> 0 Then temp_double = begin_point '20Sep2011
' testtest = CStr(temp_double) + " " + CStr(line_delay_sec) + " " + CStr(video_length) + " delay_secX=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '21Jan2012 teststring
' testtest = "begin=" + begin + " temp_double=" + CStr(temp_double)
If Left(Cmd(75), 9) = "VIDEOSTOP" Then '12 December 2004
'12Feb2012
' temp_double = keep_line_start_point '12Feb2012
' testing = "mpg_file11.5=" + mpg_file + " " + CStr(temp_double) + " " + Left(mssg, 10) + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + CStr(temp_double), "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
' DoEvents '12feb2012
i = mciSendString("play video1 from " + CStr(temp_double), 0&, 0, 0) 'this is where the display happens
'23Jan2013 try here
If debug_photo Then '23Jan2013
'Print "testing 24Jan2013 only"
' i = mciSendString("pause video1", 0&, 0, 0) '24Jan2013
' i = mciSendString("stop video1", 0&, 0, 0) '24Jan2013
' i = mciSendString("close video1", 0&, 0, 0) '24Jan2013
' SetFocus '24Jan2013
'Print "testing 24Jan2013 only"
tt1 = InputBox("testing photo 7b " + Pict_file, , , 4400, 4500) 'TESTING ONLY
End If
' i = mciSendString("pause video1", 0&, 0, 0) '24Jan2013
' Print "testing 24Jan2013"
' DoEvents '12feb2012
' DoEvents '12feb2012
' DoEvents '12feb2012
' DoEvents '12feb2012
' DoEvents '12feb2012
' i = mciSendString("status video1 mode", mssg, 255, 0) '12feb2012 see if another call fixes it
'12Feb2012
' temp_double = keep_line_start_point '12Feb2012
' testing = "mpg_file11.5=" + mpg_file + " " + CStr(temp_double) + " " + Left(mssg, 10) + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
'10feb2012 see what is happening here with this set below the video runs complete
' testing = "mpg_file15=" + mpg_file + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
Else
End If '12 December 2004
Else
'testtest = CStr(temp_double) + " " + CStr(line_delay_sec) + " " + CStr(video_length) + " delay_secX1=" + CStr(delay_sec) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '21Jan2012 teststring
' testtest = "begin=" + begin + " temp_double=" + CStr(temp_double)
i = mciSendString("play video1", 0&, 0, 0) 'this is where the display happens play video ***vip***
End If
' xtemp = InputBox(" 24 March 2004 nowait test", "testing Prompt " + CStr(line_start_point) + " " + CStr(delay_sec) + " " + CStr(line_delay_sec), , xx1 - offset1, yy1 - offset2) '14 july 2003 test

GoSub line_30000 'do a delay test
Else
' xtemp = InputBox(" nowait test", "testing Prompt ", , xx1 - offset1, yy1 - offset2) '14 july 2003 test
'18 March 2004 need to trap any errors on the start of videos here
' i = mciSendString("close all wait", 0&, 0, 0) '17 March 2004 make sure nothing is there..
' i = mciSendString(todo$, 0&, 0, 0)
On Error GoTo trap2 '18 March 2004
DoEvents '18 March 2004
If temp_double > 1 Then
'16 March 2004 i = mciSendString("play video1 from " + CStr(temp_double) + " wait", 0&, 0, 0) 'this is where the display happens (noWAIT)
'16 March 2004 This is where the video plays displays shows etc ***vip***
' testing = "mpg_file1.1=" + mpg_file + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
i = mciSendString("play video1 from " + CStr(temp_double), 0&, 0, 0) 'this is where the display happens (noWAIT)
' i = mciSendString("play video1 from " + CStr(temp_double) + " wait", 0&, 0, 0) 'this is where the display happens (noWAIT)
End If '18 March 2004
'14 March 2004 I think the wait change above was a major factor in getting the video playback not to bomb out
'14 March 2004 i = mciSendString("play video1 from " + CStr(temp_double), 0&, 0, 0) '08 March 2004
'18 March 2004 Else
'09 september 2003 windows 2000 service pack 1 / windows xp has problems here
' xtemp = InputBox(" test 6bb", "testing Prompt ", , xx1 - offset1, yy1 - offset2) '09 september 2003 test

'***the following logic never seems to get executed the start is always 10 or greater
If temp_double <= 1 Then
' i = mciSendString("play video1 wait", 0&, 0, 0) 'this is where the display happens (noWAIT)
' testing = "mpg_file1.2=" + mpg_file + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
i = mciSendString("play video1", 0&, 0, 0) 'this is where the display happens (noWAIT)
' xtemp = InputBox(" test 6bbb", "testing Prompt ", , xx1 - offset1, yy1 - offset2) '09 september 2003 test
End If
GoTo past_trap2 '17 March 2004
trap2: '17 March 2004
Resume past_trap2
xtemp = InputBox("trap2 error", CStr(video_length), , xx1 - offset1, yy1 - offset2) '17 March 2004
new_delay_sec = 5.5
GoSub line_30300 '18 March 2004
past_trap2: '18 March 2004
DoEvents '18 March 2004
On Error GoTo Errors_31000 '18 March 2004
DoEvents '18 March 2004
'18 March 2004

End If '14 July 2003
play_speed = save_play_speed '16 November 2003 14 January 2004 moved down to here
'24 September 2003
' GoSub line_30000 '24 September 2003 test this
'24 September 2003 freeze

'26 February 2004 for the freeze of a video do not use the line_30000 routine???
' because we are doing stops and starts that surely won"t work

i = mciSendString("pause video1", 0&, 0, 0) '14 March 2004 video playing displaying at this point ***vip***
'10Feb2012 testing only below
' testing = "video_audit3=" + mpg_file + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
DoEvents '14 March 2004
If Line_freeze_sec <> 0 Then
new_delay_sec = Line_freeze_sec
'need a mcisendstring that will do a stop eg below
DoEvents '05 March 2004
'29 February 2004
'17 March 2004 activate the lines below re the position
'19 March 2004 get the position anyway
'20 March 2004
If slomo = False Then '20 March 2004
'20 March 2004 If Len(Trim(tempdata)) < 1 Then
i = mciSendString("status video1 position", vs, 255, 0) '29 February 2004
temp3 = InStr(vs, Chr$(0)) '19 March 2004
temp11 = Val(Left(vs, temp3 - 1)) '19 March 2004
tempdata = CStr(temp11) '19 March 2004
End If '19 March 2004
DoEvents '09 March 2004
'14 March 2004 i = mciSendString("stop video1", 0&, 0, 0) '09 March 2004
' i = mciSendString("pause video1", 0&, 0, 0) '05 March 2004
DoEvents '06 March 2004
If Len(tempdata) < 1 Then
frmproj2.Caption = LCase(temptemp) + "(Video length=" + CStr(video_length) + ")" '29 Fe
Else
frmproj2.Caption = LCase(temptemp) + "(Freeze at " + tempdata + " of " + CStr(video_length) + ")" '29 February 2004
End If '17 March 2004
tempdata = "" '18 March 2004
'17 March 2004 frmproj2.Caption = LCase(temptemp) + "(Freeze)" '15 March 2004
'26 February 2004 GoSub line_30000 '24 September 2003
GoSub line_30300 '26 February
DoEvents '09 March 2004
'dougdoughere maybe comment out below
'11 March 2004 i = mciSendString("resume video1", 0&, 0, 0) '09 March 2004
DoEvents '09 March 2004
GoTo line_17053 '01 October 2003
End If '24 September 2003
'01 October 2003
If freeze_sec <> 0 Then
new_delay_sec = freeze_sec
'need a mcisendstring that will do a stop eg below
DoEvents '09 March 2004
'15 March 2004 somehow by removing the position call below seems to eliminate a major crash
'17 March 2004 activate the position stuff below
'17 March 2004 temp i = mciSendString("status video1 position", vs, 255, 0) '29 February 2004
'17 March 2004 temp tempdata = CStr(Val(vs)) '26 February 2004
'20 March 2004
If slomo = False Then '20 March 2004
'20 March 2004 If Len(Trim(tempdata)) < 1 Then
i = mciSendString("status video1 position", vs, 255, 0) '29 February 2004
temp3 = InStr(vs, Chr$(0)) '19 March 2004
temp11 = Val(Left(vs, temp3 - 1)) '19 March 2004
tempdata = CStr(temp11) '19 March 2004
End If '19 March 2004
DoEvents '06 March 2004
'14 March 2004 i = mciSendString("stop video1", 0&, 0, 0) '09 March 2004
' i = mciSendString("pause video1", 0&, 0, 0) '05 March 2004
If tempdata = "" Then
frmproj2.Caption = LCase(temptemp) + "(Video length=" + CStr(video_length) + ")" '29 Fe
Else
'28Jan2012 frmproj2.Caption = LCase(temptemp) + "(Freeze at " + tempdata + " of " + CStr(video_length) + ")" '29 February 2004
'31Jan2012 let cmd(60) control this If pauseyn = "Y" Then new_delay_sec = 0 '28Jan2012
frmproj2.Caption = LCase(temptemp) + " secs== " + CStr(freeze_sec) + " (Freeze at " + tempdata + " of " + CStr(video_length) + ")" '29 February 2004
End If '17 March 2004
' frmproj2.Caption = LCase(temptemp) + "(Freeze)" '15 March 2004
'26 February 2004 GoSub line_30000 '24 September 2003
GoSub line_30300 '26 February
' xtemp = InputBox(" test freeze= " + Format(Line_freeze_sec, "###0.000"), "testing Prompt ", , xx1 - offset1, yy1 - offset2)
DoEvents '09 March 2004
' GoTo line_17053 '01 October 2003
'dougdoughere maybe comment out below
'11 March 2004 i = mciSendString("resume video1", 0&, 0, 0) '09 March 2004
DoEvents '09 March 2004
End If '01 October 2003

line_17053: '01 October 2003
i = mciSendString("stop all", 0&, 0, 0) '14 March 2004
'10Feb2012 testing only below
' testing = "video_audit4=" + mpg_file + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
DoEvents '14 March 2004

'01 March 2004 check status here before continuing...
' i = mciSendString("status video1 position", vs, 255, 0) '01 March 2004
' i = mciSendString("status video1 length", mssg, 255, 0) '01 March 2004
'06 March 2004 check out the ready status here first..
DoEvents '06 March 2004
i = mciSendString("status video1 ready", temps, 12, 0) '06 March 2004
'10Feb2012 testing only below
' testing = "video_audit5=" + mpg_file + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
DoEvents '06 March 2004
i = mciSendString("status video1 mode", mssg, 255, 0) '01 March 2004
'10Feb2012 testing only below
' testing = "video_audit6=" + mpg_file + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
DoEvents '06 March 2004
frmproj2.Caption = "hey 2 " + Left(temps, 4) + " " + Left(mssg, 5) '09 March 2004
DoEvents '06 March 2004
' End If
'dougheredoughere
If Left(UCase(mssg), 7) = "STOPPED" Then
DoEvents '05 March 2004
frmproj2.Caption = "hey 2a " + Left(temps, 4) + " " + Left(mssg, 5) '09 March 2004
DoEvents '06 March 2004
GoTo line_17054 '11 March 2004
End If '05 March 2004

If Left(UCase(mssg), 7) = "PLAYING" Then
DoEvents '05 March 2004
'dougheredoughere
'11 March 2003 i = mciSendString("pause video1", 0&, 0, 0) '05 March 2004
' i = mciSendString("stop video1", 0&, 0, 0) '09 March 2004
DoEvents '05 March 2004
' i = mciSendString("close video1", 0&, 0, 0) '14 july 2003 moved from a few lines below
DoEvents '11 March 2004
frmproj2.Caption = "hey 3 " + Left(temps, 4) + " " + Left(mssg, 5) '11 March 2004
DoEvents '11 March 2004
GoTo line_17054 '11 March 2004
End If '02 March 2004 added the if statement around the mcisendstring above

If Left(UCase(mssg), 6) = "PAUSED" Then
' i = mciSendString("close video1", 0&, 0, 0) '06 March 2004
frmproj2.Caption = "hey 4 " + Left(temps, 4) + " " + Left(mssg, 5) '11 March 2004
DoEvents '11 March 2004
GoTo line_17054 '11 March 2004
End If '06 March 2004

frmproj2.Caption = "hey 5 " + Left(mssg, 5) + " " + Left(temps, 5) '11 March 2004
GoTo line_17054a '11 March 2004
line_17054: '11 March 2004
frmproj2.Caption = "hey 6 " + Left(mssg, 5) + " " + Left(temps, 5) '11 March 2004
line_17054a: '11 March 2004
'dougdoughere uncomment out below
' i = mciSendString("close video1", 0&, 0, 0) '09 March 2004
'28Jan2012 might want to skip the below statement if pauseyn = "Y"
If pauseyn = "Y" Then GoTo no_close '28Jan2012
i = mciSendString("close video1", 0&, 0, 0) '05 April 2004
'16 March 2004 i = mciSendString("close all wait", 0&, 0, 0) '14 March 2004
no_close: '28Jan2012
pauseyn = hold_pauseyn '25Mar2012
On Error GoTo close_error
next_close_error: '16 March 2004
DoEvents
' new_delay_sec = 0.1 '18 March 2004
' GoSub line_30300 '18 March 2004 maybe the delay will fix the problem
'do a pause here 18 March 2004
'04 April 2004 i = mciSendString("close all", 0&, 0, 0) '14 March 2004
frmproj2.Caption = "hey 6a " + Left(mssg, 5) + " " + Left(temps, 5) '11 March 2004
' new_delay_sec = 0.1 '18 March 2004
' GoSub line_30300 '18 March 2004 maybe the delay will fix the problem
'do a pause here 18 March 2004
DoEvents '11 March 2004
On Error GoTo Errors_31000 '16 March 2004
' Set colReminderPages = Nothing 'release memory?? 16 March 2004
GoTo past_close_error '16 March 2004
close_error: '16 March 2004
' On Error GoTo Errors_31000 '16 March 2004
' i = mciSendString("status video1 mode", mssg, 255, 0) '16 March 2004
Resume close_error_1 '16 March 2004 clear the error raised by the close
close_error_1:
DoEvents '16 March 2004
new_delay_sec = 5.5
GoSub line_30300 '16 March 2004 maybe the delay will fix the problem
frmproj2.Caption = LCase(temptemp) + Left(mssg, 4) + " (Close Error)" + CStr(line_start_point + (line_delay_sec * 1000)) + " > " + CStr(vs) '26 February 2004
new_delay_sec = 5.5
GoSub line_30300 '16 March 2004 maybe the delay will fix the problem
'do a pause here
GoTo next_close_error '16 March 2004
past_close_error:
' new_delay_sec = 0.1 '16 March 2004 it may still be over-running here and maybe not
' '16 March 2004 may want to test without some time.
' GoSub line_30300 '16 March 2004 maybe the delay will fix the problem
DoEvents '11 March 2004
frmproj2.Caption = "hey 7 " + Left(mssg, 5) + " " + CStr(array_pos) ' + Left(temptemp, 15) '11 March 2004
' old_line = temptemp + "" '31 March 2004
On Error GoTo Errors_31000 '18 March 2004 just to make sure it is set back...
' xtemp = InputBox(" 05 March 2004 test ", "testing Prompt ", , xx1 - offset1, yy1 - offset2)
'14 july 2003 i = mciSendString("close video1", 0&, 0, 0)
If elapse_yn = "YES" Then
elapse_end = Timer '13 July 2003
xtemp = InputBox(" elapse= " + Format(elapse_end - elapse_start, "###0.000"), "testing Prompt ", , xx1 - offset1, yy1 - offset2)

End If '13 July 2003
slomo = False '08 January 2004
slomo = True '31Dec2011
End If
GoTo Line_17055
End If '11 May 2003 ver=1.05

' **** this is a very long if statement **** **hint**
'end of if statement "If mpg_file = "YES" Then"

'10 June 2003 wav file display here ver=1.07
If wav_file = "YES" Then
motion_yn = "YES"
If videoyn = "SHOWVIDEO" Then
Last$ = frmproj2.hWnd & " Style " & &H40000000
' ToDo$ = "open e:\cottonwood\101-0186_mvi.avi Type avivideo Alias video1 parent " & Last$
todo$ = "open " + Pict_file + " Type waveaudio Alias video1 parent " & Last$
i = mciSendString(todo$, 0&, 0, 0)
i = mciSendString("put video1 window at -1 -1 " + Cmd(51) + " " + Cmd(52), 0&, 0, 0)
i = mciSendString("play video1 wait", 0&, 0, 0)
i = mciSendString("close video1", 0&, 0, 0)
End If
GoTo Line_17055
End If '10 June 2003 ver=1.05

'10 June 2003 midi file display here ver=1.07
If mid_file = "YES" Then
motion_yn = "YES"
If videoyn = "SHOWVIDEO" Then
Last$ = frmproj2.hWnd & " Style " & &H40000000
' ToDo$ = "open e:\cottonwood\101-0186_mvi.avi Type avivideo Alias video1 parent " & Last$
todo$ = "open " + Pict_file + " Type sequencer Alias video1 parent " & Last$
i = mciSendString(todo$, 0&, 0, 0)
i = mciSendString("put video1 window at -1 -1 " + Cmd(51) + " " + Cmd(52), 0&, 0, 0)
i = mciSendString("play video1 wait", 0&, 0, 0)
i = mciSendString("close video1", 0&, 0, 0)
End If
GoTo Line_17055
End If '10 June 2003 ver=1.05

' If Cmd(56) = "PHOTO_DETAIL" Then '22 March 2003 ver=1.02
' Cls
' End If '22 March 2003 ver=1.02 just clear screen

'03 August 2003
' tt1 = InputBox("doug testing " + aaa, , , 4400, 4500) 'TESTING ONLY 03 August 2003
line_fit = "" '03 August 2003
If InStr(1, UCase(aaa), "FIT==") <> 0 Then
line_fit = "FIT"
End If '03 August 2003

If InStr(1, UCase(aaa), "REG==") <> 0 Then
line_fit = "REG"
End If '03 August 2003

'03 August 2003 If img_ctrl = "YES" Then
' Set Image1.Picture = LoadPicture(Pict_file) 'Stretch Mode
' Else
' Set Picture = LoadPicture(Pict_file) 'Normal Mode
' End If 'february 21 2001
' xtemp = InputBox(" testing doug#77 " + aaa + "*line_fit=" + line_fit + "*img_ctrl=" + img_ctrl, "testing Prompt ", , xx1 - offset1, yy1 - offset2)

If (img_ctrl = "YES" Or line_fit = "FIT") And line_fit <> "REG" Then
'===========================================================
'28 November 2004 this trap fixed the problem with the bad .gif files
' but it does not trap the problem associated with the "malletc031.jpg" file that I was having.
' the sequence would not go to the text display when I was using the control== sequence somehow I will keep the file for later
On Error GoTo first_problem '28 November 2004
DoEvents 'march 18 2001
Set Image1.Picture = LoadPicture(Pict_file) 'Stretch Mode
On Error GoTo Errors_31000 '28 November 2004
GoTo frst_17055
first_problem: '28 November 2004
frmproj2.Caption = "bad file= " + Pict_file '28 November 2004
' xtemp = InputBox("file display problem=" + CStr(Err.Number) + " " + Err.Description, , , xx1 - offset1, yy1 - offset2) 'march 18 2001
On Error GoTo Errors_31000 '28 November 2004
Resume input_1000 '28 November 2004
frst_17055: '28 November 2004
'===========================================================
'28 November 2004 original was here Set Image1.Picture = LoadPicture(Pict_file) 'Stretch Mode
line_fit = "FIT" '08 August 2003
' xtemp = InputBox(" testing doug#6 " + aaa + "*line_fit=" + line_fit + "*img_ctrl=" + img_ctrl, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
End If 'february 21 2001

If (img_ctrl <> "YES" And line_fit <> "FIT") Or line_fit = "REG" Then
' If img_ctrl <> "YES" And line_fit <> "FIT" Then
' save_line = "17055xxy" '28 November 2004 testing for bug
'===========================================================
On Error GoTo display_problem '28 November 2004
DoEvents 'march 18 2001
Set Picture = LoadPicture(Pict_file) 'Normal Mode
On Error GoTo Errors_31000 '28 November 2004
GoTo bef_17055
display_problem: '28 November 2004
frmproj2.Caption = "bad file= " + Pict_file '28 November 2004
' xtemp = InputBox("file display problem=" + CStr(Err.Number) + " " + Err.Description, , , xx1 - offset1, yy1 - offset2) 'march 18 2001
On Error GoTo Errors_31000 '28 November 2004
Resume input_1000 '28 November 2004
bef_17055: '28 November 2004
'===========================================================
'original was here 28 November 2004 Set Picture = LoadPicture(Pict_file) 'Normal Mode
' xtemp = InputBox(" testing doug#7 " + aaa + "*line_fit=" + line_fit + "*img_ctrl=" + img_ctrl, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
End If 'february 21 2001

Line_17055: '01 february 2003
save_line = "17055"

'10Feb2012 testing only below
' DoEvents
' i = mciSendString("status video1 ready", mssg, 12, 0)
' testing = "video_audit7=" + mssg + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
' DoEvents
' i = mciSendString("status video1 mode", mssg, 255, 0)
' testing = "video_audit8=" + mssg + " line_freeze_sec=" + CStr(Line_freeze_sec) + " delay_sec=" + CStr(delay_sec) + " begin=" + begin + " line_start_point=" + CStr(line_start_point) + " video_length=" + CStr(video_length) + "begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) '17Jan2012 teststring
' testing = InputBox("check delay_sec info " + testing, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
' DoEvents
'10feb2012 right after this it should run testing above lines
' frmproj2.Caption = "hey 7a " + Left(mssg, 5) + " " + CStr(array_pos) ' + Left(temptemp, 15) '01 September 2004

'20 march 2003 ver=1.02 testing of call to last_lines_15000
'

' See the Logic for post photo text ie day and time at line_2130
' xtemp = InputBox(" 08 August 2003 test " + sscreen_saver + " " + Left(Cmd(56), 12), "testing Prompt ", , xx1 - offset1, yy1 - offset2)

'18 November 2004 If UCase(Left(Cmd(56), 12)) = "PHOTO_DETAIL" Then '22 March 2003 ver=1.02
If detailyn = "PHOTO_DETAIL" Then '18 November 2004
'21 March 2004 If sscreen_saver = "Y" Then GoSub line_30000 'do a extra pause again on "weekday dd Month" display

new_delay_sec = Val(Cmd(27)) '03 September 2004
If sscreen_saver = "Y" And motion_yn <> "YES" Then GoSub line_30300 '21 March 2004 do not do a pause if video
'03 September 2004 If sscreen_saver = "Y" And mpg_file <> "YES" Then GoSub line_30300 '21 March 2004 do not do a pause if video
'03 September 2004 If sscreen_saver = "Y" And mpg_file <> "YES" Then GoSub line_30000 '21 March 2004 do not do a pause if video
If line_fit = "FIT" Then '08 August 2003 testing only
Set Image1.Picture = LoadPicture() '08 August 2003 testing only
If Not mixx Then Set Picture = LoadPicture(Pict_file) '12Feb2017 maybe
' Set Picture = LoadPicture(Pict_file) 'Normal Mode 08 august 2003
End If '08 August 2003 testing only

If stretch_image = "YES" Then
line_fit = "FIT"
Else
line_fit = "REG"
End If '08 august 2003

' GoSub line_30000 'pause for the wait time before text display....
'will want to make this optional... or cut the time in half??

' maybe resetting the stuff below will allow for hi-liting in the displayed characters
' Not needed the values in SSS1 etc were fine?
' SSS1 = SAVE_KEEPS1
' SSS2 = SAVE_KEEPS2
' SSS3 = SAVE_KEEPS3
' SSS4 = SAVE_KEEPS4
' SSS5 = SAVE_KEEPS5
' SSS6 = SAVE_KEEPS6

' SSS1 = KEEPS1
' SSS2 = KEEPS2
' SSS3 = KEEPS3
' SSS4 = KEEPS4
' SSS5 = KEEPS5
' SSS6 = KEEPS6

' tt1 = InputBox("testing SSS1...=" + SSS1 + SSS2 + SSS3 + SSS4 + SSS5 + SSS6, , , 4400, 4500) 'TESTING ONLY
lll = old_line 'use this one in stead non capitalized ???
'31 March 2004 ooo = lll '*** make this optional later *** and probably remove "photo " now

'31 March 2004
'only problem so far is that lll is all uppercase (create and use old_line) instead
'31 March 2004 ooo should be the original data.
array_pos = 0 '31 March 2004 this one caused a bit of grief
ooo = lll '31 March 2004
aaa = UCase(ooo) + "" 'seems aaa needs to have info for prints

'31 March 2004 if a double quote " found and an end quote with it use just that for display

II = InStr(1, ooo, Chr$(34)) '31 March 2004 check for info contained in quotes
If II <> 0 Then
tt = InStr(II + 1, ooo, Chr$(34))
If tt <> 0 Then
ooo = Mid(ooo, II + 1, tt - II - 1)
GoTo line_17070
End If
End If
'31 March 2004 above logic added

II = InStr(1, UCase(ooo), "PHOTO ")
If II <> 0 Then
ooo = Left(ooo, II - 1) + Right(ooo, Len(ooo) - (II + 6 - 1)) 'strip off "photo "
End If
'29 March 2004
II = InStr(1, UCase(ooo), "START==")
If II <> 0 Then
tt = InStr(II + 7, ooo, " ")
If tt <> 0 Then
ooo = Left(ooo, II - 1) + Right(ooo, Len(ooo) - tt)
End If
End If '29 March 2004

'29 March 2004
II = InStr(1, UCase(ooo), "SPEED=")
If II <> 0 Then
tt = InStr(II + 6, ooo, " ")
If tt <> 0 Then
ooo = Left(ooo, II - 1) + Right(ooo, Len(ooo) - tt)
End If
End If '29 March 2004

'29 March 2004
II = InStr(1, UCase(ooo), "WAIT=")
If II <> 0 Then
tt = InStr(II + 5, ooo, " ")
If tt <> 0 Then
ooo = Left(ooo, II - 1) + Right(ooo, Len(ooo) - tt)
End If
End If '29 March 2004

'29 March 2004
II = InStr(1, UCase(ooo), "FREEZE=")
If II <> 0 Then
tt = InStr(II + 7, ooo, " ")
If tt <> 0 Then
ooo = Left(ooo, II - 1) + Right(ooo, Len(ooo) - tt)
End If
End If '29 March 2004

'29 March 2004
II = InStr(1, UCase(ooo), "LENGTH=")
If II <> 0 Then
tt = InStr(II + 7, ooo, " ")
If tt <> 0 Then
ooo = Left(ooo, II - 1) + Right(ooo, Len(ooo) - tt)
End If
End If '29 March 2004

line_17070: '31 March 2004

' aaa = "dummydummydummydummydummydummydummydummy"
'over-riding the statement below makes for a better display for now...
'should test with the following active just so it can be used ie hi-liting searched string
'text where the other when no matches found shows whole line in one color. that is all
'it works fine now the logic at has been deactivated.... at line_12600 "screen_saver = "N""
'maybe works better than fine.....
aaa = UCase(ooo) '+ "============================================" 'last change here 26 March 2003 10:00 am
If mixx Then GoTo line_17075 '12Feb2017
' ooo = ccc + "" 'to display full line *** make this optional later ***
Font.Size = 48
Font.Bold = True
' frmproj2.Caption = "hey 7b " + Left(mssg, 5) + " " + CStr(array_pos) ' + Left(temptemp, 15) '01 September 2004

' Font.Italic = True 'jff just for fun
' SetFocus
' Set Picture = LoadPicture("c:\search\Sparrow.jpg")
' frmproj2.Caption = program_info + " (cls #9)" '18Dec2013
Cls 'just to clear anything
' Def_Fore = 14 'make the text yellow
' Def_Fore = 10 'make the text lime green instead of yellow???
'20 May 2003 (use what is in control file) Def_Fore = 13 'make the text light purple pink???

' Def_Fore = 7 'try grey
ForeColor = QBColor(Def_Fore)
Context_lines = 7 '28 March 2003 change from 7 to 8
line_len = 30 'have it wrap after 20 characters
'a lot of messing around just to set above to 60 for now on display

'30 March 2004 Clear_Context_lines = Context_lines
'30 March 2004 Context_cnt = Context_lines 'need a dummy context fields set up here
'30 March 2004 For II = 1 To Context_cnt
'30 March 2004 For II = 1 To 40 '30 March 2004
'30 March 2004 Context_text(II) = Space(20)
'30 March 2004 Next II

' endstuff testing
' endstuff = "NO" '27 March 2003 test getting it all out with this...

' tt1 = InputBox("testing array_ooo(array_prt)=" + endstuff + CStr(array_pos) + CStr(array_prt) + array_ooo(array_prt), , , 4400, 4500) 'TESTING ONLY

' If array_pos <> 0 And array_prt > 0 Then
' tt1 = InputBox("testing array_ooo(array_prt)=" + endstuff + CStr(array_pos) + CStr(array_prt) + array_ooo(array_prt), , , 4400, 4500) 'TESTING ONLY
' End If

' tt1 = InputBox("testing ooo=" + endstuff + CStr(array_pos) + CStr(array_prt) + ooo, , , 4400, 4500) 'TESTING ONLY
' tt1 = InputBox("testing endstuff data_ooo=" + endstuff + data_ooo, , , 4400, 4500) 'TESTING ONLY
' tt1 = InputBox("testing SSS1=" + SSS1 + SSS2 + SSS3 + SSS4, , , 4400, 4500) 'TESTING ONLY
' tt1 = InputBox("testing keeps1=" + KEEPS1 + KEEPS2 + KEEPS3 + KEEPS4, , , 4400, 4500) 'TESTING ONLY
'the following lines of info should print right on top of the photo but
'somehow it is not. see the smg emulation where a bmp file is displayed as a pict
'then the text is written and re-written over that image??? langaliers where are you
'*** note seems that the text can only be displayed if "normal" mode ie see normal above
' the "Set Image1.Picture = LoadPicture(Pict_file) from above won't do it... ie image control..

'was code here related to 1.02b but was moved
'29 March 2003 test change for ver=1.04 below
'03 August 2003
'03 August 2003 If img_ctrl = "YES" And motion_yn <> "YES" Then
' If (img_ctrl = "YES" Or line_fit = "FIT") And motion_yn <> "YES" Then
' If img_ctrl = "YES" And motion_yn <> "YES" And line_fit <> "REG" Then
'03 August 2003 If img_ctrl = "YES" And motion_yn <> "YES" And line_fit <> "FIT" Then
'03 August 2003 test 1 If img_ctrl <> "xxxx" And motion_yn <> "YES" Then '03 August 2003 just try and override
If img_ctrl = "xxxx" And motion_yn <> "YES" Then '03 August 2003 just try and override
' xtemp = InputBox(" testing doug#8- " + aaa + "*line_fit=" + line_fit + "*img_ctrl=" + img_ctrl, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
Set Image1.Picture = LoadPicture() 'Stretch Mode clear away here
If Not mixx Then Set Picture = LoadPicture(Pict_file) '12Feb2017
' Set Picture = LoadPicture(Pict_file) 'Normal Mode
'dougheredoughere
'03 August 2003 remove this stay with above Set Picture = LoadPicture() 'Normal Mode lp#6
' xtemp = InputBox(" testing doug#8 " + aaa + "*line_fit=" + line_fit + "*img_ctrl=" + img_ctrl, "testing Prompt ", , xx1 - offset1, yy1 - offset2)
End If 'february 21 2001
'03 August 2003 test 1
If img_ctrl = "YES" And motion_yn <> "YES" And line_fit = "REG" Then
Set Picture = LoadPicture(Pict_file) 'normal mode
End If '03 August 2003 test 1

line_17075: '12Feb2017
If mixx Then GoTo Line_17090 '12Feb2017
'12Feb2017 need above
If img_ctrl <> "YES" And line_fit = "FIT" Then
Set Image1.Picture = LoadPicture() 'Stretch Mode clear away here
End If '03 August 2003 test 1
' Set Image1.Picture = LoadPicture() '08 August 2003 testing
'30 March 2004 GoSub Last_lines_15000
' frmproj2.Caption = program_info + " (cls #10)" '18Dec2013
Cls '30 March 2004
Print '30 March 2004
Print '30 March 2004
Print '30 March 2004
Print '30 March 2004
Print '30 March 2004
Print '30 March 2004
Print '30 March 2004
' tt1 = InputBox("30 March 2004 " + CStr(Context_lines), , , 4400, 4500) 'TESTING ONLY
GoSub sub_12000 'do the bolding and high-liting hi-liting here
' tt1 = InputBox("31 March 2004 " + Left(ooo, 20), , , 4400, 4500) 'TESTING ONLY
Font.Size = Val(Cmd(2)) 'reset it back from 48 above
'13 April 2004 new_delay_sec = Val(Cmd(27)) '30 March 2004
new_delay_sec = Val(Cmd(60)) '13 April 2004
'30 March 2004 If mpg_file = "YES" Then GoSub line_30300 '30 March 2004
GoSub line_30300 '30 March 2004

line_17075a: '12Feb2017
End If 'end of PHOTO_DETAIL check pretty well ver=1.02 to here
'12Feb2017 need to skip the above if statement when doing a mix text / picture (do not want font change etc)
' frmproj2.Caption = "hey 7c " + Left(mssg, 5) + " " + CStr(array_pos) ' + Left(temptemp, 15) '01 September 2004

' Print "what the hey" '21 march 2003
' tt1 = InputBox("testing b=" + endstuff + "=" + vvv + " tot_print=" + CStr(tot_print), , , 4400, 4500) 'TESTING ONLY
' tt1 = InputBox("testing b=" + CStr(Clear_Context_lines) + "=", , , 4400, 4500) 'TESTING ONLY
'20 march 2003 ver=1.02 ^

last_pict = Pict_file '28 february 2003

dsp_cnt = dsp_cnt + 1 'may 12 2001
previous_count = previous_count + 1 'october 9 2000
If previous_count > 100 Then
previous_count = 1
End If
' previous_picture(previous_count) = 0
previous_picture(previous_count) = zzz_cnt
'save line number of previous picture display
' Print "b previous_picture(previous_count)zzz_cnt,previous_count"; previous_picture(previous_count); "="; zzz_cnt, previous_count
' tt1 = InputBox("continue", , , 4400, 4500) 'TESTING ONLY
'
' MyAppID = Shell(Cmd(8), 3)
' AppActivate MyAppID
'here try and do a pause or wait as follows
' For temp1 = 1 To 100000000
' DoEvents
' Next temp1
' SendKeys "^o", True
' SendKeys Pict_file, True
' SendKeys "~", True 'FORCE AN "ENTER"

End If
'endiffy 17050
' frmproj2.Caption = "hey 7d " + Left(mssg, 5) + " " + CStr(array_pos) ' + Left(temptemp, 15) '01 September 2004

save_line = "17055a"
If InStr(UCase(Cmd(8)), "EXPLORER") <> 0 And Test1_str = "P2" Then
MyAppID = Shell(Cmd(8) + " / select, " + Pict_file, 3)
SendKeys "^o", True
End If
save_line = "17055b"
If InStr(UCase(Cmd(8)), "EXPLORER") <> 0 And Test1_str = "P3" Then

' MyAppID = Shell(Cmd(8) + " / select, " + Pict_file, 3)
' Print "Cmd(8)"; Cmd(8); " Pict_file="; Pict_file
' tt1 = InputBox("continue", , , 4400, 4500) 'TESTING ONLY

MyAppID = Shell("command.com /c " + Cmd(8) + " / select, " + Pict_file, 3)
' AppActivate MyAppID
' SendKeys Pict_file, True
' SendKeys "^v", True
End If
save_line = "17055c"
If InStr(UCase(Cmd(8)), "EXPLORER") <> 0 And Test1_str = "P" Then
MyAppID = Shell(Cmd(8) + " / select, " + Pict_file, 3)
SendKeys "^o", True
End If
'here testing below netscape.exe
'the P1 option should work for .bmp .jpg and .tif
save_line = "17055d"
If InStr(UCase(Cmd(8)), "NETSCAPE") <> 0 And Test1_str = "P1" Then

If Not mixx Then Set Picture = LoadPicture(Pict_file) '12Feb2017
' Set Picture = LoadPicture(Pict_file) 'normal
End If
save_line = "17055e"
' Print "Cmd(8)="; Cmd(8); "="; Test1_str
' tt1 = InputBox("testing", , , 4400, 4500) 'TESTING ONLY

If InStr(UCase(Cmd(8)), "NETSCAPE") <> 0 And Test1_str = "P" Then
MyAppID = Shell(Cmd(8) + " " + Pict_file, 3)
SendKeys "^v", True
End If
Line_17080:
' AppActivate MyAppID
' frmproj2.Caption = "hey 7e " + Left(mssg, 5) + " " + CStr(array_pos) ' + Left(temptemp, 15) '01 September 2004

' SendKeys "^F", True
' SendKeys Pict_file, True
' SendKeys LastFile, True
' SendKeys "", True
'added the Test1_str check below aug 08/00
If InStr(UCase(Line_Search), ".BMP") <> 0 And Test1_str = "P" Then
' If InStr(UCase(Line_Search), ".BMP") <> 0 Then
'check the program exists before going anywhere
save_line = "17080"
FileFile = FreeFile
Close FileFile
Open Cmd(9) For Input As #FileFile
Close FileFile
' Print "file name="; Pict_file; "="; Test1_str
' tt1 = InputBox("continue", , , 4400, 4500) 'TESTING ONLY

MyAppID = Shell(Cmd(9), 1)
SendKeys "^o", True
SendKeys Pict_file, True
SendKeys "~", True 'FORCE AN "ENTER"
End If
save_line = "17059b"
' Set Picture = LoadPicture() 'clear any picture
If InStr(UCase(Line_Search), ".TIF") <> 0 Then
'check the program exists before going anywhere
save_line = "17085"
FileFile = FreeFile
Close FileFile
DoEvents
Open Cmd(16) For Input As #FileFile
Close FileFile

LastFile = Pict_file
MyAppID = Shell(Cmd(16) + " / select, " + Pict_file, 1)

SendKeys "^o", True
SendKeys "^v", True
End If

Line_17090:
' TheFile = ""
frmproj2.Caption = "hey 7f " + Left(mssg, 5) + " " + CStr(array_pos) ' + Left(temptemp, 15) '21Mar2016
Return 'end of display_pict_17000

line_17200: 'February 24 2002 do the append of the file here

'skip the file if the output file is the same as the one to append....
If InStr(UCase(Test1_str), UCase(FileExt)) <> 0 Then
' tt1 = InputBox("testing merge logic " & Test1_str, , , 4400, 4500) 'TESTING ONLY
' If tt1 = "X" Or tt1 = "x" Then
' GoTo End_32000
' End If 'testing only
' Print "doug testing "; Test1_str, FileExt
GoTo line_17230
End If
f = f + 1
Print "File merging "; Test1_str, FileExt
DoEvents
If f > 20 Then
f = 1
Cls
End If
save_line = "17200"
Open Test1_str For Input As FileFile
line_17210:
Line Input #FileFile, aaa
Print #ExtFile, aaa
GoTo line_17210
line_17220:
Print #ExtFile, Test1_str; " append end"
Close #FileFile
line_17230:
Return 'february 24 2002

Do_Change_18000:
save_line = "18000"
'DO NOT PASS THE FIRST CHR AS A BLANK BELOW
'THE SEARCH DOESN'T LIKE A STARTING SPACE ??
'IN WORDPAD I WAS USING THE SEARCH AND CTRL/V
'do not allow changes to valid e-mail files below
If InStr(1, UCase(TheFile), "\SENT") <> 0 Then
Print "no changes to file with \SENT*"
GoTo line_18100
End If
If InStr(1, UCase(TheFile), "\INBOX") <> 0 Then
Print "no changes to file with \INBOX*"
GoTo line_18100
End If

' Clipboard.SetText Mid(Last_match, 2, 14)
'disabled oct 18/2000 when going back and forth it was
'nothing but a hassle maybe use elsewhere in another element.
'put the last line of match in the clipboard
'at the office nt has "service pack 3" as well use the len below
'29 September 2003 comment out the logic below
' If Left(os_ver, 10) = "Windows 20" And Len(os_ver) > 15 Then
' MyAppID = Shell(Cmd(44), 3)
' Else
MyAppID = Shell(Cmd(10), 3)
' End If '30 november 2002
'29 September 2003 the above commented out

' AppActivate MyAppID
SendKeys "^o", True
' SendKeys TheFile, True 'december 3 2000
If InStr(1, TheFile, ":") <> 0 Then
SendKeys TheFile, True
Else
SendKeys App.Path + "\" + TheFile, True 'december 3 2000
End If
SendKeys "~", True 'FORCE AN "ENTER"
AppActivate MyAppID 'december 27 2000
' SendKeys (DOWN), True 'december 27 2000
' SendKeys (Insert), True 'december 27 2000
' SendKeys (PGDN), True 'december 27 2000
' SendKeys "%{TAB}", True 'december 27 2000
line_18100:
' frmproj2.Caption = program_info + " (cls #11)" '18Dec2013
Cls 'december 27 2000
Return
Do_Append_19000:
save_line = "19000"
'don't allow user to append to any e-mail file below
If InStr(1, UCase(TheFile), "\SENT") <> 0 Then
Print "no APPENDS to file with \SENT*"
GoTo line_19100
End If
If InStr(1, UCase(TheFile), "\INBOX") <> 0 Then
Print "no APPENDS to file with \INBOX*"
GoTo line_19100
End If
Open TheFile For Append As #OutFile
If Clipboard.GetFormat(vbCFText) Then
Clip_data = Clipboard.GetText(vbCFText)
temps = Format(Now, "ddddd ttttt") + " "
temps = Left(temps, 23) 'all must be 23 long incld space
Print #OutFile, temps, "-------------append start ---------- "
line_19005:
'
Print #OutFile, Clip_data

Print #OutFile, temps, "-------------append end ---------- "
Print Clip_data
Print "Clipboard data added to "; TheFile
Print " === append complete ==="
Close #OutFile
End If
line_19100:

Return
'********************************************************
' * * * E N T E R D A T A * * * N O T E S
'********************************************************
' enter notes data input

Do_Enter_20000:
save_line = "20000" 'for error handling
entered_notes = "NO" 'allow for date exitdateyes
Enter_Count = 0

Close #OutFile
Open TheFile For Append As #OutFile
' jj logic for date here next
More_Notes_22000:
save_line = "22000" 'for error handling
ttt = InputBox("enter notes", "Notes Prompt " + TheFile, , xx1 - offset1 - 2000, yy1 - offset2) '
'any 2 characters will do a paste function Ctrl/V
'vv option will put what is in clipboard
If InStr(1, UCase(ttt), "VVV") <> 0 Then
ttt1 = InStr(1, UCase(ttt), "VVV")
ttt = Left(ttt, ttt1 - 1) + ppaste + Right(ttt, Len(ttt) - (ttt1 + 2))
End If
If InStr(1, UCase(ttt), "GGG") <> 0 Then
ttt1 = InStr(1, UCase(ttt), "GGG")
ttt = Left(ttt, ttt1 - 1) + gpaste + Right(ttt, Len(ttt) - (ttt1 + 2))
End If
'midway3 thru the program appx'==================================================================================

If InStr(1, UCase(ttt), "VV") <> 0 Then
ttt1 = InStr(1, UCase(ttt), "VV")
ttt = Left(ttt, ttt1 - 1) + Clipboard.GetText(vbCFText) + Right(ttt, Len(ttt) - (ttt1 + 1))
End If
If Len(ttt) = 2 And Left(ttt, 1) = Mid(ttt, 2, 1) And UCase(ttt) <> "JJ" Then
ttt = Clipboard.GetText(vbCFText)
' Print ttt 'testing only
End If

If ttt = "" And entered_notes = "YES" And _
Cmd(7) <> "dateyes" And _
UCase(Cmd(15)) = "EXITDATEYES" Then
temps = Format(Now, "ddddd ttttt") + " "
temps = Left(temps, 23) 'all must be 23 long incld space
Print #OutFile, temps
Print temps
End If

If ttt = "" Then GoTo End_Notes_23000
entered_notes = "YES"
Enter_Count = Enter_Count + 1
'see programmers guide page 606 for date formats below
temps = Format(Now, "ddddd ttttt") + " "
temps = Left(temps, 23) 'all must be 23 long incld space
If Cmd(7) <> "dateyes" And UCase(Cmd(14)) = "ENTERDATEYES" Then
Cmd(14) = "" 'only do fore each new entry
Print #OutFile, temps
' include "c:\dummy.txt"
' Insert "C:\DUMMY.BAS"

Print temps
End If

If Cmd(7) <> "dateyes" Then temps = ""
If Cmd(7) <> "dateyes" And UCase(Left(ttt, 2)) = "JJ" Then
ttt = Right(ttt, Len(ttt) - 2)
temps = Format(Now, "ddddd ttttt") + " "
temps = Left(temps, 23) 'all must be 23 long incld space
End If

Print #OutFile, temps & ttt
Print temps & ttt
GoTo More_Notes_22000
End_Notes_23000:
If Enter_Count <> 0 Then
Print Enter_Count; " Records added to "; TheFile
End If
save_line = "23000" 'for error handling
Close #OutFile
II = DoEvents 'yield to operating system

GoTo What_50 'october 26 2000
' GoTo End_32000

InputFile_24000: 'march 20/00
' frmproj2.Caption = program_info + " (cls #12)" '18Dec2013
Cls 'refresh clear screen
GoSub OpenFile_25000 'open files.txt for selection
If auto_redraw = "YES" Then frmproj2.AutoRedraw = True 'november 08 2001 Autoredraw pair-1
save_line = "24000"
For f = 1 To 20
ttt = ""
Line Input #FileFile, FFF
If f = 1 Then ForeColor = QBColor(Val(Cmd(5)))
If f = 1 Then ttt = App.EXEName + " " + vvversion + " -- " + App.Title
If Len(FFF) > 50 Then
'derulaswamp 2010 for special autorun only Print f, "*"; Right(FFF, 50); " "; ttt 'december 22 2000
If Left(UCase(Cmd(80)), 13) = "PROMPTDETAILS" Then Print f, "*"; Right(FFF, 50); " "; ttt 'december 22 2000
Else
'derulaswamp 2010 Print f, FFF; " "; ttt
If Left(UCase(Cmd(80)), 13) = "PROMPTDETAILS" Then Print f, FFF; " "; ttt
End If
If f = 1 Then ForeColor = QBColor(Def_Fore)
AllFiles(f) = FFF + ""
Next f
Close #FileFile
line_24005:
'*********************************************************
'main file name selection done here
'*********************************************************
'derulaswamp 2010 Print "Enter selection 1-20 e-xit or file name Option Prompt #1"
If Left(UCase(Cmd(80)), 13) = "PROMPTDETAILS" Then Print "Enter selection 1-20 e-xit or file name Option Prompt #1"
tt1 = "" 'december 7 2000
If screen_capture = "YES" Then
'03 September 2004 delay_sec = 5 'march 15 2001
'03 September 2004 GoSub line_30000
new_delay_sec = 2 '03 September 2004 17Feb2017 from 5 to 2
GoSub line_30300 '03 September 2004
End If
'test the getformat logic for the clipboard january 27 2002
' If Clipboard.GetFormat(vbCFBitmap) Then
' tt1 = InputBox("clipboard has a bitmap", , tt1, xx1 - offset1, yy1 - offset2) '
' End If
today_date = Format(Now, "ddddd ttttt") 'february 16 2001
'12 September 2004 If UCase(App.EXEName) = Trim(UCase(Cmd(45))) And Left(App.Path, 3) <> "C:\" Then
' If (UCase(App.EXEName) = Trim(UCase(Cmd(45))) And Left(App.Path, 3) <> "C:\") Or InStr(1, UCase(App.Path + App.EXEName), "BACKGRD") <> 0 Then
' frmproj2.Caption = "before test " + tt1 '02 October 2004 testing
' new_delay_sec = 2 '02 October 2004
' GoSub line_30300 '02 October 2004
'19Aug2011 If (UCase(App.EXEName) = Trim(UCase(Cmd(45))) And Left(App.Path, 3) <> "C:\") Or InStr(1, UCase(App.EXEName), "BACKGRD") <> 0 Then
'12May2012 changes below
mixx = InStr(UCase(App.EXEName), "MIX")
If mixx <> 0 Then
tt1 = Left(App.EXEName, mixx + 2) + ".txt"
mixx = True
GoTo auto_p1
End If '30Jun2012
If Left(UCase(App.EXEName), 7) = "BIGTEXT" Then
tt1 = "bigtext.txt"
GoTo auto_p1
End If '21Jun2012
'18Jun2012 catmydrive should skip as well
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
tt1 = AllFiles(1)
GoTo auto_p1
End If '18Jun2012

If Left(UCase(App.EXEName), 6) = "RANDOM" Or Left(UCase(App.EXEName), 10) = "SEQUENTIAL" Then
'14May2012 tt1 = RTrim(Cmd(46)) 'the command file prompt usually 1
tt1 = AllFiles(1) '14May2012 might want to make it file1 of the files list
'26Jun2016 tt1 = "MPEG_VIDEOS.TXT" '24Jun2012
'06Jul2012 If mixx = True Then tt1 = "datamix.txt" '30Jun2012
If UCase(Left(Cmd(58), 13)) = "DEFAULT_TO_CD" And Left(App.Path, 3) <> "C:\" And Len(tt1) > 2 And InStr(1, tt1, ":") <> 0 Then
tt1 = Left(App.Path, 3) + Right(tt1, Len(tt1) - 3)
End If 'change any C:\ to D:\ or E:\ etc

GoTo auto_p1
End If
'12May2012 changes above

If (InStr(1, UCase(Cmd(45)), UCase(App.EXEName)) <> 0 And Left(App.Path, 3) <> "C:\") Or InStr(1, UCase(App.EXEName), "BACKGRD") <> 0 Then
tt1 = RTrim(Cmd(46)) 'the command file prompt usually 1
'-------------------------------
'02 October 2004
If UCase(Left(Cmd(58), 13)) = "DEFAULT_TO_CD" And Left(App.Path, 3) <> "C:\" And Len(tt1) > 2 And InStr(1, tt1, ":") <> 0 Then
tt1 = Left(App.Path, 3) + Right(tt1, Len(tt1) - 3)
End If 'change any C:\ to D:\ or E:\ etc 02 October 2004

' frmproj2.Caption = "after test " + tt1 '02 October 2004 testing
' new_delay_sec = 2 '02 October 2004
' GoSub line_30300 '02 October 2004
'-------------------------------
' xtemp = InputBox(" backgrd test1", " testing Prompt #1* ", , xx1 - offset1, yy1 - offset2)
If debug_photo Then '12 october 2002
xtemp = InputBox("DOUG TESTING AUTO PROMPTS" + ttt, , , 4400, 4500) 'TESTING ONLY
End If
GoTo auto_p1
End If '07 december 2002
If SAVE_ttt = "in" Then tt1 = AllFiles(1) 'december 7 2000
tt1 = InputBox("File Selection:", "File Prompt #1 " + today_date, tt1, xx1 - offset1, yy1 - offset2) '
' Clipboard.Clear '17Mar2016 testing only
' Clipboard.SetText "clipboard set at prompt #1"
If Len(tt1) > 0 And Len(tt1) < 3 Then '19 December 2004
xtemp = tt1
GoSub keypad_27500
tt1 = xtemp
End If '19 December 2004
auto_p1:
tt1 = UCase(tt1)
frmproj2.Caption = program_info + stretch_info '25 november 2002
'22 december 2002
' random_info = "" '21 december 2002
If Cmd(49) = "RANDOM" Then
' random_info = " (RANDOM)" '21 december 2002
frmproj2.Caption = program_info + random_info + stretch_info '09 december 2002
End If
If auto_redraw = "YES" Then frmproj2.AutoRedraw = False 'november 08 2001 Autoredraw pair-1
If tt1 = "X" Or tt1 = "E" Or (tt1 = "" And SAVE_ttt <> "in") Then
GoTo End_32000
End If 'exit if x or e entered
'the following 2 if statements are left in as example
If tt1 = "25" Then
MAX_CNT = 25
GoTo line_24005
End If 'internal fix till control file
If tt1 = "20" Then
MAX_CNT = 20
GoTo line_24005
End If 'internal fix till control file
'october 26 2000 the SAVE_ttt below
If tt1 = "" And SAVE_ttt = "in" Then
TheFile = AllFiles(1)
tt1 = TheFile
GoTo line_24010
End If 'no entry default to first listed
If tt1 = "0" Or tt1 = "1" Then
TheFile = AllFiles(1)
tt1 = TheFile
SAVE_ttt = "in" 'november 03 2000 after file selected continue with defaults
TheSearch = "." 'november 03 2000
search_prompt = "in" 'november 03 2000
GoTo line_24010
End If 'no entry default to first listed
'allow for number of characters select file number KKK is 3
If tt1 = "11" Then GoTo line_24007
If Len(tt1) = 1 Then GoTo line_24007
If Len(tt1) = 2 And Left(tt1, 1) <> Mid(tt1, 2, 1) Then GoTo line_24007
'need a "dbcs string manipulation function" to do following
'same as the num1$ function on the vax numeric to string
If Left(tt1, 1) = Mid(tt1, 2, 1) Then
tt1 = CStr(Len(tt1))
End If

line_24007:

If Val(tt1) < 2 Or Val(tt1) > 20 Then
GoTo line_24010
End If
TheFile = AllFiles(Val(tt1))
tt1 = TheFile
SAVE_ttt = "in" 'november 03 2000 after file selected continue with defaults
TheSearch = "." 'november 03 2000
search_prompt = "in" 'november 03 2000
line_24010:
'check all file existance
'they may have been deleted etc
'Following line allows update if change made to control
' If TheFile = "C:\CONTROL.TXT" Then GoSub Control_28000
If UCase(TheFile) = "CONTROL.TXT" Then GoSub Control_28000 'december 3 2000
save_line = "24010"
TheFile = tt1
LastFile = TheFile
If save_line = "24010" Then GoTo line_24020 '29Sep2010 skip this altogether - open and read object file for defaults
FileFile = FreeFile
Open tt1 For Input As #FileFile
'november 3 2000 use to switch between p1 and c depending on file
xxx_found = "NO"
line_24015:
save_line = "24015"
For f = 1 To 10
Line Input #FileFile, aaa
If Left(aaa, 4) = "xxx." Then
xxx_found = "YES"
End If
Next f
Close FileFile

line_24020: 'store new file in file.txt
save_line = "24020"
FileFound = 0
For f = 1 To 20
'december 8 2000 If TheFile = AllFiles(F) Then
If UCase(TheFile) = UCase(AllFiles(f)) Then
FileFound = f 'save location where file is
End If
Next f
If FileFound = 0 Then
For f = 19 To 1 Step -1
AllFiles(f + 1) = AllFiles(f)
Next f
AllFiles(1) = TheFile
GoTo line_24050
End If 'new one add it to top of list
If FileFound > 1 Then
For f = FileFound - 1 To 1 Step -1
AllFiles(f + 1) = AllFiles(f)
Next f
AllFiles(1) = TheFile
GoTo line_24050
End If
line_24050:
'20 july 2002 skip the update below if cmd(40) not in file name

If auto_exe = "YES" Then GoTo line_24080 '04 September 2004
If InStr(Cmd(40), Left(App.Path, 3)) = 0 And Trim(Cmd(40)) <> "" Then
If Left(UCase(Cmd(80)), 13) = "PROMPTDETAILS" Then Print " no file update cmd(40)" '14Aug2011 this was annoying
GoTo line_24080 '20 july 2002
End If
save_line = "24050"
Kill Cmd(11) 'list of files last accessed
FileFile = FreeFile
Open Cmd(11) For Output As FileFile
For f = 1 To 20
Print #FileFile, AllFiles(f)
Next f
line_24080:
Close FileFile
save_line = "24080" '12Jun2016
line_24090: 'return exit line
If InStr(UCase(TheFile), ".MBX") <> 0 And SAVE_ttt = "in" Then mbxyes = "Y" 'december 17 2000

Return

OpenFile_25000: 'march 20/00
'files.txt is the last 20 opened files
'for display and selection
save_line = "25000"
FileFile = FreeFile
Open Cmd(11) For Input As #FileFile

Return
hilite_25500:
' xtemp = InputBox(CStr(hilite_cnt) + yyy + hilite_hh + ooo, "Continue Prompt", , 2000, 2000)

If InStr(1, UCase(ooo), "XXX.") <> 0 Then
hilite_cnt = hilite_cnt + 1
cript2(hilite_cnt) = Mid(ooo, InStr(1, UCase(ooo), UCase(hilite_this)) + Len(hilite_this))
' tt1 = InputBox("testing prompt" + cript2(hilite_cnt), , , 4400, 4500) 'TESTING ONLY
End If
Return 'april 22 2001

Search_26000: 'march 20/00
' xtemp = InputBox("(A) testing prompt 02 January 2005" + sscreen_saver_ww + inin, , , 4400, 4500) '02 January 2005
If tempdata = "COMMAND" Then GoTo line_26002a '02 January 2005
If sscreen_saver_ww = "YES" And inin <> "" Then GoTo line_26090 '28 april 2002
' frmproj2.Caption = program_info + " (cls #13)" '18Dec2013
Cls 'refresh clear screen
If auto_redraw = "YES" Then frmproj2.AutoRedraw = True 'november 08 2001 autoredraw pair-3

If Not mixx Then Set Picture = LoadPicture() '12Feb2017
' Set Picture = LoadPicture() 'clear any picture lp#7 normal 12Feb2017
If debug_photo Then '12 october 2002
tt1 = InputBox("testing photo 3.3", , , 4400, 4500) 'TESTING ONLY
End If
GoSub OpenFile_27000 'open search.txt for selection
save_line = "26000"
For f = 1 To 20

Line Input #FileFile, FFF
If TheSearch = "." Then
'december 7 2000 If F = 1 Then ForeColor = QBColor(Val(Cmd(5)))
'derulaswamp 2010 Print f, FFF 'DISP OPTIONS IF "." ENTERED
If Left(UCase(Cmd(80)), 13) = "PROMPTDETAILS" Then Print f, FFF 'DISP OPTIONS IF "." ENTERED
'december 7 2000 If F = 1 Then ForeColor = QBColor(Def_Fore)
End If
AllSearch(f) = FFF + ""
Next f
Close #FileFile
If TheSearch <> "." Then
GoTo line_26020
End If
'*************************************************
' the search selection 1-20 made here
'*************************************************
If Left(UCase(Cmd(80)), 13) = "PROMPTDETAILS" Then Print "Enter selection 1-20 e-xit a for all or new search"
line_26002:
If ttt = "." Then 'january 05 2001
ttt = AllSearch(1)
Else
ttt = "" 'december 7 2000
End If 'january 05 2001
If search_prompt = "in" Then ttt = Cmd(33) 'december 7 2000
If emailsea = "Y" And search_prompt = "in" Then ttt = "a" 'december 11 2000
Cmd(33) = "" 'december 7 2000
If screen_capture = "YES" Then
'03 September 2004 delay_sec = 5 'march 15 2001
'03 September 2004 GoSub line_30000
new_delay_sec = 5 '03 September 2004
GoSub line_30300 '03 September 2004
End If
'option prompt #3
'12 September 2004 If UCase(App.EXEName) = Trim(UCase(Cmd(45))) And Left(App.Path, 3) <> "C:\" Then
' If (UCase(App.EXEName) = Trim(UCase(Cmd(45))) And Left(App.Path, 3) <> "C:\") Or InStr(1, UCase(App.Path + App.EXEName), "BACKGRD") <> 0 Then
'19Aug2011
'12May2012
If Left(UCase(App.EXEName), 6) = "RANDOM" Or Left(UCase(App.EXEName), 10) = "SEQUENTIAL" Then
'14May2012 ttt = "PHOTO"
'24Jun2012 ttt = AllSearch(1) '14May2012 change this to the last search string
ttt = "PHOTO" '24Jun2012
'26Jun2016 GoTo auto_p3 '12May2012
End If
If (InStr(1, UCase(Cmd(45)), UCase(App.EXEName)) <> 0 And Left(App.Path, 3) <> "C:\") Or InStr(1, UCase(App.EXEName), "BACKGRD") <> 0 Then
' xtemp = InputBox(" backgrd test3", " testing Prompt #3* ", , xx1 - offset1, yy1 - offset2)
ttt = RTrim(Cmd(48)) 'the search string prompt usually photo
GoTo auto_p3 'make sure that cd search file does not have "C:\"
'it should be "D:\" anything but "C:\" to work
End If '07 december 2002
'19 September 2004 command== stuff
If Len(command_line) > 1 Then
'i do not think the file is open here it should be 1 line past the match for now...
'maybe skip the multiple reads below if random is on...????
' temptemp = InputBox("DOUG TESTING command_linea==" + CStr(zzz_cnt) + " " + aaa, , , 4400, 4500) 'TESTING ONLY
command_line = ""
' temptemp = InputBox("DOUG TESTING command_lineb==" + command_line, , , 4400, 4500) 'TESTING ONLY
multi_prompt2 = "" '20 September 2004
' aaa = "" '20 September 2004
' GoTo input_1000a '20 September 2004
For zzz_cnt = 1 To hold_zzz
Line Input #OutFile, aaa '21 September 2004 27Aug2010 might need some changes here?
Next zzz_cnt '21 September 2004
ooo = aaa '21 September 2004
' temptemp = InputBox("DOUG TESTING command_lineaa==" + CStr(hold_zzz) + " " + aaa, , , 4400, 4500) 'TESTING ONLY
GoTo input_1000b '21 September 2004
' ttt = RTrim(Cmd(48)) '20 September 2004 this changed things a bit???
' GoTo Line_17055
' GoTo auto_p3 '21 September 2004
End If '19 September 2004
If debug_photo Then '12 october 2002
' xtemp = InputBox("DOUG TESTING auto prompt #3" + ttt, , , 4400, 4500) 'TESTING ONLY
End If
'26 November 2004 skip around this prompt is a control file switch took place last
' xtemp = InputBox("DOUG TESTING auto prompt #3 search=" + temptemp + " tempdata=" + tempdata + " " + eofsw, , , 4400, 4500) 'TESTING ONLY
If eofsw = "YES" Then
eofsw = "" '26 November 2004
ttt = Trim(temptemp)
GoTo auto_p3
End If '26 November 2004
' xtemp = InputBox("testing 02 January 2005=" + temptemp + " tempdata=" + tempdata + " " + eofsw, , , 4400, 4500) 'TESTING ONLY
line_26002a: '02 January 2005
If tempdata = "CONTROL" Or tempdata = "COMMAND" Then '26 November 2004
' xtemp = InputBox("(B) testing 02 January 2005=" + temptemp + " tempdata=" + tempdata + " " + eofsw, , , 4400, 4500) 'TESTING ONLY
ttt = Trim(temptemp) '26 November 2004 this will change to something photo or "a" etc
tempdata = ""
GoTo auto_p3
End If '26 November 2004
'21Jun2012 check
If mixx = True Then
ttt = "PHOTO"
GoTo auto_p3
End If '30Jun2012b
If Left(UCase(App.EXEName), 7) = "BIGTEXT" Then
ttt = "A"
GoTo auto_p3
End If '21Jun2012
ttt = InputBox("<" + UCase(prompt2) + "> Search Selection:", "Search Prompt #3 " + TheFile, ttt, xx1 - offset1, yy1 - offset2) '
'19 December 2004
If Len(tt1) > 0 And Len(tt1) < 3 Then '19 December 2004
xtemp = ttt
GoSub keypad_27500
ttt = xtemp
End If '19 December 2004
If show_files_yn Then frmproj2.Caption = program_info + random_info + stretch_info '24 december 2002
auto_p3:
' frmproj2.Caption = program_info + " (cls #14)" '18Dec2013
Cls 'november 10 2001 needed with autoredraw
' temptemp = InputBox("DOUG TESTING command_lineb==" + ttt, , , 4400, 4500) 'TESTING ONLY
If auto_redraw = "YES" Then frmproj2.AutoRedraw = False 'november 08 2001 autoredraw pair-3
' xtemp = InputBox("TESTING DOUG" + ttt + "*" + search_prompt, , , 4400, 4500) 'TESTING ONLY
'november 6 2000
' Me.MousePointer = vbHourglass '18 august 2002
parsez: 'january 12 2001
If Left(ttt, 2) = " " Then
ttt = Mid(ttt, 2)
GoTo parsez
End If
i = InStr(ttt, " ")
If i = 0 Then GoTo noparsez
ttt = Left(ttt, i - 1) + Mid(ttt, i + 1)
GoTo parsez
noparsez:

Context_cnt = -1 'november 10 2000
'17 December 2004 add in the V or H prompt for insert
If UCase(ttt) = "V" Or UCase(ttt) = "H" Then
If Clipboard.GetFormat(vbCFText) Then
ttt = Clipboard.GetText(vbCFText)
End If '17 December 2004
End If '17 December 2004
If UCase(ttt) = "F" Then
prompt2 = "C"
SAVE_ttt = "F"
mbxi = 1 'january 31 2001
GoTo line_26002
End If 'january 31 2001
If UCase(ttt) = "Q" Then
prompt2 = "Q"
SAVE_ttt = "Q"
mbxi = 1 'december 17 2000
GoTo line_26002
End If 'december 2 2000

If UCase(ttt) = "C" Then
prompt2 = "C"
SAVE_ttt = "C"
mbxi = 1 'december 29 2000
GoTo line_26002
End If 'december 2 2000
If prompt2 = "Q" And ttt <> "" Then
qqq = ttt + ""
End If
If prompt2 = "Q" And ttt = "" Then
qqq = ""
End If 'november 6 2000
'november 6 2000
' If prompt2 <> "Q" And ttt <> "d" Then
' ttt = UCase(ttt) 'november 25 2000
' End If
'august 27/00
If ttt = "E" Or ttt = "e" Or ttt = "X" Or ttt = "x" Or ttt = "" Then
GoTo line_26010
End If
If ttt = "" Or ttt = "0" Or ttt = "1" Then
TheSearch = AllSearch(1)
ttt = TheSearch
qqq = TheSearch
GoTo line_26010
End If 'no entry default to first listed
'november 14 2000 the following stuff moved up to do_search area
' If UCase(ttt) = "XXX" Then
' extract_yes = "YES" 'november 12 2000
' ExtFile = FreeFile
'' Kill Cmd(19)
' DoEvents
' Open Cmd(19) For Output Access Write As #ExtFile
'' Open Cmd(19) For Output As #ExtFile
'' Print #ExtFile, "testing output"
' DoEvents
' line_len = 500 'on extract do not do any wraps???
' GoTo line_26002
' End If

'allow string length to determine search selection
'december 28 2000 comment out the 6 following lines
' If ttt = "11" Then GoTo line_26007
' If Len(ttt) = 1 Then GoTo line_26007
' If Len(ttt) = 2 And Left(ttt, 1) <> Mid(ttt, 2, 1) Then GoTo line_26007
' If Len(ttt) >= 2 And Left(ttt, 1) = Mid(ttt, 2, 1) And Mid(ttt, 2, 1) = Mid(ttt, 3, 1) Then
' ttt = CStr(Len(ttt))
' End If
line_26007:
save_line = "26007" 'december 28 2000
If Len(ttt) = 2 And ttt >= "10" And ttt < "21" Then GoTo line_26008
If Len(ttt) = 1 And ttt > "0" And ttt <= "9" Then GoTo line_26008
' ttt = "" 'january 05 2001
GoTo line_26010 'december 28 2000
'did the code above so no numeric error trap would be needed

line_26008:
'december 28 2000 commented out the 3 following lines
' If Val(ttt) < 2 Or Val(ttt) > 20 Then
' GoTo line_26010
' End If
TheSearch = AllSearch(Val(ttt))
ttt = TheSearch
qqq = TheSearch
line_26010:
TheSearch = ttt
'31 august 2002 ucase stuff below
'when all are numeric ie shifting cases makes no difference don't use uppercase otherwise do ie "Y"
do_tab = 0 '05 october 2002 no need to check for tabs if search has no spaces
If InStr(ttt, " ") > 0 Then do_tab = True '05 october 2002
If UCase(ttt) = ttt And LCase(ttt) = ttt Then
uppercase = "N"
' temptemp = InputBox("TESTING ucase no" + prompt2 + p2p2 + SAVE_ttt + ttt + "*" + UCase(ttt) + "*" + LCase(ttt), , , 4400, 4500) 'TESTING ONLY
End If
If UCase(ttt) <> ttt Or LCase(ttt) <> ttt Then
uppercase = "Y"
' temptemp = InputBox("TESTING ucase yes" + prompt2 + p2p2 + SAVE_ttt + ttt + "*" + UCase(ttt) + "*" + LCase(ttt), , , 4400, 4500) 'TESTING ONLY
End If
'31 august 2002
line_26020: 'store new search in search.txt
save_line = "26020"
FileFound = 0
For f = 1 To 20
If TheSearch = AllSearch(f) And Len(TheSearch) > 0 Then
FileFound = f 'save location where search is
End If
Next f
' Print "TheSearch="; TheSearch
' tt1 = InputBox("continue", , , 4400, 4500) 'TESTING ONLY

If UCase(TheSearch) = "D" Then
TheSearch = "" 'do not log D day searches
End If
If UCase(TheSearch) = "M" Then
TheSearch = "" 'do not log M month searches
End If
If UCase(TheSearch) = "DD" Then
TheSearch = "" 'do not log DD day searches
End If
If UCase(TheSearch) = "MM" Then
TheSearch = "" 'do not log MM month searches
End If
If FileFound = 0 And TheSearch <> "" Then
For f = 19 To 1 Step -1
AllSearch(f + 1) = AllSearch(f)
Next f
AllSearch(1) = TheSearch
GoTo line_26050
End If 'new one add it to top of list
If FileFound > 1 Then
For f = FileFound - 1 To 1 Step -1
AllSearch(f + 1) = AllSearch(f)
Next f
AllSearch(1) = TheSearch
GoTo line_26050
End If
line_26050:
save_line = "26050:"
If auto_exe = "YES" Then GoTo line_26080 '04 September 2004
If InStr(Cmd(40), Left(App.Path, 3)) = 0 And Trim(Cmd(40)) <> "" Then
'07Aug2012 no need for the following line message
'07Aug2012 If Left(UCase(Cmd(80)), 13) = "PROMPTDETAILS" Then Print " no search file update cmd(40)" '14Aug2011 this was annoying
' xtemp = InputBox("app.path" + App.Path + " not found or updated " + Cmd(40), , , 4400, 4500) 'TESTING ONLY
GoTo line_26080
End If '20 july 2002 must be a writeable device in cmd(40)
Kill Cmd(12) 'search strings save file
FileFile = FreeFile
Open Cmd(12) For Output As FileFile
For f = 1 To 20
Print #FileFile, AllSearch(f)
Next f
line_26080: '20 july 2002
Close FileFile
line_26090: 'return exit line
TheSearch = ""
Return

OpenFile_27000: 'march 20/00
'search.txt is the last 20 search strings
'for display and selection
save_line = "27000"
FileFile = FreeFile
Open Cmd(12) For Input As #FileFile

Return

keypad_27500: '19 December 2004
xtemp = UCase(xtemp)
If xtemp = "M" Then xtemp = "1"
If xtemp = "," Then xtemp = "2"
If xtemp = "." Then xtemp = "3"
If xtemp = "J" Then xtemp = "4"
If xtemp = "K" Then xtemp = "5"
If xtemp = "L" Then xtemp = "6"
If xtemp = "U" Then xtemp = "7"
If xtemp = "I" Then xtemp = "8"
If xtemp = "O" Then xtemp = "9"
If xtemp = "M " Then xtemp = "10"
If xtemp = "MM" Then xtemp = "11"
If xtemp = "M," Then xtemp = "12"
If xtemp = "M." Then xtemp = "13"
If xtemp = "MJ" Then xtemp = "14"
If xtemp = "MK" Then xtemp = "15"
If xtemp = "ML" Then xtemp = "16"
If xtemp = "MU" Then xtemp = "17"
If xtemp = "MI" Then xtemp = "18"
If xtemp = "MO" Then xtemp = "19"
If xtemp = ", " Then xtemp = "20"
Return '19 December 2004
'control.txt control.txt control.txt information read into cmd elements here read control file ***vip***
Control_28000: 'april 20/00 update control file info read it in
save_line = "28000"
If InStr(UCase(aaa), "CONTROL==") <> 0 Then GoTo line_28005 '19 November 2004
If InStr(Cmd(40), Left(App.Path, 3)) = 0 And Trim(Cmd(40)) <> "" And SAVE_ttt <> "in" Then
' xtemp = InputBox("app.path" + App.Path + " control file not re-read " + Format(delay_sec, "###0.0000") + Cmd(40) + SAVE_ttt, , , 4400, 4500) 'TESTING ONLY
' Print " no control file reread cmd(40)"
frmproj2.Caption = " no control file reread cmd(40)" '19 November 2004 testing only
GoTo line_28099
End If '20 july 2002 must be a writeable device in cmd(40)
line_28005: '19 November 2004 allow re-read if in control file as it is just switching files
' xtemp = InputBox("app.path" + App.Path + " control file not re-read " + Format(delay_sec, "###0.0000") + Cmd(40) + SAVE_ttt, , , 4400, 4500) 'TESTING ONLY
' FileFile = FreeFile
CtrlFile = FreeFile
' Open "C:\control.txt" For Input As #FileFile
Open control_file For Input As #CtrlFile
line_28010:
save_line = "28010"
For f = 1 To 100
Line Input #CtrlFile, FFF
Cmd(f) = FFF
Next f

'all new elements should be read in and set to values here
'eventually moving them from the prompt area to here.

'08 January 2004 slomo_seg
slomo_seg = 0
slomo_seg = Val(Cmd(62))
If slomo_seg = 0 Then
'21 March 2004 slomo_seg = 0.01667
slomo_seg = 0.01668
End If
'08 January 2004

pad_time = 0 '21 March 2004
pad_time = Val(Cmd(64)) '21 March 2004
If pad_time = 0 Then
'12Jan2018 disable pad_time = 30
End If '21 March 2004

'04 November 2003 have play_speed in control file
play_speed = 1000
If Left(UCase(Cmd(61)), 8) = "SETSPEED" Then
f = Len(Cmd(61)) - 8
play_speed = Val(Right(Cmd(61), f))
If play_speed = 0 Then
play_speed = 1000
End If
End If '04 November 2003
save_play_speed = play_speed '16 November 2003
'18 March 2003 ver=1.01
If Left(Cmd(55), 2) > "00" And Left(Cmd(55), 2) <= "99" Then
Clear_Context_lines = Val(Left(Cmd(55), 2))
Else
Clear_Context_lines = 0 '18 March 2003 ver=1.01
End If
'18 March 2003 ver=1.01

'22 March 2003 ver=1.02
If UCase(Cmd(56)) = "PHOTO_DETAIL" Then
Cmd(56) = "PHOTO_DETAIL" 'just to make sure all capitals
detailyn = "PHOTO_DETAIL" '18 November 2004
Else
detailyn = "noPHOTO_DETAIL" '18 November 2004
End If
'22 March 2003 ver=1.02

If UCase(Cmd(53)) = "SHOWVIDEO" Then
videoyn = "SHOWVIDEO"
Else
videoyn = "NOSHOWVIDEO"
End If '10 FEBRUARY 2003
If Left(UCase(Cmd(50)), 9) = "SHOWFILES" Then
show_files_yn = True '24 december 2002
' xtemp = InputBox("DOUG 3 show_files_yn " + Cmd(50), , , 4400, 4500) 'TESTING ONLY
End If
'19Aug2011
Cmd(49) = "NORANDOM" '30Aug2022 nothing but trouble when left on

If Left(UCase(App.EXEName), 6) = "RANDOM" Or Left(UCase(App.EXEName), 10) = "SEQUENTIAL" Then
Cmd(49) = "NORANDOM"
If Left(UCase(App.EXEName), 6) = "RANDOM" Then
Cmd(49) = "RANDOM"
' xtemp = InputBox("testing random set " + Cmd(50), , , 4400, 4500) 'TESTING ONLY
End If
End If '12May2012

If (InStr(1, UCase(Cmd(45)), UCase(App.EXEName))) <> 0 Then auto_exe = "YES" '07 december 2002
'==============================================================
random_info = "" '21 december 2002
If Left(UCase(Cmd(49)), 6) = "RANDOM" Then
random_info = " (RANDOM)" '21 december 2002
rand = -1 'when multiples allowed as below remove this line

'19 august 2003 try skipping the following line... for now
'19 august 2003 If xxx_found = "NO" And text_pause <> True Then rand = 0 '19 january 2003
' xtemp = InputBox("testing douga 19 august 2003 " + Cmd(50), , , 4400, 4500) 'TESTING ONLY
'19 august 2003 If xxx_found = "NO" Then rand = 0 '19 january 2003
End If '09 december 2002
'19 August 2003 If Cmd(49) <> "RANDOM" Then rand = 0 '09 december 2002
If Left(Cmd(49), 6) <> "RANDOM" Then rand = 0 '09 december 2002
'=============================================================
rand1 = 0 '23 March 2004
If Left(UCase(Cmd(65)), 7) = "RANDBEG" Then
rand1 = -1
End If '23 March 2004

thumb_nail = "NO" '14 April 2004
If Left(UCase(Cmd(67)), 5) = "THUMB" Then
thumb_nail = "YES"
End If '14 April 2004

save_line = "28020"
Def_Fore = 15 'assign foreground to white
Def_Fore = Cmd(4)
Hold_Fore = Def_Fore '27 July 2003
sep = Cmd(6) 'search string seperator eg "/" or "." etc
Set_Fore = 12 'assign set to red
Set_Fore = 14 'try yellow
Set_Fore = Cmd(5)
line_len = Val(Cmd(21))
over_lap = Val(Cmd(13)) 'january 10 2001
' xtemp = InputBox("testing prompt overlap=" + CStr(over_lap) + " " + CStr(wrap_cnt) + " " + CStr(cnt), "test", , 4400, 4500) '
If over_lap < 1 Then over_lap = 10 'january 10 2001
If Val(line_len) < 10 Then
line_len = 82
End If
Context_lines = Val(Cmd(22))
If Context_lines > 40 Then Context_lines = 40 'February 04 2001
If Context_lines < 1 Then
Context_lines = 10
End If
photo_copy = Cmd(23) 'march 17 2001
If Len(photo_copy) < 7 Then
photo_copy = "d:\search\tempfold\"
End If 'march 17 2001
ppaste = Cmd(24) 'allow for vvv paste in data entry
gpaste = Cmd(25) 'allow for ggg paste in data entry
ss_search = Cmd(26)
If ss_search = "" Then
ss_search = "PHOTO"
screensave(1) = "PHOTO"
End If
delay_sec = Val(Cmd(27)) 'wait pause timing
smlbud = Val(Cmd(85)) 'budge amount for video offset 17Dec2017
bigbud = Val(Cmd(86)) 'the skip amount in fast forward and budge in effect 17Dec2017
maxbud = Val(Cmd(87)) ' the total number of budge allowed 17Dec2017
' If smlbud = 0 Then smlbud = 2 'budge amount not set in older control files 17Dec2017
hold_sec = delay_sec '22 March 2004
'demo don't allow them the privilege of changing display time
If ddemo = "YES" Then
delay_sec = 0
End If
If delay_sec < 0 Then
delay_sec = 4 '08 July 2003 what the heck is this for ***vip*** check it out
End If
xx1 = 8000
yy1 = 6500
' If Test1_str = "P1" Then
xx1 = Val(Cmd(17))
yy1 = Val(Cmd(18))
' End If
If xx1 < 100 Then
xx1 = 8000
End If
If yy1 < 100 Then
yy1 = 6500
End If

GoSub line_29100 'noshow routine
GoSub line_29200 'screen saver routine
ForeColor = QBColor(Def_Fore)
BackColor = QBColor(3)
BackColor = QBColor(Val(Cmd(3)))
' BackColor = QBColor(Rnd * 20) 'add some color
'it randomizes to black and can't see a thing??
MAX_CNT = 20 'IF FONT.SIZE CHANGES SO DOES THIS COUNT
MAX_CNT = Val(Cmd(1))
Font.Size = 12
Font.Size = Val(Cmd(2))
photo_copy = Cmd(23) '14Jul2016
' photo_copy = Val(Cmd(23)) 'march 17 2001
' If back_cnt < 1 Then
' back_cnt = MAX_CNT
' End If
If Cmd(29) = "" Then
Cmd(29) = "12"
End If
If Val(Cmd(29)) < 1 Then
Cmd(29) = "12"
End If 'October 27 2000
AltColor = Val(Cmd(29))
If Cmd(30) <> "N" Then
Cmd(30) = "Y"
End If 'October 27 2000

'this was an attempt to get the problem with the Millennium ME software
' If UCase(Cmd(30)) <> "Y" Then Cls 'december 8 2000
' If UCase(Cmd(30)) <> "Y" Then frmProj2.BorderStyle = 2 'december 8 2000
' If UCase(Cmd(30)) <> "Y" Then frmProj2.MaxButton = True 'december 8 2000
' If UCase(Cmd(30)) <> "Y" Then frmProj2.Caption = "Millennium" 'december 8 2000
' If UCase(Cmd(30)) <> "Y" Then frmProj2.Height = 9005 'december 8 2000
hilite_this = Cmd(31) ' only hilites data not on matching line
If Len(Cmd(32)) < 7 Then
' Cmd(32) = "c:\cript.txt"
Cmd(32) = "cript.txt" 'december 3 2000
End If 'november 20 2000
cript_file = Cmd(32)
If Cmd(33) = " " Then Cmd(33) = "" 'december 7 2000
context_win = Val(Cmd(34)) 'january 01 2001
If UCase(Cmd(38)) = "STRETCH" Then
stretch_info = " (STRETCH)" '21 december 2002
stretch_img = "YES"
img_ctrl = "YES"
Else
stretch_info = " (NORMAL)" '21 december 2002
stretch_img = "NO"
img_ctrl = "NO"
End If 'september 23 2001
auto_redraw = "NO" 'november 10 2001
frmproj2.AutoRedraw = False 'november 10 2001 autoredraw
If UCase(Cmd(39)) = "AUTOREDRAW" Then
auto_redraw = "YES"
frmproj2.AutoRedraw = True 'november 10 2001 autoredraw
End If 'november 10 2001
adjust_sec = Val(Cmd(59)) '29 September 2003
freeze_sec = Val(Cmd(60)) '01 October 2003
OffSet = 0 '02Nov2011
If Left(UCase(Cmd(83)), 8) = "OFFSET==" Then
f = Len(Cmd(83)) - 8
OffSet = Val(Right(Cmd(83), f))
End If '02Nov2011

' xtemp = InputBox("DOUG TESTING " + auto_redraw + Cmd(39) + "*", , , 4400, 4500) 'TESTING ONLY
If context_win < 3 Then context_win = 3 'january 01 2001
If context_win > MAX_CNT Then context_win = MAX_CNT 'january 01 2001
line_28099: '20 july 2002
Close CtrlFile
Return

replace_29000: 'August 10/00 search / replace sequence
save_line = "29000"
' frmproj2.Caption = program_info + " (cls #15)" '18Dec2013
Cls 'clear screen
If encript <> "RRR" Then
GoTo line_29000a
End If 'november 20 2000
criptcnt = 0
line_29000a:
xtemp = Cmd(19) 'usually replace.txt
GoSub line_16000 'get file name
' xtemp = InputBox("27 october 2004 TESTING 5b =" + encript + "=", , , 4400, 4500) 'TESTING ONLY
temp2 = 0
' DoEvents '27 October 2004
' xtemp = InputBox("27 october 2004 TESTING 5b1 =" + encript + "=", , , 4400, 4500) 'TESTING ONLY
If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then '27 October 2004
OutFile = FreeFile '27 October 2004 this may be a problem for just the RRR function
End If '27 October 2004 put the if around it just so things do not change
Open TheFile For Input As #OutFile
' xtemp = InputBox("27 october 2004 TESTING 5b2 =" + encript + "=", , , 4400, 4500) 'TESTING ONLY
If encript <> "RRR" Then
GoTo line_29005
End If 'november 20 2000
If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then '27 October 2004
Line Input #BatchFile, case_yes
' xtemp = InputBox("27 october 2004 TESTING 5c =" + case_yes + "=", , , 4400, 4500) 'TESTING ONLY
GoTo skip_case
End If '27 October 2004
case_yes = UCase(InputBox("Case sensitive change Y/N <N>", "Case sensitive Prompt", , xx1 - offset1, yy1 - offset2))
skip_case: '27 October 2004
If case_yes <> "Y" Then
case_yes = "N"
End If
line_29003:
If case_yes = "Y" Then
If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then '27 October 2004
' xtemp = InputBox("27 october 2004 TESTING 6 " + ttt, , , 4400, 4500) 'TESTING ONLY
Line Input #BatchFile, in_str
GoTo skip_in_str
End If
in_str = InputBox("String to change", "From string Prompt", , xx1 - offset1, yy1 - offset2)
skip_in_str: '27 October 2004
End If
If case_yes <> "Y" Then
If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then '27 October 2004
' xtemp = InputBox("27 october 2004 TESTING 7 " + ttt, , , 4400, 4500) 'TESTING ONLY
Line Input #BatchFile, in_str
' in_str = UCase(in_str)
GoTo skip_in_str1
End If
in_str = UCase(InputBox("String to change", "From string Prompt", , xx1 - offset1, yy1 - offset2))
skip_in_str1: '27 October 2004
End If
'30 October 2004 this worked for blank lines comming in in the batch file. Now it does not do much else on blanks
'30 October 2004 If in_str = "" Or Left(UCase(in_str), 4) = "END*" Then
'03 November 2004 If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" And in_str = "" Then in_str = " " '30 October 2004
If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then
temptemp = in_str '03 November 2004
check_tab: '03 November 2004
tt = InStr(temptemp, Chr(9)) 'check for tabs
If tt = 0 Then
GoTo past_tab
End If
in_str = Left(temptemp, tt - 1) + " " + Mid(temptemp, tt + 1) 'replace tab with spaces (consistancy of code too)
GoTo check_tab
past_tab: '03 November 2004
'temptemp needed here so that tabs elsewhere are not removed (only if tabs and spaces only on line)
If Trim(in_str) = "" And in_str = temptemp Then
' frmproj2.Caption = " trim found " + CStr(criptcnt) '03 November 2004 testing only
' new_delay_sec = 5 '03 November 2004 testing only
' GoSub line_30300 '03 November 2004 testing only
GoTo line_29003 '03 November 2004
End If '03 November 2004
End If
If in_str = "" Or Left(UCase(in_str), 4) = "END*" Then
' xtemp = InputBox("27 october 2004 TESTING 7a " + in_str, , , 4400, 4500) 'TESTING ONLY
GoTo line_29005
End If
Print in_str; " ";
' ttt1 = Len(in_str)
If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then '27 October 2004
' xtemp = InputBox("27 october 2004 TESTING 8 " + ttt, , , 4400, 4500) 'TESTING ONLY
' Line Input #BatchFile, out_str
'03 November 2004 out_str = "nothing" '27 October 2004 testing only
out_str = " " '03 November 2004
GoTo skip_out_str
End If '27 October 2004
out_str = InputBox("New string", "To string Prompt", , xx1 - offset1, yy1 - offset2)
skip_out_str: '27 October 2004
' xtemp = InputBox("27 october 2004 TESTING 8a *" + out_str + "*", , , 4400, 4500) 'TESTING ONLY
If out_str = "" Or UCase(out_str) = "END*" Then
' xtemp = InputBox("27 october 2004 TESTING 8b " + ttt, , , 4400, 4500) 'TESTING ONLY
GoTo line_29005
End If
Print out_str
If criptcnt Mod 20 = 0 Then
frmproj2.Caption = " working- " + CStr(criptcnt) '28 October 2004
Cls
End If '27 October 2004 clear the screen only
criptcnt = criptcnt + 1
cript1(criptcnt) = in_str
cript2(criptcnt) = out_str
cript3(criptcnt) = Len(cript1(criptcnt))
' xtemp = InputBox("27 october 2004 TESTING 7aa " + CStr(criptcnt), , , 4400, 4500) 'TESTING ONLY
' II = Len(out_str)
' If Len(Cmd(19)) < 7 Then
' Cmd(19) = "c:\replace.txt"
' End If
GoTo line_29003

line_29005:
' xtemp = InputBox("27 october 2004 TESTING 9 " + ttt, , , 4400, 4500) 'TESTING ONLY
If criptcnt = 0 Then
GoTo line_29095
End If

save_line = "29005"
Kill FileExt
line_29008:
FileFile = FreeFile
Open FileExt For Output Access Write As #FileFile
' criptcnt = 1 'november 18 2000
' cript1(1) = in_str 'november 18 2000
' cript2(1) = out_str 'november 18 2000
dblStart = Timer 'get the start time
zzz_cnt = 0
line_29010:
save_line = "29010"
Line Input #OutFile, aaa
line_29015: 'allow for the replacement right here february 10 2001
If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then GoTo line_29020 '27 October 2004
tt = InStr(aaa, Chr(9)) 'check for tabs
If tt = 0 Then
GoTo line_29020
End If
'change any tabs to 4 spaces
aaa = Left(aaa, tt - 1) + " " + Mid(aaa, tt + 1)
GoTo line_29015 'february 10 2001 if search and replace done do tabs
line_29020: 'february 10 2001
save_line = "29020" '17Dec2017
If encript = "RRR" Then
GoSub line_29300 'do line at a time november 18 2000
Else
zzz_cnt = zzz_cnt + 1
' If zzz_cnt Mod 10000 = 0 Then
If zzz_cnt Mod 10000 = 0 Then
DoEvents 'december 06 2001
Print "working "; zzz_cnt; Format(Now, "ddddd ttttt")
End If
GoSub line_29400 'do line at a time november 18 2000
End If
yyy_cnt = yyy_cnt + 1 '28 October 2004
If yyy_cnt Mod 1000 = 0 Then '17dec2017
' If yyy_cnt Mod 100 = 0 Then
frmproj2.Caption = " working at " + CStr(yyy_cnt) + " of " + CStr(criptcnt) '28 October 2004
End If '27 October 2004
GoTo line_29010
line_29090:
dblEnd = Timer 'get the end time
Print " elap="; Format(dblEnd - dblStart, "#####0.000")
Print "rename "; FileExt; " as "; TheFile
If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then '27 October 2004
frmproj2.Caption = " total matches " + CStr(criptcnt) '27 October 2004
new_delay_sec = 3 '27 October 2004 testing only
GoSub line_30300 '27 October 2004 testing only
tt1 = "N"
GoTo skip_rename
End If '27 October 2004
tt1 = UCase(InputBox("total changes=" + CStr(temp2) + " rename files Y/N <Y>", "Rename Prompt", , xx1 - offset1, yy1 - offset2)) 'TESTING ONLY
skip_rename: '27 October 2004
If tt1 <> "N" Then
tt1 = "Y"
End If
If UCase(tt1) = "N" Then
Close FileFile, OutFile
GoTo line_29095
End If
Close FileFile, OutFile
DoEvents
save_line = "29092"
' Kill "c:\oldfile.txt"
Kill "oldfile.txt" 'december 3 2000
DoEvents
line_29093:
' tt1 = InputBox("minor pause", , , 4400, 4500) 'TESTING ONLY
DoEvents
' Name TheFile As "c:\oldfile.txt"
Name TheFile As "oldfile.txt" 'december 3 2000
DoEvents
Name FileExt As TheFile
'rename files here if Y entered
line_29095:
DoEvents
Return

line_29100: 'noshow elements set up here
save_line = "29100"
For II = 1 To 10
noshow(II) = ""
Next II
If Len(Cmd(28)) < 3 Then
GoTo line_29190
End If
nocount = 0
temps = Cmd(28) + ""
line_29150:
save_line = "29150"
tt = InStr(temps, " ")
If tt = 1 Then
temps = Right(temps, Len(temps) - 1)
GoTo line_29150 'strip out any leading spaces
End If
If tt = 0 Then
If Len(temps) > 2 Then
nocount = nocount + 1
noshow(nocount) = temps
' Print "noshow(a)="; "*"; noshow(nocount); "*"; aaa, nocount
' tt1 = InputBox("testing", , , 4400, 4500) 'TESTING ONLY
End If
GoTo line_29190
End If
nocount = nocount + 1
noshow(nocount) = Left(temps, tt - 1)
temps = Right(temps, Len(temps) - tt)
' Print "noshow(b)="; "*"; noshow(nocount); "*"; aaa, nocount
' tt1 = InputBox("testing", , , 4400, 4500) 'TESTING ONLY
GoTo line_29150
line_29190:
save_line = "29190"
For II = 1 To 10
If Len(noshow(II)) < 3 Then
GoTo line_29199
End If
temps = noshow(II) + ""
tt = InStr(1, " ", temps)
save_line = "29190a"
If tt > 1 Then
ttt1 = Len(temps) - tt
tempss = Left(temps, ttt1)
noshow(II) = tempss + ""
'strip off any trailing spaces
End If
line_29199:
Next II
For II = 1 To nocount
' noshow(II) = " " + UCase(noshow(II)) + " "
noshow(II) = UCase(noshow(II))
' Print "noshow(II)="; "*"; noshow(II); "*"; aaa, II
' tt1 = InputBox("testing", , , 4400, 4500) 'TESTING ONLY
'put 1 space before and 1 after only
Next II
Return
line_29200: 'screen saver logic here
screencount = 0
save_line = "29200"
For II = 1 To 10
screensave(II) = ""
Next II
If Len(Cmd(26)) < 3 Then
GoTo line_29290
End If
' nocount = 0
temps = Cmd(26) + ""
line_29250:
save_line = "29250"
tt = InStr(temps, " ")
If tt = 1 Then
temps = Right(temps, Len(temps) - 1)
GoTo line_29250 'strip out any leading spaces
End If
If tt = 0 Then
If Len(temps) > 2 Then
screencount = screencount + 1
screensave(screencount) = temps
' Print "screensave(a)="; "*"; screensave(screencount); "*"; aaa; screencount
' tt1 = InputBox("testing", , , 4400, 4500) 'TESTING ONLY
End If
GoTo line_29290
End If
screencount = screencount + 1
screensave(screencount) = Left(temps, tt - 1)
temps = Right(temps, Len(temps) - tt)
GoTo line_29250
line_29290:
save_line = "29290"
For II = 1 To 10
If Len(screensave(II)) < 3 Then
GoTo line_29299
End If
temps = screensave(II) + ""
tt = InStr(1, " ", temps)
save_line = "29290a"
If tt > 1 Then
ttt1 = Len(temps) - tt
tempss = Left(temps, ttt1)
screensave(II) = tempss + ""
'strip off any trailing spaces
End If
line_29299:
Next II
For II = 1 To screencount
' screensave(II) = " " + UCase(screensave(II)) + " "
screensave(II) = UCase(screensave(II))
'put 1 space before and 1 after only
Next II

Return

line_29300:
changes = "NO" 'december 2 2000
For tt = 1 To criptcnt
' frmproj2.Caption = " testing 444 *" + cript1(tt) + "*" + CStr(cript3(tt)) + " " + CStr(criptcnt) + " " + CStr(tt) '27 October 2004
' new_delay_sec = 0.1 '27 October 2004 testing only
' GoSub line_30300 '27 October 2004 testing only
III = 1
' in_str = cript1(tt)
' out_str = cript2(tt)
' ttt1 = Len(in_str)
' II = Len(out_str)
' xtemp = Len(cript2(tt))
save_line = "29310" '17Dec2017
' frmproj2.Caption = " testing 29310 *" + Len(Trim(aaa)) '17Dec2017
'17Dec2017 this line vvv is a problem error trapped at line 29310
JJ = Len(aaa)
If case_yes = "Y" And Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then '27 October 2004
If aaa = cript1(tt) Then
' frmproj2.Caption = " testing 444a " + CStr(cript3(tt)) + " " + CStr(criptcnt) '27 October 2004
' new_delay_sec = 1 '27 October 2004 testing only
' GoSub line_30300 '27 October 2004 testing only
temp2 = temp2 + 1 'count of changes done
aaa = " "
cript1(tt) = "xyxyxyxyxyxyxyxyxy" '27 October 2004 clear it
GoTo line_29399 '29 October 2004
End If '27 October 2004
End If '27 October 2004
If case_yes = "Y" And InStr(aaa, cript1(tt)) = 0 Then
' Print #FileFile, aaa
GoTo line_29399
End If
If case_yes = "N" And Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then '27 October 2004
If UCase(aaa) = cript1(tt) Then
' frmproj2.Caption = " testing 444aa " + CStr(cript3(tt)) + " " + CStr(criptcnt) '27 October 2004
' new_delay_sec = 1 '27 October 2004 testing only
' GoSub line_30300 '27 October 2004 testing only
temp2 = temp2 + 1 'count of changes done
aaa = " "
cript1(tt) = "xyxyxyxyxyxyxyxyxy" '27 October 2004 clear it
GoTo line_29399 '29 October 2004
End If '27 October 2004
End If '27 October 2004
If case_yes = "N" And InStr(UCase(aaa), cript1(tt)) = 0 Then
' Print #FileFile, aaa
GoTo line_29399
End If

line_29320:
If case_yes = "Y" Then
II = InStr(III, aaa, cript1(tt))
Else
II = InStr(III, UCase(aaa), cript1(tt))
End If
If II = 0 Then
' Print #FileFile, aaa
GoTo line_29399
End If
III = II + 1
'27 October 2004 here do some checking
aaa = Left(aaa, II - 1) + cript2(tt) + Right(aaa, JJ + 1 - II - cript3(tt))
JJ = Len(aaa) 'november 13 2000
' Print aaa
' Print tt, JJ, cript3(tt), II
' tt1 = InputBox("testing", , , 4400, 4500) 'TESTING ONLY
' If UCase(tt1) = "X" Then
' GoTo line_29090
' End If
temp2 = temp2 + 1 'count of changes done
changes = "YES" 'december 2 2000
GoTo line_29320

line_29399:
Next tt '17Dec2017 comment end of loop
If changes = "YES" And crlf = "NO" Then
Print #FileFile, aaa;
Else
If Left(UCase(Cmd(71)), 11) = "BATCHFILE==" Then '03 November 2004
If Len(Trim(aaa)) < 1 Then
Else
Print #FileFile, aaa
End If '03 November 2004
Else
Print #FileFile, aaa

End If '03 November 2004 keep all the blank lines from being put to output file
End If 'do not print crlf if sss requested
'instead of rrr ie for the From:
'change december 2 2000

Return

line_29400: 'november 19 2000
' For tt = 1 To criptcnt
' cript3(tt) = Len(cript1(tt))
' Next tt
' save_line = "29400"
tt1 = "" 'the output string after translation
'17Dec2017 same error here...

save_line = "29400" '17dec2017

JJ = Len(aaa)
line_29410:
FFF = "" 'indicate if search string found.
xtemp = Left(aaa, 1)
For tt = 1 To criptcnt
' in_str = cript1(tt)
' out_str = cript2(tt)
' ttt1 = Len(in_str)
' If cript3(tt) > JJ Then 'november 23 2000
' GoTo line_29450 'more characters than in string november 23 2000
' End If 'november 23 2000
' If case_yes = "N" Then GoTo line_29430
' If cript3(tt) = 1 And xtemp <> cript1(tt) Then GoTo line_29450 'november 23 2000
' If Left(aaa, cript3(tt)) <> cript1(tt) Then november 23 2000 see following line
' If Left(aaa, 1) <> cript1(tt) Then
If xtemp <> cript1(tt) Then
GoTo line_29450
End If
' GoTo line_29440
'line_29430:
' If cript3(tt) = 1 And UCase(xtemp) <> UCase(cript1(tt)) Then GoTo line_29450
' If UCase(Left(aaa, cript3(tt))) <> UCase(cript1(tt)) Then
' GoTo line_29450
' End If
line_29440:
' aaa = Right(aaa, JJ - cript3(tt)) 'november 23 2000
aaa = Right(aaa, JJ - 1)
FFF = "Y"
GoTo line_29460
line_29450:

Next tt

line_29460:
If FFF <> "Y" Then
tt1 = tt1 + Left(aaa, 1)
If JJ > 1 Then
aaa = Right(aaa, JJ - 1)
Else
aaa = ""
End If
Else
temp2 = temp2 + 1
tt1 = tt1 + cript2(tt)
End If
' JJ = Len(aaa) 'november 23 2000
JJ = JJ - 1
If JJ > 0 Then
GoTo line_29410
End If

If encript <> "MYSTUF" Then
Print #FileFile, tt1
Else
aaa = tt1
End If
Return

line_29500:
save_line = "29500"
FileFile = FreeFile
Open FileExt For Input As #FileFile
temp2 = 0
criptcnt = 0
save_line = "29510"
line_29510:
Line Input #FileFile, aaa
temp2 = temp2 + 1
Line Input #FileFile, tt1
temp2 = temp2 + 1
criptcnt = criptcnt + 1
If encript = "CRIPT" Then
cript1(criptcnt) = aaa
cript2(criptcnt) = tt1
Else
cript1(criptcnt) = tt1
cript2(criptcnt) = aaa
End If
GoTo line_29510
line_29520:
save_line = "29520"
Close #FileFile
For tt = 1 To criptcnt
cript3(tt) = Len(cript1(tt))
Next tt

'tempss = InputBox("cript.txt read" + CStr(criptcnt), , , 4400, 4500) 'TESTING ONLY
Return 'november 20 2000 read in the encription file info.

'timer subroutine set delay_sec to seconds to hold wait sleep
line_30000:
DoEvents

'january 23 2002 If delay_sec < 1 Then
' tempss = InputBox("testing delay" + Format(delay_sec, "###0.000"), , , 4400, 4500) 'january 23 2002
'04 february 2003 comment out below want to set WAIT=0 for avi file displays
' If delay_sec < 0.0001 Then delay_sec = Val(Cmd(27)) '02 may 2002
If delay_sec < 0.00001 Then
GoTo line_30020
End If

'29 September 2003 add or subtract amount in cmd() to delay_sec
If adjust_sec <> 0 Then
delay_sec = delay_sec + adjust_sec
End If '29 September 2003
temp_cnt1 = 0 '12 April 2004
line_30005:

'12 April 2004
If slomo = False And mpg_file = "YES" Then
i = mciSendString("status video1 position", vs, 255, 0)
temp3 = InStr(vs, Chr$(0)) '19 March 2004
temp_cnt = Val(Left(vs, temp3 - 1)) '19 March 2004
'12 April 2004 If line_start_point + (delay_sec * 1000) >= temp_cnt + 0.01 Then
'14 April 2004 this is where a problem cropped up (just adding 0.1 fixed it??)
'14 April 2004 If line_start_point + (delay_sec * 1000) >= temp_cnt + 0.01 And temp_cnt > temp_cnt1 Then
' If line_start_point + (delay_sec * 1000) >= temp_cnt + 0.01 And temp_cnt + 0.1 > temp_cnt1 Then
If line_start_point + (delay_sec * 1000) >= temp_cnt Then '23Jan2018 the end of the drag race videos were not showing fixed
DoEvents '10 April 2004 allow for interrupt in full speed video....
temp_cnt1 = temp_cnt '12 April 2004
GoTo line_30005
End If
i = mciSendString("pause video1", 0&, 0, 0)
mpg_file = "NO" '24 March 2004
DoEvents
' frmproj2.Caption = "test 24 March 2004 " + CStr(line_start_point) + " " + CStr(delay_sec * 1000) + " " + CStr(temp_cnt) '24 March 2004
' tempss = InputBox("testing delay" + Format(delay_sec, "###0.000"), , , 4400, 4500) 'january 23 2002
GoTo line_30020 '24 March 2004...
End If

line_30012:
' If slomo <> True Then '08 January 2004 so when enter hit it will be in the pause routine
' DoEvents '03 november 2002 turn off when debugging problems etc
' DoEvents '23 September 2003 add another just for more sharing...
' End If '08 January 2004 just the if statement around the doevents added

'24 March 2004 2004======================================
'15Nov2011 If slomo Then 'the if slomo = true loop here ***vip***slomo ***hint***
'15Nov2011 this made it work for a again and full speed otherwise it was playing slowmo 2nd time
If slomo And play_speed <> 1000 Then 'the if slomo = true loop here ***vip***slomo

line_30012a:
i = mciSendString("status video1 position", vs, 255, 0)
DoEvents '26Apr2012might want to skip this one because background jobs could hog and cause extended play
temp3 = InStr(vs, Chr$(0)) '10 April 2004
' temp_cnt = Val(Left(vs, temp3 - 1)) '10 April 2004
temp_cnt = Val(vs) '

'10 April 2004 temp_cnt = Val(vs)
If temp_cnt < last_vs + pad_time Then GoTo line_30012a

tempdata = CStr(temp_cnt)
last_vs = Val(vs)

If replay_yn = True Then
If temp_cnt >= replay_pos Then
' tempss = InputBox("testing replay position " + CStr(temp_cnt), , , 4400, 4500) '10 April 2004
play_speed = hold_speed '10 April 2004
replay_yn = False '10 April 2004
End If
End If '10 April 2004

If UCase(Left(Cmd(63), 8)) = "SHOWELAP" Then
DoEvents
' frmproj2.Caption = LCase(temptemp) + " (Replay by Spectate Swamp) " + tempdata + " of " + CStr(video_length) '18 February 2004
'12Mar2012 frmproj2.Caption = LCase(temptemp) + " (by Spectate Swamp) " + tempdata + " of " + CStr(video_length) '18 February 2004
frmproj2.Caption = LCase(temptemp) + " elapsed** " + tempdata + " of " + CStr(video_length) '18 February 2004
DoEvents
tempdata = ""
End If
If begin = "YES" And line_start_point > temp_cnt Then GoTo line_30016 '15Sep2011
If begin_point <> 0 And temp_cnt < line_start_point Then GoTo line_30016 '20Sep2011
If resume_str = "NO" Then GoTo line_30016 '25Sep2011 ==
'every once in a while it would not do the resume so I added the -50 below
' If resume_str = "YES" And temp_cnt >= line_start_point + delay_sec * 1000 - 50 Then
If resume_str = "YES" And temp_cnt >= line_start_point + delay_sec * 1000 Then '23Jan2018
play_speed = 1000 '25Sep2011
save_play_speed = 1000 '25Sep2011
'23Jan2018 delay_sec = 1000 '25Sep2011
resume_str = "NO" '25Sep2011
GoTo line_30016 '25Sep2011
End If '25Sep2011
i = mciSendString("pause video1", 0&, 0, 0)
DoEvents
new_delay_sec = (1000 / play_speed) * (pad_time / 1000)
' frmproj2.Caption = "test 24 March 2004 " + CStr(new_delay_sec) '24 February 2004

motion_in = Timer '01 March 2004 changed from slomo_in etc
line_30012b:
'try and slow the delay for character pause. it would not do less than 1/10 sec or so?
If new_delay_sec > 0.02 Then '05 February 2008
DoEvents
motion_out = Timer
If motion_out + 43200 < motion_in Then
motion_in = motion_in - 86400
End If
If motion_out - motion_in < new_delay_sec Then
GoTo line_30012b
End If
Else ' 05 February 2008
temp_cnt1 = Int(new_delay_sec * 100000)
For temp_cnt = 1 To temp_cnt1
For II = 1 To 10
DoEvents
Next II
Next temp_cnt

End If '05 February 2008

'26 March 2004 try and back it up a bit before resume. that should make it even slower...
' i = mciSendString("seek video1 " + CStr(last_vs - pad_time), 0&, 0, 0) '26 March 2004
i = mciSendString("resume video1", 0&, 0, 0)
line_30016: '15Sep2011
DoEvents
End If 'end of "If slomo = true then ***vip***slomo ***hint***

If resume_str = "YES" And temp_cnt >= line_start_point + delay_sec * 1000 Then slomo = False '25Sep2011
'If again_str = "DONE" And temp_cnt < line_start_point + delay_sec * 1000 Then slomo = False '14Nov2011
DoEvents '09 March 2004
' slomo = True '19 March 2004 just so that full speed ie=1000 will get the elapsed displayed
' slomo = True '14 April 2004 testing only
'handy for testing too

If slomo Then
DoEvents '16 March 2004
i = mciSendString("status video1 position", vs, 255, 0) '04 March 2004
temp_double = Val(Trim(vs)) '18 March 2004
tempdata = CStr(temp_double) '17 March 2004
If temp_double < 1 Then
'14Jan2012 xtemp = InputBox(" test 18 March 2004 " + CStr(line_start_point + (delay_sec * 1000)) + " > " + Trim(vs), , xx1 - offset1, yy1 - offset2)
End If '18 March 2004

DoEvents

'13 April 2004 need to check temp_cnt against video_length here and ship out meebee
If temp_double >= video_length - 100 Then
GoTo line_30020
End If '13 April 2004

If line_start_point + (delay_sec * 1000) <= Val(vs) + 0.01 Then
' xtemp = InputBox(" test 24 March 2004 " + CStr(line_start_point) + " " + CStr((line_delay_sec * 1000)) + " <= " + Trim(vs), , xx1 - offset1, yy1 - offset2) 'test
GoTo line_30020
Else
GoTo line_30012
End If
End If '04 March 2004

' 14 January 2004 test show the play_speed here???
' xtemp = InputBox(" test 14 january 2004 " + CStr(play_speed), "testing Prompt ", , xx1 - offset1, yy1 - offset2) 'test

GoTo line_30020 'january 23 2002 ie just skip the logic below every time
line_30018: 'february 08 2002 deactivated as above
ampm = ""
temps = Format(Now, "ddddd ttttt") 'start timer time
' Print "start timeer="; temps
temp1 = InStr(2, temps, " ")
temps = Right(temps, Len(temps) - temp1) 'just the hrs and minutes
temp1 = InStr(2, temps, "M") 'check if US format
If temp1 <> 0 Then
' Print tt, JJ, ttt1
' tt1 = InputBox("PM AM found", , , 4400, 4500) 'TESTING ONLY
temp2 = InStr(2, temps, "PM")
If temp2 <> 0 Then
ampm = "PM"
End If
If temp2 = 0 Then
ampm = "AM"
End If
temps = Left(temps, Len(temps) - 3) 'strip of AM PM
End If
temp1 = InStr(1, temps, ":")
hhour = Left(temps, temp1 - 1)
temps = Right(temps, Len(temps) - temp1)
temp1 = InStr(1, temps, ":")
mminute = Left(temps, temp1 - 1)
ssecond = Right(temps, Len(temps) - temp1)
hhhour = Val(hhour)
mmminute = Val(mminute)
sssecond = Val(ssecond)
If ampm = "PM" Then
hhhour = hhhour + 12
End If
temp11 = hhhour * 3600 + mmminute * 60 + sssecond 'moved from below march 14 2001

line_30010:
DoEvents '03 november 2002 turn off when debugging (other jobs on computer ??)
save_line = "30010"
ampm = ""
temps = Format(Now, "ddddd ttttt") 'current time
temp1 = InStr(2, temps, " ")
temps = Right(temps, Len(temps) - temp1) 'just the hrs and minutes
temp1 = InStr(2, temps, "M") 'check if US format
If temp1 <> 0 Then
temp2 = InStr(2, temps, "PM")
If temp2 <> 0 Then
ampm = "PM"
End If
If temp2 = 0 Then
ampm = "AM"
End If
temps = Left(temps, Len(temps) - 3) 'strip of AM PM
End If
temp1 = InStr(1, temps, ":")
hhour = Left(temps, temp1 - 1)
temps = Right(temps, Len(temps) - temp1)
temp1 = InStr(1, temps, ":")
mminute = Left(temps, temp1 - 1)
ssecond = Right(temps, Len(temps) - temp1)
chhour = Val(hhour)
cmminute = Val(mminute)
cssecond = Val(ssecond)
If ampm = "PM" Then
chhour = chhour + 12
End If
If chhour < hhhour Then
chhour = chhour + 23
End If

' If cmminute < mmminute Then
'march 14 2001 cmminute = cmminute + 59
' End If
' If cssecond < sssecond Then
'march 14 2001 cssecond = cssecond + 59
' End If
' temp1 = hhhour * 3600 + mmminute * 60 + sssecond 'could move this out of the loop?
temp2 = chhour * 3600 + cmminute * 60 + cssecond
' If temp2 < temp1 + delay_sec Then 'march 14 2001
If temp2 < temp11 + delay_sec Then
GoTo line_30010
End If
' Set Picture = LoadPicture() 'clear any picture
line_30020:
'17Dec2017 **hint** budge needs similar logic as the again but just again and again....
' frmproj2.Caption = LCase(temptemp) + " budging***** " + budge_str + " " + tempdata + " of " + CStr(video_length) '06Jan2018
'11Jan2018 budge_str = "YES" '07Jan2018 test only
totbud = 0 '11Jan2018
If budge_str = "YES" Then '06Jan2018

line_30022:
i = mciSendString("pause video1", 0&, 0, 0) '07Jan2018

totbud = totbud + 1
If totbud >= maxbud Then GoTo line_30023

' frmproj2.Caption = LCase(temptemp) + " budging***** " + budge_str + " " + tempdata + " of " + CStr(video_length) '06Jan2018
'testtest = "resume_str=" + resume_str + " motion_yn=" + motion_yn + " start_point=" + CStr(start_point) + " keep_line_start_point=" + CStr(keep_line_start_point) + " begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " keep_line_delay_sec=" + CStr(keep_line_delay_sec) + " " '08Nov2011 teststring
' testtest = InputBox("again info " + testtest, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
' temp_cnt = 0 '08Nov2011
'28Dec2011 these 2 caused trouble line_start_point = keep_line_start_point '08Nov2011
'28Dec2011 these 2 caused trouble start_point = keep_line_start_point '08Nov2011 14nov2011 remove comment out
'25Feb2012 the problem was that wait=?? needed to be added in the catalog function whoo hoo
' start_point = keep_line_start_point '25Feb2012
'15Dec2011 start_point = 10 '08Nov2011 14Nov2011 remove comment out
tempdata = String(totbud, "*") '09Jan2018
frmproj2.Caption = LCase(temptemp) + " budging== " + tempdata + " " + budge_str + " " + CStr(begin_point) + " of " + CStr(video_length) + " " + tempdata '06Jean2018
' temptemp = InputBox("07 January 2018 test ", "budge " + CStr(totbud), , xx1 - 5000, yy1 - 5000) '07Jan2018
last_vs = 0 '08Nov2011? this was one of the problems yahoo
' begin = keep_begin_point + (totbud * smlbud) '08Nov2011
'15Dec2011 mess with these settings it does not see the start== point somehow on the 2nd one (wait=?? fixed it)
' begin_point = keep_line_start_point + (totbud * smlbud) '07Jan2018
begin_point = keep_begin_point + (totbud * smlbud) '07Jan2018
resume_str = keep_resume_str '08Nov2011
play_speed = keep_play_speed '08Nov2011
' play_speed = save_play_speed '14Nov2011
keep_slomo = True '14Nov2011 force for normal speed without it craps??
' keep_play_speed = 1000 '14Nov2011 force this to test
save_play_speed = keep_play_speed '08Nov2011
slomo = keep_slomo '08Nov2011
line_delay_sec = keep_line_delay_sec '08Nov2011
delay_sec = keep_line_delay_sec '08Nov2011
' delay_sec = 3 '25Feb2012 testing set it on the line if it works
' i = mciSendString("play video1 from " + CStr(begin_point), 0&, 0&, 0&)
frmproj2.Caption = LCase(temptemp) + " budging******** " + tempdata + " of " + CStr(video_length) '06Jan2018
i = mciSendString("play video1 from " + CStr(begin_point), 0&, 100, 100)
'08Nov2011 not having the " wait" allows for CR to interrupt the video otherwise it plays straight through
' i = mciSendString("play video1 from " + CStr(begin_point) + " wait", 0&, 0, 0) 'this is where the display happens
GoTo line_30012 '08Nov2011
line_30023:
' i = mciSendString("pause video1", 0&, 0, 0) '11Jan2018
frmproj2.Caption = LCase(temptemp) + " budging***** " + tempdata + " of " + CStr(video_length) '06Jan2018
' temptemp = InputBox("07 January 2018 test ", "budge " + CStr(totbud), , xx1 - 5000, yy1 - 5000) '07Jan2018
totbud = 0 '06Jan2018
GoTo line_30012 '06Jan2018
End If '08Nov2011

If again_str = "YES" Then '08Nov2011
'testtest = "resume_str=" + resume_str + " motion_yn=" + motion_yn + " start_point=" + CStr(start_point) + " keep_line_start_point=" + CStr(keep_line_start_point) + " begin_point=" + CStr(begin_point) + " play_speed=" + CStr(play_speed) + " slomo=" + CStr(slomo) + " keep_line_delay_sec=" + CStr(keep_line_delay_sec) + " " '08Nov2011 teststring
' testtest = InputBox("again info " + testtest, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
again_str = "DONE"
' temp_cnt = 0 '08Nov2011
'28Dec2011 these 2 caused trouble line_start_point = keep_line_start_point '08Nov2011
'28Dec2011 these 2 caused trouble start_point = keep_line_start_point '08Nov2011 14nov2011 remove comment out
'25Feb2012 the problem was that wait=?? needed to be added in the catalog function whoo hoo
' start_point = keep_line_start_point '25Feb2012
'15Dec2011 start_point = 10 '08Nov2011 14Nov2011 remove comment out
last_vs = 0 '08Nov2011? this was one of the problems yahoo
begin = keep_begin '08Nov2011
'15Dec2011 mess with these settings it does not see the start== point somehow on the 2nd one (wait=?? fixed it)
begin_point = keep_begin_point '08Nov2011
resume_str = keep_resume_str '08Nov2011
play_speed = keep_play_speed '08Nov2011
' play_speed = save_play_speed '14Nov2011
keep_slomo = True '14Nov2011 force for normal speed without it craps??
' keep_play_speed = 1000 '14Nov2011 force this to test
save_play_speed = keep_play_speed '08Nov2011
slomo = keep_slomo '08Nov2011
line_delay_sec = keep_line_delay_sec '08Nov2011
delay_sec = keep_line_delay_sec '08Nov2011
' delay_sec = 3 '25Feb2012 testing set it on the line if it works
i = mciSendString("play video1 from " + CStr(begin_point), 0&, 0&, 0&)
'08Nov2011 not having the " wait" allows for CR to interrupt the video otherwise it plays straight through
' i = mciSendString("play video1 from " + CStr(begin_point) + " wait", 0&, 0, 0) 'this is where the display happens
GoTo line_30012 '08Nov2011
End If '08Nov2011
'16 August 2004
If motion_yn <> "YES" Then '16 August 2004
new_delay_sec = delay_sec '16 August 2004
GoSub line_30300 '16 August 2004
End If '16 August 2004
' frmproj2.Caption = "delay_sec=" + CStr(delay_sec) '16 August 2004
last_vs = 0
delay_sec = Val(Cmd(27)) '25 July 2003
DoEvents '03 november 2002 deactivate when in debug mode for more control??

Return

Return

line_30300: 'mini timer routine 26 February 2004
frmproj2.Caption = " save_line " + save_line + " delay_sec=" + CStr(delay_sec) '03mar2017

motion_in = Timer '01 March 2004 changed from slomo_in etc
line_30316:
'try and slow the delay for character pause. it would not do less than 1/10 sec or so?
If new_delay_sec > 0.02 Then '05 February 2008
DoEvents
motion_out = Timer
If motion_out + 43200 < motion_in Then
motion_in = motion_in - 86400
End If
If motion_out - motion_in < new_delay_sec Then
GoTo line_30316
End If
Else ' 05 February 2008
temp_cnt1 = Int(new_delay_sec * 100000)
For temp_cnt = 1 To temp_cnt1
For II = 1 To 10
DoEvents
Next II
Next temp_cnt

End If '05 February 2008

Return '26 February 2004

' W R I T E C O N T R O L . T X T H E R E **hint**
'control.txt control control.txt control.txt control.txt control control file here
'create control file open for output etc
'write to the control file here
line_30500: 'november 03 2000 control.txt and control1.txt file create print
save_line = "30500"
If visual_impared <> "YES" Then
Print #FileFile, "34" ' lines per page 1
End If
If visual_impared = "YES" Then
Print #FileFile, "11" ' lines per page 1
End If
If visual_impared <> "YES" Then
Print #FileFile, "12" ' font size 2
End If
If visual_impared = "YES" Then
Print #FileFile, "36" ' font size 2
End If
If visual_impared <> "YES" Then
Print #FileFile, "3" ' aqua background color 3
End If
If visual_impared = "YES" Then
Print #FileFile, "6" ' purple 3 background color 6=brown or gold
End If
If visual_impared <> "YES" Then
Print #FileFile, "15" ' white text color 4
End If
If visual_impared = "YES" Then
Print #FileFile, "15" ' white text color 4
End If
'midway4 thru the program appx'==================================================================================

Print #FileFile, "14" ' Hi-lite color yellow 15Aug2022
' Print #FileFile, "12" ' Hi-lite color red
Print #FileFile, "/" ' seperator chr 6
Print #FileFile, "dateno" ' or dateyes 7
Print #FileFile, "c:\windows\explorer.exe" 'jpg 8 most have this file...
' Print #FileFile, "c:\winnt\explorer.exe" 'jpg 8
'17 october 2002 made the change below to prevent system from crashing without explorer
'see "photo 6b-1" display
' Print #FileFile, "c:\program files\accessories\wordpad.exe" 'jpg 8 17 october 2002
Print #FileFile, "c:\PROGRAM FILES\ACCESSORIES\MSPAINT.EXE" ' bmp disp 9
Print #FileFile, "c:\PROGRAM FILES\ACCESSORIES\WORDPAD.EXE" ' text chg 10
' Print #FileFile, "c:\PROGRAM FILES\windows nt\ACCESSORIES\WORDPAD.EXE" ' text chg 10
' Print #FileFile, "c:\files.txt" ' Files 11
' Print #FileFile, "c:\search.txt" ' search 12
' Print #FileFile, "c:\temp.txt" 'displayed 13
Print #FileFile, "files.txt" ' Files 11 december 3 2000
Print #FileFile, "search.txt" ' search 12 december 3 2000
Print #FileFile, "10" 'over_lap on line_len january 10 2001 13
Print #FileFile, "enterdateyes" 'start date on 14
Print #FileFile, "exitdateno" 'end date on 15
Print #FileFile, "C:\PROGRAM FILES\Microsoft Office\Office\MSPUB.EXE" 'default drive 3 16
Print #FileFile, "13000" 'xx1 P1 prompt 17
Print #FileFile, "10700" 'yy1 P1 prompt 18
' Print #FileFile, "c:\replace.txt" 'search replace 19
Print #FileFile, "replace.txt" 'search replace 19 december 3 2000
Print #FileFile, "WW" 'option default 20 see item cmd(42)
If visual_impared <> "YES" Then
Print #FileFile, "175" 'wrap line length 21
End If
If visual_impared = "YES" Then
Print #FileFile, "55" 'wrap line length 21
End If
If visual_impared <> "YES" Then
Print #FileFile, "16" 'context lines 22
End If

If visual_impared = "YES" Then
Print #FileFile, "3" 'context lines 22
End If
'when adding new elements to the control.txt file add the detail notes here comment it well
Print #FileFile, "d:\search\tempfold\" 'photo copy directory 23 march 17 2001
Print #FileFile, "xxx.c:\family1\scn000" 'vvv paste string on entry 24
Print #FileFile, " photo 1980 " 'ggg paste string on entry 25
Print #FileFile, "photo" 'search string for screen saver 26
Print #FileFile, "3" 'default sleep time for screen saver 27
Print #FileFile, "noshow mpotj" ' no show element skip pics with these 28
Print #FileFile, "14" ' 15Aug2022
' Print #FileFile, "12" ' 29 secondary display color line green 10 (12 = red)
Print #FileFile, "Y" ' 30 close out form Y/N
Print #FileFile, "xxx." ' 31 if this exists hilite it hilite_this
' Print #FileFile, "c:\cript.txt" 'encription control file 32
Print #FileFile, "cript.txt" 'encription control file 32 december 3 2000
Print #FileFile, "PHOTO" ' default search string on start 33 was "D" before
Print #FileFile, "5" ' context extract window in lines of display january 01 2001 34
Print #FileFile, "c:\" ' 35 the input directory for the gf option
'19 September 2004 Print #FileFile, "ALL" ' 36 jpg bmp tif etc etc
Print #FileFile, "MPG" ' 36 jpg bmp tif etc etc
Print #FileFile, "MPEG_VIDEOS.txt" ' 37 using gf to get files they are catalogued here
Print #FileFile, "nostretch" ' 38 stretch or normal display p1 or p2
Print #FileFile, "noautoredraw" ' 39 allows for screen refresh between sessions
'07Aug2012 Print #FileFile, "A:\ B:\ C:\ D:\ E:\ F:\ G:\ H:\ I:\" ' 40 Cmd(40) allow for program to run from a non writeable cd (if app.path 17Sep2010 add everything besides a: and c: clear to disable cd and dvd updates ***vip***
'07Aug2012 default to non update for most devices c is ok but this is just simpler
Print #FileFile, "A:\ B:\ C:\ D:\" ' 40 Cmd(40) allow for program to run from a non writeable cd (if app.path 17Sep2010 add everything besides a: and c: clear to disable cd and dvd updates ***vip***
'not in list then don't update files or search or control files
'20 july 2002
Print #FileFile, "WW" '41 cmd(41) if photo file default to this as option prompt#2
Print #FileFile, "C" '42 cmd(42) if text file default to this as option prompt #2

Print #FileFile, "c:\winnt\explorer.exe" '43 see #8 above
Print #FileFile, "c:\PROGRAM FILES\windows nt\ACCESSORIES\WORDPAD.EXE" ' 44 see #10 above
If visual_impared <> "YES" Then
Print #FileFile, "SEQUENTIAL RANDOM MANUAL" ' 45 AUTO RUN PROGRAM CHECK MULTIPLE NAMES ALLOWED HERE
End If
If visual_impared = "YES" Then
Print #FileFile, "SEQUENTIAL" ' 45 AUTO RUN PROGRAM CHECK MULTIPLE NAMES ALLOWED HERE
End If
'26Jun2012 Print #FileFile, "SEQUENTIAL RANDOM MANUAL" ' 45 AUTO RUN PROGRAM CHECK MULTIPLE NAMES ALLOWED HERE
Print #FileFile, "MPEG_VIDEOS.TXT" ' 46 FIRST PROMPT FILE SELECT IE #1 FILE
Print #FileFile, "WW" ' 47 SEARCH OPTIONS allow for "TT2.5 RAND P2 WW"
Print #FileFile, "PHOTO" ' 48 SEARCH STRING FOR AUTO RUN
Print #FileFile, "NORANDOM" ' 49 RANDOM OR NORANDOM ON THE PHOTO SEARCH 09 december 2002
Print #FileFile, "SHOWFILES" ' 50 ON MERGED FILES SHOW OR NOT THE FILE NAME IN THE CAPTION AREA
Print #FileFile, "1084" ' 51 avi file size x
Print #FileFile, "800" ' 52 avi file size y
Print #FileFile, "SHOWVIDEO" ' 53 set to SHOWVIDEO if avi installed 10 february 2003
Print #FileFile, "SHOWDUPS" ' 54 28 FEBRUARY 2003
'vvversion make changes here to add to the control files...
Print #FileFile, "00" ' 55 Context Clear line count 18 march 2003 ver=1.01
Print #FileFile, "noPHOTO_DETAIL" ' 56 Display photo detail info on pictures must be normal not stretch ie image control element
'11Feb2017 default to photo detail for overprint of pictures with text
'ver=1.02 above photo_detail
Print #FileFile, "noSHOWTIME" ' 57 ver=1.03 time display on off switch
Print #FileFile, "DEFAULT_TO_CD" ' 58 ver=1.06 if set then default to cd over-ride drive # 21Sep2010 change from noDEFAULT_TO_CD
Print #FileFile, "0.00" ' 59 Adjust wait time by this value
Print #FileFile, "0.00" ' 60 freeze_sec if set for mpeg files only
Print #FileFile, "SETSPEED1000" ' 61 to allow for switching set speed option off 30 October 2003 1000 = full speed 500=1/2
Print #FileFile, "0.01668" ' 62 slow motion segment length (with 0.01667 play for 2 hundredths)
Print #FileFile, "SHOWELAP" ' 63 show the elapsed time of a video (slomo only). 11 February 2004
Print #FileFile, "0" ' 64 21 March 2004 pad / add to elapsed amount 30 50 100 etc
Print #FileFile, "noRANDBEG" ' 65 23 March 2004 randomly generate a begin point for mpg play
Print #FileFile, "125" ' 66 10 April 2004 the speed for the replay of a paused video
Print #FileFile, "noTHUMB" ' 67 14 April 2004 have as a control (handy to run CD's with rand & thumb)
Print #FileFile, "noEOF_STOP" ' 68 12 September 2004 (WW)allow for backgrd jobs to halt after 1 pass cmd(68)
Print #FileFile, "noHIT_STOP" ' 69 17 September 2004 (PP)allow for backgrd jobs to halt after first match
Print #FileFile, "noFOREGROUND" ' 70 17 September 2004 have the second job get focus ie Foreground & hi-lited
Print #FileFile, "noBATCHFILE==BATCHFILE.TXT" ' 71 27 October 2004 allow for batch input especially for rrr search and replace
Print #FileFile, "noRESULTS.TXT" ' 72 08 November 2004 save a play list for video, pics, music handy to check previously played segment.
Print #FileFile, "noFILESWITCH" ' 73 22 November 2004 when control file switches switch the file too?
Print #FileFile, "noEOFCMD==CHGFILE.TXT" ' 74 26 November 2004 on end of file go to this file instead of loop
Print #FileFile, "VIDEOSTOP" ' 75 12 December 2004 used for dvd and cds do not allow interrupt use the wait command
Print #FileFile, "noLINEPAUSE==0.65" ' 76 24 December 2004 on each print line allow for a delay per line (like scrolling text)
Print #FileFile, "noCHARACTERPAUSE==.0333" ' 77 03 January 2005 allow for characters to be displayed 1 at a time if easy
Print #FileFile, "HTM, FRM, CLS, " ' 78 07 January 2005 allow other text type formats to be merged.
Print #FileFile, "By Faster than Sight" ' 79 11Jun2010 display at the top of the video screen
Print #FileFile, "PROMPTDETAILS" ' 80 11Jun2010 hide the prompt details if large font slowed text display
Print #FileFile, "noRAND_GROUP" ' 81 27Aug2010 When in random mode and rand_group play videos randomly by group ie barrel racer etc
Print #FileFile, "SEQUENTIAL MANUAL" ' 82 19Aug2011 allow for the file to use control1.txt similar to cmd(45)
Print #FileFile, "noOFFSET==-0.5000" ' 83 02Nov2011 The offset value for video playback -1000 is one second before the start==value 01Oct2011
Print #FileFile, "d:\bad_mp3\" ' 84 14Jul2016 photo copy directory for mci error see cmd(23) for other default
Print #FileFile, "003" ' 85 17Dec2017 smlbud the video option to move 3/1000 second and much more or les
Print #FileFile, "0300" ' 86 17Dec2017 bigbud the video option to do fast forward with smlbud
Print #FileFile, "011" ' 87 17Dec2017 maxbud the number of times the smlbud plays 60 is a lot...
Print #FileFile, "" ' 88
Print #FileFile, "" ' 89
Print #FileFile, "" ' 90
Print #FileFile, "" ' 91
Print #FileFile, "" ' 92
Print #FileFile, "" ' 93
Print #FileFile, "" ' 94
Print #FileFile, "" ' 95
Print #FileFile, "" ' 96
Print #FileFile, "" ' 97
Print #FileFile, "" ' 98
Print #FileFile, "" ' 99
Print #FileFile, "" ' 100
Close FileFile

Return

line_30600: 'january 09 2001
'crop incomming file to 120 or some other line length
xtemp = Cmd(19)
GoSub line_16000
' save_line = "16100-7" '18 March 2007 testing only only
GoSub line_16100 'january 09 2001
crop_len = Val(Cmd(21)) - 2 'the default
'the crop_len is reduced by 2 as the display portion of program always loads
'a space in front. One wants to do the break 1 space before that so that
'display doesn't do another line break january 13 2001
xtemp = InputBox("crop line length prompt", "test", CStr(crop_len), xx1 - offset1, yy1 - offset2) '
crop_len = Val(xtemp)
temp2 = 0
Open TheFile For Input As #OutFile

save_line = "30610"
dblStart = Timer 'get the start time
line_30610:
Line Input #OutFile, aaa
line_30612:
'might want to remove other odd ball characters here too todo **vip**
tt = InStr(aaa, Chr(9)) 'check for tabs
If tt = 0 Then
GoTo line_30620
End If
'change any tabs to 4 spaces
aaa = Left(aaa, tt - 1) + " " + Right(aaa, Len(aaa) - tt)
GoTo line_30612

line_30620:
'below get rid of all trailing spaces
II = Len(aaa)
If Right(data_aaa, 1) = " " Then
aaa = Left(aaa, II - 1)
GoTo line_30620
End If
line_30625:
II = Len(aaa)
tt = 0
If II <= crop_len + over_lap Then GoTo line_30630
tt = InStr(crop_len, aaa, " ")
'if a - is going to split a word make sure that there are no nearby spaces below
If (tt = 0 Or tt > crop_len + over_lap) And Mid(aaa, crop_len - 1, 1) = " " Then tt = crop_len - 1
If (tt = 0 Or tt > crop_len + over_lap) And Mid(aaa, crop_len - 2, 1) = " " Then tt = crop_len - 2
If (tt = 0 Or tt > crop_len + over_lap) And Mid(aaa, crop_len - 3, 1) = " " Then tt = crop_len - 3
If (tt = 0 Or tt > crop_len + over_lap) And Mid(aaa, crop_len - 4, 1) = " " Then tt = crop_len - 4
If tt = 0 Then GoTo line_30628
If tt > crop_len + over_lap Then GoTo line_30628
Print #ExtFile, Left(aaa, tt - 1)
aaa = Mid(aaa, tt + 1)
GoTo line_30625
line_30628:
Print #ExtFile, Left(aaa, crop_len); "-"
temp2 = temp2 + 1
aaa = Mid(aaa, crop_len + 1)
GoTo line_30625
line_30630:
Print #ExtFile, aaa
GoTo line_30610
line_30640:
dblEnd = Timer 'get the end time
Print " elap="; Format(dblEnd - dblStart, "#####0.000")
Print "rename "; FileExt; " as "; TheFile
tt1 = UCase(InputBox("total changes=" + CStr(temp2) + " rename files Y/N <N>", "Rename Prompt", , xx1 - offset1, yy1 - offset2)) '
If tt1 <> "Y" Then
tt1 = "N"
End If
If UCase(tt1) = "N" Then
Close OutFile, ExtFile
GoTo line_30648
End If
Close OutFile, ExtFile
DoEvents
save_line = "30640"
' Kill "c:\oldfile.txt"
Kill "oldfile.txt" 'december 3 2000
DoEvents
line_30645:
' tt1 = InputBox("minor pause", , , 4400, 4500) 'TESTING ONLY
DoEvents
' Name TheFile As "c:\oldfile.txt"
Name TheFile As "oldfile.txt" 'december 3 2000
DoEvents
Name FileExt As TheFile
'rename files here if Y entered
line_30648:
Return 'january 09 2001
'16Apr2014 main auto catalog routine fast forward and rewind setup
line_30700: 'april 01 2001 get files routine for copy from cd? to disc
'prompt for the various options first giving defaults
'prompt for the source of the files maybe with sub-directories etc Left(App.Path, 3)
'18Jun2012
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
Test1_str = App.Path
GoTo line_30700a
End If '18Jun2012
Test1_str = InputBox("input directory ", "data source (your input required) ", Cmd(35), xx1 - offset1, yy1 - offset2) 'april 01 2001
' Test1_str = InputBox("input directory ", "data source (your input required) ", App.Path, xx1 - offset1, yy1 - offset2) 'april 01 2001
line_30700a:
If UCase(Test1_str) = "X" Or UCase(Test1_str) = "E" Then GoTo End_32000
indir = Test1_str
If Right(indir, 1) <> "\" Then indir = indir + "\" 'june 17 2001
If diryes = "DIR" Then GoTo line_30701 'february 20 2002
If Cmd(35) <> indir Then
GoSub Control_28000 'october 07 2001
Cmd(35) = indir 'june 26 2001
GoSub line_30800 'kill and update the control file
End If
line_30701:
Test1_str = UCase(Test1_str)
If Test1_str = "C:\*" Then
indir = Left(indir, 3) 'allow for complete directory of C:\
GoTo line_30702
End If 'april 11 2001
'ensure that they arn't allowed to find every *.jpg on C drive? Below....
'allow them to do a complete directory of any device / drive june 10 2001
'june 10 2001 II = InStr(1, Test1_str, "C:\")
II = 0 'june 10 2001
If II <> 0 Then
If InStr(II + 3, Test1_str, "\") = 0 Then
Test1_str = InputBox("Wouldn't want to do all c:\", "never all of c drive", , xx1 - offset1, yy1 - offset2) 'april 01 2001
GoTo line_30700
End If
End If
line_30702:
'when one wants just to catalogue them where they reside rather than copying them etc
If diryes = "DIR" Then GoTo line_30704 'february 18 2002
'18Jun2012 dougheredoug
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
Test1_str = "Y"
GoTo line_30702a
End If '18Jun2012
Test1_str = InputBox("inplace catalogue ", "no copy (Y/N)<Y>", "Y", xx1 - offset1, yy1 - offset2) 'april 01 2001
line_30702a: '18Jun2012
If UCase(Test1_str) = "X" Or UCase(Test1_str) = "E" Then GoTo End_32000
inplace = UCase(Test1_str)
outdir = ""
If inplace = "Y" Then GoTo line_30704

'make sure the destination directory is not one of those that are listed for the *.jpg directory
'todo **vip** see above
Test1_str = InputBox("destination directory ", "storage area (input needed here)", Cmd(23), xx1 - offset1, yy1 - offset2) 'april 01 2001
If UCase(Test1_str) = "X" Or UCase(Test1_str) = "E" Then GoTo End_32000
outdir = Test1_str
line_30703:
'may 28 2001 Test1_str = InputBox("2 leading characters for file ", "delete to keep file name", "x-", xx1 - offset1, yy1 - offset2) 'april 01 2001
Test1_str = InputBox(" keep original file name Y/N <Y> (pict for pict00001 & pict00002 etc)", "Output file name prompt ", "Y", xx1 - offset1, yy1 - offset2)
If UCase(Test1_str) = "X" Or UCase(Test1_str) = "E" Then GoTo End_32000
leaddidg = Test1_str
delete_file = "N" 'june 30 2001
If Test1_str = "Y" Then leaddidg = "" 'may 28 2001
'may 28 2001
'june 30 2001
Test1_str = InputBox(" DELETE original file Y/N <N> ", "Delete original file ", "N", xx1 - offset1, yy1 - offset2)
If UCase(Test1_str) = "X" Or UCase(Test1_str) = "E" Then GoTo End_32000
delete_file = UCase(Test1_str)

' If Len(leaddidg) <> 2 Then GoTo line_30703 'enforce 2 characters april 05 2001
line_30704:
'17Mar2014 ask for start point offset 0 1 2 etc
pad_time = 0 '17Mar2014
If Mergem = "FF" Then '17Mar2014
Test1_str = InputBox("FastForward start point offset ", "0 1.5 2<0>", "0", xx1 - offset1, yy1 - offset2) '17Mar2014
If UCase(Test1_str) = "X" Or UCase(Test1_str) = "E" Then GoTo End_32000
pad_time = Val(Test1_str) * 1000 '17Mar2014
End If '17Mar2014
'17Mar2014
'19 September 2004 temps = "ALL, MPG, MP3, JPG, BMP, TXT, WMV, AVI" 'february 23 2002
'the merge should also allow frm cls bas files as well ie the vb code merge
'28 November 2004 temps = "MPG, MP3, JPG, BMP, WMV, AVI (x to exit)" 'february 23 2002
temps = "MPG, MP3, JPG, BMP, WMA, WMV, AVI, GIF, ALL, (x to exit)" 'february 23 2002
'07 January 2005 allow control file to contain what formats to merge
'07 January 2005 If Mergem = "YES" Then temps = "TXT, " + temps '19 September 2004
If diryes = "DIR" Then temps = "ALL, " + temps '20 September 2004
If Mergem = "YES" Then temps = "TXT, " + Cmd(78) '07 January 2005
'18 August 2004 If diryes = "DIR" Then temps = temps + " <A> for All" 'february 23 2002
xtemp = Cmd(36) 'february 23 2002
If Mergem = "YES" Then xtemp = "TXT" '07 January 2005
If Mergem = "FF" Then xtemp = "MPG" '21Mar2014
'20 September 2004 If xtemp = "ALL" Then xtemp = "JPG" '19 September 2004 (just because its out there in older versions)
' If xtemp = "ALL" And diryes <> "DIR" Then xtemp = "mp3" '27Jun2016 (just because its out there in older versions)
If xtemp = "ALL" And diryes <> "DIR" Then xtemp = "mpg" '06Mar2018 (just because its out there in older versions)
'27 may 2002 xtemp = "A" 'february 23 2002
If Left(UCase(App.EXEName), 13) = "CATMYDRIVEJPG" Then
Test1_str = "JPG"
GoTo line_30704a
End If '18Jun2012
If Left(UCase(App.EXEName), 13) = "CATMYDRIVEMP3" Then
Test1_str = "MP3"
GoTo line_30704a
End If '23Jun2012
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
Test1_str = "MPG"
GoTo line_30704a
End If '18Jun2012
Test1_str = InputBox("file type / extension ", temps, xtemp, xx1 - offset1, yy1 - offset2) 'april 01 2001
line_30704a:
Test1_str = UCase(Test1_str)
If Test1_str = "A" Then Test1_str = "ALL" '07 January 2005

'09 July 2003 over-ride the PHOTO_DETAIL setting
'09 July 2003 "photo_detail" must be set for the data in the TAG to be used... vip
If Test1_str = "MP3" Then
Cmd(56) = "PHOTO_DETAIL" '09 July 2003 needed to get the info out for now anyway
detailyn = "PHOTO_DETAIL" '18 November 2004
Cmd(49) = "NORANDOM" 'this seemed to cause some problems too...
End If '09 July 2003
If Test1_str = "X" Or Test1_str = "E" Then GoTo End_32000
If InStr(Cmd(78), Test1_str) <> 0 And Len(Test1_str) = 3 And Mergem = "YES" Then GoTo line_30705 '07 January 2005
If InStr(Cmd(78), Test1_str) <> 0 And Len(Test1_str) = 2 And Mergem = "YES" Then GoTo line_30705 '19 November 2006
If Test1_str = "TXT" And Mergem = "YES" Then GoTo line_30705 '19 September 2004
'07 January 2005 add logic to have merge of text file types to come from control file ie htm, cls, frm etc
If Mergem = "YES" Then GoTo line_30704 '07 January 2005 do not merge non text formats ever.
If Test1_str = "VOB" Then GoTo line_30705 '15 December 2006
If Test1_str = "MPG" Then GoTo line_30705 '19 September 2004
If Test1_str = "MP3" Then GoTo line_30705 '19 September 2004
If Test1_str = "JPG" Then GoTo line_30705 '19 September 2004
If Test1_str = "BMP" Then GoTo line_30705 '19 September 2004
If Test1_str = "WMA" Then GoTo line_30705 '03Jul2016
If Test1_str = "WMV" Then GoTo line_30705 '19 September 2004
If Test1_str = "AVI" Then GoTo line_30705 '19 September 2004
If Test1_str = "GIF" Then GoTo line_30705 '28 November 2004
If Test1_str = "LOG" Then GoTo line_30705 '27 November 2006
If Test1_str = "ALL" Then GoTo line_30705 '20 September 2004

'11Jul2016 all get to do gf GoTo line_30704 '19 September 2004

line_30705: '19 September 2004 only allow the ones above
'19 September 2004 the option "ALL" for dirtype is no longer in use.
' it is confusing to allow formats that the program can not display, therefore no more ALL

'07 January 2005 If Test1_str = "A" Then Test1_str = "ALL" 'february 23 2002
dirtype = Cmd(36) 'february 23 2002
If Test1_str = "ALL" Then dirtype = "ALL" 'february 23 2002
If Test1_str = "ALL" Then
filetype = "*"
Else
filetype = Test1_str
End If 'february 23 2002
If Cmd(36) <> dirtype Then
GoSub Control_28000 'october 07 2001
Cmd(36) = dirtype 'june 30 2001
GoSub line_30800 'kill and update the control file
End If
If diryes = "DIR" Then
'february 23 2002 filetype = "*" 'february 18 2002
minsize = -1
maxsize = 99999
maxsize = 9999999999# '08 june 2003
autobuild = "Y"
savepath = "N"
skipyesno = "N"
inplace = "Y"
GoTo line_30706 'february 18 2002
End If
'can use * for filetype above april 11 2001

'should probably strip out any . periods????
'use FileLen when checking file size
'min size handy for skippin thumbnail picts ie those less than 20,000
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
Test1_str = ".5"
GoTo line_30705a
End If '18Jun2012
Test1_str = InputBox("minimum size ", "smallest file (min =0)", ".5", xx1 - offset1, yy1 - offset2) 'april 01 2001
line_30705a: '18Jun2012
If UCase(Test1_str) = "X" Or UCase(Test1_str) = "E" Then GoTo End_32000
minsize = Val(Test1_str)
'max size handy to skip extra large files or for seeing those under 20,000 too
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
Test1_str = "999999999"
GoTo line_30705b
End If '18Jun2012
Test1_str = InputBox("maximum size ", "largest file", "999999999", xx1 - offset1, yy1 - offset2) 'april 01 2001
line_30705b: '18Jun2012
If UCase(Test1_str) = "X" Or UCase(Test1_str) = "E" Then GoTo End_32000
maxsize = Val(Test1_str)
'the auto copy is handy for when just a backup and initial file create wanted ie no intereaction
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
Test1_str = "Y"
GoTo line_30705c
End If '18Jun2012
Test1_str = InputBox("auto build ", "selection prompts (Y/N)<Y>", "Y", xx1 - offset1, yy1 - offset2) 'april 01 2001
line_30705c: '18Jun2012
If UCase(Test1_str) = "X" Or UCase(Test1_str) = "E" Then GoTo End_32000
autobuild = UCase(Test1_str)

'no need to save path really if inplace catalogue unless for searching
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
Test1_str = "Y"
GoTo line_30705d
End If '18Jun2012
Test1_str = InputBox("original path in text line ", "track original (Y/N)<Y>", "Y", xx1 - offset1, yy1 - offset2) 'april 01 2001
line_30705d: '18Jun2012
If UCase(Test1_str) = "X" Or UCase(Test1_str) = "E" Then GoTo End_32000
savepath = UCase(Test1_str)

If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
Test1_str = "N"
GoTo line_30705e
End If '18Jun2012
Test1_str = InputBox("skip duplicate file sizes ", "skip duplicates (Y/N)<N>", "N", xx1 - offset1, yy1 - offset2) 'june 09 2001
line_30705e: '18Jun2012
If UCase(Test1_str) = "X" Or UCase(Test1_str) = "E" Then GoTo End_32000
skipyesno = UCase(Test1_str)

'log the file locations to the search text file replace.txt etc
' xtemp = Cmd(19)
line_30706: 'february 18 2002
filereason = "Search link text file name"
xtemp = Cmd(37) 'june 30 2001
If diryes = "DIR" Then xtemp = "directory.txt" 'february 24 2002
If Mergem = "YES" Then xtemp = "merge.txt" 'february 24 2002
GoSub line_16000 'february 24 2002 moved up
oopen = "WRITE" 'september 02 2001
'february 17 2002 add xtemp name below
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
oopen = "O"
GoTo line_30706a
End If '18Jun2012
oopen = InputBox(" append(A) or write(O) <over-write> " & FileExt, "Append or New Prompt ", "O", xx1 - offset1, yy1 - offset2)
line_30706a: '18Jun2012
oopen = UCase(oopen)
If oopen <> "O" Then oopen = "APPEND"
If oopen <> "APPEND" Then
oopen = "WRITE" 'september 02 2001
End If
If diryes = "DIR" Then
'february 24 2002 xtemp = "directory.txt"
'february 24 2002 FileExt = xtemp
'february 25 2002 oopen = "WRITE" 'february 18 2002
GoTo line_30708
End If 'february 18 2002
If Cmd(37) <> FileExt Then
GoSub Control_28000 'october 07 2001
Cmd(37) = FileExt 'june 30 2001
GoSub line_30800 'kill and update the control file
End If
line_30708: 'february 18 2002
'following lines moved down from above the if february 18 2002
' save_line = "16100-8" '18 March 2007 testing only only
GoSub line_16100 'open the replace.txt for output
' save_line = "16100-8a" '18 March 2007 testing only only
oopen = "write" 'september 02 2001
dblStart = Timer 'get the start time
' If diryes = "DIR" Then
' testtest = InputBox("RIGHT AFTER FILE OPEN " + FileExt, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
' End If
filereason = ""
ttt1 = 0
tt = 1
temp_cnt = 0 '08 July 2003
Cls
cript1(tt) = indir
line_30710:
II = ttt1 + 1
III = tt
'08 July 2003 see what is happening to Peter tran tap's computer when a dir done
temp_cnt = tt '08 July 2003 testing only can be removed when done
Print "testing directory " + CStr(temp_cnt) + " " + CStr(Len(Trim(cript1(tt)))) + " " + cript1(tt) '08 July 2003 testing
Print "-" '08 July 2003 testing to clear above print line to screen meebee
new_delay_sec = 1 '18 August 2004
' save_line = "16100-8b" '18 March 2007 testing only only
GoSub line_30300 '18 August 2004
' save_line = "16100-8c" '18 March 2007 testing only only
' delay_sec = 2
' GoSub line_30000 'do a temporary delay sleep wait while testing for now handy
'25 July 2003 delay_sec = Format(Val(Cmd(27)), "###0.0000")
delay_sec = Val(Cmd(27))
If temp_cnt Mod 20 = 0 Then
Cls
End If '08 July 2003
' save_line = "16100-8d" '18 March 2007 testing only only
For JJ = II To III
save_line = "see folder " + CStr(cript1(JJ)) '18 March 2007 testing only only
'18 March 2007 somehow my favorites are causing this problem just skip em for now
' one other place where favorites needs to be skipped
' frmproj2.Caption = " working folder " + cript1(JJ) '01 march 2010
If InStr(1, UCase(cript1(JJ)), "FAVORITES") <> 0 Then GoTo line_30711 '18 March 2007
If InStr(1, UCase(cript1(JJ)), "LIVEKERNALREPORTS") <> 0 Then GoTo line_30711 '02 March 2010
save_line = "16100-8d" '03 March 2010 to skip all bad directories

thedir = Dir(cript1(JJ), vbDirectory)
' Test1_str = InputBox("In the get folders " + cript1(JJ) + " " + CStr(II) + " " + CStr(III) + " " + CStr(tt), "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
' If Test1_str = "x" Or Test1_str = "e" Then GoTo End_32000
Do While thedir <> ""
' Print "testing directory " + thedir, CStr(temp_cnt) '08 July 2003 testing
' Print "testing directory " + CStr(temp_cnt) '08 July 2003 testing

If thedir <> "." And thedir <> ".." Then
If (GetAttr(cript1(JJ) & thedir) And vbDirectory) = vbDirectory Then
' pp = FileLen("a:\temp.txt") 'testing
' Display entry only if it
DoEvents
'01 july 2003 activate following line
' Test1_str = InputBox("folders testing doug" + cript1(JJ) + "*" + outdir + "*" + thedir + "*" + indir + "*" + photo_dir, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
If cript1(JJ) + thedir + "\" <> outdir Then
tt = tt + 1
cript1(tt) = cript1(JJ) + thedir + "\" 'save each folder and subfolder

'27 june 2003 the few following lines were used to test for directory errors on partitioned disk
' i = i + 1
' If i Mod 20 = 0 Then
' Cls
' i = 0
' End If
' Print "test#1="; CStr(tt); " "; cript1(tt) '27 june 2003
' Print " "
' Print " " '27 june 2003
If tt Mod 100 = 0 Then
Print "working folders="; tt, cript1(JJ)
End If
End If 'just in case the outdir is in the same folder???
'it would go on and on coping in the same directory
End If ' it represents a directory.
End If
'18 March 2007 If tt > 9999 Then
'04 March 2010 changed from 20000 to 25000 max
If tt > 24999 Then
Test1_str = InputBox("Max folders of 25000 " + CStr(tt), "needs changing ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
GoTo line_30713
End If 'for now set the max number of folders to 400
thedir = Dir 'get next directory command
Loop
line_30711: '18 March 2007 skip my favorites files from cataloging seems to be a problem
' save_line = "16100-8d" '03 March 2010 to skip all bad directories
save_line = "30711" '05 March 2010
Next JJ
' save_line = "16100-8e" '18 March 2007 testing only only
ddd = 0 'may 28 2001
ttt1 = III
save_line = "30711a" '05 March 2010
If III <> tt Then GoTo line_30710
line_30713:
'25 june 2003 somewhere along the line here disk partitions do not seem to work???
'now start looking for the files in each of these directories / folders
II = 0
Cls
For JJ = 1 To tt
save_line = "30711b" '05 March 2010
thedir = Dir(cript1(JJ) + "*." + filetype, vbDirectory) 'directory command
save_line = "30711bb" + CStr(JJ) '05 March 2010
Print "="; cript1(JJ); "=" 'april 11 2001 and 08 July 2003 checks...
If JJ Mod 20 = 0 Then
new_delay_sec = 0.1 '18 August 2004
GoSub line_30300 '18 August 2004
' delay_sec = 0.2
' GoSub line_30000 'do a temporary delay sleep wait while testing for now handy
Cls
'25 July 2003 delay_sec = Format(Val(Cmd(27)), "###0.0000")
delay_sec = Val(Cmd(27))
End If '08 July 2003
save_line = "30711c" '05 March 2010
Do While thedir <> ""
' Do While thedir <> "." And thedir <> ".."
If thedir = "." Then GoTo line_30720
If thedir = ".." Then GoTo line_30720
pp = FileLen(cript1(JJ) + thedir) 'testing
'02Feb2012 maybe get the file length in seconds if a mpg file here and use it in addition to pp
'add a control file element to do this video_length only when requested it does a lot of flickering etc
elapse_start = Timer '06Mar2018
video_length = 0 '03Feb2012
Test2_str = "" '04Feb2012
Test2_str = " bytes=" + CStr(pp) '06Feb2012
'06Feb2012 If filetype = "MPG" And Mergem = "VL" Then
If (filetype = "MPG" And Mergem = "VL") Or (filetype = "MPG" And Mergem = "FF") Or (filetype = "MPG" And Mergem = "GOLF") Then
'testtest = "filetype=" + filetype + " video_length="
'testtest = InputBox("testing filetype " + testtest + " " + cript1(JJ) + thedir, "get files ", , xx1 - offset1, yy1 - offset2) '02Feb2012
'frmproj2.Caption = "(Finding Video length)" + cript1(JJ) 'testing only
Last$ = frmproj2.hWnd & " Style " & &H40000000
Pict_file = cript1(JJ) + thedir
lresult = getshortpathname(Pict_file, sshortfile, Len(sshortfile)) '04Feb2012
Pict_file = Left$(sshortfile, lresult) '04Feb2012
save_line = "30711d" + Pict_file + filetype + " " + Mergem '30Mar2014
todo$ = "open " + Pict_file + " Type MPEGVideo Alias video1 wait parent " & Last$
result1 = mciSendString(todo$, returnstring1, 1024, 0) '12 December 2004a
DoEvents
i = mciSendString("put video1 window at -1 -1 " + Cmd(51) + " " + Cmd(52), 0&, 0, 0)
DoEvents
save_line = "30711e" + Pict_file + filetype + " " + Mergem '30Mar2014
i = mciSendString("status video1 length wait", mssg, 255, 0)
DoEvents
temp3 = InStr(mssg, Chr$(0))
video_length = Val(Left(mssg, temp3 - 1))
' testtest = "filetype=" + filetype + " video_length=" + " result1=" + CStr(result1) + " pp=" + CStr(pp)
' testtest = InputBox("testing filetype " + testtest + " " + cript1(JJ) + thedir + " mssg=" + mssg, "get files ", , xx1 - offset1, yy1 - offset2) '02Feb2012
' frmproj2.Caption = "(Finding Video length)" + cript1(JJ) 'testing only
i = mciSendString("close video1", 0&, 0, 0)
DoEvents '30Mar2014
'need a close on video1
elapse_end = Timer '06Mar2018
Test2_str = " len=" + CStr(video_length) + " bytes=" + CStr(pp) + " elap=" + Format(elapse_end - elapse_start, "#####0.000") '06Mar2018 add elapsed
End If
'02Feb2012
If pp = last_pp And skipyesno = "Y" Then
skip_pp = skip_pp + 1
GoTo line_30720 'ken had a bunch of duplicates
End If 'may 10 2001
'need the file datecreated and modified changed dates april 11 2001
' If diryes = "DIR" Then
' testtest = InputBox("Testing dir step 1 " + FileExt + Format(pp, "########"), "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
' If testtest = "X" Then GoTo What_50
' End If
' Test1_str = InputBox("maximum size ", "largest file", "999999999 " + Format(pp, "##############") + Test2_str, xx1 - offset1, yy1 - offset2) '21Mar2014 test only
If minsize * 1000 > pp And Mergem <> "FF" Then GoTo line_30720 'skip it too small
If maxsize * 1000 < pp And Mergem <> "FF" Then GoTo line_30720 'skip it too big
If minsize * 1000 > video_length And Mergem = "FF" Then GoTo line_30720 'skip it too small
If maxsize * 1000 < video_length And Mergem = "FF" Then GoTo line_30720 'skip it too big
tt1 = ""
If autobuild = "Y" Then GoTo line_30715
If img_ctrl = "YES" Then
Set Image1.Picture = LoadPicture(cript1(JJ) + thedir)
Else
If Not mixx Then Set Picture = LoadPicture(cript1(JJ) + thedir) '12Feb2017
' Set Picture = LoadPicture(cript1(JJ) + thedir)
End If
tt1 = InputBox("select picture Y/N <Y> " + cript1(JJ) + thedir + " " + CStr(pp), "Or enter photo description", , xx1 - offset1, yy1 - offset2)
If UCase(tt1) = "N" Then GoTo line_30720 'they didn't want it
If UCase(tt1) = "E" Or UCase(tt1) = "X" Then GoTo End_32000
line_30715:
' If diryes = "DIR" Then
' testtest = InputBox("Testing dir step 2 " + FileExt, "get files ", , xx1 - offset1, yy1 - offset2) 'april 01 2001
' End If
'18 March 2007 need to skip anything from the favorites file vip
If InStr(1, UCase(cript1(JJ)), "FAVORITES") <> 0 Then GoTo line_30730 '18 March 2007
If save_line = "16100-8d" Then GoTo line_30730 '05 March 2010
Test1_str = cript1(JJ) + thedir 'save the original path for search and reference
If savepath <> "Y" Then Test1_str = " "
newname = Test1_str
'may 28 2001 If inplace <> "Y" Then newname = outdir + leaddidg + CStr(JJ) + thedir
If inplace <> "Y" Then
ddd = ddd + 1
newname = outdir + leaddidg + Format(ddd, "00000") + "." + filetype 'may 28 2001
End If 'may 28 2001
If inplace <> "Y" And leaddidg = "" Then newname = outdir + thedir 'april 05 2001
If savepath <> "Y" Then Test1_str = ""
'right in here prompt for text description of the picture
indates = ""
If (GetAttr(cript1(JJ) & thedir) And vbDirectory) = vbDirectory Then GoTo line_30718
' If thedir = "COMMAND.COM" Then GoTo line_30718
' If thedir = "SCANDISK.LOG" Then GoTo line_30718
'03 November 2004 If dirdates = "Y" Then
If dirdates <> "Yxyxx" Then '03 November 2004 I want it on the gf for "d" display
Set fs = CreateObject("Scripting.FileSystemObject")
Set f1 = fs.GetFile(cript1(JJ) + thedir)
'if the date created below is unknown it fails ie not using it
' indates = " create=" & f1.DateCreated & " mod=" & f1.DateLastModified & " acc=" & f1.DateLastAccessed
'23Jul2010 indates = " mod=" & f1.DateLastModified & " " + CStr(pp)
indates = " " '23Jul2010
' Print "testing date="; indates
End If
' Print "testing date="; f1.DateCreated, f1.DateLastModified, f1.DateLastAccessed
line_30718:

'24 june 2003
If InStr(1, UCase(Test1_str), ".MP3") <> 0 Then
FileFile = FreeFile
lresult = getshortpathname(Test1_str, sshortfile, Len(sshortfile))
temptemp = Left$(sshortfile, lresult)
Open temptemp For Binary Access Read As FileFile '08 july 2003
' Open temptemp For Binary As FileFile '08 july 2003 just in case protection is a problem
' Print "print one " + Test1_str '08 July 2003 test

Get FileFile, LOF(1) - 127, temptag

' Print "print onea " + temptag.header + temptag.songtitle '08 July 2003 test

If UCase(temptag.header) = "TAG" Then
temptemp = Trim(temptag.songtitle) + Trim(temptag.artist) _
+ Trim(temptag.album) + Trim(temptag.year)
temptemp = Trim(temptemp) + Trim(temptag.comments) '+ " genre=" + temptag.genre
If Len(Trim(temptemp)) > 12 Then
Test1_str = Test1_str + " * " + Trim(temptemp)
indates = ""
End If '25 june 2003 if there is not much in the header use directory info instead
' Print temptag.header
' Print "title " + temptag.songtitle '08 July 2003
' Print Test1_str
End If
Close FileFile
' Print "print two " + Test1_str '08 July 2003 test

End If '24 june 2003

'june 10 2001
' If UCase(indir) <> "C:\" And dirdates <> "Y" Then
If dirdates <> "Y" Then
'03 November 2004 Print #ExtFile, "photo " + Test1_str + " " + tt1
'15Sep2010 put out the "BREAK" record here if size is small
If pp < 1500000 Then
If seq > 0 Or grp = 0 Then '21Sep2010 this code is for 2 break records in a row only 1 grp bump
'27Jun2016 re the break only if
'04Jul2016 If Left(Cmd(81), 10) = "RAND_GROUP" Then Print #ExtFile, "BREAK" '27Jun2016
grp = grp + 1
seq = 0
End If '21Sep2010 tested and it works (copying videos in mass changes the seq??) 1 at a time worked??
End If '15Sep2010
If pp > 1500000 Then '15Sep2010
seq = seq + 1
End If
If grp > 0 Then grpstr = "GRP#" + CStr(grp) + " SEQ#" + CStr(seq) + " " '15Sep2010
'15Sep2010 Print #ExtFile, "photo " + Test1_str + " " + tt1 + " " + indates
'29Jan2012 Print #ExtFile, "photo " + grpstr + Test1_str + " " + tt1 + " " + indates
'29Jan2012 added the len= value so that another program can use this value to set up a fast forward file if ever
'06Feb2012 put out multiple lines for fast forward option here below is the first line of the matched pair
'21Mar2014 If video_length <> 0 And 5 * video_length > pp Then
If video_length <> 0 And 5 * video_length > maxsize Then
Test2_str = Test2_str + " **video length warning**" '07Feb2012
GoTo no_ff '07Feb2012
End If '07Feb2012
If Mergem <> "FF" Then GoTo no_ff '06Feb2012
nocount = 1
'04Jul2016 If Left(Cmd(81), 10) = "RAND_GROUP" Then Print #ExtFile, "BREAK" '27Jun2016
' Print #ExtFile, "BREAK" '06Feb2012
'17Mar2014 put a dummy set of lines to play the complete video if desired
'17Mar2014 remove bytes from all prints Print #ExtFile, "phooto dummy" + " " + grpstr + " " + tt1 + " " + indates + Test2_str '04Feb2012
' Print #ExtFile, "phooto dummy" + " " + grpstr + " " + tt1 + " " + indates + Test2_str '04Feb2012
' Print #ExtFile, "yyy." + Test1_str; indates '06Feb2012
'09Feb2012 Print #ExtFile, "photo pause wait=" + CStr(fast_forward) + " " + grpstr + Test1_str + " " + tt1 + " " + indates + Test2_str '04Feb2012
'put the first segment play length to 1 second. It seemed to have a problem with the big screen and my laptop when too short (it failed)
'17Mar2014 play the first 5 seconds as an intro with date time and maybe explanation with no pause
' Print #ExtFile, "photo wait=5" + " " + grpstr + Test1_str + " " + tt1 + " " + indates + Test2_str '04Feb2012
' Print #ExtFile, "xxx." + Test1_str; indates '06Feb2012
more_ff:
'17Mar2014 lresult = nocount * hold_sec * 1000 'use the tt value for skip length / start point
lresult = (nocount - 1) * hold_sec * 1000 + pad_time 'use the tt value for skip length / start point
If video_length * 100 > pp And pp > 1 Then
Print #ExtFile, "warning invalid video length " + grpstr '27Mar2014
GoTo no_ff
End If '27Mar2014
If lresult >= video_length - 100 Then GoTo last_ff
If rewind = "YES" Then '12Apr2014
If nocount = 1 Then
Print #ExtFile, "xxx." + Test1_str; indates '06Feb2012
Print #ExtFile, "photo RW continue wait=" + CStr(fast_forward) + " start==" + CStr(lresult) + " " + grpstr + Test1_str + " " + tt1 + " " + indates + Test2_str '06Feb2012
Else
Print #ExtFile, "xxx." + Test1_str; indates '06Feb2012
Print #ExtFile, "photo RW continue pause wait=" + CStr(fast_forward) + " start==" + CStr(lresult) + " " + grpstr + Test1_str + " " + tt1 + " " + indates + Test2_str '06Feb2012
End If '14Apr2104
End If '12Apr2014
If rewind <> "YES" Then '12Apr2014
If nocount = 1 Then '17Mar2014 on first segment do not use continue
Print #ExtFile, "photo FF pause wait=" + CStr(fast_forward) + " start==" + CStr(lresult) + " " + grpstr + Test1_str + " " + tt1 + " " + indates + Test2_str '06Feb2012
Print #ExtFile, "xxx." + Test1_str; indates '06Feb2012
Else
Print #ExtFile, "photo FF continue pause wait=" + CStr(fast_forward) + " start==" + CStr(lresult) + " " + grpstr + Test1_str + " " + tt1 + " " + indates + Test2_str '06Feb2012
Print #ExtFile, "xxx." + Test1_str; indates '06Feb2012
End If '17Mar2014
End If '12Apr2014

nocount = nocount + 1
GoTo more_ff '06Feb2012
last_ff:
If rewind <> "YES" Then '12Apr2014
Print #ExtFile, "photo FF continue start==" + CStr(video_length - (fast_forward * 1000)) + " " + grpstr + Test1_str + " " + tt1 + " " + indates + Test2_str '05Feb2012
Print #ExtFile, "xxx." + Test1_str; indates '06Feb2012
'04Jul2016 If Left(Cmd(81), 10) = "RAND_GROUP" Then Print #ExtFile, "BREAK" '27Jun2016
'27Jun2016 Print #ExtFile, "BREAK" '06Feb2012
Else
Print #ExtFile, "xxx." + Test1_str; indates '06Feb2012
Print #ExtFile, "photo RW pause start==" + CStr(video_length - (fast_forward * 1000)) + " " + grpstr + Test1_str + " " + tt1 + " " + indates + Test2_str '05Feb2012
'04Jul2016 If Left(Cmd(81), 10) = "RAND_GROUP" Then Print #ExtFile, "BREAK" '27Jun2016
'27Jun2016 Print #ExtFile, "BREAK" '06Feb2012
'16Apr2014d ttt = "REVERSE" '16Apr2014 now reverse the file order and done
'16Apr2014d Close #ExtFile '16Apr2014a
'16Apr2014d GoTo line_70 '16Apr2014

End If '12Apr2014
GoTo ff_skip '06Feb2012
no_ff: '06Feb2012
'25Feb2012 first line of the gf and golf catalog below change here re again begin and a negative start
'change this a bit to make sure that the start point ie is not less than 0 and set the begin point to twice the time of the cmd(27)
If Mergem = "GOLF" Then
slomo_point = video_length - (Val(Cmd(27)) * 1000) - 333 '27Feb2012 take the last 1/3 sec off
begin_locat = video_length - (Val(Cmd(27)) * 2000) - 333
If slomo_point < 1 Then slomo_point = 10
If begin_locat < 1 Then begin_locat = 10
If slomo_point < begin_locat Then slomo_point = begin_locat '01May2012
'05Jul2016 the 2 breaks here and further down element 81 must be rand_group before BREAK put in catalog file
If Left(Cmd(81), 10) = "RAND_GROUP" Then Print #ExtFile, "BREAK " 'everything defaults to rand by group it is easy to deactivate by mass edit of break
Print #ExtFile, "photo 1 pause " + grpstr + " wait=" + CStr((video_length - 200) / 1000) + " start==" + CStr(100) + " " + Test1_str + " " + tt1 + " " + indates '25Jun2010
Print #ExtFile, "xxx." + Test1_str; indates 'this is the 2nd line of first display pairs tested #1 is above
Print #ExtFile, "photo 2 continue pause " + grpstr + " wait=" + CStr(Val(Cmd(27))) + " begin==" + CStr(begin_locat) + " start==" + CStr(slomo_point) + " speed=125 " + Test1_str + " " + tt1 + " " + indates '25Jun2010
Print #ExtFile, "xxx." + Test1_str; indates 'this is the 2nd line of first display pairs tested #1 is above
Print #ExtFile, "photo 3 continue again " + grpstr + " wait=" + CStr(Val(Cmd(27))) + " start==" + CStr(slomo_point) + " " + Test1_str + " " + tt1 + " " + indates '25Jun2010
'2 Print #ExtFile, "xxx." + Test1_str; indates '25Jun2010
'05Feb2012 Print #ExtFile, "photo pause begin again " + grpstr + " start==-3000 speed=125 " + Test1_str + " " + tt1 + " " + indates + " bytes=" + CStr(pp) '25Jun2010
Else '25Feb2012
If Left(Cmd(81), 10) = "RAND_GROUP" Then Print #ExtFile, "BREAK "
Print #ExtFile, "photo " + grpstr + Test1_str + " " + tt1 + " " + indates + Test2_str '04Feb2012
End If '25Jun2010
indates = "" '03 November 2004
End If
If inplace = "Y" Then Test1_str = cript1(JJ) + thedir
If inplace <> "Y" Then Test1_str = newname
If diryes = "DIR" Then 'february 18 2002
If Mergem = "YES" Then indates = " append start" 'February 24 2002
'need to replace indates above so that later diff program will work on a program level
'need to skip the copy logic etc here if the file name same as output name vip
' testing = " " + Format(pp, "000000000#") '08Sep2016
testing = Trim(Format(pp, " #")) '08Sep2016
testing = Space(11 - Len(testing)) + testing
' testing = Right(testing, Len(testing) - 9)
' testing = Right(testing, Len(testing) - 1) '08Sep2016
Print #ExtFile, "size="; testing; " "; Test1_str; indates '07Sep2016 add the file size to output
'07 January 2005 need to check that it is one of those allowed in Cmd(78) before merging
If Mergem = "YES" Then GoSub line_17200 'february 24 2002
' need to open need to open and read the file here thru a call
'then put and append end along with the file name at the end.
'should just need to use one file # for the opens and closes...
Else
Print #ExtFile, "xxx." + Test1_str; indates 'this is the 2nd line of first display pairs tested #1 is above
End If 'february 18 2002 skip the xxx. on print only
If Mergem = "GOLF" Then
'15Sep2010 Print #ExtFile, "photo start==-3000 speed=125 " + Test1_str + " " + tt1 + " " + indates '25Jun2010
'06Feb2012 Print #ExtFile, "photo " + grpstr + "start==-3000 speed=125 " + Test1_str + " " + tt1 + " " + indates '25Jun2010
'25Feb2012 Print #ExtFile, "photo " + grpstr + "start==-3000 speed=125 " + Test1_str + " " + tt1 + " " + indates + " bytes=" + CStr(pp) '25Jun2010
'11Mar2012 Print #ExtFile, "photo continue begin==10 " + grpstr + Test1_str + " " + tt1 + " " + indates + " bytes=" + CStr(pp) '25Jun2010
'29Jan2012 Print #ExtFile, "xxx." + Test1_str; indates '25Jun2010
'06Feb2012 Print #ExtFile, "xxx." + Test1_str; indates + " len=" + CStr(pp) '25Jun2010 ***this looks wrong***
'11Mar2012 Print #ExtFile, "xxx." + Test1_str; indates '25Jun2010
End If '25Jun2010
'04Jul2016 Print #ExtFile, "BREAK "
'06Feb2012 come to here after the catalog for fast forward is done
ff_skip: '06Feb2012 when done ff go to here
'11 december 2002 II = II + 1 'count of files selected
EE = EE + 1 '11 december 2002
If EE Mod 100 = 0 Then
Print "working pics="; EE; " "; Test1_str; indates; " "; CStr(pp);
dblEnd = Timer 'get the end time
Print " elap="; Format(dblEnd - dblStart, "#####0.000")
'may 10 2001
End If
'11 december 2002 If II Mod 2000 = 0 Then
If EE Mod 2000 = 0 Then
' frmproj2.Caption = program_info + " (cls #16)" '18Dec2013
Cls 'clear after every 20 lines
End If 'april 11 2001
If inplace <> "Y" Then
DoEvents
'25Aug2016
If Len(photo_dir) > 1 Then FileCopy cript1(JJ) + thedir, newname 'copy the file
' xtemp = InputBox(" copy picture to " + temps + " <Y>", "Copy Prompt ", disp_file, xx1 - offset1, yy1 - offset2) '12Jul2016 testing
frmproj2.Caption = program_info + disp_file '12Jul2016
' delay_sec = 1 'may 10 2001
' GoSub line_30000
DoEvents
'Print "testing doug delete_file="; cript1(JJ) + thedir
If delete_file = "Y" Then
Kill cript1(JJ) + thedir
DoEvents 'june 30 2001
End If
End If 'copy file here
line_30720:
last_pp = pp
DoEvents
thedir = Dir 'get next directory
Loop
line_30730:
save_line = "30730" '05 March 2010
Next JJ
'12 december 2002 Test1_str = InputBox("total folders= " + CStr(III) + " total files= " + CStr(II) + " skip=" + CStr(skip_pp), "session counts " & FileExt, , xx1 - offset1, yy1 - offset2) 'april 01 2001
'18Jun2012
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
GoTo line_30730a
End If '18Jun2012
Test1_str = InputBox(" total folders= " + CStr(III) + " total files= " + CStr(EE) + " skip=" + CStr(skip_pp), "session counts " & FileExt, , xx1 - offset1, yy1 - offset2) 'april 01 2001
line_30730a:
'22 june 2003 put 10 blank lines at end of file
For JJ = 1 To 10
Print #ExtFile, ""
Next JJ '22 june 2003
If Left(UCase(App.EXEName), 10) = "CATMYDRIVE" Then
GoTo End_32000
End If '18Jun2012

Close #ExtFile

Return 'april 01 2001
'auto catalog routines above subroutine 16Apr2014

line_30800: 'update control.txt with changes write control file
DoEvents
' Kill "C:\control.txt"
If auto_exe = "YES" Then GoTo line_30850 '04 September 2004
If InStr(Cmd(40), Left(App.Path, 3)) = 0 And Trim(Cmd(40)) <> "" Then
'23Jun2012a xtemp = InputBox("app.path" + App.Path + " not found or updated " + Format(delay_sec, "###0.0000") + Cmd(40), , , 4400, 4500) 'TESTING ONLY
Print " no control file update cmd(40)"
GoTo line_30850
End If '20 july 2002 must be a writeable device in cmd(40)
' Kill "control.txt" 'december 3 2000
Kill control_file '23 september 2002
FileFile = FreeFile
II = DoEvents
' Open "C:\control.txt" For Output Access Write As #FileFile
' Open "control.txt" For Output Access Write As #FileFile 'december 3 2000
Open control_file For Output Access Write As #FileFile '23 september 2002
Cmd(49) = "NORAND" '31Aug2022
For f = 1 To 100
If Len(Cmd(f)) < 1 Then
Cmd(f) = Space(50)
End If
Print #FileFile, Cmd(f)
Next f
Close FileFile
GoSub Control_28000 'october 07 2001
line_30850: '20 july 2002
' ttt = "" ''october 07 2001
Return

line_30900: 'the "HELP" routine here october 14 2001
FileFile = FreeFile
Open "help.txt" For Output As FileFile
Print #FileFile, " File Prompt #1"
Print #FileFile, " Enter a file to use '?.txt' or select one"
Print #FileFile, " of the previously selected files 1-20"
Print #FileFile, " Option Prompt #2"
Print #FileFile, " Display pictures, Enter text, Search text"
Print #FileFile, " Help, Append text, Screen Saver, Set program"
Print #FileFile, " control options etc etc etc"
Print #FileFile, ""
Print #FileFile, " ***** Prompt #2 Options *****"
Print #FileFile, " C context search / most common search option"
Print #FileFile, " CC context search / more speed combination of 'S' and 'C' search"
Print #FileFile, " E Enter more notes to the end of the current text file"
Print #FileFile, " F Flash search display option, all lines displayed, stopping on matches"
Print #FileFile, " Q Single line search matching case sensitive (see 'S')"
Print #FileFile, " S single line match display Lower & Uppercase sensitive"
Print #FileFile, " Both Q And S are now the same If search is numeric then no uppercase shift etc"
Print #FileFile, " Y Display the last screen of data ie Yesterday or Last data"
Print #FileFile, " CH change to text file (uses wordpad for edits)"
Print #FileFile, " M Minimize screen (allows start of other desktop processes)"
Print #FileFile, " X Exit to file name prompt"
Print #FileFile, " P1 Photo display forces (STRETCH) to fit to screen"
Print #FileFile, " P2 Photo display without a fit to screen option (NORMAL)"
Print #FileFile, " P Photo display at the default display (stretch or normal)"
Print #FileFile, " TT Screen saver timer delay ie 'tt0' 'tt5' 'tt10' 'tt.33"
Print #FileFile, " SS screen saver display ie SSdog river flower"
Print #FileFile, " WW screen saver display with search criteria ie flood/oldie/ice "
Print #FileFile, " MERGE to merge.txt so all files can be searched at once ie frm"
Print #FileFile, " DIR files directory with date and size to directory.txt"
Print #FileFile, " DIRDATES use with GF below to list date and size of selected files"
Print #FileFile, " GF Get File, used to capture un-catalogued pictures (use NORAND for MP3 VIP"
Print #FileFile, " CP Copy picture option, searches catalogued pictures for copy / export to another device or folder"
Print #FileFile, " Z Paste / Append contents of clipboard text to end of current file"
Print #FileFile, " HELP display this help.txt info"
Print #FileFile, " --------------- some lesser used options below "
Print #FileFile, " RRR search and replace option for masive text changes"
Print #FileFile, " RAND / NORAND Random display of picture files in SS WW P1 or P2"
Print #FileFile, " THUMbnail for preview /sample of video or audio using time setting tt10 tt15 etc"
Print #FileFile, " ELAP elapsed time to display after each mp3 or mpg file "
Print #FileFile, " video / novideo turn on and off the option for video display (avi decompressor) must be installed" '10 february 2003
Print #FileFile, " PAUSE / PA to allow for continual text display pausing for what is in the TT delay"
Print #FileFile, " NS No Show option ie 'nsx-rated my-ex jerk'"
Print #FileFile, " CCC change to display options in option1.txt for larger font, color changes etc"
Print #FileFile, " XXX option to extract all displayed data to an alternate text file"
Print #FileFile, " SKIP Don't display ie skip lines when match found ie 'skipmy-email'"
Print #FileFile, " CRIPT Encript current text file using crip.txt as control file"
Print #FileFile, " DECRIPT Does reversal of the cript option"
Print #FileFile, " MYSTUFF Allows for on-line de-encription of an encripted text file"
Print #FileFile, " LL Line length, sets line length before wrap ie 'LL100' 'LL' sets back to original length"
Print #FileFile, " SHOWPOS Displays the line length at the end of each line"
Print #FileFile, " SHOWASC Displays ascii value of last 10 characters on line"
Print #FileFile, " EMAIL Reads e-mail formatted files and skips lots of control info"
Print #FileFile, " IMPORT Takes e-mails from netscape and outlook files"
Print #FileFile, " T Same as 'S' except that data also put to an extract file"
Print #FileFile, " D Same as 'C' except that data also put to an extract file"
Print #FileFile, " R Same as 'Q' except that data also put to an extract file"
Print #FileFile, " CROP Creates extract file with line wraps ie 'CROP100'"
Print #FileFile, " QQQ Similar to RRR used to line-feed carriage-returns from line matches"
Print #FileFile, " VV Load clipboard with text following 'VVrepetitive data'"
Print #FileFile, " VVV Loads secondary clipboard with data 'VVVinsert-this'"
Print #FileFile, " GGG yet another clip area load"
Print #FileFile, " SC Screen Capture delay (delays prompt box by 5 seconds) so alt/print-screen sequence can capture data"
Print #FileFile, " PC Picture count (used with 'CP' to assign picture sequence number ie 'PC20' results in pict20.jpg "
Print #FileFile, " DISC displays username and computer name & OS version"
Print #FileFile, " HH Sets the hilite_this element (very handy to hi-lite other info CMD(31))"
Print #FileFile, " " '06 December 2004 see if a blank line fixes the help display
Print #FileFile, " HL Changes the Append_start element for display"
Print #FileFile, " HLL Changes the Append_end element for hi-liting"
Print #FileFile, " DETAIL NODETAIL changes cmd(56) " '18 November 2004
Print #FileFile, ""
Print #FileFile, " ***** Search Prompt #3 Options *****"
Print #FileFile, "V or H will load clipboard data just like Ctrl V" '17 December 2004
Print #FileFile, "D for todays date to be the search"
Print #FileFile, "DX for yesterday date for search but no 01 workie"
Print #FileFile, "otherwise the text search strings seperated by a =" + Cmd(6) '06 December 2004
Print #FileFile, ""
Print #FileFile, " ***** End of Screen #4 Prompt Options *****"
Print #FileFile, " P Previous for previous picture or previous match if text search"
Print #FileFile, " PP Previous Picture passed to Browser Netscape or Explorer"
Print #FileFile, " allows for a picture print etc "
Print #FileFile, " B Back / previous page when in text search display"
Print #FileFile, " V Same as Back moves one page before current match"
Print #FileFile, " "
Print #FileFile, " ***** Detail line options and controls *****"
Print #FileFile, " WAIT= Over-ride wait time on a line by line basis"
Print #FileFile, " THUMB== Partial play using time in display seconds"
Print #FileFile, " DOSHOW Over-ride any noshow"
Print #FileFile, " START== Set the start point for a Movie or Music file"
Print #FileFile, " FIT== Set the photo display to fit-to-screen"
Print #FileFile, " REG== Display the photo without fit-to-screen"
Print #FileFile, " "
Print #FileFile, " ***** Command File Control Elements *****"
Print #FileFile, " CMD(1) Max_cnt lines per screen ==" + Cmd(1)
Print #FileFile, " CMD(2) Font.size text point size ==" + Cmd(2)
Print #FileFile, " CMD(3) Backcolor background color '3 for aqua' ==" + Cmd(3)
Print #FileFile, " CMD(4) Def_fore text color '15 for white' '12 for red' ==" + Cmd(4)
Print #FileFile, " CMD(5) forecolor hi-lite color '14 for yellow' ==" + Cmd(5)
Print #FileFile, " CMD(6) seperator '/' forward slash default search seperator ==" + Cmd(6)
Print #FileFile, " CMD(7) dateno or dateyes for a date on every input line ==" + Cmd(7)
Print #FileFile, " CMD(8) browser default Explorer / Netscape path ==" + Cmd(8)
Print #FileFile, " CMD(9) paint program 'mspaint' file path ==" + Cmd(9)
Print #FileFile, "CMD(10) text editor 'wordpad' is the default 'CH' option ==" + Cmd(10)
Print #FileFile, "CMD(11) files.txt list of opened files in accessed order ==" + Cmd(11)
Print #FileFile, "CMD(12) search.txt list of recent search strings in order at search prompt ==" + Cmd(12)
Print #FileFile, "CMD(13) mspub.exe executable program ?? ==" + Cmd(13)
Print #FileFile, "CMD(14) enterdateyes date on start of each text entry group 'E' option ==" + Cmd(14)
Print #FileFile, "CMD(15) enddateyes date on end of each text entry group 'E' option ==" + Cmd(15)
Print #FileFile, "CMD(16) optional .exe ??? ==" + Cmd(16)
Print #FileFile, "CMD(17) xoffset for prompt box '11000' photo display semi-hide prompt box ==" + Cmd(17)
Print #FileFile, "CMD(18) yoffset for prompt box '8500' photo display semi-hide prompt box ==" + Cmd(18)
Print #FileFile, "CMD(19) replace.txt temporary file for change routines see '37'??? ==" + Cmd(19)
Print #FileFile, "CMD(20) C/p1/email ??? ==" + Cmd(20)
Print #FileFile, "CMD(21) line_len characters per line '82' default ==" + Cmd(21)
Print #FileFile, "CMD(22) context_lines '6' lines displayed before a 'C' context match ==" + Cmd(22)
Print #FileFile, "CMD(23) copy picture 'CP' default folder 'destination folder for copies' ==" + Cmd(23)
Print #FileFile, "CMD(24) ppaste allows for vvv to paste string 'xxx.c:\family1\scn000' ==" + Cmd(24)
Print #FileFile, "CMD(25) gpaste allows for ggg to paste string 'photo family gathering' etc ==" + Cmd(25)
Print #FileFile, "CMD(26) 'photo' ss default ss_search element ==" + Cmd(26)
Print #FileFile, "CMD(27) delay_sec for screen saver 'SS' option '4' seconds default ==" + Cmd(27)
Print #FileFile, "CMD(28) noshow element ie 'creep' 'nfg' 'my-x' etc for photo display skip photos ==" + Cmd(28)
Print #FileFile, "CMD(29) altcolor '10' default green, see element 31 which is displayed with this color ==" + Cmd(29)
Print #FileFile, " handy to display critical elements ie xxx. is in 31 for demo how to use this "
Print #FileFile, "CMD(30) 'Y' unload project option required for Windows ME Y/N option ==" + Cmd(30)
Print #FileFile, "CMD(31) hilite_this element 'XXX.' if this element exists hilite it with code in element 29 ==" + Cmd(31)
Print #FileFile, "CMD(32) crip.txt encription file to use when 'mystuff' code ==" + Cmd(32)
Print #FileFile, "CMD(33) D search default at search prompt entry 'D' for today etc ==" + Cmd(33)
Print #FileFile, "CMD(34) 5 context window 'before' see element 22 ???? ==" + Cmd(34)
Print #FileFile, "CMD(35) indir input directory for 'GF' get file load picture option ==" + Cmd(35)
Print #FileFile, "CMD(36) file extension 'JPG' for 'GF' get file load picture type of picture ==" + Cmd(36)
Print #FileFile, "CMD(37) temp.txt 'see option 19' ==" + Cmd(37)
Print #FileFile, "CMD(38) stretch_img 'stretch/normal' 'yes' or 'no' P1 or P2 photo display option ==" + Cmd(38)
Print #FileFile, "CMD(39) autoredraw allows for screen refresh between sessions (slows down F flash display and others)==" + Cmd(39)
Print #FileFile, "CMD(40) Allowable write drives ie A:\ C:\ ==" + Cmd(40)
Print #FileFile, "CMD(41) Option Prompt #2 if photo file default display P1 P2 WW ==" + Cmd(41)
Print #FileFile, "CMD(42) Option Prompt #2 if text file default display C S Q ==" + Cmd(42)
Print #FileFile, "CMD(43) browser default Explorer / Netscape path for NT==" + Cmd(43)
Print #FileFile, "CMD(44) text editor 'wordpad' is the default 'CH' for NT option ==" + Cmd(44)
Print #FileFile, "CMD(45) auto run program name ie SPECIAL ==" + Cmd(45)
Print #FileFile, "CMD(46) auto run prompt #1 (file select) ==" + Cmd(46)
Print #FileFile, "CMD(47) auto run prompt #2 (search options) ==" + Cmd(47)
Print #FileFile, "CMD(48) auto run prompt #3 (search string)==" + Cmd(48)
Print #FileFile, "CMD(49) RANDOM NORANDOM on photo search ==" + Cmd(49) '09 december 2002
Print #FileFile, "CMD(50) Show Merged file names In Caption Area (SHOWFILES) ==" + Cmd(50) '24 december 2002
Print #FileFile, "CMD(51) avi file size x min (1050)==" + Cmd(51) '01 february 2003
Print #FileFile, "CMD(52) avi file size y min (775)==" + Cmd(52) '01 february 2003
Print #FileFile, "CMD(53) video / novideo if avi installed (NOSHOWVIDEO)==" + Cmd(53) '10 february 2003
Print #FileFile, "CMD(54) If recent files match show the duplicates or not (SHOWDUPS)==" + Cmd(54) '28 february 2003
Print #FileFile, "CMD(55) number of lines in context file to clear (see Cmd(22)) 00 or ==" + Cmd(55) '18 March 2003 ver=1.01
Print #FileFile, "CMD(56) display photo detail on pictures (set when GF and MP3) (PHOTO_DETAIL)==" + Cmd(56) '22 March 2003 ver=1.02
Print #FileFile, "CMD(57) time display on / off switch (SHOWTIME)==" + Cmd(57) '26 March 2003 ver=1.03
Print #FileFile, "CMD(58) DEFAULT_TO_CD when this set the drive ie c:\ will default to where it is running ie E:\ F:\==" + Cmd(58) '30 May 2003 ver=1.06
Print #FileFile, "CMD(59) Delay Timing change (should be 0.00) for mpeg movies==" + Cmd(59) '29 September 2003
Print #FileFile, "CMD(60) Freeze delay time for mpeg movies & Photo_detail info==" + Cmd(60) '01 October 2003
Print #FileFile, "CMD(61) Allow for set speed of playback==" + Cmd(61) '30 October 2003
Print #FileFile, "CMD(62) Slow Motion segment duration (ie .01667)==" + Cmd(62) '08 January 2004
Print #FileFile, "CMD(63) Show Elapsed time of video switch (slow motion only) (ie SHOWELAP)==" + Cmd(63) '11 February 2004
Print #FileFile, "CMD(64) Pad_time (thousandsands added when in slow motion)==" + Cmd(64) '21 February 2004
'the above command put in because some files failed when using the get position
'command ie notably the niki and sparrow bird bath some weird bug??
'it works in most cases, and is really only needed when cataloguing etc.
Print #FileFile, "CMD(65) Random begin for video play RANDBEG etc ==" + Cmd(65) '23 March 2004
Print #FileFile, "CMD(66) Interrupt video replay speed (ie 250) ==" + Cmd(66) '10 April 2004
Print #FileFile, "CMD(67) Thumbnail on or off ie noTHUMB or THUMB ==" + Cmd(67) '14 April 2004
Print #FileFile, "CMD(68) Continue at end of file (WW) ie noEOF_STOP ==" + Cmd(68) '12 September 2004 use with background job allows them to stop
Print #FileFile, "CMD(69) Continue after match found (P) ie noHIT_STOP ==" + Cmd(69) '17 September 2004 use with background job allows them to stop after match found.
Print #FileFile, "CMD(70) if FOREGROUND then background job given focus & hi-lited ==" + Cmd(70) '17 September 2004
Print #FileFile, "CMD(71) Allow for input from batch file ie noBATCHFILE ==" + Cmd(71) '27 October 2004
Print #FileFile, "CMD(72) Allow for video pictures music play list noRESULTS.TXT ==" + Cmd(72) '08 November 2004 keep a file for a play list
Print #FileFile, "CMD(73) Switch input file when Control.txt file changes see Cmd(46) noFILESWITCH ==" + Cmd(73) '22 November 2004
Print #FileFile, "CMD(74) End of file command file switch (re text searches mainly) noEOFCMD ==" + Cmd(74) '26 November 2004
Print #FileFile, "CMD(75) Do not allow for video interrupt on cd and dvd copies VIDEOSTOP ==" + Cmd(75) '12 December 2004
Print #FileFile, "CMD(76) Line pause to create scrolling text noLINEPAUSE==1.5 ==" + Cmd(76) '24 December 2004
Print #FileFile, "CMD(77) Character pause on print text display noCHARACTERPAUSE==.00333 =="; Cmd(77) '03 January 2005
Print #FileFile, "CMD(78) Text file formats to allow during merge command TXT FRM HTM ==" + Cmd(78) '07 January 2005
Print #FileFile, "CMD(79) the owner of this version of software ie by Faster than Sight etc==" + Cmd(79) ' 01Oct2011
Print #FileFile, "CMD(80) PROMPTDETAILS for background large font stuff the details are annoying==" + Cmd(80) '01Oct2011
Print #FileFile, "CMD(81) noRAND_GROUP for golf when videos are grouped by foursome this needs to be turned on==" + Cmd(81) '01Oct2011
Print #FileFile, "CMD(82) the programs named here use control1 instead of control see cmd(45) as well==" + Cmd(82) '01Oct2011
Print #FileFile, "CMD(83) the value here is for offset from the Start== value -1000 is 1 second off that value==" + Cmd(83) '01Oct2011
Print #FileFile, "CMD(84) this is the default folder for MCI mp3 (see Cmd(23)) problem file==" + Cmd(84) '14Jul2016
Print #FileFile, "CMD(85) smlbud for offset when doing special video play back ie 0030 is 30/1000 sec==" + Cmd(85) '17Dec2017
Print #FileFile, "CMD(86) bigbud for offset when doing budge and fast forward video play back ie 0030 is 30/1000 sec==" + Cmd(86) '17Dec2017
Print #FileFile, "CMD(87) maxbud is the number of times a budge will move ahead==" + Cmd(87) '17Dec2017
Print #FileFile, "new feature 09 june 2002 allow for 6 search strings up from 3 (hi-lites only 3)"
Print #FileFile, "new feature 23 june 2002 allow for hi-lites of all 6 search strings"
Print #FileFile, "new feature 20 july 2002 allow use of non writable cd demo (do not update files)"
Print #FileFile, "new feature 27 july 2002 at photo continue prompt allow for . to display hidden prompt on screen"
Print #FileFile, "new feature 10 august 2002 allow for prompt #2 to default "
Print #FileFile, "new feature 12 august 2002 allow for 'rand' at prompt #2 to randomly select pics in file "
Print #FileFile, "new feature 25 august 2002 display elapsed time and character count on display"
Print #FileFile, "new feature 26 august 2002 CC search uses 'S' search then regets with a 'P' previous sequence"
Print #FileFile, "new feature 31 August 2002 if search data numeric don't do uppercase if alpha switch to uppercase for search"
Print #FileFile, "new feature 05 October 2002 PAUSE / PA option allow for screen saver type display of text, stopping for TT on each screen"
Print #FileFile, "new feature 12 October 2002 DEBPHO to debug the photo display on some computers"
Print #FileFile, "new feature 30 November 2002 DISC now shows os version ie Windows 98 etc"
Print #FileFile, "option change 05 December 2002 P1 & P2 just change image size P does single photo display"
Print #FileFile, "new feature 09 December 2002 Cmd(49) RANDOM / NORANDOM store from run to run"
Print #FileFile, "new feature 24 December 2002 Cmd(50) showfiles / noshowfiles in merged text files show file name where match found"
Print #FileFile, "option change if program name matches Cmd(45) then change drive # to that of app.path"
Print #FileFile, "Allow close of window during screen saver to unload form"
Print #FileFile, "new feature 01 February 2003 allow for *.avi video play cmd(51) cmd(52)"
Print #FileFile, "new feature 28 February 2003 enable skip if same file listed twice for play or display cmd(54)"
Print #FileFile, "new feature 20 March 2003 context clear cmd(55) allow for centering of text on screen"
Print #FileFile, "New Feature 22 March 2003 PHOTO_DETAIL text info along with pics see Cmd(56)"
Print #FileFile, "New Feature 26 March 2003 version 1.03 & 1.02b switchable time display"
Print #FileFile, "Hint: In random display mode, to view last 3 pictures add 6 blank lines to file"
Print #FileFile, "New Feature 11 May 2003 ver=1.05 display *.mpg video files similar to *.avi"
Print #FileFile, "New Feature 24 June 2003 ver=1.07 play mp3 audio files similar to above"
Print #FileFile, "New Feature 13 July 2003 ver=1.07a ELAP for elapsed time display after mp3 and mpg files"
Print #FileFile, "New Feature 19 July 2003 ver=1.07T THUMbnail at prompt #2 to just show or play short clips / previews /samples using tt time"
Print #FileFile, " Version 2.0 and greater "
Print #FileFile, " START==10000 at prompt #2 to test various start points in a video or song"
Print #FileFile, " START==20000 on the search detail line, to change individual file start point"
Print #FileFile, " use START==????? and WAIT=??? to show / play mini-clips from anywhere in a file"
Print #FileFile, " ***start==1000 for those video files that just won't play ie.(wavie lines only)"
Print #FileFile, "26 July 2003 default context display color to value in cmd(29) alternate color"
Print #FileFile, " minor bug fix related to wait time changing"
Print #FileFile, "New Feature 03 August 2003 ver=2.2 allow for FIT== And REG== to determine regular or fit to screen similar to WAIT="
Print #FileFile, "New Feature 18 August 2003 THUMB== on detail line will force a short play based on delay seconds"
Print #FileFile, " DOSHOW to over-ride any noshow settings (on detail line)"
Print #FileFile, "Fix 09 September 2003 to allow for service pack 1 systems"
Print #FileFile, "New Feature 24 September 2003 freeze=5 on a mpg video, after a wait=10 will hold the frame for display for 5 seconds"
Print #FileFile, "New Feature 29 September 2003 cmd(59) element used to adjust delay time (between systems)"
Print #FileFile, "New Feature 30 October 2003 cmd(61) element SETSPEED and speed=500 at prompt #2"
Print #FileFile, "New Feature 16 November 2003 over-ride above speed on a line basis ie speed=250"
Print #FileFile, "Fix 08 January 2004 replace SET SPEED with PAUSE and RESUME sequences"
Print #FileFile, "New Feature 16 August 2004 WMV video format now plays"
Print #FileFile, "Fix 16 August 2004 pause between jpg files fixed"
Print #FileFile, "Fix 27 August 2004 at interrupt alow for complete play by entering aa"
Print #FileFile, "New Feature 04 September allow for multiple inputs on prompt #2 seperated by / sep"
Print #FileFile, "New Feature 12 September 2004 allow for background job backgrd==c:\search\backgrd1\backgrd1.exe "
Print #FileFile, "New Feature cmd(68) EOF_STOP to allow for background job to stop at eof use with (WW) prompt #2 option"
Print #FileFile, "New Feature Cmd(69) HIT_STOP to allow for background job to stop at first match/hit use with (P) prompt #2 option"
Print #FileFile, "New Feature Cmd(70) FOREGROUND causes a background job to be given focus over main job"
Print #FileFile, "New Feature command==tt8/rand/randa/thumb/ww found on match line will change command settings"
Print #FileFile, "Fix 25 October 2004 Small video now play"
Print #FileFile, "27 October 2004 Batch file input option see cmd(71)"
Print #FileFile, " differences between to files limit of 10000 lines for now"
Print #FileFile, " differences between to files limit of 20000 lines for now 18-Mar-2007"
Print #FileFile, "Minor change force directory date out on gf option 03 November 2004"
Print #FileFile, "08 November 2004 create a results.txt file for video pics music see Cmd(72)"
Print #FileFile, "18 November 2004 minor New Feature DETAIL, NODETAIL changes cmd(56)"
Print #FileFile, "19 November 2004 New feature allows for CONTROL==controlx.txt or controly.txt to switch control files"
Print #FileFile, " ***vip*** change the control files on the fly (very usefull)"
Print #FileFile, " less use for the command== option now" '19 November 2004
'20 November 2004 allow for a cr at photo continue prompt to restart screen saver if auto_exe set
Print #FileFile, "22 November 2004 New feature on CONTROL== if cmd(73) has FILESWITCH then change the input file to element cmd(46)"
Print #FileFile, " in the new control file. " '22 November 2004
Print #FileFile, "23 November 2004 New Feature on OPTIONS==OPT=controla.txtOPT=controlb.txtOPT=controlc.txt select 1 2 or 3 ..10 for navigation of presentations"
Print #FileFile, "28 November 2004 New Feature add GIF files to list of pictures displayed"
Print #FileFile, "06 December 2004 New Feature enter DX at search prompt for yesterday date but not 01"
Print #FileFile, "17 December 2004 New Feature enter a V or H at the search prompt will paste in the clipboard just like Ctrl V"
Print #FileFile, "19 December 2004 New Feature allow for inset keypad at prompt #1 and prompt #3 ie J=4 K=5 L=6 etc"
Print #FileFile, "24 December 2004 New Feature allow for pause after each print line. Rather than all text displayed at once see Cmd(76)"
Print #FileFile, "06 January 2005 Minor New Feature, if pause do not display prompt #4 at end of screen add 1 line to max_cnt cmd(1)"
Print #FileFile, "07 January 2005 New Feature allow for merge of text data files other than .txt ie .htm .for .frm .cls etc..."
Print #FileFile, "10 January 2005 Minor fix re change 06 January 2005 the F option was not continuing now it does"
Print #FileFile, "20 August 2005 allow for the last few seconds as a thumbnail using start==299000 and thumb"
Print #FileFile, "29 November 2006 instead of pictures allow for URL address to be copied and pasted "
Print #FileFile, "29 January 2007 anything after http: if no / follows keep all except the http: "
Print #FileFile, "21 February 2007 fix the Start== not working properly - just initialize a couple values?"
Print #FileFile, "11 March 2007 final fix for the start== bug"
Print #FileFile, "28 March 2007 remove the favorites from directory it causes me problems"
Print #FileFile, "05 February 2008 fix timer. to speed up scrolling text display "
Print #FileFile, "22 November 2010 allow for a negative wait=-3 to play all but the final 3 seconds of a video 22Nov2010 "
Print #FileFile, "20 November 2011 the BEGIN and AGAIN features were added to video playback in november"
Print #FileFile, "31 December 2011 for G to be entered on interrupt and have the clip play again just like above"
Print #FileFile, "06 February 2012 FF for a catalog with fast forward capabilities "
Print #FileFile, "09 June 2016 minor change for Windows 10 operating system "
Print #FileFile, "17 December 2017 allow for video playback to move ahead in small or large increments budge_amt "
Print #FileFile, "12 March 2018 initial budge playback feature added more work needed "
Print #FileFile, "Version = " + vvvesion
Print #FileFile, "contact " + program_info + " stonedan@telusplanet.net"
Close #FileFile
DoEvents
'check the latest features above
Return

line_30920: '18 august 2002
zzz_cnt = 0
' xtemp = InputBox(" testing doug noonerror " + CStr(zzz_cnt), "testing Prompt ", , xx1 - offset1, yy1 - offset2)
On Error GoTo error_line_30920
OutFile = FreeFile
Open TheFile For Input As #OutFile
next_line_30920:
Line Input #OutFile, aaa
zzz_cnt = zzz_cnt + 1
If zzz_cnt >= cnt Then GoTo exit_line_30920
GoTo next_line_30920
error_line_30920:
Resume resume_line_30920
resume_line_30920:
On Error GoTo Errors_31000
exit_line_30920:
Return '18 august 2002

Errors_31000:
'the following line for debugging only ***vip***
'january 09 2001 below 27 june 2003 testing the stuff on tran's computer protection probably
' Print " Save-yore error"; Err.Number; " "; save_line; " "; Err.Description; " "; LastFile
' tt1 = InputBox("error=" + CStr(Err.Number) + " " + save_line, , , 4400, 4500) 'TESTING 09 February 2004
'16Apr2014 trap the end of file on the reverse file read here
' tt1 = InputBox("Error trap info error=" + CStr(Err.Number) + " " + save_line, , , 4400, 4500) '21Mar2016
If save_line = "70" Then
Resume line_74
End If '16Apr2014
If debug_photo Then
tt1 = InputBox("Error trap routine info error=" + " " + Err.Description + CStr(Err.Number) + " " + save_line, , , 4400, 4500) '16Apr2014
End If '16Apr2014
' tt1 = InputBox("Error trap =" + UCase(ttt) + CStr(Err.Number) + " " + save_line, , , 4400, 4500) '09Aug2016
' If Err.Number = 277 And copy_photo = "YES" Then
' photo_dir = ztemp
' Resume line_2153 'test only
' End If '09Aug2016
If save_line = "17059b" Then
frmproj2.Caption = "clipboard loaded " '09Jun2016 form description
Resume Photo_continue_prompt
End If '09Jun2016 testing
If save_line = "29310" Then
Cls
Print "bad data record???"
Print Left(aaa, 100) '17dec2017
Resume line_29399
End If '17Dec2017 was getting an error on weird line length call
If save_line = "29400" Then
Resume line_29450
End If '17Dec2017 was getting an error on weird line length call

If save_line = "30711b" Then
Resume line_30730
End If '05 March 2010

If save_line = "testing" Then
Resume End_32000
End If 'december 15 2000
If save_line = "16100-8d" And Err.Number = 20 Then
frmproj2.Caption = " skiping folder " + cript1(JJ) '01 march 2010
Resume line_30711
End If '03 March 2010
If save_line = "17200" Then
Resume line_17220
End If 'february 24 2002
If save_line = "30610" Then
Resume line_30640
End If 'january 09 2001
If save_line = "50" Then
Resume What_50
End If 'december 6 2000
If Err.Number = 62 And save_line = "28010" Then
Close FileFile
DoEvents
' Kill "C:\control.txt"
Kill "control.txt" 'december 3 2000
FileFile = FreeFile
II = DoEvents
' Open "C:\control.txt" For Output Access Write As #FileFile
Open "control.txt" For Output Access Write As #FileFile 'december 3 2000
For f = 1 To 100
If Len(Cmd(f)) < 1 Then
Cmd(f) = Space(50)
End If
Print #FileFile, Cmd(f)
Next f
Close FileFile
II = DoEvents
' tt1 = InputBox("extending control.txt", , , 4400, 4500) 'TESTING ONLY
Resume line_20

End If
'===============================

If Err.Number = 62 And save_line = "1000" And _
end_cnt < 10 Then
end_cnt = end_cnt + 1
Resume input_1000
End If 'allow for more than 1 eof marker in file
If Err.Number = 62 And save_line = "29010" Then
Resume line_29090
End If
If save_line = "29092" Then
Resume line_29093
End If
If Err.Number = 53 And save_line = "29005" Then
Resume line_29008
End If

'"Y" logic below read till end of file then back off a few lines
' then simulate a "C" and "A" for all search.
If Err.Number = 62 And save_line = "65" Then
Close #OutFile
DoEvents
OutFile = FreeFile
Open TheFile For Input As #OutFile
DoEvents
' tt1 = InputBox("testing only " + TheFile, , , 4400, 4500) 'TESTING ONLY

For bbb = 1 To zzz_cnt - MAX_CNT + 2 '2 TO SEE THE LAST 2 STATS LINES
Line Input #OutFile, aaa
Next bbb
Previous_line = aaa
Line Input #OutFile, aaa
zzz_cnt = bbb
search_prompt = "" 'this keeps the next prompt#3 from being "D"
prompt2 = "C"
SAVE_ttt = "C"
inin = "A"
SSS1 = "A"
ttt = "C"
printed_cnt = 0 'this fixes the 2 execution of this function
'ie the lines print from the top not midway
Resume input_1000a
End If 'december 09 2001

'05 october 2002 If Err.Number = 62 And save_line = "1000" And sscreen_saver = "Y" Then
'20 November 2004 maybe the save_line thing is a problem when I return to save_line = 1000a etc
frmproj2.Caption = " eofsw test=" + CStr(Err.Number) + "=" + save_line + " " + Err.Description + " " + Pict_file '26 November 2004
'14Apr2012 If Err.Number = 62 And save_line = "1000" And (sscreen_saver = "Y" Or text_pause) Then
If Err.Number = 62 And save_line = "1000" And (sscreen_saver = "Y" Or text_pause) Then
'14Apr2012 used to test for error that was fixed below tt1 = InputBox("at problem area " + CStr(zzz_cnt) + " " + CStr(rand_no), , , 4400, 4500) 'TESTING ONLY
If rand = -1 Then
Randomize
frmproj2.Caption = "29Oct2012aaa testing doug randomizer rnd" + CStr(rand_no) + " " + CStr(zzz_cnt)

rand_cnt = zzz_cnt - 3
zzz_cnt = 0
rand_no = Int(rand_cnt * Rnd + 1)
rand_str = "random#" + CStr(rand_no) '18Mar2012
Resume Do_Search_110 '14Apr2012
End If '14Apr2012
'=====================================================================================
If Left(Cmd(74), 8) = "EOFCMD==" Then
control_file = Trim(Right(Cmd(74), Len(Cmd(74)) - 8)) '26 November 2004
aaa = "CONTROL==" + Right(Cmd(74), Len(Cmd(74)) - 8)
' tempdata = Cmd(73) '22 November 2004
temptemp = Trim(Cmd(48)) '26 November 2004
tempdata = "CONTROL" '26 November 2004

eofsw = "YES" '26 November 2004
GoSub Control_28000 'change the control file from in a *.txt file
Resume eof_entry '26 November 2004
' GoTo eof_entry '27 November 2004
End If '26 November 2004

If Left(UCase(Cmd(68)), 8) = "EOF_STOP" Then GoTo End_32000 '12 September 2004
'====================================================================================

Close #OutFile
' frmproj2.Caption = program_info + " (cls #17)" '18Dec2013
Cls '20 August 2003
' Print "at end of file prompt" '04 april 2002
' Print "at end of file prompt" '10 January 2010 skip this for special program derulaswamp
If Left(UCase(Cmd(80)), 13) = "PROMPTDETAILS" Then Print "at end of file prompt " + sscreen_saver '

' Print "at end of file prompt" '04 april 2002
'16 April 2004 make it so that after the first complete pass that the logic
' will switch so that the data is randomly accessed. This is only
' for auto-run custom cd's

'20 November 2004 found this may be a problem ***vip*** todo check this once and a while.
' If save_line <> "1000" Then
If save_line = "1000111" Then
'===================================
rand = -1
Randomize
frmproj2.Caption = "29Oct2012yyy testing doug randomizer rnd" + CStr(rand_no) + " " + CStr(zzz_cnt)

rand_cnt = zzz_cnt - 3
zzz_cnt = 0
rand_no = Int(rand_cnt * Rnd + 1)
rand_str = "random#" + CStr(rand_no) '18Mar2012
Cmd(49) = "RANDOM"

rand1 = -1
Cmd(65) = "RANDBEG"

thumb_nail = "YES"
Cmd(67) = "THUMB"

play_speed = 250
save_play_speed = 250
Cmd(61) = "SETSPEED250"
'===================================

End If '16 April 2004 deactivate this code if not a auto-run cd

Beep
play_speed = 1000 '13 May 2004 the first one after end of file was playing slomo this fixed
hold_sec = Val(Cmd(27)) '29 april 2002
' Cmd(27) = Format(delay_sec, "###0.0000") '01 may 2002
'25 March 2004 delay_sec = 1 '04 april 2002
'25 March 2004 GoSub line_30000 '04 april 2002
new_delay_sec = 1 '25 March 2004
' new_delay_sec = 10 '20 November 2004
' frmproj2.Caption = " end of file dougdoug " + interrupt_prompt2 + "*" + SSS1 + "*" + SSS2 '20 November 2004 test
If interrupt_prompt2 = "WW" Then
sscreen_saver_ww = "YES" '20 November 2004 test
sscreen_saver = "Y" '20 November 2004 test
prompt2 = "WW" 'this one seems to keep it going where before it stopped. now it gets wrong data
prompt2 = "SS" '20 November 2004
tt1 = "WW"
End If '20 November 2004
GoSub line_30300 '25 March 2004
Cls
' tt1 = InputBox("testing 28 april 2003 zzz_cnt rand_no" + CStr(zzz_cnt) + CStr(rand_no), , , 4400, 4500) 'TESTING ONLY
last_pict = "" '28 february 2003
'03mar2017 delay_sec = Format(Val(Cmd(27)), "###0.0000") '29 april 2002
' tt1 = InputBox("testing delay a" + Cmd(27) + Format(hold_sec, "###.000") + Format(delay_sec, "###.000"), , , 4400, 4500) 'TESTING ONLY
DoEvents
tot_s1 = 0 '05 october 2002 just incase these counts get to over-flowing
tot_s2 = 0 '05 october 2002
tot_s3 = 0 '05 october 2002
tot_s4 = 0 '05 october 2002
tot_s5 = 0 '05 october 2002
tot_s6 = 0 '05 october 2002
' frmproj2.Caption = " end of file doug two " + interrupt_prompt2 + "*" + sscreen_saver + "*" + SSS1 + SSS2 '20 November 2004 test
If mixx = True Then ' 08Sep2012 testing
' tt1 = InputBox("testing 08Sep2012 mixx=" + CStr(mixx) + " ttt=" + ttt + " set_fore=" + CStr(Set_Fore), , , 4400, 4500) 'TESTING ONLY
'03mar2017 Set_Fore = 15 'to white again
Font.Underline = False 'need to get rid of underline on 2nd and subsequent passes this did not do it
'28mar2017 test ttt = "P"
'28mar2017 test SAVE_ttt = "P"
ttt = "P"
SAVE_ttt = "P"
End If '08Sep2012

Resume Do_Search_110
End If
If Err.Number = 62 And save_line = "1000" Then
dblEnd = Timer 'get the end time
If Left(UCase(Cmd(68)), 8) = "EOF_STOP" Then GoTo End_32000 '12 September 2004

'should do another read and if successful warn them
'that the file has a end of file marker and it should
'be removed

If Picture_Search = "YES" Then
If Not mixx Then Set Picture = LoadPicture() '12Feb2017
' Set Picture = LoadPicture() 'lp#8
End If
ForeColor = QBColor(Val(Cmd(5)))
If auto_redraw = "YES" Then frmproj2.AutoRedraw = True 'november 10 2001 autoredraw pair-5
If Left(UCase(App.EXEName), 7) = "BIGTEXT" Then
GoTo End_32000
End If '23Jun2012
Print "Lines="; zzz_cnt & " Chrs= " & zzz_chrs;
Print " Displayed = " & tot_disp;
Print " Elap="; Format(dblEnd - dblStart, "#####0.000");
Print " Hits="; tot_s1; " "; tot_s2; " "; tot_s3; " "; tot_s4; " "; tot_s5; " "; tot_s6 'january 01 2001
Print "#5 End of " + TheFile & " "
tot_s1 = 0 'january 01 2001
tot_s2 = 0 'january 01 2001
tot_s3 = 0 'january 01 2001
tot_s4 = 0 '23 june 2002
tot_s5 = 0 '23 june 2002
tot_s6 = 0 '23 june 2002
mult1 = "" 'january 05 2001
mult2 = "" 'january 05 2001
mult3 = "" 'january 05 2001
mult4 = "" '23 june 2002
mult5 = "" '23 june 2002
mult6 = "" '23 june 2002
array_pos = 0 'january 21 2001
array_prt = 0

ForeColor = QBColor(Def_Fore)
Close #OutFile 'june 13/99
Close #ExtFile 'november 14 2000
line_len = Val(Cmd(21)) 'november 14 2000
mbxi = 0 'december 18 2000
If prompt2 = "Q" Then mbxi = 1 'december 18 2000
iimport = "" 'december 24 2000
emailsea = "" 'december 24 2000
DoEvents

If SAVE_ttt = "C" Then 'december 11 2000
For temp1 = 1 To MAX_CNT
Context_text(temp1) = ""
Next temp1
Context_cnt = 0 'december 11 2000
End If 'aug 08/99
II = DoEvents 'june 13/99
If screen_capture = "YES" Then
'03 September 2004 delay_sec = 5 'march 15 2001
'03 September 2004 GoSub line_30000
new_delay_sec = 5 '03 September 2004
GoSub line_30300 '03 September 2004
End If
yyy = InputBox("Do you want to continue y/n <y>", "Continue Prompt", , 10000, 10000)
yyy = UCase(yyy) 'june 27/99
' frmproj2.Caption = program_info + " (cls #19)" '18Dec2013
Cls 'november 10 2001 needed with autoredraw
If auto_redraw = "YES" Then frmproj2.AutoRedraw = False 'november 10 2001 autoredraw pair-5
dblStart = Timer 'get the start time
If yyy = "B" Then
Resume line_3300
End If
'19 December 2004 If yyy = "P" Then
If yyy = "P" Or yyy = "J" Then
yyy = "P" '19 December 2004
tt1 = "P"
If prompt2 = "Q" Then
prompt2 = "C"
SAVE_ttt = "C"
SSS1 = UCase(SSS1)
SSS2 = UCase(SSS2)
SSS3 = UCase(SSS3)
End If
previous_count = previous_count + 1
' Print "prompt2="; prompt2; "="
' tt1 = InputBox("testing only", , , 4400, 4500) 'TESTING ONLY
Resume line_3050 'october 22 2000
End If
' xtemp = InputBox("testing prompt=" + prompt2 + extract_yes + CStr(zzz_cnt) + " " + CStr(wrap_cnt) + " " + CStr(cnt), "test", , 4400, 4500) '
If extract_yes = "YES" Then
extract_yes = "NO" 'november 14 2000
Resume What_50 'january 08 2001
End If
Resume Do_Search_110 'june 27/99
End If
'create notes.txt on first pass if it does not exist
If Err.Number = 53 And save_line = "24010" And _
UCase(TheFile) = "MPEG_VIDEOS.TXT" Then
' UCase(TheFile) = "NOTES.TXT" Then 18Jun2012 along with a number of other changes
' UCase(TheFile) = "C:\NOTES.TXT" Then december 3 200

'CREATE THE FILES BELOW SO THE USER DOES NOT HAVE TO DO IT
'TO START THEY WILL HAVE THESE 4 FILES
temps = Format(Now, "ddddd ttttt") + " "
temps = Left(temps, 23) 'all must be 23 long incld space

FileFile = FreeFile
Open TheFile For Output Access Write As #FileFile
Print #FileFile, temps + " this is where the catalogue info goes"
Close #FileFile
II = DoEvents

' FileFile = FreeFile
' Open "C:\NOTES1.TXT" For Output Access Write As #FileFile
' Open "NOTES1.TXT" For Output Access Write As #FileFile 'december 3 2000
' Print #FileFile, temps + " sample notes1 file"
' Close #FileFile
' II = DoEvents

' FileFile = FreeFile
' Open "C:\NOTES2.TXT" For Output Access Write As #FileFile
' Open "NOTES2.TXT" For Output Access Write As #FileFile 'december 3 2000
' Print #FileFile, temps + " sample notes2 file"
' Close #FileFile
' II = DoEvents

' FileFile = FreeFile
' Open "C:\NOTES3.TXT" For Output Access Write As #FileFile
' Open "NOTES3.TXT" For Output Access Write As #FileFile 'december 3 2000
' Print #FileFile, temps + " sample notes3 file"
' Close #FileFile
' II = DoEvents

' Resume line_24010 'december 13 2000
Resume File_40 'december 13 2000
End If
If Err.Number = 53 And save_line = "24010" Then
If InStr(UCase(TheFile), ".TXT") <> 0 Then
'12 September 2004 if an auto run or background job create the file and continue automatically
'19Aug2011
If (InStr(1, UCase(Cmd(45)), UCase(App.EXEName)) <> 0 And Left(App.Path, 3) <> "C:\") Or InStr(1, UCase(App.Path + App.EXEName), "BACKGRD") <> 0 Then
xtemp = "Y"
GoTo do_create '12 September 2004
End If
xtemp = InputBox("No such file, Create it Y/N <N> " + UCase(TheFile), , , 4400, 4500) 'TESTING ONLY
do_create: '12 September 2004
If UCase(xtemp) = "Y" Then
NewFile = FreeFile 'find a free file channel
Open UCase(TheFile) For Output As NewFile
DoEvents
Print #NewFile, "File " + UCase(TheFile) + " created " + Format(Now, "ddddd ttttt") 'january 29 2002
Print #NewFile, " " 'this forces it to a plain text file not rich text
Close #NewFile
DoEvents
' Cmd(20) = "E"
Resume line_24020
End If
End If
Resume File_40 'if it does not exist ask again
End If

If Err.Number = 53 And save_line = "17040" Then
'01 September 2004 Print "no such file="; Pict_file; "="
'01 September 2004 tt1 = InputBox("no such file", "No such file Prompt", , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
frmproj2.Caption = " No such file Prompt #1 " + Pict_file '01 September 2004
new_delay_sec = 4
GoSub line_30300 '01 September 2004
Beep '01 September 2004
Resume Line_17090
End If

If Err.Number = 57 And save_line = "17055" Then
Cls
Print "bad file="; Pict_file; "="
tt1 = InputBox("bad file" + Pict_file, "Bad picture file Prompt", , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
If Not mixx Then Set Picture = LoadPicture() '12Feb2017
' Set Picture = LoadPicture() 'lp#9
Resume input_1000 '
End If

If Err.Number = 57 And save_line = "17059" Then
Cls
Print "bad file="; Pict_file; "="
tt1 = InputBox("bad file" + Pict_file, "Bad file name Prompt", , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
If Not mixx Then Set Picture = LoadPicture() '12Feb2017
' Set Picture = LoadPicture()
Resume input_1000 '
End If

If Err.Number = 76 And save_line = "17040" Then
'01 September 2004 Print "no such file="; Pict_file; "="
'01 September 2004 tt1 = InputBox("no such file", "No such file Prompt", , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
frmproj2.Caption = " No such file Prompt #2 " + Pict_file '01 September 2004
new_delay_sec = 4
GoSub line_30300 '01 September 2004
Beep '01 September 2004
Resume Line_17090 '
End If

If Err.Number = 53 And save_line = "17050" Then
Print "no such Program="; Cmd(8); "="
tt1 = InputBox("no such Program", , , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
Resume Line_17090 '
End If

If Err.Number = 53 And save_line = "17080" Then
Print "no such Program="; Cmd(9); "="
tt1 = InputBox("no such Program", , , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
Resume Line_17090 '
End If

If Err.Number = 53 And save_line = "17085" Then
Print "no such Program="; Cmd(16); "="
tt1 = InputBox("no such Program", , , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
Resume Line_17090 '
End If

If Err.Number = 53 And save_line = "25000" Then
FileFile = FreeFile 'log file of files accessed
Open Cmd(11) For Output Access Write As #FileFile

' Print #FileFile, "a:\notes.txt" 'sample file demo change this to a:\
' Print #FileFile, "a:\howto.txt" 'sample file
Print #FileFile, "mystuff.txt"
Print #FileFile, "fam-doug.txt"
Print #FileFile, "inmail.txt"
Print #FileFile, "outmail.txt"
Print #FileFile, "cript.txt"
Print #FileFile, "help.txt"
Print #FileFile, "replace.txt"
Print #FileFile, "merge.txt"
Print #FileFile, "directory.txt"
Print #FileFile, "control.txt"
Print #FileFile, "MPEG_VIDEOS.TXT" 'sample file demo change this to a:\ december 3 2000
For f = 1 To 12
Print #FileFile, Space$(50)
Next f

Close #FileFile
' Resume InputFile_24000
'if the file does not exist then create it above
' Print "Creating "; Cmd(11); " file"
' Resume InputFile_24000
Resume line_45 'december 3 2000
End If
If Err.Number = 53 And save_line = "27000" Then
FileFile = FreeFile
Open Cmd(12) For Output Access Write As #FileFile
Print #FileFile, "PHOTO"
Print #FileFile, "doug/oldie"
Print #FileFile, "phyllis/bev/jeff/jerry/shelly/barb"
Print #FileFile, "spectate/swamp"
Print #FileFile, " jimmy / cracked / corn / and / i / don't care "
Print #FileFile, ".mpg"
Print #FileFile, ".pdf"
Print #FileFile, ".jpg"
For f = 1 To 18
Print #FileFile, Space$(50)
Next f

Close #FileFile
' Print "Creating Search.txt file" 'december 3 2000
' DoEvents 'december 3 2000
' delay_sec = 3 'december 3 2000
' GoSub line_30000 'december 3 2000
' DoEvents 'december 3 2000
' Resume Search_26000 'december 3 2000
' GoTo End_32000 '07Dec2010
Resume line_500 'december 3 2000 07Dec2010 is this the place to change?
'if the file does not exist then create it above
End If

line_31500:

If Err.Number = 53 And save_line = "28000" Then
FileFile = FreeFile
' Open "C:\control.txt" For Output Access Write As #FileFile
Open "control.txt" For Output Access Write As #FileFile 'december 3 2000
visual_impared = "NO"
GoSub line_30500
visual_impared = "YES"
Resume line_31510
' End If
line_31510:
' Kill "c:\control1.txt"
FileFile = FreeFile
' Open "C:\control1.txt" For Output Access Write As #FileFile
Open "control1.txt" For Output Access Write As #FileFile 'december 3 2000
GoSub line_30500
visual_impared = "NO"
GoTo line_20 'november 3 2000 testing
' Resume Control_28000 'november 3 2000 testing
End If 'april 20/00

If Err.Number = 53 And save_line = "110" Then
Resume File_40

End If 'file no longer exists

If Err.Number = 62 And save_line = "24015" Then
Close FileFile
Resume What_50
End If
If Err.Number = 62 And save_line = "29510" Then
Resume line_29520
End If

Resume line_31990 'november 20 2000
line_31990:
Print

'december 19 2000 Print " Save-yore error**"; Err.Number; " "; save_line; " "; Err.Description; " "; Pict_file
Resume End_32010 'december 19 2000
'december 19 2000 GoTo line_31999 'december 3 2000
line_31999: 'december 3 20002
xtemp = InputBox("log error & enter to exit " + Err.Number + " " + save_line, , , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
End_32000:
' Print "prompt2="; line_len; "="; tot_print; "+"; temps
' tt1 = InputBox("testing only end_32000", , , 4400, 4500) '01 March 2010
' tt1 = InputBox("testing only end_32000", , , 4400, 4500) 'TESTING ONLY
' temp2 = InStr(line_len - tot_print, temps, " ") 'november 3 2000 fix
'without the line below I was getting the "Unexpected error; quitting"
'sdistuff do not have following line activated in sdi version
'GoTo line_32500 'mdistuff new
On Error GoTo 0 'january 30 2001
If save_line = "testing" Then
Print Err.Number, save_line
tt1 = InputBox("testing only", , , xx1 - offset1, yy1 - offset2) 'TESTING ONLY
End If 'december 15 2000
Close #OutFile
Cls
'derulaswamp 2010 Print " End Of Search "
If Left(UCase(Cmd(80)), 13) = "PROMPTDETAILS" Then Print " End Of Search "
'derulaswamp 2010 Print " close out window or any key to continue"
If Left(UCase(Cmd(80)), 13) = "PROMPTDETAILS" Then Print " close out window or any key to continue"

'make the unload a control file option
End_32010:
If UCase(Cmd(30)) = "Y" Or UCase(tt1) = "X" Or UCase(tt1) = "E" Then
' Unload proj2 'october 26 2000
'13 March 2004 make sure things close here for video file play...
If mpg_file = "YES" Then
' tt1 = InputBox("testing only exit search", , , 4400, 4500) 'TESTING ONLY 13 March 2004
i = mciSendString("close all", 0&, 0, 0) '13 March 2004
DoEvents '12 March 2004
' new_delay_sec = 2
' GoSub line_30300 '13 March 2004 maybe the delay will fix the problem
End If
Unload Me 'november 29 2000 didn't seem to make any difference from above line
'see programmers guid page 170 re using Me keyword
Set frmproj2 = Nothing 'sdistuff
'14 March 2004 Set colReminderPages = Nothing 'release memory??
' Set sear1 = Nothing 'mdistuff
End '14 March 2004 use this after each unload me ???
End If
' End
line_32500: 'mdistuff new
Unload Me '09 January 2010
End Sub

Private Sub text2_Change()
Cls
Call text2_Chg 'october 26 2000
End Sub

Private Sub Form_LinkClose()
'22 March 2004 tt1 = InputBox("testing only form_linkclose", , , 4400, 4500) 'TESTING ONLY 03 July 2003

End Sub

Private Sub Form_OLECompleteDrag(Effect As Long)
tt1 = InputBox("testing only OLECompleteDrag", , , 4400, 4500) 'TESTING ONLY 27 July 2003

End Sub

Private Sub Form_Unload(Cancel As Integer)
'18 March 2004 If mpg_file = "YES" Then
i = mciSendString("close all wait", 0&, 0, 0) '12 March 2004
DoEvents '12 March 2004
DoEvents
'18 March 2004 End If '13 March 2004
'22 March 2004 tt1 = InputBox("testing only form_unload", , , 4400, 4500) 'TESTING ONLY 12 March 2004
Unload Me
Set frmproj2 = Nothing 'sdistuff
Set colReminderPages = Nothing 'release memory?? 13 March 2004
End '29 january 2003
'allow for the close form to be used
'without the already running showing next
End Sub

Private Sub Timer1_Timer()
' result = mciSendString(todo$, ByVal 0&, 0, 0) '13 December 2004
frmproj2.Caption = "(in the timer routine)" + alias '13 December 2004
'not using this routine for now...
'so the object is not really needed and this code removed
' Stop
End Sub