ࡱ>  $5 !"#%'&(*)+,-/.021346879;:<>=?@ABRoot Entry b`%q@QEsc.SRCgEsc.DES%Esc.BIN5  #$%&'),-./0256789;>?@ABDGHIJKMNQRSTUWX[\]^_abefghiklopqrsuvyz{|}' MacroName: Esc ' MacroDescription: Sends Escape key sub main CurrentSession.Send "\x1b" end sub Sends Escape keyQc$#\x1b -#_mainF FmK+Passport ~u2\n52\  SessionApplicationF10.SRC F10.DES F10.BIN PF11.SRC ' MacroName: F10 ' MacroDescription: F10 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[21~" 'CS.Send "\x1BOSm\r" end sub F10Qg$)#-\x1B[21~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: F11 ' MacroDescription: F11 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[23~" 'CS.Send "\x1BOS\x1B[C\x1B[C\x1B[C\x1B[C\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\r" end sub F11Qg$)#-F11.DESF11.BINPF12.SRCF12.DES"F!\x1B[23~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: F12 ' MacroDescription: F12 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[24~" 'CS.Send "\x1BOS\x1B[C\x1B[C\x1B[C\x1B[C\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\r" end sub F12Qg$)#-\x1B[24~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplicationF12.BIN"PF13.SRC(~F13.DES *F13.BIN+P' MacroName: F13 ' MacroDescription: F13 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[25~" end sub F13Qg$)#-\x1B[25~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: F14 ' MacroDescription: F14 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[26~" end sub F14Qg$)#-\x1B[26~ 9#V FCS_mainF FmK+Passport& ~u2\[qF14.SRC1~F14.DES3F14.BIN4PF15.SRC:~5 2\ SessionApplication' MacroName: F15 ' MacroDescription: F15 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[28~" end sub F15Qg$)#-\x1B[28~ 9#V FCS_mainFF15.DES<F15.BIN=PF16.SRC*C~F16.DES@E FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: F16 ' MacroDescription: F16 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[29~" end sub F16Qg$)#-\x1B[29~ 9#F16.BINFPF5.SRCLF5.DESOF5.BINPNV FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: F5 ' MacroDescription: F5 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[M" 'CS.Send "\x1BOSp\r" end sub F5Qe$'#+\x1B[M 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: F6 ' MacroDescription: F6 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[17~" 'CS.Send "\x1F6.SRCVF6.DESYF6.BINZPF7.SRC #`BOSp\x1B[B\r" end sub F6Qg$)#-\x1B[17~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: F7 ' MacroDescription: F7 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[18~" 'CS.Send "\x1BOS\x1B[C\x1B[C\x1B[B\r" end sub F7Qg$)#-\x1B[18~ 9#V FCS_mainF FmK+Passport& ~u2\[qF7.DES!cF7.BINdPF8.SRCjF8.DES$m5 2\ SessionApplication' MacroName: F8 ' MacroDescription: F8 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[19~" 'CS.Send "\x1BOS\x1B[C\x1B[C\x1B[C\x1B[B\x1B[B\x1B[B\r" end sub F8Qg$)#-\x1B[19~ 9#F8.BINnPF9.SRC&tF9.DES'wF9.BINxPV FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: F9 ' MacroDescription: F9 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[20~" 'CS.Send "\x1BOS\x1B[C\x1B[C\x1B[C\x1B[B\x1B[B\x1B[B\x1B[B\r" end sub F9Qg$)#-\x1B[20~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: ShiftF1 ' MacroDescription: Print Libs+ screen ' Macro written by: Joel Hahn, Niles Public Library District ' DShiftF1.SRC~ShiftF1.DESBShiftF1.BINShiftF10.SRC0Derived from: OCLC's PrintRecord macro sub main dim CS as Session set CS = CurrentSession Dim CheckDiatritic as Integer ' Determine how many columns are in the record Columns% = CS.FDXColumns ' Get text to be printed Row% = CS.GetLastRowUsed CS.GetTextInRegion Temp$, 1, 1, Row%, Columns%, TRUE ' Find & replace non-standard characters StrLen%=Len(Temp$) For CheckDiacritic=1 to StrLen% Char$=Mid$(Temp$, CheckDiacritic, 1) Result%=Asc(Char$) If Result%>127 Then Select Case Result% Case 179 Mid(Temp$, CheckDiacritic, 1)="|" Case 191 Mid(Temp$, CheckDiacritic, 1)="+" Case 192 Mid(Temp$, CheckDiacritic, 1)="+" Case 194 Mid(Temp$, CheckDiacritic, 1)="+" Case 196 Mid(Temp$, CheckDiacritic, 1)="-" Case 217 Mid(Temp$, CheckDiacritic, 1)="+" Case 218 Mid(Temp$, CheckDiacritic, 1)="+" Case Else Mid(Temp$, CheckDiacritic, 1)="*" End Select End If Next CheckDiacritic ' Create final text string Buffer$ = Buffer$ + Temp$ ' If there is content in the string, then print; else report failure if Buffer$ <> "" then PrintBuffer Buffer$ SetStatusMessage "Printing..." else SetStatusMessage "Unable to print record." end if enPrint CCS Screend sub Q^$)l#|+-*  Printing... Unable to print record.9# V F &6F CSColumnsRowTempStrLenCheckDiacritic____CharResultBuffermain+65F FmK+Passport ~u2\[q2\ 8 q2\ 8 q 2\ f 8"jc&6ieF8FsSFH8=H5JjwH5JjwH5JjwH‚5JjwHĂ5J"jwkHق 5Jjw!A!Hڂ"5Jjw##$5J&jw&'i"&6a*  - 7).u 2\*/u5J02\>01u5JD2\>23  ' MacroName: ShiftF10 ' MacroDescription: Shift-F10 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[35~" end sub Shift-F10ShiftF10.DESL/ ShiftF10.BINPShiftF11.SRC3ShiftF11.DES+. Qg$)#-\x1B[35~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: ShiftF11 ' MacroDescription: Shift-F11 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[1~" end sub Shift-F11Qf$(#,\x1B[1~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplicationShiftF11.BINOShiftF12.SRC6ShiftF12.DES,8 ShiftF12.BINO' MacroName: ShiftF12 ' MacroDescription: Shift-F12 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[2~" end sub Shift-F12Qf$(#,\x1B[2~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: ShiftF13 ' MacroDescription: Shift-F13 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[3~" end sub Shift-F13Qf$(#,\x1B[3~ 9#ShiftF13.SRC9ShiftF13.DES14 ShiftF13.BINOShiftF14.SRC<V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: ShiftF14 ' MacroDescription: Shift-F14 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[4~" end sub Shift-F14ShiftF14.DES5; ShiftF14.BINOShiftF15.SRC?ShiftF15.DES7> Qf$(#,\x1B[4~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: ShiftF15 ' MacroDescription: Shift-F15 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[5~" end sub Shift-F15Qf$(#,\x1B[5~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplicationShiftF15.BINOShiftF16.SRCShiftF16.DES:= ShiftF16.BINO' MacroName: ShiftF16 ' MacroDescription: Shift-F16 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[6~" end sub Shift-F16Qf$(#,\x1B[6~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: ShiftF2 ' MacroDescription: Shift-F2 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[?1i" end sub Shift-F2Qg$)#-\x1B[?1i 9#ShiftF2.SRC)CShiftF2.DESShiftF2.BIN(APShiftF3.SRCDGV FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: ShiftF3 ' MacroDescription: Shift-F3 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[0i" end sub Shift-F3ShiftF3.DESEShiftF3.BINOShiftF4.SRC2ShiftF4.DESH    !"#$%'(+,-./1256789;<?@ABCQf$(#,\x1B[0i 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: ShiftF4 ' MacroDescription: Shift-F4 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[L" 'CS.Send "\x1BOS\x1B[C\x1B[C\x1B[B\x1B[B\x1B[B\x1B[B\x1B[B\r" end sub Shift-F4Qe$'#+\x1B[L 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionAppliShiftF4.BIN NShiftF5.SRCJMShiftF5.DESKShiftF5.BINNcation' MacroName: ShiftF5 ' MacroDescription: Shift-F5 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[K" 'CS.Send "\x1BOS\x1B[C\x1B[C\x1B[C\x1B[C\x1B[C\x1B[B\r" end sub Shift-F5Qe$'#+\x1B[K 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: ShiftF6 ' MacroDescription: Shift-F6 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[31~" 'CS.Send "\x1BOS\x1B[C\x1B[C\x1B[C\x1B[C\x1B[C\x1B[B\x1B[B\r" end sub Shift-F6ShiftF6.SRCIRShiftF6.DESNShiftF6.BIN PShiftF7.SRCPS&Qg$)#-\x1B[31~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication' MacroName: ShiftF7 ' MacroDescription: Shift-F7 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[32~" 'CS.Send "\x1BOS\x1B[C\x1B[C\x1B[B\x1B[B\r" end sub Shift-F7Qg$)#-\x1B[32~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplicationShiftF7.DESQ)ShiftF7.BIN*PShiftF8.SRCOU0ShiftF8.DEST3' MacroName: ShiftF8 ' MacroDescription: Shift-F8 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[33~" end sub Shift-F8Qg$)#-\x1B[33~ 9#V FCS_mainF FmK+Passport& ~u2\[qShiftF8.BIN4PShiftF9.SRCV-:ShiftF9.DESW=ShiftF9.BIN>P5 2\ SessionApplication' MacroName: ShiftF9 ' MacroDescription: Shift-F9 sub main dim CS as session set CS = CurrentSession CS.Send "\x1B[34~" end sub Shift-F9Qg$)#-\x1B[34~ 9#V FCS_mainF FmK+Passport& ~u2\[q5 2\ SessionApplication TRUE"SessionApplication