keyboard/altgr/c64.eng.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 use Shiar_Sheet::KeyboardChars 'kbchars';
   5
   6 my %c64 = (
   7         # control keys not on pet2001
   8         '1' => "🖤\nBLacK",
   9         '2' => "🤍\nWHiTe",
  10         '3' => "❤️\nRED",
  11         '4' => "🩵\nCYaN",
  12         '5' => "💜\nPURple",
  13         '6' => "💚\nGReeN",
  14         '7' => "💙\nBLUe",
  15         '8' => "💛\nYELlow",
  16         '9' => "💟\nREverSe video ON",
  17         '0' => "💔\nREverSe video OFF",
  18 );
  19
  20 my %rows = (%c64,
  21         # literal petscii control characters, unaltered from pet2001
  22         'a' => '♠',
  23         'b' => '🭲',
  24         'c' => '🭸',
  25         'd' => '🭷',
  26         'e' => '🭶',
  27         'f' => '🭺',
  28         'g' => '🭱',
  29         'h' => '🭴',
  30         'i' => '╮',
  31         'j' => '╰',
  32         'k' => '╯',
  33         'l' => '🭼',
  34         'm' => '╲',
  35         'n' => '╱',
  36         'o' => '🭽',
  37         'p' => '🭾',
  38         'q' => '●',
  39         'r' => '🭻',
  40         's' => '♥',
  41         't' => '🭰',
  42         'u' => '╭',
  43         'v' => '╳',
  44         'w' => '○',
  45         'x' => '♣',
  46         'y' => '🭵',
  47         'z' => '♦',
  48         ']' => '─', # @
  49
  50         # literal pet2001 keys reassigned on c64
  51         ',' => '┼', # [ c64 +
  52         '.' => '│', # ] c64 -
  53         '\\'=> 'π', # ↑ c64 \
  54         '}' => '◥', # ← c64 *
  55         '>' => '🮌', # \ c64 ^-
  56         'B' => '▚', # ?
  57
  58         # ! " # $ % ' & \ ( ) ←            »  1 2 3 4 5 6 7 8 9 0 + - £
  59         # Q W E R T Y U I O P ↑   7 8 9 /  »  Q W E R T Y U I O P @ * ↑
  60         # A S D F G H J K L :     4 5 6 *  »  A S D F G H J K L : ; =
  61         # Z X C V B N M , ; ?     1 2 3 +  »  Z X C V B N M , . /
  62         #     @ [ ]     < >       0 . - =
  63
  64         # pet2001 top row
  65         'K' => '▌', # A pet !
  66         'I' => '▄', # B pet "
  67         'T' => '▔', # C pet #
  68         '{' => '▁', # D pet $
  69         'G' => '▏', # E pet %
  70         'M' => '▕', # G pet '
  71         '<' => '▒', # F pet & c64 ^+
  72         '/' => '🮏', # H pet ( c64 ^£
  73         '?' => '◤', # I pet ) c64 £
  74
  75         # pet2001 bottom rows
  76         '[' => '🭿', # Z pet :
  77         'D' => '▗', # L pet ,
  78         'F' => '▖', # { pet ;
  79         'C' => '▝', # | pet <
  80         'V' => '▘', # ~ pet >
  81
  82         # pet2001 numpad
  83         'Y' => '🮂', # W pet 7
  84         'U' => '🮃', # X pet 8
  85         'O' => '▃', # Y pet 9
  86         'P' => '▂', # O pet /
  87         'H' => '▎', # T pet 4
  88         'J' => '▍', # U pet 5
  89         'L' => '🮈', # V pet 6
  90         'N' => '🮇', # J pet *
  91         'E' => '┴', # Q pet 1
  92         'R' => '┬', # R pet 2
  93         'W' => '┤', # S pet 3
  94         'Q' => '├', # K pet +
  95         'A' => '┌', # P pet 0
  96         'S' => '┐', # N pet .
  97         'Z' => '└', # M pet -
  98         'X' => '┘', # } pet =
  99 );
 100
 101 my $groups = kbchars(\%rows);
 102
 103 while (my ($k, $c) = each %rows) {
 104         $groups->{def}{''}{$k}[0] = (
 105                 $c64{$k} ? 'g9' :
 106                 $c =~ /\p{In=1.1}/ ? 'g2' :
 107                 $c =~ /\p{In=4.0}/ ? 'g3' :
 108                 $c =~ /[\x{1FB00}-\x{1FBFF}]/ ? 'g5' : # Age=V13.0
 109                 'g0'
 110         );
 111 }
 112
 113 +{
 114         %{ $groups },
 115         version => '1.0',
 116         title => 'Commodore graphics',
 117         category => 'legacy/graph',
 118         moderows => '21-1',
 119         intro => join("\n",
 120                 '<abbr title="PET Standard Code of Information Interchange">PETSCII</abbr>',
 121                 'characters designed for the 1977 PET&nbsp;2001 machine',
 122                 'as found on the VIC-20 and C-64.',
 123                 'See also <a href="/keyboard/altgr/msx-graph">MSX graph</a> and',
 124                 '<a href="/keyboard/altgr/unigraph">modern Unicode</a>.',
 125         ),
 126         image => 'data/keyboard/thumb/c64.jpg',
 127         flag => {
 128                 g2 => ['standard' => 'original Unicode 1993'],
 129                 g3 => ['extended' => 'Unicode 4.0'],
 130                 g5 => ['legacy'   => 'exceptional <em>symbols for legacy computing</em> in Unicode since <abbr title="Unicode 13.0">2020</abbr>'],
 131                 g9 => ['color'    => 'presentational controls represented by anachronistic hearts'],
 132         },
 133 }