home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol8n09.zip / SLICE.BAS < prev    next >
BASIC Source File  |  1989-02-21  |  9KB  |  118 lines
  1. 100 REM - BASIC PROGRAM TO CREATE SLICE.COM   
  2. 110 CLS:PRINT "Creating SLICE.COM   ": OPEN "SLICE.COM   " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO    99
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    99 - 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 "SLICE.COM    created successfully": SYSTEM
  17. 260 PRINT: PRINT "SLICE.COM    is not valid!": END
  18. 270 DATA E9, A2,  1,  0,  0,  0, 3A, 5C, 20, 20, 20, 20, 20, 20, 20, 20,   322
  19. 280 DATA 20, 20, 20, 20,  0,  0,  0, 30,  1,  0,  0, 2E,  0,  0,  0,  0,    DF
  20. 290 DATA  0, 53, 4C, 49, 43, 45, 20, 20, 20, 31, 2E, 30, 20, 2D, 20, 28,   2F4
  21. 300 DATA 63, 29, 20, 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D,   475
  22. 310 DATA 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D,   5B7
  23. 320 DATA  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 42,   569
  24. 330 DATA 6F, 62, 20, 46, 6C, 61, 6E, 64, 65, 72, 73, 20, 26, 20, 4D, 69,   53C
  25. 340 DATA 63, 68, 61, 65, 6C, 20, 48, 6F, 6C, 6D, 65, 73,  A,  D,  A, 24,   4CA
  26. 350 DATA 46, 69, 6C, 65, 20, 6E, 6F, 74, 20, 66, 6F, 75, 6E, 64, 24, 45,   596
  27. 360 DATA 72, 72, 6F, 72, 20, 6F, 70, 65, 6E, 69, 6E, 67, 20, 6F, 75, 74,   64D
  28. 370 DATA 70, 75, 74, 24, 4E, 6F, 74, 20, 65, 6E, 6F, 75, 67, 68, 20, 72,   5E6
  29. 380 DATA 6F, 6F, 6D, 24, 57, 72, 6F, 6E, 67, 20, 72, 65, 73, 74, 6F, 72,   63B
  30. 390 DATA 65, 20, 64, 69, 73, 6B, 2C, 20, 69, 6E, 73, 65, 72, 74, 20, 6E,   59F
  31. 400 DATA 75, 6D, 62, 65, 72, 20, 58, 58, 24, 4D, 75, 73, 74, 20, 62, 65,   59F
  32. 410 DATA 20, 72, 65, 6D, 6F, 76, 61, 62, 6C, 65, 20, 6D, 65, 64, 69, 61,   5FD
  33. 420 DATA 24, 45, 72, 72, 6F, 72, 20, 72, 65, 61, 64, 69, 6E, 67, 20, 69,   5B1
  34. 430 DATA 6E, 70, 75, 74, 24, 45, 72, 72, 6F, 72, 20, 77, 72, 69, 74, 69,   644
  35. 440 DATA 6E, 67, 20, 6F, 75, 74, 70, 75, 74, 24, 46, 69, 6C, 65, 20, 65,   5CF
  36. 450 DATA 78, 69, 73, 74, 73, 24, 4E, 65, 78, 74, 20, 64, 69, 73, 6B, 65,   62E
  37. 460 DATA 74, 74, 65, 24, 2C, 20, 50, 72, 65, 73, 73, 20, 61, 6E, 79, 20,   552
  38. 470 DATA 6B, 65, 79, 20, 2E, 2E,  D,  A, 24,  D,  A, 66, 6F, 72, 6D, 61,   42C
  39. 480 DATA 74, 3A,  9, 24, 53, 50, 4C, 49, 43, 45, 20, 20, 20, 64, 3A, 20,   3B9
  40. 490 DATA 20, 64, 3A, 5B, 5C, 70, 61, 74, 68, 5D,  D,  A, 24, 52, 65, 73,   4E4
  41. 500 DATA 74, 6F, 72, 69, 6E, 67, 3A, 20, 20, 20, 20, 20, 20, 20, 20, 20,   3ED
  42. 510 DATA 20, 20, 20, 20,  D,  A, 24,  0,  0,  0,  0,  0,  0,  0,  0,  0,    BB
  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, 80, 3E, 1A,  1,  0, 75,  E, E8, 1D,  0, E8,   349
  45. 540 DATA 38,  1, E8, 6F,  2, E8, 9C,  2, EB,  C, E8,  F,  0, E8, 2A,  1,   619
  46. 550 DATA E8, 12,  0, E8, 6B,  0, BA, 7F,  1, E8, D8,  1, FC, BA, 21,  1,   720
  47. 560 DATA B4,  9, CD, 21, C3, BF, 2D,  7, 8B, 36,  3,  1, A4, 80, 3C,  0,   586
  48. 570 DATA 75, FA, 80, 7D, FF, 5C, 74,  9, 80, 7D, FF, 3A, 74,  3, B0, 5C,   7FD
  49. 580 DATA AA, BE, 91,  2, BB, 78,  2, AC, AA,  A, C0, 74,  5, 88,  7, 43,   69B
  50. 590 DATA EB, F5, B4, 4E, BA, 2D,  7, B9, FF,  0, CD, 21, 72,  6, BA, 1A,   7C2
  51. 600 DATA  2, E8, 90,  1, B4, 3C, 8A,  E, 88,  2, 32, ED, CD, 21, 73,  6,   613
  52. 610 DATA BA, 8F,  1, E8, 7E,  1, A3, 1F,  1, BA, 6D,  2, B4,  9, CD, 21,   648
  53. 620 DATA C3, E8, 88,  0, BA,  5,  1, B8,  0, 3D, CD, 21, 73,  8, BA, B4,   6BF
  54. 630 DATA  1, E8, 8F,  0, EB, EE, A3, 1D,  1, 8B, D8, B4, 3F, B9, 1E,  0,   73F
  55. 640 DATA BA, 72,  7, CD, 21, 72, 24, 8B, F2, BF, 87,  2, A4, B9, 1D,  0,   6F6
  56. 650 DATA F3, A6, 74,  6, B4, 3E, CD, 21, EB, D4, B4, 3F, 8B, 1E, 1D,  1,   76C
  57. 660 DATA B9,  0, 80, 90, BA, 72,  7, CD, 21, 73,  6, BA, F1,  1, E8, 23,   71A
  58. 670 DATA  1, 8B, C8, E3, 22, B4, 40, 8B, 1E, 1F,  1, CD, 21, 72,  9, 3B,   5BA
  59. 680 DATA C1, 74, D7, BF, A4,  1, EB,  3, BF,  5,  2, B4, 41, BA, 2D,  7,   707
  60. 690 DATA CD, 21, 8B, D7, E8, FD,  0, B4, 3E, CD, 21, 80, 3E, 87,  2,  0,   75C
  61. 700 DATA 75,  9, BA, 26,  2, E8, 1B,  0, E9, 76, FF, C3, A1, 18,  1, 37,   675
  62. 710 DATA  D, 30, 30, 86, C4, 8B, 1E, 15,  1, 89,  7, A3, D6,  1, FF,  6,   585
  63. 720 DATA 18,  1, C3, B4,  9, CD, 21, BA, 34,  2, CD, 21, B8,  8,  C, CD,   5FE
  64. 730 DATA 21,  A, C0, 75,  4, B4,  8, CD, 21, C3, E8, 9A,  0, BE, 81,  0,   692
  65. 740 DATA AC, 3C,  D, 74, 18, 3C, 20, 76, F7, E8, 48,  0, 72, 2F, AC, 3C,   603
  66. 750 DATA  D, 74,  A, 3C, 20, 77, F7, C6, 44, FF,  0, EB, E3, C6, 44, FF,   835
  67. 760 DATA  0, 83, 3E,  3,  1,  0, 75,  D, 80, 3E, 1A,  1,  0, 74,  E, C7,   369
  68. 770 DATA  6,  3,  1, 1B,  1, 80, 3E,  5,  1,  0, 74,  1, C3, BA, 49,  2,   327
  69. 780 DATA B4,  9, CD, 21, BA, 54,  2, 80, 3E, 1A,  1,  0, 75,  3, BA, C5,   58B
  70. 790 DATA  4, E8, 60,  0, 8D, 5C, FF, 80, 3E, 1A,  1,  0, 74,  7, 80, 3E,   546
  71. 800 DATA  5,  1,  0, 74, 16, 83, 3E,  3,  1,  0, 75,  6, 89, 1E,  3,  1,   27B
  72. 810 DATA EB, 23, 80, 3E,  5,  1,  0, 74,  2, F9, C3, A2,  5,  1, A2, 16,   564
  73. 820 DATA  5, 8A, D8, 80, EB, 40, B8,  8, 44, CD, 21,  A, C0, 74,  6, BA,   702
  74. 830 DATA D9,  1, E8, 1F,  0, F8, C3, 56, 57, BE, 81,  0, 8B, FE, FC, AC,   8B9
  75. 840 DATA 3C,  D, 74,  D, 3C, 61, 72,  6, 3C, 7A, 77,  2, 2C, 20, AA, EB,   4EF
  76. 850 DATA EE, 5F, 5E, C3, B4,  9, CD, 21, 8B, 1E, 1D,  1,  B, DB, 74,  4,   63E
  77. 860 DATA B4, 3E, CD, 21, 8B, 1E, 1F,  1,  B, DB, 74,  4, B4, 3E, CD, 21,   5E7
  78. 870 DATA B8,  0, 4C, CD, 21, 53, 4C, 49, 43, 45, 20, 20, 20, 20, 20, 5B,   45D
  79. 880 DATA 64, 3A, 5C, 70, 61, 74, 68, 5C, 5D, 66, 69, 6C, 65, 6E, 61, 6D,   63C
  80. 890 DATA 65, 5B, 2E, 65, 78, 74, 5D, 20, 20, 64, 3A,  D,  A,  A, 24, 49,   408
  81. 900 DATA 6E, 70, 75, 74, 20, 66, 69, 6C, 65, 20, 65, 6D, 70, 74, 79,  D,   5E3
  82. 910 DATA  A, 24, 50, 72, 6F, 67, 72, 61, 6D, 20, 77, 6F, 6E, 27, 74, 20,   535
  83. 920 DATA 66, 69, 74,  D,  A, 24, 78, 3A, 5C, 53, 50, 4C, 49, 43, 45, 2E,   47A
  84. 930 DATA 43, 4F, 4D,  0, 8B, 16,  3,  1, B8,  0, 3D, CD, 21, 72,  F, A3,   48B
  85. 940 DATA 1D,  1, B4, 4E, 8B, 16,  3,  1, 33, C9, CD, 21, 73,  6, BA, 80,   562
  86. 950 DATA  1, E8, 60, FF, A1, 9A,  0,  B,  6, 9C,  0, 75,  6, BA, EF,  4,   658
  87. 960 DATA E8, 51, FF, C3, E8, 1F,  0, B4, 3F, 8B, 1E, 1D,  1, B9,  0, 80,   6F5
  88. 970 DATA 90, BA, 72,  7, CD, 21, 73,  6, BA, F1,  1, E8, 36, FF, E8, B1,   88C
  89. 980 DATA  0, 72,  2, EB, E2, C3, B4, 2A, CD, 21, 89,  E, 9D,  2, 89, 16,   6A5
  90. 990 DATA 9F,  2, B4, 2C, CD, 21, 89,  E, A1,  2, 89, 16, A3,  2, BE, 95,   640
  91. 1000 DATA  0, BF, 88,  2, B9, 15,  0, F3, A4, BF, 21,  1, BE, 19,  5, B9,   624
  92. 1010 DATA  7,  0, F3, A4, BE, 9E,  0, BF,  8,  1, B9,  8,  0, AC, 3C, 2E,   599
  93. 1020 DATA 74,  9,  A, C0, 74,  3, AA, E2, F4, B0, 2E, AA, 89, 3E, 15,  1,   6A3
  94. 1030 DATA 80, 7C, FF, 2E, 75,  4, AC, A2, 17,  1, C6,  6, 1A,  1,  1, A0,   590
  95. 1040 DATA 17,  1, 8B, 3E, 15,  1, AA, 89, 3E, 15,  1, BA, 16,  5, E8, F7,   532
  96. 1050 DATA  0, FF, 36,  5,  1, FF, 36,  3,  1, C6,  6,  5,  1,  0, C7,  6,   413
  97. 1060 DATA  3,  1,  0,  0, B4, 40, B9, C5,  4, BA,  0,  1, 2B, CA, CD, 21,   518
  98. 1070 DATA 8F,  6,  3,  1, 8F,  6,  5,  1, 72,  4, 3B, C1, 74,  F, B4, 3E,   41B
  99. 1080 DATA CD, 21, E8, 10,  1, BA,  2,  5, E8, B8, FD, EB, BE, B4, 3E, CD,   8AD
  100. 1090 DATA 21, C3, 8B, 1E, 1F,  1, 8B, C8, E3, 65, BA, 72,  7,  B, DB, 75,   6D6
  101. 1100 DATA 39, 51, 52, E8, 86, FD, BA,  5,  1, E8, 9C,  0, 89, 1E, 1F,  1,   652
  102. 1110 DATA B9, 1E,  0, E8, 6B,  0, B4, 40, BA, 87,  2, CD, 21, 73,  6, BA,   682
  103. 1120 DATA  5,  2, E8, 4F, FE, 3B, C1, 74,  F, B4, 3E, CD, 21, E8, C5,  0,   748
  104. 1130 DATA BA, A4,  1, E8, 6D, FD, EB, CE, 5A, 59, E8, 44,  0, B4, 40, CD,   90A
  105. 1140 DATA 21, 73,  6, BA,  5,  2, E8, 2B, FE,  3, D0, 8B, CF, E3,  E, 52,   6DC
  106. 1150 DATA B4, 3E, CD, 21, BA, 26,  2, E8, 49, FD, 5A, EB, A4, F8, C3,  B,   89F
  107. 1160 DATA DB, 74, 1C, B8,  0, 42, 33, C9, 33, D2, CD, 21, C6,  6, 87,  2,   6A9
  108. 1170 DATA  1, B4, 40, B9,  1,  0, BA, 87,  2, CD, 21, B4, 3E, CD, 21, F9,   6B9
  109. 1180 DATA C3, 52, A1, 6E,  7, 8B, 16, 70,  7, BF,  0,  0,  B, D2, 75,  A,   55E
  110. 1190 DATA 3B, C8, 76,  6, 8B, F9, 2B, F8, 8B, C8, 2B, C1, 83, DA,  0, A3,   865
  111. 1200 DATA 6E,  7, 89, 16, 70,  7, 5A, C3, 8B, EA, B4, 36, 8A, 16,  5,  1,   5AD
  112. 1210 DATA 80, EA, 40, CD, 21, 3D, FF, FF, 74,  4,  B, DB, 75,  8, BA, A4,   80C
  113. 1220 DATA  1, E8, DF, FC, EB, E4, F7, E3, F7, E1, A3, 6E,  7, 89, 16, 70,   A6C
  114. 1230 DATA  7, B4, 4E, B9, FF,  0, 8B, D5, CD, 21, 72,  8, BA, 1A,  2, E8,   747
  115. 1240 DATA C1, FC, EB, C6, B4, 3C, 33, C9, CD, 21, 73,  6, BA, 8F,  1, E8,   8F3
  116. 1250 DATA 82, FD, 8B, D8, C3, B4, 41, BA,  5,  1, CD, 21, C3,  0,  0,  0,   70B
  117. 1260 DATA 148898
  118.