home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PCMAG / VOL7N22.ARC / ENVELOPE.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-11-21  |  14.7 KB  |  195 lines
  1. 100 REM - BASIC PROGRAM TO CREATE ENVELOPE.COM
  2. 110 CLS:PRINT "Creating ENVELOPE.COM": OPEN "ENVELOPE.COM" AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   176
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   176 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "ENVELOPE.COM created successfully": SYSTEM
  17. 260 PRINT: PRINT "ENVELOPE.COM is not valid!": END
  18. 270 DATA E9, 16,  8, 45, 4E, 56, 45, 4C, 4F, 50, 45, 20, 31, 2E, 30, 20,   434
  19. 280 DATA 43, 6F, 70, 79, 72, 69, 67, 68, 74, 20, 28, 63, 29, 20, 31, 39,   517
  20. 290 DATA 38, 38, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63,   57A
  21. 300 DATA 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D,  A, 50, 43, 20, 4D,   4A5
  22. 310 DATA 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 52, 2E, 20, 4D, 2E, 20,   558
  23. 320 DATA 53, 61, 69, 64, 69, 6B, 6F, 77, 73, 6B, 69,  D,  A, 24, 1A, 61,   538
  24. 330 DATA 72, 6B, 20, 55, 70, 70,  0, 4C, 65, 66, 74, 20,  0, 6F, 76, 65,   527
  25. 340 DATA 20, 4C, 6F, 77,  0, 52, 69, 67, 68, 74,  0,  0,  0,  0,  0,  0,   350
  26. 350 DATA  5,  0,  0,  0, 50, 4F, 18,  0,  0,  0,  0,  0,  0,  0,  0,  0,    BC
  27. 360 DATA  0, DA,  7, C4,  7, C4,  7, C4,  7, C4,  7, C4,  7, C4,  7, C4,   667
  28. 370 DATA  7, C4,  7, C4,  7, C4,  7, BF,  7, B3,  7, 4D,  7, 61,  7, 72,   516
  29. 380 DATA  7, 6B,  7, 20,  7, 55,  7, 70,  7, 70,  7, 65,  7, 72,  7, B3,   382
  30. 390 DATA  7, B3,  7, 4C,  7, 65,  7, 66,  7, 74,  7, 20,  7, 20,  7, 26,   2DC
  31. 400 DATA  7, 11,  7, C4,  7, D9,  7, B3,  7, C0,  7, C4,  7, 45,  7, 73,   4D5
  32. 410 DATA  7, 63,  7, 3D,  7, 45,  7, 78,  7, 69,  7, 74,  7, C4,  7, D9,   40F
  33. 420 DATA  7, C9,  7, CD,  7, CD,  7, CD,  7, CD,  7, CD,  7, CD,  7, CD,   69C
  34. 430 DATA  7, CD,  7, BB,  7, BA,  7, 46,  7, 31,  7, 2D,  7, 53,  7, 6D,   3DE
  35. 440 DATA  7, 61,  7, 6C,  7, 6C,  7, BA,  7, BA,  7, 46,  7, 32,  7, 2D,   38A
  36. 450 DATA  7, 4C,  7, 61,  7, 72,  7, 67,  7, 65,  7, BA,  7, BA,  7, 46,   3DD
  37. 460 DATA  7, 33,  7, 2D,  7, 52,  7, 74,  7, 41,  7, 64,  7, 64,  7, BA,   321
  38. 470 DATA  7, C7,  7, C4,  7, C4,  7, C4,  7, C4,  7, C4,  7, C4,  7, C4,   65B
  39. 480 DATA  7, C4,  7, B6,  7, BA,  7, 4C,  7, 50,  7, 54,  7, 31,  7, 20,   3AD
  40. 490 DATA  7, 4C,  7, 4A,  7, 32,  7, BA,  7, BA,  7, 11,  7, C4,  7, D9,   422
  41. 500 DATA  7, 50,  7, 72,  7, 69,  7, 6E,  7, 74,  7, BA,  7, C8,  7, 45,   40C
  42. 510 DATA  7, 73,  7, 63,  7, 3D,  7, 45,  7, 78,  7, 69,  7, 74,  7, BC,   3A1
  43. 520 DATA  7, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   1E7
  44. 530 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   200
  45. 540 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20,  D,  A, 20, 20, 20, 20, 20,   1D7
  46. 550 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   200
  47. 560 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   200
  48. 570 DATA 20, 20, 20,  D,  A, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   1D7
  49. 580 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   200
  50. 590 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,  D,  A,  0,   1B7
  51. 600 DATA 24, 1B, 45,  0, 1B, 26, 6C, 31, 4F, 1B, 28, 38, 55, 1B, 28, 73,   337
  52. 610 DATA 70, 31, 30, 68, 31, 32, 76, 73, 62, 33, 54, 1B, 26, 6C, 32, 48,   495
  53. 620 DATA  0, 1B, 26, 6C, 31, 36, 45,  0, 1B, 26, 61, 35, 30, 4C,  0, 48,   2F4
  54. 630 DATA 4B, 4D, 50, 35,  4, 3D,  4, 45,  4, 4F,  4, 9C,  4, B3,  4, CE,   423
  55. 640 DATA  4, D9,  4, FB, 50, E4, 60, 3C, 12, 75,  A, B4,  2, CD, 16, 24,   5FA
  56. 650 DATA  F, 3C,  8, 74,  7, 58, FA, 2E, FF, 2E, 7B,  1, 2E, 80, 3E, 7F,   562
  57. 660 DATA  1,  0, 75, F1, E4, 61, 8A, E0,  C, 80, E6, 6A, 8A, E0, EB,  0,   847
  58. 670 DATA E6, 6A, FA, B0, 20, E6, 20, FB, 53, 51, 52, 56, 57, 1E,  6, 55,   737
  59. 680 DATA  E, 1F, FE,  6, 7F,  1, B4,  F, CD, 10, 3C,  7, 74,  4, 3C,  3,   44B
  60. 690 DATA 77, 33, 88, 26, 84,  1, FE, CC, 88, 26, 85,  1, 88, 3E, 83,  1,   625
  61. 700 DATA F6,  6, 80,  1, 40, 74,  B, 33, C0, 8E, C0, 26, A0, 84,  4, A2,   66D
  62. 710 DATA 86,  1,  E,  7, E8, 25,  3, 89, 16, 81,  1, E8, 15,  0, 8B, 16,   46B
  63. 720 DATA 81,  1, E8,  F,  3, FE,  E, 7F,  1, 5D,  7, 1F, 5F, 5E, 5A, 59,   4FB
  64. 730 DATA 5B, 58, CF, C7,  6, 89,  1,  0,  0, E8, 22,  3, 33, D2, E8, F3,   6C6
  65. 740 DATA  2, E8, FD,  2, 50, E8, 16,  3, BE, 6D,  1, BF, AD,  1, E8, 73,   72E
  66. 750 DATA  3, BF, C3,  1, E8, 6D,  3, 33, D2, E8, D8,  2, 58, EB,  9, E8,   7D9
  67. 760 DATA B9,  2, E8, CF,  2, E8, D9,  2, 89, 16, 89,  1, 3C,  D, 74, 39,   656
  68. 770 DATA 3C, 1B, 75,  3, E9, D1,  1,  A, C0, 75, EA, BB, 49,  3, E8, 35,   6D7
  69. 780 DATA  2, 72, DC, FF, 25,  A, F6, 74, D6, FE, CE, EB, D5,  A, D2, 74,   99A
  70. 790 DATA CE, FE, CA, EB, CD, 3A, 16, 85,  1, 74, C4, FE, C2, EB, C3, 3A,   A04
  71. 800 DATA 36, 86,  1, 74, BA, FE, C6, EB, B9, E8, B2,  2, 8B, 16, 89,  1,   81A
  72. 810 DATA E8, 81,  2, 52, E8, 8F,  2, E8, 72,  2, E8, 84,  2, 50, E8, 9D,   7D5
  73. 820 DATA  2, 58, 5A, EB,  6, E8, 53,  2, E8, 76,  2, 89, 16, 8B,  1, 3C,   5A9
  74. 830 DATA  D, 74, 6A, 3C, 1B, 75,  3, E9, 46,  1,  A, C0, 75, EA, BB, 51,   61F
  75. 840 DATA  3, E8, D2,  1, 72, DF, 8B, 1E, 89,  1, FF, 25, 3A, F7, 74, D5,   7E0
  76. 850 DATA FE, CE, 52, FE, C6, E8, 3C,  2, E8, 4B,  2, FE, CA, 3A, D3, 7C,   98E
  77. 860 DATA 17, EB, F2, 3A, D3, 74, BE, FE, CA, 52, FE, C2, E8, 25,  2, E8,   A04
  78. 870 DATA 34,  2, FE, CE, 3A, F7, 7D, F4, E8, 11,  2, 5A, EB, AA, 3A, 16,   7DE
  79. 880 DATA 85,  1, 74, A1, FE, C2, 52, EB, E3, 8B, C2, 2A, E7, 80, FC,  5,   95A
  80. 890 DATA 74, 93, 3A, 36, 86,  1, 74, 8D, FE, C6, 52, EB, B8, E8, 6A,  2,   80C
  81. 900 DATA E8, 87,  1, E8, FB,  1, 3C,  D, 74, 36, 3C, 1B, 75,  6, E8, 59,   65A
  82. 910 DATA  2, E9, CC,  0,  A, C0, 74,  5, E8, C0,  1, EB, E6, 80, EC, 3B,   81B
  83. 920 DATA 7C, F6, 7F,  7, 80, 26, 80,  1, FB, EB, D5, 80, EC,  2, 7F, E8,   8AF
  84. 930 DATA 74,  7, 80,  E, 80,  1,  4, EB, C7, 80, 36, 80,  1,  2, EB, C0,   624
  85. 940 DATA E8, 27,  2, BE, 11,  3, E8, CF,  0, 73,  C, E8, 8D,  1, 33, C9,   68B
  86. 950 DATA E2, FE, E8, 86,  1, EB, A6, BE, 14,  3, E8, BB,  0, F6,  6, 80,   8D4
  87. 960 DATA  1,  1, B8, 31, 36, 75,  D, F6,  6, 80,  1,  4, B8, 33, 30, 74,   4B3
  88. 970 DATA  3, B8, 32, 39, A3, 34,  3, F6,  6, 80,  1,  4, B8, 34, 35, 74,   516
  89. 980 DATA  3, B8, 31, 37, A3, 3B,  3, E8, DF,  0, B9,  9,  0, F6,  6, 80,   609
  90. 990 DATA  1,  2, 74,  9, BE, 91,  2, E8, 7E,  0, B9,  6,  0, E8, A2,  0,   580
  91. 1000 DATA E2, FB, F6,  6, 80,  1,  4, B8, 36, 30, 74,  3, B8, 35, 30, A3,   6B3
  92. 1010 DATA 3B,  3, E8, BA,  0, 33, C9, A1, 8B,  1, 8B, 16, 89,  1, 2B, C2,   621
  93. 1020 DATA 8A, CC, FE, C0, A2, 87,  1, E3,  E, 51, 52, E8, 57,  0, E8, 71,   86A
  94. 1030 DATA  0, 5A, FE, C6, 59, E2, F2, E8, 4B,  0, BE, 11,  3, E8, 38,  0,   770
  95. 1040 DATA 8B, 16, 89,  1, A1, 8B,  1, 2B, C2,  5,  1,  1, 33, C9, 8A, CC,   59E
  96. 1050 DATA 32, E4, 8B, F0, 51, 8B, CE, 52, E8, F9,  0, E8,  8,  1, FE, C2,   91F
  97. 1060 DATA E2, F6, 5A, FE, C6, 59, E2, EC, BE, 5F,  1, BF, AD,  1, E8, 73,   A03
  98. 1070 DATA  1, BF, C3,  1, E8, 6D,  1, C3, AC,  A, C0, 74,  7, E8, 29,  0,   69F
  99. 1080 DATA 72,  2, EB, F4, C3, 51, 33, C9, 8A,  E, 87,  1, E8, C5,  0, B4,   7E4
  100. 1090 DATA  8, E8, AF,  0, 52, E8, 11,  0, 5A, FE, C2, E2, EF, E8, AC,  0,   869
  101. 1100 DATA 59, C3, BE,  D,  3, E8, D0, FF, C3, 8B, 16, 8F,  1, 83, FA,  2,   814
  102. 1110 DATA 7F,  B, 32, E4, CD, 17, F6, C4, 29, 74, 2D, F9, C3, 83, EA,  3,   834
  103. 1120 DATA B4,  1, CD, 14, F6, C4, 80, EB, F0, BE, 31,  3, E8, A9, FF, BE,   9EB
  104. 1130 DATA 38,  3, E8, A3, FF, C3, BF, 3F,  3, B9,  4,  0, 86, E0, F2, AE,   84C
  105. 1140 DATA 75, D9, 8B, FB, D1, E1, 2B, F9, F8, C3, B9,  3,  0, 8B, 16, 8D,   94F
  106. 1150 DATA  1, 52, 52, 52, B3,  7, E8, 26,  0, 5A, FE, C6, E2, F5, 5A, F6,   804
  107. 1160 DATA  6, 80,  1,  4, 74,  2, FE, C6, B3, 70, E8, 12,  0, 5A, 80, C6,   682
  108. 1170 DATA  2, F6,  6, 80,  1,  2, 74,  3, E8,  4,  0, E8, 2E,  0, C3, 51,   50E
  109. 1180 DATA B9,  5,  0, E8, 2E,  0, B4,  8, E8, 18,  0, 51, B4,  9, B9,  1,   558
  110. 1190 DATA  0, E8,  F,  0, FE, C2, 59, E2, EA, 59, C3, 50, B8,  7,  E, CD,   7E2
  111. 1200 DATA 10, 58, C3, 53, 8A, 3E, 83,  1, CD, 10, 5B, C3, 8A, 36, 86,  1,   60C
  112. 1210 DATA FE, C6, 32, D2, 50, B4,  2, E8, E9, FF, 58, C3, 50, B4,  3, EB,   9AB
  113. 1220 DATA F6, 32, E4, CD, 16, C3, 53, 51, B4,  8, E8, D6, FF, B1,  4, D2,   956
  114. 1230 DATA CC, 8A, DC, B4,  9, B9,  1,  0, E8, C8, FF, 59, 5B, C3, B6,  2,   887
  115. 1240 DATA 8A, 16, 84,  1, 80, EA,  C, 80, 3E, 89,  1, 1B, 7E,  2, 32, D2,   582
  116. 1250 DATA BE, 91,  1, B8,  4,  0, B9,  C,  0, 88, 16, 88,  1, 50, 51, E8,   581
  117. 1260 DATA B2, FF, B4,  8, E8, 9C, FF, 87,  4, 46, 46, 8A, DC, B4,  9, 51,   87B
  118. 1270 DATA B9,  1,  0, E8, 8D, FF, 59, FE, C2, E2, E4, 59, FE, C6, 8A, 16,   9CA
  119. 1280 DATA 88,  1, 58, 48, 75, D7, E8, 83, FF, C3, B4,  2, A0, 84,  1, 2C,   7A9
  120. 1290 DATA  A, 8B, D0,  5,  4,  1, A3, 8D,  1, BE, F1,  1, B8,  8,  0, B9,   5C9
  121. 1300 DATA  A,  0, EB, B5, AC,  A, C0, 75,  1, C3, AA, 47, EB, F6, 2F, 55,   7AF
  122. 1310 DATA 20, 2D, 20, 55, 6E, 69, 6E, 73, 74, 61, 6C, 6C,  D,  A, 2F, 50,   4BD
  123. 1320 DATA 78, 78, 20, 2D, 20, 50, 72, 69, 6E, 74, 65, 72, 20, 50, 6F, 72,   592
  124. 1330 DATA 74, 2C, 20, 78, 78, 3D, 4C, 31, 2D, 4C, 33, 2C, 43, 31, 2D, 43,   426
  125. 1340 DATA 34, 2E, 20, 44, 65, 66, 61, 75, 6C, 74, 3D, 4C, 31, 20, 28, 4C,   495
  126. 1350 DATA 50, 54, 31, 29,  D,  A, 2F, 4C, 6E, 20, 2D, 20, 4C, 61, 73, 65,   3F0
  127. 1360 DATA 72, 4A, 65, 74, 20, 4D, 6F, 64, 65, 6C, 20, 6E, 3D, 31, 20, 6F,   531
  128. 1370 DATA 72, 69, 67, 69, 6E, 61, 6C, 20, 26, 20, 2B, 2C, 20, 6E, 3D, 32,   4A0
  129. 1380 DATA 20, 53, 65, 72, 69, 65, 73, 20, 32, 2E, 20, 44, 65, 66, 61, 75,   510
  130. 1390 DATA 6C, 74, 3D, 32,  D,  A, 2F, 52, 20, 2D, 20, 43, 68, 61, 6E, 67,   435
  131. 1400 DATA 65, 20, 52, 65, 74, 75, 72, 6E, 20, 41, 64, 64, 72, 65, 73, 73,   5EB
  132. 1410 DATA  A, 24, 20, 2C, 3B,  9, 45, 4E, 56, 45, 4C, 4F, 50, 45, 2E, 43,   38D
  133. 1420 DATA 4F, 4D,  0,  0,  0,  D,  A, 50, 6F, 72, 74, 20, 4C, 50, 54, 31,   399
  134. 1430 DATA 2C, 20, 4D, 6F, 64, 65, 6C, 20, 4C, 4A, 32, 2C, 20, 48, 6F, 74,   49C
  135. 1440 DATA 6B, 65, 79, 20, 69, 73, 20, 41, 6C, 74, 2D, 45, 24, 52, 65, 73,   546
  136. 1450 DATA 69, 64, 65, 6E, 74, 24, 4E, 4F, 54, 20, 52, 65, 73, 69, 64, 65,   5A5
  137. 1460 DATA 6E, 74, 24, 55, 6E, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 24, 43,   5F0
  138. 1470 DATA 61, 6E, 27, 74, 20, 55, 6E, 69, 6E, 73, 74, 61, 6C, 6C, 24, 53,   5BB
  139. 1480 DATA 61, 76, 65, 20, 6E, 65, 77, 20, 45, 4E, 56, 45, 4C, 4F, 50, 45,   524
  140. 1490 DATA 2E, 43, 4F, 4D, 3F, 24, 46, 49, 4C, 45, 20, 45, 52, 52, 4F, 52,   43A
  141. 1500 DATA 20, 2D, 20, 6E, 6F, 74, 68, 69, 6E, 67, 20, 73, 61, 76, 65, 64,   597
  142. 1510 DATA 24, 45, 4E, 56, 45, 4C, 4F, 50, 45, 2E, 43, 4F, 4D, 20, 75, 70,   494
  143. 1520 DATA 64, 61, 74, 65, 64, 24, 52, 65, 73, 69, 64, 65, 6E, 74, 20, 52,   5D6
  144. 1530 DATA 65, 74, 75, 72, 6E, 20, 41, 64, 64, 72, 65, 73, 73, 20, 55, 70,   5F9
  145. 1540 DATA 64, 61, 74, 65, 64, 24, 4C, 50, 54, 31,  0, 4C, 50, 54, 32,  0,   469
  146. 1550 DATA 4C, 50, 54, 33,  0, 43, 4F, 4D, 31,  0, 43, 4F, 4D, 32,  0, 43,   387
  147. 1560 DATA 4F, 4D, 33,  0, 43, 4F, 4D, 34,  0, FC, BA,  3,  1, B4,  9, CD,   526
  148. 1570 DATA 21, BA, 7E,  7, E8, BE,  2, C6,  6, 84,  1, 50, C6,  6, 85,  1,   5FB
  149. 1580 DATA 4F, C6,  6, 86,  1, 18, C7,  6, 8F,  1,  0,  0, C6,  6, 80,  1,   464
  150. 1590 DATA  5, F7, 16,  0,  1, BB,  0,  6, 8C, C8, 43, 8E, C3, 3B, C3, 74,   62E
  151. 1600 DATA 1D, BE,  0,  1, 8B, FE, B9, 10,  0, F3, A6,  B, C9, 75, EB, 80,   77B
  152. 1610 DATA  E, 80,  1, 80, 89, 1E, 33,  8, BA, 5D,  8, E8, 77,  2, 1E,  7,   496
  153. 1620 DATA BE, 80,  0, AC,  A, C0, 75,  F, F6,  6, 80,  1, 80, 75,  3, E9,   696
  154. 1630 DATA A9,  0, B8,  1, 4C, CD, 21, 8A, D8,  A, DB, 74, EB, AC, FE, CB,   8B7
  155. 1640 DATA BF, 22,  8, B9,  4,  0, F2, AE, 74, EF, 3C, 2F, 75, DA,  A, DB,   748
  156. 1650 DATA 74, D6, AC, 24, 5F, 3C, 55, 75,  3, E9, E8,  0, 3C, 50, 75,  7,   65B
  157. 1660 DATA E8, 2E,  1, 72, C3, EB, D2, 3C, 4C, 75,  7, E8, 51,  1, 72, B8,   771
  158. 1670 DATA EB, C7, 3C, 52, 75, B2, E8, B8,  1, BA, 8F,  8, B4,  9, CD, 21,   804
  159. 1680 DATA B4,  1, CD, 21, 24, 5F, 3C, 59, 75, 30, F7, 16,  0,  1, B4, 3C,   55E
  160. 1690 DATA BA, 26,  8, 33, C9, CD, 21, 73,  5, BA, A6,  8, EB, 15, 8B, D8,   715
  161. 1700 DATA B4, 40, B9, F1,  A, BA,  0,  1, CD, 21, 72, ED, B4, 3E, CD, 21,   790
  162. 1710 DATA BA, C1,  8, E8, DF,  1, F7, 16,  0,  1, F6,  6, 80,  1, 80, 74,   6CA
  163. 1720 DATA 1A, BE, 91,  2, 8B, FE, A1, 33,  8, 8E, C0, B9, 7E,  0, F3, A4,   7EC
  164. 1730 DATA BA, D6,  8, E8, BF,  1, B8,  5, 4C, CD, 21,  E,  7, BF, 65,  2,   672
  165. 1740 DATA B0, 20, F6,  6, 80,  1,  1, 74,  2, B0, 32, AA, A2, 4A,  8, BF,   603
  166. 1750 DATA 57,  2, BE, F6,  8, A1, 8F,  1,  3, F0, D1, E0, D1, E0,  3, F0,   88E
  167. 1760 DATA 56, E8, 20, FD, 5E, BF, 3C,  8, A5, A5, B4, 12, B3, 10, CD, 10,   76C
  168. 1770 DATA 80, FB, 10, 74,  5, 80,  E, 80,  1, 40, 8B, 1E, 2C,  0, 8E, C3,   579
  169. 1780 DATA B4, 49, CD, 21, B8,  9, 35, CD, 21, 89, 1E, 7B,  1, 8C,  6, 7D,   601
  170. 1790 DATA  1, BA, 53,  3, B8,  9, 25, CD, 21, BA, 35,  8, E8, 56,  1, BA,   5D5
  171. 1800 DATA 19,  9, CD, 27, F6,  6, 80,  1, 80, 75,  B, BA, 66,  8, E8, 44,   5E7
  172. 1810 DATA  1, B8,  2, 4C, CD, 21, B8,  9, 35, CD, 21, 8C, C0, 3B,  6, 33,   599
  173. 1820 DATA  8, 74,  8, BA, 7F,  8, B8,  3, 4C, CD, 21, 8E,  6, 33,  8, 26,   4AF
  174. 1830 DATA F7, 16,  0,  1, 26, C5, 16, 7B,  1, B8,  9, 25, CD, 21,  E, 1F,   48C
  175. 1840 DATA B4, 49, CD, 21, 72, DD, BA, 73,  8, E8,  9,  1, B8,  4, 4C, CD,   736
  176. 1850 DATA 21, E8, F8,  0, 74,  F, 24, 5F, 3C, 4C, 75, 12, E8, ED,  0, 2C,   617
  177. 1860 DATA 31, 3C,  2, 76,  2, F9, C3, 32, E4, A3, 8F,  1, F8, C3, 3C, 43,   726
  178. 1870 DATA 75, F3, E8, D7,  0, 2C, 31, 3C,  3, 77, EA,  4,  3, EB, E8, E8,   7E6
  179. 1880 DATA CA,  0, 74, E1, 2C, 31, 72, DD, 77,  7, 80, 26, 80,  1, FE, F8,   766
  180. 1890 DATA C3, 3C,  1, 75, D0, 80,  E, 80,  1,  1, F8, C3, 43, 75, 72, 72,   6AC
  181. 1900 DATA 65, 6E, 74, 20, 41, 64, 64, 72, 65, 73, 73, 3A, 24, 45, 6E, 74,   5B2
  182. 1910 DATA 65, 72, 20, 6E, 65, 77, 20, 61, 64, 64, 72, 65, 73, 73, 20, 28,   58F
  183. 1920 DATA 45, 6E, 74, 65, 72, 20, 3D, 20, 6E, 6F, 20, 63, 68, 61, 6E, 67,   579
  184. 1930 DATA 65, 29, 2E,  D,  A, 33, 20, 6C, 69, 6E, 65, 73, 2C, 20, 34, 30,   3F1
  185. 1940 DATA 20, 63, 68, 61, 72, 61, 63, 74, 65, 72, 73, 20, 6D, 61, 78, 2E,   5D4
  186. 1950 DATA 24, BA, 2C,  B, E8, 5E,  0, BA, 91,  2, B4,  9, CD, 21, BA, 3D,   64A
  187. 1960 DATA  B, E8, 51,  0, BA, F1,  B, C6,  6, F1,  B, 29, B4,  A, CD, 21,   697
  188. 1970 DATA 80, 3E, F2,  B,  0, 74,  C, BF, 91,  2, E8, 11,  0, E8,  4,  0,   572
  189. 1980 DATA E8,  1,  0, C3, BA, F1,  B, B4,  A, CD, 21, 83, C7, 2A, 57, 57,   730
  190. 1990 DATA B9, 28,  0, B0, 20, F3, AA, 5F, BE, F3,  B, 8A,  E, F2,  B, E3,   7E1
  191. 2000 DATA  2, F3, A4, BA, E2,  B, B4,  9, CD, 21, 5F, C3, AC, FE, CB,  A,   88C
  192. 2010 DATA DB, C3,  D,  A, 24, B4,  9, CD, 21, BA, E2,  B, B4,  9, CD, 21,   6D6
  193. 2020 DATA C3,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,    C3
  194. 2030 DATA 268651
  195.