Re: Input key
Re: Input key
- Subject: Re: Input key
- From: Applescript User Lewis <email@hidden>
- Date: Thu, 21 Mar 2002 04:55:14 -0700
At 23:06 +1200 21/03/02, Andy Wylie wrote:
I just wrote this for low ASCII scrutiny using a list persons unknown kindly
posted awhile back...
A Lot more readable (just replace OPTL with the Option-L character)
--low ASCII
set numCodeName to {{"0 NUL Null"}, OPTL
{"1 SOH Start of Heading"}, OPTL
{"2 STX Start of Text"}, OPTL
{"3 ETX End of Text"}, OPTL
{"4 EOT End of Transmission"}, OPTL
{"5 ENQ Enquiry"}, OPTL
{"6 ACK Acknowledge"}, OPTL
{"7 BEL Bell"}, OPTL
{"8 BS Backspace"}, OPTL
{"9 HT Horizontal Tab"}, OPTL
{"10 LF Line Feed"}, OPTL
{"11 VT Vertical Tab"}, OPTL
{"12 FF Form Feed"}, OPTL
{"13 CR Carriage Return"}, OPTL
{"14 SO Shift Out"}, OPTL
{"15 SI Shift In"}, OPTL
{"16 DLE Data Link Escape [F1 to F15]"}, OPTL
{"17 DC1 Device Control 1 [propeller]"}, OPTL
{"18 DC2 Device Control 2 [radical]"}, OPTL
{"19 DC3 Device Control 3 [lozenge]"}, OPTL
{"20 DC4 Device Control 4 [Apple logo]"}, OPTL
{"21 NAK Negative Acknowledge"}, OPTL
{"22 SYN Synchronous Idle"}, OPTL
{"23 ETB End of Transmission Block"}, OPTL
{"24 CAN Cancel"}, OPTL
{"25 EM End of Medium"}, OPTL
{"26 SUB Substitute"}, OPTL
{"27 ESC Escape [clear]"}, OPTL
{"28 FS File Separator [left arrow]"}, OPTL
{"29 GS Group Separator [right arrow]"}, OPTL
{"30 RS Record Separator [up arrow]"}, OPTL
{"31 US Unit Separator [down arrow]"}, OPTL
{"32 SP Space"}}
set {lowASCII, cnt} to {{}, 0}
repeat with i in numCodeName
set cnt to cnt + 1
set end of lowASCII to (numCodeName's item cnt as string)
set end of lowASCII to "\"" & (ASCII character (cnt - 1)) & "\""
end repeat
try
repeat
set theChar to ((choose from list lowASCII with prompt "low ASCII")
as text)'s item 2
if theChar = false then error number -128
if theChar is not " " then exit repeat
end repeat
on error errMsg number errnum
end try
--
___________________________________________________________________________
| applescript@ & "southgaylord.com"| Unix is very user friendly. It's just |
| I frankly do not believe Micro- | picky about who its friends are. |
| soft has the user's interests at | I want a party where all the women wear|
| heart, or even in mind. | new dresses and the men all drink beer.|
---------------------------------------------------------------------------
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.