home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pcmag / vol8n17.arc / DIMMER.BAS < prev    next >
BASIC Source File  |  1989-07-13  |  8KB  |  106 lines
  1. 100 REM - BASIC PROGRAM TO CREATE DIMMER.COM  
  2. 110 CLS:PRINT "Creating DIMMER.COM  ": OPEN "DIMMER.COM  " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO    87
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    87 - 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 "DIMMER.COM   created successfully": SYSTEM
  17. 260 PRINT: PRINT "DIMMER.COM   is not valid!": END
  18. 270 DATA E9, F2,  2, 44, 69, 6D, 6D, 65, 72, 20, 31, 2E, 30, 20, 28, 63,   595
  19. 280 DATA 29, 20, 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 6D,   47F
  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, 20, 42, 6F, 6C, 69, 6E, 67, 20, 61, 6E, 64, 20, 4A, 65,   579
  23. 320 DATA 66, 66, 20, 50, 72, 6F, 73, 69, 73, 65, 24, 1A,  0,  0, FF, FF,   60D
  24. 330 DATA FF, FF, 44,  4,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   246
  25. 340 DATA  0,  0,  0, 9C, 2E, FF, 1E, 67,  1, FB, 50, 2E, A1, 60,  1, 3D,   507
  26. 350 DATA FF, FF, 74, 23,  B, C0, 74, 1F, 2E, FF,  E, 62,  1, 75, 18, 2E,   64C
  27. 360 DATA C7,  6, 62,  1, 44,  4, 48, 2E, A3, 60,  1,  B, C0, 75,  8, 2E,   468
  28. 370 DATA 8A, 26, 5D,  1, E8,  2,  1, 58, CF, FB, 50, 2E, C7,  6, 62,  1,   5C9
  29. 380 DATA 44,  4, 2E, A1, 5E,  1, 2E, 87,  6, 60,  1,  B, C0, 75,  8, 2E,   408
  30. 390 DATA 8A, 26, 5C,  1, E8, E2,  0, 1E, B8, 40,  0, 8E, D8, A0, 17,  0,   60A
  31. 400 DATA 1F, 24,  F, 3C,  8, 74,  6, 58, 2E, FF, 2E, 6B,  1, E4, 60, 3C,   4AF
  32. 410 DATA 48, 75,  F, 2E, 80, 3E, 5C,  1, 3F, 7D, 24, 2E, FE,  6, 5C,  1,   484
  33. 420 DATA EB, 1D, 3C, 50, 75,  F, 2E, 80, 3E, 5C,  1, C1, 7E, 11, 2E, FE,   5DD
  34. 430 DATA  E, 5C,  1, EB,  A, 3C, 47, 75, CE, 2E, C6,  6, 5C,  1,  0, 2E,   4AB
  35. 440 DATA 8A, 26, 5C,  1, E8, 92,  0, FA, E4, 61, 8A, E0,  C, 80, E6, 61,   803
  36. 450 DATA 8A, C4, E6, 61, B0, 20, E6, 20, FB, 58, CF, 2E, A3, 65,  1, 9C,   860
  37. 460 DATA 2E, FF, 1E, 6F,  1, FB, 50, 2E, 80, 3E, 64,  1,  0, 74, 1F, 2E,   518
  38. 470 DATA 83, 3E, 60,  1,  0, 75, 17, 2E, 8A, 26, 5C,  1, E8, 5A,  0, 2E,   459
  39. 480 DATA C7,  6, 62,  1, 44,  4, 2E, A1, 5E,  1, 2E, A3, 60,  1, 2E, A1,   4A7
  40. 490 DATA 65,  1,  A, E4, 74, 19, 80, FC, 11, 74, 14, 3D, 10, 10, 74,  A,   4D1
  41. 500 DATA 3D, 12, 10, 74,  5, 3D, 1B, 10, 75,  D, E8, 49,  0, EB,  8, 2E,   414
  42. 510 DATA 8A, 26, 5C,  1, E8, 22,  0, 58, CF, FC, 51, 52, 56, BE, FF,  2,   6F2
  43. 520 DATA BA, C8,  3, 32, C0, FA, EE, B9,  0,  3, BA, C9,  3, AC, E8, 10,   845
  44. 530 DATA  0, EE, E2, F9, FB, 5E, 5A, 59, C3, 1E,  E, 1F, E8, DA, FF, 1F,   8C3
  45. 540 DATA C3,  A, C0, 74, 10,  2, C4, 3C,  0, 7F,  4, B0,  0, EB,  6, 3C,   573
  46. 550 DATA 3F, 76,  2, B0, 3F, C3, FC, 50, 51, 52, 57,  6, 8C, C9, 8E, C1,   759
  47. 560 DATA BF, FF,  2, BA, C7,  3, 32, C0, FA, EE, B9,  0,  3, BA, C9,  3,   860
  48. 570 DATA EC, 24, 3F, AA, E2, FA, FB,  7, 5F, 5A, 59, 58, C3, E8, D6, FF,   9C1
  49. 580 DATA 8A, 26, 5C,  1, E8, B2, FF, BA, 60,  0, B8,  0, 31, CD, 21,  0,   697
  50. 590 DATA  0,  0,  0, 50, 72, 6F, 67, 72, 61, 6D, 20, 75, 6E, 69, 6E, 73,   525
  51. 600 DATA 74, 61, 6C, 6C, 65, 64, 24, 50, 72, 6F, 67, 72, 61, 6D, 20, 6E,   600
  52. 610 DATA 6F, 74, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 24, 53, 79, 6E,   621
  53. 620 DATA 74, 61, 78, 3A, 20, 44, 49, 4D, 4D, 45, 52, 20, 5B, 2F, 55, 5D,   4C1
  54. 630 DATA 20, 5B, 2F, 56, 5B, 2B, 7C, 2D, 5D, 5D, 20, 5B, 2F, 44, 20, 6D,   464
  55. 640 DATA 6D, 6D, 20, 5B, 2B, 7C, 2D, 5D, 78, 78, 5D, 20, 5B, 5B, 2B, 7C,   550
  56. 650 DATA 2D, 5D, 78, 78, 5D, 24, 43, 61, 6E, 27, 74, 20, 75, 6E, 69, 6E,   582
  57. 660 DATA 73, 74, 61, 6C, 6C, 24, 56, 47, 41, 20, 72, 65, 71, 75, 69, 72,   5DA
  58. 670 DATA 65, 64, 24, 49, 6E, 74, 65, 6E, 73, 69, 74, 79, 20, 76, 61, 6C,   617
  59. 680 DATA 75, 65, 20, 6D, 75, 73, 74, 20, 62, 65, 20, 62, 65, 74, 77, 65,   5E1
  60. 690 DATA 65, 6E, 20, 2D, 36, 33, 20, 61, 6E, 64, 20, 2B, 36, 33, 24, 49,   3FD
  61. 700 DATA 6E, 76, 61, 6C, 69, 64, 20, 64, 65, 6C, 61, 79, 20, 76, 61, 6C,   610
  62. 710 DATA 75, 65, 24, 50, 72, 6F, 67, 72, 61, 6D, 20, 61, 6C, 72, 65, 61,   5FB
  63. 720 DATA 64, 79, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 24, 49, 6E, 76,   60E
  64. 730 DATA 61, 6C, 69, 64, 20, 69, 6E, 74, 65, 6E, 73, 69, 74, 79, 20, 76,   637
  65. 740 DATA 61, 6C, 75, 65, 24, FC, C7,  6,  0,  1,  0,  0, 33, DB, 8C, C8,   5F7
  66. 750 DATA 43, 8E, C3, 3B, C3, 74, 10, BE,  0,  1, 8B, FE, B9, 10,  0, F3,   71A
  67. 760 DATA A6, 75, ED, FE,  6, FF,  2, 8C,  6,  0,  3, B8,  0, 1A, CD, 10,   651
  68. 770 DATA BA, 76,  3, 3C, 1A, 75, 7E, BE, 81,  0, AC, 3C, 20, 74, FB, 3C,   66E
  69. 780 DATA  D, 74, 61, 3C, 2F, 75, 14, AC,  C, 20, 3C, 75, 74, 39, 3C, 64,   4AC
  70. 790 DATA 74, 29, 3C, 76, 74, 20, BA, 2D,  3, EB, 5A, 3C, 2D, 74,  D, 3C,   538
  71. 800 DATA 2B, 74,  9, 3C, 30, 72, EF, 3C, 39, 77, EB, 4E, 80,  E,  2,  3,   52D
  72. 810 DATA  1, E8, D9,  0, EB,  D, E8, C1,  0, EB,  8, 80,  E,  2,  3,  2,   5EB
  73. 820 DATA E8, F6,  0, 72, 30, EB, B3, BA, 17,  3, 80, 3E, FF,  2,  0, 74,   725
  74. 830 DATA 24, E8, 57,  1, BA, 66,  3, 72, 1C, BA,  3,  3, E8, 86,  0, B8,   5FB
  75. 840 DATA  0, 4C, CD, 21, 80, 3E, FF,  2,  0, 74, 2F, 80, 3E,  2,  3,  0,   45F
  76. 850 DATA 75,  B, BA, C3,  3, E8, 6D,  0, B8,  1, 4C, CD, 21, F6,  6,  2,   646
  77. 860 DATA  3,  1, 74,  F, 1E, 8E, 1E,  0,  3, 8A, 26, 5C,  1, E8, C9, FD,   50F
  78. 870 DATA 1F, EB, CC, F6,  6,  2,  3,  2, 75, C5, B8,  8, 35, CD, 21, 89,   67F
  79. 880 DATA 1E, 67,  1, 8C,  6, 69,  1, B8,  8, 25, BA, 73,  1, CD, 21, B8,   53B
  80. 890 DATA  9, 35, CD, 21, 89, 1E, 6B,  1, 8C,  6, 6D,  1, B8,  9, 25, BA,   4DF
  81. 900 DATA A9,  1, CD, 21, B8, 10, 35, CD, 21, 89, 1E, 6F,  1, 8C,  6, 71,   59D
  82. 910 DATA  1, B8, 10, 25, BA, 2B,  2, CD, 21, BA,  3,  1, E8,  6,  0, E9,   558
  83. 920 DATA DB, FD,  D,  A, 24, 52, B4,  9, BA, 12,  5, CD, 21, B4,  9, 5A,   5F8
  84. 930 DATA CD, 21, B4,  9, BA, 12,  5, CD, 21, C3, B0,  1, 80, 3C, 2D, 75,   63C
  85. 940 DATA  2, FE, C8, 8E,  6,  0,  3, 26, A2, 64,  1, F8, C3, 8B, FE, E8,   7B8
  86. 950 DATA FD,  0, BA, DD,  3, 72, 1F, 80, 7D, FF, 2D, 75,  2, F7, D8, BA,   851
  87. 960 DATA 83,  3, 3D, 3F,  0, 7F,  F, 3D, C1, FF, 7C,  A, 8E,  6,  0,  3,   4AA
  88. 970 DATA 26, A2, 5C,  1, F8, C3, F9, EB, FC, AC, 3C, 20, 74, FB, BA, 2D,   91E
  89. 980 DATA  3, 3C,  D, 74, 63, 4E, E8, C6,  0, BA, AF,  3, 72, 5A, BB, FF,   711
  90. 990 DATA FF,  B, C0, 74, 38, 8B, D8, AC, 3C, 20, 74, FB, BA, 2D,  3, 3C,   776
  91. 1000 DATA  D, 74, 45, 8B, FE, 3C, 2D, 74,  5, 3C, 2B, 74,  1, 4E, 53, E8,   596
  92. 1010 DATA 9D,  0, 5B, BA, DD,  3, 72, 30, 80, 7D, FF, 2D, 75,  2, F7, D8,   7A3
  93. 1020 DATA BA, 83,  3, 3D, 3F,  0, 7F, 20, 3D, C1, FF, 7C, 1B, 8E,  6,  0,   583
  94. 1030 DATA  3, 26, A2, 5D,  1, 26, 89, 1E, 5E,  1, 26, 89, 1E, 60,  1, 26,   3A9
  95. 1040 DATA C7,  6, 62,  1, 44,  4, F8, C3, F9, EB, FC, 80, 3E, FF,  2,  0,   7D2
  96. 1050 DATA 74, 58, B8,  8, 35, CD, 21, 8C, C0, 3B,  6,  0,  3, 75, 4B, B8,   5B7
  97. 1060 DATA  9, 35, CD, 21, 8C, C0, 3B,  6,  0,  3, 75, 3E, B8, 10, 35, CD,   539
  98. 1070 DATA 21, 8C, C0, 3B,  6,  0,  3, 75, 31, 1E, 26, C5, 16, 67,  1, B8,   496
  99. 1080 DATA  8, 25, CD, 21, 26, C5, 16, 6B,  1, B8,  9, 25, CD, 21, 26, C5,   547
  100. 1090 DATA 16, 6F,  1, B8, 10, 25, CD, 21, 1F, 26, 8B,  E, 2C,  0, B4, 49,   468
  101. 1100 DATA CD, 21, 8E, C1, B4, 49, CD, 21, F8, C3, F9, EB, FC,  A,  0, 33,   900
  102. 1110 DATA C0, 33, DB, 8A, 1C, 80, FB,  D, 74, 18, 80, FB, 20, 74, 13, 46,   6F0
  103. 1120 DATA 80, EB, 30, 72,  F, 80, FB,  9, 77,  A, F7, 26, 3D,  6,  3, C3,   647
  104. 1130 DATA EB, E1, F8, C3, F9, EB, FC,  0,  0,  0,  0,  0,  0,  0,  0,  0,   667
  105. 1140 DATA 131667
  106.