' MacroName: 007
' MacroDescription: Creates an 007 line for sound cassettes
'                   (including BOTs), CD's, VHS videotapes, and 
'                   CD-ROMs from information in the record.  Only
'                   creates an 007 for the primary format.
' Created by: Joel Hahn
                    
sub main
dim CS as session        'Set up "CS" as an alternative
set CS = CurrentSession  'to "CurrentSession"

' Find & Get Type
SearchRow% = 1
SearchCol% = 1
CS.Find "Type:  ", SearchRow%, SearchCol%
CurrentSession.GetChar Typ$, Attrib%, , SearchCol%

' Find page of record with 300 line
If CS.Find("300     ", SearchRow%, SearchCol%) = FALSE then
  RunMacro "PRSMUTIL!PageDown"
End If

'Get the coordinates of the start & end of 300 $a and $b
SearchRow% = 1
SearchCol% = 1
CS.Find "300     ", SearchRow%, SearchCol%
SRowA%=SearchRow%
CS.Find ":", SearchRow%, SearchCol%
SColA2%=SearchCol%-3
SColB%=SearchCol%+4
If CS.Find(";", SRowA%, SColA%) Then
  CS.Find ";", SearchRow%, SearchCol%
Else
  CS.Find CHR$(221), SearchRow%, SearchCol%
End If
SColB2%=SearchCol%-3

'Get the contents of 300 $a, $b
CS.GetTextInRegion A300$, SRowA%, 16, 0, SColA2%, FALSE
CS.GetTextInRegion B300$, SRowA%, SColB%, 0, SColB2%, FALSE

'****************************************************************
'CHR$(220) = Start of line sign
'CHR$(221) = End of line sign
'CHR$(223) = Delimiter sign
'****************************************************************
Seven$=CHR$(220)+" 2.5  007     "
'Typ$="j"
'A300$="2 sound cassettes"
'B300$="analog"

'Computer Files
If Typ$="m" Then
  Seven$=Seven$+"c "
  If Right(A300$, 4)="disc" Then
    B$=CHR$(223)+"b o "
    E$=CHR$(223)+"e g "
  Else
    B$=CHR$(223)+"b j "
    E$=CHR$(223)+"e a "
  End If
  If Right(B300$, 4)="col." Then
    D$=CHR$(223)+"d c "
  ElseIf Right(B300$, 3)="b&w" Then
    D$=CHR$(223)+"d a "
  Else
    D$=CHR$(223)+"d u "
  End If
  If Left(B300$, 2)="sd" Then
    F$=CHR$(223)+"f a"
  Else
    F$=""
  End If
Seven$=Seven$+B$+D$+E$+F$
End If

'Videorecordings
If Typ$="g" Then
  Seven$=Seven$+"v "+CHR$(223)+"b f "
  If Mid(B300$, 6, 3)="col" Then
    D$=CHR$(223)+"d c "
  ElseIf Mid(B300$, 6, 3)="b&w" Then
    D$=CHR$(223)+"d b "
  Else
    D$=CHR$(223)+"d u "
  End If
  EFGH$=CHR$(223)+"e b "+CHR$(223)+"f a "+CHR$(223)+"g h "
  EFGH$=EFGH$+CHR$(223)+"h o "
  If CS.Find("stereo", SearchRow%, SearchCol%)=0 Then RunMacro "PRSMUTIL!PageDown"
  If CS.Find("stereo", SearchRow%, SearchCol%)=0 Then
    CS.MoveCursor 1, 1
    CS.PutText "home"
    RunMacro "PRSMUTIL!SendCommand"
  End If
  If CS.Find("stereo", SearchRow%, SearchCol%)=0 Then RunMacro "PRSMUTIL!PageDown"
  If CS.Find("stereo", SearchRow%, SearchCol%)=0 Then
    CS.MoveCursor 1, 1
    CS.PutText "home"
    RunMacro "PRSMUTIL!SendCommand"
    I$=CHR$(223)+"i m "
  Else
    I$=CHR$(223)+"i q "
  End If
Seven$=Seven$+D$+EFGH$+I$
End If

'Cassettes & CD's
If Typ$="i" Or Typ$="j" Then
  Seven$=Seven$+"s "
  If Mid(A300$, 9, 4)="disc" Then
    BD$=CHR$(223)+"b d "+CHR$(223)+"d f "
    GHI$=CHR$(223)+"g g "+CHR$(223)+"h n "+CHR$(223)+"i n "
    MN$=CHR$(223)+"m e "+CHR$(223)+"n d "
  Else
    BD$=CHR$(223)+"b s "+CHR$(223)+"d l "
    GHI$=CHR$(223)+"g j "+CHR$(223)+"h l "+CHR$(223)+"i c "
    If Mid(B300$, 9, 5)="Dolby" Or Mid(B300$, 18, 5)="Dolby" Then 
      MN$=CHR$(223)+"m c "+CHR$(223)+"n e "
    Else
      MN$=CHR$(223)+"n e "
    End If
  End If
  If Mid(B300$, 9, 4)="ster" Or Mid(B300$, 10, 4)="ster" Then
    E$=CHR$(223)+"e s "
  ElseIf Mid(B300$, 9, 4)="mono" Or Mid(B300$, 10, 4)="mono" Then
    E$=CHR$(223)+"e m "
  Else
    E$=CHR$(223)+"e u "
  End If
  F$=CHR$(223)+"f n "
Seven$=Seven$+BD$+E$+F$+GHI$+MN$+CHR$(221)
End If

'Print the new 007 line and send it into the record
CS.MoveCursor 1, 1
CS.PutText Seven$
RunMacro "PRSMUTIL!SendCommand"

Done2:
end sub