同じ列で12と4に穴を開けたら「D」に <https://archive.computerhistory.org/resources/text/Fortran/102649787.05.01.acc.pdf> を元に作成 N/A 12 N/A SP + 1 1 A 2 2 B 3 3 C 4 4 D 5 5 E 6 6 F 7 7 G 8 8 H 9 9 I 8-3 = . 8-4 — ) 11 J K L M N O P Q R $ * 0 0 — S T U V W X Y Z (
同じ列で12と4に穴を開けたら「D」に • 同じ列で11と8と3に穴を開けたら「$」に <https://archive.computerhistory.org/resources/text/Fortran/102649787.05.01.acc.pdf> を元に作成 N/A 12 N/A SP + 1 1 A 2 2 B 3 3 C 4 4 D 5 5 E 6 6 F 7 7 G 8 8 H 9 9 I 8-3 = . 8-4 — ) 11 J K L M N O P Q R 0 0 — S T U V W X Y Z $ * (
7 8 9 8-1 8-2 8-3 8-4 8-5 8-6 8-7 N/A SP 1 2 3 4 5 6 7 8 9 ` : # @ = " 12 + A B C D E F G H I 11 J K L M N O P Q R 0 0 — S T U V W X Y Z [ . < ( + ! ] $ * ) ; ^ \ , % _ > ? 12-11 12-0 | { j a k b l c m d n e o f p g q h r i 11-0 } ~ s t u v w x y z
7 8 9 8-1 8-2 8-3 8-4 8-5 8-6 8-7 N/A SP 1 2 3 4 5 6 7 8 9 ` : # @ = " 12 + A B C D E F G H I 11 J K L M N O P Q R 0 0 — S T U V W X Y Z [ . < ( + ! ] $ * ) ; ^ \ , % _ > ? 12-11 12-0 | { j a k b l c m d n e o f p g q h r i 11-0 } ~ s t u v w x y z
7 8 9 8-1 8-2 8-3 8-4 8-5 8-6 8-7 N/A SP 1 2 3 4 5 6 7 8 9 ` : # @ = " 12 + A B C D E F G H I 11 J K L M N O P Q R 0 0 — S T U V W X Y Z [ . < ( + ! ] $ * ) ; ^ \ , % _ > ? 12-11 12-0 | { j a k b l c m d n e o f p g q h r i 11-0 } ~ s t u v w x y z
Codes and Their Mapping to ASCII | RFC Editor https://www.rfc-editor.org/info/rfc183/ • Early Card Punch Machines https://www.columbia.edu/cu/computinghistory/oldpunch.html
• フローチャート,パンチカード,紙テープ-コンピュータ博物館 https://museum.ipsj.or.jp/computer/device/paper/words.html • 1985/昭和60/パンチカード/ホレリスカード/カセットテープやフロッピーディスク 以前のコンピューターの記録媒体/ : Extinct Media Museum Tokyo https://extinct-media-museum.blog.jp/archives/25851364.html
$rules { get => [ new Rule\Offset('0', '9'), new Rule\Range('A', 'I', [Row::N12], Row::N1), new Rule\Range('J', 'R', [Row::N11], Row::N1), new Rule\Range('S', 'Z', [Row::N0], Row::N2), new Rule\Exact('$', Row::N11, Row::N8, Row::N3), ]; }
array $rules { 「メタキー」「連番の開始」で get => [ 指定して紐づける new Rule\Offset('0', '9'), new Rule\Range('A', 'I', [Row::N12], Row::N1), new Rule\Range('J', 'R', [Row::N11], Row::N1), new Rule\Range('S', 'Z', [Row::N0], Row::N2), 12 1 A 2 B 3 C 4 D 5 E 6 F 7 G new Rule\Exact('$', Row::N11, Row::N8, Row::N3), ]; } 8 H 9 I