home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pcmag / vol7n14.arc / RAMVIEW.BAS < prev    next >
BASIC Source File  |  1988-08-01  |  14KB  |  177 lines
  1. 100 REM - BASIC PROGRAM TO CREATE RAMVIEW.COM 
  2. 110 CLS:PRINT "Creating RAMVIEW.COM ": OPEN "RAMVIEW.COM " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   158
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   158 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: CHECKSUM#=CHECKSUM#+VAL("&H"+BYTE$)
  7. 160   LINESUM#=LINESUM#+VAL("&H"+BYTE$)
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(VAL("&H"+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 "RAMVIEW.COM  created successfully": SYSTEM
  17. 260 PRINT: PRINT "RAMVIEW.COM  is not valid!": END
  18. 270 DATA E9, CC,  1, 52, 41, 4D, 56, 49, 45, 57, 20, 31, 2E, 30, 30, 20,   4D0
  19. 280 DATA 28, 63, 29, 20, 31, 39, 38, 38, 2C, 20, 5A, 69, 66, 66, 20, 43,   3EC
  20. 290 DATA 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F,   658
  21. 300 DATA 2E,  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE,   542
  22. 310 DATA 20, 46, 72, 61, 6E, 6B, 20, 44, 65, 76, 65, 72, 20, 26, 20, 44,   4D2
  23. 320 DATA 61, 76, 69, 64, 20, 54, 68, 6F, 6D, 61, 73,  D,  A, 48, 6F, 74,   572
  24. 330 DATA 6B, 65, 79, 20, 69, 73, 20, 41, 6C, 74, 2D, 52,  D,  A, 24, 1A,   45A
  25. 340 DATA 52, 41, 4D, 56, 49, 45, 57, 20, 55, 6E, 69, 6E, 73, 74, 61, 6C,   589
  26. 350 DATA 6C, 65, 64,  D,  A, 24,  0, 20, 41, 42, 53, 20, 20, 53, 45, 47,   385
  27. 360 DATA 20, 20, 4F, 46, 46, 20, 20, 20, 30, 20, 20, 31, 20, 20, 32, 20,   2AE
  28. 370 DATA 20, 33, 20, 20, 34, 20, 20, 35, 20, 20, 36, 20, 20, 37, 20, 20,   269
  29. 380 DATA 38, 20, 20, 39, 20, 20, 41, 20, 20, 42, 20, 20, 43, 20, 20, 44,   2BB
  30. 390 DATA 20, 20, 45, 20, 20, 46, 20, 20, 20, 20, 20, 20, 20, 41, 53, 43,   2C2
  31. 400 DATA 49, 49,  0, 20, 47, 4F, 54, 4F, 20, 41, 44, 44, 52, 45, 53, 53,   411
  32. 410 DATA 3A, 20, 30, 30, 30, 30, 3A, 30, 30, 30, 30,  0, 28, 47, 29, 6F,   31B
  33. 420 DATA 74, 6F, 20, 20, 20, 28, 48, 29, 65, 78, 20, 53, 65, 61, 72, 63,   4C7
  34. 430 DATA 68, 20, 20, 20, 28, 41, 29, 73, 63, 69, 69, 20, 53, 65, 61, 72,   4AD
  35. 440 DATA 63, 68, 20, 20, 20, 28, 4E, 29, 65, 78, 74, 20, 20, 20, 20, 20,   3BB
  36. 450 DATA 18, 20, 19, 20, 50, 67, 55, 70, 20, 50, 67, 44, 6E, 20, 48, 6F,   44D
  37. 460 DATA 6D, 65, 20, 45, 6E, 64, 20, 45, 73, 63, 20,  0,  0,  0,  7,  6,   371
  38. 470 DATA  0,  0,  0,  0,  F,  0, FF, FF,  0,  0,  0,  0, 20, 30, 31, 32,   2C0
  39. 480 DATA 33, 34, 35, 36, 37, 38, 39, 30, 41, 42, 43, 44, 45, 46,  0, 41,   380
  40. 490 DATA 53, 43, 49, 49, 20, 53, 65, 61, 72, 63, 68, 20, 53, 74, 72, 69,   560
  41. 500 DATA 6E, 67, 3A, 20,  0, 48, 45, 58, 20, 53, 65, 61, 72, 63, 68, 20,   4AA
  42. 510 DATA 53, 74, 72, 69, 6E, 67, 3A, 20,  0, 20, 20, 20, 20, 20, 20, 20,   3B1
  43. 520 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,  0, 20, 20,   1E0
  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,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,    40
  46. 550 DATA  0,  0,  0,  0,  0,  0,  0,  0, 40,  0,  0,  0,  0,  0,  0, FC,   13C
  47. 560 DATA E8, 22,  7, 75,  8, E8, 6F,  7, B8,  1, 4C, CD, 21, 8C,  E, B7,   630
  48. 570 DATA  2, C7,  6, B9,  2, 4C, 1A, E8, C0,  7, BA,  3,  1, B4,  9, CD,   5E7
  49. 580 DATA 21, BA, A5,  1, B8,  0, 31, CD, 21, 2E, 80,  E, C7,  2,  2, 9C,   57B
  50. 590 DATA 2E, FF, 1E, C3,  2, 9C, 2E, 80, 26, C7,  2, FD, 9D, CA,  2,  0,   6AF
  51. 600 DATA FB, 50, 2E, 80, 3E, 86,  1, FF, 74, 43, E4, 60, 3C, 13, 75, 3D,   6B9
  52. 610 DATA B4,  2, CD, 16, 24,  F, 3C,  8, 75, 33, E4, 61, 8A, E0,  C, 80,   5F3
  53. 620 DATA E6, 61, 8A, C4, EB,  0, E6, 61, FA, B0, 20, E6, 20, FB, 2E, 80,   940
  54. 630 DATA 3E, C7,  2,  0, 75, 15, 2E, 80,  E, C7,  2,  1, E8, 15,  0, 72,   486
  55. 640 DATA  3, E8, 33,  0, FA, 2E, 80, 26, C7,  2, FE, 58, CF, 58, FA, 2E,   75A
  56. 650 DATA FF, 2E, BF,  2, 53, B4,  F, CD, 10, 80, FC, 50, 72, 16, 2E, 88,   6EB
  57. 660 DATA 26, CA,  2, 2E, 80, 2E, CA,  2, 50, 3C,  7, 75,  3, F8, 5B, C3,   5BB
  58. 670 DATA 3C,  3, 76, F9, F9, 5B, C3, E8, 7C,  1, 8C, C8, 8E, D8, E8, 17,   8E3
  59. 680 DATA  1, E8, 37,  0, E8, 5D,  0, E8, 74,  0, E8, 9F,  0, E8,  D,  0,   63D
  60. 690 DATA E8, BF,  0, E8, 57,  0, E8, 35,  0, E8, 81,  1, C3, 33, C0, 8B,   7AE
  61. 700 DATA D8, BE, 87,  1, E8, 58,  5, E8, 66,  3, B8, 18,  0, 33, DB, BE,   750
  62. 710 DATA EC,  1, E8, 4A,  5, E8, 96,  1, 73, ED, C3, 8E,  6, C8,  2, 26,   74A
  63. 720 DATA A1, 60,  0, A3, 3E,  2, E8, 14,  0, 89, 16, 3C,  2, C3, 8B, 16,   521
  64. 730 DATA 3C,  2, E8,  1,  0, C3, B4,  2, 32, FF, CD, 10, C3, B4,  3, 32,   65A
  65. 740 DATA FF, CD, 10, C3, 51, B9,  C, 2B, E8,  C,  0, 59, C3, 51, 8B,  E,   6DA
  66. 750 DATA 3E,  2, E8,  2,  0, 59, C3, 50, B4,  1, CD, 10, 58, C3, E8, C3,   6EE
  67. 760 DATA  0, 1E, 33, C0, 8B, D8, E8,  B,  5, BE, AC,  9, 1E,  6, 1F,  7,   529
  68. 770 DATA 87, FE, BB, 19,  0, B9, 50,  0, F3, A5, 2E,  3, 36, CA,  2, 2E,   65B
  69. 780 DATA  3, 36, CA,  2, 4B, 75, EE, 1F, E8, 4F,  0, C3, E8, 95,  0, 33,   67C
  70. 790 DATA C0, 8B, D8, E8, DE,  4, B8, 20,  7, BB, 18,  0, B9, 50,  0, F3,   79B
  71. 800 DATA AB, 2E,  3, 3E, CA,  2, 2E,  3, 3E, CA,  2, 4B, 75, EE, E8, 29,   5E0
  72. 810 DATA  0, C3, E8, 6F,  0, 33, C0, 8B, D8, E8, B8,  4, BE, AC,  9, BB,   842
  73. 820 DATA 19,  0, B9, 50,  0, F3, A5, 2E,  3, 3E, CA,  2, 2E,  3, 3E, CA,   52E
  74. 830 DATA  2, F3, A5, 4B, 75, EC, E8,  1,  0, C3, 2E, 80, 3E, CE,  2, FF,   7AD
  75. 840 DATA 74, 15, 50, 52,  6, E8, 52,  0, BA, D8,  3, 8E,  6, C8,  2, 26,   584
  76. 850 DATA A0, 65,  0, EE,  7, 5A, 58, C3, C6,  6, CE,  2,  0, B8,  0, 1A,   5DD
  77. 860 DATA CD, 10, 3C, 1A, 74, 18, B4, 12, B3, 10, CD, 10, 80, FB, 10, 75,   625
  78. 870 DATA  D, B8, 40,  0, 8E, C0, 26, F6,  6, 63,  0, 40, 75,  5, C6,  6,   55E
  79. 880 DATA CE,  2, FF, C3, 2E, 80, 3E, CE,  2, FF, 74,  D, 52, 50, E8,  9,   761
  80. 890 DATA  0, B0, 25, BA, D8,  3, EE, 58, 5A, C3, 2E, 80, 3E, CE,  2, FF,   788
  81. 900 DATA 74, 11, 50, 52, BA, DA,  3, EC, A8,  8, 75, FB, EC, A8,  8, 74,   7DA
  82. 910 DATA FB, 5A, 58, C3,  0,  0, 2E, 8F,  6,  4,  5, 2E, 8C, 16, BB,  2,   4C9
  83. 920 DATA 2E, 89, 26, BD,  2, 2E, 8E, 16, B7,  2, 2E, 8B, 26, B9,  2, 50,   511
  84. 930 DATA 53, 51, 52, 56, 57,  6, 1E, 55, 2E, FF, 26,  4,  5, 2E, 8F,  6,   43B
  85. 940 DATA  4,  5, 5D, 1F,  7, 5F, 5E, 5A, 59, 5B, 58, 2E, 8E, 16, BB,  2,   43E
  86. 950 DATA 2E, 8B, 26, BD,  2, 2E, FF, 26,  4,  5, E8, 9D, FF, B8, 18,  0,   64E
  87. 960 DATA 33, DB, E8, CF,  3, B9, 50,  0, B8, 20,  7, F3, AB, C3, E8, A9,   8A2
  88. 970 DATA  3, 80, FC,  2, 76, 7C, 24, DF, 3C, 47, 75,  6, E8, 6D,  1, EB,   6B5
  89. 980 DATA 70, 90, 3C, 41, 75,  6, E8, 8B,  0, EB, 66, 90, 3C, 48, 75,  6,   64B
  90. 990 DATA E8, D7,  0, EB, 5C, 90, 3C, 4E, 75,  6, E8, B2,  0, EB, 52, 90,   802
  91. 1000 DATA 80, FC, 48, 75,  5, B8, F0, FF, EB, 44, 80, FC, 47, 75,  E, C7,   921
  92. 1010 DATA  6, 40,  2,  0,  0, C7,  6, 42,  2,  0,  0, EB, 34, 80, FC, 4F,   443
  93. 1020 DATA 75,  E, C7,  6, 40,  2, 90, FE, C7,  6, 42,  2,  0, F0, EB, 21,   62D
  94. 1030 DATA 80, FC, 50, 75,  5, B8, 10,  0, EB, 14, 80, FC, 49, 75,  5, B8,   704
  95. 1040 DATA 90, FE, EB,  A, 80, FC, 51, B8, 70,  1, 74,  2, EB, 80, E8,  2,   844
  96. 1050 DATA  0, F8, C3,  B, C0, 79, 10, F7, D8, 29,  6, 40,  2, 73, 14, 81,   657
  97. 1060 DATA 2E, 42,  2,  0, 10, EB,  C,  1,  6, 40,  2, 73,  6, 81,  6, 42,   304
  98. 1070 DATA  2,  0, 10, C3, E8, 43, FF, B8, 18,  0, 33, DB, BE, 5F,  2, E8,   6E4
  99. 1080 DATA FD,  2, E8, 57,  3, 8A, D1, B6, 18, BE, 89,  2, B9, 14,  0, E8,   768
  100. 1090 DATA 80,  0, BF, 5E,  2, BB, 20,  0, E8, 62,  2, BE, 89,  2, 89, 36,   5CE
  101. 1100 DATA B3,  2, E8, 37,  3, 89,  E, B5,  2, E3,  3, E8, D4,  1, C3, 8B,   716
  102. 1110 DATA 36, B3,  2, 8B,  E, B5,  2, E3, 10, 83,  6, 40,  2,  1, 73,  6,   473
  103. 1120 DATA 81,  6, 42,  2,  0, 10, E8, B9,  1, C3, E8, ED, FE, BE, 75,  2,   748
  104. 1130 DATA B8, 18,  0, 33, DB, E8, A7,  2, E8,  1,  3, 8A, D1, B6, 18, BE,   742
  105. 1140 DATA 9E,  2, B9, 14,  0, E8, 2A,  0, BF, 4C,  2, BB, 20,  0, E8,  C,   55B
  106. 1150 DATA  2, BE, 9E,  2, E8, E5,  2, 80, F9,  1, 76, B2, 89, 36, B3,  2,   745
  107. 1160 DATA 89,  E, B5,  2, E8, 34,  0, E8, 13,  0, 89,  E, B5,  2, E8, 71,   60C
  108. 1170 DATA  1, C3, 51, 56, C6,  4, 20, 46, E2, FA, 5E, 59, C3, 56, 8B, FE,   7D0
  109. 1180 DATA 8B, DE, AD,  A, C0, 74,  A,  A, E4, 74,  6, E8, BC,  2, AA, EB,   801
  110. 1190 DATA F1, 32, C0, AA, 2B, FB, 8D, 4D, FF, 5E, C3, 56, 1E,  7, 8B, FE,   8B1
  111. 1200 DATA AC, 3C, 20, 74, FB, AA,  A, C0, 75, F6, 5E, C3, E8, 6B, FE, B8,   980
  112. 1210 DATA 18,  0, 33, DB, BE, D3,  1, E8, 25,  2, BA,  F, 18, BE, E2,  1,   649
  113. 1220 DATA B9,  9,  0, BF, 4D,  2, BB, 30,  0, E8, 91,  1, BE, E2,  1, BF,   695
  114. 1230 DATA 42,  2, E8,  2,  0, F8, C3, 1E,  7, 47, E8,  B,  0, E8,  8,  0,   538
  115. 1240 DATA 46, E8,  4,  0, E8,  1,  0, C3, AD, E8, 5E,  2, 88,  5, 4F, C3,   672
  116. 1250 DATA E8, B1, FD, 55, 8B, EC, 83, EC,  8, 1E, C4, 1E, 40,  2, 89, 5E,   802
  117. 1260 DATA FE, 8C, 46, FC, E8, C4,  0, 89, 5E, FA, 8C, 46, F8, 8E, 5E, FC,   A0B
  118. 1270 DATA 8B, 76, FE, 2E, C7,  6, CC,  2,  0,  0, 2E, FF,  6, CC,  2, 2E,   5F7
  119. 1280 DATA A1, CC,  2, 33, DB, E8, CC,  1, 8B, 4E, F8, E8, 69,  0, FF, 46,   899
  120. 1290 DATA F8, 8A, 46, FA, E8, 2F,  2, 86, C4, E8, 69,  0, E8, 54,  0, 8B,   83D
  121. 1300 DATA 4E, FC, E8, 52,  0, B0, 3A, E8, 5B,  0, 8B, 4E, FE, E8, 40,  0,   7B0
  122. 1310 DATA B9, 10,  0, 8B, D6, AC, E8, 45,  0, E8, 37,  0, E2, F7, 8B, F2,   878
  123. 1320 DATA B9, 10,  0, B0, 70, A4, AA, E2, FC, 83, 46, FA, 10, 83, 56, F8,   8B9
  124. 1330 DATA  0, 83, 46, FE, 10, 73,  8, 81, 46, FC,  0, 10, 8E, 5E, FC, 2E,   63B
  125. 1340 DATA 83, 3E, CC,  2, 17, 72, 93, 1F, 83, C4,  8, 5D, E8, CB, FC, C3,   7E8
  126. 1350 DATA E8,  4,  0, B0, 20, EB,  E, 8A, C5, E8,  2,  0, 8A, C1, E8, C5,   7E6
  127. 1360 DATA  1, AA, 47, 8A, C4, AA, 47, C3, C4, 1E, 40,  2, E8, 1C,  0, 8C,   6A8
  128. 1370 DATA C0, 8B, CB, C4, 1E, 44,  2, E8, 11,  0, 8C, C2, 2B, D0, 89, 16,   71F
  129. 1380 DATA 48,  2, 89, 1E, 4A,  2, 8E, C0, 8B, D9, C3, 50, 51, 52, 8B, C3,   6F3
  130. 1390 DATA B1,  4, D3, E8, 8C, C2,  3, D0, 8E, C2, D3, E0, 2B, D8, 5A, 59,   94A
  131. 1400 DATA 58, C3, 8B, F9, E8, C1, FF, 81, 3E, 48,  2,  0, 10, 73,  D, A1,   781
  132. 1410 DATA 48,  2, B1,  4, D3, E0,  3,  6, 4A,  2, EB,  3, B8, FF, FF, 2B,   6D6
  133. 1420 DATA C3, 72, 2A, 2B, C7, 76, 26, 3B, C7, 72, 22, 8B, D0, B1,  4, D3,   766
  134. 1430 DATA EA, 29, 16, 48,  2, E8, 23,  0, 74, 19,  5,  1,  0, 8B, D8, 73,   4E7
  135. 1440 DATA  7, 8C, C0,  5,  0, 10, 8E, C0, E8, A0, FF, EB, BA, 33, C0, 8E,   863
  136. 1450 DATA C0, 3C,  1, 8C,  6, 42,  2, A3, 40,  2, C3, 53, 57, 56, 87, DF,   5E1
  137. 1460 DATA 8B, C8, AC, F2, AE, 75,  F, 57, 56, 51, 8D, 4F, FF, E3,  2, F3,   8D4
  138. 1470 DATA A6, 59, 5E, 5F, 75, ED, 8D, 45, FF, 5E, 5F, 5B, C3, 55, 8B, EC,   896
  139. 1480 DATA 83, EC,  6, E8, 67, FB, 89, 4E, FE, 89, 76, FC, 89, 56, FA, 33,   99B
  140. 1490 DATA C9, 53, 56, 8A, 46, FB, 98, 8A, 5E, FA, 32, FF, 8B, 76, FC, E8,   9CD
  141. 1500 DATA 5D,  0, 5E, 5B, 1E,  7, 80, 3C, 3A, 75,  4, 41, FE, C2, 46, E8,   5D9
  142. 1510 DATA 24, FB, E8, 45,  0, 80, FC,  1, 74, 30, 80, FC, 1C, 74, 2B, 80,   724
  143. 1520 DATA FC, 4B, 74,  5, 80, FC,  E, 75,  F, E3, DB, 49, FE, CA, 4E, 80,   86B
  144. 1530 DATA 3C, 3A, 74, F5, 88, 1C, EB, B9, 3B, 4E, FE, 74, C9, E8, 64,  0,   837
  145. 1540 DATA 75, C4, 88,  4, 41, 46, FE, C2, EB, A7, 80, FB, 30, 74,  3, C6,   886
  146. 1550 DATA  4,  0, E8, EF, FA, 83, C4,  6, 5D, C3, 32, E4, CD, 16, C3, 56,   854
  147. 1560 DATA 57, E8, 10,  0, B4,  7, E8, D1, FB, AC,  A, C0, 74,  3, AB, EB,   841
  148. 1570 DATA F8, 5F, 5E, C3, 51, 52, 50, 2E, 8E,  6, C8,  2, B8,  0, B8, 26,   68D
  149. 1580 DATA 80, 3E, 49,  0,  7, 75,  2, B4, B0, 8E, C0, 59, B8, A0,  0, 2E,   616
  150. 1590 DATA  3,  6, CA,  2, 2E,  3,  6, CA,  2, F7, E1,  3, C3,  3, C3, 8B,   5C7
  151. 1600 DATA F8, 5A, 59, C3, 51, 57, 56, 1E,  7, 8B, F7, E8,  E,  0, E3,  8,   6F4
  152. 1610 DATA 3C, 41, 72,  2, 24, DF, F2, AE, 5E, 5F, 59, C3, 56, 50, B9, FF,   7CB
  153. 1620 DATA FF, 41, AC,  A, C0, 75, FA, 58, 5E, C3, F6, C4, 40, 74,  3, 80,   88F
  154. 1630 DATA EC, 37, A8, 40, 74,  2, 2C, 37, 25,  F,  F, D0, E0, D0, E0, D0,   757
  155. 1640 DATA E0, D0, E0,  A, C4, C3, D4, 10,  D, 30, 30, 3C, 39, 76,  2,  4,   663
  156. 1650 DATA  7, 80, FC, 39, 76,  3, 80, C4,  7, 86, C4, C3,  0,  0,  D,  A,   5A4
  157. 1660 DATA 52, 41, 4D, 56, 49, 45, 57, 20, 49, 53, 20, 44, 49, 53, 41, 42,   45A
  158. 1670 DATA 4C, 45, 44,  D,  A, 24,  D,  A, 52, 41, 4D, 56, 49, 45, 57, 20,   362
  159. 1680 DATA 49, 53, 20, 52, 45, 2D, 45, 4E, 41, 42, 4C, 45, 44,  D,  A, 24,   3A6
  160. 1690 DATA 8B,  E, AC,  9, 33, C0, 8E, C0, 26, 3B,  E, 42,  0, 75,  5, 26,   4E0
  161. 1700 DATA 3B,  E, 26,  0, C3, F7, 16,  0,  1, C7,  6, 42,  2, 60,  0, C7,   478
  162. 1710 DATA  6, 40,  2,  0,  0, 8C,  E, 46,  2, C7,  6, 44,  2,  0,  0, BE,   2FB
  163. 1720 DATA  0,  1, B9, 19,  0, E8, FA, FD, 9C, A1, 42,  2, A3, AC,  9, A1,   72C
  164. 1730 DATA 40,  2, B1,  4, D3, E8, 2D, 10,  0,  1,  6, AC,  9, C7,  6, 42,   4BA
  165. 1740 DATA  2,  0,  0, C7,  6, 40,  2,  0,  0, C7,  6, 44,  2,  F,  0, C7,   2FA
  166. 1750 DATA  6, 46,  2, FF, FF, 9D, C3, E8, 96, FF, 74, 21, F7, 16,  0,  1,   7CC
  167. 1760 DATA 8E,  6, AC,  9, 26, F6, 16, 86,  1, BA, C6,  9, 26, 80, 3E, 86,   5F5
  168. 1770 DATA  1, FF, 75,  3, BA, AE,  9, B4,  9, CD, 21, EB, 3C, 8E,  6, AC,   6FB
  169. 1780 DATA  9, 26, 8B, 16, BF,  2, 26, 8E, 1E, C1,  2, B4, 25, B0,  9, CD,   585
  170. 1790 DATA 21, 26, 8B, 16, C3,  2, 26, 8E, 1E, C5,  2, B4, 25, B0, 10, CD,   5AC
  171. 1800 DATA 21,  6, 26, 8E,  6, 2C,  0, B4, 49, CD, 21,  7, B4, 49, CD, 21,   4EA
  172. 1810 DATA  E, 1F, BA, 70,  1, B4,  9, CD, 21, C3, B1,  9, BE, BF,  2, BF,   6BE
  173. 1820 DATA 10,  3, E8,  C,  0, B1, 10, BE, C3,  2, BF, F9,  2, E8,  1,  0,   5EE
  174. 1830 DATA C3, 8A, C1, B4, 35, CD, 21, 89, 1C, 8C, 44,  2, 8B, D7, B4, 25,   797
  175. 1840 DATA 8A, C1, CD, 21, C3,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   2FC
  176. 1850 DATA 248700
  177.