ŠĻą”±į>ž’ ž’’’€’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ż’’’ ŲØé! "#$%&'()*+,-./0123456789:;<=>?ž’’’ABCLEFGHIJK@MNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|ž’’’~Root Entry’’’’’’’’ —įbĪŖć`ŒĢ%®@±¤ †¾@ŗ007.SRC’’’’'’’’’I007.DES&’’’’>2007.BIN’’’’’’’’’’’’?Ų  !"#$%&'()*+,-./0123456789:;<=ž’’’ž’’’@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyzž’’’ž’’’}ž’’’€' 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. ' Macro written by: Joel Hahn, Niles Public Library District 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 CS.Send "tag 300" 'Get the coordinates of the start & end of 300 $a and $b SearchRow% = 6 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 Creates an 007 line from information in the recordķž6QóDŅŲ$*‡±#µĄType: ĄČĄĄĄČĄtag 300 ĄČ300 :;ĄČ 2.5 007 mc discb o e g b j e a col.d c b&wd a d u sdf agv b f cold b e b f a g h h o stereoPRSMUTIL!PageDown ĄČ ĄhomeĄČPRSMUTIL!SendCommandi m i q ijs b d d f g g h n i n m e n d b s d l g j h l i c Dolbym c n e stere s monoe m e u f n ŠQ 6§#”’’’’V F€ €€€€€€ €" (08@HPX`hpx€ˆ˜ CSSearchRowSearchCol_TypAttribSRowASColA2SColBSColASColB2A300B300_SevenBEDF______EFGHIBDGHIMNmain€ 5 7 F Fm„K+Passport—ę ~u2\[Ų’ 8’8‘q5© ‘‘2\;~u2\n‘2\ q5"©2\,— 8’8‘q52© ‘‘2\; 8‘q5=© ‘‘2\;”F8•B8‘q5A© ‘‘2\‘(‘q5A© ‘‘2\;%‘q›Żi ‘‘2\;”F"8q”‘‘2\Eq‘"‘2\E%›Üi5Pš (œ+5a²‘©,(5eš(œ-›•i5j²‘=.›ßi5qš 0œ/›ßi5xš 8œ061›ßi5š 0œ2›ßi5†š 8œ34›•i5²‘"5›ßi5”š @œ6W6›”i5›²‘"7›ßi5”š @œ89›ßi5ؚ @œ:;›“i5Ʋ‘"<›ßi5“š Hœ= >7Hœ?@(0š@š 8šPHšX(œAD5ŗ²‘åE(5¾š ›ßišP5$ƚX(œF›”—© i5Ź²‘"G›ßi5”š @œH\H›”—© i5›²‘"I›ßi5Šš @œJK›ßi5ؚ @œLM›ßi5ך P›ßišX5$Žš`h›ßišp5,åšx€œN€›ßiš 5ģšP€œO‘q5ó© ‘‘2\‘‚‘Ou5ü©2\P‘q5ó© ‘‘2\‘‚‘@Qq’’2\Rq6©‘‘‘2\$Su6-©2\TU‘q5ó© ‘‘2\‘‚‘Uu5ü©2\V‘q5ó© ‘‘2\‘‚‘eWq’’2\Xq6©‘‘‘2\$Yu6-©2\Z›ßi6Dš ˆœ[\›ßi6Kš ˆœ]^(@š€š ˆšP(œ_b6R²6$V²W‘^c(6Zš(œd›•š© i5j²‘Åe›ßi6_š P›ßišX6$fš`œf›ßi6mš P›ßišX6$tš`h›ßišp6,{šx˜œg›ßi6‚š P›ßišX6$‰š` œh#i›ßi6š P›ßišX6$—š`œj›ßi6žš P›ßišX6$„š`h›ßišp6,¬šx˜œk›–š© i6³²P›–£©Xi6$³²W‘>l›ßi6»š P›ßišX6$Āš` œmn›ßi6Āš  œopq›•š© i6ɲP›•›©Xi6$ɲW‘$r›ßi6Šš 8œs~s›•š© i6ײP›•›©Xi6$ײW‘$t›ßi6Žš 8œuv›ßi6åš 8œwx›ßi6ģš Hœy(š8š HšP˜šX š`h›Żišp(œz}q’’2\~q(‘‘‘2\$u6-©2\‚˜  € FALSE#SessionApplicationInsert initial or additional 007 tags to a recordInsert primary or secondary 007 tags to a record for sound cassettes (including BOTs), CD's, VHS videotapes, CD-ROMs, etc.' MacroName: BatchXpo ' MacroDescription: Given a series of save file numbers, export ' each in turn ' MacAdd007.SRC’’’’ ’’’’‚TAdd007.DES) ’’’’{1Add007.BIN(’’’’’’’’DeyAlt007.SRC’’’’!’’’’‚|S‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ž’’’¢£¤„¦§Ø©Ŗ«¬­®Æ°±²³“µ¶¹øž’’’ŗ»¼½¾æĄĮĀĆÄž’’’ĘĒČÉŹĖĢĶĪĻŠŃŅÓŌÕÖ×ŲŁŚˆÜŻŽßąįāćäåęēčéźėģķīļšńņóōöž’’’ž’’’ųłśūüżž’ropListBox 10, 17, 19, 58, BCh$, .b Text 30, 7, 16, 12, "$d" DropListBox 30, 17, 19, 58, DCh$, .d Text 50, 7, 16, 12, "$e" DropListBox 50, 17, 19, 58, ECh$, .e Text 71, 7, 16, 12, "$f" DropListBox 70, 17, 19, 58, FCh$, .f OkButton 10, 40, 40, 20 CancelButton 52, 40, 40, 20 End Dialog dim CChoice as Comp dialog CChoice b$=BArr(CChoice.b) d$=DArr(CChoice.d) e$=EArr(CChoice.e) f$=FArr(CChoice.f) Goto DoIt Globe: ReDim BArr(0 to 4) BArr(0)=" " : BArr(1)="a" : BArr(2)="b" : BArr(3)="c" : BArr(4)="z" x=1 : BCh$=BArr(0) Do While x<=4 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 2) DArr(0)=" " : DArr(1)="a" : DArr(2)="c" x=1 : DCh$=DArr(0) Do While x<=2 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 10) EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d" EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="p" : EArr(9)="u" EArr(10)="z" x=1 : ECh$=EArr(0) Do While x<=10 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 4) FArr(0)=" " : FArr(1)="f" : FArr(2)="n" : FArr(3)="u" : FArr(4)="z" x=1 : FCh$=FArr(0) Do While x<=4 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop Begin Dialog Globe 100, 70 Caption "007 Creation" Text 10, 7, 16, 12, "$b" DropListBox 10, 17, 19, 58, BCh$, .b Text 30, 7, 16, 12, "$d" DropListBox 30, 17, 19, 58, DCh$, .d Text 50, 7, 16, 12, "$e" DropListBox 50, 17, 19, 58, ECh$, .e Text 71, 7, 16, 12, "$f" DropListBox 70, 17, 19, 58, FCh$, .f OkButton 10, 40, 40, 20 CancelButton 60, 40, 40, 20 End Dialog dim DChoice as Globe dialog DChoice b$=BArr(DChoice.b) d$=DArr(DChoice.d) e$=EArr(DChoice.e) f$=FArr(DChoice.f) Goto DoIt Proj: ReDim BArr(0 to 7) BArr(0)=" " : BArr(1)="c" : BArr(2)="d" : BArr(3)="f" : BArr(4)="o" BArr(5)="s" : BArr(6)="t" : BArr(7)="z" x=1 : BCh$=BArr(0) Do While x<=7 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 8) DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="h" DArr(5)="m" : DArr(6)="n" : DArr(7)="u" : DArr(' MacroName: Add007 ' MacroDescription: Insert primary or secondary 007 tags to a ' record for sound cassettes (including BOTs), ' CD's, VHS videotapes, and CD-ROMs ' Macro written by: Joel Hahn, Niles Public Library District sub main On Error Goto ErrHand dim CS as session set CS = CurrentSession Dim BArr() Dim DArr() Dim EArr() Dim FArr() Dim GArr() Dim HArr() Dim IArr() 'Dim JArr() Dim MArr() Dim NArr() Dim Format$ Format$ = "a"+Chr$(9)+"c"+Chr$(9)+"d"+Chr$(9)+"g"+Chr$(9) Format$ = Format$+"h"+Chr$(9)+"k"+Chr$(9)+"m"+Chr$(9) Format$ = Format$+"s"+Chr$(9)+"v" Begin Dialog Frmat 110, 70 Caption "007 Creation" Text 12, 7, 82, 16, "Select first character:" DropListBox 14, 17, 19, 58, Format$, .Type OkButton 55, 17, 40, 20 CancelButton 55, 40, 40, 20 End Dialog dim NChoice as Frmat dialog NChoice SelCase=NChoice.Type Select Case SelCase Case 0 a$="a" Goto Maps Case 1 a$="c" Goto Comp Case 2 a$="d" Goto Globe Case 3 a$="g" Goto Proj Case 4 a$="h" Goto Micro Case 5 a$="k" Goto NProj Case 6 a$="m" Goto Film Case 7 a$="s" Goto Sound Case 8 a$="v" Goto Video End Select Maps: ReDim BArr(0 to 9) BArr(0)=" " : BArr(1)="d" : BArr(2)="g" : BArr(3)="j" : BArr(4)="k" BArr(5)="q" : BArr(6)="r" : BArr(7)="s" : BArr(8)="y" : BArr(9)="z" x=1 : BCh$=BArr(0) Do While x<=9 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 2) DArr(0)=" " : DArr(1)="a" : DArr(2)="c" x=1 : DCh$=DArr(0) Do While x<=2 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 10) EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d" EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="p" : EArr(9)="u" EArr(10)="z" x=1 : ECh$=EArr(0) Do While x<=10 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 4) FArr(0)=" " : FArr(1)="f" : FArr(2)="n" : FArr(3)="u" : FArr(4)="z" x=1 : FCh$=FArr(0) Do While x<=4 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 5) GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="d" : GArr(4)="u" GArr(5)="z" x=1 : GCh$=GArr(0) Do While x<=5 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 4) HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="m" : HArr(4)="n" x=1 : HCh$=HArr(0) Do While x<=4 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop Begin Dialog Maps 140, 70 Caption "007 Creation" Text 10, 7, 16, 12, "$b" DropListBox 10, 17, 19, 58, BCh$, .b Text 30, 7, 16, 12, "$d" DropListBox 30, 17, 19, 58, DCh$, .d Text 50, 7, 16, 12, "$e" DropListBox 50, 17, 19, 58, ECh$, .e Text 71, 7, 16, 12, "$f" DropListBox 70, 17, 19, 58, FCh$, .f Text 90, 7, 16, 12, "$g" DropListBox 90, 17, 19, 58, GCh$, .g Text 110, 7, 16, 12, "$h" DropListBox 110, 17, 19, 58, HCh$, .h OkButton 10, 40, 40, 20 CancelButton 60, 40, 40, 20 End Dialog dim AChoice as Maps dialog AChoice b$=BArr(AChoice.b) d$=DArr(AChoice.d) e$=EArr(AChoice.e) f$=FArr(AChoice.f) g$=GArr(AChoice.g) h$=HArr(AChoice.h) Goto DoIt Comp: ReDim BArr(0 to 11) BArr(0)=" " : BArr(1)="a" : BArr(2)="b" : BArr(3)="c" : BArr(4)="f" BArr(5)="h" : BArr(6)="j" : BArr(7)="m" : BArr(8)="o" : BArr(9)="r" BArr(10)="u" : BArr(11)="z" x=1 : BCh$=BArr(0) Do While x<=11 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 7) DArr(0)=" " : DArr(1)="a" : DArr(2)="c" : DArr(3)="g" : DArr(4)="m" DArr(5)="n" : DArr(6)="u" : DArr(7)="z" x=1 : DCh$=DArr(0) Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 10) EArr(0)=" " : EArr(1)="a" : EArr(2)="e" : EArr(3)="g" : EArr(4)="i" EArr(5)="j" : EArr(6)="n" : EArr(7)="o" : EArr(8)="u" : EArr(9)="v" EArr(10)="z" x=1 : ECh$=EArr(0) Do While x<=10 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 2) FArr(0)=" " : FArr(1)="a" : FArr(2)="u" x=1 : FCh$=FArr(0) Do While x<=2 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop Begin Dialog Comp 100, 70 Caption "007 Creation" Text 10, 7, 16, 12, "$b" D8)="z" x=1 : DCh$=DArr(0) Do While x<=8 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 8) EArr(0)=" " : EArr(1)="d" : EArr(2)="e" : EArr(3)="j" : EArr(4)="k" EArr(5)="m" : EArr(6)="o" : EArr(7)="u" : EArr(8)="z" x=1 : ECh$=EArr(0) Do While x<=8 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 3) FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="u" x=1 : FCh$=FArr(0) Do While x<=3 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 11) GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d" GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="h" : GArr(9)="i" GArr(10)="u" : GArr(11)="z" x=1 : GCh$=GArr(0) Do While x<=11 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 16) HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="c" : HArr(4)="d" HArr(5)="e" : HArr(6)="f" : HArr(7)="g" : HArr(8)="j" : HArr(9)="k" HArr(10)="t" : HArr(11)="u" : HArr(12)="v" : HArr(13)="w" HArr(14)="x" : HArr(15)="y" : HArr(16)="z" x=1 : HCh$=HArr(0) Do While x<=16 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop ReDim IArr(0 to 9) IArr(0)=" " : IArr(1)="c" : IArr(2)="d" : IArr(3)="e" : IArr(4)="h" IArr(5)="j" : IArr(6)="k" : IArr(7)="m" : IArr(8)="u" : IArr(9)="z" x=1 : ICh$=IArr(0) Do While x<=9 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop Begin Dialog Proj 160, 70 Caption "007 Creation" Text 10, 7, 16, 12, "$b" DropListBox 10, 17, 19, 58, BCh$, .b Text 30, 7, 16, 12, "$d" DropListBox 30, 17, 19, 58, DCh$, .d Text 50, 7, 16, 12, "$e" DropListBox 50, 17, 19, 58, ECh$, .e Text 71, 7, 16, 12, "$f" DropListBox 70, 17, 19, 58, FCh$, .f Text 90, 7, 16, 12, "$g" DropListBox 90, 17, 19, 58, GCh$, .g Text 110, 7, 16, 12, "$h" DropListBox 110, 17, 19, 58, HCh$, .h Text 131, 7, 16, 12, "$i" DropListBox 130, 17, 19, 58, ICh$, .i OkButton 10, 40, 40, 20 CancelButton 60, 40, 40, 20 End Dialog dim GChoice as Proj dialog GChoice b$=BArr(GChoice.b) d$=DArr(GChoice.d) e$=EArr(GChoice.e) f$=FArr(GChoice.f) g$=GArr(GChoice.g) h$=HArr(GChoice.h) i$=IArr(GChoice.i) Goto DoIt Micro: ReDim BArr(0 to 8) BArr(0)=" " : BArr(1)="a" : BArr(2)="b" : BArr(3)="c" : BArr(4)="d" BArr(5)="e" : BArr(6)="f" : BArr(7)="g" : BArr(8)="z" x=1 : BCh$=BArr(0) Do While x<=8 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 4) DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="m" : DArr(4)="u" x=1 : DCh$=DArr(0) Do While x<=4 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 11) EArr(0)=" " : EArr(1)="a" : EArr(2)="d" : EArr(3)="f" : EArr(4)="g" EArr(5)="h" : EArr(6)="l" : EArr(7)="m" : EArr(8)="o" : EArr(9)="p" EArr(10)="u" : EArr(11)="z" x=1 : ECh$=EArr(0) Do While x<=11 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 7) FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="c" : FArr(4)="d" FArr(5)="e" : FArr(6)="u" : FArr(7)="v" x=1 : FCh$=FArr(0) Do While x<=7 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 5) GArr(0)=" " : GArr(1)="b" : GArr(2)="c" : GArr(3)="m" : GArr(4)="u" GArr(5)="z" x=1 : GCh$=GArr(0) Do While x<=5 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 7) HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="c" : HArr(4)="m" HArr(5)="n" : HArr(6)="u" : HArr(7)="z" x=1 : HCh$=HArr(0) Do While x<=7 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop ReDim IArr(0 to 5) IArr(0)=" " : IArr(1)="a" : IArr(2)="b" : IArr(3)="c" : IArr(4)="m" IArr(5)="u" x=1 : ICh$=IArr(0) Do While x<=5 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop 'ReDim JArr(0 to 11) 'JArr(0)=" " : JArr(1)="a" : JArr(2)="b" : JArr(3)="c" : JArr(4)="m" 'JArr(5)="u" : JArr(6)="a" : JArr(7)="b" : JArr(8)="c" : JArr(9)="m" 'JArr(10)="c" : JArr(11)="m" ' x=1 : ICh$=JArr(0) ' Do While x<=11 : ICh$=ICh$+Chr$(9)+JArr(x) : x=x+1 : Loop Begin Dialog Micro 160, 70 '180, 70 Caption "007 Creation" Text 10, 7, 16, 12, "$b" DropListBox 10, 17, 19, 58, BCh$, .b Text 30, 7, 16, 12, "$d" DropListBox 30, 17, 19, 58, DCh$, .d Text 50, 7, 16, 12, "$e" DropListBox 50, 17, 19, 58, ECh$, .e Text 71, 7, 16, 12, "$f" DropListBox 70, 17, 19, 58, FCh$, .f Text 90, 7, 16, 12, "$g" DropListBox 90, 17, 19, 58, GCh$, .g Text 110, 7, 16, 12, "$h" DropListBox 110, 17, 19, 58, HCh$, .h Text 131, 7, 16, 12, "$i" DropListBox 130, 17, 19, 58, ICh$, .i 'Text 151, 7, 16, 12, "$j" ' DropListBox 150, 17, 19, 58, ICh$, .j OkButton 10, 40, 40, 20 CancelButton 60, 40, 40, 20 End Dialog dim HChoice as Micro dialog HChoice b$=BArr(HChoice.b) d$=DArr(HChoice.d) e$=EArr(HChoice.e) f$=FArr(HChoice.f) g$=GArr(HChoice.g) h$=HArr(HChoice.h) i$=IArr(HChoice.i) 'j$=JArr(HChoice.j) Goto DoIt NProj: ReDim BArr(0 to 12) BArr(0)=" " : BArr(1)="c" : BArr(2)="d" : BArr(3)="e" : BArr(4)="f" BArr(5)="g" : BArr(6)="h" : BArr(7)="i" : BArr(8)="j" : BArr(9)="l" BArr(10)="n" : BArr(11)="o" : BArr(12)="z" x=1 : BCh$=BArr(0) Do While x<=12 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 7) DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="h" DArr(5)="m" : DArr(6)="u" : DArr(7)="z" x=1 : DCh$=DArr(0) Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 17) EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d" EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="h" : EArr(9)="m" EArr(10)="o" : EArr(11)="p" : EArr(12)="q" : EArr(13)="r" EArr(14)="s" : EArr(15)="t" : EArr(16)="u" : EArr(17)="z" x=1 : ECh$=EArr(0) Do While x<=17 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 17) FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="c" : FArr(4)="d" FArr(5)="e" : FArr(6)="f" : FArr(7)="g" : FArr(8)="h" : FArr(9)="m" FArr(10)="o" : FArr(11)="p" : FArr(12)="q" : FArr(13)="r" FArr(14)="s" : FArr(15)="t" : FArr(16)="u" : FArr(17)="z" x=1 : FCh$=FArr(0) Do While x<=17 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop Begin Dialog NProj 100, 70 Caption "007 Creation" Text 10, 7, 16, 12, "$b" DropListBox 10, 17, 19, 58, BCh$, .b Text 30, 7, 16, 12, "$d" DropListBox 30, 17, 19, 58, DCh$, .d Text 50, 7, 16, 12, "$e" DropListBox 50, 17, 19, 58, ECh$, .e Text 71, 7, 16, 12, "$f" DropListBox 70, 17, 19, 58, FCh$, .f OkButton 10, 40, 40, 20 CancelButton 52, 40, 40, 20 End Dialog dim KChoice as NProj dialog KChoice b$=BArr(KChoice.b) d$=DArr(KChoice.d) e$=EArr(KChoice.e) f$=FArr(KChoice.f) Goto DoIt Film: ReDim BArr(0 to 4) BArr(0)=" " : BArr(1)="c" : BArr(2)="f" : BArr(3)="r" : BArr(4)="a" x=1 : BCh$=BArr(0) Do While x<=4 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 7) DArr(0)=" " : DArr(1)="b" : DArr(2)="c" : DArr(3)="h" : DArr(4)="m" DArr(5)="n" : DArr(6)="u" : DArr(7)="z" x=1 : DCh$=DArr(0) Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 8) EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d" EArr(5)="e" : EArr(6)="f" : EArr(7)="u" : EArr(8)="z" x=1 : ECh$=EArr(0) Do While x<=8 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 3) FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="u" x=1 : FCh$=FArr(0) Do While x<=3 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 11) GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d" GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="h" : GArr(9)="i" GArr(10)="u" : GArr(11)="z" x=1 : GCh$=GArr(0) Do While x<=11 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 9) HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="c" : HArr(4)="d" HArr(5)="e" : HArr(6)="f" : HArr(7)="g" : HArr(8)="u" : HArr(9)="z" x=1 : HCh$=HArr(0) Do While x<=9 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop ReDim IArr(0 to 7) IArr(0)=" " : IArr(1)="k" : IArr(2)="m" : IArr(3)="n" : IArr(4)="q" IArr(5)="s" : IArr(6)="u" : IArr(7)="z" x=1 : ICh$=IArr(0) Do While x<=7 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop Begin Dialog Film 160, 70 Caption "007 Creation" Text 10, 7, 16, 12, "$b" DropListBox 10, 17, 19, 58, BCh$, .b Text 30, 7, 16, 12, "$d" DropListBox 30, 17, 19, 58, DCh$, .d Text 50, 7, 16, 12, "$e" DropListBox 50, 17, 19, 58, ECh$, .e Text 71, 7, 16, 12, "$f" DropListBox 70, 17, 19, 58, FCh$, .f Text 90, 7, 16, 12, "$g" DropListBox 90, 17, 19, 58, GCh$, .g Text 110, 7, 16, 12, "$h" DropListBox 110, 17, 19, 58, HCh$, .h Text 131, 7, 16, 12, "$i" DropListBox 130, 17, 19, 58, ICh$, .i OkButton 10, 40, 40, 20 CancelButton 60, 40, 40, 20 End Dialog dim MChoice as Film dialog MChoice b$=BArr(MChoice.b) d$=DArr(MChoice.d) e$=EArr(MChoice.e) f$=FArr(MChoice.f) g$=GArr(MChoice.g) h$=HArr(MChoice.h) i$=IArr(MChoice.i) Goto DoIt Sound: ReDim BArr(0 to 9) BArr(0)=" " : BArr(1)="d" : BArr(2)="e" : BArr(3)="g" : BArr(4)="i" BArr(5)="q" : BArr(6)="s" : BArr(7)="t" : BArr(8)="w" : BArr(9)="z" x=1 : BCh$=BArr(0) Do While x<=9 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 16) DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="d" DArr(5)="e" : DArr(6)="f" : DArr(7)="h" : DArr(8)="i" : DArr(9)="k" DArr(10)="l" : DArr(11)="m" : DArr(12)="o" : DArr(13)="p" DArr(14)="r" : DArr(15)="u" : DArr(16)="z" x=1 : DCh$=DArr(0) Do While x<=16 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 5) EArr(0)=" " : EArr(1)="m" : EArr(2)="q" : EArr(3)="s" : EArr(4)="u" EArr(5)="z" x=1 : ECh$=EArr(0) Do While x<=5 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 5) FArr(0)=" " : FArr(1)="m" : FArr(2)="n" : FArr(3)="s" : FArr(4)="u" FArr(5)="z" x=1 : FCh$=FArr(0) Do While x<=5 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 13) GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d" GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="j" : GArr(9)="o" GArr(10)="s" : GArr(11)="n" : GArr(12)="u" : GArr(13)="z" x=1 : GCh$=GArr(0) Do While x<=13 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 7) HArr(0)=" " : HArr(1)="l" : HArr(2)="m" : HArr(3)="n" : HArr(4)="o" HArr(5)="p" : HArr(6)="u" : HArr(7)="z" x=1 : HCh$=HArr(0) Do While x<=7 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop ReDim IArr(0 to 9) IArr(0)=" " : IArr(1)="a" : IArr(2)="b" : IArr(3)="c" : IArr(4)="d" IArr(5)="e" : IArr(6)="f" : IArr(7)="n" : IArr(8)="u" : IArr(9)="z" x=1 : ICh$=IArr(0) Do While x<=9 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop ReDim MArr(0 to 11) MArr(0)=" " : MArr(1)="a" : MArr(2)="b" : MArr(3)="c" : MArr(4)="d" MArr(5)="e" : MArr(6)="f" : MArr(7)="g" : MArr(8)="h" : MArr(9)="n" MArr(10)="u" : MArr(11)="z" x=1 : MCh$=MArr(0) Do While x<=11 : MCh$=MCh$+Chr$(9)+MArr(x) : x=x+1 : Loop ReDim NArr(0 to 7) NArr(0)=" " : NArr(1)="a" : NArr(2)="b" : NArr(3)="c" : NArr(4)="d" NArr(5)="e" : NArr(6)="u" : NArr(7)="z" x=1 : NCh$=NArr(0) Do While x<=7 : NCh$=NCh$+Chr$(9)+NArr(x) : x=x+1 : Loop Begin Dialog Sound 200, 70 Caption "007 Creation" Text 10, 7, 16, 12, "$b" DropListBox 10, 17, 19, 58, BCh$, .b Text 30, 7, 16, 12, "$d" DropListBox 30, 17, 19, 58, DCh$, .d Text 50, 7, 16, 12, "$e" DropListBox 50, 17, 19, 58, ECh$, .e Text 71, 7, 16, 12, "$f" DropListBox 70, 17, 19, 58, FCh$, .f Text 90, 7, 16, 12, "$g" DropListBox 90, 17, 19, 58, GCh$, .g Text 110, 7, 16, 12, "$h" DropListBox 110, 17, 19, 58, HCh$, .h Text 131, 7, 16, 12, "$i" DropListBox 130, 17, 19, 58, ICh$, .i Text 149, 7, 16, 12, "$m" DropListBox 150, 17, 19, 58, MCh$, .m Text 170, 7, 16, 12, "$n" DropListBox 170, 17, 19, 58, NCh$, .n OkButton 10, 40, 40, 20 CancelButton 60, 40, 40, 20 End Dialog dim SChoice as Sound dialog SChoice b$=BArr(SChoice.b) d$=DArr(SChoice.d) e$=EArr(SChoice.e) f$=FArr(SChoice.f) g$=GArr(SChoice.g) h$=HArr(SChoice.h) i$=IArr(SChoice.i) m$=MArr(SChoice.m) n$=NArr(SChoice.n) Goto DoIt Video: ReDim BArr(0 to 5) BArr(0)=" " : BArr(1)="c" : BArr(2)="d" : BArr(3)="f" : BArr(4)="r" BArr(5)="z" x=1 : BCh$=BArr(0) Do While x<=5 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 7) DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="m" DArr(5)="n" : DArr(6)="u" : DArr(7)="z" x=1 : DCh$=DArr(0) Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 18) EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d" EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="h" : EArr(9)="i" EArr(10)="j" : EArr(11)="k" : EArr(12)="m" : EArr(13)="n" EArr(14)="o" : EArr(15)="p" : EArr(16)="q" : EArr(17)="u" EArr(18)="z" x=1 : ECh$=EArr(0) Do While x<=18 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 3) FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="u" x=1 : FCh$=FArr(0) Do While x<=3 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 11) GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d" GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="h" : GArr(9)="i" GArr(10)="u" : GArr(11)="z" x=1 : GCh$=GArr(0) Do While x<=11 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 8) HArr(0)=" " : HArr(1)="a" : HArr(2)="m" : HArr(3)="o" : HArr(4)="p" HArr(5)="q" : HArr(6)="r" : HArr(7)="u" : HArr(8)="z" x=1 : HCh$=HArr(0) Do While x<=8 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop ReDim IArr(0 to 7) IArr(0)=" " : IArr(1)="k" : IArr(2)="m" : IArr(3)="n" : IArr(4)="q" IArr(5)="s" : IArr(6)="u" : IArr(7)="z" x=1 : ICh$=IArr(0) Do While x<=7 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop Begin Dialog Video 160, 70 Caption "007 Creation" Text 10, 7, 16, 12, "$b" DropListBox 10, 17, 19, 58, BCh$, .b Text 30, 7, 16, 12, "$d" DropListBox 30, 17, 19, 58, DCh$, .d Text 50, 7, 16, 12, "$e" DropListBox 50, 17, 19, 58, ECh$, .e Text 71, 7, 16, 12, "$f" DropListBox 70, 17, 19, 58, FCh$, .f Text 90, 7, 16, 12, "$g" DropListBox 90, 17, 19, 58, GCh$, .g Text 110, 7, 16, 12, "$h" DropListBox 110, 17, 19, 58, HCh$, .h Text 131, 7, 16, 12, "$i" DropListBox 130, 17, 19, 58, ICh$, .i OkButton 10, 40, 40, 20 CancelButton 60, 40, 40, 20 End Dialog dim VChoice as Video dialog VChoice b$=BArr(VChoice.b) d$=DArr(VChoice.d) e$=EArr(VChoice.e) f$=FArr(VChoice.f) g$=GArr(VChoice.g) h$=HArr(VChoice.h) i$=IArr(VChoice.i) Goto DoIt Doit: CS.PutText "HOME", 1, 1 RunMacro "PRSMUTIL!SendCommand" Row%=25 Col%=1 If CS.Find("007", Row%, Col%, , 1)=FALSE Then NewRow=2.5 Else Row%=25 Col%=1 CS.Find "007", Row%, Col%, , 1 CS.GetTextInRegion RowNum$, Row%, Col%-5, Row%, Col%-1 RowNum$=RTrim(LTrim(RowNum$)) NewRow=Val(RowNum$)+0.5 End If Seven$=CHR$(220)+" "+NewRow+" 007 "+a$ Seven$=Seven$+" "+Chr$(223)+"b "+b$ Seven$=Seven$+" "+Chr$(223)+"d "+d$ If e$<>" " Then Seven$=Seven$+" "+Chr$(223)+"e "+e$ If f$<>" " Then Seven$=Seven$+" "+Chr$(223)+"f"+f$ If (a$=h and f$<>" ") Then Seven$=Seven$+"---" Seven$=Seven$+" " If g$<>" " Then Seven$=Seven$+" "+Chr$(223)+"g "+g$ If h$<>" " Then Seven$=Seven$+" "+Chr$(223)+"h "+h$ If i$<>" " Then Seven$=Seven$+" "+Chr$(223)+"i "+i$ 'If j$<>" " Then Seven$=Seven$+" "+Chr$(223)+"j "+j$ If m$<>" " Then Seven$=Seven$+" "+Chr$(223)+"m "+m$ If n$<>" " Then Seven$=Seven$+" "+Chr$(223)+"n "+n$ Seven$=Seven$+" "+Chr$(221) CS.PutText Seven$, 1, 1 RunMacro "PRSMUTIL!SendCommand" RunMacro "PRSMUTIL!Reformat" Goto Done ErrHand: If Err=102 Then Resume Done Else MsgBox "Err(" & Err & ")" Resume Done End If Done: end sub ĄµļȜYü^•šµ‘OYČ›šišöNü^饵nļȜYü^’š N^YŸ’ZŠ € €ŒF ’j[Šœ € € € € 5 ) €j\Š’›˜” 5 ‘ €j]Š˜›¢¤: x‘j^Š’Ƙ” 5 – €j_Š˜Æ¢¤: ˆ“j`Š’2˜” 5 › €jaŠ˜2¢¤: ˜•jbŠ’G˜” 5   €jcŠ˜F¢¤: ؗjdŠ’Z˜” 5 „ €jeŠ˜Z¢¤: ø™jfŠ’n˜” 5 Ŗ €jgŠ˜n¢¤: țjhŠ™›((„ €jiŠš<((„ €jj5 ÆŠjlŠ~jm~pµļŲœn€€µļąœo‚µļčœp„ µļšœq†°µļųœrˆĄµļœs[v‘œp¶w5 aöN‘pµw5 öN’pµw5 yöN“pµw5 öN”pµw5 öN•pµx5 öN–pµx5 eöN—pµx5 öN˜pµx5 ĻöN™pµx5 möNšpµy5 ‰öN›pµy5 uöNœpµz’š^z‘pµļxœ{ü^œšµ‘L{x›šišöNü^épµnļxœ{ü^’š N^{¢’|‘˜€¶}5 aöN‘€µ}5 öN’€µ}5 öN“€µ}5 öN”€µ}5 öN•€µ~5 öN–€µ~5 ‰öN—€µ~5 uöN˜€µ’š^‘€µļˆœ€ü^˜šµ‘O€ˆ›šišöNü^逵nļˆœ€ü^’š N^€Ÿ’‘›¶‚5 aöN‘µ‚5 öN’µ‚5 }öN“µ‚5 öN”µ‚5 ÓöN•µƒ5 eöN–µƒ5 öN—µƒ5 ĻöN˜µƒ5 ‰öN™µƒ5 %öNšµ„5 uöN›µ…’š^…‘µļ˜œ†ü^›šµ‘O†˜›šišöNü^鐵nļ˜œ†ü^’š N^†Ÿ’‡‘“ ¶ˆ5 aöN‘ µˆ5 öN’ µˆ5 ‰öN“ µ‰’š^‰‘ µļ؜Šü^“šµķž.QQßå$ tŹs>y#ByĄacdghkmsv 007 CreationSelect first character: _Type__ jqryzbefpun$b$d$e$f$g$h_b_d_e_f_g_h__oi_b_d_e_f__twx$i!_b_d_e_f_g_h_i__l$m$n)_b_d_e_f_g_h_i_m_n__HOMEĄČPRSMUTIL!SendCommand ĄČ007ĄČĄĄĄČ 007 b d e ---g h i m n PRSMUTIL!ReformatErr()–œm.§#”’’’’JW F (08@HPX"` ,.hDpN^xnD€ˆD˜D ØD°øDĄČ"Š ~Ųąčšų" Š" ’D  "( š0"8 Ø"@ ¶"H ¾DPXD`h"p Ģx€"ˆ Ž€ģ€īš 0˜CS___________Format_NChoiceSelCaseaBArr_xBCh_DArrDChEArrEChFArrFChGArrGChHArrHCh_AChoicebdefgh_CChoice_DChoiceIArrICh_GChoicei_HChoice_KChoice_MChoiceMArrMChNArrNCh_SChoicemn_VChoiceRowColNewRowRowNum____Sevenmain  €5F Fm„K+Passport—4ź  )m~u2\[Ų5 ›šiš5 š›šiš 5 š(0›šiš85$š@H›šišPXœX5 š›šiš5š ›šiš(5š08›šiš@XœX5 !š›šiš5%šXœ` € €nF ’j`œ € € € € 5 ) €j`’˜R” 5 8 €j`˜Ÿ¢¤: X‘j`™7¢(„ €j`š7((„ €j5 R`j`,j,š.ü.> … ü>‘šé‘!5 hœ"`#Y#ü>’šé‘$5 hœ%Į &-&ü>“šé‘'5 hœ(Ā))ü>”šé‘*5 hœ+ī,Õ,ü>•šé‘-5 hœ.Ė$/©/ü>–šé‘05 hœ1Ų02}2ü>—šé‘35 hœ4<:5Q5ü>˜šé‘65 !hœ7yF8%8ü>™šé‘95 %hœ:ĪW>‘šp¶?5 aöN‘pµ?5 öN’pµ?5 öN“pµ?5 eöN”pµ?5 öN•pµ@5 iöN–pµ@5 möN—pµ@5 !öN˜pµ@5 qöN™pµ@5 uöNšpµA’š^A‘pµļxœBü^ššµ‘LBx›šišöNü^épµnļxœBü^’š N^B¢’C‘“€¶D5 aöN‘€µD5 öN’€µD5 öN“€µE’š^E‘€µļˆœFü^“šµ‘OFˆ›šišöNü^逵nļˆœFü^’š N^FŸ’G‘›¶H5 aöN‘µH5 öN’µH5 yöN“µH5 öN”µH5 öN•µI5 }öN–µI5 öN—µI5 öN˜µI5 …öN™µI5 ‰öNšµJ5 uöN›µK’š^K‘µļ˜œLü^›šµ‘OL˜›šišöNü^鐵nļ˜œLü^’š N^LŸ’M‘• ¶N5 aöN‘ µN5 öN’ µN5 öN“ µN5 ‰öN” µN5 uöN• µO’š^O‘ µļ؜Pü^•šµ‘OPØ›šišöNü^é µnļ؜Pü^’š N^PŸ’Q‘–°¶R5 aöN‘°µR5 öN’°µR5 yöN“°µR5 öN”°µR5 ‰öN•°µS5 uöN–°µT’š^T‘°µļøœUü^–šµ‘OUø›šišöNü^é°µnļøœUü^’š N^UŸ’V‘•Ą¶W5 aöN‘ĄµW5 öN’ĄµW5 yöN“ĄµW5 öN”ĄµW5 öN•ĄµX’š^X‘‘OŠØ›šišöNü^é µnļ؜Šü^’š N^ŠŸ’‹ € €dF ’jŒœ € € € € 5 ) €j’›˜” 5 ‘ €jŽ˜›¢¤: x‘j’Ƙ” 5 – €j˜Æ¢¤: ˆ“j‘’2˜” 5 › €j’˜2¢¤: ˜•j“’G˜” 5   €j”˜F¢¤: ؗj•™›((„ €j–š4((„ €j—5 ×j™ŠjšŠpµļŲœ›Œ€µļąœœŽµļčœ µļšœžbT”‘•p¶¢5 aöN‘pµ¢5 öN’pµ¢5 yöN“pµ¢5 öN”pµ¢5 uöN•pµ£’š^£‘pµļxœ¤ü^•šµ‘L¤x›šišöNü^épµnļxœ¤ü^’š N^¤¢’„‘“€¶¦5 aöN‘€µ¦5 öN’€µ¦5 öN“€µ§’š^§‘€µļˆœØü^“šµ‘O؈›šišöNü^逵nļˆœØü^’š N^؍Ÿ’©‘›¶Ŗ5 aöN‘µŖ5 öN’µŖ5 yöN“µŖ5 öN”µŖ5 öN•µ«5 }öN–µ«5 öN—µ«5 öN˜µ«5 …öN™µ«5 ‰öNšµ¬5 uöN›µ­’š^­‘µļ˜œ®ü^›šµ‘O®˜›šišöNü^鐵nļ˜œ®ü^’š N^®Ÿ’Ƒ• ¶°5 aöN‘ µ°5 öN’ µ°5 öN“ µ°5 ‰öN” µ°5 uöN• µ±’š^±‘ µļ؜²ü^•šµ‘O²Ø›šišöNü^é µnļ؜²ü^’š N^²Ÿ’³ € €dF ’j“œ € € € € 5 ) €jµ’›˜” 5 ‘ €j¶˜›¢¤: x‘j·’Ƙ” 5 – €jø˜Æ¢¤: ˆ“j¹’2˜” 5 › €jŗ˜2¢¤: ˜•j»’G˜” 5   €j¼˜F¢¤: ؗj½™›((„ €j¾š<((„ €jæ5 ×jĮ’jĀ’pµļŲœĆ”€µļąœÄ–µļčœÅ˜ µļšœʍ Nɑ˜p¶Ź5 aöN‘pµŹ5 öN’pµŹ5 öN“pµŹ5 öN”pµŹ5 ĻöN•pµĖ5 !öN–pµĖ5 ļöN—pµĖ5 uöN˜pµĢ’š^Ģ‘pµļxœĶü^˜šµ‘LĶx›šišöNü^épµnļxœĶü^’š N^Ķ¢’Ī‘™€¶Ļ5 aöN‘€µĻ5 öN’€µĻ5 yöN“€µĻ5 öN”€µĻ5 öN•€µŠ5 öN–€µŠ5 öN—€µŠ5 ‰öN˜€µŠ5 uöN™€µђš^ё€µļˆœŅü^™šµ‘OŅˆ›šišöNü^逵nļˆœŅü^’š N^ŅŸ’ӑ™¶Ō5 aöN‘µŌ5 öN’µŌ5 }öN“µŌ5 eöN”µŌ5 öN•µÕ5 öN–µÕ5 ĻöN—µÕ5 ‰öN˜µÕ5 uöN™µ֒š^֑µļ˜œ×ü^™šµ‘Oט›šišöNü^鐵nļ˜œ×ü^’š N^׍Ÿ’Ų‘” ¶Ł5 aöN‘ µŁ5 öN’ µŁ5 yöN“ µŁ5 ‰öN” µŚ’š^Ś‘ µļ؜Ūü^”šµ‘OŪØ›šišöNü^é µnļ؜Ūü^’š N^ŪŸ’ܑœ°¶Ż5 aöN‘°µŻ5 öN’°µŻ5 yöN“°µŻ5 öN”°µŻ5 öN•°µŽ5 }öN–°µŽ5 öN—°µŽ5 öN˜°µŽ5 öN™°µŽ5 ÓöNš°µß5 ‰öN›°µß5 uöNœ°µą’š^ą‘°µļøœįü^œšµ‘Oįø›šišöNü^é°µnļøœįü^’š N^įŸ’ā‘”Ą¶ć5 aöN‘Ąµć5 öN’Ąµć5 yöN“Ąµć5 öN”Ąµć5 öN•Ąµä5 }öN–Ąµä5 öN—Ąµä5 öN˜Ąµä5 eöN™Ąµä5 öNšĄµå5 ļöN›Ąµå5 ‰öNœĄµå5 %öNĄµå5 óöNžĄµę5 ÷öNŸĄµę5 qöN Ąµę5 uöN”Ąµē’š^ē‘ĄµļȜčü^”šµ‘OčČ›šišöNü^饵nļȜčü^’š N^荟’é‘š¶ź5 aöN‘µź5 öN’µź5 öN“µź5 }öN”µź5 öN•µė5 eöN–µė5 öN—µė5 öN˜µė5 ‰öN™µė5 uöNšµģ’š^ģ‘µļ œķü^ššµ‘Oķ ›šišöNü^éµnļ œķü^’š N^ķŸ’ī( € € F ’jļ(œ € € € € 5 ) €jš(’›˜” 5 ‘ €jń(˜›¢¤: x‘jņ(’Ƙ” 5 – €jó(˜Æ¢¤: ˆ“jō(’2˜” 5 › €jõ(˜2¢¤: ˜•jö(’G˜” 5   €j÷(˜F¢¤: ؗjų(’Z˜” 5 „ €jł(˜Z¢¤: ø™jś(’n˜” 5 Ŗ €jū(˜n¢¤: țjü(’ƒ˜” 5 ū €jż(˜‚¢¤:  jž(™›((„ €j’(š<((„ €j6 (j(šjšpµļŲœœ€µļąœžµļčœ  µļšœ¢°µļųœ¤Ąµļœ ¦µļ0œ A ‘™p¶5 aöN‘pµ5 öN’pµ5 yöN“pµ5 öN”pµ5 öN•pµ5 }öN–pµ5 öN—pµ5 öN˜pµ5 uöN™pµ’š^‘pµļxœü^™šµ‘Ox›šišöNü^épµnļxœü^’š N^ž’‘•€¶5 aöN‘€µ5 öN’€µ5 yöN“€µ5 öN”€µ5 ‰öN•€µ’š^‘€µļˆœü^•šµ‘Rˆ›šišöNü^逵nļˆœü^’š N^›’‘œ¶5 aöN‘µ5 öN’µ5 öN“µ5 öN”µ5 öN•µ5 öN–µ6 $öN—µ5 öN˜µ5 ĻöN™µ5 …öNšµ5 ‰öN›µ5 uöNœµ’š^‘µļ˜œü^œšµ‘R˜›šišöNü^鐵nļ˜œü^’š N^›’‘˜ ¶5 aöN‘ µ5 öN’ µ5 yöN“ µ5 öN” µ5 öN• µ5 }öN– µ5 ‰öN— µ5 %öN˜ µ’š^‘ µļ؜ ü^˜šµ‘R Ø›šišöNü^é µnļ؜ ü^’š N^ ›’!‘–°¶"5 aöN‘°µ"5 yöN’°µ"5 öN“°µ"5 öN”°µ"5 ‰öN•°µ#5 uöN–°µ$’š^$‘°µļøœ%ü^–šµ‘R%ø›šišöNü^é°µnļøœ%ü^’š N^%›’&‘˜Ą¶'5 aöN‘Ąµ'5 öN’Ąµ'5 yöN“Ąµ'5 öN”Ąµ'5 öN•Ąµ(5 öN–Ąµ(5 ‰öN—Ąµ(5 uöN˜Ąµ)’š^)‘ĄµļȜ*ü^˜šµ‘R*Č›šišöNü^饵nļȜ*ü^’š N^*›’+‘–¶,5 aöN‘µ,5 öN’µ,5 yöN“µ,5 öN”µ,5 öN•µ-5 ‰öN–µ.’š^.‘µļ œ/ü^–šµ‘R/ ›šišöNü^éµnļ œ/ü^’š N^/›’68 € € F ’j78œ € € € € 5 ) €j88’›˜” 5 ‘ €j98˜›¢¤: x‘j:8’Ƙ” 5 – €j;8˜Æ¢¤: ˆ“j<8’2˜” 5 › €j=8˜2¢¤: ˜•j>8’G˜” 5   €j?8˜F¢¤: ؗj@8’Z˜” 5 „ €jA8˜Z¢¤: ø™jB8’n˜” 5 Ŗ €jC8˜n¢¤: țjD8’ƒ˜” 5 ū €jE8˜‚¢¤:  jH8™›((„ €jI8š<((„ €jJ6 8jL8ØjMØpµļŲœNŖ€µļąœO¬µļčœP® µļšœQ°°µļųœR²ĄµļœS“µļ0œUČ4X‘p¶Y5 aöN‘pµY5 öN’pµY5 öN“pµY5 }öN”pµY5 öN•pµZ5 öN–pµZ5 öN—pµZ5 ÓöN˜pµZ5 eöN™pµZ6 $öNšpµ[5 öN›pµ[5 ĻöNœpµ[5 uöNpµ\’š^\‘pµļxœ]ü^šµ‘O]x›šišöNü^épµnļxœ]ü^’š N^]ž’^‘˜€¶_5 aöN‘€µ_5 öN’€µ_5 yöN“€µ_5 öN”€µ_5 öN•€µ`5 öN–€µ`5 ‰öN—€µ`5 uöN˜€µa’š^a‘€µļˆœbü^˜šµ‘Rbˆ›šišöNü^逵nļˆœbü^’š N^b›’c‘¢¶d5 aöN‘µd5 öN’µd5 yöN“µd5 öN”µd5 öN•µe5 }öN–µe5 öN—µe5 öN˜µe5 öN™µe5 öNšµf5 ĻöN›µf5 …öNœµf5 iöNµf5 möNžµg5 !öNŸµg5 ļöN µg5 ‰öN”µg5 uöN¢µh’š^h‘µļ˜œiü^¢šµ‘Ri˜›šišöNü^鐵nļ˜œiü^’š N^i›’j‘¢ ¶k5 aöN‘ µk5 öN’ µk5 yöN“ µk5 öN” µk5 öN• µl5 }öN– µl5 öN— µl5 öN˜ µl5 öN™ µl5 öNš µm5 ĻöN› µm5 …öNœ µm5 iöN µm5 möNž µn5 !öNŸ µn5 ļöN  µn5 ‰öN” µn5 uöN¢ µo’š^o‘ µļ؜pü^¢šµ‘RpØ›šišöNü^é µnļ؜pü^’š N^p›’q@ € €dF ’jr@œ € € € € 5 ) €js@’›˜” 5 ‘ €jt@˜›¢¤: x‘ju@’Ƙ” 5 – €jv@˜Æ¢¤: ˆ“jw@’2˜” 5 › €jx@˜2¢¤: ˜•jy@’G˜” 5   €jz@˜F¢¤: ؗj{@™›((„ €j|@š4((„ €j}5 ×@j@¶j€¶pµļŲœø€µļąœ‚ŗµļčœƒ¼ µļšœ„8+‡‘•p¶ˆ5 aöN‘pµˆ5 öN’pµˆ5 öN“pµˆ5 möN”pµˆ5 öN•pµ‰’š^‰‘pµļxœŠü^•šµ‘OŠx›šišöNü^épµnļxœŠü^’š N^Šž’‹‘˜€¶Œ5 aöN‘€µŒ5 yöN’€µŒ5 öN“€µŒ5 öN”€µŒ5 öN•€µ5 öN–€µ5 ‰öN—€µ5 uöN˜€µŽ’š^Ž‘€µļˆœü^˜šµ‘Rˆ›šišöNü^逵nļˆœü^’š N^›’‘™¶‘5 aöN‘µ‘5 öN’µ‘5 yöN“µ‘5 öN”µ‘5 öN•µ’5 }öN–µ’5 öN—µ’5 ‰öN˜µ’5 uöN™µ“’š^“‘µļ˜œ”ü^™šµ‘R”˜›šišöNü^鐵nļ˜œ”ü^’š N^”›’•‘” ¶–5 aöN‘ µ–5 öN’ µ–5 yöN“ µ–5 ‰öN” µ—’š^—‘ µļ؜˜ü^”šµ‘R˜Ø›šišöNü^é µnļ؜˜ü^’š N^˜›’™‘œ°¶š5 aöN‘°µš5 öN’°µš5 yöN“°µš5 öN”°µš5 öN•°µ›5 }öN–°µ›5 öN—°µ›5 öN˜°µ›5 öN™°µ›5 ÓöNš°µœ5 ‰öN›°µœ5 uöNœ°µ’š^‘°µļøœžü^œšµ‘Ržø›šišöNü^é°µnļøœžü^’š N^ž›’Ÿ‘šĄ¶ 5 aöN‘Ąµ 5 öN’Ąµ 5 yöN“Ąµ 5 öN”Ąµ 5 öN•Ąµ”5 }öN–Ąµ”5 öN—Ąµ”5 öN˜Ąµ”5 ‰öN™Ąµ”5 uöNšĄµ¢’š^¢‘ĄµļȜ£ü^ššµ‘R£Č›šišöNü^饵nļȜ£ü^’š N^£›’¤‘˜¶„5 aöN‘µ„5 öN’µ„5 öN“µ„5 öN”µ„5 iöN•µ¦5 !öN–µ¦5 ‰öN—µ¦5 uöN˜µ§’š^§‘µļ œØü^˜šµ‘RØ ›šišöNü^éµnļ œØü^’š N^؍›’©H € € F ’jŖHœ € € € € 5 ) €j«H’›˜” 5 ‘ €j¬H˜›¢¤: x‘j­H’Ƙ” 5 – €j®H˜Æ¢¤: ˆ“jÆH’2˜” 5 › €j°H˜2¢¤: ˜•j±H’G˜” 5   €j²H˜F¢¤: ؗj³H’Z˜” 5 „ €j“H˜Z¢¤: ø™jµH’n˜” 5 Ŗ €j¶H˜n¢¤: țj·H’ƒ˜” 5 ū €jøH˜‚¢¤:  j¹H™›((„ €jŗHš<((„ €j»6 Hj½H¾j¾¾pµļŲœæĄ€µļąœĄĀµļčœĮÄ µļšœĀĘ°µļųœĆČĄµļœÄŹµļ0œÅĻČ‘šp¶É5 aöN‘pµÉ5 öN’pµÉ5 }öN“pµÉ5 öN”pµÉ5 ÓöN•pµŹ5 iöN–pµŹ5 !öN—pµŹ5 ļöN˜pµŹ5 óöN™pµŹ5 uöNšpµĖ’š^Ė‘pµļxœĢü^ššµ‘OĢx›šišöNü^épµnļxœĢü^’š N^Ģž’Ķ‘”€¶Ī5 aöN‘€µĪ5 öN’€µĪ5 yöN“€µĪ5 öN”€µĪ5 öN•€µĻ5 }öN–€µĻ5 öN—€µĻ5 öN˜€µĻ5 ÓöN™€µĻ5 öNš€µŠ6 $öN›€µŠ5 öNœ€µŠ5 ĻöN€µŠ5 …öNž€µŃ5 möNŸ€µŃ5 ‰öN €µŃ5 uöN”€µŅ’š^Ņ‘€µļˆœÓü^”šµ‘RÓˆ›šišöNü^逵nļˆœÓü^’š N^Ӎ›’Ō‘–¶Õ5 aöN‘µÕ5 öN’µÕ5 iöN“µÕ5 !öN”µÕ5 ‰öN•µÖ5 uöN–µ×’š^בµļ˜œŲü^–šµ‘RŲ˜›šišöNü^鐵nļ˜œŲü^’š N^Ų›’Ł‘– ¶Ś5 aöN‘ µŚ5 öN’ µŚ5 öN“ µŚ5 !öN” µŚ5 ‰öN• µŪ5 uöN– µÜ’š^Ü‘ µļ؜Żü^–šµ‘RŻØ›šišöNü^é µnļ؜Żü^’š N^Ż›’Ž‘ž°¶ß5 aöN‘°µß5 öN’°µß5 yöN“°µß5 öN”°µß5 öN•°µą5 }öN–°µą5 öN—°µą5 öN˜°µą5 eöN™°µą5 ĻöNš°µį5 !öN›°µį5 öNœ°µį5 ‰öN°µį5 uöNž°µā’š^ā‘°µļøœćü^žšµ‘Rćø›šišöNü^é°µnļøœćü^’š N^ć›’䑘Ą¶å5 aöN‘Ąµå6 $öN’Ąµå5 öN“Ąµå5 öN”Ąµå5 ĻöN•Ąµę5 …öN–Ąµę5 ‰öN—Ąµę5 uöN˜Ąµē’š^ē‘ĄµļȜčü^˜šµ‘RčČ›šišöNü^饵nļȜčü^’š N^č›’é‘š¶ź5 aöN‘µź5 öN’µź5 yöN“µź5 öN”µź5 öN•µė5 }öN–µė5 öN—µė5 öN˜µė5 ‰öN™µė5 uöNšµģ’š^ģ‘µļ œķü^ššµ‘Rķ ›šišöNü^éµnļ œķü^’š N^ķ›’ī‘œP¶ļ5 aöN‘Pµļ5 öN’Pµļ5 yöN“Pµļ5 öN”Pµļ5 öN•Pµš5 }öN–Pµš5 öN—Pµš5 öN˜Pµš5 öN™Pµš5 öNšPµń5 ‰öN›Pµń5 uöNœPµņ’š^ņ‘PµļXœóü^œšµ‘RóX›šišöNü^éPµnļXœóü^’š N^󍛒ō‘˜`¶õ5 aöN‘`µõ5 öN’`µõ5 yöN“`µõ5 öN”`µõ5 öN•`µö5 }öN–`µö5 ‰öN—`µö5 uöN˜`µ÷’š^÷‘`µļhœųü^˜šµ‘Rųh›šišöNü^é`µnļhœųü^’š N^ų›’łp € €ČF ’jśpœ € € € € 5 ) €jūp’›˜” 5 ‘ €jüp˜›¢¤: x‘jżp’Ƙ” 5 – €jžp˜Æ¢¤: ˆ“j’p’2˜” 5 › €jp˜2¢¤: ˜•jp’G˜” 5   €jp˜F¢¤: ؗjp’Z˜” 5 „ €jp˜Z¢¤: ø™jp’n˜” 5 Ŗ €jp˜n¢¤: țjp’ƒ˜” 5 ū €jp˜‚¢¤:  j p’•˜” 6 ( €j p˜–¢¤: XŸj p’Ŗ˜” 6 - €j p˜Ŗ¢¤: h”j p™›((„ €jpš<((„ €j6 2pjpĢjĢpµļŲœĪ€µļąœŠµļčœŅ µļšœŌ°µļųœÖĄµļœŲµļ0œŚPµļxœÜ`µļ€œN ‘–p¶5 aöN‘pµ5 öN’pµ5 öN“pµ5 öN”pµ5 möN•pµ 5 uöN–pµ!’š^!‘pµļxœ"ü^–šµ‘O"x›šišöNü^épµnļxœ"ü^’š N^"ž’#‘˜€¶$5 aöN‘€µ$5 öN’€µ$5 yöN“€µ$5 öN”€µ$5 öN•€µ%5 öN–€µ%5 ‰öN—€µ%5 uöN˜€µ&’š^&‘€µļˆœ'ü^˜šµ‘R'ˆ›šišöNü^逵nļˆœ'ü^’š N^'›’(‘£¶)5 aöN‘µ)5 öN’µ)5 yöN“µ)5 öN”µ)5 öN•µ*5 }öN–µ*5 öN—µ*5 öN˜µ*5 öN™µ*5 ÓöNšµ+5 eöN›µ+5 öNœµ+5 öNµ+5 öNžµ,5 ĻöNŸµ,5 …öN µ,5 iöN”µ,5 ‰öN¢µ-5 uöN£µ.’š^.‘µļ˜œ/ü^£šµ‘R/˜›šišöNü^鐵nļ˜œ/ü^’š N^/›’0‘” ¶15 aöN‘ µ15 öN’ µ15 yöN“ µ15 ‰öN” µ2’š^2‘ µļ؜3ü^”šµ‘R3Ø›šišöNü^é µnļ؜3ü^’š N^3›’4‘œ°¶55 aöN‘°µ55 öN’°µ55 yöN“°µ55 öN”°µ55 öN•°µ65 }öN–°µ65 öN—°µ65 öN˜°µ65 öN™°µ65 ÓöNš°µ75 ‰öN›°µ75 uöNœ°µ8’š^8‘°µļøœ9ü^œšµ‘R9ø›šišöNü^é°µnļøœ9ü^’š N^9›’:‘™Ą¶;5 aöN‘Ąµ;5 öN’Ąµ;5 öN“Ąµ;5 ĻöN”Ąµ;5 …öN•Ąµ<5 iöN–Ąµ<5 möN—Ąµ<5 ‰öN˜Ąµ<5 uöN™Ąµ=’š^=‘ĄµļȜ>ü^™šµ‘R>Č›šišöNü^饵nļȜ>ü^’š N^>›’?‘˜¶@5 aöN‘µ@5 öN’µ@5 öN“µ@5 öN”µ@5 iöN•µA5 !öN–µA5 ‰öN—µA5 uöN˜µB’š^B‘µļ œCü^˜šµ‘RC ›šišöNü^éµnļ œCü^’š N^C›’Dˆ € € F ’jEˆœ € € € € 5 ) €jFˆ’›˜” 5 ‘ €jGˆ˜›¢¤: x‘jHˆ’Ƙ” 5 – €jIˆ˜Æ¢¤: ˆ“jJˆ’2˜” 5 › €jKˆ˜2¢¤: ˜•jLˆ’G˜” 5   €jMˆ˜F¢¤: ؗjNˆ’Z˜” 5 „ €jOˆ˜Z¢¤: ø™jPˆ’n˜” 5 Ŗ €jQˆ˜n¢¤: țjRˆ’ƒ˜” 5 ū €jSˆ˜‚¢¤:  jTˆ™›((„ €jUˆš<((„ €jV6 ˆjXˆŽjYŽpµļŲœZą€µļąœ[āµļčœ\ä µļšœ]ę°µļųœ^襵ļœ_źµļ0œ`cq6 ^©’’‘2\edu6 n©2\…eŖģ8f’ī8g‘q6 ‹©ģī‘’2\‘‘‚‘h @óšiØjŖģ8k’ī8l‘q6 ‹©ģī‘’2\‘;mqģī–Fģī’F‘2\›n››i i œoh ą?Eóšpq›Üi5 ašöNżšn6¦öhö 0ļ˜œr˜5 aš›ßiš6³šŲš ˜œs˜5 aš›ßiš6øšąš ˜œtč5 a±‘7t˜5 aš›ßiš6½ščš ˜œuš5 a±‘5u˜5 aš›ßiš5ššš ˜œvh²š5 a±U‘v˜6 Āš˜œw˜5 aš˜œxų5 a±‘7x˜5 aš›ßiš6Čšųš ˜œy5 a±‘7y˜5 aš›ßiš6Ķšš ˜œz05 a±‘7z˜5 aš›ßiš6Ņš0š ˜œ|x5 a±‘7|˜5 aš›ßiš6ךxš ˜œ}€5 a±‘7}˜5 aš›ßiš6Üš€š ˜œ~˜5 aš›Żiš˜œ€q˜’’‘2\eu6 n©2\…‚u6 į©2\…ƒ\†‘eaf‚‘‡”Bˆ6‰6 õöN‘eašn6üöļjŠ”‹˜ i € FALSEē "-8CN”ą +ˆę&ƒŽ™ %:GĆ€TypeFrmat      S ĒĪŪ€€€€€€ bdefghMaps?½Ŗ¶€€€€bdefComp@ząU€€€€bdefGlobe ]Qqq€€€€€€ € bdefghiProj^R‰ƒ]€€€€€€ € bdefghiMicro@Dsu–€€€€bdefNProj]Ųj€€€€€€ € bdefghiFilm  r š"l倀€€€€ € €€bdefghimnSound^Č²ęĀ€€€€€€ € bdefghiVideomSessionApplicationlue("Type") ) Call Frmt( Fm$ ) Select Case Fm$ Case " " Case "a" DlgListBoxArray "b", BArr() DlgListBoxArray "d", DArr() DlgListBoxArray "e", EArr() DlgListBoxArray "f", FArr() DlgListBoxArray "g", GArr() DlgListBoxArray "h", HArr() DlgVisible "g", 1 DlgVisible "h", 1 DlgVisible "i", 0 DlgVisible "m", 0 DlgVisible "n", 0 DlgVisible "textg", 1 DlgVisible "texth", 1 DlgVisible "texti", 0 DlgVisible "textm", 0 DlgVisible "textn", 0 Case "c","d","k" DlgListBoxArray "b", BArr() DlgListBoxArray "d", DArr() DlgListBoxArray "e", EArr() DlgListBoxArray "f", FArr() DlgVisible "g", 0 DlgVisible "h", 0 DlgVisible "i", 0 DlgVisible "m", 0 DlgVisible "n", 0 DlgVisible "textg", 0 DlgVisible "texth", 0 DlgVisible "texti", 0 DlgVisible "textm", 0 DlgVisible "textn", 0 Case "g","m","v" DlgListBoxArray "b", BArr() DlgListBoxArray "d",ż’’’Šƒ„…†‡ˆ‰}‹ŒŽ‘’“”•–—˜™š›œžŸ ”¢£¤„¦§ž’’’ąŖ«¬µ®Æ°±²³“©¶·ø¹ŗ»¼½¾æĄĮĀĆÄÅĘĒČÉŹĖĢĶĪĻŠŃŅÓŌÕÖמ’’’ŁŚŪÜŻŽßįģāćäåęēčźėīōž’’’ļšńņóžö÷ųłśūüżķ’ DArr() DlgListBoxArray "e", EArr() DlgListBoxArray "f", FArr() DlgListBoxArray "g", GArr() DlgListBoxArray "h", HArr() DlgListBoxArray "i", IArr() DlgVisible "g", 1 DlgVisible "h", 1 DlgVisible "i", 1 DlgVisible "m", 0 DlgVisible "n", 0 DlgVisible "textg", 1 DlgVisible "texth", 1 ' MacroName: Alt007 ' MacroDescription: Insert primary or secondary 007 tags to a ' record for sound cassettes (including BOTs), ' CD's, VHS videotapes, CD-ROMs, etc. ' Macro written by: Joel Hahn, Niles Public Library District ' With much assistance from: Harvey Hahn, Arlington Heights Mem. Lib. Dim AArr() As String Dim BArr() As String Dim DArr() As String Dim EArr() As String Dim FArr() As String Dim GArr() As String Dim HArr() As String Dim IArr() As String 'Dim JArr() As String Dim MArr() As String Dim NArr() As String Declare Function Fmt(id$, action%, supp&) Declare Sub Frmt(Fm$) sub main On Error Goto ErrHand dim CS as session set CS = CurrentSession ReDim AArr(0 to 9) AArr(0) = " " AArr(1) = "a" : AArr(2) = "c" : AArr(3) = "d" : AArr(4) = "g" AArr(5) = "h" : AArr(6) = "k" : AArr(7) = "m" : AArr(8) = "s" AArr(9) = "v" MainBox: Begin Dialog Frmat 220, 70, .Fmt Caption "007 Creation" Text 10, 7, 16, 12, "$a", .texta DropListBox 10, 17, 19, 58, AArr(), .Type Text 30, 7, 16, 12, "$b", .textb DropListBox 30, 17, 19, 58, BArr(), .b Text 50, 7, 16, 12, "$d", .textd DropListBox 50, 17, 19, 58, DArr(), .d Text 70, 7, 16, 12, "$e", .texte DropListBox 70, 17, 19, 58, EArr(), .e Text 91, 7, 16, 12, "$f", .textf DropListBox 90, 17, 19, 58, FArr(), .f Text 110, 7, 16, 12, "$g", .textg DropListBox 110, 17, 19, 58, GArr(), .g Text 130, 7, 16, 12, "$h", .texth DropListBox 130, 17, 19, 58, HArr(), .h Text 151, 7, 16, 12, "$i", .texti DropListBox 150, 17, 19, 58, IArr(), .i Text 169, 7, 16, 12, "$m", .textm DropListBox 170, 17, 19, 58, MArr(), .m Text 190, 7, 16, 12, "$n", .textn DropListBox 190, 17, 19, 58, NArr(), .n OkButton 10, 40, 40, 20 CancelButton 60, 40, 40, 20 End Dialog dim NChoice as Frmat dialog NChoice a$=AArr(NChoice.Type) If a$=" " Then MsgBox "$a is a required field." Goto MainBox End If If Str(NChoice.b)<>-1 Then b$=BArr(NChoice.b) If b$="" Then b$=" " If Str(NChoice.d)<>-1 Then d$=DArr(NChoice.d) If d$="" Then d$=" " If Str(NChoice.e)<>-1 Then e$=EArr(NChoice.e) If e$="" Then e$=" " If Str(NChoice.f)<>-1 Then f$=FArr(NChoice.f) If f$="" Then f$=" " If Str(NChoice.g)<>-1 Then g$=GArr(NChoice.g) If g$="" Then g$=" " If Str(NChoice.h)<>-1 Then h$=HArr(NChoice.h) If h$="" Then h$=" " If Str(NChoice.i)<>-1 Then i$=IArr(NChoice.i) If i$="" Then i$=" " 'If Str(NChoice.j)<>-1 Then j$=JArr(NChoice.j) 'If j$="" Then j$=" " If Str(NChoice.m)<>-1 Then m$=MArr(NChoice.m) If m$="" Then m$=" " If Str(NChoice.n)<>-1 Then n$=NArr(NChoice.n) If n$="" Then n$=" " CS.PutText "HOME", 1, 1 RunMacro "PRSMUTIL!SendCommand" Row%=25 Col%=1 If CS.Find("007", Row%, Col%, , 1)=FALSE Then NewRow=2.5 Else Row%=25 Col%=1 CS.Find "007", Row%, Col%, , 1 CS.GetTextInRegion RowNum$, Row%, Col%-5, Row%, Col%-1 RowNum$=RTrim(LTrim(RowNum$)) NewRow=Val(RowNum$)+0.5 End If Seven$=CHR$(220)+" "+NewRow+" 007 "+a$ Seven$=Seven$+" "+Chr$(223)+"b "+b$ Seven$=Seven$+" "+Chr$(223)+"d "+d$ If e$<>" " Then Seven$=Seven$+" "+Chr$(223)+"e "+e$ If f$<>" " Then Seven$=Seven$+" "+Chr$(223)+"f "+f$ If (a$=h and f$<>" ") Then Seven$=Seven$+"---" Seven$=Seven$+" " If g$<>" " Then Seven$=Seven$+" "+Chr$(223)+"g "+g$ If h$<>" " Then Seven$=Seven$+" "+Chr$(223)+"h "+h$ If i$<>" " Then Seven$=Seven$+" "+Chr$(223)+"i "+i$ 'If j$<>" " Then Seven$=Seven$+" "+Chr$(223)+"j "+j$ If m$<>" " Then Seven$=Seven$+" "+Chr$(223)+"m "+m$ If n$<>" " Then Seven$=Seven$+" "+Chr$(223)+"n "+n$ Seven$=Seven$+" "+Chr$(221) CS.PutText Seven$, 1, 1 RunMacro "PRSMUTIL!SendCommand" RunMacro "PRSMUTIL!Reformat" Goto Done ErrHand: If Err=102 Then Resume Done Else MsgBox "Err(" & Err & ") in line " & Erl & ": " & Error$ Resume Done End If Done: End Sub Function Fmt( WhichControl$, action%, suppvalue& ) Select Case action% Case 1 a=a Case 2 Select Case WhichControl$ Case "Type" Fm$ = AArr( DlgVa DlgVisible "texti", 1 DlgVisible "textm", 0 DlgVisible "textn", 0 Case "h" DlgListBoxArray "b", BArr() DlgListBoxArray "d", DArr() DlgListBoxArray "e", EArr() DlgListBoxArray "f", FArr() DlgListBoxArray "g", GArr() DlgListBoxArray "h", HArr() DlgListBoxArray "i", IArr() 'DlgListBoxArray "j", JArr() DlgVisible "g", 1 DlgVisible "h", 1 DlgVisible "i", 1 'DlgVisible "j", 1 DlgVisible "m", 0 DlgVisible "n", 0 DlgVisible "textg", 1 DlgVisible "texth", 1 DlgVisible "texti", 1 'DlgVisible "textj", 1 DlgVisible "textm", 0 DlgVisible "textn", 0 Case "s" DlgListBoxArray "b", BArr() DlgListBoxArray "d", DArr() DlgListBoxArray "e", EArr() DlgListBoxArray "f", FArr() DlgListBoxArray "g", GArr() DlgListBoxArray "h", HArr() DlgListBoxArray "i", IArr() DlgListBoxArray "m", MArr() DlgListBoxArray "n", NArr() DlgVisible "g", 1 DlgVisible "h", 1 DlgVisible "i", 1 DlgVisible "m", 1 DlgVisible "n", 1 DlgVisible "textg", 1 DlgVisible "texth", 1 DlgVisible "texti", 1 DlgVisible "textm", 1 DlgVisible "textn", 1 End Select End Select Case 3 Case 4 Case 5 End Select End Function Sub Frmt(Fm$) SelCase=Fm$ 'NChoice.Type Select Case SelCase Case " " Goto DoIt Case "a" Goto Maps Case "c" Goto Comp Case "d" Goto Globe Case "g" Goto Proj Case "h" Goto Micro Case "k" Goto NProj Case "m" Goto Film Case "s" Goto Sound Case "v" Goto Video End Select Maps: ReDim BArr(0 to 9) BArr(0)=" " : BArr(1)="d" : BArr(2)="g" : BArr(3)="j" : BArr(4)="k" BArr(5)="q" : BArr(6)="r" : BArr(7)="s" : BArr(8)="y" : BArr(9)="z" x=1 : BCh$=BArr(0) Do While x<=9 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 2) DArr(0)=" " : DArr(1)="a" : DArr(2)="c" x=1 : DCh$=DArr(0) Do While x<=2 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 10) EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d" EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="p" : EArr(9)="u" EArr(10)="z" x=1 : ECh$=EArr(0) Do While x<=10 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 4) FArr(0)=" " : FArr(1)="f" : FArr(2)="n" : FArr(3)="u" : FArr(4)="z" x=1 : FCh$=FArr(0) Do While x<=4 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 5) GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="d" : GArr(4)="u" GArr(5)="z" x=1 : GCh$=GArr(0) Do While x<=5 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 4) HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="m" : HArr(4)="n" x=1 : HCh$=HArr(0) Do While x<=4 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop Goto DoIt Comp: ReDim BArr(0 to 11) BArr(0)=" " : BArr(1)="a" : BArr(2)="b" : BArr(3)="c" : BArr(4)="f" BArr(5)="h" : BArr(6)="j" : BArr(7)="m" : BArr(8)="o" : BArr(9)="r" BArr(10)="u" : BArr(11)="z" x=1 : BCh$=BArr(0) Do While x<=11 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 7) DArr(0)=" " : DArr(1)="a" : DArr(2)="c" : DArr(3)="g" : DArr(4)="m" DArr(5)="n" : DArr(6)="u" : DArr(7)="z" x=1 : DCh$=DArr(0) Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 10) EArr(0)=" " : EArr(1)="a" : EArr(2)="e" : EArr(3)="g" : EArr(4)="i" EArr(5)="j" : EArr(6)="n" : EArr(7)="o" : EArr(8)="u" : EArr(9)="v" EArr(10)="z" x=1 : ECh$=EArr(0) Do While x<=10 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 2) FArr(0)=" " : FArr(1)="a" : FArr(2)="u" x=1 : FCh$=FArr(0) Do While x<=2 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop Goto DoIt Globe: ReDim BArr(0 to 4) BArr(0)=" " : BArr(1)="a" : BArr(2)="b" : BArr(3)="c" : BArr(4)="z" x=1 : BCh$=BArr(0) Do While x<=4 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 2) DArr(0)=" " : DArr(1)="a" : DArr(2)="c" x=1 : DCh$=DArr(0) Do While x<=2 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 10) EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d" EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="p" : EArr(9)="u" EArr(10)="z" x=1 : ECh$=EArr(0) Do While x<=10 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 4) FArr(0)=" " : FArr(1)="f" : FArr(2)="n" : FArr(3)="u" : FArr(4)="z" x=1 : FCh$=FArr(0) Do While x<=4 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop Goto DoIt Proj: ReDim BArr(0 to 7) BArr(0)=" " : BArr(1)="c" : BArr(2)="d" : BArr(3)="f" : BArr(4)="o" BArr(5)="s" : BArr(6)="t" : BArr(7)="z" x=1 : BCh$=BArr(0) Do While x<=7 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 8) DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="h" DArr(5)="m" : DArr(6)="n" : DArr(7)="u" : DArr(8)="z" x=1 : DCh$=DArr(0) Do While x<=8 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 8) EArr(0)=" " : EArr(1)="d" : EArr(2)="e" : EArr(3)="j" : EArr(4)="k" EArr(5)="m" : EArr(6)="o" : EArr(7)="u" : EArr(8)="z" x=1 : ECh$=EArr(0) Do While x<=8 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 3) FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="u" x=1 : FCh$=FArr(0) Do While x<=3 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 11) GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d" GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="h" : GArr(9)="i" GArr(10)="u" : GArr(11)="z" x=1 : GCh$=GArr(0) Do While x<=11 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 16) HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="c" : HArr(4)="d" HArr(5)="e" : HArr(6)="f" : HArr(7)="g" : HArr(8)="j" : HArr(9)="k" HArr(10)="t" : HArr(11)="u" : HArr(12)="v" : HArr(13)="w" HArr(14)="x" : HArr(15)="y" : HArr(16)="z" x=1 : HCh$=HArr(0) Do While x<=16 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop ReDim IArr(0 to 9) IArr(0)=" " : IArr(1)="c" : IArr(2)="d" : IArr(3)="e" : IArr(4)="h" IArr(5)="j" : IArr(6)="k" : IArr(7)="m" : IArr(8)="u" : IArr(9)="z" x=1 : ICh$=IArr(0) Do While x<=9 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop Goto DoIt Micro: ReDim BArr(0 to 8) BArr(0)=" " : BArr(1)="a" : BArr(2)="b" : BArr(3)="c" : BArr(4)="d" BArr(5)="e" : BArr(6)="f" : BArr(7)="g" : BArr(8)="z" x=1 : BCh$=BArr(0) Do While x<=8 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 4) DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="m" : DArr(4)="u" x=1 : DCh$=DArr(0) Do While x<=4 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 11) EArr(0)=" " : EArr(1)="a" : EArr(2)="d" : EArr(3)="f" : EArr(4)="g" EArr(5)="h" : EArr(6)="l" : EArr(7)="m" : EArr(8)="o" : EArr(9)="p" EArr(10)="u" : EArr(11)="z" x=1 : ECh$=EArr(0) Do While x<=11 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 7) FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="c" : FArr(4)="d" FArr(5)="e" : FArr(6)="u" : FArr(7)="v" x=1 : FCh$=FArr(0) Do While x<=7 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 5) GArr(0)=" " : GArr(1)="b" : GArr(2)="c" : GArr(3)="m" : GArr(4)="u" GArr(5)="z" x=1 : GCh$=GArr(0) Do While x<=5 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 7) HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="c" : HArr(4)="m" HArr(5)="n" : HArr(6)="u" : HArr(7)="z" x=1 : HCh$=HArr(0) Do While x<=7 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop ReDim IArr(0 to 5) IArr(0)=" " : IArr(1)="a" : IArr(2)="b" : IArr(3)="c" : IArr(4)="m" IArr(5)="u" x=1 : ICh$=IArr(0) Do While x<=5 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop 'ReDim JArr(0 to 11) 'JArr(0)=" " : JArr(1)="a" : JArr(2)="b" : JArr(3)="c" : JArr(4)="m" 'JArr(5)="u" : JArr(6)="a" : JArr(7)="b" : JArr(8)="c" : JArr(9)="m" 'JArr(10)="c" : JArr(11)="m" ' x=1 : JCh$=JArr(0) ' Do While x<=11 : JCh$=JCh$+Chr$(9)+JArr(x) : x=x+1 : Loop Goto DoIt NProj: ReDim BArr(0 to 12) BArr(0)=" " : BArr(1)="c" : BArr(2)="d" : BArr(3)="e" : BArr(4)="f" BArr(5)="g" : BArr(6)="h" : BArr(7)="i" : BArr(8)="j" : BArr(9)="l" BArr(10)="n" : BArr(11)="o" : BArr(12)="z" x=1 : BCh$=BArr(0) Do While x<=12 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 7) DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="h" DArr(5)="m" : DArr(6)="u" : DArr(7)="z" x=1 : DCh$=DArr(0) Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 17) EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d" EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="h" : EArr(9)="m" EArr(10)="o" : EArr(11)="p" : EArr(12)="q" : EArr(13)="r" EArr(14)="s" : EArr(15)="t" : EArr(16)="u" : EArr(17)="z" x=1 : ECh$=EArr(0) Do While x<=17 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 17) FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="c" : FArr(4)="d" FArr(5)="e" : FArr(6)="f" : FArr(7)="g" : FArr(8)="h" : FArr(9)="m" FArr(10)="o" : FArr(11)="p" : FArr(12)="q" : FArr(13)="r" FArr(14)="s" : FArr(15)="t" : FArr(16)="u" : FArr(17)="z" x=1 : FCh$=FArr(0) Do While x<=17 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop Goto DoIt Film: ReDim BArr(0 to 4) BArr(0)=" " : BArr(1)="c" : BArr(2)="f" : BArr(3)="r" : BArr(4)="a" x=1 : BCh$=BArr(0) Do While x<=4 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 7) DArr(0)=" " : DArr(1)="b" : DArr(2)="c" : DArr(3)="h" : DArr(4)="m" DArr(5)="n" : DArr(6)="u" : DArr(7)="z" x=1 : DCh$=DArr(0) Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 8) EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d" EArr(5)="e" : EArr(6)="f" : EArr(7)="u" : EArr(8)="z" x=1 : ECh$=EArr(0) Do While x<=8 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 3) FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="u" x=1 : FCh$=FArr(0) Do While x<=3 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 11) GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d" GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="h" : GArr(9)="i" GArr(10)="u" : GArr(11)="z" x=1 : GCh$=GArr(0) Do While x<=11 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 9) HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="c" : HArr(4)="d" HArr(5)="e" : HArr(6)="f" : HArr(7)="g" : HArr(8)="u" : HArr(9)="z" x=1 : HCh$=HArr(0) Do While x<=9 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop ReDim IArr(0 to 7) IArr(0)=" " : IArr(1)="k" : IArr(2)="m" : IArr(3)="n" : IArr(4)="q" IArr(5)="s" : IArr(6)="u" : IArr(7)="z" x=1 : ICh$=IArr(0) Do While x<=7 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop Goto DoIt Sound: ReDim BArr(0 to 9) BArr(0)=" " : BArr(1)="d" : BArr(2)="e" : BArr(3)="g" : BArr(4)="i" BArr(5)="q" : BArr(6)="s" : BArr(7)="t" : BArr(8)="w" : BArr(9)="z" x=1 : BCh$=BArr(0) Do While x<=9 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 16) DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="d" DArr(5)="e" : DArr(6)="f" : DArr(7)="h" : DArr(8)="i" : DArr(9)="k" DArr(10)="l" : DArr(11)="m" : DArr(12)="o" : DArr(13)="p" DArr(14)="r" : DArr(15)="u" : DArr(16)="z" x=1 : DCh$=DArr(0) Do While x<=16 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 5) EArr(0)=" " : EArr(1)="m" : EArr(2)="q" : EArr(3)="s" : EArr(4)="u" EArr(5)="z" x=1 : ECh$=EArr(0) Do While x<=5 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 5) FArr(0)=" " : FArr(1)="m" : FArr(2)="n" : FArr(3)="s" : FArr(4)="u" FArr(5)="z" x=1 : FCh$=FArr(0) Do While x<=5 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 13) GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d" GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="j" : GArr(9)="o" GArr(10)="s" : GArr(11)="n" : GArr(12)="u" : GArr(13)="z" x=1 : GCh$=GArr(0) Do While x<=13 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 7) HArr(0)=" " : HArr(1)="l" : HArr(2)="m" : HArr(3)="n" : HArr(4)="o" HArr(5)="p" : HArr(6)="u" : HArr(7)="z" x=1 : HCh$=HArr(0) Do While x<=7 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop ReDim IArr(0 to 9) IArr(0)=" " : IArr(1)="a" : IArr(2)="b" : IArr(3)="c" : IArr(4)="d" IArr(5)="e" : IArr(6)="f" : IArr(7)="n" : IArr(8)="u" : IArr(9)="z" x=1 : ICh$=IArr(0) Do While x<=9 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop ReDim MArr(0 to 11) MArr(0)=" " : MArr(1)="a" : MArr(2)="b" : MArr(3)="c" : MArr(4)="d" MArr(5)="e" : MArr(6)="f" : MArr(7)="g" : MArr(8)="h" : MArr(9)="n" MArr(10)="u" : MArr(11)="z" x=1 : MCh$=MArr(0) Do While x<=11 : MCh$=MCh$+Chr$(9)+MArr(x) : x=x+1 : Loop ReDim NArr(0 to 7) NArr(0)=" " : NArr(1)="a" : NArr(2)="b" : NArr(3)="c" : NArr(4)="d" NArr(5)="e" : NArr(6)="u" : NArr(7)="z" x=1 : NCh$=NArr(0) Do While x<=7 : NCh$=NCh$+Chr$(9)+NArr(x) : x=x+1 : Loop Goto DoIt Video: ReDim BArr(0 to 5) BArr(0)=" " : BArr(1)="c" : BArr(2)="d" : BArr(3)="f" : BArr(4)="r" BArr(5)="z" x=1 : BCh$=BArr(0) Do While x<=5 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop ReDim DArr(0 to 7) DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="m" DArr(5)="n" : DArr(6)="u" : DArr(7)="z" x=1 : DCh$=DArr(0) Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop ReDim EArr(0 to 18) EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d" EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="h" : EArr(9)="i" EArr(10)="j" : EArr(11)="k" : EArr(12)="m" : EArr(13)="n" EArr(14)="o" : EArr(15)="p" : EArr(16)="q" : EArr(17)="u" EArr(18)="z" x=1 : ECh$=EArr(0) Do While x<=18 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop ReDim FArr(0 to 3) FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="u" x=1 : FCh$=FArr(0) Do While x<=3 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop ReDim GArr(0 to 11) GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d" GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="h" : GArr(9)="i" GArr(10)="u" : GArr(11)="z" x=1 : GCh$=GArr(0) Do While x<=11 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop ReDim HArr(0 to 8) HArr(0)=" " : HArr(1)="a" : HArr(2)="m" : HArr(3)="o" : HArr(4)="p" HArr(5)="q" : HArr(6)="r" : HArr(7)="u" : HArr(8)="z" x=1 : HCh$=HArr(0) Do While x<=8 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop ReDim IArr(0 to 7) IArr(0)=" " : IArr(1)="k" : IArr(2)="m" : IArr(3)="n" : IArr(4)="q" IArr(5)="s" : IArr(6)="u" : IArr(7)="z" x=1 : ICh$=IArr(0) Do While x<=7 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop Goto DoIt Doit: end sub Alt007.DES’’’’|zAlt007.BIN’’’’’’’’’’’’­Ū]BatchXpo.SRC’’’’$’’’’~‰BatchXpo.DES’’’’·Opœ_qp’’‘2\ź`u5 ó©2\ au6 k©2\ be‘eaf‚‘f”gg]h6 ö(‘eaš86\†ödt f#ń„6¤“ö”¬›i%ö¼Ģļhji”jl˜—t IŚ8‘ ’‚‘üq “‚‘+ £Žœ 6˜²‘ü‘6˜©öś*…%µœ’ œ ¹ 5²‘ ¢ 5 ²‘‘ %6Ÿ©öś*Š  %5©öś*Š %6£©öś*Š % 6§©öś*Š %(5©öś*Š %05©öś*Š ’5©öś*Š’5©öś*Š‘6«©öś*Š‘5!©öś*Š‘6Æ©öś*Š’6³©öś*Š’6»©öś*Š‘6Ć©öś*Š‘6Ė©öś*Š‘6Ó©öś*Š5 ²5:² 5B²‘a%6Ÿ©öś*Š %5©öś*Š %6£©öś*Š  % 6§©öś*Š !‘5©öś*Š"‘5©öś*Š#‘6«©öś*Š$‘5!©öś*Š%‘6Æ©öś*Š&‘6³©öś*Š'‘6»©öś*Š(‘6Ć©öś*Š)‘6Ė©öś*Š*‘6Ó©öś*Š+v+5²5:!² 5B)²‘«,%6Ÿ©öś*Š -%5©öś*Š .%6£©öś*Š /% 6§©öś*Š 0%(5©öś*Š 1%05©öś*Š 2%86«©öś*Š 3’5©öś*Š4’5©öś*Š5’6«©öś*Š6‘5!©öś*Š7‘6Æ©öś*Š8’6³©öś*Š9’6»©öś*Š:’6Ć©öś*Š;‘6Ė©öś*Š<‘6Ó©öś*Š=”=5²‘«>%6Ÿ©öś*Š ?%5©öś*Š @%6£©öś*Š A% 6§©öś*Š B%(5©öś*Š C%05©öś*Š D%86«©öś*Š F’5©öś*ŠG’5©öś*ŠH’6«©öś*ŠJ‘5!©öś*ŠK‘6Æ©öś*ŠL’6³©öś*ŠM’6»©öķžSQ R \ū $/äŠZ“]#ø]Ą acdghkmsv 007 Creation$a$b$d$e$f$g$h$i$m$nXtextaTypetextbbtextddtexteetextfftextggtexthhtextiitextmmtextnn__$a is a required field.HOMEĄČPRSMUTIL!SendCommand ĄČ007ĄČĄĄĄČ 007 b d e f ---g h i m n PRSMUTIL!ReformatErr( ) in line : Typebefintextgtexthtextitextmtextnjqryzpuotwxl‚z S§#”’’’’„š¶ Ķš~Šż’’’’óLM@ƒvąļ’’’’ V F" (8 (08@HPX€H€JL`hdt„”px€ˆ¬¼ĢCS_NChoicea___bdefghimnRowColNewRowRowNum_____Seven______*aFm___8 (08@HPXSelCase_xBCh___DChEChFChGChHChIChMChNChmainFmtFrmt  €5F Fm„K+Passport—~ å ~u2\[Ų‘š%¶5 ‘%µœ5 ’%µœ5 “%µœ5 ”%µœ5 •%µœ5 –%µœ5 —%µœ5 !˜%µœ5 %™%µœ 5 )š%µœ  € €ÜF’j œ € € € € 5 - €j ’›˜” 5 < €j˜›¢¤: %‘j’Ƙ” 5 A €j˜Æ¢¤: %“j’2˜” 5 F €j˜2¢¤: %•j’F˜” 5 K €j˜F¢¤: %—j’[˜” 5 P €j˜Z¢¤: % ™j’n˜” 5 U €j˜n¢¤: %(›j’‚˜” 5 Z €j˜‚¢¤: %0j’—˜” 5 _ €j˜–¢¤: %8Ÿj’©˜” 5 d €j˜Ŗ¢¤: %@”j’¾˜” 5 i €j ˜¾¢¤: %H£j!™›((„ €j"š<((„ €j#5 nj%j'%µœ(5 ²‘)5 É©j*Ńü+,(šś8lc ’šµ‘,%µœ-7²‘ -5 œ.(šś8lc ’šµ‘.%µ œ/ 7²‘ /5  œ0(šś8lc ’šµ‘0%µ(œ1(7²‘ 15 (œ2(šś8lc ’šµ‘2% µ0œ307²‘ 35 0œ4(šś8lc ’šµ‘4%(µ8œ587²‘ 55 8œ6( šś8lc ’šµ‘6 %0µ@œ7@7²‘ 75 @œ8("šś8lc ’šµ‘8"%8µHœ9H7²‘ 95 Hœ<($šś8lc ’šµ‘<$%@µPœ=P7²‘ =5 Pœ>(&šś8lc ’šµ‘>&%HµXœ?X7²‘ ?5 XœAq5 ć©’’‘2\źBu5 ó©2\ CŖH8D’J8E‘q6 ©HJ‘’2\‘‚‘F @óLG•HŖH8I’J8J‘q6 ©HJ‘’2\;Kq`HJ–FHJ’F‘2\ L›h›`i i `œM`h ą?EóLNP›Üi5 šhö(üL86\+ödtö„”ļxpœQp5 šh›ßišx6\8š€šˆpœRp5 šh›ßišx6\=š€ šˆpœS(5 ±‘3Sp5 šh›ßišx6\Bš€(šˆpœT05 ±‘3Tp5 šh›ßišx6\Gš€0šˆpœU@²05 ±U‘Up6 LšpœVp5 špœW85 ±‘3Wp5 šh›ßišx6\Rš€8šˆpœX@5 ±‘3Xp5 šh›ßišx6\Wš€@šˆpœYH5 ±‘3Yp5 šh›ßišx6\\š€Hšˆpœ[P5 ±‘3[p5 šh›ßišx6\aš€Pšˆpœ\X5 ±‘3\p5 šh›ßišx6\fš€Xšˆpœ]p5 šh›Żišxś*ŠN’6Ć©öś*ŠP‘6Ė©öś*ŠQ‘6Ó©öś*ŠRęR5%²‘ÖS%6Ÿ©öś*Š T%5©öś*Š U%6£©öś*Š V% 6§©öś*Š W%(5©öś*Š X%05©öś*Š Y%86«©öś*Š Z%@5!©öś*Š [%H6Æ©öś*Š \’5©öś*Š]’5©öś*Š^’6«©öś*Š_’5!©öś*Š`’6Æ©öś*Ša’6³©öś*Šb’6»©öś*Šc’6Ć©öś*Šd’6Ė©öś*Še’6Ó©öś*Šh8h”‚‘i#i•‚‘jj–‚‘l˜— Ŗ£Žöü aü 50ö鑍ū?=ü 50 ö鑍 ü 50 öé‘ Į õ ü 50öé‘ ž  Ń ü 50öé‘ …­ü 50ö鑍®‰ü 50ö鑍Āeü 50!ö鑍 #Aü 50%ö鑍Ž*ü 50)ö鑍'6‘š%¶50‘%µœ50’%µœ50“%µœ60Ū”%µœ50•%µœ60ß–%µœ60ć—%µœ50%˜%µœ60ē™%µœ60ėš%µœ’š8‘%µœü8ššµ‘B›šišü8é%µšœü8’š 8¬’ ‘“%¶!50‘%µœ!50 ’%µœ!50 “%µœ"’š8"‘%µ œ#ü8“šµ‘B# ›šišü8é%µš œ#ü8’š 8#¬’$‘›%¶%50‘%µœ%50 ’%µœ%60Ÿ“%µœ%50 ”%µœ%50•%µœ&60£–%µœ&60§—%µœ&50˜%µœ&60ļ™%µœ&60óš%µœ'60ė›%µœ(’š8(‘%µ(œ)ü8›šµ‘B)(›šišü8é%µš(œ)ü8’š 8)¬’*‘•% ¶+50‘% µœ+60§’% µœ+60Æ“% µœ+60ó”% µœ+60ė•% µœ,’š8,‘% µ0œ-ü8•šµ‘B-0›šišü8é% µš0œ-ü8’š 8-¬’.‘–%(¶/50‘%(µœ/50 ’%(µœ/60Ÿ“%(µœ/50”%(µœ/60ó•%(µœ060ė–%(µœ1’š81‘%(µ8œ2ü8–šµ‘B28›šišü8é%(µš8œ2ü8’š 82¬’3‘•%0¶450‘%0µœ450 ’%0µœ460Ÿ“%0µœ450!”%0µœ460Æ•%0µœ5’š85‘%0µ@œ6ü8•šµ‘B6@›šišü8é%0µš@œ6ü8’š 86¬’7ņ8:‘œ%¶;50‘%µœ;50 ’%µœ;60Ÿ“%µœ;50 ”%µœ;60§•%µœ<50–%µœ<60Ū—%µœ<50!˜%µœ<60÷™%µœ<60ćš%µœ=60ó›%µœ=60ėœ%µœ>’š8>‘%µœ?ü8œšµ‘B?›šišü8é%µšœ?ü8’š 8?¬’@‘˜%¶A50‘%µœA50 ’%µœA50 “%µœA50”%µœA50!•%µœB60Æ–%µœB60ó—%µœB60ė˜%µœC’š8C‘%µ œDü8˜šµ‘BD ›šišü8é%µš œDü8’š 8D¬’E‘›%¶F50‘%µœF50 ’%µœF60£“%µœF50”%µœF60«•%µœG60Ū–%µœG60Æ—%µœG60÷˜%µœG60ó™%µœG50)š%µœH60ė›%µœI’š8I‘%µ(œJü8›šµ‘BJ(›šišü8é%µš(œJü8’š 8J¬’K‘“% ¶L50‘% µœL50 ’% µœL60ó“% µœM’š8M‘% µ0œNü8“šµ‘BN0›šišü8é% µš0œNü8’š 8N¬’O‘4R‘•%¶S50‘%µœS50 ’%µœS60Ÿ“%µœS50 ”%µœS60ė•%µœT’š8T‘%µœUü8•šµ‘BU›šišü8é%µšœUü8’š 8U¬’V‘“%¶W50‘%µœW50 ’%µœW50 “%µœX’š8X‘%µ œYü8“šµ‘BY ›šišü8é%µš œYü8’š 8Y¬’Z‘›%¶[50‘%µœ[50 ’%µœ[60Ÿ“%µœ[50 ”%µœ[50•%µœ\60£–%µœ\60§—%µœ\50˜%µœ\60ļ™%µœ\60óš%µœ]60ė›%µœ^’š8^‘%µ(œ_ü8›šµ‘B_(›šišü8é%µš(œ_ü8’š 8_¬’`‘•% ¶a50‘% µœa60§’% µœa60Æ“% µœa60ó”% µœa60ė•% µœb’š8b‘% µ0œcü8•šµ‘Bc0›šišü8é% µš0œcü8’š 8c¬’dę0g‘˜%¶h50‘%µœh50 ’%µœh50“%µœh60§”%µœh60÷•%µœi50%–%µœi60ū—%µœi60ė˜%µœj’š8j‘%µœkü8˜šµ‘Bk›šišü8é%µšœkü8’š 8k¬’l‘™%¶m50‘%µœm50 ’%µœm60Ÿ“%µœm50 ”%µœm50•%µœn50!–%µœn60Æ—%µœn60ó˜%µœn60ė™%µœo’š8o‘%µ œpü8™šµ‘Bp ›šišü8é%µš œpü8’š 8p¬’q‘™%¶r50‘%µœr50’%µœr60£“%µœr60Ū”%µœr50•%µœs50!–%µœs60÷—%µœs60ó˜%µœs60ė™%µœt’š8t‘%µ(œuü8™šµ‘Bu(›šišü8é%µš(œuü8’š 8u¬’v‘”% ¶w50‘% µœw50 ’% µœw60Ÿ“% µœw60ó”% µœx’š8x‘% µ0œyü8”šµ‘By0›šišü8é% µš0œyü8’š 8y¬’z‘œ%(¶{50‘%(µœ{50 ’%(µœ{60Ÿ“%(µœ{50 ”%(µœ{50•%(µœ|60£–%(µœ|60§—%(µœ|50˜%(µœ|50™%(µœ|60«š%(µœ}60ó›%(µœ}60ėœ%(µœ~’š8~‘%(µ8œü8œšµ‘B8›šišü8é%(µš8œü8’š 8¬’€‘”%0¶50‘%0µœ50 ’%0µœ60Ÿ“%0µœ50 ”%0µœ50•%0µœ‚60£–%0µœ‚60§—%0µœ‚50˜%0µœ‚60Ū™%0µœ‚50š%0µœƒ60ū›%0µœƒ60óœ%0µœƒ50)%0µœƒ60’ž%0µœ„60Ÿ%0µœ„60ē %0µœ„60ė”%0µœ…’š8…‘%0µ@œ†ü8”šµ‘B†@›šišü8é%0µš@œ†ü8’š 8†¬’‡‘š%8¶ˆ50‘%8µœˆ50 ’%8µœˆ50“%8µœˆ60£”%8µœˆ50•%8µœ‰60Ū–%8µœ‰50—%8µœ‰50!˜%8µœ‰60ó™%8µœ‰60ėš%8µœŠ’š8Š‘%8µHœ‹ü8ššµ‘B‹H›šišü8é%8µšHœ‹ü8’š 8‹¬’Œ™(‘™%¶50‘%µœ50 ’%µœ60Ÿ“%µœ50 ”%µœ50•%µœ‘60£–%µœ‘60§—%µœ‘50˜%µœ‘60ė™%µœ’’š8’‘%µœ“ü8™šµ‘B“›šišü8é%µšœ“ü8’š 8“¬’”‘•%¶•50‘%µœ•50 ’%µœ•60Ÿ“%µœ•50!”%µœ•60ó•%µœ–’š8–‘%µ œ—ü8•šµ‘B— ›šišü8é%µš œ—ü8’š 8—¬’˜‘œ%¶™50‘%µœ™50 ’%µœ™50“%µœ™60§”%µœ™50•%µœš50–%µœš60—%µœš50!˜%µœš60÷™%µœš60ļš%µœ›60ó›%µœ›60ėœ%µœœ’š8œ‘%µ(œü8œšµ‘B(›šišü8é%µš(œü8’š 8¬’ž‘˜% ¶Ÿ50‘% µœŸ50 ’% µœŸ60Ÿ“% µœŸ50 ”% µœŸ50•% µœ 60£–% µœ 60ó—% µœ 50)˜% µœ”’š8”‘% µ0œ¢ü8˜šµ‘B¢0›šišü8é% µš0œ¢ü8’š 8¢¬’£‘–%(¶¤50‘%(µœ¤60Ÿ’%(µœ¤50 “%(µœ¤50!”%(µœ¤60ó•%(µœ„60ė–%(µœ¦’š8¦‘%(µ8œ§ü8–šµ‘B§8›šišü8é%(µš8œ§ü8’š 8§¬’ؑ˜%0¶©50‘%0µœ©50 ’%0µœ©60Ÿ“%0µœ©50 ”%0µœ©50!•%0µœŖ60Æ–%0µœŖ60ó—%0µœŖ60ė˜%0µœ«’š8«‘%0µ@œ¬ü8˜šµ‘B¬@›šišü8é%0µš@œ¬ü8’š 8¬¬’­‘–%8¶®50‘%8µœ®50 ’%8µœ®60Ÿ“%8µœ®50 ”%8µœ®50!•%8µœÆ60ó–%8µœ°’š8°‘%8µHœ±ü8–šµ‘B±H›šišü8é%8µšHœ±ü8’š 8±¬’øa!»‘%¶¼50‘%µœ¼50 ’%µœ¼50“%µœ¼60£”%µœ¼60§•%µœ½50–%µœ½50—%µœ½60«˜%µœ½60Ū™%µœ½60š%µœ¾60Æ›%µœ¾60÷œ%µœ¾60ė%µœæ’š8æ‘%µœĄü8šµ‘BĄ›šišü8é%µšœĄü8’š 8Ą¬’Į‘˜%¶Ā50‘%µœĀ50 ’%µœĀ60Ÿ“%µœĀ50 ”%µœĀ50•%µœĆ50!–%µœĆ60ó—%µœĆ60ė˜%µœĒš8đ%µ œÅü8˜šµ‘BÅ ›šišü8é%µš œÅü8’š 8ō¬’ʑ¢%¶Ē50‘%µœĒ50 ’%µœĒ60Ÿ“%µœĒ50 ”%µœĒ50•%µœČ60£–%µœČ60§—%µœČ50˜%µœČ50™%µœČ50!š%µœÉ60÷›%µœÉ60ļœ%µœÉ60ߝ%µœÉ60ćž%µœŹ50%Ÿ%µœŹ60ū %µœŹ60ó”%µœŹ60ė¢%µœĖ’š8Ė‘%µ(œĢü8¢šµ‘BĢ(›šišü8é%µš(œĢü8’š 8Ģ¬’Ķ‘¢% ¶Ī50‘% µœĪ50 ’% µœĪ60Ÿ“% µœĪ50 ”% µœĪ50•% µœĻ60£–% µœĻ60§—% µœĻ50˜% µœĻ50™% µœĻ50!š% µœŠ60÷›% µœŠ60ļœ% µœŠ60ߝ% µœŠ60ćž% µœŃ50%Ÿ% µœŃ60ū % µœŃ60ó”% µœŃ60ė¢% µœŅ’š8Ņ‘% µ0œÓü8¢šµ‘BÓ0›šišü8é% µš0œÓü8’š 8Ӎ¬’Ō_ב•%¶Ų50‘%µœŲ50 ’%µœŲ60§“%µœŲ60ć”%µœŲ50 •%µœŁ’š8Ł‘%µœŚü8•šµ‘BŚ›šišü8é%µšœŚü8’š 8Ś¬’Ū‘˜%¶Ü50‘%µœÜ60Ÿ’%µœÜ50 “%µœÜ50”%µœÜ50!•%µœŻ60Æ–%µœŻ60ó—%µœŻ60ė˜%µœŽ’š8Ž‘%µ œßü8˜šµ‘Bß ›šišü8é%µš œßü8’š 8ߍ¬’ą‘™%¶į50‘%µœį50 ’%µœį60Ÿ“%µœį50 ”%µœį50•%µœā60£–%µœā60§—%µœā60ó˜%µœā60ė™%µœć’š8ć‘%µ(œäü8™šµ‘Bä(›šišü8é%µš(œäü8’š 8䍬’å‘”% ¶ę50‘% µœę50 ’% µœę60Ÿ“% µœę60ó”% µœē’š8ē‘% µ0œčü8”šµ‘Bč0›šišü8é% µš0œčü8’š 8č¬’é‘œ%(¶ź50‘%(µœź50 ’%(µœź60Ÿ“%(µœź50 ”%(µœź50•%(µœė60£–%(µœė60§—%(µœė50˜%(µœė50™%(µœė60«š%(µœģ60ó›%(µœģ60ėœ%(µœķ’š8ķ‘%(µ8œīü8œšµ‘Bī8›šišü8é%(µš8œīü8’š 8ī¬’ļ‘š%0¶š50‘%0µœš50 ’%0µœš60Ÿ“%0µœš50 ”%0µœš50•%0µœń60£–%0µœń60§—%0µœń50˜%0µœń60ó™%0µœń60ėš%0µœņ’š8ņ‘%0µ@œóü8ššµ‘Bó@›šišü8é%0µš@œóü8’š 8󍬒ō‘˜%8¶õ50‘%8µœõ50’%8µœõ50!“%8µœõ60Æ”%8µœõ60ß•%8µœö50%–%8µœö60ó—%8µœö60ė˜%8µœ÷’š8÷‘%8µHœųü8˜šµ‘BųH›šišü8é%8µšHœųü8’š 8ų¬’łżü‘š%¶ż50‘%µœż50’%µœż60£“%µœż50”%µœż60«•%µœž60ß–%µœž50%—%µœž60ū˜%µœž60’™%µœž60ėš%µœ’’š8’‘%µœü8ššµ‘E›šišü8é%µšœü8’š 8Ø’‘”%¶50‘%µœ50 ’%µœ60Ÿ“%µœ50 ”%µœ50•%µœ60£–%µœ60§—%µœ50˜%µœ60«™%µœ50š%µœ60›%µœ50!œ%µœ60÷%µœ60ļž%µœ60ćŸ%µœ60ó %µœ60ė”%µœ’š8‘%µ œü8”šµ‘E ›šišü8é%µš œü8’š 8Ø’‘–%¶ 50‘%µœ 50!’%µœ 60ß“%µœ 50%”%µœ 60ó•%µœ 60ė–%µœ ’š8 ‘%µ(œ ü8–šµ‘E (›šišü8é%µš(œ ü8’š 8 Ø’ ‘–% ¶50‘% µœ50!’% µœ60Æ“% µœ50%”% µœ60ó•% µœ60ė–% µœ’š8‘% µ0œü8–šµ‘E0›šišü8é% µš0œü8’š 8Ø’‘ž%(¶50‘%(µœ50 ’%(µœ60Ÿ“%(µœ50 ”%(µœ50•%(µœ60£–%(µœ60§—%(µœ50˜%(µœ60Ū™%(µœ60÷š%(µœ50%›%(µœ60Æœ%(µœ60ó%(µœ60ėž%(µœ’š8‘%(µ8œü8žšµ‘E8›šišü8é%(µš8œü8’š 8Ø’‘˜%0¶50‘%0µœ60’%0µœ50!“%0µœ60Æ”%0µœ60÷•%0µœ60ļ–%0µœ60ó—%0µœ60ė˜%0µœ’š8‘%0µ@œü8˜šµ‘E@›šišü8é%0µš@œü8’š 8Ø’‘š%8¶50‘%8µœ50 ’%8µœ60Ÿ“%8µœ50 ”%8µœ50•%8µœ60£–%8µœ60§—%8µœ60Ƙ%8µœ60ó™%8µœ60ėš%8µœ ’š8 ‘%8µHœ!ü8ššµ‘E!H›šišü8é%8µšHœ!ü8’š 8!Ø’"‘œ%@¶#50‘%@µœ#50 ’%@µœ#60Ÿ“%@µœ#50 ”%@µœ#50•%@µœ$60£–%@µœ$60§—%@µœ$50˜%@µœ$50™%@µœ$60Æš%@µœ%60ó›%@µœ%60ėœ%@µœ&’š8&‘%@µPœ'ü8œšµ‘E'P›šišü8é%@µšPœ'ü8’š 8'Ø’(‘˜%H¶)50‘%Hµœ)50 ’%Hµœ)60Ÿ“%Hµœ)50 ”%Hµœ)50•%Hµœ*60£–%Hµœ*60ó—%Hµœ*60ė˜%Hµœ+’š8+‘%HµXœ,ü8˜šµ‘E,X›šišü8é%HµšXœ,ü8’š 8,Ø’-0‘–%¶150‘%µœ150 ’%µœ150“%µœ160§”%µœ160ć•%µœ260ė–%µœ3’š83‘%µœ4ü8–šµ‘E4›šišü8é%µšœ4ü8’š 84Ø’5‘˜%¶650‘%µœ650 ’%µœ660Ÿ“%µœ650 ”%µœ650!•%µœ760Æ–%µœ760ó—%µœ760ė˜%µœ8’š88‘%µ œ9ü8˜šµ‘E9 ›šišü8é%µš œ9ü8’š 89Ø’:‘£%¶;50‘%µœ;50 ’%µœ;60Ÿ“%µœ;50 ”%µœ;50•%µœ<60£–%µœ<60§—%µœ<50˜%µœ<50™%µœ<60«š%µœ=60Ū›%µœ=50œ%µœ=50!%µœ=60Æž%µœ>60÷Ÿ%µœ>60ļ %µœ>60ß”%µœ>60ó¢%µœ?60ė£%µœ@’š8@‘%µ(œAü8£šµ‘EA(›šišü8é%µš(œAü8’š 8AØ’B‘”% ¶C50‘% µœC50 ’% µœC60Ÿ“% µœC60ó”% µœD’š8D‘% µ0œEü8”šµ‘EE0›šišü8é% µš0œEü8’š 8EØ’F‘œ%(¶G50‘%(µœG50 ’%(µœG60Ÿ“%(µœG50 ”%(µœG50•%(µœH60£–%(µœH60§—%(µœH50˜%(µœH50™%(µœH60«š%(µœI60ó›%(µœI60ėœ%(µœJ’š8J‘%(µ8œKü8œšµ‘EK8›šišü8é%(µš8œKü8’š 8KØ’L‘™%0¶M50‘%0µœM50 ’%0µœM50!“%0µœM60÷”%0µœM60ļ•%0µœN60ß–%0µœN60ć—%0µœN60ó˜%0µœN60ė™%0µœO’š8O‘%0µ@œPü8™šµ‘EP@›šišü8é%0µš@œPü8’š 8PØ’Q‘˜%8¶R50‘%8µœR50’%8µœR50!“%8µœR60Æ”%8µœR60ß•%8µœS50%–%8µœS60ó—%8µœS60ė˜%8µœT’š8T‘%8µHœUü8˜šµ‘EUH›šišü8é%8µšHœUü8’š 8UØ’VY˜ hŽ” 7DDDDD D(D0D8D@D H€ AArrBArrDArrEArrFArrGArrHArrIArrMArrNArrFALSE ”¬·ĀĶŲćīł           !Yt€€€€€€ € €€€TypebdefghimnFrmatž„Ö€WhichControlactionsuppvalueFmSessionApplicationro written by: Joel Hahn, Niles Public Library District sub main ' Set up session abbreviation & variable strings dim CS as session set CS = CurrentSession Dim Check$, SaveNum$, TestNum$, TestNum2$ On Error Goto ErrHandler ' Set up input window, get input Begin Dialog Saves 320, 52 Caption "OCLC save file records to export" Text 1, 1, 140, 11, "Drop '/', separate numbers with '+'" Text 14, 13, 50, 11, "Save #'s:" TextBox 50, 13, 212, 11, .Nums OkButton 5, 28, 40, 20 CancelButton 55, 28, 40, 20 End Dialog dim NChoice as Saves NC=dialog(NChoice) If NC=0 then goto done ' Determine how many records there are c=1 Check$="+" TestNum$=NChoice.Nums For i=1 to Len(TestNum$) TestNum2$=Mid(TestNum$,i,1) If Asc(TestNum2$)=Asc(Check$) Then c=c+1 Next i 'Main loop cc=1 Do If GetField(NChoice.Nums,cc,"+")="" then goto Looper SaveNum$="/"+GetField(NChoice.Nums,cc,"+") 'CS.PutText SaveNum$, 1, 1 'RunMacro "PRSMUTIL!SendCommand" 'RunMacro "PRSMUTIL!Send" CS.Send SaveNum$+"\e" CS.Receive 30, "= Vmod SID: " '"SAVE" Goto Choice Ret: 'Choice "Ok" return point #1 CS.PutText "xpo", 1, 1 Runmacro "PRSMUTIL!SendCommand" CS.Receive 30, "USMARC" CS.PutText "s", 1, 1 Runmacro "PRSMUTIL!SendCommand" Looper: 'Choice "Skip" return point. cc=cc+1 Loop Until cc>=c+1 Goto done 'Go to the end of the macro 'Choose whether to continue with procedure on current record, 'skip current record and go on to the next, or abort altogether Choice: Begin Dialog Glitch 320, 100, 44, 65 Caption "Stopper" ButtonGroup .bg PushButton 2, 2, 40, 20, "Ok" PushButton 2, 22, 40, 20, "Skip" PushButton 2, 42, 40, 20, "Quit" End Dialog Dim Stopper as Glitch Dialog Stopper SChoices=Stopper.bg Select Case SChoices Case 2 'Quit Goto done 'End macro Case 1 'Skip Goto Looper Case 0 'Ok Goto Ret End Select ErrHandler: MsgBox "Error " & Err & "(" & Erl & "): " & Error Resume done done: end sub ķžQ_ĒĶ$ņ³2#6Ą OCLC save file records to export#Drop '/', separate numbers with '+' Save #'s:__Nums__+/\e ĄČ= Vmod SID: ĄČxpoĄČPRSMUTIL!SendCommand ĄČUSMARCsStopperOkSkipQuit #bg___Error (): V§#”’’’’V F" ,<P` (p€08"@ ˜šŗŹŚź"2CS_NChoiceNCcCheckTestNumi____TestNum2_cc_SaveNum_StopperSChoices________main  F Fm„K+Passport— ” ~u2\[Ų   € € @4 ’j œ € € € € 5  €j ’’’Œœ 5 ( €j ’Ÿž2œ 5 N €j“2žŌœ ‘j™–­(„ €jš7­(„ €j5 Zj‘ełšü‘šµ‘e’š,5 kœœLj<’š f ń’šcP`V›’ü<é© i(œ‘(e‘e‚‘ü,’š p,iLP`Ŗ’ ’š€!"›5 k© ż€éi7²‘"Ģ#5o›5 k© ż€éiš08œ'q85 sš2\x(qÆ5 ~©‘2\)„Given a series of save file numbers, export each in turn via the revised method+q5 —©’’‘2\,u5 ¦©2\½-qÆ5 Ć©‘2\.q5 Ģ©’’‘2\/u5 ¦©2\½1ż€’š p€2ż€ü,’š pµ‘Ųž3‹8@ @d,A ’j9@œ € € € € 5 Š €j:;@›““(„ 5 Ś‘j<@›“§(„ 5 ߑj=@›“*(„ 5 ę‘j>5 ķ@j@@˜jA˜ššBżšŖC\CżŖ“šé‘DšE;EżŖ’šé‘FøžGGżBatchXpo.BIN’’’’’’’’”YPrintAreaNoDiacritics.SRC4’’’’’’’’’’’’Ū‰PrintAreaNoDiacritics.DES4’’’’’’’’õ9PrintAreaNoDiacritics.BIN44’’’’÷ńŖ‘šé‘H(žL5 ūöp‘eašŗ6öŹŚ f#ńź6śö"l¾2ļjM”P˜t +P%qƒ&ėNumsSaves$üŒP€bgGlitchxSessionApplication' MacroName: Change049 ' MacroDescription: Change the info in an 049 to the desired ' holding symbol ' Macro written by: Joel Hahn, Niles Public Library District sub main dim CS as session 'Set up "CS" as an alternative set CS = CurrentSession 'to "CurrentSession" 'To add/delete 3-letter holding symbols, simply add a line 'where you want the new symbol to be or delete the desired 'symbol, and shift all of the other numbers in parentheses 'accordingly, then change the number in "Dim Hold$(##)" to 'match the number of the final entry. To change the possible 'fourth letters, see the next section. Dim Hold$(24) Hold$(0)="JED" Hold$(1)="C2Y" Hold$(2)="GEZ" Hold$(3)="IHN" Hold$(4)="JEB" Hold$(5)="JEE" Hold$(6)="JEF" Hold$(7)="JEG" Hold$(8)="JEI" Hold$(9)="JEJ" Hold$(10)="JEK" Hold$(11)="JEL" Hold$(12)="JEM" Hold$(13)="JEN" Hold$(14)="JEO" Hold$(15)="JEP" Hold$(16)="JEQ" Hold$(17)="JEW" Hold$(18)="JXC" Hold$(19)="KAJ" Hold$(20)="KAO" Hold$(21)="JE2" Hold$(22)="JE3" Hold$(23)="JE4" Hold$(24)="JUB" 'Following is the list of all of the possible fourth letters 'currently available to CCS libraries. No attempt has been 'made to include any sort of verification that a particular 'letter is used by a particular library; that is left up to 'th' MacroName: PrintAreaNoGraphics ' MacroDescription: Prints a selected block of text, replacing all ' diacritics ' Macro written by: Joel Hahn, Niles Public Library District sub main dim CS as Session set CS = CurrentSession Dim CheckDiatritic as Integer PrinterPort$="LPT1" Attr=0 AttrEnd=0 'Open Printer Port FileNumber% = FreeFile Open PrinterPort$ for Append As FileNumber% i=1 j=1 Do Do CS.GetChar Testr$, Attrib%, i, j ' MsgBox Str(Attrib%) & "--" & i & " x " & j If Attr=0 Then If Attrib%<>NORMAL Then Attr=1 StartRow%=i StartCol%=j Exit Do End If End If If Attr=1 Then If Attrib%=NORMAL Then EndRow%=i EndCol%=j-1 AttrEnd=1 Exit Do End If End If j=j+1 Loop While j<=80 If AttrEnd=1 Then Exit Do End If i=i+1 j=1 Loop While i<=29 If EndCol%=0 Then EndRow%=EndRow%-1 EndCol%=80 End If 'MsgBox StartRow% & "-" & StartCol% & "-" & EndRow% & "-" & EndCol% CS.GetTextInRegion Temp$, StartRow%, StartCol%, EndRow%, EndCol%, TRUE StrLen%=Len(Temp$) For CheckDiacritic=1 to StrLen% Char$=Mid$(Temp$, CheckDiacritic, 1) Result%=Asc(Char$) If Result%>127 Then Select Case Result% Case 223 Mid(Temp$, CheckDiacritic, 1)="|" Case 220 Mid(Temp$, CheckDiacritic, 1)=">" Case 221 Mid(Temp$, CheckDiacritic, 1)=" " Case Else Mid(Temp$, CheckDiacritic, 1)="*" End Select End If Next CheckDiacritic Buffer$=Temp$ 'MsgBox Buffer$ Print #FileNumber%,Buffer$ Prints a selected block of text, replacing all diacriticsend sub ķž7Q2ƒöü$8’Ź#ĪĄLPT1ĄČĄ€ĄČ|> *R[7§#”’’’’V F$€46F€V€X€Z€\€^`€pr†– (€¦0CSPrinterPortAttrAttrEndFileNumberijTestrAttribStartRowStartColEndRowEndCol_TempStrLenCheckDiacritic____CharResultBuffermain 5F Fm„K+Passport—ģ      ž’’’ !"#$%&'()*+,-./0123456789:;<ž’’’>ž’’’@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdež’’’ghijklmož’’’ž’’’qrstuvwxy{|}~€ž’’’~u2\[Ų5 œ‘š‘š$ ‘eA48 ‘4#jC’š6’šFqVü6éüFé2\ ü‘šµ‘?V€‡‘-’šü6éX8üFéZ8†ü’šµ‘EV€‚‘3ü6é\8üF’šé^8 ’š$!,"#$üF’š `F%üFPšµ ’&ü$’šµ‘'4()ü6’š `6*’šF+ü6®šµ½ž-^‘‚‘.\’F\8/P^803qXZ\^’2\5 f Ép86‚jr’špš’šc†–ž7›’üré© i(œ8‘(e¦8:¦s‘°;¦Ø8<˜<Ø߂‘=üré’5 "jw>m>Ø܂‘?üré’5 &jw@B@ØŻ‚‘Aüré’5 *jwBBCüré’5 .jwEFi‚†–’H0œJ4jP”0jWjQL˜ - € € NORMALTRUE1Print an entire record, replacing diacritics with given characters. This is a modification of OCLC's PrintRecord macro. PrintRecordNoDiacritics.SRC8’’’’’’’’õ PrintRecordNoDiacritics.DES8’’’’yPrintRecordNoDiacritics.BIN8 ’’’’’’’’ PrintRecordRemoveDiacritics.SRC@’’’’’’’’’’’’ŸME", 1, 1 RunMacro "PRSMUTIL!SendCommand" end if if Buffer$ <> "" then Buffer$=chr(13)+chr(10)+Buffer$ PrintBuffer Buffer$ SetStatusMessage "Full record printed." else SetStatusMessage "Unable to print record." end if end sub ķžļQj»pƒ$Ėtƒ ÷ #ū ĄĄĄĄĄČ displayed.Entire Beginning of $You are already at beginning of the #You are already viewing the entire HOMEĄČPRSMUTIL!SendCommand ĄČĄ|> `^~'_*End of You are already at end of the PRSMUTIL!PageDown ĄČFull record printed. ĄČUnable to print record. Ģļ]VœŅ’’’’–Č»§#”’’’’ 0@PbRetValTemp______V F€ €.0€@€BDXh €x(€|~Žž®CSColumnsText___bLoopnPagesRowTempStrLenCheckDiacritic__CharResultBufferbAtTop____CheckMessagemain €-€+€5  6€F Fm„K+Passport—Š ‘š› £Śf É£Žiœ‘ö ś0£Śö@śPl­‘šµ‘Y› £Öf É£Žiœ‘ö ś0£Öö@śPl­‘šµ‘  ’š   ü£Ņ˜—~u2\[Ų‘q2\ ’‚‘‘q2\ 8 ‘q2\ 8  q“’“ ‘2\5#©5&1©’‘šµ‘©5#©5&;©’‘šµ‘~7©5K©’‘šµ‘U7©5r©’‘šµ‘,q5˜©’’‘2\Ÿu5Ø©2\æ !#’.8$‘š0'.’‚‘(‘q2\Å@8*q—’@ ’2\, f ÉB8-TjD’šBš’šcXhÕ.›’üDé©i œ/‘ ex81xs‘‰2xz83s3z߂‘4üDé’5Źjw5I5z܂‘6üDé’5Ījw77zŻ‚‘8üDé’5Ņjw9õ9zį‚‘:üDé’5Öjw;Ė;z悑<üDé’5Śjw=”=z䂑>üDé’5Žjw?w?zķ‚ zž‚‘@üDé’5ājwAAAzö‚‘BüDé’5ęjwCCDüDé’5źjwFGiTXh+žI(š(œLq“’“ ‘2\N‘.8O‘|8R5#©5&1©’’šµ‘S’|8TÕV5#©5&ī©’‘šµ‘ŖY7©5ų©’‘šµ‘\7©5r©’’šµ‘]’|8^G`u6©2\æbü0’š 0eü0 šµ‘ f’.8ghijkleüo|‘‚‘,pq5˜©’’‘2\Ÿqu5Ø©2\ært(7±‘Zužl“~›l“ Ž(öž®ļ(œvu(2\-wu63©2\Jxyu6P©2\Jz{˜ (: € € € FALSETRUEBLOCKDmTextBeginningEndingSessionApplicationPrint an entire record, stripping out all diacritics without replacementķž£QF—$7$t! • #™ PrintRecordRemoveDiacritics.DES@’’’’=HPrintRecordRemoveDiacritics.BIN@’’’’’’’’’’’’?¼ Save-xpo-Save.SRC$6’’’’f!Save-xpo-Save.DES$’’’’’’’’n' MacroName: PrintRecordNoDiacritics ' MacroDescription: Print an entire record, replacing diacritics ' with given characters. This is a modification ' of OCLC's PrintRecord macro. ' Modified by: Jim Ferguson ' Catalog Dept., Geisel Library ' University of California, San Diego ' Further Modified by: Joel Hahn ' Niles Public Library District function CheckMessage(Text$, Beginning$, Ending$) bRetVal = FALSE Temp$ = Left$(Text$, Len(Beginning$)) if StrComp(Beginning$, Temp$) = 0 then Temp$ = Right$(Text$, Len(Ending$)) if StrComp(Ending$, Temp$) = 0 then bRetVal = TRUE end if end if CheckMessage = bRetVal end function sub main dim CS as Session set CS = CurrentSession Dim CheckDiatritic as Integer ' Determine how many columns are in the record if CS.CommMode = BLOCK then Columns% = CS.BlockColumns else Columns% = CS.FDXColumns end if ' Make sure we are at the top of the record CS.GetTextInRegion Text$, 2, 1, 2, Columns% ' Check for "Entire --- displayed." if CheckMessage(Text$, "Entire ", " displayed.") = FALSE then ' Check for "Beginning of --- displayed." if CheckMessage(Text$, "Beginning of ", " displayed.") = FALSE then ' Check for "You are already at beginning of the ---" if CheckMessage(Text$, "You are already at beginning of the ", "") = FALSE then ' Check for "You are already viewing the entire ---" if CheckMessage(Text$, "You are already viewing the entire ", "") = FALSE then ' Move position to the beginning of the record CS.PutText "HOME", 1, 1 RunMacro "PRSMUTIL!SendCommand" end if end if end if end if bLoop% = TRUE nPages = 0 ' Get text to be printed Do While bLoop% = TRUE Row% = CS.GetLastRowUsed CS.GetTextInRegion Temp$, 6, 1, Row%, Columns%, TRUE StrLen%=Len(Temp$) For CheckDiacritic=1 to StrLen% Char$=Mid$(Temp$, CheckDiacritic, 1) Result%=Asc(Char$) If Result%>127 Then Select Case Result% Case 223 Mid(Temp$, CheckDiacritic, 1)="|" Case 220 Mid(Temp$, CheckDiacritic, 1)=">" Case 221 Mid(Temp$, CheckDiacritic, 1)=" " Case 225 '***[Grave, non-spacing] Mid(Temp$, CheckDiacritic, 1)="`" Case 227 '***[Circumflex, non-spacing] Mid(Temp$, CheckDiacritic, 1)="^" Case 228 '***[Tilde, non-spacing] Mid(Temp$, CheckDiacritic, 1)="~" Case 237, 254 '***[High Comma, (off-)center] Mid(Temp$, CheckDiacritic, 1)="'" Case 246 '***[Underscore, non-spacing] Mid(Temp$, CheckDiacritic, 1)="_" Case Else Mid(Temp$, CheckDiacritic, 1)="*" End Select End If Next CheckDiacritic Buffer$ = Buffer$ + Temp$ ' Get message at the top of the record CS.GetTextInRegion Text$, 2, 1, 2, Columns% bLoop% = FALSE bAtTop% = FALSE ' Check for "Entire --- displayed." if CheckMessage(Text$, "Entire ", " displayed.") = TRUE then bAtTop% = TRUE else ' Check for "End of --- displayed." if CheckMessage(Text$, "End of ", " displayed.") = FALSE then ' Check for "You are already at end of the ---" if CheckMessage(Text$, "You are already at end of the ", "") = FALSE then ' Check for "You are already viewing the entire ---" if CheckMessage(Text$, "You are already viewing the entire ", "") = TRUE then bAtTop% = TRUE else ' Move to the next page RunMacro "PRSMUTIL!PageDown" nPages = nPages + 1 ' Allow only 15 pages to print if nPages < 15 then bLoop% = TRUE end if end if end if end if end if Loop ' Move position to the beginning of the record if bAtTop% = FALSE then CS.PutText "HOĄĄĄĄĄČ displayed.Entire Beginning of $You are already at beginning of the #You are already viewing the entire HOMEĄČPRSMUTIL!SendCommand ĄČĄEnd of You are already at end of the P