root/paper-tape-project/trunk/perl-tools/hex-meter
| Revision 1, 147 bytes (checked in by sven, 4 years ago) |
|---|
| Line | |
|---|---|
| 1 | #!/usr/bin/perl |
| 2 | # Udos kleines Lochstreifen-Meterband. |
| 3 | # |
| 4 | |
| 5 | for($x=0; $x < $ARGV[0]; $x++) { |
| 6 | for($y=0; $y<2**8; $y++) { |
| 7 | print pack('C', $y); |
| 8 | } |
| 9 | } |
Note: See TracBrowser
for help on using the browser.
Powered by 
Expect where otherwise noted, content on this site is licensed under a