147 FORCE NEW RECORD
00057 0 01303 0 01470 2HTRX−1,0,LOCREC CARD FOR DE
01303 3ORGLOCREC
TD01303 3 00000 0 00057 4TXH47 1I35 FT 62
01304 0 07400 4 00740 5TSXPRINT,4
01305 0 01244 0 01237 6HTRMACHIN,0,MACHIN+5
01306 0 07400 4 00740 7TSXPRINT,4
01307 0 01471 0 01311 8HTRPR,0,PR+112
01310 0 02000 0 00221 9TRADIGRTN
01311 606060606060 10PR BCD2␣␣␣␣␣␣␣␣␣␣␣␣
01312 606060606060 11
01313 233025234260 12BCD CHECK␣SUM␣ERROR␣IN␣READING␣DOCARE␣TABLE␣FROM␣DRUM␣1.␣␣THIS␣T
01314 626444602551 13
01315 514651603145 14
01316 605125212431 15
01317 452760244623 16
01320 215125606321 17
01321 224325602651 18
01322 464460245164 19
01323 446001336060 20
01324 633031626063 21
01325 212243256066 22BCD ABLE␣WAS␣WRITTEN␣AS␣A␣1␣WORD␣ENTRY␣AND␣A␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01326 216260665131 23
01327 636325456021 24
01330 626021600160 25
01331 664651246025 26
01332 456351706021 27
01333 452460216060 28
01334 606060606060 29
01335 606060606060 30
01336 606060606060 31
01337 233025234260 32BCD CHECK␣SUM␣OF␣THAT␣ENTRY␣BEGINNING␣AT␣2␣ON␣THE␣DRUM.␣␣THE␣1␣W
01340 626444604626 33
01341 606330216360 34
01342 254563517060 35
01343 222527314545 36
01344 314527602163 37
01345 600260464560 38
01346 633025602451 39
01347 644433606063 40
01350 302560016066 41
01351 465124602545 42BCD ORD␣ENTRIES␣ARE␣COPIED␣BACKWARDS␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01352 635131256260 43
01353 215125602346 44
01354 473125246022 45
01355 212342662151 46
01356 246260606060 47
01357 606060606060 48
01360 606060606060 49
01361 606060606060 50
01362 606060606060 51
01363 314563466023 52BCD INTO␣CORES␣BEGINNING␣4216.␣␣THEIR␣CHECK␣SUMS␣ARE␣COPIED␣BACK
01364 465125626022 53
01365 252731454531 54
01366 452760040201 55
01367 063360606330 56
01370 253151602330 57
01371 252342606264 58
01372 446260215125 59
01373 602346473125 60
01374 246022212342 61
01375 662151246260 62BCD WARDS␣INTO␣CORES␣BEGINNING␣AT␣4363.␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01376 314563466023 63
01377 465125626022 64
01400 252731454531 65
01401 452760216360 66
01402 040306033360 67
01403 606060606060 68
01404 606060606060 69
01405 606060606060 70
01406 606060606060 71
01407 216043462731 72BCD A␣LOGICAL␣SUM␣OF␣EACH␣OF␣THE␣RESULTING␣TABLES␣IS␣DONE.␣␣CHEC
01410 232143606264 73
01411 446046266025 74
01412 212330604626 75
01413 606330256051 76
01414 256264436331 77
01415 452760632122 78
01416 432562603162 79
01417 602446452533 80
01420 606023302523 81
01421 426062644460 82BCD K␣SUM␣OF␣THE␣ENTRIES␣IS␣IN␣105.␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01422 462660633025 83
01423 602545635131 84
01424 256260316260 85
01425 314560010005 86
01426 336060606060 87
01427 606060606060 88
01430 606060606060 89
01431 606060606060 90
01432 606060606060 91
01433 233025234260 92BCD CHECK␣SUM␣OF␣THE␣CHECK␣SUMS␣IS␣IN␣106.␣␣THE␣COPY␣LOOP␣BEGINS
01434 626444604626 93
01435 606330256023 94
01436 302523426062 95
01437 644462603162 96
01440 603145600100 97
01441 063360606330 98
01442 256023464770 99
01443 604346464760 100
01444 222527314562 101
01445 602163604346 102BCD ␣AT␣LOCATION␣1102.␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01446 232163314645 103
01447 600101000233 104
01450 606060606060 105
01451 606060606060 106
01452 606060606060 107
01453 606060606060 108
01454 606060606060 109
01455 606060606060 110
01456 606060606060 111
01457 263165256021 112BCD FIVE␣ATTEMPTS␣HAVE␣BEEN␣MADE␣TO␣READ␣THIS␣RECORD␣CORRECTLY.␣
01460 636325444763 113
01461 626030216525 114
01462 602225254560 115
01463 442124256063 116
01464 466051252124 117
01465 606330316260 118
01466 512523465124 119
01467 602346515125 120
01470 236343703360 121
01471 0 00000 0 00000 122X