ŠĻą”±į>ž’ ž’’’€’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ż’’’ ŲØé! "#$%&'()*+,-./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 PRSMUTIL!PageDown ĄČFull record printed. ĄČUnable to print record. Ģ£]VœŅ’’’’Œ²o§#”’’’’ 0@PbRetValTemp______V F€ €.0€@ €B€DF(€V08CSColumnsText___bLoopnPagesRowTempBufferbAtTopStrLenCheckDiacriticCharResultlrCheckMessagemain €-€+€5  6€F Fm„K+Passport—Š ‘š› £Śf É£Žiœ‘ö ś0£Śö@śPl­‘šµ‘Y› £Öf É£Žiœ‘ö ś0£Öö@śPl­ż’’’     ž’’’%! "$#&)9'(*.+,-/701234568D:K;<=>?@ABCEHFGIž’’’ž’’’’’’’ž’’’’’’’NOPQRSTUVWXYZ[\]^_`abž’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’‘𵑠 ’š   ü£Ņ˜—¢ ~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\, š œ/q“’“ ‘2\1‘.82‘B855#©5&1©’’šµ‘6’B87Ó95#©5&Ź©’‘𵑨<7©5Ō©’‘šµ‘?7©5r©’’šµ‘@’B8AECu5õ©2\æEü0’š 0Hü0 šµ‘ I’.8JKLMNOnžRB‘‚‘,Sq5˜©’’‘2\ŸTu5Ø©2\æUW 7±‘MX  f ÉD8Y’šFZüFDšµ‘ń[›’üFé ©i(œ\(7±‘\‘(eV8\\Ž^‘›’üFé ©ies‘e_›üF’šé i0œ`›DšüF’šéüF’š é ©i8œa08š œbdüF’š Feüžgu 2\ lu6©2\&mnu6,©2\&op˜ (: € € € FALSETRUEBLOCKDmTextBeginningEndingSessionApplication' MacroName: Save-xpo-Save ' MacroDescription: Save record, Export record, then re-save ' Macro written by: Joel Hahn, Niles Public Library District sub main dim CS as session set CS = CurrentSession CS.PutText "s",1,1 RunMacro "PRSMUTIL!SendCommand" CS.GetTextInRegion SaveNum$,2,34,2,37 CS.PutText "/"+CStr(SaveNum),1,1 RunMacro "PRSMUTIL!SendCommand" CS.PutText "xpo", 1, 1 RunMacro "PRSMUTIL!SendCommand" CS.Receive 20, "USMARC" CS.PutText "s", 1, 1 RunMacro Export record, then save"PRSMUTIL!SendCommand" end sub Save-xpo-Save.BIN$1’’’’’’’’p‡xpo-save.SRC’’’’’’’’’’’’z[xpo-save.DES#’’’’xpo-save.BIN’’’’’’’’’’’’ź' MacroName: PrintRecordRemoveDiacritics ' MacroDescription: Print an entire record, stripping out all diacritics without replacement ' OldMacroDescription: 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 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 "HOME", 1, 1 RunMacro "PRSMUTIL!SendCommand" end if if Buffer$ <> "" then StrLen%=Len(Buffer$) CheckDiacritic=1 Do While CheckDiacritic"" Then Result%=Asc(Char$) Else Goto Looper If Asc(Mid$(Buffer$, CheckDiacritic, 1))>127 Then l$=Left(Buffer$, CheckDiacritic-1) r$=Mid$(Buffer$, CheckDiacritic+1, StrLen%-CheckDiacritic-1) 'Right(Temp$, StrLen%-CheckDiacritic-1) Buffer$=l$+r$ End If Looper: CheckDiacritic = CheckDiacritic +1 Loop PrintBuffer Buffer$ 'filenum%=FreeFile 'Open "C:\tester.txt" for Output as filenum% ' Write #filenum%, Buffer$ 'Close filenum% SetStatusMessage "Full record printed." else SetStatusMessage "Unable to print record." end if end sub ķž=QU¦īō$I`#dĄsĄČPRSMUTIL!SendCommand ĄČĄČ/xpoUSMARCĄČ =§#”’’’’V FCS_SaveNummain  5F Fm„K+Passport—. ~u2\[Ųq5 ©’’‘2\ u5 ©2\)q“"“%‘2\/q5 :š’’‘2\  u5 ©2\) q5 >©’’‘2\  u5 ©2\) q„5 D©‘2\Mq5 ©’’‘2\ u5 ©2\)˜ SessionApplication' MacroName: xpo-save ' MacroDescription: Export record, then save ' Macro written by: Joel Hahn, Niles Public Library District sub main dim CS as session set CS = CurrentSession CS.PutText "xpo", 1, 1 RunMacro "PRSMUTIL!SendCommand" CS.Receive 20, "USMARC" CS.PutText "s", 1, 1 RunMacro "PRSMUExport record, then savež’’’‚ƒ„…†‡Ū‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ”¢£¤„¦§ž’’’©Ŗ«¬­®Æ°±²³“µ¶·ø¹ŗ»½ž’’’¾æĄĮĀĆÄÅĘĒČÉŹĖĢĶĪĻŠŃŅÓž’’’ÕÖ×ŲŁŚŪž’’’ŻŽßąįāćäåęēž’’’éźėž’’’ķīšž’’’ńņž’’’ōõö÷ųłśž’’’üżžž’’’TIL!SendCommand" end sub ķžQF—ĻÕ$ó¬Ć#ĒĄxpoĄČPRSMUTIL!SendCommand ĄČUSMARCĄČs •§#”’’’’V FCS_main  F Fm„K+Passport—& ~u2\[Ųq5 ©’’‘2\ u5 ©2\+q„5 1©‘2\:q5 B©’’‘2\ u5 ©2\+˜ Change049.SRC’’’’-’’’’ÅB Change049.DES 5’’’’¼7Change049.BIN’’’’’’’’ؐ CtrlEnd.SRC’’’’’’’’’’’’Ōōe person using the macro. To alter this list, simple 'add or delete a line, and shift the numbers accordingly, 'then change the number in "Dim Div$(##)" to match the 'number in the final entry. Dim Div$(35) Div$(0)="A" Div$(1)="B" Div$(2)="C" Div$(3)="D" Div$(4)="E" Div$(5)="F" Div$(6)="G" Div$(7)="H" Div$(8)="I" Div$(9)="J" Div$(10)="K" Div$(11)="L" Div$(12)="M" Div$(13)="N" Div$(14)="O" Div$(15)="P" Div$(16)="Q" Div$(17)="R" Div$(18)="S" Div$(19)="T" Div$(20)="U" Div$(21)="V" Div$(22)="W" Div$(23)="X" Div$(24)="Y" Div$(25)="Z" Div$(26)="0" Div$(27)="1" Div$(28)="2" Div$(29)="3" Div$(30)="4" Div$(31)="5" Div$(32)="6" Div$(33)="7" Div$(34)="8" Div$(35)="9" 'Set up instructions to be displayed in the dialog box Instruct$="Pick the desired 3-letter code and 4th letter. " Instruct$=Instruct$+"Either use the mouse, or type the first " Instruct$=Instruct$+"letter (repeatedly, if necessary) and Tab " Instruct$=Instruct$+"to move to the next field." 'Set up and run the dialog box Begin Dialog newdlg 75, 54, 141, 73 Caption "Change 049" Text 1, 3, 140, 32, Instruct$ DropListBox 12, 40, 28, 14, Hold(), .Library DropListBox 40, 40, 17, 12, Div(), .Division OkButton 12, 54, 28, 14 CancelButton 40, 54, 28, 14 End Dialog Dim HoldSymbols as newdlg result = Dialog(HoldSymbols) If result = 0 Then Goto Done 'Use the information gathered from the dialog box to 'create the desired holding symbol HSymb$=Hold$(HoldSymbols.Library)+Div$(HoldSymbols.Division) CS.PutText "tag 049", 1, 1 RunMacro "PRSMUTIL!SendCommand" CS.PutText HSymb$, 6, 16 CS.ToggleEdit ' Send an Alt-F10 to send the change RunMacro "PRSMUTIL!SendEdits" ' Automatically update record CS.MoveCursor 1, 1 CS.PutText "u" RunMacro "PRSMUTIL!SendCommand" Done: end sub ķžQR£@F$k§Ā i #m ĄJEDC2YGEZIHNJEBJEEJEFJEGJEIJEJJEKJELJEMJENJEOJEPJEQJEWJXCKAJKAOJE2JE3JE4JUBABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890Pick the desired 3-letter code and 4th letter. (Either use the mouse, or type the first *letter (repeatedly, if necessary) and Tab to move to the next field. Change 049_LibraryDivision__tag 049ĄČPRSMUTIL!SendCommand ĄČ ĄPRSMUTIL!SendEdits Ąu3§#”’’’’ W F@@"  (CSHoldDivInstruct__HoldSymbolsresultHSymbmain  #7F Fm„K+Passport—b ~u2\[Ų 5 ‘“œ 5 ’“œ 5 ““œ5 ”“œ5 •“œ5 #–“œ5 )—“œ5 /˜“œ5 5™“œ5 ;š“œ5 A›“œ5 Gœ“œ5 M“œ5 Sž“œ5 YŸ“œ5 _ “œ5 e”“œ5 k¢“œ5 q£“œ5 w¤“œ5 }„“œChange the info in an 049 to the desired holding symbol 5 ƒ¦“œ!5 ‰§“œ"5 Ø“œ#5 •©“œ.5 ›‘“œ/5 Ÿ’“œ05 £““œ15 §”“œ25 «•“œ35 Ɩ“œ45 ³—“œ55 ·˜“œ65 »™“œ75 æš“œ85 ƛ“œ95 ǜ“œ:5 Ė“œ;5 Ļž“œ<5 ӟ“œ=5 × “œ>5 Ū”“œ?5 ߢ“œ@5 㣓œA5 礓œB5 ė„“œC5 煉œD5 ó§“œE5 ÷Ø“œF5 ū©“œG5 ’Ŗ“œH6 «“œI6 ¬“œJ6 ­“œK6 ®“œL6 Æ“œM6 °“œN6  “œO6 !“œP6 #"“œQ6 '#“œT6 +œU6 ^šœV6 ‰šœW6 ¶šœZ K6I ’j[ œ € € € € 6 Ó €j\ ’’”Œ  €j] ˜(­Ÿ ‘j^ ˜((¢ “j_ ™6­Ÿ €j` š(6­Ÿ €ja6 ą jc‘ ełšdü‘šµ‘dĘh““š(œjq6 ū©’’‘2\ku6 ©2\%mq(—”‘2\nq‘‘2\+qu6 2©2\%tq’’2\Guq6 N©‘‘‘2\vu6 ©2\%y˜œ DSb#:‚¬ƒ€€LibraryDivisionnewdlg SessionApplication' MacroName: CtrlEnd ' MacroDescription: Go to end of current page in OCLC ' Slightly altered version of a macro created by Rhoda Bilansky sub main dim CS as session set CS = CurrentSession if CS.CommMode = BLOCKMODE then LastCol% = CS.BlockColumns else LastCol% = CS.FDXcolumns end if LastRow% = CS.GetLastRowUsed CS.GetTextInRegion Temp$,LastRow,1,LastRow,LastCol endcol=Rtrim(len(Temp$))+1 If endcol>80 then endcol=80 CS.PutText chr$(0),LastRow,endcol end sub ķžQ-~"($[„›#ŸĄĄĄĄĄĄČĄČ§#”’’’’ V F €€ 0@PCSBLOCKMODELastColLastRowTemp___endcol_main€-€+€6€5 F Fm„K+Passport—‚~u2\[Ų‘q2\šü µ‘‘q2\ 8‘q2\8 ‘q2\8 q’‘2\  f ńś0l•’š @P üPP𵑠 PšPq›‘iüPé‘2\$˜ SessionApplication' MacroName: CtrlHome ' MacroDescription: Go to beginning of current page in OCLC ' Macro created by: Rhoda Bilansky sub main dim CS as session set CS = CurrentSession CS.PutText chr$(0),1,1 end sub ķžŃQ_—$­*#.ĄĄČ Bѧ#”’’’’V FCS_main F FGo to end of current page in OCLCCtrlEnd.DES ’’’’ļ!CtrlEnd.BIN’’’’’’’’’’’’ÜĀCtrlHome.SRC’’’’0’’’’čŌCtrlHome.DES /’’’’’'m„K+Passport— ~u2\[Ųq›‘i’’‘2\˜ SessionApplication' MacroName: End ' MacroDescription: Go to end of a line in OCLC ' Slightly altered version of a macro by Rhoda Bilansky sub main dim CS as Session set CS = CurrentSession if CS.CommMode = BLOCKMODE then LastCol% = CS.BlockColumns else LastCol% = CS.FDXcolumns end if CS.GetTextInRegion Temp$,0,1,0,LastCol% On Error Goto LongLine CS.PutText chr$(0),0,Len(RTrim(Temp$))+1 Goto Done LongLine: CS.PutText chr$(0),0,Len(RTrim(Temp$)) Resume Done Done: end sub ķž@Q(yźš$@W#[ĄĄĄĄĄČĄČ@§#”’’’’V F €CSBLOCKMODELastColTemp__main€Go to beginning of current page in OCLCCtrlHome.BIN’’’’’’’’’’’’ģQEnd.SRC’’’’9’’’’óųEnd.DES*’’’’ End.BIN’’’’’’’’’’’’ū~ž’’’ ž’’’  ž’’’ž’’’ž’’’ž’’’ž’’’ !"#$%ž’’’'()*+,-./013ž’’’456789:;ž’’’ž’’’>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqž’’’stuvwxyz{|}~€-€+€5 F Fm„K+Passport—@ ~u2\[Ų‘q2\šü µ‘‘q2\ 8‘q2\8 q‘’‘‘2\  ; q›‘i‘ ›i f Cɑ2\ 3q›‘i‘ ›i f ɑ2\”˜ SessionApplication' MacroName: Home ' MacroDescription: Go to beginning of current line in OCLC ' Macro created by: Rhoda Bilansky sub main dim CS as session set CS = CurrentSession CS.PutText chr$(0),0,1 end sub ķžŃQ_—$­*#.ĄĄČ Bѧ#”’’’’V FCS_main F FGo to end of a line in OCLCm„K+Passport— ~u2\[Ųq›‘i‘’‘2\˜ SessionApplicationSessionApplication' MacroName: SaveSearch ' MacroDescription: Search the save file for a given title or ' OCLC# ' Macro written by: Joel Hahn, Niles Public Library District sub main Dim CS as Session Set CS=CurrentSession Begin Dialog UserDialog 101,61,"Search" OKButton 8,40,40,14 CancelButton 52,40Home.SRC’’’’’’’’’’’’ŠHome.DES’’’’'Home.BIN8’’’’’’’’ QSaveSearch.SRC’’’’3’’’’I,40,14 OptionGroup .TitleOclc OptionButton 8,12,28,8,"Title" OptionButton 40,12,52,8,"OCLC Number" TextBox 8,24,84,12,.Data End Dialog Dim Search as UserDialog x=DialoGo to beginning of current line in OCLCg(Search) If x=0 Then Goto Done 'If Search.TitleOclc=0 Then 'Title 'If Search.TitleOclc=1 Then 'OCLC Number SR%=1 : SC%=1 : y=1 Do While CS.Find(Search.Data, SR%, SC%)=FALSE CS.PutText "PDN", 1, 1 RunMacro "PRSMUTIL!SendCommand" CS.GetTextInRegion test$, 2, 1, 2, 15 'msgBox "/" & test$ & "/" If test$="You are already" then MsgBox "Not found." Goto Done End If y=y+1 If y>=80 Then Exit Do Loop If SR%<>1 and SC%<>1 Then MsgBox "Text Found at: " & CStr(SR%) & ", " & CStr(SC%) & "." Else MsgBox "Not found." End If Done: end sub ķžQ» ŠÖ$ūlł#żĄSearchTitle OCLC Number__@TitleOclc__DataĄČĄĄPDNĄČPRSMUTIL!SendCommand ĄČĄČYou are already Not found.Text Found at: , .,n§#”’’’’V F" €.€02B (08CS_SearchxSRSCy_test______main€  5F Fm„K+Passport—¬ ~u2\[Ų € €e= ’jœ € € € € 5  €j™™((Ÿ €jš4((Ÿ €j”™­™ 5 ‘j ”(4™ 5 ‘j “™©Search the save file for a given title or OCLC#T “j 5 $j ‘ełšü‘šµ‘A’.8’08’š2‘q.0‘‘2\@‘‚‘ q5 J©’’‘2\Pu5 Y©2\pq“’“ ‘2\v5 ²‘5 “©j•ü2’š B2ü2Pšµ‘=’.’‡0’‡U‘7SaveSearch.DES+’’’’2/SaveSearch.BIN’’’’’’’’’’’’& TextArea.SRC’’’’’’’’Ma+TextArea.DES".’’’’<1 5  .Čš5R²š 0Č(š05Z·š8j! "5 “©j#&˜ a € FALSE%< æt8€TitleOclcDataUserDialogeSessionApplicationUse a Text field to view lengthy TextBox contentsķžQčµ9ź ) Sample note. Edit as desiredtxtNoteslblNotesContentsNOTES Length: lblNotesSize btnPreviewbtnOkayōNotes must not exceed characters. Notes field should not exceed characters=?Sample echo of long TextBox values in word-wrapping Text labelsNOTESPreview-gbtnOkay_lblNotestxtNoteslblNotesContentsbtnPreviewlblDashLineBottomlblDashLineToplblNotesSizeYou selected cancelThe new Note value is :You clicked control button #$ń¶˜# ×’’’’ó*Ģ Bõ]Ž’’’’ö §#” *:Rb€r€t€v€x (€StoredNote________CurrentNoteszStoredNoteijkltrtWarningGiven " €"&6F__DashLine__dlgLongTextresponse___fnLongTextDlgShowNotesDialogmain—Ä  IŚ8 ‘ ’‚‘Ā5%œ%5©ö śŠ‘‘%Į‘%µ7²‘%‘%µœ%5*©ö śŠ 5=ö* %f ńślc:ļ5JN©öRśbŠ"5©ö śŠ0Į0“‚‘ś3£Žœ5Ż55]²‘EB’š£ŅD›5©ö ś‰jF5©ö śŠNˆN5l²‘xQ›5©ö ś‰œR f ōt‘?S5xö* ōšślc:5JöRbļjU’š£ŅVY¹Y”‚‘\¤\•‚‘ff–‚‘q’š£Ņu›‰5±‘ u4V›5©ö ś‰œ„%±‘%†%œŽ‘‘%Į%‘%µœ %f Ė T@QÕr8‘‘r’B%Į’‘t8“t‘’%efx‘Ś”t%µ7²‘•tv8–v‘’%efx‘e—v’B‘’%efx‘"˜v’B%µv%µœ™š7v%µœ›œv’Bv8…’ž ž t%µf Pt‘£Px8¤›’xt%µ©i5Ÿ±‘.„x’Fx8¦x‘‚‘§ Ø©¬’Ŗx‘‚‘ ŖPx8«›xt%µi œ¬› t%µf xĆGÉt%µi(œ­ t%µœ®(5Ÿšt’B%µšt’B%µœ±²t’Bt8³ž“%5*©ö śŠ ¹5=ö* f ńślc:ļ5JN©öRśbŠ» f ōo‘¼‘#8½TĆ’‡‘CÄjÅ5„ö* ōšślc:5JÅöRbļjĒ’#8ČÉŹ͘—ˆ5Ó©UlÅļœ¦¢ 5Ŗ‘jœ € € € € 5× €j™—2Ÿ €jšÓ—2Ÿ €j’››¬ 6 €j“-˜ £ ‘j —š/ $a %™j ›g—2Ÿ 6! €j ’™Ž $š  €j ’šÆ $  €j ’š—YŸ 6+ €j6/j‘eł"8"$8x$‘‚‘6™©jT$ ’‚‘6Æšj+6Éö6"šś&lcFļj˜—’˜ @Łd7D€j €v €£ €_AListTRUEMaxNoteLengthFALSE_ƒŽ K –Ī€txtNoteslblNotesContentsLongTextDialog送idactionsuppvalue' MacroName: UnEnhance505 ' MacroDescription: Remove the delimiters from all enhanced 505's on the current page of a record. ' Macro written by: Joel Hahn, Niles Public Library District sub main Dim CS as Session Set CS=CurrentSession done=0 Doit: StartRow%=1 StartCol%=1 While CS.Find(" 505 ", StartRow%, StartCol%) done=1 CS.PutText " 505 0 " EndRow%=STextArea.BIN’’’’’’’’’’’’=- UnEnhance505.SRC"’’’’’’’’’’’’rUnEnhance505.DES",’’’’²NUnEnhance505.BIN"’’’’’’’’’’’’‡>tartRow% EndCol%=StartCol% CS.Find chr(221), EndRow%, EndCol% If EndCol%=1 Then EndRow%=EndRow%-1 delim$=chr(223) NextR%=StartRow% NextC%=StartCol% Do While NextR%<=EndRow% CS.Find delim$, NextR%, NextC% If (NextR%=OldNR% And NextC%=OldNC%) Then Exit Do If NextR%>EndRow% Then CS.Find " ", NextR%-1, NextC% Exit Do End If If NextC%>77 Then EndR%=NextR% EndC%=NextC% Else EndR%=NextR% EndC%=NextC%+1 ‚ƒ„…†ž’’’ˆ‰Š‹ŒŽ‘’“”•–—˜™š›ž’’’žŸ ”¢£¤„¦§Ø©Ŗ«¬­®Æ°±“³ž’’’µ¶·ø¹ŗ»¼ž’’’¾æĄĮĀĆÄÅĘĒČÉŹĖĢĶĪĻŠŃŅÓŌÕÖ×ŲŁŚž’’’ž’’’ŻŽąž’’’ž’’’āćåž’’’ęēčž’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ End If NextC%=NextC%-1 If NextC%<1 Then NextR%=NextR%-1 NextC%=NextC%+80 End If CS.Delete NextR%, NextC%, EndR%, EndC% OldNR%=NextR% : OldNC%=NextC% Loop StartRow%=EndRow% StartCol%=EndCol% Wend If done=1 Then RunMacro "PRSMUTIL!SendEdits" CS.Find " ", DumbRow%, DumbCol% Else MsgBox "No 505 fields found on this page." End If end sub ķž%QvĒÖÜ$#Ą 505 ĄČĄĄ 505 0 ĄČ ĄPRSMUTIL!SendEdits ĄČ!No 505 fields found on this page.7Ū%§#”’’’’V F €€€(€*,€<€>€@€B€D€F€H€JCSdoneStartRowStartCol_EndRowEndCol_delimNextRNextCOldNROldNCEndREndCDumbRowDumbColmain€  F Fm„K+Passport—f ~u2\[Ų‘š ’8’8‘q5 ©‘‘2\ ‘’š  q5 ©‘‘‘2\! (8 *8 ‘q,Żl“ļ(*‘‘2\ ; *’‚‘ (’F(8,ßl“ļœ<8>8<(x‘;‘q<>‘‘2\ ;<@‚>B‚U‘ž<(s‘/‘q5 *©<’F¦>‘‘2\ ;Ą>Ms‘<D8>F8<D8>’BF8>’F>8 >’n‘!<’F<8">PB>8#$q<>DF2\.%<@8%>B8&¶ž'(8(*8)Čż+ü ’šµ‘;,u5 7©2\L-‘q5 *©HJ‘‘2\ ;. /5 R©j02˜ SessionApplication' MacroName: UnExportedSearch ' MacroDescription: Search the OCLC Save file for unexported ' records, and resave those records ' Macro written by: Joel Hahn, Niles Public Library District 'Note: must have already done an "si" command to use this macro. 'Also, to search *everything* in the save file, you have to 'be looking at the first page of the save list when you run the 'macro. 'Note: Macro is currently optimized for use in a consortium, as 'it only resaves records that also have a specific holding symbol sub main Dim CS as Session Set CS=CurrentSession 'Put your library's four-letter holdings symbol here Agency$="####" SaveString$="" CheckEnd$="" i=1 Do While CheckEnd$<>"You are already at the end of the list." For j=6 to 24 CS.GetTextInRegion SaveNum$, j, 2, j, 5 CS.GetChar Exported$, Attrib%, j, 79 'MsgBox SaveNum$ & "|" & Exported$ If SaveNum$=" " Then Exit Do If Exported$="n" Then SaveString$=SaveString$+LTrim(SaveNum$)+"+" Next j RunMacro "PRSMUTIL!PageDown" CS.GetTextInRegion CheckEnd$, 2, 1, 2, 39 'MsgBox "|" & CheckEnd$ & "|" i=i+1 If i>90 Then Exit Do Loop If Len(SaveString$)>0 Then SaveString$=Left(SaveString$, Len(SaveString$)-1) c=1 Check$="+" TestNum$=SaveString$ For i=1 to Len(TestNum$) TestNum2$=Mid(TestNum$,i,1) If Asc(TestNum2$)=Asc(Check$) Then c=c+1 Next i 'MainRemove the delimiters from all enhanced 505's on the current page of a record. loop cc=1 CS.Wait 1 Do If GetField(SaveString$,cc,"+")="" then goto Looper RecNum$="/"+GetField(SaveString$,cc,"+") CS.PutText RecNum$, 1, 1 RunMacro "PRSMUTIL!SendCommand" CurPage=1 Pager: CS.Send "tag 049" If CS.Find(Agency$, 6, 1, 1) Then CS.PutText "s", 1, 1 RunMacro "PRSMUTIL!SendCommand" End If Looper: cc=cc+1 CS.Wait 1 Loop Until cc>=c+1 Goto done 'Go to the end of the macro ErrHandler: MsgBox "Error " & Err & "(" & Erl & "): " & Error Resume done done: CS.PutText Chr(0), 1, 1 end sub ķž+QĪĒĶ$6M#QĄ####'You are already at the end of the list.ĄČĄČĄ n+PRSMUTIL!PageDown ĄČ Ą/ĄČPRSMUTIL!SendCommandtag 049 ĄČĄČĄĄsError (): Q +§#”’’’’ V F$8H €X(08Zj@H~ŽPžX¶ĘÖęö.>CSAgencySaveStringCheckEndij__SaveNumExportedAttrib____cCheckTestNum__TestNum2ccRecNumCurPage________main5   €F Fm„K+Passport— ø ~u2\[Ų5 œ7œ 7œ ’š 5 ±‘ 4j$—š©š’šc8Hqü$é“ü$é–‘2\6q Xü$éO2\A5 J²‘  5 Q²‘"(›i š05 Uš8œi48Hq’u5 Y©(2\mq“’“'‘2\6ü’š ZüZšµ‘įž f t‘%(› f UnExportedSearch.SRC*’’’’’’’’’’’’œÆUnExportedSearch.DES*2’’’’ä-UnExportedSearch.BIN*’’’’’’’’’’’’½tval.SRC’’’’’’’’’’’’ÜÉGÉiœ’šj 5 U@œ!Hœ"zj’š Hf ń’šc~ŽV#(›’üéH©0iPœ$‘Pe‘@e‚‘$üj’š Zj%iz~ŽŖ’(’šž)q’2\s*+(›5 U©0żžéi7²‘+Ā,5®y(›5 U©0żžéiš8Xœ-qX’’‘2\}.u5 †©(2\m0’š¶2q5 ©(2\§3‘q—¦’¦’‘2\­‘,4q5 ·©(’’‘2\}5u5 †©(2\m68żž’š Zž9q’2\s:żžüj’š Zµ‘Ōž;V>5 »öZ‘eašĘ5®ÄöÖę f#ńö6Čö.l¾>ļ(j?”BqZ‘l“ļ(’’‘2\}C˜ SessionApplicationSessionApplication' MacroName: val ' MacroDescription: Validate record sub main dim CS as session set CS = CurrentSession CS.MoveCursor 1, 1 CS.PutText "val" RunMacro "PRSMUTIL!SendCommand" Validate recordend sub ķž Q8‰ĮĒ$åk‚#†Ą ĄvalĄČPRSMUTIL!SendCommand ĄČ b §#”’’’’V FCS_Search the OCLC Save file for unsaved recordsmain7  F Fm„K+Passport—& ~u2\[Ųq’’2\q5 ©‘‘‘2\u5 ©2\2˜ val.DES%7’’’’ßval.BIN’’’’’’’’’’’’į©’’’’’’’’’’’’’’’’’’’’’’’’SessionApplication’šj5N8œ@œzj ’š @f ń’šc~ŽV  ›’ü é@©(iHœ!‘He‘8e‚‘!üj’š Zj"iz~ŽŖ’%’šž&q’2\l'( ›5N©(żžéi7²‘(?)5®r ›5N©(żžéiš0Pœ*qP’’‘2\v+u5© 2\f-’š¶/’Ę8/’Č80‘q5–© Ęȑ‘2\ž‘[1‘q5Ø© Ęȑ‘2\ž‘,2q5±© ’’‘2\v3u5© 2\f45I6u5R© 2\f7ż¶’š Z¶’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’8ż¶–šµ‘8 9!’:<żž’š Zž=q’2\l>żžüj’š Zµ‘Wž?VB5µöZ‘eašŹ5®¾öŚź f#ńś6 Āö"2l¾Bļ jC”FqZ‘l“ļ ’’‘2\vG˜ SessionApplicationķžSQ R \ū $/äŠZ“]#ø]Ą acdghkmsv 007 Creation$a$b$d$e$f$g$h$i$m$nX' MacroName: TextArea ' MacroDescription: Use a ListBox field to view lengthy Textbox contents ' Macro created by: Rhoda Bilansky ' Macro altered by: Joel Hahn, Niles Public Library District ' Use a word-wrapping Text label to display the contents ' of a lengthy TextBox. Editing takes place in the ' single line scrollable TextBox. ' The text must contain Blank spaces, in order for word wrap to ' occur ' * * ' * Altered from Text Field to ListBox field, to allow vertical ' * scrolling, so that almost any length of text will still ' * display, rather than any text beyond the length of the Text ' * box being invisible. Also, altered display so that the ' * width of the ListBox will fit most 80-character lines. ' * * ' *** N.B. When testing for DialogControl IDs: Control names are CASE-SENSTIVE!!! ' "txtNOTES" is not the same as "txtNotes". Be consistent! option explicit const MaxNoteLength% = 500 ' if you want to set a maximum number of ' characters that a user is allowed to ' enter, alter this value. ' For this demo, 500 characters is used ' as enforced limit Dim AList$() ' This function is called continously by the Dialog Box while it is ' running. Function fnLongTextDlg(id$ , action% , suppvalue& ) static StoredNote$ ' We will be monitoring changes to the NOTES ' TextBbox. This static variable will be ' used to store its text value ' static variables retain their value ' between calls to the function dim CurrentNote$ static WarningGiven% ' Used in code section to warn user that field is ' value is too long Select Case Action ' Which Action caused call to Dialog Function ? case 1 ' Initialization ' The settings for these controls could have been done in ' the routine the defines the dialog box, ' but some Dialog functions & control values must be ' called or set during the initialization period, so ' here is an example of work performed at Initialization StoredNote$ = "Sample note. Edit as desired" DlgText "txtNotes", StoredNote$ ' Set default values ' DlgText "lblNotesContents", StoredNote$ ' update text label '============================================================== ReDim Preserve AList$(0) If AList$(0)="" Then AList$(0)=StoredNote$ DlgListBoxArray "lblNotesContents", AList$ ' update text label '============================================================== DlgText "lblNotesSize", "NOTES Length: " & str(len(StoredNote$)) ' If you want the dialog box to open with the cursor ' in the txtNotes TextBox, in edit mode, set the Focus to ' that field. DlgFocus "txtNotes" ' If the initial txtNotes text value is defined in ' the ShowNotesDialog routine, before the Dialog is called, ' the existing text will be in "select" mode, when the ' dialog box opens and focus moves to the field (similar ' to Tabbing to the field). If the user types anything, ' it will replace the existing text (unless starts with cursor ' movement or mouse click). ' With the initialization of the "txtNotes" TextBox as above, ' The initial setting of DlgFocus will not force "select" mode. ' Use whichever method yields your preferred behavior case 2 ' User clicked button or changed another dialog control ' (except text box or combo box) Select Case id$ ' Which button was clicked ? Case "btnPreview" ' In actual practice, one is not likely ' to wish to define very large areas for ' Text labels for the purpose shown in ' this sample. ' Since MsgBox's can hold more text than might be ' viewable in a the Text label as defined, ' here is a simple way to let the user ' peek at the current TextBox value in a ' word-wrapped view. ' N.B. Even MsgBoxes have their size limits. ' To overcome the latter would involve a ' completely different strategy. fnLongTextDlg = true ' Non-zero value = Do not close Dialog box MsgBox DlgText("txtNotes") ' This is the Preview in a message box dlgFocus "txtNotes" ' Return focus to Notes text box ' If you have several edit fields in your ' Dialog box, define a static variable ' to store the value of the last used ' edit-able textbox or combobox control, ' so you can return focus to the last edited ' field Case "btnOkay" ' I chose to a label to my OKAY button ' matching my notation & so test for my ID name ' sample validation routine CurrentNote$ = DlgText("txtNotes") if len(CurrentNote$) > MaxNoteLength% then MsgBox "Notes must not exceed" & str(MaxNoteLength%) _ & " characters." fnLongTextDlg = true ' do not close Dialog box end if End Select case 3 ' User edited text box or combo box contents ' case 4 ' control changed focus ' ' If you need to track changes in Control Focus, ' this is a good place to and capture and ' store values (or take action based on ' which control a user left or moved to for ' single field validations, etc. ) ' Id$ identitfies Control gaining focus ' SuppValue& identifies Control losing focus case 5 ' idle loop ' To prevent excessive screen flicker (and excessive action in the ' the idle loop), the value of the txtNotes field is stored ' in a static variable (StoredNotes$) ' During the idle loop, compare last stored value with the ' current value to see if it has changed ' When value of the txtNotes textbox changes, set the value of ' the lblNotesContents Text label = new contents of txtNotes texbox ' fnLongTextDlg = true ' Return non-zero value so idle message will ' be sent continuously ' (when Zero, message is sent when mouse moves) If DlgFocus <> "txtNotes" then exit function ' optional ' for this simple example the test for DlgFocus ' is not needed, but if you have ' a very complex DialogBox & corresponding ' .DlgFunction, you might wish to test which ' field is active and jump out quickly ' when the user is not working on the the long ' TextBox field (or not working on other fields ' that you design to trigger special actions ' during the "idle" loop) CurrentNote$ = DlgText("txtNotes") ' get current value inside ' NOTES textbox If StoredNote$ <> CurrentNote$ then ' has it changed? ' DlgText "lblNotesContents", CurrentNote$ ' update text label StoredNote$ = CurrentNote$ '============================================================== Dim szStoredNote as Integer Dim i as Integer Dim j as Integer Dim k as Integer Dim lt$ Dim rt$ ReDim Preserve AList$(0) AList$(0)=StoredNote$ szStoredNote=Len(StoredNote$) / 80 ReDim Preserve AList$(szStoredNote + 1) i=0 Do While i<=UBound(AList$) If AList$(i)="" Then j=i Do While j<=UBound(AList$) If j+1<=UBound(AList$) Then AList$(j)=AList$(j+1) Else Alist$(j)="" End if j=j+1 Loop ElseIf Len(AList$(i))>80 Then 'If i=10 Then ' AList$(i)=Left(AList$(i),80) 'Else ' If Mid(AList$(i), 80, 1)<>" " Then k=80 Do While Mid(AList$(i), k, 1)<>" " k=k-1 If k=0 Then Exit Do End If Loop If k=0 Then k=80 lt$=Left(AList$(i),k) rt$=Right(AList$(i),Len(AList$(i))-k) AList$(i)=lt$ AList$(i+1)=rt$+" "+AList$(i+1) ' End If 'End If End If i=i+1 Loop DlgListBoxArray "lblNotesContents", AList$ '============================================================== ' Update text label that displays Notes length ' Give one warning if user has just exceeded maxlength you permit DlgText "lblNotesSize", "NOTES Length: " & str(len(CurrentNote$)) If len(CurrentNote) < MaxNoteLength% then WarningGiven = false else ' Give one message box warning, but let user continue to ' add to the field, as user might need to add or paste extra ' text before removing excess text. Don't nag. ' btnOkay performs final validation of user entry If WarningGiven <> true then beep MsgBox "Notes field should not exceed" & str(MaxNoteLength%) _ & " characters" WarningGiven = true end if end if end if End Select End Function sub ShowNotesDialog dim response% dim DashLine$ DashLine$ = string(85,"=") Begin Dialog LongTextDialog 21, 17, 309, 170, "Sample echo of long TextBox values in word-wrapping Text labels", .fnLongTextDlg OkButton 157, 151, 50, 14, .btnOkay CancelButton 211, 151, 50, 14 Text 10, 10, 27, 12, "NOTES", .lblNotes TextBox 45, 7, 256, 18, .txtNotes ListBox 9, 47, 292, 97, AList, .lblNotesContents PushButton 103, 151, 50, 14, "Preview", .btnPreview Text 8, 142, 292, 9, DashLine, .lblDashLineBottom Text 9, 30, 292, 12, DashLine, .lblDashLineTop Text 9, 151, 89, 14, "-", .lblNotesSize End Dialog Dim dlgLongText as LongTextDialog response = Dialog(dlgLongText) Select Case response% Case 0 ' Cancel button pressed MsgBox "You selected cancel" Case -1 ' Okay button clicked MsgBox "The new Note value is :" & dlgLongText.txtNotes Case Else ' if you add other controls to the dialog box ' that provide other ways to exit the DialogBox ' add more Case # statements to handle appropriate ' reaction MsgBox "You clicked control button #" & str(response%) end Select End Sub sub main ShowNotesDialog end sub