10 MEMSET:CLEAR:DIMA(11,40)
20 READA(0,0)
30 FORI=1TOA(0,0):FORJ=1TO6
40 READK:A(1,K)=A(1,K)+1
50 NEXTJ,I
60 FORI=1TO40:RESTORE1001
70 FORJ=1TO25:FORK=1TO6
80 READL:IFL=I THENA(2,I)=J:GOTO100
90 NEXTK,J
100 NEXTI
110 RESTORE1150
120 FORI=150TOA(0,0):FORJ=1TO6
130 READK:A(3,K)=I
140 NEXTJ,I
150 FORI=1TO40
160 J=(A(0,0)-A(2,I)+1)/A(1,I)
170 K=(A(3,I)-A(2,I))/(A(1,I)-1)
180 K=(A(0,0)-A(2,I)+1)/K
190 A(4,I)=ABS(J-CINT(J))
200 A(5,I)=ABS(K-CINT(K))
210 NEXTI
220 FORI=1TO40:A(6,I)=I:NEXTI
230 FORI=1TO40:A(7,I)=A(1,I):NEXTI
240 FORJ=39TO1STEP-1
250 FORI=1TOJ
260 IFA(7,I+1)=>A(7,I)THEN290
270 OLD=A(7,I+1):A(7,I+1)=A(7,I):A(7,I)=OLD
280 OLD=A(6,I+1):A(6,I+1)=A(6,I):A(6,I)=OLD
290 NEXTI
300 NEXTJ
310 FORI=1TO20
320 OLD=A(6,I):A(6,I)=A(6,41-I):A(6,41-I)=OLD
330 OLD=A(7,I):A(7,I)=A(7,41-I):A(7,41-I)=OLD
340 NEXTI
350 FORI=1TO40:A(8,I)=A(6,I):A(9,I)=A(6,I):NEXTI
360 FORI=1TO40
370 A(10,I)=A(4,A(6,I)):A(11,I)=A(5,A(6,I))
380 NEXTI
390 FORJ=39TO1STEP-1
400 FORI=1TOJ
410 IFA(10,I+1)=>A(10,I)THEN440
420 OLD=A(10,I+1):A(10,I+1)=A(10,I):A(10,I)=OLD
430 OLD=A(8,I+1):A(8,I+1)=A(8,I):A(8,I)=OLD
440 NEXTI
450 NEXTJ
460 FORJ=39TO1STEP-1
470 FORI=1TOJ
480 IFA(11,I+1)=>A(11,I)THEN510
490 OLD=A(11,I+1):A(11,I+1)=A(11,I):A(11,I)=OLD
500 OLD=A(9,I+1):A(9,I+1)=A(9,I):A(9,I)=OLD
510 NEXTI
520 NEXTJ
530 CLS:FORI=1TO6
540 PRINTUSING"##";A(8,I);:PRINTCHR$(32);
550 NEXTI
560 PRINT:FORI=1TO6
570 PRINTUSING"##";A(9,I);:PRINTCHR$(32);
580 NEXTI
1000 DATA 221
1001 DATA 6,12,16,19,22,30
1002 DATA 1,12,28,29,32,35
1003 DATA 3,4,5,7,15,17
1004 DATA 13,17,21,33,36,37
1005 DATA 8,22,27,30,31,33
1006 DATA 2,14,25,30,32,40
1007 DATA 6,12,18,24,31,34
1008 DATA 3,6,9,10,16,30
1009 DATA 14,19,21,23,37,39
1010 DATA 6,14,21,26,28,36
1011 DATA 9,18,23,25,33,40
1012 DATA 6,13,20,33,35,37
1013 DATA 1,2,15,19,30,38
1014 DATA 6,14,20,22,30,38
1015 DATA 10,13,17,24,30,33
1016 DATA 7,8,13,20,22,26
1017 DATA 1,9,15,26,27,28
1018 DATA 1,11,13,28,36,37
1019 DATA 8,11,15,22,31,33
1020 DATA 4,14,21,27,31,38
1021 DATA 8,11,21,22,36,39
1022 DATA 4,16,17,23,31,35
1023 DATA 2,16,20,23,33,35
1024 DATA 3,4,10,17,22,36
1025 DATA 1,11,15,26,29,34
1026 DATA 6,11,13,17,21,40
1027 DATA 6,14,18,24,27,35
1028 DATA 1,4,11,17,22,39
1029 DATA 5,9,16,24,37,39
1030 DATA 5,7,14,23,31,34
1031 DATA 2,5,11,25,27,34
1032 DATA 5,19,24,25,27,35
1033 DATA 3,21,23,25,32,37
1034 DATA 8,17,19,27,30,31
1035 DATA 1,2,10,20,21,32
1036 DATA 4,15,17,23,32,33
1037 DATA 3,21,24,35,38,39
1038 DATA 8,10,13,14,18,27
1039 DATA 15,16,23,26,30,37
1040 DATA 19,27,28,33,39,40
1041 DATA 3,5,19,35,36,39
1042 DATA 4,10,11,13,28,36
1043 DATA 7,10,13,25,27,37
1044 DATA 1,6,16,18,19,25
1045 DATA 11,13,15,20,21,37
1046 DATA 5,10,17,18,25,38
1047 DATA 9,12,15,16,21,25
1048 DATA 9,15,23,29,37,40
1049 DATA 8,13,14,18,19,22
1050 DATA 5,7,31,35,37,40
1051 DATA 13,20,30,31,32,39
1052 DATA 6,7,14,28,30,34
1053 DATA 9,10,17,19,20,38
1054 DATA 2,7,29,31,33,35
1055 DATA 10,20,27,29,32,36
1056 DATA 3,11,22,23,29,36
1057 DATA 6,9,13,17,22,24
1058 DATA 2,15,21,30,31,34
1059 DATA 13,15,17,29,31,34
1060 DATA 5,6,7,26,34,39
1061 DATA 12,15,20,23,31,32
1062 DATA 9,20,22,23,35,39
1063 DATA 7,24,26,27,28,38
1064 DATA 1,7,10,16,27,33
1065 DATA 16,20,31,34,39,40
1066 DATA 10,14,17,25,28,33
1067 DATA 12,18,28,29,35,40
1068 DATA 6,7,8,23,25,40
1069 DATA 4,5,24,32,33,36
1070 DATA 4,14,26,34,36,40
1071 DATA 14,16,19,21,27,29
1072 DATA 6,8,18,26,36,40
1073 DATA 3,9,22,30,34,37
1074 DATA 2,9,19,22,29,33
1075 DATA 2,6,11,13,39,40
1076 DATA 12,18,22,28,35,39
1077 DATA 9,20,25,27,29,30
1078 DATA 2,12,16,18,20,26
1079 DATA 5,6,10,26,27,39
1080 DATA 2,6,8,14,24,29
1081 DATA 14,17,18,21,26,40
1082 DATA 18,23,27,28,33,39
1083 DATA 3,5,11,19,38,39
1084 DATA 1,4,11,14,29,31
1085 DATA 1,2,11,14,18,34
1086 DATA 5,11,13,21,28,30
1087 DATA 5,9,11,21,22,32
1088 DATA 1,2,20,26,29,40
1089 DATA 2,9,14,15,21,34
1090 DATA 2,3,21,22,24,37
1091 DATA 7,8,22,27,38,39
1092 DATA 9,16,17,20,22,25
1093 DATA 2,5,6,18,39,40
1094 DATA 9,13,22,24,33,36
1095 DATA 1,8,19,34,37,38
1096 DATA 1,18,24,27,31,34
1097 DATA 7,14,26,32,33,34
1098 DATA 6,9,21,27,33,39
1099 DATA 2,4,8,13,28,40
1100 DATA 6,18,20,23,29,35
1101 DATA 1,2,13,21,28,29
1102 DATA 5,9,11,20,28,36
1103 DATA 1,6,8,28,34,36
1104 DATA 7,9,18,26,34,40
1105 DATA 2,7,13,19,33,34
1106 DATA 13,14,15,19,20,21
1107 DATA 10,12,17,21,30,39
1108 DATA 9,18,19,20,38,40
1109 DATA 9,15,18,29,31,39
1110 DATA 2,5,18,19,25,30
1111 DATA 6,13,19,27,29,39
1112 DATA 7,16,23,31,32,40
1113 DATA 5,15,26,35,36,37
1114 DATA 1,10,13,30,33,35
1115 DATA 3,7,10,11,24,28
1116 DATA 3,11,12,18,24,32
1117 DATA 1,2,7,13,14,24
1118 DATA 4,8,14,16,27,29
1119 DATA 1,17,32,33,39,40
1120 DATA 6,17,26,31,35,40
1121 DATA 12,13,28,29,31,40
1122 DATA 3,13,19,20,21,29
1123 DATA 3,8,15,16,18,39
1124 DATA 14,16,27,28,29,30
1125 DATA 5,18,25,36,37,38
1126 DATA 1,9,14,27,31,39
1127 DATA 11,26,27,31,35,40
1128 DATA 3,8,11,22,35,37
1129 DATA 3,8,9,22,26,35
1130 DATA 2,16,24,26,27,34
1131 DATA 13,31,32,33,35,38
1132 DATA 3,4,18,19,20,37
1133 DATA 1,3,5,26,37,40
1134 DATA 7,9,12,17,22,23
1135 DATA 5,19,22,24,28,32
1136 DATA 6,10,14,18,23,27
1137 DATA 4,14,15,24,31,35
1138 DATA 3,5,18,22,28,40
1139 DATA 3,9,19,23,27,40
1140 DATA 7,13,17,22,24,31
1141 DATA 3,9,16,29,34,36
1142 DATA 10,20,28,32,34,35
1143 DATA 1,2,6,16,26,29
1144 DATA 4,5,22,24,29,32
1145 DATA 15,19,25,29,32,38
1146 DATA 1,10,17,21,29,38
1147 DATA 5,13,15,28,30,32
1148 DATA 3,4,16,24,28,30
1149 DATA 2,8,20,21,27,29
1150 DATA 1,7,8,23,29,40
1151 DATA 13,15,16,22,34,40
1152 DATA 3,13,17,33,34,39
1153 DATA 6,7,11,20,29,39
1154 DATA 4,15,22,23,31,33
1155 DATA 4,8,21,22,31,38
1156 DATA 2,5,13,17,30,35
1157 DATA 1,2,18,19,20,25
1158 DATA 4,5,7,12,32,40
1159 DATA 16,23,37,38,39,40
1160 DATA 1,4,23,26,31,37
1161 DATA 18,20,22,33,34,37
1162 DATA 5,13,19,29,32,35
1163 DATA 4,9,12,21,23,33
1164 DATA 11,12,15,17,23,35
1165 DATA 6,9,26,29,32,34
1166 DATA 9,22,23,26,27,40
1167 DATA 8,15,19,20,22,28
1168 DATA 11,19,23,31,32,33
1169 DATA 5,10,19,30,33,39
1170 DATA 5,8,10,11,25,33
1171 DATA 5,10,15,19,20,26
1172 DATA 9,10,16,28,30,37
1173 DATA 13,28,29,34,39,40
1174 DATA 3,11,12,21,31,32
1175 DATA 10,14,18,26,31,35
1176 DATA 20,22,28,30,37,39
1177 DATA 3,6,19,20,32,35
1178 DATA 8,21,30,32,35,38
1179 DATA 4,9,16,25,26,40
1180 DATA 4,10,11,19,29,38
1181 DATA 6,10,14,28,33,34
1182 DATA 6,8,9,22,27,34
1183 DATA 6,10,12,18,31,37
1184 DATA 2,17,20,25,30,40
1185 DATA 5,6,20,21,22,32
1186 DATA 2,8,22,26,31,33
1187 DATA 9,12,20,25,27,28
1188 DATA 2,4,5,13,21,38
1189 DATA 3,6,15,18,26,33
1190 DATA 12,16,19,25,26,35
1191 DATA 1,6,10,21,28,36
1192 DATA 9,18,20,26,28,40
1193 DATA 3,5,11,27,30,33
1194 DATA 2,5,7,28,32,40
1195 DATA 2,10,11,21,24,30
1196 DATA 5,27,32,34,36,37
1197 DATA 8,14,20,24,27,38
1198 DATA 1,14,16,18,19,22
1199 DATA 10,18,19,23,25,37
1200 DATA 4,5,6,12,28,39
1201 DATA 8,24,30,32,33,40
1202 DATA 1,3,5,22,38,39
1203 DATA 2,3,14,19,22,29
1204 DATA 2,8,14,22,27,35
1205 DATA 3,4,14,23,36,37
1206 DATA 12,16,17,27,35,38
1207 DATA 1,9,11,22,25,26
1208 DATA 3,9,10,17,21,28
1209 DATA 4,7,12,15,35,39
1210 DATA 2,5,7,11,19,20
1211 DATA 10,16,22,36,37,38
1212 DATA 6,23,27,29,32,37
1213 DATA 7,8,16,23,26,37
1214 DATA 2,14,26,35,36,39
1215 DATA 1,5,6,9,15,38
1216 DATA 5,11,27,36,38,40
1217 DATA 5,20,23,28,33,35
1218 DATA 7,16,18,25,31,33
1219 DATA 9,14,19,20,30,38
1220 DATA 7,10,20,27,30,36
1221 DATA 10,19,20,25,30,40