home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / pcmag / vol7n16.arc / MAKEBAS.BAS < prev    next >
BASIC Source File  |  1988-09-27  |  12KB  |  162 lines
  1. 100 REM - BASIC PROGRAM TO CREATE MAKEBAS.COM 
  2. 110 CLS:PRINT "Creating MAKEBAS.COM ": OPEN "MAKEBAS.COM " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   143
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   143 - 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 "MAKEBAS.COM  created successfully": SYSTEM
  17. 260 PRINT: PRINT "MAKEBAS.COM  is not valid!": END
  18. 270 DATA E9, F0,  4, 4D, 41, 4B, 45, 42, 41, 53, 20, 31, 2E, 30, 20, 28,   4C8
  19. 280 DATA 43, 29, 20, 31, 39, 38, 38, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D,   454
  20. 290 DATA 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D,   5B7
  21. 300 DATA  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 53,   57A
  22. 310 DATA 61, 6C, 76, 61, 74, 6F, 72, 65, 20, 50, 2E, 20, 52, 69, 63, 63,   59D
  23. 320 DATA 69, 61, 72, 64, 69,  D,  A,  D,  A, 24, 55, 73, 61, 67, 65, 3A,   48A
  24. 330 DATA 20, 4D, 41, 4B, 45, 42, 41, 53, 20, 5B, 64, 3A, 5D, 5B, 5C, 70,   4B1
  25. 340 DATA 61, 74, 68, 5C, 5D, 66, 69, 6C, 65, 6E, 61, 6D, 65, 5B, 2E, 65,   625
  26. 350 DATA 78, 74, 5D,  D,  A, 24, 1A, 31, 30, 30, 20, 52, 45, 4D, 20, 2D,   380
  27. 360 DATA 20, 42, 41, 53, 49, 43, 20, 50, 52, 4F, 47, 52, 41, 4D, 20, 54,   42E
  28. 370 DATA 4F, 20, 43, 52, 45, 41, 54, 45, 20, 20, 20, 20, 20, 20, 20, 20,   323
  29. 380 DATA 20, 20, 20, 20, 20,  D,  A, 31, 31, 30, 20, 43, 4C, 53, 3A, 50,   2D5
  30. 390 DATA 52, 49, 4E, 54, 20, 22, 43, 72, 65, 61, 74, 69, 6E, 67, 20, 20,   4EC
  31. 400 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 22, 3A, 20, 4F, 50,   27B
  32. 410 DATA 45, 4E, 20, 22, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   255
  33. 420 DATA 22, 20, 41, 53, 20, 23, 31, 20, 4C, 45, 4E, 20, 3D, 20, 31,  D,   304
  34. 430 DATA  A, 31, 32, 30, 20, 46, 49, 45, 4C, 44, 20, 23, 31, 2C, 20, 31,   312
  35. 440 DATA 20, 41, 53, 20, 41, 24, 3A, 20, 43, 48, 45, 43, 4B, 53, 55, 4D,   3E6
  36. 450 DATA 23, 3D, 30,  D,  A, 31, 33, 30, 20, 46, 4F, 52, 20, 49, 20, 3D,   308
  37. 460 DATA 20, 31, 20, 54, 4F, 20, 20, 20, 20, 20, 20,  D,  A, 31, 34, 30,   280
  38. 470 DATA 20, 20, 4C, 49, 4E, 45, 53, 55, 4D, 23, 3D, 30, 3A, 20, 4C, 4F,   3E2
  39. 480 DATA 43, 41, 54, 45, 20, 32, 2C, 33, 3A, 20, 50, 52, 49, 4E, 54, 20,   3D5
  40. 490 DATA 22, 43, 6F, 75, 6E, 74, 64, 6F, 77, 6E, 3A, 20, 22, 20, 20, 20,   4BF
  41. 500 DATA 20, 20, 20, 20, 2D, 20, 49, 20, 3B,  D,  A, 31, 35, 30, 20, 20,   25E
  42. 510 DATA 46, 4F, 52, 20, 4A, 20, 3D, 20, 31, 20, 54, 4F, 20, 20, 20, 20,   342
  43. 520 DATA 3A, 20, 52, 45, 41, 44, 20, 42, 59, 54, 45, 24, 3A, 20, 43, 48,   3D3
  44. 530 DATA 45, 43, 4B, 53, 55, 4D, 23, 3D, 43, 48, 45, 43, 4B, 53, 55, 4D,   47B
  45. 540 DATA 23, 2B, 56, 41, 4C, 28, 22, 26, 48, 22, 2B, 42, 59, 54, 45, 24,   38E
  46. 550 DATA 29,  D,  A, 31, 36, 30, 20, 20, 20, 4C, 49, 4E, 45, 53, 55, 4D,   354
  47. 560 DATA 23, 3D, 4C, 49, 4E, 45, 53, 55, 4D, 23, 2B, 56, 41, 4C, 28, 22,   3F8
  48. 570 DATA 26, 48, 22, 2B, 42, 59, 54, 45, 24, 29,  D,  A, 31, 37, 30, 20,   30B
  49. 580 DATA 20, 20, 49, 46, 20, 28, 42, 59, 54, 45, 20, 3C, 20, 32, 35, 36,   364
  50. 590 DATA 29, 20, 54, 48, 45, 4E, 20, 4C, 53, 45, 54, 20, 41, 24, 3D, 43,   3D5
  51. 600 DATA 48, 52, 24, 28, 56, 41, 4C, 28, 22, 26, 48, 22, 2B, 42, 59, 54,   3BD
  52. 610 DATA 45, 24, 29, 29, 3A, 20, 50, 55, 54, 20, 23, 31,  D,  A, 31, 38,   302
  53. 620 DATA 30, 20, 20, 4E, 45, 58, 54, 20, 4A,  D,  A, 31, 39, 30, 20, 20,   30A
  54. 630 DATA 52, 45, 41, 44, 20, 4C, 49, 4E, 45, 54, 4F, 54, 24, 3A, 20, 4C,   425
  55. 640 DATA 49, 4E, 45, 43, 48, 45, 43, 4B, 23, 20, 3D, 20, 56, 41, 4C, 28,   3E5
  56. 650 DATA 22, 26, 48, 22, 2B, 4C, 49, 4E, 45, 54, 4F, 54, 24, 29,  D,  A,   360
  57. 660 DATA 32, 30, 30, 20, 20, 49, 46, 20, 4C, 49, 4E, 45, 43, 48, 45, 43,   3BC
  58. 670 DATA 4B, 23, 20, 3D, 20, 4C, 49, 4E, 45, 53, 55, 4D, 23, 20, 54, 48,   3E7
  59. 680 DATA 45, 4E, 20, 47, 4F, 54, 4F, 20, 32, 32, 30,  D,  A, 32, 31, 30,   34A
  60. 690 DATA 20, 20, 4C, 4F, 43, 41, 54, 45, 20, 34, 2C, 32, 3A, 20, 50, 52,   3A6
  61. 700 DATA 49, 4E, 54, 20, 22, 45, 72, 72, 6F, 72, 20, 69, 6E, 20, 6C, 69,   523
  62. 710 DATA 6E, 65, 20, 23, 22, 20, 20, 3B, 20, 20, 20, 20, 20, 20, 2B, 20,   2BE
  63. 720 DATA 20, 20, 20, 20, 2A, 20, 49, 3A, 20, 47, 4F, 54, 4F, 20, 32, 36,   32E
  64. 730 DATA 30,  D,  A, 32, 32, 30, 20, 4E, 45, 58, 54, 20, 49,  D,  A, 32,   2EC
  65. 740 DATA 33, 30, 20, 43, 4C, 4F, 53, 45, 3A, 20, 52, 45, 41, 44, 20, 46,   3D5
  66. 750 DATA 49, 4C, 45, 54, 4F, 54, 24, 20, 3A, 20, 46, 49, 4C, 45, 43, 48,   41A
  67. 760 DATA 45, 43, 4B, 23, 20, 3D, 20, 56, 41, 4C, 28, 46, 49, 4C, 45, 54,   3F2
  68. 770 DATA 4F, 54, 24, 29,  D,  A, 32, 34, 30, 20, 49, 46, 20, 43, 48, 45,   33C
  69. 780 DATA 43, 4B, 53, 55, 4D, 23, 20, 3C, 3E, 20, 46, 49, 4C, 45, 43, 48,   40B
  70. 790 DATA 45, 43, 4B, 23, 20, 54, 48, 45, 4E, 20, 47, 4F, 54, 4F, 20, 32,   3F0
  71. 800 DATA 36, 30,  D,  A, 32, 35, 30, 20, 50, 52, 49, 4E, 54, 3A, 20, 50,   36B
  72. 810 DATA 52, 49, 4E, 54, 20, 22, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   2BF
  73. 820 DATA 20, 20, 20, 63, 72, 65, 61, 74, 65, 64, 20, 73, 75, 63, 63, 65,   56B
  74. 830 DATA 73, 73, 66, 75, 6C, 6C, 79, 22, 3A, 20, 53, 59, 53, 54, 45, 4D,   573
  75. 840 DATA  D,  A, 32, 36, 30, 20, 50, 52, 49, 4E, 54, 3A, 20, 50, 52, 49,   3A1
  76. 850 DATA 4E, 54, 20, 22, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   264
  77. 860 DATA 20, 69, 73, 20, 6E, 6F, 74, 20, 76, 61, 6C, 69, 64, 21, 22, 3A,   51A
  78. 870 DATA 20, 45, 4E, 44,  D,  A, 20, 20, 20, 20, 20, 20, 44, 41, 54, 41,   2E8
  79. 880 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   200
  80. 890 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   200
  81. 900 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   200
  82. 910 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   200
  83. 920 DATA 20, 20, 20, 20, 20, 20, 20, 20,  0,  0,  0,  0,  0, 2E, 43, 4F,   1C0
  84. 930 DATA 4D,  0,  0,  0, 2E, 42, 41, 53,  0,  0,  0, 2E, 42, 41, 53, 20,   275
  85. 940 DATA 66, 69, 6C, 65, 20, 61, 6C, 72, 65, 61, 64, 79, 20, 65, 78, 69,   608
  86. 950 DATA 73, 74, 73, 2E, 20, 4F, 76, 65, 72, 77, 72, 69, 74, 65, 20, 28,   5B7
  87. 960 DATA 79, 2F, 6E, 29, 3F, 20, 3A, 24, 4D, 41, 4B, 45, 42, 41, 53, 3A,   42A
  88. 970 DATA 20, 45, 72, 72, 6F, 72, 2C, 20, 6C, 69, 6E, 65, 20, 6E, 75, 6D,   58E
  89. 980 DATA 62, 65, 72, 20, 74, 6F, 6F, 20, 62, 69, 67,  D,  A, 24, 4D, 41,   4C6
  90. 990 DATA 4B, 45, 42, 41, 53, 3A, 20, 53, 6F, 75, 72, 63, 65, 20, 66, 69,   520
  91. 1000 DATA 6C, 65, 20, 65, 72, 72, 6F, 72,  D,  A, 24, 4D, 41, 4B, 45, 42,   4B6
  92. 1010 DATA 41, 53, 3A, 20, 2E, 42, 41, 53, 20, 66, 69, 6C, 65, 20, 65, 72,   4A9
  93. 1020 DATA 72, 6F, 72,  D,  A, 24, 4D, 41, 4B, 45, 42, 41, 53, 3A, 20, 4E,   42A
  94. 1030 DATA 6F, 74, 20, 65, 6E, 6F, 75, 67, 68, 20, 6D, 65, 6D, 6F, 72, 79,   642
  95. 1040 DATA  D,  A, 24, 20, 20, 20, 20, 20, 20, 20, 57, 6F, 72, 6B, 69, 6E,   395
  96. 1050 DATA 67, 2E, 2E, 2E, 24, 44, 6F, 6E, 65,  D,  A, 24,  D,  A, 24,  0,   311
  97. 1060 DATA  0,  0,  0, BA,  3,  1, B4,  9, CD, 21, 81, FC, C7,  A, 77,  A,   538
  98. 1070 DATA B4,  9, BA, B6,  5, CD, 21, E9, 5F,  2, FC, 33, C0, A0, 80,  0,   779
  99. 1080 DATA 3C,  1, 77,  3, E9, 5F,  2, 8B, F8, 40, 8B, C8, C6, 85, 81,  0,   6E3
  100. 1090 DATA  0, 49, 75,  3, E9, 4F,  2, 4F, 80, BD, 81,  0, 20, 74, ED, 80,   609
  101. 1100 DATA BD, 81,  0,  9, 74, E6, BE, 80,  0, 46, 80, 3C, 20, 75,  3, 49,   5C2
  102. 1110 DATA EB, F7, 80, 3C,  9, 75,  3, 49, EB, EF, 88,  E, 80,  0, 89, 36,   717
  103. 1120 DATA 19,  5, E8, 81,  3, 8A,  E, 80,  0, 8B, FE, B0, 2E, F2, AE, 8B,   734
  104. 1130 DATA DF, 75,  3, 4B, EB,  8, B9,  5,  0, BE, 1D,  5, F3, A4, 8B, 16,   66B
  105. 1140 DATA 19,  5, B8,  0, 3D, CD, 21, 73,  F, C6,  6, 18,  5,  2, BA, 7E,   4A6
  106. 1150 DATA  5, B4,  9, CD, 21, E9, E1,  1, A3, 22,  5, 8B, 3E, 19,  5, E8,   614
  107. 1160 DATA D9,  2, 8B, F7, 8B, C6, 8B, D1, BF, A9,  1, F3, A4, 8B, F0, 8B,   A10
  108. 1170 DATA CA, BF, CF,  1, F3, A4, 8B, F0, 8B, CA, BF, E4,  1, F3, A4, 8B,   A86
  109. 1180 DATA F0, 8B, CA, BF, 66,  4, F3, A4, 8B, F0, 8B, CA, BF, A4,  4, F3,   A2F
  110. 1190 DATA A4, B9,  5,  0, 8B, FB, BE, 24,  5, F3, A4, 33, DB, 8B, 16, 19,   72E
  111. 1200 DATA  5, B8,  1, 3D, CD, 21, 72, 35, A3, 29,  5, BA, 2B,  5, B4,  9,   508
  112. 1210 DATA CD, 21, B8,  0,  1, CD, 21, 24, DF,  A, C0, 74, F5, 50, BA, EC,   7C1
  113. 1220 DATA  5, B4,  9, CD, 21, 58, 3C, 59, 74,  3, E9, 5A,  1, BA, EC,  5,   603
  114. 1230 DATA B4,  9, CD, 21, B8,  0, 3E, 8B, 1E, 29,  5, CD, 21, 8B, 16, 19,   520
  115. 1240 DATA  5, 33, C9, B8,  0, 3C, CD, 21, 73, 18, C6,  6, 18,  5,  1, BA,   512
  116. 1250 DATA 9B,  5, B4,  9, CD, 21, B8,  0, 3E, 8B, 1E, 22,  5, CD, 21, E9,   5E8
  117. 1260 DATA 37,  1, A3, 29,  5, BA, D3,  5, B4,  9, CD, 21, B8,  2, 42, 8B,   5CD
  118. 1270 DATA 1E, 22,  5, 33, C9, 33, D2, CD, 21, 73,  B, C6,  6, 18,  5,  5,   4A0
  119. 1280 DATA BA, 7E,  5, E9, 1A,  1, 33, DB, B3, 10, F7, F3,  B, D2, 74,  1,   74E
  120. 1290 DATA 40, BF, 36,  2, 33, D2, BB,  A,  0, B9,  5,  0, E8, 2B,  2, BF,   593
  121. 1300 DATA 6E,  2, B9,  5,  0, E8, 22,  2, BF, 8D,  2, B8, 10,  0, B9,  3,   50C
  122. 1310 DATA  0, E8, 16,  2, BF, C8,  3, B8,  4,  1, B9,  5,  0, E8,  A,  2,   4F9
  123. 1320 DATA BF, D0,  3, 33, C0, B0,  A, B9,  3,  0, E8, FD,  1, BA, 87,  1,   723
  124. 1330 DATA B9, 3F,  3, 8B, 1E, 29,  5, E8, 35,  1, 73,  B, C6,  6, 18,  5,   457
  125. 1340 DATA  4, BA, 9B,  5, E9, B9,  0, B8,  0, 42, 8B, 1E, 22,  5, 33, C9,   5C6
  126. 1350 DATA 33, D2, CD, 21, 73,  B, C6,  6, 18,  5,  5, BA, 7E,  5, E9, 9F,   624
  127. 1360 DATA  0, B9, 10,  0, E8, F7,  0, 73,  B, C6,  6, 18,  5,  3, BA, 7E,   54A
  128. 1370 DATA  5, E9, 8C,  0,  B, C0, 74, 2C, FF,  6, 1B,  5, E8, 53,  1, 73,   5B9
  129. 1380 DATA  B, C6,  6, 18,  5,  6, BA, 58,  5, EB, 75, 90, 8B, C8, E8, EC,   728
  130. 1390 DATA  0, B9, 52,  0, E8, 78,  0, 73, C8, C6,  6, 18,  5,  4, BA, 9B,   5E8
  131. 1400 DATA  5, EB, 5D, 90, FF,  6, 1B,  5, E8, 27,  1, BF, D1,  4, 57, 8B,   688
  132. 1410 DATA 16, F1,  5, A1, EF,  5, BB,  A,  0, B9,  B,  0, E8, 6B,  1, 8B,   609
  133. 1420 DATA F7, 5F, F3, A4, B0,  D, AA, B0,  A, AA, 8B, CF, 81, E9, C6,  4,   946
  134. 1430 DATA E8, 3C,  0, 73,  B, C6,  6, 18,  5,  4, BA, 9B,  5, EB, 21, 90,   585
  135. 1440 DATA B4,  9, BA, E5,  5, CD, 21, B8,  0, 3E, 8B, 1E, 22,  5, CD, 21,   603
  136. 1450 DATA B8,  0, 3E, 8B, 1E, 29,  5, CD, 21, B4, 4C, A0, 18,  5, CD, 21,   566
  137. 1460 DATA B4,  9, CD, 21, EB, E1, BA, 5A,  1, B4,  9, CD, 21, EB, EA, BE,   8CA
  138. 1470 DATA C6,  4, 80, 3C, 20, 75,  4, 46, 49, EB, F7, 8B, D6, 8B, 1E, 29,   6C3
  139. 1480 DATA  5, E8, 4B,  0, C3, 57, B9,  5,  0, B0, 20, F3, AA, 5F, 33, D2,   6E1
  140. 1490 DATA 8B, C3,  B, C0, 75,  B, B8, 20, 20, AB, AA, B8, 20, 30, AB, EB,   784
  141. 1500 DATA 16,  1,  6, EF,  5, 11, 16, F1,  5, 57, BB, 10,  0, B9,  5,  0,   40E
  142. 1510 DATA E8, D7,  0, 5F, 83, C7,  5, B0,  D, AA, B0,  A, AA, C3, 53, 52,   7A0
  143. 1520 DATA B8,  0, 3F, 8B, 1E, 22,  5, BA, EF,  9, CD, 21, 5A, 5B, C3, 51,   630
  144. 1530 DATA B4, 40, CD, 21, 59, 72,  5, 3B, C1, 74,  1, F9, C3, 8B, E9, BF,   812
  145. 1540 DATA D1,  4, BE, EF,  9, 33, C0, 33, DB, AC,  3, D8, E8, 20,  0, B8,   7D3
  146. 1550 DATA 2C, 20, AB, 32, E4, E2, F2, 83, FD, 10, 74,  F, B9, 10,  0, 2B,   6E8
  147. 1560 DATA CD, B8, 20, 30, AB, B8, 2C, 20, AB, E2, F6, E8, 77, FF, C3, 50,   978
  148. 1570 DATA D0, E8, D0, E8, D0, E8, D0, E8, 74,  A,  4, 90, 27, 14, 40, 27,   894
  149. 1580 DATA AA, EB,  4, 90, B0, 20, AA, 58, 24,  F,  4, 90, 27, 14, 40, 27,   564
  150. 1590 DATA AA, C3, 50, 57, 51, F8, 8B,  E, 1B,  5, 33, D2, B8,  A,  0, F7,   6D4
  151. 1600 DATA E1, 72, 14,  5,  4,  1, 72,  F, BF, C6,  4, 33, D2, BB,  A,  0,   545
  152. 1610 DATA B9,  5,  0, E8, 34,  0, F8, 59, 5F, 58, C3, 50, 33, C0, B9, FF,   7A0
  153. 1620 DATA FF, FC, F2, AE, 75, 20, 4F, 4F, F7, D1, 49, 33, C0, 51, FD, B0,   9D0
  154. 1630 DATA 5C, F2, AE, 75,  A, 47, 47, 58, 2B, C1, 8B, C8, 49, EB,  8, 47,   723
  155. 1640 DATA 59, 83, F9,  C, 7E,  1, F9, FC, 58, C3, 52, 50, 50, B0, 20, F3,   825
  156. 1650 DATA AA, 58, 4F, 57, 8B, CA,  B, C8, 74, 25, 50, 8B, C2, 33, D2, F7,   802
  157. 1660 DATA F3, 8B, C8, 58, F7, F3, 87, CA, 80, C1, 30, 80, F9, 39, 76,  3,   975
  158. 1670 DATA 80, C1,  7, 26, 88,  D, 4F, 8B, CA,  B, C8, 74,  2, EB, DB, 59,   70F
  159. 1680 DATA 2B, CF, 47, 58, 5A, C3, 50, 56, AC,  A, C0, 74,  F, 3C, 61, 72,   664
  160. 1690 DATA F7, 3C, 7A, 77, F3, 24, DF, 88, 44, FF, EB, EC, 5E, 58, C3,  0,   935
  161. 1700 DATA 188369
  162.