Skip to content

Instantly share code, notes, and snippets.

@ryanfb

ryanfb/gist:15536

Created October 8, 2008 15:12
Show Gist options
  • Save ryanfb/15536 to your computer and use it in GitHub Desktop.
Save ryanfb/15536 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.tcl
proc aapl {} {set aapl [stock aapl]; if {[regexp {\+\d} $aapl dummy]} {. [uchar f8ff 20 2708] $aapl} else {. [uchar 2708 20 f8ff] $aapl}}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment