on enterInField
makeCode
end enterInField
on returnInField
makeCode
end returnInField
on makeCode
send mouseUp to btn "Make barcode"
end makeCode
ê ì Make barcode àM«x on mouseUp put fld "Raw" into theRaw put 103 into total put 1 into counter repeat for each char c in theRaw add (charToNum(c) - 32) * counter to total add 1 to counter end repeat put total mod 103 into checkSum put numToChar(103+32) into theCode put theRaw after theCode put numToChar(checkSum+32) after theCode put numToChar(106+32) after theCode replace space with numToChar(145) in theCode put theCode into fld "Code" put theCode into fld "Bars" select text of fld "Bars" copy end mouseUp € k b d cREVGeneral scriptChecksum ØNc; Ý,T4O„Ï®Ùô„ bookmarks revUniqueID 1038552077153 handlerList mouseUpscriptSelection char 520 to 519 prevHandler mouseUp tempScript scripton mouseUp
put fld "Raw" into theRaw
put 103 into total
put 1 into counter
repeat for each char c in theRaw
add (charToNum(c) - 32) * counter to total
add 1 to counter
end repeat
put total mod 103 into checkSum
put numToChar(103+32) into theCode
put theRaw after theCode
put numToChar(checkSum+32) after theCode
put numToChar(106+32) after theCode
replace space with numToChar(145) in theCode
put theCode into fld "Code"
put theCode into fld "Bars"
select text of fld "Bars"
copy
end mouseUp
ð Code )h €@ J ‡ ® cREVGeneral revUniqueID 1038552075649 ê ñ Bars +h €@ J ® ® . cREVGeneral revUniqueID 1038552849262 ê ò Menubar 1 I ÿý j ó File èÅ‹UÃ--The following menuPick handler was generated by the Menu Manager. on menuPick pWhich switch pWhich case "Page setup..." --Insert script for Page setup... menu item here answer printer break case "Print" --Insert script for Print menu item here open printing with dialog print this card close printing break case "Quit" --Insert script for Quit menu item here quit break end switch end menuPick € Page setup... Print/P - &Quit/Q cREVGeneral scriptChecksum a\ßÑF4àï€ @CÛž bookmarks handlerList menuPick tempScript prevHandler menuPickscriptSelection char 414 to 413script ü--The following menuPick handler was generated by the Menu Manager.
on menuPick pWhich
switch pWhich
case "Page setup..."
--Insert script for Page setup... menu item here
answer printer
break
case "Print"
--Insert script for Print menu item here
open printing with dialog
print this card
close printing
break
case "Quit"
--Insert script for Quit menu item here
quit
break
end switch
end menuPick
ô Edit èÅ‹UÐ--The following menuPick handler was generated by the Menu Manager. on menuPick pWhich switch pWhich case "Cut" --Insert script for Cut menu item here cut break case "Copy" --Insert script for Copy menu item here copy break case "Paste" --Insert script for Paste menu item here paste break case "Clear" --Insert script for Clear menu item here put empty into the selection break end switch end menuPick € Cu&t/X &Copy/C &Paste/V Clea&r cREVGeneral scriptChecksum ›ÏÁ]³„tIݪ{¤“ bookmarks handlerList menuPick tempScript prevHandler menuPickscriptSelection char 427 to 426script ú--The following menuPick handler was generated by the Menu Manager.
on menuPick pWhich
switch pWhich
case "Cut"
--Insert script for Cut menu item here
cut
break
case "Copy"
--Insert script for Copy menu item here
copy
break
case "Paste"
--Insert script for Paste menu item here
paste
break
case "Clear"
--Insert script for Clear menu item here
put empty into the selection
break
end switch
end menuPick
õ Help èÅ‹U`--The following menuPick handler was generated by the Menu Manager. on menuPick pWhich switch pWhich case "Help" --Insert script for Help menu item here answer information "Enter the text you want to convert into a barcode into the top field." & cr & \ "Click the 'Make barcode' button, or press Enter." & cr & \ "The Code128A barcode will be generated and copied to the clipboard." & cr & \ "The third field will display the actual bars if the correct fonts are installed." & cr & \ "Either of the bottom two fields can be pasted into a document for formatting & printing." break case "About Barcoder" --Insert script for About Barcoder menu item here answer information "Barcoder" & cr & "for creating Code 128 Subset A barcodes" & cr & "Version 1.0" & cr & "© Sarah Reichelt, 2002" break end switch end menuPick € ? $ &Help - &About Barcoder cREVGeneral scriptChecksum }ŽÀG2 ÂõÂ1Ȧ À! bookmarks handlerList menuPick tempScript prevHandler menuPickscriptSelection char 347 to 346script u--The following menuPick handler was generated by the Menu Manager.
on menuPick pWhich
switch pWhich
case "Help"
--Insert script for Help menu item here
answer information "Enter the text you want to convert into a barcode into the top field." & cr & \
"Click the 'Make barcode' button, or press Enter." & cr & \
"The Code128A barcode will be generated and copied to the clipboard." & cr & \
"The third field will display the actual bars if the correct fonts are installed." & cr & \
"Either of the bottom two fields can be pasted into a document for formatting & printing."
break
case "About Barcoder"
--Insert script for About Barcoder menu item here
answer information "Barcoder" & cr & "for creating Code 128 Subset A barcodes" & cr & "Version 1.0" & cr & "© Sarah Reichelt, 2002"
break
end switch
end menuPick
÷ New Field 1 € < H cREVGeneral revUniqueID 1038887114356 Basic Text: ø New Field 1 € ‡ H cREVGeneral revUniqueID 1038887114356 Code: ù New Field 1 € ® H cREVGeneral revUniqueID 1038887114356 Barcode: