#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@" Untitled 1 @ 9 I Unicode 0A Chars List U Lucida Grande U ,japanese $ U ,japanese U Lucida Grande U ,Greek U ,Japanese U ,Korean U Osaka,Japanese U Osaka,Japanese U Osaka,Japanese U Lucida Grande cREVGeneral stackfileversion @ put0AChars ex on mouseUp set the cursor to watch put "" into fld 1 lock screen put "0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F" into hexList split hexList by comma set the useunicode to true put uniencode(";") into uniSemiC put uniencode("=") into uniEql put uniencode(cr) into uniCr put uniencode(space) into uniSpace repeat with i=1 to 16 put hexList[i] into tI repeat with j=1 to 16 put tI & hexList[j] &"0A" into tHex put baseConvert(tHex,16,10) into tDec put uniencode(tDec) & uniSemiC & uniSpace & uniencode(tHex) & uniEql & uniSpace \ & numtochar(tDec) & uniCr after fld 1 if the mouse is down then exit to top end repeat end repeat set the textsize of line 1 to (the num of lines of fld 1) of fld 1 to 24 end mouseUp "; Put Unicode 0A Characters cREVGeneral scriptChecksum K:H s bookmarks revUniqueID 1149426156749handlerList mouseUpscriptSelection char 477 to 476prevHandler mouseUptempScript script
on mouseUp
set the cursor to watch
put "" into fld 1
lock screen
put "0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F" into hexList
split hexList by comma
set the useunicode to true
put uniencode(";") into uniSemiC
put uniencode("=") into uniEql
put uniencode(cr) into uniCr
put uniencode(space) into uniSpace
repeat with i=1 to 16
put hexList[i] into tI
repeat with j=1 to 16
put tI & hexList[j] &"0A" into tHex
put baseConvert(tHex,16,10) into tDec
put uniencode(tDec) & uniSemiC & uniSpace & uniencode(tHex) & uniEql & uniSpace \
& numtochar(tDec) & uniCr after fld 1
if the mouse is down then exit to top
end repeat
end repeat
set the textsize of line 1 to (the num of lines of fld 1) of fld 1 to 24
end mouseUp
tText )h $ &