home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1990 / 10 / compute.bas < prev    next >
BASIC Source File  |  1990-03-09  |  14KB  |  179 lines
  1. 100 REM - BASIC PROGRAM TO CREATE COMPUTE.COM 
  2. 110 CLS:PRINT "Creating COMPUTE.COM ": OPEN "COMPUTE.COM " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   160
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   160 - 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 "COMPUTE.COM  created successfully": SYSTEM
  17. 260 PRINT: PRINT "COMPUTE.COM  is not valid!": END
  18. 270 DATA E9, 39,  3,  D, 20, 20, 20,  D,  A, 43, 4F, 4D, 50, 55, 54, 45,   3C6
  19. 280 DATA 20, 31, 2E, 30, 20, 28, 43, 29, 20, 31, 39, 39, 30, 20, 5A, 69,   339
  20. 290 DATA 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E,   642
  21. 300 DATA 73, 20, 43, 6F, 2E,  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69,   496
  22. 310 DATA 6E, 65, 20, FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 20,   57C
  23. 320 DATA 4D, 65, 66, 66, 6F, 72, 64,  D,  A,  A, 24, 53, 79, 6E, 74, 61,   517
  24. 330 DATA 78, 3A, 20, 43, 4F, 4D, 50, 55, 54, 45, 20, 61, 72, 69, 74, 68,   527
  25. 340 DATA 6D, 65, 74, 69, 63, 20, 65, 78, 70, 72, 65, 73, 73, 69, 6F, 6E,   682
  26. 350 DATA  D,  A, 4F, 70, 65, 72, 61, 74, 6F, 72, 73, 20, 73, 75, 70, 70,   5BE
  27. 360 DATA 6F, 72, 74, 65, 64, 20, 61, 72, 65, 20, 2B, 20, 2D, 20, 2A, 20,   478
  28. 370 DATA 2F, 20, 25, 20, 28, 20, 29, 20, 5B, 20, 5D, 20, 30, 2D, 39, 20,   2D3
  29. 380 DATA 78,  D,  A, 4E, 6F, 74, 65, 3A, 20, 25, 20, 3D, 20, 6D, 6F, 64,   461
  30. 390 DATA 75, 6C, 6F, 2C, 20, 72, 65, 6D, 61, 69, 6E, 64, 65, 72, 20, 6F,   5E2
  31. 400 DATA 66, 20, 69, 6E, 74, 65, 67, 65, 72, 20, 64, 69, 76, 69, 73, 69,   61C
  32. 410 DATA 6F, 6E, 2E,  D,  A, 20, 20, 20, 20, 20, 20, 78, 20, 3D, 20, 61,   338
  33. 420 DATA 6E, 73, 77, 65, 72, 20, 6F, 66, 20, 6C, 61, 73, 74, 20, 63, 6F,   5EA
  34. 430 DATA 6D, 70, 75, 74, 65, 2E,  A,  D,  A, 24, 1A, 7C,  A, 2B, 2D, 2A,   3C0
  35. 440 DATA 2F, 25, 28, 5B,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,    D7
  36. 450 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  37. 460 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  38. 470 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  39. 480 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  40. 490 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  41. 500 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  42. 510 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  43. 520 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  44. 530 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  45. 540 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  46. 550 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  47. 560 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  48. 570 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  8,  5,  3,  3,  3,    16
  49. 580 DATA  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,    30
  50. 590 DATA  3,  0,  0,  0,  0, 43, 4F, 4D, 50, 55, 54, 45, 2E, 43, 4F, 4D,   32D
  51. 600 DATA  0, 50, 41, 54, 48, 3D,  D,  A, 43, 6F, 75, 6C, 64, 20, 6E, 6F,   475
  52. 610 DATA 74, 20, 73, 61, 76, 65, 20, 61, 6E, 73, 77, 65, 72, 20, 69, 6E,   5EA
  53. 620 DATA 20, 43, 6F, 6D, 70, 75, 74, 65, 2E, 63, 6F, 6D,  D,  A, 43, 6F,   533
  54. 630 DATA 6D, 70, 75, 74, 65, 2E, 63, 6F, 6D, 20, 6D, 75, 73, 74, 20, 62,   603
  55. 640 DATA 65, 20, 69, 6E, 20, 63, 75, 72, 72, 65, 6E, 74, 20, 64, 69, 72,   5DE
  56. 650 DATA 65, 63, 74, 6F, 72, 79,  D,  A, 6F, 72, 20, 69, 6E, 20, 44, 4F,   538
  57. 660 DATA 53, 20, 50, 41, 54, 48, 3D, 20, 64, 69, 72, 65, 63, 74, 6F, 72,   559
  58. 670 DATA 79, 2E,  D,  A, 24, 52, 65, 73, 75, 6C, 74, 20, 69, 73, 20, 24,   4A1
  59. 680 DATA 55, 6E, 72, 65, 63, 6F, 67, 6E, 69, 7A, 65, 64, 20, 63, 68, 61,   639
  60. 690 DATA 72, 61, 63, 74, 65, 72, 24, 4D, 69, 73, 73, 69, 6E, 67, 20, 70,   60F
  61. 700 DATA 61, 72, 65, 6E, 74, 68, 65, 73, 69, 73, 20, 6F, 72, 20, 62, 72,   62B
  62. 710 DATA 61, 63, 6B, 65, 74, 24, 4D, 69, 73, 73, 2D, 6D, 61, 74, 63, 68,   602
  63. 720 DATA 65, 64, 20, 70, 61, 72, 65, 6E, 74, 68, 65, 73, 69, 73, 20, 77,   626
  64. 730 DATA 69, 74, 68, 20, 62, 72, 61, 63, 6B, 65, 74, 24, 44, 69, 76, 69,   5F1
  65. 740 DATA 64, 65, 20, 62, 79, 20, 7A, 65, 72, 6F, 24, 4F, 76, 65, 72, 66,   5CA
  66. 750 DATA 6C, 6F, 77, 24, 4C, 6F, 67, 69, 63, 20, 65, 72, 72, 6F, 72, 24,   5D2
  67. 760 DATA 52, 65, 71, 75, 69, 72, 65, 73, 20, 31, 30, 4B, 20, 6F, 66, 20,   531
  68. 770 DATA 6D, 65, 6D, 6F, 72, 79, 24, 45, 72, 72, 6F, 72, 20, 5E,  D,  A,   55C
  69. 780 DATA 24, 5E, 20, 45, 72, 72, 6F, 72, 24,  D,  A, 24, FC, BA,  3,  1,   4C5
  70. 790 DATA E8, 34,  6, BB,  0,  0, B4, 4A, CD, 21, BA, 10,  4, 72, 37, BC,   5FC
  71. 800 DATA FE, 3F, BE, 81,  0, 33, C0, 33, D2, E8, 86,  0, E8, C1,  1, BA,   846
  72. 810 DATA  4,  4, 73, 22, 81, 3E,  B,  2, 7C,  A, 75,  8, BA, 5B,  1, E8,   46A
  73. 820 DATA  5,  6, EB, 69, BA, A7,  3, 83, 3E, 16,  2,  0, 75,  8, E8, 5B,   55C
  74. 830 DATA  4, B8,  0, 4C, CD, 21, 52, BA, 5B,  1, E8, EA,  5, 5A, E8, E6,   75D
  75. 840 DATA  5, BA,  6,  2, E8, E0,  5, 8B, DE, BE, 81,  0, FC, B9, 4F,  0,   740
  76. 850 DATA AC, 3C,  D, 74, 11, E8, C8,  5, 3B, F3, 74,  A, E2, F2, BA,  7,   770
  77. 860 DATA  2, E8, C3,  5, EB, E7, BA,  7,  2, E8, BB,  5, 83, E9, 4F, F7,   8A1
  78. 870 DATA D9, BB, 27,  4, 83, F9, 28, 72,  5, 83, E9,  6, EB,  3, BB, 31,   726
  79. 880 DATA  4, B0, 20, E8, 9A,  5, E2, F9, 8B, D3, E8, 9A,  5, B8,  1, 4C,   820
  80. 890 DATA CD, 21, 55, 52, 50, 8B, EC, E8, 36,  1, 73,  3, E9, 29,  1, AC,   6B0
  81. 900 DATA BF,  D,  2, B9,  5,  0, F2, AE, 75, 75, 32, D2, 3C, 2B, 74,  4,   5F9
  82. 910 DATA 3C, 2D, 75, 11, 50, A0, 15,  2, BF,  F,  2, B9,  6,  0, F2, AE,   525
  83. 920 DATA 58, 75,  2, FE, C2, FF, 36, 15,  2, A2, 15,  2, FF, 36,  B,  2,   5D6
  84. 930 DATA E8, BF, FF, 5B, 59, 8A, F0, 8B, 3E,  B,  2, 8A,  5, 8A, 27, 80,   76A
  85. 940 DATA FE, 2A, 74, 28, 80, FE, 2F, 74, 28, 80, FE, 25, 74, 28,  A, D2,   728
  86. 950 DATA 74,  A, 8A, C1, E8, E8,  0, 75, 9E, E9, CC,  0, E8, 69,  1, A0,   853
  87. 960 DATA 15,  2, 3C, 29, 74, 16, 3C, 5D, 74, 12, EB, 8B, E8, B5,  1, EB,   624
  88. 970 DATA 86, E8, 2E,  2, EB, 81, E8,  3,  3, E9, 7B, FF, E9, A9,  0, A2,   88F
  89. 980 DATA 15,  2, 3C, 58, 74,  4, 3C, 78, 75, 22, 56, BE, D8,  2, 83,  6,   4E5
  90. 990 DATA  B,  2, 29, 8B, 3E,  B,  2, 57, B9, 29,  0, F3, A4, 5F, 8A, 46,   50B
  91. 1000 DATA  0, 3C, 2D, 74,  2, 32, C0, 30,  5, 5E, EB, 15, 3C, 2E, 74,  8,   44A
  92. 1010 DATA 3C, 30, 72, 1E, 3C, 39, 77, 1A, 4E, 83,  6,  B,  2, 29, E8, 87,   47E
  93. 1020 DATA  0, 80, 7E,  2,  1, 74, 61, 8A, 46,  0, E8, 72,  0, 74, 59, E9,   5B6
  94. 1030 DATA 25, FF, B4, 29, 3C, 28, 74, 24, 3A, C4, 74,  D, B4, 5D, 3C, 5B,   624
  95. 1040 DATA 74, 1A, 3A, C4, BA, 90,  3, 75, 43, FF,  E, 16,  2, BA, A7,  3,   61A
  96. 1050 DATA 72, 3A, 8B, 1E, 16,  2, 88, A7, 18,  2, EB, 2C, FF, 36, 16,  2,   51A
  97. 1060 DATA FF,  6, 16,  2, 33, D2, E8, E9, FE, 5B, 3A, A7, 18,  2, BA, C6,   7C7
  98. 1070 DATA  3, 75, 19, 8A, 46,  0, E8, 26,  0, 74,  D, 3C, 2D, 75,  6, 8B,   45F
  99. 1080 DATA 1E,  B,  2, 30,  7, E9, CF, FE, 58, 5A, 5D, C3, E9, 67, FE, C3,   7FB
  100. 1090 DATA AC, 3C,  D, 74,  7, 3C, 20, 76, F7, 4E, F8, C3, 4E, F9, C3, BF,   80B
  101. 1100 DATA  F,  2, B9,  3,  0, F2, AE, C3, BF, 4A,  2, B9, 15,  0, AC, 3C,   5F1
  102. 1110 DATA 2C, 74, FB, 3C, 2E, 74, 12, 2C, 30, 72,  D, 3C,  9, 77,  9, AA,   4D5
  103. 1120 DATA E2, EC, BA, FB,  3, E9, 2E, FE, 4E, 56, 8B, F7, 4E, 9C, FD, 8B,   A33
  104. 1130 DATA 3E,  B,  2, 83, C7, 14, 8B, D1, 4A, F7, D9, 83, C1, 15, E3,  2,   75D
  105. 1140 DATA F3, A4, 8B, CA, E3,  4, 32, C0, F3, AA, 8A, 46,  0, 3C, 2D, 74,   80F
  106. 1150 DATA  2, 32, C0, AA, 9D, 5E, 8B, 3E,  B,  2, 83, C7, 15, B9, 15,  0,   59C
  107. 1160 DATA 33, D2, AC, 2C, 30, 72,  E, 3C,  9, 77,  A, AA, 42, E2, F3, BA,   6CE
  108. 1170 DATA FB,  3, E9, E1, FD, 4E, 3B, 16,  1,  3, 76,  4, 89, 16,  1,  3,   585
  109. 1180 DATA 49, E3,  4, 32, C0, F3, AA, C3, 9C, 56, FD, C6,  6,  3,  3,  0,   743
  110. 1190 DATA 8B, D3, B9, 28,  0,  3, F9,  3, D9, 8B, F3, 3A, C4, 74, 2A, 3C,   76D
  111. 1200 DATA 2D, 74,  6, 87, FE, 89, 16,  B,  2, 8B, DF, F8, AC, 1A,  5, 3F,   644
  112. 1210 DATA AA, E2, F9, B0,  0, 73, 22, 8B, FB, F8, B9, 28,  0, 8A, C5, 1A,   892
  113. 1220 DATA  5, 3F, AA, E2, F8, B0, 2D, EB, 10, A2,  3,  3, F8, AC, 12,  5,   703
  114. 1230 DATA 37, AA, E2, F9, 72,  7, A0,  3,  3, AA, 5E, 9D, C3, BA, FB,  3,   7FB
  115. 1240 DATA 5E, E9, 72, FD, 55, 9C, 56, 32, D2, 3A, C4, 74,  2, B2, 2D, 88,   7DC
  116. 1250 DATA 16,  3,  3, FD, 83, C7, 28, 83, C3, 28, 8B, EF, BF, 99,  2, 8B,   758
  117. 1260 DATA D7, 33, C0, B9, 50,  0, F3, AA, 8B, FA, B9, 28,  0, 57, 8A,  7,   7BE
  118. 1270 DATA  A, C0, 74, 1D, 51, B9, 28,  0, 8A, D0, 8B, F5, 32, F6, AC, F6,   831
  119. 1280 DATA E2, D4,  A,  2,  5, 37,  2, C6, 37, AA, 8A, F4, E2, F0, 88, 25,   7A4
  120. 1290 DATA 59, 5F, 4B, 4F, E2, D7, BF, 86,  2, B9, 28,  0, E8, 58,  1, BE,   732
  121. 1300 DATA 85,  2, 8B, FD, B9, 28,  0, F3, A4, A0,  3,  3, AA, B9, 14,  0,   6A4
  122. 1310 DATA AC,  A, C0, 75,  6, E2, F9, 5E, 9D, 5D, C3, BA, FB,  3, 5E, E9,   8E6
  123. 1320 DATA F4, FC, 55, 9C, 56, 32, D2, 3A, C4, 74,  2, B2, 2D, 88, 16,  3,   72F
  124. 1330 DATA  3, 8B, EF, 45, BF, 4A,  2, 32, C0, B9, 3D,  0, F3, AA, BF, 9A,   7AB
  125. 1340 DATA  2, AA, 8B, F3, 46, B9, 28,  0, F3, A4, B9, 15,  0, F3, AA, 8B,   7DE
  126. 1350 DATA FD, B9, 28,  0, F3, AE, 75,  7, BA, EC,  3, 5E, E9, B7, FC, BF,   95D
  127. 1360 DATA 4A,  2,  3, F9, 83, C5, 27, 2B, E9, 41, 8B, D1, BE, 9B,  2, B9,   77C
  128. 1370 DATA 3E,  0, 2B, CA, 80, 3E,  4,  3,  1, 75,  6, 81, FF, 72,  2, 73,   4DB
  129. 1380 DATA 70, 51, 57, 8B, DE, 32, F6, 80, 7C, FF,  0, 75,  D, 8A, CA, 32,   7AC
  130. 1390 DATA ED, 8B, FD, A6, 77,  4, 72, 27, E2, F9, FE, C6, 8B, F5, 8B, FB,   AD4
  131. 1400 DATA 8A, CA, 32, ED, 49,  3, F1,  3, F9, 41, FD, F8, AC, 8A, E0, 8A,   982
  132. 1410 DATA  5, 1A, C4, 3F, AA, E2, F5, 80, 1D,  0, FC, 8B, F3, EB, C8, 8B,   8F8
  133. 1420 DATA F3, 5F, 59, 8A, C6, AA, 46, E2, AB, BF, 86,  2, B9, 28,  0, FD,   89D
  134. 1430 DATA E8, 84,  0, 72, 20, B9, 28,  0, BE, 85,  2, 8B, 3E,  B,  2,  3,   4FD
  135. 1440 DATA F9, F3, A4, A0,  3,  3, AA, B9, 14,  0, AC,  A, C0, 75,  6, E2,   780
  136. 1450 DATA F9, 5E, 9D, 5D, C3, BA, FB,  3, 5E, E9, 1A, FC, 50, 57, 83, C7,   91A
  137. 1460 DATA 15, B9, 14,  0, FD, E8, 4F,  0, 72, 39, 5F, 57, E8, 3A,  0, 8B,   624
  138. 1470 DATA FB, 83, C7, 15, B9, 14,  0, E8, 3D,  0, 72, 27, 8B, FB, E8, 28,   77B
  139. 1480 DATA  0, 5F, C6,  6,  4,  3,  1, FC, E8, F7, FE, C6,  6,  4,  3,  0,   5DF
  140. 1490 DATA 8B, 3E,  B,  2, 58, 8A, C4, AA, 56, BE, 9B,  2, B9, 28,  0, F3,   6AB
  141. 1500 DATA A4, 5E, C3, BA, FB,  3, E9, CD, FB, 9C, FC, 83, C7, 15, B9, 14,   9F2
  142. 1510 DATA  0, 32, C0, F3, AA, 9D, C3, 80, 3D,  5, 72,  E, 4F, F9, 8A,  5,   708
  143. 1520 DATA 14,  0, 37, AA, 73,  5, E2, F6, EB,  1, F8, C3, BA, 85,  3, E8,   816
  144. 1530 DATA 95,  1, 8B, 36,  B,  2, AC,  A, C0, 74,  3, E8, 82,  1, 32, F6,   5E4
  145. 1540 DATA B3,  3, B9, 14,  0, EB, 11,  A, F6, 74,  D, 8B, C1, F6, F3,  A,   73F
  146. 1550 DATA E4, 75,  5, B0, 2C, E8, 68,  1, AC,  A, C0, 75,  4,  A, F6, 74,   6EE
  147. 1560 DATA  5,  A, F0, E8, 58,  1, E2, DF, 56, B9, 14,  0, 8B, D9, 43, AC,   777
  148. 1570 DATA  A, C0, 74,  2, 8B, D9, E2, F7, 5E, F7, DB, 83, C3, 15, 8B,  E,   8A1
  149. 1580 DATA  1,  3, 3B, CB, 73,  2, 8B, CB, E3, 26,  A, F6, 75,  5, 32, C0,   64A
  150. 1590 DATA E8, 2B,  1, B0, 2E, E8, 28,  1, 32, DB, 80, FB,  3, 75,  7, B0,   6BA
  151. 1600 DATA 2C, E8, 1C,  1, 32, DB, AC, E8, 14,  1, FE, C3, E2, EC, EB,  9,   86A
  152. 1610 DATA  A, F6, 75,  5, 32, C0, E8,  5,  1, BA,  7,  2, E8,  8,  1, 8B,   599
  153. 1620 DATA 36,  B,  2, BF, D8,  2, B9, 29,  0, F3, A4, B4, 30, CD, 21, 3C,   663
  154. 1630 DATA  3, 72, 22, 8E, 1E, 2C,  0, 33, F6, AC,  A, C0, 75, FB, AC,  A,   634
  155. 1640 DATA C0, 75, F6, 46, 46, BF, 4A,  2, E8, 67,  0,  E, 1F, BA, 4A,  2,   644
  156. 1650 DATA E8, 8C,  0, 73, 5C, BA,  5,  3, E8, 84,  0, 73, 54, 8E, 1E, 2C,   610
  157. 1660 DATA  0, BB, FF, FF, 43, 8B, F3, 80, 3C,  0, 75,  8, 80, 7C,  1,  0,   6B0
  158. 1670 DATA 75, F2, EB, 35, BF, 11,  3, B9,  5,  0, F3, A6, 75, E6, 80, 3C,   7C8
  159. 1680 DATA  0, 74, 26, 80, 7C, FF,  0, 74, 20, BF, 4A,  2, AC,  A, C0, 74,   61E
  160. 1690 DATA  7, 3C, 3B, 74,  3, AA, EB, F4, E8, 1E,  0, 1E,  E, 1F, BA, 4A,   5D3
  161. 1700 DATA  2, E8, 3B,  0, 1F, 72, D7, EB,  8,  E, 1F, BA, 16,  3, E8, 76,   5DE
  162. 1710 DATA  0, C3, AC, AA,  A, C0, 75, FA, C3, 56, 1E, 81, FF, 4A,  2, 74,   7C9
  163. 1720 DATA 11, 26, 80, 7D, FF, 5C, 74,  A, 26, 80, 7D, FF, 3A, 74,  3, B0,   690
  164. 1730 DATA 5C, AA,  E, 1F, BE,  5,  3, B9,  C,  0, F3, A4, 1F, 5E, C3, 56,   5EB
  165. 1740 DATA B8,  2, 3D, CD, 21, 72, 35, 8B, D8, BA, 4A,  2, B9, 50,  0, B4,   6B2
  166. 1750 DATA 3F, CD, 21, 72, 27, BE,  0,  1, BF, 4A,  2, F3, A6, F9, 75, 1C,   6B3
  167. 1760 DATA 33, C9, BA, D8,  1, B8,  0, 42, CD, 21, 72, 10, BA, D8,  2, B9,   746
  168. 1770 DATA 29,  0, B4, 40, CD, 21, 72,  4, B4, 3E, CD, 21, 5E, C3,  4, 30,   5B6
  169. 1780 DATA 8A, D0, B4,  2, CD, 21, C3, B4,  9, CD, 21, C3,  0,  0,  0,  0,   62F
  170. 1790 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  171. 1800 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  172. 1810 DATA  0,  0,  0,  0,  0, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A,   11E
  173. 1820 DATA 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A,   1A0
  174. 1830 DATA 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A,   1A0
  175. 1840 DATA 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A,   1A0
  176. 1850 DATA 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A,   1A0
  177. 1860 DATA 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A, 1A,   1A0
  178. 1870 DATA 230290
  179.