home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / pcmag / vol4n16.arc / CACHE.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  4KB  |  74 lines
  1. 10      SUM! = 0:PRINT"Checking the Data..."
  2. 20      FOR I = 1 TO 547:READ BYTE.%:SUM! = SUM! + BYTE.%:NEXT I
  3. 30      IF SUM!<>48826! THEN PRINT"Error in the Data Statements":GOTO 180
  4. 40      RESTORE:INPUT"Buffer size; Min=12, Max=62 (in KBytes)";A%
  5. 50      IF A% > 62 OR A% < 12 GOTO 40           
  6. 60      A%=A%+A%:OPEN "CACHE.COM" AS #1  LEN=1  'Convert A% to sectors
  7. 70      CLS:PRINT "Creating Cache.Com"
  8. 80      FIELD #1,1 AS BYTE.$                    'Specify what goes into it
  9. 90      FOR N = 1 TO 547                        '547 bytes
  10. 100     READ BYTE.%
  11. 110     IF BYTE.% <> -1 GOTO 130
  12. 120     LSET BYTE.$=CHR$(A%):GOTO 140
  13. 130     LSET BYTE.$ = CHR$(BYTE.%)              'Load byte into buffer
  14. 140     PUT #1                                  'Write buffer out
  15. 150     NEXT N
  16. 160     CLOSE #1                                'Close file
  17. 170     PRINT "Cache.Com created."              'And you're done.
  18. 180     END
  19. 190     DATA  233,  230,  1,  40,  67,  41,  49,  57,  56,  53
  20. 200     DATA  32,  83,  46,  72,  111,  108,  122,  110,  101,  114
  21. 210     DATA  -1,  0,  0,  0,  0,  0,  0,  0,  0,  0
  22. 220     DATA  0,  0,  0,  0,  0,  0,  61,  1,  2,  116
  23. 230     DATA  17,  128,  252,  3,  114,  3,  233,  164,  0,  156
  24. 240     DATA  46,  255,  30,  28,  1,  233,  135,  0,  83,  81
  25. 250     DATA  82,  87,  86,  30,  6,  139,  251,  14,  31,  137
  26. 260     DATA  14,  24,  1,  128,  254,  0,  117,  69,  131,  249
  27. 270     DATA  6,  116,  5,  131,  249,  2,  117,  59,  232,  207
  28. 280     DATA  0,  227,  46,  139,  223,  139,  14,  24,  1,  156
  29. 290     DATA  255,  30,  28,  1,  114,  80,  185,  0,  1,  243
  30. 300     DATA  167,  227,  69,  141,  54,  227,  2,  139,  14,  20
  31. 310     DATA  1,  56,  84,  2,  117,  4,  199,  4,  0,  0
  32. 320     DATA  129,  198,  6,  2,  226,  241,  235,  44,  144,  232
  33. 330     DATA  190,  0,  114,  42,  235,  36,  144,  232,  148,  0
  34. 340     DATA  227,  25,  185,  0,  2,  243,  164,  129,  127,  4
  35. 350     DATA  255,  255,  116,  18,  255,  6,  22,  1,  161,  22
  36. 360     DATA  1,  137,  71,  4,  235,  6,  144,  232,  152,  0
  37. 370     DATA  114,  4,  248,  184,  1,  0,  7,  31,  94,  95
  38. 380     DATA  90,  89,  91,  46,  143,  6,  32,  1,  46,  143
  39. 390     DATA  6,  34,  1,  46,  143,  6,  24,  1,  46,  255
  40. 400     DATA  46,  32,  1,  83,  81,  82,  87,  86,  30,  6
  41. 410     DATA  80,  61,  1,  3,  117,  41,  14,  31,  156,  255
  42. 420     DATA  30,  28,  1,  115,  7,  46,  143,  6,  24,  1
  43. 430     DATA  235,  200,  137,  14,  24,  1,  139,  251,  232,  47
  44. 440     DATA  0,  227,  11,  135,  254,  6,  31,  14,  7,  185
  45. 450     DATA  0,  2,  243,  164,  88,  235,  171,  14,  31,  180
  46. 460     DATA  0,  81,  232,  23,  0,  227,  4,  199,  7,  0
  47. 470     DATA  0,  89,  254,  193,  72,  117,  240,  88,  7,  31
  48. 480     DATA  94,  95,  90,  89,  91,  233,  7,  255,  80,  141
  49. 490     DATA  54,  233,  2,  141,  30,  227,  2,  161,  20,  1
  50. 500     DATA  145,  57,  7,  117,  5,  57,  87,  2,  116,  10
  51. 510     DATA  129,  195,  6,  2,  129,  198,  6,  2,  226,  237
  52. 520     DATA  88,  195,  139,  223,  139,  14,  24,  1,  156,  255
  53. 530     DATA  30,  28,  1,  115,  3,  233,  134,  0,  81,  83
  54. 540     DATA  82,  141,  62,  233,  2,  141,  30,  227,  2,  139
  55. 550     DATA  14,  20,  1,  131,  63,  0,  116,  60,  129,  199
  56. 560     DATA  6,  2,  129,  195,  6,  2,  226,  241,  199,  6
  57. 570     DATA  26,  1,  254,  255,  141,  62,  233,  2,  141,  54
  58. 580     DATA  227,  2,  139,  14,  20,  1,  139,  22,  26,  1
  59. 590     DATA  57,  84,  4,  119,  11,  139,  199,  139,  222,  139
  60. 600     DATA  84,  4,  137,  22,  26,  1,  129,  199,  6,  2
  61. 610     DATA  129,  198,  6,  2,  226,  226,  139,  248,  90,  94
  62. 620     DATA  89,  137,  15,  137,  87,  2,  255,  6,  22,  1
  63. 630     DATA  161,  22,  1,  128,  254,  0,  117,  8,  131,  249
  64. 640     DATA  9,  126,  13,  235,  14,  144,  128,  254,  1,  117
  65. 650     DATA  8,  131,  249,  2,  119,  3,  184,  255,  255,  137
  66. 660     DATA  71,  4,  6,  31,  14,  7,  185,  0,  2,  243
  67. 670     DATA  164,  248,  195,  0,  0,  0,  0,  0,  0,  141
  68. 680     DATA  30,  35,  3,  184,  0,  0,  142,  216,  161,  76
  69. 690     DATA  0,  46,  163,  28,  1,  161,  78,  0,  46,  163
  70. 700     DATA  30,  1,  199,  6,  76,  0,  36,  1,  140,  14
  71. 710     DATA  78,  0,  46,  161,  20,  1,  185,  6,  2,  247
  72. 720     DATA  225,  139,  200,  46,  198,  7,  0,  67,  226,  249
  73. 730     DATA  186,  227,  2,  3,  208,  205,  39
  74.