143 FORCE NEW RECORD
00053 0 01303 0 01423 2HTRX−1,0,LOCREC CARD FOR DE
01303 3ORGLOCREC
TD01303 3 00000 0 00053 4TXH43 4006 FT 51
543 4007 FT 51
01304 0 07400 4 00740 6TSXPRINT,4
01305 0 01244 0 01237 7HTRMACHIN,0,MACHIN+5
01306 0 50000 0 01235 8CLAERWORD 4007 IF ALPHA STATE, BCD NOT SET UP
01307 0 40200 0 01325 9SUBALPHA FOR ALPHA
01310−0 12000 0 01317 10TMIPRIN
01311 0 50000 0 01322 11CLAA1
01312 0 60100 0 01335 12STOPR1
01313 0 50000 0 01323 13CLAA2
01314 0 60100 0 01336 14STOPR2
01315 0 50000 0 01324 15CLAA3
01316 0 60100 0 01337 16STOPR3
01317 0 07400 4 00740 17PRIN TSXPRINT,4
01320 0 01424 0 01326 18HTRPR,0,PR+62
01321 0 02000 0 00221 19TRADIGRTN
01322 446002336060 20A1 BCD1M␣2.␣␣
01323 633025602143 21A2 BCD1THE␣AL
01324 473021606263 22A3 BCD1PHA␣ST
01325+004007000000 23ALPHA OCT004007000000
01326 606060606060 24PR BCD2␣␣␣␣␣␣␣␣␣␣␣␣
01327 606060606060 25
01330 233025234260 26BCD5CHECK␣SUM␣ERROR␣IN␣READING␣DRU
01331 626444602551 27
01332 514651603145 28
01333 605125212431 29
01334 452760245164 30
01335 446001336060 31PR1 BCD1M␣1.␣␣
01336 633025606022 32PR2 BCD1THE␣␣B
01337 256321606263 33PR3 BCD ETA␣STATE␣CODING␣USED␣BY␣SECTION␣II,␣BLOCK␣5,␣HAS␣BEEN␣READ␣
01340 216325602346 34
01341 243145276064 35
01342 622524602270 36
01343 606225236331 37
01344 464560313173 38
01345 602243462342 39
01346 600573603021 40
01347 626022252545 41
01350 605125212460 42
01351 606060606060 43BCD3␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01352 606060606060 44
01353 606060606060 45
01354 314563466006 46BCD INTO␣6226␣THROUGH␣7225,␣STARTING␣FROM␣DRUM␣ADDRESS␣1751.␣␣TH
01355 020206606330 47
01356 514664273060 48
01357 070202057360 49
01360 626321516331 50
01361 452760265146 51
01362 446024516444 52
01363 602124245125 53
01364 626260010705 54
01365 013360606330 55
01366 256024516444 56BCD E␣DRUM␣CHECK␣SUM␣IS␣IN␣5202.␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01367 602330252342 57
01370 606264446031 58
01371 626031456005 59
01372 020002336060 60
01373 606060606060 61
01374 606060606060 62
01375 606060606060 63
01376 606060606060 64
01377 606060606060 65
01400 633025602346 66BCD THE␣COMPUTED␣CHECK␣SUM␣IS␣IN␣5203.␣␣FIVE␣ATTEMPTS␣HAVE␣BEEN␣
01401 444764632524 67
01402 602330252342 68
01403 606264446031 69
01404 626031456005 70
01405 020003336060 71
01406 263165256021 72
01407 636325444763 73
01410 626030216525 74
01411 602225254560 75
01412 442124256063 76BCD MADE␣TO␣READ␣THIS␣BLOCK␣OF␣PROGRAM␣CORRECTLY␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01413 466051252124 77
01414 606330316260 78
01415 224346234260 79
01416 462660475146 80
01417 275121446023 81
01420 465151252363 82
01421 437060606060 83
01422 606060606060 84
01423 606060606060 85
01424 0 00000 0 00000 86X