|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 11455 (0x2cbf)
Types: Q1_HexDump, reclen=79
Notes: q1file
Names: »LIFEA«
└─⟦934333717⟧ Bits:30008597 DDMQ1-0029_Demonstration_Disk_SOURCE_Single_Density_Sept_77
└─⟦this⟧ »LIFEA«
0x0000…004f (0,) 44 43 4c 20 20 41 52 28 32 36 34 29 20 42 49 4e 41 52 59 20 49 4e 49 54 28 30 2c 30 2c 34 2c 31 37 2c 32 39 2c 34 32 2c 35 36 2c 37 30 2c 38 34 2c 39 38 2c 31 31 33 2c 31 32 38 2c 31 34 33 2c 31 35 39 2c 31 37 35 2c 31 39 31 2c 20 20 20 ┆DCL AR(264) BINARY INIT(0,0,4,17,29,42,56,70,84,98,113,128,143,159,175,191, ┆
0x004f…009e (1,) 20 20 20 20 20 32 30 38 2c 32 32 34 2c 32 34 32 2c 32 35 39 2c 32 35 39 2c 33 34 38 2c 34 34 31 2c 35 32 36 2c 30 2c 30 2c 35 2c 31 38 2c 33 31 2c 34 35 2c 35 39 2c 37 33 2c 38 38 2c 31 30 33 2c 31 31 38 2c 31 33 33 2c 31 34 39 2c 20 20 ┆ 208,224,242,259,259,348,441,526,0,0,5,18,31,45,59,73,88,103,118,133,149, ┆
0x009e…00ed (2,) 20 20 20 20 20 31 36 35 2c 31 38 31 2c 31 39 38 2c 32 31 35 2c 32 33 32 2c 32 35 30 2c 32 36 37 2c 32 35 30 2c 33 34 30 2c 34 33 34 2c 35 32 31 2c 30 2c 30 2c 36 2c 32 30 2c 33 33 2c 34 37 2c 36 32 2c 37 37 2c 39 32 2c 31 30 37 2c 20 20 ┆ 165,181,198,215,232,250,267,250,340,434,521,0,0,6,20,33,47,62,77,92,107, ┆
0x00ed…013c (3,) 20 20 20 20 20 31 32 33 2c 31 33 39 2c 31 35 35 2c 31 37 31 2c 31 38 38 2c 32 30 35 2c 32 32 33 2c 32 34 30 2c 32 35 38 2c 32 37 36 2c 32 34 30 2c 33 33 31 2c 34 32 36 2c 35 31 36 2c 30 2c 30 2c 37 2c 32 31 2c 33 35 2c 35 30 2c 36 35 2c ┆ 123,139,155,171,188,205,223,240,258,276,240,331,426,516,0,0,7,21,35,50,65,┆
0x013c…018b (4,) 20 20 20 20 20 38 30 2c 39 36 2c 31 31 31 2c 31 32 38 2c 31 34 34 2c 31 36 31 2c 31 37 38 2c 31 39 35 2c 32 31 32 2c 32 33 30 2c 32 34 38 2c 32 36 36 2c 32 38 35 2c 32 33 30 2c 33 32 32 2c 34 31 37 2c 35 31 30 2c 30 2c 30 2c 39 2c 20 20 ┆ 80,96,111,128,144,161,178,195,212,230,248,266,285,230,322,417,510,0,0,9, ┆
0x018b…01da (5,) 20 20 20 20 20 32 33 2c 33 38 2c 35 33 2c 36 38 2c 38 34 2c 31 30 30 2c 31 31 36 2c 31 33 33 2c 31 34 39 2c 31 36 37 2c 31 38 34 2c 32 30 32 2c 32 32 30 2c 32 33 38 2c 32 35 36 2c 32 37 35 2c 32 39 33 2c 32 32 30 2c 33 31 32 2c 20 20 20 ┆ 23,38,53,68,84,100,116,133,149,167,184,202,220,238,256,275,293,220,312, ┆
0x01da…0229 (6,) 20 20 20 20 20 34 30 39 2c 35 30 34 2c 30 2c 30 2c 31 30 2c 32 35 2c 34 30 2c 35 35 2c 37 31 2c 38 37 2c 31 30 34 2c 31 32 31 2c 31 33 38 2c 31 35 35 2c 31 37 33 2c 31 39 31 2c 32 30 39 2c 32 32 37 2c 32 34 36 2c 32 36 34 2c 32 38 33 2c ┆ 409,504,0,0,10,25,40,55,71,87,104,121,138,155,173,191,209,227,246,264,283,┆
0x0229…0278 (7,) 20 20 20 20 20 33 30 32 2c 32 30 39 2c 33 30 32 2c 33 39 39 2c 34 39 38 2c 30 2c 30 2c 31 31 2c 32 36 2c 34 32 2c 35 38 2c 37 34 2c 39 31 2c 31 30 38 2c 31 32 35 2c 31 34 33 2c 31 36 31 2c 31 37 39 2c 31 39 37 2c 32 31 36 2c 32 33 34 2c ┆ 302,209,302,399,498,0,0,11,26,42,58,74,91,108,125,143,161,179,197,216,234,┆
0x0278…02c7 (8,) 20 20 20 20 20 32 35 33 2c 32 37 32 2c 32 39 32 2c 33 31 31 2c 31 39 37 2c 32 39 32 2c 33 39 30 2c 34 38 39 2c 30 2c 30 2c 31 32 2c 32 38 2c 34 34 2c 36 31 2c 37 37 2c 39 35 2c 31 31 32 2c 31 33 30 2c 31 34 38 2c 31 36 36 2c 31 38 35 2c ┆ 253,272,292,311,197,292,390,489,0,0,12,28,44,61,77,95,112,130,148,166,185,┆
0x02c7…0316 (9,) 20 20 20 20 20 32 30 34 2c 32 32 33 2c 32 34 32 2c 32 36 31 2c 32 38 31 2c 33 30 30 2c 33 32 30 2c 31 38 35 2c 32 38 31 2c 33 38 30 2c 34 38 30 2c 30 2c 30 2c 31 33 2c 32 39 2c 34 36 2c 36 33 2c 38 31 2c 39 38 2c 31 31 36 2c 31 33 35 2c ┆ 204,223,242,261,281,300,320,185,281,380,480,0,0,13,29,46,63,81,98,116,135,┆
0x0316…0365 (10,) 20 20 20 20 20 31 35 33 2c 31 37 32 2c 31 39 31 2c 32 31 30 2c 32 33 30 2c 32 34 39 2c 32 36 39 2c 32 38 39 2c 33 30 39 2c 33 32 39 2c 31 37 32 2c 32 36 39 2c 33 37 30 2c 34 37 31 2c 30 2c 30 2c 31 34 2c 33 31 2c 34 38 2c 36 36 2c 20 20 ┆ 153,172,191,210,230,249,269,289,309,329,172,269,370,471,0,0,14,31,48,66, ┆
0x0365…03b4 (11,) 20 20 20 20 20 38 34 2c 31 30 32 2c 31 32 31 2c 31 34 30 2c 31 35 39 2c 31 37 38 2c 31 39 37 2c 32 31 37 2c 32 33 37 2c 32 35 37 2c 32 37 37 2c 32 39 38 2c 33 31 38 2c 33 33 38 2c 31 35 39 2c 32 35 37 2c 33 35 39 2c 34 36 31 2c 20 20 20 ┆ 84,102,121,140,159,178,197,217,237,257,277,298,318,338,159,257,359,461, ┆
0x03b4…0403 (12,) 20 20 20 20 20 30 2c 30 2c 31 35 2c 33 33 2c 35 30 2c 36 39 2c 38 37 2c 31 30 36 2c 31 32 35 2c 31 34 35 2c 31 36 34 2c 31 38 34 2c 32 30 34 2c 32 32 34 2c 32 34 34 2c 32 36 35 2c 32 38 35 2c 33 30 36 2c 33 32 37 2c 33 34 38 2c 20 20 20 ┆ 0,0,15,33,50,69,87,106,125,145,164,184,204,224,244,265,285,306,327,348, ┆
0x0403…0452 (13,) 20 20 20 20 20 31 34 35 2c 32 34 34 2c 33 34 38 2c 34 35 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 145,244,348,451); ┆
0x0452…04a1 (14,) 44 43 4c 20 20 42 52 28 32 36 34 29 20 42 49 4e 41 52 59 20 49 4e 49 54 28 30 2c 30 2c 31 34 2c 35 37 2c 39 35 2c 31 33 33 2c 31 37 32 2c 32 30 39 2c 32 34 34 2c 32 37 36 2c 33 31 30 2c 33 34 31 2c 33 37 30 2c 34 30 31 2c 20 20 20 20 20 ┆DCL BR(264) BINARY INIT(0,0,14,57,95,133,172,209,244,276,310,341,370,401, ┆
0x04a1…04f0 (15,) 20 20 20 20 20 34 32 39 2c 34 35 36 2c 34 38 33 2c 35 30 37 2c 35 33 33 2c 35 35 36 2c 35 35 36 2c 36 36 31 2c 37 34 38 2c 38 30 37 2c 30 2c 30 2c 31 37 2c 35 39 2c 39 38 2c 31 33 38 2c 31 37 36 2c 32 31 32 2c 32 34 38 2c 20 20 20 20 20 ┆ 429,456,483,507,533,556,556,661,748,807,0,0,17,59,98,138,176,212,248, ┆
0x04f0…053f (16,) 20 20 20 20 20 32 38 32 2c 33 31 34 2c 33 34 34 2c 33 37 35 2c 34 30 34 2c 34 33 32 2c 34 36 30 2c 34 38 36 2c 35 31 31 2c 35 33 37 2c 35 35 39 2c 35 33 37 2c 36 34 36 2c 37 33 36 2c 38 30 30 2c 30 2c 30 2c 32 30 2c 36 34 2c 20 20 20 20 ┆ 282,314,344,375,404,432,460,486,511,537,559,537,646,736,800,0,0,20,64, ┆
0x053f…058e (17,) 20 20 20 20 20 31 30 32 2c 31 34 31 2c 31 38 30 2c 32 31 37 2c 32 35 32 2c 32 38 35 2c 33 31 39 2c 33 35 30 2c 33 38 30 2c 34 30 38 2c 34 33 37 2c 34 36 34 2c 34 39 31 2c 35 31 35 2c 35 34 30 2c 35 36 34 2c 35 31 35 2c 36 32 38 2c 20 20 ┆ 102,141,180,217,252,285,319,350,380,408,437,464,491,515,540,564,515,628, ┆
0x058e…05dd (18,) 20 20 20 20 20 37 32 33 2c 37 39 32 2c 30 2c 30 2c 32 33 2c 36 35 2c 31 30 35 2c 31 34 35 2c 31 38 33 2c 32 31 39 2c 32 35 36 2c 32 38 38 2c 33 32 33 2c 33 35 33 2c 33 38 34 2c 34 31 33 2c 34 34 31 2c 34 36 37 2c 20 20 20 20 20 20 20 20 ┆ 723,792,0,0,23,65,105,145,183,219,256,288,323,353,384,413,441,467, ┆
0x05dd…062c (19,) 20 20 20 20 20 34 39 34 2c 35 31 39 2c 35 34 33 2c 35 36 38 2c 34 39 34 2c 36 31 31 2c 37 30 38 2c 37 38 33 2c 30 2c 30 2c 32 38 2c 36 39 2c 31 31 30 2c 31 35 30 2c 31 38 36 2c 32 32 34 2c 32 35 39 2c 32 39 32 2c 33 32 36 2c 20 20 20 20 ┆ 494,519,543,568,494,611,708,783,0,0,28,69,110,150,186,224,259,292,326, ┆
0x062c…067b (20,) 20 20 20 20 20 33 35 36 2c 33 38 38 2c 34 31 36 2c 34 34 35 2c 34 37 32 2c 34 39 38 2c 35 32 33 2c 35 34 38 2c 35 37 30 2c 34 37 32 2c 35 39 32 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 356,388,416,445,472,498,523,548,570,472,592, ┆
0x067b…06ca (21,) 20 20 20 20 20 36 39 34 2c 37 37 34 2c 30 2c 30 2c 33 30 2c 37 33 2c 31 31 33 2c 31 35 31 2c 31 38 39 2c 32 32 35 2c 32 36 32 2c 32 39 37 2c 33 32 39 2c 33 36 30 2c 33 39 31 2c 34 32 31 2c 34 34 39 2c 34 37 35 2c 35 30 32 2c 20 20 20 20 ┆ 694,774,0,0,30,73,113,151,189,225,262,297,329,360,391,421,449,475,502, ┆
0x06ca…0719 (22,) 20 20 20 20 20 35 32 36 2c 35 35 30 2c 35 37 33 2c 34 34 39 2c 35 37 33 2c 36 37 37 2c 37 36 34 2c 30 2c 30 2c 33 32 2c 37 34 2c 31 31 35 2c 31 35 35 2c 31 39 32 2c 32 32 39 2c 32 36 35 2c 32 39 38 2c 33 33 32 2c 33 36 34 2c 20 20 20 20 ┆ 526,550,573,449,573,677,764,0,0,32,74,115,155,192,229,265,298,332,364, ┆
0x0719…0768 (23,) 20 20 20 20 20 33 39 35 2c 34 32 33 2c 34 35 32 2c 34 37 38 2c 35 30 34 2c 35 32 39 2c 35 35 35 2c 35 37 37 2c 34 32 33 2c 35 35 35 2c 36 36 32 2c 37 35 31 2c 30 2c 30 2c 33 34 2c 37 37 2c 31 31 37 2c 31 35 38 2c 31 39 34 2c 20 20 20 20 ┆ 395,423,452,478,504,529,555,577,423,555,662,751,0,0,34,77,117,158,194, ┆
0x0768…07b7 (24,) 20 20 20 20 20 32 33 33 2c 32 36 37 2c 33 30 32 2c 33 33 35 2c 33 36 36 2c 33 39 37 2c 34 32 37 2c 34 35 35 2c 34 38 32 2c 35 30 38 2c 35 33 34 2c 35 35 37 2c 35 38 30 2c 33 39 37 2c 35 33 34 2c 36 34 35 2c 20 20 20 20 20 20 20 20 20 20 ┆ 233,267,302,335,366,397,427,455,482,508,534,557,580,397,534,645, ┆
0x07b7…0806 (25,) 20 20 20 20 20 37 33 37 2c 30 2c 30 2c 33 36 2c 37 38 2c 31 31 39 2c 31 35 39 2c 31 39 39 2c 32 33 34 2c 32 37 30 2c 33 30 36 2c 33 33 37 2c 33 36 39 2c 34 30 30 2c 34 32 39 2c 34 35 38 2c 34 38 34 2c 35 31 31 2c 20 20 20 20 20 20 20 20 ┆ 737,0,0,36,78,119,159,199,234,270,306,337,369,400,429,458,484,511, ┆
0x0806…0855 (26,) 20 20 20 20 20 35 33 36 2c 35 36 30 2c 35 38 33 2c 33 36 39 2c 35 31 31 2c 36 32 38 2c 37 32 33 2c 30 2c 30 2c 33 38 2c 38 31 2c 31 32 31 2c 31 36 32 2c 32 30 31 2c 32 33 37 2c 32 37 34 2c 33 30 39 2c 33 34 32 2c 20 20 20 20 20 20 20 20 ┆ 536,560,583,369,511,628,723,0,0,38,81,121,162,201,237,274,309,342, ┆
0x0855…08a4 (27,) 20 20 20 20 20 33 37 33 2c 34 30 32 2c 34 33 32 2c 34 36 31 2c 34 38 38 2c 35 31 34 2c 35 34 30 2c 35 36 34 2c 35 38 36 2c 33 34 32 2c 34 38 38 2c 36 30 39 2c 37 30 38 2c 30 2c 30 2c 33 39 2c 38 34 2c 31 32 33 2c 31 36 35 2c 20 20 20 20 ┆ 373,402,432,461,488,514,540,564,586,342,488,609,708,0,0,39,84,123,165, ┆
0x08a4…08f3 (28,) 20 20 20 20 20 32 30 32 2c 32 34 30 2c 32 37 36 2c 33 31 32 2c 33 34 34 2c 33 37 36 2c 34 30 37 2c 34 33 36 2c 34 36 33 2c 34 39 32 2c 35 31 37 2c 35 34 32 2c 35 36 37 2c 35 39 31 2c 33 31 32 2c 34 36 33 2c 20 20 20 20 20 20 20 20 20 20 ┆ 202,240,276,312,344,376,407,436,463,492,517,542,567,591,312,463, ┆
0x08f3…0942 (29,) 20 20 20 20 20 35 39 31 2c 36 39 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 591,692); ┆
0x0942…0991 (30,) 44 43 4c 20 20 43 52 28 32 36 34 29 20 42 49 4e 41 52 59 20 49 4e 49 54 28 33 2c 36 2c 31 30 2c 31 34 2c 31 38 2c 32 34 2c 33 30 2c 33 36 2c 34 34 2c 35 32 2c 36 32 2c 37 32 2c 38 33 2c 39 36 2c 31 30 39 2c 31 32 34 2c 20 20 20 20 20 20 ┆DCL CR(264) BINARY INIT(3,6,10,14,18,24,30,36,44,52,62,72,83,96,109,124, ┆
0x0991…09e0 (31,) 20 20 20 20 20 31 34 30 2c 31 35 38 2c 31 37 36 2c 31 39 37 2c 31 39 37 2c 33 32 34 2c 35 30 36 2c 37 35 39 2c 33 2c 36 2c 31 30 2c 31 34 2c 31 38 2c 32 34 2c 33 30 2c 33 37 2c 34 34 2c 35 33 2c 36 32 2c 37 33 2c 38 34 2c 20 20 20 20 20 ┆ 140,158,176,197,197,324,506,759,3,6,10,14,18,24,30,37,44,53,62,73,84, ┆
0x09e0…0a2f (32,) 20 20 20 20 20 39 37 2c 31 31 31 2c 31 32 36 2c 31 34 32 2c 31 36 30 2c 31 37 39 2c 32 30 30 2c 31 37 39 2c 33 30 30 2c 34 37 32 2c 37 31 35 2c 33 2c 36 2c 31 30 2c 31 34 2c 31 39 2c 32 34 2c 33 30 2c 33 37 2c 34 35 2c 35 34 2c 20 20 20 ┆ 97,111,126,142,160,179,200,179,300,472,715,3,6,10,14,19,24,30,37,45,54, ┆
0x0a2f…0a7e (33,) 20 20 20 20 20 36 33 2c 37 34 2c 38 36 2c 39 39 2c 31 31 33 2c 31 32 38 2c 31 34 35 2c 31 36 33 2c 31 38 32 2c 32 30 33 2c 31 36 33 2c 32 37 37 2c 34 34 31 2c 36 37 31 2c 33 2c 36 2c 31 30 2c 31 34 2c 31 39 2c 32 34 2c 20 20 20 20 20 20 ┆ 63,74,86,99,113,128,145,163,182,203,163,277,441,671,3,6,10,14,19,24, ┆
0x0a7e…0acd (34,) 20 20 20 20 20 33 31 2c 33 38 2c 34 36 2c 35 34 2c 36 34 2c 37 35 2c 38 37 2c 31 30 30 2c 31 31 35 2c 31 33 30 2c 31 34 37 2c 31 36 36 2c 31 38 35 2c 32 30 37 2c 31 34 37 2c 32 35 35 2c 34 31 30 2c 36 33 30 2c 20 20 20 20 20 20 20 20 20 ┆ 31,38,46,54,64,75,87,100,115,130,147,166,185,207,147,255,410,630, ┆
0x0acd…0b1c (35,) 20 20 20 20 20 33 2c 36 2c 31 30 2c 31 34 2c 31 39 2c 32 35 2c 33 31 2c 33 38 2c 34 36 2c 35 35 2c 36 35 2c 37 36 2c 38 38 2c 31 30 32 2c 31 31 36 2c 31 33 32 2c 31 35 30 2c 31 36 38 2c 31 38 39 2c 32 31 30 2c 31 33 32 2c 20 20 20 20 20 ┆ 3,6,10,14,19,25,31,38,46,55,65,76,88,102,116,132,150,168,189,210,132, ┆
0x0b1c…0b6b (36,) 20 20 20 20 20 32 33 34 2c 33 38 32 2c 35 39 31 2c 33 2c 36 2c 31 30 2c 31 34 2c 31 39 2c 32 35 2c 33 31 2c 33 39 2c 34 37 2c 35 36 2c 36 36 2c 37 37 2c 39 30 2c 31 30 33 2c 31 31 38 2c 31 33 35 2c 31 35 32 2c 20 20 20 20 20 20 20 20 20 ┆ 234,382,591,3,6,10,14,19,25,31,39,47,56,66,77,90,103,118,135,152, ┆
0x0b6b…0bba (37,) 20 20 20 20 20 31 37 31 2c 31 39 32 2c 32 31 34 2c 31 31 38 2c 32 31 34 2c 33 35 34 2c 35 35 33 2c 33 2c 36 2c 31 30 2c 31 34 2c 31 39 2c 32 35 2c 33 32 2c 33 39 2c 34 37 2c 35 37 2c 36 37 2c 37 39 2c 39 31 2c 31 30 35 2c 2c 20 20 20 20 ┆ 171,192,214,118,214,354,553,3,6,10,14,19,25,32,39,47,57,67,79,91,105,, ┆
0x0bba…0c09 (38,) 20 20 20 20 20 31 32 30 2c 31 33 37 2c 31 35 35 2c 31 37 34 2c 31 39 35 2c 32 31 38 2c 31 30 35 2c 31 39 35 2c 33 32 37 2c 35 31 36 2c 33 2c 36 2c 31 30 2c 31 35 2c 32 30 2c 32 35 2c 33 32 2c 34 30 2c 34 38 2c 35 38 2c 20 20 20 20 20 20 ┆ 120,137,155,174,195,218,105,195,327,516,3,6,10,15,20,25,32,40,48,58, ┆
0x0c09…0c58 (39,) 20 20 20 20 20 36 38 2c 38 30 2c 39 33 2c 31 30 37 2c 31 32 32 2c 31 33 39 2c 31 35 37 2c 31 37 37 2c 31 39 38 2c 32 32 32 2c 39 33 2c 31 37 37 2c 33 30 32 2c 34 38 32 2c 33 2c 36 2c 31 30 2c 31 35 2c 32 30 2c 32 36 2c 20 20 20 20 20 20 ┆ 68,80,93,107,122,139,157,177,198,222,93,177,302,482,3,6,10,15,20,26, ┆
0x0c58…0ca7 (40,) 20 20 20 20 20 33 33 2c 34 30 2c 34 39 2c 35 38 2c 36 39 2c 38 31 2c 39 34 2c 31 30 38 2c 31 32 34 2c 31 34 31 2c 31 36 30 2c 31 38 30 2c 32 30 32 2c 32 32 35 2c 38 31 2c 31 36 30 2c 32 37 38 2c 34 34 38 2c 33 2c 36 2c 31 30 2c 20 20 20 ┆ 33,40,49,58,69,81,94,108,124,141,160,180,202,225,81,160,278,448,3,6,10, ┆
0x0ca7…0cf6 (41,) 20 20 20 20 20 31 35 2c 32 30 2c 32 36 2c 33 33 2c 34 31 2c 34 39 2c 35 39 2c 37 30 2c 38 32 2c 39 36 2c 31 31 30 2c 31 32 36 2c 31 34 34 2c 31 36 33 2c 31 38 33 2c 32 30 35 2c 32 32 39 2c 37 30 2c 31 34 34 2c 32 35 35 2c 20 20 20 20 20 ┆ 15,20,26,33,41,49,59,70,82,96,110,126,144,163,183,205,229,70,144,255, ┆
0x0cf6…0d45 (42,) 20 20 20 20 20 34 31 36 2c 33 2c 36 2c 31 30 2c 31 35 2c 32 30 2c 32 36 2c 33 33 2c 34 31 2c 35 30 2c 36 30 2c 37 31 2c 38 34 2c 39 37 2c 31 31 32 2c 31 32 38 2c 31 34 36 2c 31 36 35 2c 31 38 36 2c 32 30 39 2c 20 20 20 20 20 20 20 20 20 ┆ 416,3,6,10,15,20,26,33,41,50,60,71,84,97,112,128,146,165,186,209, ┆
0x0d45…0d94 (43,) 20 20 20 20 20 32 33 33 2c 36 30 2c 31 32 38 2c 32 33 33 2c 33 38 36 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 233,60,128,233,386); ┆
0x0d94…0de3 (44,) 44 43 4c 20 20 59 45 41 52 28 32 34 29 20 42 49 4e 41 52 59 20 49 4e 49 54 28 31 2c 32 2c 33 2c 34 2c 35 2c 36 2c 37 2c 38 2c 39 2c 31 30 2c 31 31 2c 31 32 2c 31 33 2c 31 34 2c 31 35 2c 31 36 2c 31 37 2c 31 38 2c 31 39 2c 20 20 20 20 20 ┆DCL YEAR(24) BINARY INIT(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19, ┆
0x0de3…0e32 (45,) 20 20 20 20 32 30 2c 35 30 2c 35 35 2c 36 30 2c 36 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 20,50,55,60,65), ┆
0x0e32…0e81 (46,) 20 20 20 20 20 53 49 47 4e 28 32 34 29 20 43 48 41 52 28 31 29 20 49 4e 49 54 28 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 20 20 20 20 ┆ SIGN(24) CHAR(1) INIT(' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', ┆
0x0e81…0ed0 (47,) 20 20 20 20 20 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 20 27 2c 27 40 27 2c 27 40 27 2c 27 40 27 2c 27 40 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ' ',' ',' ',' ',' ',' ',' ',' ','@','@','@','@'), ┆
0x0ed0…0f1f (48,) 20 20 20 20 20 46 41 54 28 31 31 29 20 46 49 58 45 44 20 28 34 2c 32 29 20 49 4e 49 54 28 31 37 2e 31 35 2c 31 37 2e 37 31 2c 31 38 2e 33 30 2c 31 38 2e 39 32 2c 31 39 2e 35 37 2c 32 30 2e 32 36 2c 32 30 2e 39 38 2c 32 31 2e 37 35 2c 20 ┆ FAT(11) FIXED (4,2) INIT(17.15,17.71,18.30,18.92,19.57,20.26,20.98,21.75, ┆
0x0f1f…0f6e (49,) 20 20 20 20 20 32 32 2e 35 35 2c 32 33 2e 33 39 2c 32 34 2e 32 37 29 2c 20 56 31 20 46 49 58 45 44 20 28 39 29 2c 20 56 32 20 46 49 58 45 44 20 28 39 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 22.55,23.39,24.27), V1 FIXED (9), V2 FIXED (9), ┆
0x0f6e…0fbd (50,) 20 20 20 20 20 46 41 52 20 46 49 58 45 44 28 31 30 2c 33 29 2c 20 4d 44 28 31 32 29 20 42 49 4e 41 52 59 20 49 4e 49 54 28 33 31 2c 32 38 2c 33 31 2c 33 30 2c 33 31 2c 33 30 2c 33 31 2c 33 31 2c 33 30 2c 33 31 2c 33 30 2c 33 31 29 2c 20 ┆ FAR FIXED(10,3), MD(12) BINARY INIT(31,28,31,30,31,30,31,31,30,31,30,31), ┆
0x0fbd…100c (51,) 20 20 20 20 20 41 47 45 20 42 49 4e 41 52 59 2c 20 51 20 46 49 58 45 44 20 28 31 29 2c 20 44 31 20 43 48 41 52 20 28 32 29 2c 20 4d 4d 20 43 48 41 52 20 28 32 29 2c 20 59 59 20 43 48 41 52 20 28 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ AGE BINARY, Q FIXED (1), D1 CHAR (2), MM CHAR (2), YY CHAR (2), ┆
0x100c…105b (52,) 20 20 20 20 20 4e 41 4d 45 20 43 48 41 52 28 32 37 29 2c 20 41 4d 54 20 46 49 58 45 44 28 31 31 2c 32 29 2c 20 43 55 28 32 29 20 43 48 41 52 20 28 33 29 20 49 4e 49 54 20 28 27 43 41 4e 27 2c 27 55 53 20 27 29 2c 20 20 20 20 20 20 20 20 ┆ NAME CHAR(27), AMT FIXED(11,2), CU(2) CHAR (3) INIT ('CAN','US '), ┆
0x105b…10aa (53,) 20 20 20 20 20 41 4e 53 20 43 48 41 52 20 28 31 29 2c 20 50 52 45 20 46 49 58 45 44 20 28 36 2c 32 29 2c 20 50 41 52 20 43 48 41 52 20 28 33 30 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ANS CHAR (1), PRE FIXED (6,2), PAR CHAR (30); ┆
0x10aa…10f9 (54,) 44 41 54 45 3a 20 50 52 4f 43 45 44 55 52 45 28 44 44 29 3b 20 44 43 4c 20 44 44 20 43 48 41 52 20 28 32 29 3b 20 51 3d 32 3b 20 47 45 54 20 4c 49 53 54 20 28 4d 4d 2c 59 59 29 3b 20 44 44 3d 44 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆DATE: PROCEDURE(DD); DCL DD CHAR (2); Q=2; GET LIST (MM,YY); DD=D1; ┆
0x10f9…1148 (55,) 20 20 20 20 20 49 46 20 56 45 52 49 46 59 28 44 44 2c 27 30 31 32 33 34 35 36 37 38 39 27 29 3d 30 20 54 48 45 4e 20 47 4f 54 4f 20 52 45 54 3b 49 46 20 56 45 52 49 46 59 28 4d 4d 2c 27 30 31 32 33 34 35 36 37 38 39 27 29 3d 30 20 20 20 ┆ IF VERIFY(DD,'0123456789')=0 THEN GOTO RET;IF VERIFY(MM,'0123456789')=0 ┆
0x1148…1197 (56,) 20 20 20 20 20 54 48 45 4e 20 47 4f 54 4f 20 52 45 54 3b 20 49 46 20 56 45 52 49 46 59 28 59 59 2c 27 30 31 32 33 34 35 36 37 38 39 27 29 3d 30 20 54 48 45 4e 20 47 4f 54 4f 20 52 45 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN GOTO RET; IF VERIFY(YY,'0123456789')=0 THEN GOTO RET; ┆
0x1197…11e6 (57,) 20 20 20 20 20 49 44 3d 44 44 3b 20 49 4d 3d 4d 4d 3b 20 20 49 46 20 49 44 3e 4d 44 28 49 4d 29 20 7c 20 49 4d 3e 31 32 20 54 48 45 4e 20 47 4f 54 4f 20 52 45 54 3b 20 20 51 3d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ID=DD; IM=MM; IF ID>MD(IM) ö IM>12 THEN GOTO RET; Q=1; ┆
0x11e6…1235 (58,) 52 45 54 3a 20 52 45 54 55 52 4e 28 51 29 3b 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RET: RETURN(Q); END; ┆
0x1235…1284 (59,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 28 41 28 37 34 29 29 28 27 50 52 45 50 41 52 45 44 20 42 59 3a 20 27 29 28 41 28 32 32 32 29 29 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(DISPLAY) SKIP EDIT (' ')(A(74))('PREPARED BY: ')(A(222)) ┆
0x1284…12d3 (60,) 20 20 20 20 20 28 27 20 20 20 20 44 41 54 45 20 2d 44 41 59 2c 4d 4f 4e 54 48 2c 59 45 41 52 2d 28 44 44 4d 4d 59 59 29 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (' DATE -DAY,MONTH,YEAR-(DDMMYY)')(A(37)); ┆
0x12d3…1322 (61,) 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 4c 49 53 54 20 28 27 44 41 54 45 20 20 20 20 20 20 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(DISPLAY) LIST ('DATE : '); ┆
0x1322…1371 (62,) 41 53 4b 3a 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 31 29 3b 20 49 46 20 44 41 54 45 28 44 31 29 7f 3d 31 20 54 48 45 4e 20 47 4f 54 4f 20 41 53 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ASK: GET SKIP LIST(D1); IF DATE(D1) =1 THEN GOTO ASK; ┆
0x1371…13c0 (63,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 4c 49 53 54 20 28 44 31 2c 4d 4d 2c 59 59 29 3b 20 49 44 31 3d 44 31 3b 20 49 4d 4d 3d 4d 4d 3b 20 49 59 59 3d 59 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(DISPLAY) LIST (D1,MM,YY); ID1=D1; IMM=MM; IYY=YY; ┆
0x13c0…140f (64,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 45 44 49 54 28 27 20 27 29 28 41 28 31 38 29 29 28 27 50 52 45 50 41 52 45 44 20 42 59 3a 27 29 28 41 28 31 33 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(DISPLAY) EDIT(' ')(A(18))('PREPARED BY:')(A(13)); ┆
0x140f…145e (65,) 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 50 41 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST (PAR); ┆
0x145e…14ad (66,) 41 47 41 3a 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 28 41 28 33 37 29 29 28 27 44 2e 4f 2e 42 2e 20 20 3a 27 29 28 41 28 33 37 29 29 28 27 53 45 58 27 29 28 41 28 38 29 29 20 ┆AGA: PUT FILE(DISPLAY) SKIP EDIT (' ')(A(37))('D.O.B. :')(A(37))('SEX')(A(8)) ┆
0x14ad…14fc (67,) 20 20 20 20 20 28 27 3a 27 29 28 41 28 32 39 29 29 28 27 50 4c 41 4e 20 20 20 20 3a 27 29 28 41 28 33 37 29 29 28 27 43 55 52 52 45 4e 43 59 3a 20 31 28 43 41 4e 29 20 4f 52 20 32 28 55 53 29 3f 27 29 28 41 28 33 37 29 29 20 20 20 20 20 ┆ (':')(A(29))('PLAN :')(A(37))('CURRENCY: 1(CAN) OR 2(US)?')(A(37)) ┆
0x14fc…154b (68,) 20 20 20 20 20 28 27 41 4d 4f 55 4e 54 20 20 3a 27 29 28 41 28 31 31 31 29 29 28 27 4e 41 4d 45 20 20 20 20 3a 27 29 28 41 28 31 30 29 29 3b 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 4e 41 4d 45 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ ('AMOUNT :')(A(111))('NAME :')(A(10)); GET SKIP LIST (NAME); ┆
0x154b…159a (69,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 4c 49 53 54 20 28 4e 41 4d 45 29 3b 20 20 20 49 46 20 53 55 42 53 54 52 28 4e 41 4d 45 2c 31 2c 33 29 3d 27 45 4e 44 27 20 54 48 45 4e 20 47 4f 54 4f 20 41 41 41 3b 20 ┆ PUT FILE(DISPLAY) LIST (NAME); IF SUBSTR(NAME,1,3)='END' THEN GOTO AAA; ┆
0x159a…15e9 (70,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 4c 49 53 54 20 28 27 44 2e 4f 2e 42 2e 20 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(DISPLAY) LIST ('D.O.B. : '); ┆
0x15e9…1638 (71,) 41 47 3a 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 44 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AG: GET SKIP LIST (D1); ┆
0x1638…1687 (72,) 20 20 20 20 20 49 46 20 44 31 3d 27 45 52 27 20 54 48 45 4e 20 47 4f 54 4f 20 41 47 41 3b 20 49 46 20 44 41 54 45 28 44 31 29 7f 3d 31 20 54 48 45 4e 20 47 4f 54 4f 20 41 47 3b 20 4d 59 3d 59 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF D1='ER' THEN GOTO AGA; IF DATE(D1) =1 THEN GOTO AG; MY=YY; ┆
0x1687…16d6 (73,) 20 20 20 20 20 41 47 45 3d 49 59 59 2d 4d 59 2b 31 3b 20 20 4d 41 44 3d 49 44 3b 20 20 4d 41 4d 3d 49 4d 2b 36 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ AGE=IYY-MY+1; MAD=ID; MAM=IM+6; ┆
0x16d6…1725 (74,) 20 20 20 20 20 49 46 20 4d 41 4d 3c 49 4d 4d 20 54 48 45 4e 20 41 47 45 3d 41 47 45 2d 31 3b 20 20 20 49 46 20 4d 41 4d 3d 49 4d 4d 20 54 48 45 4e 20 4d 41 44 3d 4d 41 44 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF MAM<IMM THEN AGE=AGE-1; IF MAM=IMM THEN MAD=MAD-1; ┆
0x1725…1774 (75,) 20 20 20 20 20 49 46 20 4d 41 44 3c 49 44 31 20 26 20 4d 41 4d 3d 49 4d 4d 20 54 48 45 4e 20 41 47 45 3d 41 47 45 2b 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF MAD<ID1 & MAM=IMM THEN AGE=AGE+1; ┆
0x1774…17c3 (76,) 20 20 20 20 20 49 46 20 41 47 45 3c 34 31 20 26 20 41 47 45 3e 32 39 20 54 48 45 4e 20 47 4f 54 4f 20 57 4f 52 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF AGE<41 & AGE>29 THEN GOTO WORK; ┆
0x17c3…1812 (77,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 4c 49 53 54 28 44 31 2c 4d 4d 2c 59 59 29 3b 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 45 44 49 54 28 27 20 27 29 28 41 28 36 32 29 29 20 20 20 20 20 20 ┆ PUT FILE(DISPLAY) LIST(D1,MM,YY); PUT FILE(DISPLAY) EDIT(' ')(A(62)) ┆
0x1812…1861 (78,) 20 20 20 20 20 28 27 53 4f 52 52 59 20 54 48 49 53 20 43 41 53 45 20 49 53 20 52 45 4a 45 43 54 45 44 21 21 20 27 29 28 41 28 31 30 30 29 29 3b 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 41 4e 53 29 3b 20 47 4f 54 4f 20 41 47 41 3b ┆ ('SORRY THIS CASE IS REJECTED!! ')(A(100)); GET SKIP LIST (ANS); GOTO AGA;┆
0x1861…18b0 (79,) 57 4f 52 4b 3a 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 4c 49 53 54 20 28 44 31 2c 4d 4d 2c 59 59 29 3b 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 45 44 49 54 28 27 20 27 29 28 41 28 32 31 29 29 3b 20 20 20 ┆WORK: PUT FILE(DISPLAY) LIST (D1,MM,YY); PUT FILE(DISPLAY) EDIT(' ')(A(21)); ┆
0x18b0…18ff (80,) 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 45 44 49 54 20 28 27 53 45 58 27 29 28 41 28 38 29 29 28 27 3a 27 29 28 41 28 32 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(DISPLAY) EDIT ('SEX')(A(8))(':')(A(2)); ┆
0x18ff…194e (81,) 53 45 58 3a 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SEX: GET SKIP LIST (ANS); ┆
0x194e…199d (82,) 20 20 20 20 20 49 46 20 56 45 52 49 46 59 28 41 4e 53 2c 27 4d 27 29 3d 30 20 54 48 45 4e 20 47 4f 54 4f 20 53 45 58 3b 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 45 44 49 54 20 28 27 4d 27 29 28 41 28 32 37 29 29 20 20 20 ┆ IF VERIFY(ANS,'M')=0 THEN GOTO SEX; PUT FILE(DISPLAY) EDIT ('M')(A(27)) ┆
0x199d…19ec (83,) 20 20 20 20 20 28 27 50 4c 41 4e 20 20 20 20 3a 27 29 28 41 28 31 30 29 29 3b 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('PLAN :')(A(10)); GET SKIP LIST (ANS); ┆
0x19ec…1a3b (84,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 45 44 49 54 28 27 57 48 4f 4c 45 20 4c 49 46 45 20 50 41 52 54 49 43 49 50 41 54 49 4e 47 27 29 28 41 28 32 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(DISPLAY) EDIT('WHOLE LIFE PARTICIPATING')(A(27)) ┆
0x1a3b…1a8a (85,) 20 20 20 20 20 28 27 43 55 52 52 45 4e 43 59 3a 20 31 28 43 41 4e 29 20 4f 52 20 32 28 55 53 29 3f 27 29 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('CURRENCY: 1(CAN) OR 2(US)?')(A(27)); ┆
0x1a8a…1ad9 (86,) 55 53 3a 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 4d 31 29 3b 49 46 20 4d 31 7f 3d 31 20 26 20 4d 31 7f 3d 32 20 54 48 45 4e 20 47 4f 54 4f 20 55 53 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆US: GET SKIP LIST (M1);IF M1 =1 & M1 =2 THEN GOTO US; ┆
0x1ad9…1b28 (87,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 45 44 49 54 28 27 20 27 29 28 41 28 31 30 29 29 28 27 41 4d 4f 55 4e 54 20 20 3a 27 29 28 41 28 31 30 29 29 28 43 55 28 4d 31 29 29 28 41 28 33 29 29 20 20 20 20 20 20 ┆ PUT FILE(DISPLAY) EDIT(' ')(A(10))('AMOUNT :')(A(10))(CU(M1))(A(3)) ┆
0x1b28…1b77 (88,) 20 20 20 20 20 28 27 24 27 29 28 41 28 31 29 29 3b 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 41 4d 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('$')(A(1)); GET SKIP LIST (AMT); ┆
0x1b77…1bc6 (89,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 45 44 49 54 20 28 41 4d 54 29 28 50 27 5a 5a 5a 5a 5a 39 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(DISPLAY) EDIT (AMT)(P'ZZZZZ9V.99'); ┆
0x1bc6…1c15 (90,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 33 33 29 20 45 44 49 54 20 28 27 20 27 29 28 41 28 31 35 29 29 28 27 4d 52 2e 27 29 28 41 28 34 29 29 28 4e 41 4d 45 29 28 41 28 32 38 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(33) EDIT (' ')(A(15))('MR.')(A(4))(NAME)(A(28)); ┆
0x1c15…1c64 (91,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 33 33 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(33); ┆
0x1c64…1cb3 (92,) 20 20 20 20 20 41 47 45 3d 41 47 45 2d 32 39 3b 20 46 41 52 3d 41 4d 54 2a 30 2e 30 30 31 3b 20 50 52 45 3d 46 41 54 28 41 47 45 29 2a 46 41 52 2b 31 32 2e 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ AGE=AGE-29; FAR=AMT*0.001; PRE=FAT(AGE)*FAR+12.5; ┆
0x1cb3…1d02 (93,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 4e 41 4d 45 20 20 20 20 20 20 20 20 27 29 28 41 28 31 33 29 29 28 27 3a 27 29 28 41 28 32 29 29 28 27 4d 72 2e 27 29 28 41 28 34 29 29 28 4e 41 4d 45 29 28 41 28 32 38 29 29 3b ┆ PUT SKIP EDIT('NAME ')(A(13))(':')(A(2))('Mr.')(A(4))(NAME)(A(28));┆
0x1d02…1d51 (94,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 20 28 27 49 4e 53 55 52 41 4e 43 45 20 41 47 45 3a 27 29 28 41 28 31 35 29 29 28 41 47 45 2b 32 39 29 28 50 27 5a 39 27 29 28 27 20 28 20 27 29 28 41 28 32 29 29 20 20 20 20 ┆ PUT SKIP(2) EDIT ('INSURANCE AGE:')(A(15))(AGE+29)(P'Z9')(' ( ')(A(2)) ┆
0x1d51…1da0 (95,) 20 20 20 20 20 28 49 44 29 28 50 27 39 39 27 29 28 27 2f 20 27 29 28 41 28 31 29 29 28 49 4d 29 28 50 27 39 39 27 29 28 27 2f 20 27 29 28 41 28 31 29 29 28 4d 59 29 28 50 27 39 39 27 29 28 27 29 20 27 29 28 41 28 31 29 29 3b 20 20 20 20 ┆ (ID)(P'99')('/ ')(A(1))(IM)(P'99')('/ ')(A(1))(MY)(P'99')(') ')(A(1)); ┆
0x1da0…1def (96,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 20 28 27 50 4c 41 4e 20 20 20 20 20 20 20 20 20 3a 20 57 48 4f 4c 45 20 4c 49 46 45 20 50 41 52 54 49 43 49 50 41 54 49 4e 47 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(2) LIST ('PLAN : WHOLE LIFE PARTICIPATING'); ┆
0x1def…1e3e (97,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 20 28 27 50 52 4f 54 45 43 54 49 4f 4e 20 20 20 3a 20 27 2c 43 55 28 4d 31 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(2) LIST ('PROTECTION : ',CU(M1)); ┆
0x1e3e…1e8d (98,) 20 20 20 20 20 50 55 54 20 45 44 49 54 28 41 4d 54 29 28 50 27 24 24 24 2c 24 24 39 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT EDIT(AMT)(P'$$$,$$9V.99'); ┆
0x1e8d…1edc (99,) 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 20 28 27 50 52 45 4d 49 55 4d 20 20 20 20 20 20 3a 20 41 6e 6e 75 61 6c 3a 27 29 28 41 28 32 33 29 29 28 43 55 28 4d 31 29 29 28 41 28 34 29 29 28 50 52 45 29 20 20 20 20 ┆ PUT SKIP(2) EDIT ('PREMIUM : Annual:')(A(23))(CU(M1))(A(4))(PRE) ┆
0x1edc…1f2b (100,) 20 20 20 20 20 28 50 27 24 24 24 24 39 56 2e 39 39 27 29 3b 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 28 27 20 27 29 28 41 28 31 35 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (P'$$$$9V.99'); PUT SKIP(2) EDIT(' ')(A(15)); ┆
0x1f2b…1f7a (101,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 28 27 41 20 50 4c 41 4e 20 46 4f 52 20 54 48 45 20 53 45 4e 49 4f 52 20 45 58 45 43 55 54 49 56 45 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST('A PLAN FOR THE SENIOR EXECUTIVE'); ┆
0x1f7a…1fc9 (102,) 20 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 33 31 3b 20 50 55 54 20 4c 49 53 54 20 28 27 08 27 29 3b 20 45 4e 44 3b 20 44 4f 20 49 3d 31 20 54 4f 20 33 31 3b 20 50 55 54 20 4c 49 53 54 28 27 5f 27 29 3b 20 45 4e 44 3b 20 20 20 20 20 ┆ DO I=1 TO 31; PUT LIST (' '); END; DO I=1 TO 31; PUT LIST('_'); END; ┆
0x1fc9…2018 (103,) 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 20 28 27 54 68 65 20 4c 69 66 65 20 50 6f 6c 69 63 79 20 69 73 20 61 20 70 65 72 6d 61 6e 65 6e 74 20 6c 69 66 65 74 69 6d 65 20 70 72 6f 74 65 63 74 69 6f 6e 20 27 29 3b 20 20 ┆ PUT SKIP(2) LIST ('The Life Policy is a permanent lifetime protection '); ┆
0x2018…2067 (104,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 28 27 70 6c 61 6e 20 64 65 73 69 67 6e 65 64 27 29 3b 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 27 66 6f 72 20 73 65 6e 69 6f 72 20 65 78 65 63 75 74 69 76 65 73 2c 20 62 75 73 69 6e 65 73 27 29 3b ┆ PUT LIST('plan designed');PUT SKIP LIST('for senior executives, busines');┆
0x2067…20b6 (105,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 28 27 73 20 61 6e 64 20 70 72 6f 66 65 73 73 69 6f 6e 61 6c 20 6d 65 6e 2e 20 20 20 41 6e 20 61 6e 6e 75 61 6c 27 29 3b 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 27 70 72 65 6d 69 75 6d 27 29 3b ┆ PUT LIST('s and professional men. An annual'); PUT SKIP LIST('premium');┆
0x20b6…2105 (106,) 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 20 6f 66 27 29 28 41 28 34 29 29 28 43 55 28 4d 31 29 29 28 41 28 34 29 29 28 50 52 45 29 28 50 27 24 24 24 24 39 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT EDIT (' of')(A(4))(CU(M1))(A(4))(PRE)(P'$$$$9V.99'); ┆
0x2105…2154 (107,) 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 32 3b 20 50 55 54 20 4c 49 53 54 20 28 27 08 27 29 3b 20 45 4e 44 3b 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 32 3b 20 50 55 54 20 4c 49 53 54 20 28 27 5f 27 29 3b 20 45 4e 44 3b 20 20 20 20 ┆ DO I=1 TO 12; PUT LIST (' '); END; DO I=1 TO 12; PUT LIST ('_'); END; ┆
0x2154…21a3 (108,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 20 28 27 20 77 69 6c 6c 20 70 75 72 63 68 61 73 65 20 61 20 70 65 72 6d 61 6e 65 6e 74 20 69 6e 73 75 72 61 6e 63 65 20 65 73 74 61 74 65 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST (' will purchase a permanent insurance estate'); ┆
0x21a3…21f2 (109,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 6f 66 27 29 28 41 28 33 29 29 28 43 55 28 4d 31 29 29 28 41 28 34 29 29 28 41 4d 54 29 28 50 27 24 24 24 24 2c 24 24 39 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP EDIT ('of')(A(3))(CU(M1))(A(4))(AMT)(P'$$$$,$$9V.99'); ┆
0x21f2…2241 (110,) 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 35 3b 20 50 55 54 20 4c 49 53 54 20 28 27 08 27 29 3b 20 20 45 4e 44 3b 20 44 4f 20 49 3d 31 20 54 4f 20 31 35 3b 20 50 55 54 20 4c 49 53 54 20 28 27 5f 27 29 3b 20 45 4e 44 3b 20 20 20 20 ┆ DO I=1 TO 15; PUT LIST (' '); END; DO I=1 TO 15; PUT LIST ('_'); END; ┆
0x2241…2290 (111,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 20 28 27 20 70 61 79 61 62 6c 65 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 6f 6e 20 64 65 61 74 68 2c 20 61 6e 64 20 73 75 62 73 74 61 6e 74 69 61 6c 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST (' payable immediately on death, and substantial'); ┆
0x2290…22df (112,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 63 61 73 68 20 66 6f 72 20 65 6d 65 72 67 65 6e 63 69 65 73 20 61 6e 64 20 72 65 74 69 72 65 6d 65 6e 74 2e 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP LIST ('cash for emergencies and retirement.'); ┆
0x22df…232e (113,) 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 28 27 47 55 41 52 41 4e 54 45 45 44 20 43 41 53 48 20 50 41 49 44 2d 55 50 20 56 41 4c 55 45 53 20 41 4e 44 20 44 49 56 49 44 45 4e 44 20 50 52 4f 4a 45 43 54 49 4f 4e 27 29 3b ┆ PUT SKIP(2) LIST('GUARANTEED CASH PAID-UP VALUES AND DIVIDEND PROJECTION');┆
0x232e…237d (114,) 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 35 34 3b 20 50 55 54 20 4c 49 53 54 28 27 08 27 29 3b 20 45 4e 44 3b 20 44 4f 20 49 3d 31 20 54 4f 20 35 34 3b 20 50 55 54 20 4c 49 53 54 28 27 5f 27 29 3b 20 45 4e 44 3b 20 20 20 20 20 20 20 ┆ DO I=1 TO 54; PUT LIST(' '); END; DO I=1 TO 54; PUT LIST('_'); END; ┆
0x237d…23cc (115,) 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 28 27 54 68 65 20 70 6f 6c 69 63 79 20 68 61 73 20 68 69 67 68 20 67 75 61 72 61 6e 74 65 65 64 20 63 61 73 68 20 61 6e 64 20 70 61 69 64 2d 75 70 20 76 61 6c 75 65 2e 27 29 3b ┆ PUT SKIP(2) LIST('The policy has high guaranteed cash and paid-up value.');┆
0x23cc…241b (116,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 20 28 27 20 20 54 68 69 73 20 67 72 6f 77 69 6e 67 27 29 3b 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 65 71 75 69 74 79 20 69 6e 20 74 68 65 20 70 6f 6c 69 63 79 20 69 73 20 27 29 3b 20 20 ┆ PUT LIST (' This growing'); PUT SKIP LIST ('equity in the policy is '); ┆
0x241b…246a (117,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 28 27 61 76 61 69 6c 61 62 6c 65 20 66 6f 72 20 62 75 73 69 6e 65 73 73 20 6f 70 70 6f 72 74 75 6e 69 74 69 65 73 20 6f 72 20 65 6d 2d 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST('available for business opportunities or em-'); ┆
0x246a…24b9 (118,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 65 72 67 65 6e 63 69 65 73 2e 20 20 49 66 20 79 6f 75 20 66 69 6e 64 20 69 74 20 6e 65 63 65 73 73 61 72 79 20 74 6f 20 73 74 6f 70 20 6d 61 6b 69 6e 67 27 29 3b 20 20 20 20 ┆ PUT SKIP LIST ('ergencies. If you find it necessary to stop making'); ┆
0x24b9…2508 (119,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 28 27 20 70 72 65 6d 69 75 6d 20 64 65 70 6f 73 69 74 73 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST(' premium deposits'); ┆
0x2508…2557 (120,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 27 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65 20 65 78 61 6d 70 6c 65 73 20 6f 66 20 74 68 65 20 67 75 61 72 61 6e 74 65 65 73 20 61 76 61 69 6c 61 62 6c 65 3a 2d 27 29 3b ┆ PUT SKIP LIST('the following are examples of the guarantees available:-');┆
0x2557…25a6 (121,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 33 29 20 4c 49 53 54 20 28 27 45 4e 44 20 4f 46 20 20 20 47 55 41 52 41 4e 54 45 45 44 20 20 2a 41 43 43 55 4d 55 4c 41 54 45 44 20 20 20 20 20 2a 54 4f 54 41 4c 20 20 20 20 20 20 20 20 27 29 3b ┆ PUT SKIP(3) LIST ('END OF GUARANTEED *ACCUMULATED *TOTAL ');┆
0x25a6…25f5 (122,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 28 27 50 41 49 44 2d 55 50 27 29 3b 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 20 59 45 41 52 20 20 20 20 43 41 53 48 20 56 41 4c 55 45 20 20 20 20 44 49 56 49 44 45 4e 44 53 27 29 3b 20 ┆ PUT LIST('PAID-UP'); PUT SKIP LIST (' YEAR CASH VALUE DIVIDENDS'); ┆
0x25f5…2644 (123,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 20 28 27 20 20 20 20 43 41 53 48 20 56 41 4c 55 45 20 20 20 20 20 49 4e 53 55 52 41 4e 43 45 01 01 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST (' CASH VALUE INSURANCE '); ┆
0x2644…2693 (124,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2693…26e2 (125,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 5f 5f 5f 5f 5f 5f 20 20 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 20 20 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 20 20 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 20 20 20 20 20 27 29 3b 20 20 20 20 ┆ PUT SKIP LIST ('______ __________ ___________ __________ '); ┆
0x26e2…2731 (126,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 20 28 27 5f 5f 5f 5f 5f 5f 5f 5f 5f 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST ('_________'); ┆
0x2731…2780 (127,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 43 55 28 4d 31 29 2c 27 20 20 20 20 20 20 20 20 20 20 20 27 2c 43 55 28 4d 31 29 2c 27 20 20 20 20 20 20 20 20 20 20 27 29 3b 20 20 20 ┆ PUT SKIP LIST(' ',CU(M1),' ',CU(M1),' '); ┆
0x2780…27cf (128,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 20 28 43 55 28 4d 31 29 2c 27 20 20 20 20 20 20 20 20 20 20 20 27 2c 43 55 28 4d 31 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST (CU(M1),' ',CU(M1)); ┆
0x27cf…281e (129,) 20 20 20 20 20 4b 3d 28 41 47 45 2d 31 29 2a 32 34 2b 31 3b 20 20 4b 4b 3d 4b 2b 32 33 3b 20 4c 3d 30 3b 20 20 44 4f 20 4a 3d 4b 20 54 4f 20 4b 4b 3b 20 4c 3d 4c 2b 31 3b 20 20 56 31 3d 41 52 28 4a 29 2a 46 41 52 3b 20 20 20 20 20 20 20 ┆ K=(AGE-1)*24+1; KK=K+23; L=0; DO J=K TO KK; L=L+1; V1=AR(J)*FAR; ┆
0x281e…286d (130,) 20 20 20 20 20 56 32 3d 43 52 28 4a 29 2a 46 41 52 3b 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 53 49 47 4e 28 4c 29 29 28 41 28 32 29 29 28 59 45 41 52 28 4c 29 29 28 50 27 5a 39 27 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ V2=CR(J)*FAR; PUT SKIP EDIT(SIGN(L))(A(2))(YEAR(L))(P'Z9') ┆
0x286d…28bc (131,) 20 20 20 20 20 28 56 31 29 28 50 27 24 2c 24 24 24 2c 24 24 24 2c 24 24 39 27 29 28 56 32 29 28 50 27 24 24 2c 24 24 24 2c 24 24 24 2c 24 24 39 27 29 28 56 31 2b 56 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (V1)(P'$,$$$,$$$,$$9')(V2)(P'$$,$$$,$$$,$$9')(V1+V2) ┆
0x28bc…290b (132,) 20 20 20 20 20 28 50 27 24 2c 24 24 24 2c 24 24 24 2c 24 24 39 27 29 28 42 52 28 4a 29 2a 46 41 52 29 28 50 27 24 24 2c 24 24 24 2c 24 24 24 2c 24 24 39 27 29 3b 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (P'$,$$$,$$$,$$9')(BR(J)*FAR)(P'$$,$$$,$$$,$$9'); END; ┆
0x290b…295a (133,) 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 28 27 2a 20 42 61 73 65 64 20 6f 6e 20 6f 75 72 20 63 75 72 72 65 6e 74 20 64 69 76 69 64 65 6e 64 20 73 63 61 6c 65 2c 20 6e 6f 74 20 61 20 67 75 61 72 61 6e 74 65 65 27 29 3b ┆ PUT SKIP(2) LIST('* Based on our current dividend scale, not a guarantee');┆
0x295a…29a9 (134,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 31 32 29 20 4c 49 53 54 20 28 27 44 69 76 69 64 65 6e 64 73 27 29 3b 20 44 4f 20 49 3d 31 20 54 4f 20 39 3b 20 50 55 54 20 4c 49 53 54 20 28 27 08 27 29 3b 20 45 4e 44 3b 20 20 20 20 20 20 20 20 ┆ PUT SKIP(12) LIST ('Dividends'); DO I=1 TO 9; PUT LIST (' '); END; ┆
0x29a9…29f8 (135,) 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 39 3b 20 50 55 54 20 4c 49 53 54 20 28 27 5f 27 29 3b 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ DO I=1 TO 9; PUT LIST ('_'); END; ┆
0x29f8…2a47 (136,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 20 28 27 54 68 65 20 70 6f 6c 69 63 79 20 70 61 72 74 69 63 69 70 61 74 65 73 20 69 6e 20 74 68 65 20 65 61 72 6e 69 6e 67 73 20 6f 66 20 74 68 65 20 43 6f 6d 27 29 3b 20 20 ┆ PUT SKIP(2) LIST ('The policy participates in the earnings of the Com'); ┆
0x2a47…2a96 (137,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 28 27 70 61 6e 79 2e 20 20 59 6f 75 20 6d 61 79 20 61 6c 6c 6f 77 27 29 3b 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 79 6f 75 72 20 61 6e 6e 75 61 6c 20 64 69 76 69 64 65 6e 64 73 27 29 3b 20 ┆ PUT LIST('pany. You may allow');PUT SKIP LIST ('your annual dividends'); ┆
0x2a96…2ae5 (138,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 28 27 20 74 6f 20 61 63 63 75 6d 75 6c 61 74 65 20 61 74 20 69 6e 74 65 72 65 73 74 20 6f 72 20 74 6f 20 72 65 64 75 63 65 20 70 72 65 6d 69 75 6d 73 2e 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST(' to accumulate at interest or to reduce premiums.'); ┆
0x2ae5…2b34 (139,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 20 28 27 44 69 76 69 64 65 6e 64 73 20 77 69 6c 6c 20 63 6f 6e 74 69 6e 75 65 20 74 6f 20 62 65 20 64 65 63 6c 61 72 65 64 20 65 76 65 6e 20 69 66 20 74 68 65 20 27 29 3b 20 ┆ PUT SKIP(2) LIST ('Dividends will continue to be declared even if the '); ┆
0x2b34…2b83 (140,) 20 20 20 20 20 50 55 54 20 4c 49 53 54 28 27 70 6f 6c 69 63 79 20 69 73 20 63 6f 6e 76 65 72 74 65 64 27 29 3b 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 74 6f 20 70 61 69 64 2d 75 70 20 69 6e 73 75 72 61 6e 63 65 2e 27 29 3b 20 ┆ PUT LIST('policy is converted'); PUT SKIP LIST ('to paid-up insurance.'); ┆
0x2b83…2bd2 (141,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 31 38 29 20 4c 49 53 54 28 27 50 72 65 70 61 72 65 64 20 62 79 3a 20 27 2c 50 41 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(18) LIST('Prepared by: ',PAR); ┆
0x2bd2…2c21 (142,) 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 20 28 27 44 61 74 65 20 20 20 20 20 20 20 3a 20 27 29 3b 20 50 55 54 20 45 44 49 54 20 28 49 44 31 29 28 50 27 39 39 27 29 28 27 2f 20 27 29 28 41 28 31 29 29 20 20 20 20 20 ┆ PUT SKIP(2) LIST ('Date : '); PUT EDIT (ID1)(P'99')('/ ')(A(1)) ┆
0x2c21…2c70 (143,) 20 20 20 20 20 28 49 4d 4d 29 28 50 27 39 39 27 29 28 27 2f 20 27 29 28 41 28 31 29 29 28 49 59 59 29 28 50 27 39 39 27 29 3b 20 50 55 54 20 53 4b 49 50 28 34 30 29 3b 20 47 4f 54 4f 20 41 47 41 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (IMM)(P'99')('/ ')(A(1))(IYY)(P'99'); PUT SKIP(40); GOTO AGA; ┆
0x2c70…2cbf (144,) 41 41 41 3a 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AAA: END; ┆