1119 FORCE NEW RECORD
00167 0 01303 0 01442 2HTRX−1,0,LOCREC CARD FOR DE
01303 3ORGLOCREC
TD01303 3 00000 0 00167 4TXH119 314 FT 90
01304 0 07400 4 00740 5TSXPRINT,4
01305 0 01244 0 01237 6HTRMACHIN,0,MACHIN+5
01306 0 76200 0 00304 7RDR4
01307 0 46000 0 01344 8LDAAA
01310 0 70000 0 01257 9CPYERAS
01311−0 75400 0 00000 10PXD0,0
01312 0 56000 0 01257 11LDQERAS
01313−0 76300 0 00003 12LGL3 FIRST OCTAL NUMBER INTO COMMENT
01314−0 60200 0 01363 13ORSA
01315−0 76300 0 00017 14LGL15
01316 0 07400 4 00730 15TSXOCTBCD,4
01317 0 60200 0 01364 16SLWB B 23456
01320 0 56000 0 01257 17LDQERAS FIX TAG FIELD
01321−0 77300 0 00022 18RQL18
01322−0 50000 0 00717 19CALBLANKS
01323 0 76700 0 00003 20ALS3
01324−0 76300 0 00003 21LGL3
01325 0 60200 0 01365 22SLWC
01326 0 50000 0 01257 23CLAERAS
01327 0 07400 4 00730 24TSXOCTBCD,4 B 89101112
01330 0 60200 0 01366 25SLWD
01331 0 56000 0 01366 26LDQD
01332−0 50000 0 01365 27CALC
01333−0 76300 0 00030 28LGL24 8788910
01334 0 60200 0 01365 29SLWC
01335−0 76300 0 00014 30LGL12
01336 0 56000 0 00717 31LDQBLANKS
01337−0 76300 0 00030 32LGL24
01340 0 60200 0 01366 33SLWD 11128888
01341 0 07400 4 00740 34TSXPRINT,4
01342 0 01443 0 01345 35HTRPR,0,PR+62
01343 0 02000 0 00221 36TRADIGRTN
01344 0 00000 0 01144 37AA
01345 606060606060 38PR BCD2␣␣␣␣␣␣␣␣␣␣␣␣
01346 606060606060 39
01347 632147256002 40BCD TAPE␣2␣IS␣NOT␣CORRECTLY␣POSITIONED.␣␣CURRENT␣FILE␣5␣RECORD␣I
01350 603162604546 41
01351 636023465151 42
01352 252363437060 43
01353 474662316331 44
01354 464525243360 45
01355 602364515125 46
01356 456360263143 47
01357 256005605125 48
01360 234651246031 49
01361 242545633126 50BCD2DENTIFICATIO
01362 312321633146 51
01363 456031626000 52 A BCD1N␣IS␣0
A01364 0 00000 0 00000 53 B HTR
A01365 0 00000 0 00000 54 C HTR
01366 606060606060 55 D BCD5␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01367 606060606060 56
01370 606060606060 57
01371 606060606060 58
01372 606060606060 59
01373 214524602446 60BCD AND␣DOES␣NOT␣MATCH␣EXPECTED␣RECORD␣IDENTIFICATION␣WHICH␣WAS␣
01374 256260454663 61
01375 604421632330 62
01376 602567472523 63
01377 632524605125 64
01400 234651246031 65
01401 242545633126 66
01402 312321633146 67
01403 456066303123 68
01404 306066216260 69
01405 314560633025 70BCD IN␣THE␣ACCUMULATOR␣AND␣IS␣NOT␣STORED.␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01406 602123236444 71
01407 644321634651 72
01410 602145246031 73
01411 626045466360 74
01412 626346512524 75
01413 336060606060 76
01414 606060606060 77
01415 606060606060 78
01416 606060606060 79
01417 633031626062 80BCD THIS␣SUBROUTINE␣BEGINS␣AT␣304␣AND␣IS␣USED␣TO␣READ␣IN␣ANY␣OF␣
01420 642251466463 81
01421 314525602225 82
01422 273145626021 83
01423 636003000460 84
01424 214524603162 85
01425 606462252460 86
01426 634660512521 87
01427 246031456021 88
01430 457060462660 89
01431 633025605125 90BCD THE␣RECORDS␣IN␣FILE␣5,␣TAPE␣2.␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01432 234651246260 91
01433 314560263143 92
01434 256005736063 93
01435 214725600233 94
01436 606060606060 95
01437 606060606060 96
01440 606060606060 97
01441 606060606060 98
01442 606060606060 99
01443 0 00000 0 00000 100X