Самые простые ИМК-11. Ч 2

Школьники из замечательного города Находка (я там работал в 1972 году шесть месяцев в порту) прочитали, по всей видимости многие мои миниатюры и попросили показать, как будет выглядеть ИМК-11, построенный по мнемоническому правилу. Это правило и квадрат помещаю в иллюстрации.
Одновременно попросили совета насчет наиболее простого метода, чтобы создать рисунок этого ИМК-11. Ну, мой метод прост. Создаю текстовой файл с именем, например "11.txt". Он выглядит так:

46 118 58 9 70 21 82 33 94 34 106
87 27 99 39 100 51 112 63 3 75 15
117 57 8 69 20 81 32 93 44 105 45
26 98 38 110 50 111 62 2 74 14 86
56 7 68 19 80 31 92 43 104 55 116
97 37 109 49 121 61 1 73 13 85 25
6 67 18 79 30 91 42 103 54 115 66
36 108 48 120 60 11 72 12 84 24 96
77 17 78 29 30 41 102 53 114 65 5
107 47 119 59 10 71 22 83 23 95 35
16 88 28 89 40 101 52 113 64 4 76

Далее по проге:

n=11
dim s(100)
open #1,"11.txt","r"
for i=1 to n
for j=1 to n
input #1 z
print z using "####";
s(i)=s(i)+z
next j
print s(i) using "#######"
print
next i

получаю красиво выравненную цифровую начинку. В Паинте добавляю линии и рамку. Как раз именно это и показано в иллюстрации.

Справа ИМК-11 распечатываются суммы по строкам. Если все они равны, то значит в текстовом файле все числа введены правильно. Это самый важный контроль!

20 ноября 20023 г.