Browse Subversion Repository
Contents of /branches/4-stable/tests/decfont.pl
 Parent Directory
|  Revision Log
Revision 8437 -
( show annotations)
( download)
( as text)
Fri Dec 13 03:11:16 2019 UTC
(4 years, 3 months ago)
by doda
File MIME type: text/x-perl
File size: 366 byte(s)
Tera Term 4.xx メンテナンス用ブランチを作成
| 1 |
#!/usr/bin/perl |
| 2 |
|
| 3 |
$ESC=sprintf("%c", 0x1b); |
| 4 |
$ST = $ESC . '(0'; |
| 5 |
$ED = $ESC . '(B'; |
| 6 |
|
| 7 |
for ($i=95;$i<=126;$i++) { |
| 8 |
# print $ESC.'(0'.$i."\n"; |
| 9 |
} |
| 10 |
print $ST; |
| 11 |
print "_\\abcdefghijklmnopqrstuvwxyz{|}~\n"; |
| 12 |
print "\n"; |
| 13 |
print "lqqqwqqqk\n"; |
| 14 |
print "x { x } x\n"; |
| 15 |
print "tqqqnqqqu\n"; |
| 16 |
print "x" . $ED . " A " . $ST . "x" . $ED . " % " . $ST . "x\n"; |
| 17 |
print "mqqqvqqqj\n"; |
| 18 |
print $ED; |
| 
Tera Term
Parent Directory
Revision Log