1 REM Ins{nd av Kjell Svensson <5318> 1988-06-21 21.38.38 (DUMP) 10 REM **************************** 20 REM * Program....R10R[TTN.BAC * 30 REM * Utg}va 1.0 880620 * 40 REM * f|r ABC80 med 24K-byte * 50 REM * av Kjell Svensson<5318> * 60 REM * ins{nd av <5318> * 70 REM **************************** 80 REM 90 REM F|r ABC80X beh|ver nog endast nedanst}ende rad {ndras? 100 W%=PEEK(590%)=40% : REM kolla sk{rmbredd. -1=40,0<>40 tkn 110 REM 120 ; CHR$(12%) 130 ; TAB(13%)"R10-r{ttning" 140 ; TAB(12%)"-------------" 150 ; "R{ttar tipstj{nsts R10-system d{r man "; : IF W% ; 160 ; "tippat tre s{kra,och raden r{ttas mot" 170 ; "tipstj{nsts garantitabell." 180 REM 190 R1%=567%-1% : REM ANTAL RADER-1 200 DIM B$(R1%)=10%,A$(9%)=1%,R%(13%),R$=15% 210 FOR I%=0 TO R1% : READ B$(I%) : NEXT I% 220 ; : ; "Hur m}nga s{kra matcher gick in (0-3)"; 230 INPUT R$ : IF R$<"0" OR R$>"3" OR LEN(R$)>1% ; : ; CHR$(7%)"Mellan 0 och 3 skall det vara!" : GOTO 220 240 S%=VAL(R$) 250 ; CHR$(12%); 260 ; : ; "MATA IN DEN R[TTA RADEN" 270 ; : ; "10 tecken (1X2) i en f|ljd och tryck "; : IF W% ; 280 ; "sedan p} RETURN "; : INPUT R$ 290 ; 300 IF LEN(R$)<>10% ; CHR$(7%)"Tio tecken var det!" : GOTO 260 310 FOR I%=0% TO 9% 320 A$(I%)=MID$(R$,I%+1%,1%) : IF A$(I%)="x" THEN A$(I%)="X" 330 IF INSTR(1%,"1X2",A$(I%))=0% ; CHR$(7%)"Bara 1,X eller 2" : GOTO 260 340 NEXT I% 350 ; "ST[MMER DETTA(J/N)"; : INPUT R$ : IF R$<>"J" AND R$<>"j" 250 360 REM 370 ; CHR$(12%)"V[NTA...." 380 FOR Y%=0% TO R1% 390 R%=S% 400 FOR I%=0% TO 9% 410 R%=R%-(MID$(B$(Y%),I%+1%,1%)=A$(I%)) 420 NEXT I% 430 R%(R%)=R%(R%)+1% 440 IF R%>9% ; "RAD"; : IF Y%<99% ; " "; : IF Y%<9% ; " "; 450 IF R%>9% ; Y%+1%" "R%" R[TT" 460 NEXT Y% 470 ; 480 FOR R%=13% TO 9% STEP -1% 490 IF R%(R%)*(R%(R%)<10%) ; " "; 500 IF R%(R%) ; R%(R%)" rader med "; : IF R%<10% ; " "; 510 IF R%(R%) ; R%" r{tt" 520 NEXT R% 530 ; : ; "T{nk g{rna p} alla oss stackars fattiga programpulare som sv{lter!." 540 END 1001 DATA 1111111111 1002 DATA 1111111XXX 1003 DATA 1111111222 1004 DATA 11111X211X 1005 DATA 11111X2XX2 1006 DATA 11111X2221 1007 DATA 111112X112 1008 DATA 111112XXX1 1009 DATA 111112X22X 1010 DATA 1111X2X11X 1011 DATA 1111X1XXX2 1012 DATA 1111X1X221 1013 DATA 1111XX21XX 1014 DATA 1111XX2X22 1015 DATA 1111XX2211 1016 DATA 1111212112 1017 DATA 1111212XX1 1018 DATA 111121222X 1019 DATA 111122X1X1 1020 DATA 111122XX2X 1021 DATA 111122X212 1022 DATA 111X112122 1023 DATA 111X112X11 1024 DATA 111X1122XX 1025 DATA 111X1X1121 1026 DATA 111X1X1X1X 1027 DATA 111X1X12X2 1028 DATA 111XX12121 1029 DATA 111XX12X1X 1030 DATA 111XX122X2 1031 DATA 111XXXX111 1032 DATA 111XXXXXXX 1033 DATA 111XXXX222 1034 DATA 111XX211X1 1035 DATA 111XX21X2X 1036 DATA 111XX21212 1037 DATA 111X2X21X1 1038 DATA 111X2X2X2X 1039 DATA 111X2X2212 1040 DATA 111X221112 1041 DATA 111X221XX1 1042 DATA 111X22122X 1043 DATA 111211X121 1044 DATA 111211XX1X 1045 DATA 111211X2X2 1046 DATA 1112121122 1047 DATA 1112121X11 1048 DATA 11121212XX 1049 DATA 1112XX111X 1050 DATA 1112XX1XX2 1051 DATA 1112XX1221 1052 DATA 1112X2X1XX 1053 DATA 1112X2XX22 1054 DATA 1112X2X211 1055 DATA 111221X122 1056 DATA 111221XX11 1057 DATA 111221X2XX 1058 DATA 11122X11XX 1059 DATA 11122X1X22 1060 DATA 11122X1211 1061 DATA 1112222111 1062 DATA 1112222XXX 1063 DATA 1112222222 1064 DATA 1X211111X2 1065 DATA 1X21111X21 1066 DATA 1X2111121X 1067 DATA 1X211XX1X1 1068 DATA 1X211XXX2X 1069 DATA 1X211XX212 1070 DATA 1X211221XX 1071 DATA 1X21122X22 1072 DATA 1X21122211 1073 DATA 1X21X211X1 1074 DATA 1X21X21X2X 1075 DATA 1X21X21212 1076 DATA 1X21X2X121 1077 DATA 1X21X2XX1X 1078 DATA 1X21X2X2X2 1079 DATA 1X212X11XX 1080 DATA 1X212X1X22 1081 DATA 1X212X1211 1082 DATA 1X212X2122 1083 DATA 1X212X2X11 1084 DATA 1X212X22XX 1085 DATA 1X2X12111X 1086 DATA 1X2X121XX2 1087 DATA 1X2X121221 1088 DATA 1X2X12X112 1089 DATA 1X2X12XXX1 1090 DATA 1X2X12X22X 1091 DATA 1X2XX11112 1092 DATA 1X2XX11XX1 1093 DATA 1X2XX1122X 1094 DATA 1X2XXXX1X2 1095 DATA 1X2XXXXX21 1096 DATA 1X2XXXX21X 1097 DATA 1X2XX22122 1098 DATA 1X2XX22X11 1099 DATA 1X2XX222XX 1100 DATA 1X2X21X122 1101 DATA 1X2X21XX11 1102 DATA 1X2X21X2XX 1103 DATA 1X2X2121XX 1104 DATA 1X2X212X22 1105 DATA 1X2X212211 1106 DATA 1X221X1112 1107 DATA 1X221X1XX1 1108 DATA 1X221X122X 1109 DATA 1X221X211X 1110 DATA 1X221X2XX2 1111 DATA 1X221X2221 1112 DATA 1X22X1X1X1 1113 DATA 1X22X1XX2X 1114 DATA 1X22X1X212 1115 DATA 1X22X12121 1116 DATA 1X22X12X1X 1117 DATA 1X22X122X2 1118 DATA 1X2221111X 1119 DATA 1X22211XX2 1120 DATA 1X22211221 1121 DATA 1X222XX121 1122 DATA 1X222XXX1X 1123 DATA 1X222XX2X2 1124 DATA 1X222221X2 1125 DATA 1X22222X21 1126 DATA 1X2222221X 1127 DATA 12X111112X 1128 DATA 12X1111X12 1129 DATA 12X11112X1 1130 DATA 12X1X12121 1131 DATA 12X1X12X1X 1132 DATA 12X1X122X2 1133 DATA 12X1XX1122 1134 DATA 12X1XX1X11 1135 DATA 12X1XX12XX 1136 DATA 12X1X2211X 1137 DATA 12X1X22XX2 1138 DATA 12X1X22221 1139 DATA 12X121X122 1140 DATA 12X121XX11 1141 DATA 12X121X2XX 1142 DATA 12X12XX112 1143 DATA 12X12XXXX1 1144 DATA 12X12XX22X 1145 DATA 12X1221121 1146 DATA 12X1221X1X 1147 DATA 12X12212X2 1148 DATA 12XX11X1XX 1149 DATA 12XX11XX22 1150 DATA 12XX11X211 1151 DATA 12XX1X211X 1152 DATA 12XX1X2XX2 1153 DATA 12XX1X2221 1154 DATA 12XX122121 1155 DATA 12XX122X1X 1156 DATA 12XX1222X2 1157 DATA 12XXXXX12X 1158 DATA 12XXXXXX12 1159 DATA 12XXXXX2X1 1160 DATA 12XX2111X1 1161 DATA 12XX211X2X 1162 DATA 12XX211212 1163 DATA 12XX2X11XX 1164 DATA 12XX2X1X22 1165 DATA 12XX2X1211 1166 DATA 12XX22X11X 1167 DATA 12XX22XXX2 1168 DATA 12XX22X221 1169 DATA 12X21121X1 1170 DATA 12X2112X2X 1171 DATA 12X2112212 1172 DATA 12X21XX122 1173 DATA 12X21XXX11 1174 DATA 12X21XX2XX 1175 DATA 12X212X112 1176 DATA 12X212XXX1 1177 DATA 12X212X22X 1178 DATA 12X2X111XX 1179 DATA 12X2X11X22 1180 DATA 12X2X11211 1181 DATA 12X2XX2112 1182 DATA 12X2XX2XX1 1183 DATA 12X2XX222X 1184 DATA 12X2X211X1 1185 DATA 12X2X21X2X 1186 DATA 12X2X21212 1187 DATA 12X222212X 1188 DATA 12X2222X12 1189 DATA 12X22222X1 1190 DATA X12111112X 1191 DATA X121111X12 1192 DATA X1211112X1 1193 DATA X121X12121 1194 DATA X121X12X1X 1195 DATA X121X122X2 1196 DATA X121XX1122 1197 DATA X121XX1X11 1198 DATA X121XX12XX 1199 DATA X121X2211X 1200 DATA X121X22XX2 1201 DATA X121X22221 1202 DATA X12121X122 1203 DATA X12121XX11 1204 DATA X12121X2XX 1205 DATA X1212XX112 1206 DATA X1212XXXX1 1207 DATA X1212XX22X 1208 DATA X121221121 1209 DATA X121221X1X 1210 DATA X1212212X2 1211 DATA X12X11X1XX 1212 DATA X12X11XX22 1213 DATA X12X11X211 1214 DATA X12X1X211X 1215 DATA X12X1X2XX2 1216 DATA X12X1X2221 1217 DATA X12X122121 1218 DATA X12X122X1X 1219 DATA X12X1222X2 1220 DATA X12XXXX12X 1221 DATA X12XXXXX12 1222 DATA X12XXXX2X1 1223 DATA X12X2111X1 1224 DATA X12X211X2X 1225 DATA X12X211212 1226 DATA X12X2X11XX 1227 DATA X12X2X1X22 1228 DATA X12X2X1211 1229 DATA X12X22X11X 1230 DATA X12X22XXX2 1231 DATA X12X22X221 1232 DATA X1221121X1 1233 DATA X122112X2X 1234 DATA X122112212 1235 DATA X1221XX122 1236 DATA X1221XXX11 1237 DATA X1221XX2XX 1238 DATA X12212X112 1239 DATA X12212XXX1 1240 DATA X12212X22X 1241 DATA X122X111XX 1242 DATA X122X11X22 1243 DATA X122X11211 1244 DATA X122XX2112 1245 DATA X122XX2XX1 1246 DATA X122XX222X 1247 DATA X122X211X1 1248 DATA X122X21X2X 1249 DATA X122X21212 1250 DATA X12222212X 1251 DATA X122222X12 1252 DATA X1222222X1 1253 DATA XXX1111111 1254 DATA XXX1111XXX 1255 DATA XXX1111222 1256 DATA XXX11X211X 1257 DATA XXX11X2XX2 1258 DATA XXX11X2221 1259 DATA XXX112X112 1260 DATA XXX112XXX1 1261 DATA XXX112X22X 1262 DATA XXX1X1X11X 1263 DATA XXX1X1XXX2 1264 DATA XXX1X1X221 1265 DATA XXX1XX21XX 1266 DATA XXX1XX2XX2 1267 DATA XXX1XX2211 1268 DATA XXX1212112 1269 DATA XXX1212XX1 1270 DATA XXX121222X 1271 DATA XXX122X1X1 1272 DATA XXX122XX2X 1273 DATA XXX122X212 1274 DATA XXXX112122 1275 DATA XXXX112X11 1276 DATA XXXX1122XX 1277 DATA XXXX1X1121 1278 DATA XXXX1X1X1X 1279 DATA XXXX1X12X2 1280 DATA XXXXX12121 1281 DATA XXXXX12X1X 1282 DATA XXXXX122X2 1283 DATA XXXXXXX111 1284 DATA XXXXXXXXXX 1285 DATA XXXXXXX222 1286 DATA XXXXX211X1 1287 DATA XXXXX21X2X 1288 DATA XXXXX21212 1289 DATA XXXX2X21X1 1290 DATA XXXX2X2X2X 1291 DATA XXXX2X2212 1292 DATA XXXX221112 1293 DATA XXXX221XX1 1294 DATA XXXX22122X 1295 DATA XXX211X121 1296 DATA XXX211XX1X 1297 DATA XXX211X2X2 1298 DATA XXX2121122 1299 DATA XXX2121X11 1300 DATA XXX21212XX 1301 DATA XXX2XX111X 1302 DATA XXX2XX1XX2 1303 DATA XXX2XX1221 1304 DATA XXX2X2X1XX 1305 DATA XXX2X2XX22 1306 DATA XXX2X2X211 1307 DATA XXX221X122 1308 DATA XXX221XX11 1309 DATA XXX221X2XX 1310 DATA XXX22X11XX 1311 DATA XXX22X1X22 1312 DATA XXX22X1211 1313 DATA XXX2222111 1314 DATA XXX2222XXX 1315 DATA XXX2222222 1316 DATA X2111111X2 1317 DATA X211111X21 1318 DATA X21111121X 1319 DATA X2111XX1X1 1320 DATA X2111XXX2X 1321 DATA X2111XX212 1322 DATA X2111221XX 1323 DATA X211122X22 1324 DATA X211122211 1325 DATA X211X211X1 1326 DATA X211X21X2X 1327 DATA X211X21212 1328 DATA X211X2X121 1329 DATA X211X2XX1X 1330 DATA X211X2X2X2 1331 DATA X2112X11XX 1332 DATA X2112X1X22 1333 DATA X2112X1211 1334 DATA X2112X2122 1335 DATA X2112X2X11 1336 DATA X2112X22XX 1337 DATA X21X12111X 1338 DATA X21X121XX2 1339 DATA X21X121221 1340 DATA X21X12X112 1341 DATA X21X12XXX1 1342 DATA X21X12X22X 1343 DATA X21XXX1112 1344 DATA X21XX11XX1 1345 DATA X21XX1122X 1346 DATA X21XXXX1X2 1347 DATA X21XXXXX21 1348 DATA X21XXXX21X 1349 DATA X21XX22122 1350 DATA X21XX22X11 1351 DATA X21XX222XX 1352 DATA X21X21X122 1353 DATA X21X21XX11 1354 DATA X21X21X2XX 1355 DATA X21X2121XX 1356 DATA X21X212X22 1357 DATA X21X212211 1358 DATA X2121X1112 1359 DATA X2121X1XX1 1360 DATA X2121X122X 1361 DATA X2121X211X 1362 DATA X2121X2XX2 1363 DATA X2121X2221 1364 DATA X212X1X1X1 1365 DATA X212X1XX2X 1366 DATA X212X1X212 1367 DATA X212X12121 1368 DATA X212X12X1X 1369 DATA X212X122X2 1370 DATA X21221111X 1371 DATA X212211XX2 1372 DATA X212211221 1373 DATA X2122XX121 1374 DATA X2122XXX12 1375 DATA X2122XX2X2 1376 DATA X2122221X2 1377 DATA X212222X21 1378 DATA X21222221X 1379 DATA 21X11111X2 1380 DATA 21X1111X21 1381 DATA 21X111121X 1382 DATA 21X11XX1X1 1383 DATA 21X11XXX2X 1384 DATA 21X11XX212 1385 DATA 21X11221XX 1386 DATA 21X1122X22 1387 DATA 21X1122211 1388 DATA 21X1X211X1 1389 DATA 21X1X21X2X 1390 DATA 21X1X21212 1391 DATA 21X1X2X121 1392 DATA 21X1X2XX1X 1393 DATA 21X1X2X2X2 1394 DATA 21X12X11XX 1395 DATA 21X12X1X22 1396 DATA 21X12X1211 1397 DATA 21X12X2122 1398 DATA 21X12X2X11 1399 DATA 21X12X22XX 1400 DATA 21XX12111X 1401 DATA 21XX121XX2 1402 DATA 21XX121221 1403 DATA 21XX12X112 1404 DATA 21XX12XXX1 1405 DATA 21XX12X22X 1406 DATA 21XXXX1112 1407 DATA 21XXX11XX1 1408 DATA 21XXX1122X 1409 DATA 21XXXXX1X2 1410 DATA 21XXXXXX21 1411 DATA 21XXXXX21X 1412 DATA 21XXX22122 1413 DATA 21XXX22X11 1414 DATA 21XXX222XX 1415 DATA 21XX21X122 1416 DATA 21XX21XX11 1417 DATA 21XX21X2XX 1418 DATA 21XX2121XX 1419 DATA 21XX212X22 1420 DATA 21XX212211 1421 DATA 21X21X1112 1422 DATA 21X21X1XX1 1423 DATA 21X21X122X 1424 DATA 21X21X211X 1425 DATA 21X21X2XX2 1426 DATA 21X21X2221 1427 DATA 21X2X1X1X1 1428 DATA 21X2X1XX2X 1429 DATA 21X2X1X212 1430 DATA 21X2X12121 1431 DATA 21X2X12X1X 1432 DATA 21X2X122X2 1433 DATA 21X221111X 1434 DATA 21X2211XX2 1435 DATA 21X2211221 1436 DATA 21X22XX121 1437 DATA 21X22XXX1X 1438 DATA 21X22XX2X2 1439 DATA 21X22221X2 1440 DATA 21X2222X21 1441 DATA 21X222221X 1442 DATA 2X1111112X 1443 DATA 2X11111X12 1444 DATA 2X111112X1 1445 DATA 2X11X12121 1446 DATA 2X11X12X1X 1447 DATA 2X11X122X2 1448 DATA 2X11XX1122 1449 DATA 2X11XX1X11 1450 DATA 2X11XX12XX 1451 DATA 2X11X2211X 1452 DATA 2X11X22XX2 1453 DATA 2X11X22221 1454 DATA 2X1121X122 1455 DATA 2X1121XX11 1456 DATA 2X1121X2XX 1457 DATA 2X112XX112 1458 DATA 2X112XXXX1 1459 DATA 2X112XX22X 1460 DATA 2X11221121 1461 DATA 2X11221X1X 1462 DATA 2X112212X2 1463 DATA 2X1X11X1XX 1464 DATA 2X1X11XXX2 1465 DATA 2X1X11X211 1466 DATA 2X1X1X211X 1467 DATA 2X1X1X2XX2 1468 DATA 2X1X1X2221 1469 DATA 2X1X122121 1470 DATA 2X1X122X1X 1471 DATA 2X1X1222X2 1472 DATA 2X1XXXX12X 1473 DATA 2X1XXXXX12 1474 DATA 2X1XXXX2X1 1475 DATA 2X1X2111X1 1476 DATA 2X1X211X2X 1477 DATA 2X1X211212 1478 DATA 2X1X2X11XX 1479 DATA 2X1X2X1X22 1480 DATA 2X1X2X1211 1481 DATA 2X1X22X11X 1482 DATA 2X1X22XXX2 1483 DATA 2X1X22X221 1484 DATA 2X121121X1 1485 DATA 2X12112X2X 1486 DATA 2X12112212 1487 DATA 2X121XX122 1488 DATA 2X121XXX11 1489 DATA 2X121XX2XX 1490 DATA 2X1212X112 1491 DATA 2X1212XXX1 1492 DATA 2X1212X22X 1493 DATA 2X12X111XX 1494 DATA 2X12X11X22 1495 DATA 2X12X11211 1496 DATA 2X12XX2112 1497 DATA 2X12XX2XX1 1498 DATA 2X12XX222X 1499 DATA 2X12X211X1 1500 DATA 2X12X21X2X 1501 DATA 2X12X21212 1502 DATA 2X1222212X 1503 DATA 2X12222X12 1504 DATA 2X122222X1 1505 DATA 2221111111 1506 DATA 2221111XXX 1507 DATA 2221111222 1508 DATA 22211X211X 1509 DATA 22211X2XX2 1510 DATA 22211X2221 1511 DATA 222112X112 1512 DATA 222112XXX1 1513 DATA 222112X22X 1514 DATA 2221X1X11X 1515 DATA 2221X1XXX2 1516 DATA 2221X1X221 1517 DATA 2221XX211X 1518 DATA 2221XX2X22 1519 DATA 2221XX2211 1520 DATA 2221212112 1521 DATA 2221212XX1 1522 DATA 222121222X 1523 DATA 222122X1X1 1524 DATA 222122XX2X 1525 DATA 222122X212 1526 DATA 222X112122 1527 DATA 222X112X11 1528 DATA 222X1122XX 1529 DATA 222X1X1121 1530 DATA 222X1X1X1X 1531 DATA 222X1X12X2 1532 DATA 222XX12121 1533 DATA 222XX12X1X 1534 DATA 222XX122X2 1535 DATA 222XXXX111 1536 DATA 222XXXXXXX 1537 DATA 222XXXX222 1538 DATA 222XX211X1 1539 DATA 222XX21X2X 1540 DATA 222XX21212 1541 DATA 222X2X21X1 1542 DATA 222X2X2X2X 1543 DATA 222X2X2212 1544 DATA 222X221112 1545 DATA 222X221XX1 1546 DATA 222X22122X 1547 DATA 222211X121 1548 DATA 222211XX1X 1549 DATA 222211X2X2 1550 DATA 2222121122 1551 DATA 2222121X11 1552 DATA 22221212XX 1553 DATA 2222XX111X 1554 DATA 2222XX1XX2 1555 DATA 2222XX1221 1556 DATA 2222X2X1XX 1557 DATA 2222X2XX22 1558 DATA 2222X2X211 1559 DATA 222221X122 1560 DATA 222221XX11 1561 DATA 222221X2XX 1562 DATA 22222X11XX 1563 DATA 22222X1X22 1564 DATA 22222X1211 1565 DATA 2222222111 1566 DATA 2222222XXX 1567 DATA 2222222222