home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / pcmag / vol7n18.arc / XPANDISK.BAS < prev    next >
BASIC Source File  |  1988-10-31  |  10KB  |  137 lines
  1. 100 REM - BASIC PROGRAM TO CREATE XPANDISK.SYS
  2. 110 CLS:PRINT "Creating XPANDISK.SYS": OPEN "XPANDISK.SYS" AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   118
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   118 - 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 "XPANDISK.SYS created successfully": SYSTEM
  17. 260 PRINT: PRINT "XPANDISK.SYS is not valid!": END
  18. 270 DATA FF, FF, FF, FF,  0, 40, 17,  0, 22,  0,  1,  0,  0,  0,  0,  0,   476
  19. 280 DATA  0,  0,  1,  0,  0,  0,  0, 2E, 89, 1E, 13,  0, 2E, 8C,  6, 15,   1BE
  20. 290 DATA  0, CB, 50, 53, 51, 52, 1E,  6, 56, 57, 55, 9C, FC,  E, 1F, 80,   57C
  21. 300 DATA 3E, 12,  0,  1, B8,  1, 80, 75, 18, C4, 3E, 13,  0, 26, 8A, 5D,   439
  22. 310 DATA  2, 80, FB,  C, B8,  3, 80, 77,  8, 32, FF, D1, E3, FF, 97, 66,   824
  23. 320 DATA  0, C5, 3E, 13,  0,  D,  0,  1, 89, 45,  3, 9D, 5D, 5F, 5E,  7,   3B3
  24. 330 DATA 1F, 5A, 59, 5B, 58, CB, C7,  6, 2D,  1, 41,  1, FC,  1, 53,  1,   4DE
  25. 340 DATA 2A,  1, 2A,  1, 2A,  1, 53,  1, 53,  1, 2A,  1, 2A,  1, 38,  2,   1B9
  26. 350 DATA  0,  0,  0, 58, 50, 41, 4E, 44, 49, 53, 4B,  0,  1,  1,  1,  0,   265
  27. 360 DATA  1, 40,  0,  0,  1, FE,  1,  0,  8,  0,  1,  0,  0,  0, 40,  0,   18A
  28. 370 DATA  0,  1, 40,  0, 40,  0,  0,  0,  1, 8B,  0, 50, 43, 4D, 41, 47,   275
  29. 380 DATA 20, FE, 20, 4D, 4A, 4D, 28,  0,  0,  0,  0,  0,  0,  0,  0,  0,   24A
  30. 390 DATA  0,  0, 60, E1, 10,  0,  0,  0,  0,  0,  0, 50, 43, 20, 4D, 61,   2B2
  31. 400 DATA 67, 61, 7A, 69, 6E, 65, 20, 50, 72, 6F, 64, 75, 63, 74, 69, 76,   65E
  32. 410 DATA 69, 74, 79,  D,  A, 44, 69, 73, 6B, 20, 53, 69, 7A, 65, 20, 20,   4F3
  33. 420 DATA 20, 20, 20, 20, 20, 20, 20,  0, 4B,  D,  A, 53, 65, 63, 74, 6F,   340
  34. 430 DATA 72, 20, 53, 69, 7A, 65, 20, 20, 20, 20, 20, 20, 20,  0,  D,  A,   324
  35. 440 DATA 44, 69, 72, 65, 63, 74, 6F, 72, 79, 20, 45, 6E, 74, 72, 69, 65,   63C
  36. 450 DATA 73, 20,  0,  0,  0,  0,  0,  0,  0,  0, 33, C0, C3, 26, C6, 45,   37A
  37. 460 DATA  E,  1, 80, 3E, A8,  0,  1, 75,  5, 26, C6, 45,  E, FF, 33, C0,   521
  38. 470 DATA C3, 26, C7, 45, 12, 8B,  0, 26, 8C, 4D, 14, C6,  6, A8,  0,  0,   519
  39. 480 DATA 33, C0, C3, 26, 8A, 45,  2, A2, 23,  1, 80, 3E, A7,  0,  1, 75,   54E
  40. 490 DATA  7, 3C,  4, B8,  0, 80, 75, 1B, 26, 8B, 4D, 12, 26, 8B, 6D, 14,   451
  41. 500 DATA 8B, DD, 3B, 2E, 93,  0, B8,  8, 80, 73,  8,  3, D9, 3B, 1E, 93,   5E7
  42. 510 DATA  0, 76,  7, 26, C7, 45, 12,  0,  0, C3, 8B, 16, 26,  1, B4, 47,   447
  43. 520 DATA CD, 67,  A, E4, B8,  2, 80, 75, EA, 1E, 8B, 16, 8B,  0, 26, 8B,   6B6
  44. 530 DATA 45, 10, 26, 8B, 75,  E, 8B, 1E, 24,  1, 80, 3E, 23,  1,  4, 75,   3B2
  45. 540 DATA  3, 93, 8B, FE, 8E, D8, 8E, C3, BB, FF, FF, 51, 52, 8B, C5, F7,   A79
  46. 550 DATA E2, B9,  0, 40, F7, F1, 3B, C3, 74, 1B, 8B, D8, 2E, 80, 3E, 23,   7C2
  47. 560 DATA  1,  4, 75,  4, 8B, F2, EB,  2, 8B, FA, 32, C0, 2E, 8B, 16, 26,   654
  48. 570 DATA  1, B4, 44, CD, 67, 5A, 8B, CA, D1, E9, F3, A5, 45, 59, E2, CB,   979
  49. 580 DATA 1F, 8B, 16, 26,  1, B4, 48, CD, 67, 33, C0, C3, B9, 18,  0, 26,   5C4
  50. 590 DATA 3B, 4D, 12, 74,  B, 26, C7, 45, 12,  0,  0, B8,  1, 80, EB, 27,   4A8
  51. 600 DATA 1E,  6, 51, 26, 8E, 5D, 10, BE, 81,  0, E8, 5E,  0, 59,  7, 1F,   49A
  52. 610 DATA BE, CB,  0, 26, 8B, 45,  E, 26, 8E, 45, 10, 8B, F8, F3, A4, A0,   750
  53. 620 DATA A6,  0, 23, C5, AA, 33, C0, C3, B9, 18,  0, 26, 3B, 4D, 12, 75,   5F4
  54. 630 DATA 30,  6, 57, BE, CB,  0, 26, 8B, 45,  E, 26, 8E, 45, 10, 8B, F8,   5A6
  55. 640 DATA F3, A6, 5F,  7, 75, 1B, 80, 3E, A6,  0,  1, 75,  D, 8B, 16, 26,   53D
  56. 650 DATA  1, B4, 45, CD, 67, E8,  5,  1, 72,  7, E8,  B,  2, 33, C0, EB,   668
  57. 660 DATA  9, 26, C7, 45, 12,  0,  0, B8,  1, 80, C3,  E,  7, 26, C6,  6,   450
  58. 670 DATA A6,  0,  0, 26, C6,  6, A7,  0,  0, 26, C7,  6, 9E,  0, 40,  0,   410
  59. 680 DATA 26, C7,  6, A0,  0,  0,  1, 26, C7,  6, A2,  0, 40,  0, BD,  1,   427
  60. 690 DATA  0, AC, 3C,  D, 74, 20, 3C,  A, 74, 1C, 3C, 2F, 75, F3, AC, 3C,   51A
  61. 700 DATA  D, 74, 13, 3C,  A, 74,  F, 24, 5F, 3C, 4D, 75,  A, 26, C7,  6,   3DB
  62. 710 DATA 9E,  0, 10,  0, EB, 73, C3, 3C, 41, 75,  9, 26, C7,  6, 9E,  0,   55B
  63. 720 DATA  0, 80, EB, 65, 3C, 52, 75,  6, 26, C6,  6, A7,  0,  1, 3C, 57,   506
  64. 730 DATA 75,  2, 33, ED, E8, 5B,  0, 3C, 44, 75, 18, 83, FB, 10, 73,  3,   5EB
  65. 740 DATA BB, 10,  0, 81, FB,  0, 80, 76,  3, BB,  0, 80, 26, 89, 1E, 9E,   5E6
  66. 750 DATA  0, EB, 36, 3C, 53, 75, 18, B9, 80,  0, 3B, D9, 76,  A, B9,  0,   5C3
  67. 760 DATA  2, 3B, D9, 73,  3, B9,  0,  1, 26, 89,  E, A0,  0, EB, 1A, 3C,   4E4
  68. 770 DATA 45, 75, 1C, 83, FB,  4, 73,  3, BB,  4,  0, 81, FB,  0,  2, 76,   581
  69. 780 DATA  3, BB,  0,  2, 26, 89, 1E, A2,  0, 26, 80,  E, A6,  0,  1, E9,   473
  70. 790 DATA 5F, FF, 50, 33, DB, AC, 3C,  D, 74, 20, 3C,  A, 74, 1C, 3C, 2F,   586
  71. 800 DATA 74, 18, 2C, 30, 72, EF, 3C,  9, 77, EB, 98, 93, B9,  A,  0, F7,   6D5
  72. 810 DATA E1, 72,  4,  3, D8, 73, DE, BB, FF, FF, 4E, 58, C3,  6, 57, 8B,   88D
  73. 820 DATA 1E, 9E,  0, 83, C3, 1F, B1,  4, D3, EB, 4B, 75,  4, F9, E9, 8F,   7C9
  74. 830 DATA  0, B4, 43, CD, 67,  A, E4, 75, F1, 89, 1E, 28,  1, 89, 16, 26,   614
  75. 840 DATA  1, D3, E3, 89, 1E, A4,  0, 8B, 2E, A0,  0, B8,  0,  4, F7, E3,   6F1
  76. 850 DATA 2B, C5, 83, DA,  0, 3B, D5, 72,  4, D1, E5, EB, EE, F7, F5, 40,   98E
  77. 860 DATA  B, C0, 75,  2, 48, 48, A3, 93,  0, 50, 89, 2E, 8B,  0, 8B, D5,   5FA
  78. 870 DATA B1,  5, D3, EA, A1, A2,  0, F6, F2, 80, C4, FF, 14,  0, 32, E4,   90B
  79. 880 DATA 8B, D8, F6, E2, A3, 91,  0, 58, B1,  1, 3D, FE, 7F, 72,  2, FE,   8A5
  80. 890 DATA C1, 88,  E, 8D,  0, 2B, C3, 48, D0, E9, D3, E8, 8B, C8, D1, E0,   992
  81. 900 DATA B3, FF, 81, F9, F7,  F, 77,  7,  3, C1, 40, D1, E8, 32, DB, 33,   8AD
  82. 910 DATA D2, F7, F5, 83, C2, FF, 15,  0,  0, A3, 96,  0, E8,  4,  0, F8,   834
  83. 920 DATA 5F,  7, C3, 53, 8B, 16, 26,  1, 8B,  E, 28,  1, 83, F9,  3, 72,   4F7
  84. 930 DATA  3, B9,  3,  0, 8B, C1, 48, 8B, D8, B4, 44, CD, 67, E2, F5, A1,   85A
  85. 940 DATA 24,  1, 8E, C0, 33, FF, BE, 80,  0, B9,  F,  0, F3, A5, 8B, 3E,   70C
  86. 950 DATA 8B,  0, A1, 96,  0, F7, E7, 8B, C8, B0, FE, AA, B8, FF, FF, AB,   AAC
  87. 960 DATA 5B, 8A, C3, AA, 83, E9,  4, D1, E9, 33, C0, F3, AB, BE, AB,  0,   976
  88. 970 DATA B9, 10,  0, F3, A5, 8B, 1E, 91,  0, 4B, B1,  4, D3, E3, 8B, CB,   7A7
  89. 980 DATA F3, AB, C6,  6, A8,  0,  1, C3, BE, E3,  0, E8, 22,  0, A1, A4,   7C6
  90. 990 DATA  0, E8, 2C,  0, BE, F8,  0, E8, 16,  0, A1, 8B,  0, E8, 20,  0,   5FC
  91. 1000 DATA BE,  E,  1, E8,  A,  0, A1, 91,  0, E8, 14,  0, C3, E8,  6,  0,   59E
  92. 1010 DATA AC,  A, C0, 75, F8, C3, B4,  E, CD, 10, C3, B4,  9, CD, 21, C3,   876
  93. 1020 DATA BB,  A,  0, 33, C9, 33, D2, F7, F3, 80, C2, 30, 52, 41, 3D,  0,   6F2
  94. 1030 DATA  0, 75, F2, 8B, D9, 58, E8, DD, FF, E2, FA, C3,  D,  A, 58, 50,   945
  95. 1040 DATA 41, 4E, 44, 49, 53, 4B, 2E, 53, 59, 53, 20, 31, 2E, 30, 20, 28,   3DE
  96. 1050 DATA 43, 29, 20, 31, 39, 38, 38, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D,   454
  97. 1060 DATA 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D,   5B7
  98. 1070 DATA  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 4D,   574
  99. 1080 DATA 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 20, 4D, 65, 66, 66, 6F, 72,   57D
  100. 1090 DATA 64,  D,  A,  A, 53, 79, 6E, 74, 61, 78, 3A, 20, 58, 50, 41, 4E,   49D
  101. 1100 DATA 44, 49, 53, 4B, 2E, 53, 59, 53, 20, 5B, 2F, 44, 20, 64, 69, 73,   4A6
  102. 1110 DATA 6B, 20, 73, 69, 7A, 65, 5D, 5B, 2F, 53, 20, 73, 65, 63, 74, 6F,   5BE
  103. 1120 DATA 72, 20, 73, 69, 7A, 65, 5D, 5B, 2F, 45, 20, 65, 6E, 74, 72, 69,   5BB
  104. 1130 DATA 65, 73, 5D, 5B, 2F, 4D, 5D, 5B, 2F, 41, 5D,  D,  A,  A, 64, 69,   47F
  105. 1140 DATA 73, 6B, 20, 73, 69, 7A, 65, 20, 20, 20, 3D, 20, 28, 31, 36, 20,   425
  106. 1150 DATA 2D, 20, 33, 32, 37, 36, 38, 29, 4B, 20, 62, 79, 74, 65, 73, 3B,   44D
  107. 1160 DATA 20, 64, 65, 66, 61, 75, 6C, 74, 20, 3D, 20, 36, 34,  D,  A, 73,   476
  108. 1170 DATA 65, 63, 74, 6F, 72, 20, 73, 69, 7A, 65, 20, 3D, 20, 28, 31, 32,   500
  109. 1180 DATA 38, 2C, 32, 35, 36, 2C, 35, 31, 32, 29, 20, 62, 79, 74, 65, 73,   435
  110. 1190 DATA 3B, 20, 64, 65, 66, 61, 75, 6C, 74, 20, 3D, 20, 32, 35, 36,  D,   467
  111. 1200 DATA  A, 65, 6E, 74, 72, 69, 65, 73, 20, 20, 20, 20, 20, 3D, 20, 28,   429
  112. 1210 DATA 34, 20, 2D, 20, 35, 31, 32, 29, 69, 6E, 20, 72, 6F, 6F, 74, 20,   43D
  113. 1220 DATA 64, 69, 72, 65, 63, 74, 6F, 72, 79, 3B, 20, 64, 65, 66, 61, 75,   635
  114. 1230 DATA 6C, 74, 20, 3D, 20, 36, 34,  D,  A, 2F, 4D, 20, 3D, 20, 4D, 69,   38D
  115. 1240 DATA 6E, 69, 6D, 75, 6D, 20, 64, 69, 73, 6B, 20, 73, 69, 7A, 65, 20,   5EC
  116. 1250 DATA 28, 31, 36, 4B, 29,  D,  A, 2F, 41, 20, 3D, 20, 41, 6C, 6C, 20,   340
  117. 1260 DATA 6F, 66, 20, 61, 76, 61, 69, 6C, 61, 62, 6C, 65, 20, 65, 78, 70,   603
  118. 1270 DATA 61, 6E, 64, 65, 64, 20, 6D, 65, 6D, 6F, 72, 79,  D,  A,  A, 55,   52B
  119. 1280 DATA 73, 65, 20, 58, 50, 41, 4E, 42, 4F, 53, 53, 2E, 43, 4F, 4D, 20,   493
  120. 1290 DATA 74, 6F, 20, 63, 6F, 6E, 74, 72, 6F, 6C, 20, 69, 6E, 73, 74, 61,   643
  121. 1300 DATA 6C, 6C, 65, 64, 20, 58, 50, 41, 4E, 44, 49, 53, 4B,  D,  A, 24,   45E
  122. 1310 DATA 45, 4D, 4D, 58, 58, 58, 58, 30,  D,  A, 45, 78, 70, 61, 6E, 64,   4E6
  123. 1320 DATA 65, 64, 20, 6D, 65, 6D, 6F, 72, 79, 20, 64, 72, 69, 76, 65, 72,   62E
  124. 1330 DATA 20, 6E, 6F, 74, 20, 66, 6F, 75, 6E, 64,  D,  A,  A, 24,  D,  A,   409
  125. 1340 DATA  A, 58, 50, 41, 4E, 44, 49, 53, 4B, 20, 69, 6E, 73, 74, 61, 6C,   517
  126. 1350 DATA 6C, 65, 64,  D,  A,  A, 24, BA, CC,  4, E8, DE, FD, 1E,  6, 26,   611
  127. 1360 DATA 8B, 75, 12, 26, 8E, 5D, 14, AC, 3C, 20, 76, FB, AC, 3C, 20, 77,   62F
  128. 1370 DATA FB, 4E, E8, 96, FB,  7, 1F, 26, C6, 45,  D,  1, 26, C7, 45, 12,   66B
  129. 1380 DATA A9,  0, 26, 8C, 4D, 14,  6, 57, B8, 67, 35, CD, 21, BF,  A,  0,   524
  130. 1390 DATA BE, 80,  6, B9,  8,  0, F3, A6, 5F,  7, 75, 19, B4, 40, CD, 67,   6BA
  131. 1400 DATA  A, E4, 75, 11, B4, 41, CD, 67,  A, E4, 75,  9, 89, 1E, 24,  1,   5D5
  132. 1410 DATA E8, 4A, FC, 73, 19, 26, C7, 45,  E, 66,  0, 26, 8C, 4D, 10, 26,   595
  133. 1420 DATA C6, 45,  D,  0, C6,  6, 12,  0,  0, BA, 88,  6, EB, 10, 26, C7,   526
  134. 1430 DATA 45,  E, CC,  4, 26, 8C, 4D, 10, E8, 2D, FD, BA, AE,  6, E8, 5A,   6F4
  135. 1440 DATA FD, 33, C0, C3,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   2B3
  136. 1450 DATA 168526
  137.