home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / pcmag / vol7n17.arc / DCACHE.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-10-11  |  10.6 KB  |  144 lines
  1. 100 REM - BASIC PROGRAM TO CREATE DCACHE.COM  
  2. 110 CLS:PRINT "Creating DCACHE.COM  ": OPEN "DCACHE.COM  " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   125
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   125 - 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 "DCACHE.COM   created successfully": SYSTEM
  17. 260 PRINT: PRINT "DCACHE.COM   is not valid!": END
  18. 270 DATA E9, EA,  4, 44, 43, 41, 43, 48, 45, 20, 31, 2E, 30, 20, 28, 63,   4C9
  19. 280 DATA 29, 20, 31, 39, 38, 38, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 6D,   47E
  20. 290 DATA 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D,  A,   554
  21. 300 DATA 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 44, 6F,   5D0
  22. 310 DATA 75, 67, 6C, 61, 73, 20, 42, 6F, 6C, 69, 6E, 67,  D,  A, 24, 1A,   4EC
  23. 320 DATA  1,  0,  0,  0, 1E,  0,  0,  0,  0,  0, 80,  8,  0,  0,  0,  0,    A7
  24. 330 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  25. 340 DATA  0,  0,  0,  0,  0, FF, FF, 60,  4,  0,  0,  0,  0,  0,  0, 2E,   290
  26. 350 DATA 80, 3E, 50,  1,  0, 74, 1E, 2E, 3A, 16, 5A,  1, 75, 17, FB, 80,   481
  27. 360 DATA FC,  2, 74, 16, 80, FC,  3, 74, 18, 80, FC,  1, 74,  7,  6,  E,   59F
  28. 370 DATA  7, E8, 97,  2,  7, 2E, FF, 2E, 7B,  1, 2E, 3A,  6, 5B,  1, 77,   4A7
  29. 380 DATA F4, 1E, 57, 56, 9C, 50, 53, 51, 52,  E, 1F, 89, 1E, 62,  1, 8C,   564
  30. 390 DATA  6, 64,  1, 8B, D9, 83, E3, 3F, 89, 1E, 68,  1, 88, 36, 6A,  1,   5AD
  31. 400 DATA A2, 66,  1, 88, 26, 67,  1, 86, CD, D0, C5, D0, C5, 80, E5,  3,   804
  32. 410 DATA 89,  E, 6B,  1, 8B, C1, 8A, DE, F7, 26, 5C,  1, 32, FF,  3, C3,   728
  33. 420 DATA F7, 26, 5E,  1,  3,  6, 68,  1, 83, D2,  0, 89, 16, 71,  1, A3,   4F7
  34. 430 DATA 73,  1, 8A, F8, D0, E7, 81, E3,  0, 3E, 89, 1E, 6F,  1, 80, E7,   7CD
  35. 440 DATA 30, 8B, F3, 8B, D8, B1,  5, D3, E3, 23, 1E, 56,  1,  3, 1E, 79,   6AF
  36. 450 DATA  1, 89, 1E, 6D,  1, 8B, D8, 8B, 3E, 77,  1, 80, 3E, 67,  1,  2,   4E2
  37. 460 DATA 75,  3, E9, 95,  0, 8A, C8, 80, E1,  7, 8A, 2E, 66,  1,  2, CD,   69E
  38. 470 DATA 3A,  E, 5B,  1, 77, 2A, 80, 3E, 51,  1,  0, 74,  3, E8, AB,  1,   460
  39. 480 DATA 50, E8, CF,  1, 58, 75, 59, 32, C9, 8B, 3E, 6F,  1, 8B, 36, 62,   685
  40. 490 DATA  1, 8E,  6, 6D,  1, 8E, 1E, 64,  1, FC, F3, A5,  E, 1F, EB, 40,   600
  41. 500 DATA 8B, F0, 8A,  E, 5B,  1, FE, CD, 3A, E9, 77,  2, 8A, CD, 51, E8,   866
  42. 510 DATA A1,  1, 59, 75,  4, C7,  1, FF, FF, 56, 2A, E9, 8A, D9, 32, FF,   837
  43. 520 DATA  3, F3, 80, D2,  0, 8B, C6, 5B, 33, D8, F6, C3,  8, 75, D9, 5A,   868
  44. 530 DATA 59, 5B, 58, 9D, 8E,  6, 64,  1, 5E, 5F, 1F, 2E, FF, 2E, 7B,  1,   555
  45. 540 DATA 80, 3E, 51,  1,  0, 74, E8, B4, 48, 8B, 16, 52,  1, CD, 67,  A,   59A
  46. 550 DATA E4, 74, DC, C6,  6, 50,  1,  0, EB, D5, 80, 3E, 51,  1,  0, 74,   695
  47. 560 DATA  3, E8, 27,  1, 32, C9, E8, 4A,  1, 3B,  6, 75,  1, 74, D1, 89,   5C6
  48. 570 DATA  1, A1, 73,  1, 8A, E8, 80, E5,  7,  2, 2E, 66,  1, 3A, 2E, 5B,   54E
  49. 580 DATA  1, 7E, 42, 81, FE,  0, 30, 75, 10, 8B, 16, 6D,  1, 3B, 16, 60,   4B5
  50. 590 DATA  1, 72,  6, C7,  1, FF, FF, EB, A7, 8B, 16, 71,  1, 32, FF, 8A,   79F
  51. 600 DATA 1E, 66,  1,  3, C3, 80, D2,  0, E8,  8,  1, 74, 18, 89,  1, A0,   544
  52. 610 DATA 5B,  1, 3A, C8, 75,  F, 81, C6,  0, 10, 32, E4,  1,  6, 73,  1,   4CA
  53. 620 DATA 83, 16, 71,  1,  0, 80, F9,  0, 74, 50, 32, ED, 8B, F9, 33, C9,   6E7
  54. 630 DATA 8B, 16, 71,  1, A1, 73,  1, 25, F8, FF, 75,  A,  B, D2, 75,  6,   61B
  55. 640 DATA 40, 81, C6,  0,  2, 4F, F7, 36, 5E,  1,  B, CA, 75,  5, 8B,  E,   54C
  56. 650 DATA 5E,  1, 48, 33, D2, F7, 36, 5C,  1, 8A, F2, 86, C4, D0, C8, D0,   864
  57. 660 DATA C8,  B, C8, 8B, DE, 8E,  6, 6D,  1, 8B, C7, B4,  2, 8A, 16, 5A,   708
  58. 670 DATA  1, 50, 9C, FF, 1E, 7B,  1, 5E, 72, 3F, 8B, 3E, 62,  1, 8E,  6,   555
  59. 680 DATA 64,  1, 8A, 2E, 66,  1, 32, C9, 8B, 36, 6F,  1, 8E, 1E, 6D,  1,   4CA
  60. 690 DATA FC, F3, A5,  E, 1F, 80, 3E, 51,  1,  0, 74,  F, B4, 48, 8B, 16,   5F1
  61. 700 DATA 52,  1, CD, 67,  A, E4, 74,  3, E9,  8, FF, 5A, 59, 5B, 58, 9D,   6DF
  62. 710 DATA 33, C0, 5E, 5F, 1F, F8, CA,  2,  0, A1, 73,  1, 8B, 16, 71,  1,   5BB
  63. 720 DATA 8B, 3E, 77,  1, E8, 4C,  0, C7,  1, FF, FF, 8B, CE, 3A,  E, 5B,   737
  64. 730 DATA  1, 7E,  7, 83, C3,  2, C7,  1, FF, FF, A3, 75,  1, 33, C0, 8A,   72A
  65. 740 DATA 16, 5A,  1, 9C, FF, 1E, 7B,  1, E9, B5, FE, 50, 52, B1,  5, D3,   76D
  66. 750 DATA EB, 23, 1E, 58,  1, B4, 47, 8B, 16, 52,  1, CD, 67,  A, E4, 75,   60B
  67. 760 DATA  C, B8,  0, 44, CD, 67,  A, E4, 75,  3, 5A, 58, C3, 83, C4,  6,   664
  68. 770 DATA E9, A0, FE, 25, F8, FF,  B, C2, 8B, D8, D1, EB, D1, EB, 23, 1E,   A8C
  69. 780 DATA 54,  1, 3B,  1, 74,  4,  2,  E, 5B,  1, C3, 57, 51, 50, B8, FF,   4E7
  70. 790 DATA FF, 26, 8B, 3E, 77,  1, 26, 8B,  E, 54,  1, D1, E9, 41, F3, AB,   713
  71. 800 DATA 58, 59, 5F, C3,  E,  7, E8, E2, FF, 59, 88,  E, 50,  1, CD, 21,   6DF
  72. 810 DATA  0,  0,  0,  0,  0,  0,  0, 45, 4D, 4D, 58, 58, 58, 58, 30,  D,   27C
  73. 820 DATA  A, 4F, 70, 74, 69, 6F, 6E, 73, 3A,  D,  A, 2F, 4F, 46, 46, 20,   471
  74. 830 DATA 2D, 20, 44, 69, 73, 61, 62, 6C, 65, 20, 43, 61, 63, 68, 65,  D,   502
  75. 840 DATA  A, 2F, 4F, 4E, 20, 2D, 20, 45, 6E, 61, 62, 6C, 65, 20, 43, 61,   44E
  76. 850 DATA 63, 68, 65,  D,  A, 2F, 55, 20, 2D, 20, 55, 6E, 69, 6E, 73, 74,   4B9
  77. 860 DATA 61, 6C, 6C, 20, 43, 61, 63, 68, 65,  D,  A, 24, 2F, 4D, 78, 20,   47C
  78. 870 DATA 2D, 20, 53, 65, 74, 20, 43, 61, 63, 68, 65, 20, 53, 69, 7A, 65,   528
  79. 880 DATA 20, 54, 6F, 20, 78, 20, 4B, 42,  D,  A, 2F, 45, 20, 2D, 20, 55,   375
  80. 890 DATA 73, 65, 20, 45, 4D, 53,  D,  A, 2F, 48, 78, 20, 2D, 20, 43, 61,   3F4
  81. 900 DATA 63, 68, 65, 20, 50, 68, 79, 73, 69, 63, 61, 6C, 20, 44, 69, 73,   5CD
  82. 910 DATA 6B, 20, 78,  D,  A, 44, 65, 66, 61, 75, 6C, 74, 73, 3A, 20, 2F,   4DB
  83. 920 DATA 4D, 36, 34, 20, 2F, 48, 30, 20, 2F, 4F, 4E,  D,  A, 24, 49, 6E,   35C
  84. 930 DATA 76, 61, 6C, 69, 64, 20, 43, 61, 63, 68, 65, 20, 53, 69, 7A, 65,   5BF
  85. 940 DATA 24, 41, 6C, 72, 65, 61, 64, 79, 20, 49, 6E, 73, 74, 61, 6C, 6C,   5DD
  86. 950 DATA 65, 64, 24, 49, 6E, 76, 61, 6C, 69, 64, 20, 43, 6F, 6D, 6D, 61,   5C1
  87. 960 DATA 6E, 64, 24, 48, 61, 72, 64, 20, 44, 69, 73, 6B, 20, 54, 6F, 6F,   572
  88. 970 DATA 20, 4C, 61, 72, 67, 65, 24, 4E, 6F, 20, 45, 4D, 53, 20, 4D, 65,   4C3
  89. 980 DATA 6D, 6F, 72, 79, 24, 45, 4D, 53, 20, 44, 72, 69, 76, 65, 72, 20,   57C
  90. 990 DATA 45, 72, 72, 6F, 72, 24, 49, 6E, 76, 61, 6C, 69, 64, 20, 44, 69,   5C2
  91. 1000 DATA 73, 6B, 24, 43, 61, 6E, 6E, 6F, 74, 20, 55, 6E, 69, 6E, 73, 74,   606
  92. 1010 DATA 61, 6C, 6C, 24, 43, 61, 63, 68, 65, 20, 49, 6E, 73, 74, 61, 6C,   5BC
  93. 1020 DATA 6C, 65, 64,  D,  A, 24, 4E, 6F, 74, 20, 45, 6E, 6F, 75, 67, 68,   527
  94. 1030 DATA 20, 4D, 65, 6D, 6F, 72, 79,  D,  A, 24, 6F, 75, 6D, 68, 65, 31,   523
  95. 1040 DATA 36, 33, 32, 36, 34, 31, 32, 32, 35, 35, 31, 31, 30, 32, 30, 34,   32C
  96. 1050 DATA 30, 38, 31, 59,  8, 89,  8, 2E,  8, F1,  7,  C,  8, BA,  3,  1,   38B
  97. 1060 DATA B4,  9, CD, 21,  6, 8E,  6, 2C,  0, B4, 49, CD, 21,  7, 33, DB,   571
  98. 1070 DATA 89, 1E,  0,  1, 8C, C8, 43, 8E, C3, 3B, C3, 74, 11, BE,  0,  1,   5D2
  99. 1080 DATA 8B, FE, B9, 10,  0, FC, F3, A6, 75, EC, FE,  6, 64,  4, 8C,  6,   846
  100. 1090 DATA 65,  4,  E,  7, BF, 80,  0, B8, 34, 12, 47, FE,  E, 80,  0, 7C,   50A
  101. 1100 DATA 3D, 80, 3D, 3F, 74, 5D, 80, 3D, 2F, 75, EF, BE, CA,  5, 33, DB,   6F5
  102. 1110 DATA 8A, 45,  1,  C, 20, 3A,  4, 74,  D, 43, 46, 81, FE, CF,  5, 76,   50D
  103. 1120 DATA F4, BA, 43,  5, EB, 31, 80, FB,  1, 7E,  7, 80, 3E, 64,  4,  0,   639
  104. 1130 DATA 75, 1D, D1, E3, 81, C3, E3,  5, FF, 17, 72, 1B, EB, BC, 80, 3E,   87A
  105. 1140 DATA 64,  4,  0, 74, 38, 3D, 34, 12, 74,  5, B8,  0, 4C, CD, 21, BA,   4BC
  106. 1150 DATA 31,  5, EB,  3, BA, 53,  5, 52, B4,  2, B2,  A, CD, 21, 5A, B4,   5F6
  107. 1160 DATA  9, CD, 21, BA, 6F,  4, B4,  9, CD, 21, 80, 3E, 64,  4,  1, 74,   56A
  108. 1170 DATA  7, BA, BC,  4, B4,  9, CD, 21, B8,  1, 4C, CD, 21, B4,  8, 8A,   665
  109. 1180 DATA 16, 5A,  1, CD, 13, 73,  5, BA, 86,  5, EB, CB, 8A, D6, 32, F6,   74C
  110. 1190 DATA 42, 89, 16, 5C,  1, 8B, C1, 83, E1, 3F, 89,  E, 5E,  1, 86, E0,   689
  111. 1200 DATA D0, C4, D0, C4, 25, FF,  3, F7, 26, 5C,  1,  3,  6, 5C,  1, F7,   726
  112. 1210 DATA 26, 5E,  1,  3,  6, 5E,  1, 83, D2,  0, 80, FA,  8, 73, 95, A1,   56D
  113. 1220 DATA 54,  1, 40, 40, A3, 60,  4, 8A,  E, 5B,  1, 32, ED, F7, E1, B9,   680
  114. 1230 DATA  0,  1, F7, E1, B9,  4,  0, D1, EA, D1, D8, E2, FA, 80, 3E, 51,   8E5
  115. 1240 DATA  1,  1, 75, 60, B9,  A,  0, D1, EA, D1, D8, E2, FA, 8B, C8, B4,   8E1
  116. 1250 DATA 42, CD, 67,  A, E4, 75, 47, 3B, D9, 73,  3, E9, B7,  0, B4, 41,   73F
  117. 1260 DATA CD, 67,  A, E4, 75, 38, 89, 1E, 79,  1, 89, 1E, 60,  1, C7,  6,   5C5
  118. 1270 DATA 56,  1,  0,  0, B4, 43, 8B, D9, CD, 67,  A, E4, 75, 20, 89, 16,   608
  119. 1280 DATA 52,  1, A1, 54,  1, B1,  3, D3, E8, A3, 58,  1, 8B, 16, 60,  4,   5B9
  120. 1290 DATA 81, C2, 6F,  4, B1,  4, D3, EA, 89, 16, 62,  4, EB, 48, BA, 75,   78F
  121. 1300 DATA  5, E9, 13, FF, FA, 8B, DC, BC,  0, 40, FB,  B, D2, 75, 66, BB,   8CB
  122. 1310 DATA 6F,  4,  3, 1E, 60,  4, B1,  4, D3, FB, 8C, CA,  3, D3, 89, 16,   646
  123. 1320 DATA 79,  1,  3, D8, 89, 1E, 62,  4, B4, 4A, CD, 21, 72, 47, 8B,  E,   5A0
  124. 1330 DATA 54,  1, 86, E9, D1, E9, 81, E1,  0, FC, 89,  E, 56,  1, A1, 79,   7E4
  125. 1340 DATA  1,  3, C1, A3, 60,  1, BA, A4,  5, B4,  9, CD, 21, A0, 50,  1,   5C8
  126. 1350 DATA 50, C6,  6, 50,  1,  0, B8, 13, 35, CD, 21, 89, 1E, 7B,  1, 8C,   50A
  127. 1360 DATA  6, 7D,  1, BA, 7F,  1, B8, 13, 25, CD, 21, 8B, 16, 62,  4, B8,   55B
  128. 1370 DATA  0, 31, E9, 6F, FC, BA, B6,  5, B4,  9, CD, 21, B8,  2, 4C, CD,   778
  129. 1380 DATA 21, 8A, 55,  2, 80, EA, 30, 7C,  E, 80, FA,  9, 77,  9, 80, CA,   673
  130. 1390 DATA 80, 88, 16, 5A,  1, F8, C3, BA, 86,  5, F9, C3,  6, 57, B8, 67,   7B1
  131. 1400 DATA 35, CD, 21, BF,  A,  0, BE, 67,  4, B9,  8,  0, FC, F3, A6, 5F,   6CA
  132. 1410 DATA  7, 75,  6, FE,  6, 51,  1, F8, C3, BA, 67,  5, F9, C3, 8B, 45,   745
  133. 1420 DATA  2, BE, CF,  5, B9,  2,  0, 3B,  4, 74,  F, 41, 83, C6,  2, 81,   51E
  134. 1430 DATA FE, E3,  5, 76, F2, BA, 1E,  5, F9, C3, 33, DB, F9, D1, D3, E2,   A74
  135. 1440 DATA FB, D1, E3, 89, 1E, 54,  1, F8, C3, 8A, 45,  2, 3C, 5A, 77,  2,   746
  136. 1450 DATA  4, 20, 33, C9,  6, 8E,  6, 65,  4, 3C, 66, 74,  E, 41, 3C, 6E,   432
  137. 1460 DATA 75, 11, 38, 2E, 64,  4, 74,  3, E8, C0, FB, 26, 88,  E, 50,  1,   57B
  138. 1470 DATA  7, F8, C3,  7, BA, 43,  5, F9, C3,  6, B8, 13, 35, CD, 21, 8C,   707
  139. 1480 DATA C0, 3B,  6, 65,  4, 75, 31, 26, 80, 3E, 51,  1,  0, 74,  D, 26,   3ED
  140. 1490 DATA 8B, 16, 52,  1, B4, 45, CD, 67,  A, E4, 75, 1C, B4, 49, CD, 21,   68B
  141. 1500 DATA 72, 16, 1E, 26, C5, 16, 7B,  1, B8, 13, 25, CD, 21, 1F, 72,  8,   49A
  142. 1510 DATA 26, F7, 16,  0,  1, F8,  7, C3, BA, 93,  5, F9, EB, F8,  0,  0,   724
  143. 1520 DATA 188931
  144.