home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1985 / 04 / red.bas < prev    next >
BASIC Source File  |  1986-02-14  |  10KB  |  154 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE red.COM
  2. 110 OPEN "red.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  134 
  6. 150    LINESUM% = 0
  7. 160    FOR J% = 1 TO 8
  8. 170       READ BYTE%
  9. 180       CHECKSUM = CHECKSUM + BYTE%
  10. 190       LINESUM% = LINESUM% + BYTE%
  11. 200       IF (BYTE% < 256) THEN LSET A$ = CHR$(BYTE%)
  12. 210       PUT #1
  13. 220    NEXT J%
  14. 230    READ LINECHECK%
  15. 240    IF LINECHECK% <> LINESUM% THEN PRINT "Error in Line";280 + 10 * I%
  16. 250 NEXT I%
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 86086 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,    95,     2,    82,    69,    68,   105,   114,   768
  21. 300 DATA    101,    99,   116,    32,    40,    67,    41,    32,   528
  22. 310 DATA     49,    57,    56,    53,    44,    32,    68,   105,   464
  23. 320 DATA     99,   107,   105,   110,   115,   111,   110,    32,   789
  24. 330 DATA     65,   115,   115,   111,    99,   105,    97,   116,   823
  25. 340 DATA    101,   115,    32,    73,   110,    99,    46,    13,   589
  26. 350 DATA     10,    36,     0,     0,     0,     0,     0,     0,    46
  27. 360 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  28. 370 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  29. 380 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  30. 390 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  31. 400 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  32. 410 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  33. 420 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  34. 430 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  35. 440 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  36. 450 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  37. 460 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  38. 470 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  39. 480 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  40. 490 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  41. 500 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  42. 510 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  43. 520 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  44. 530 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  45. 540 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  46. 550 DATA      0,    97,    98,    99,   100,   101,   102,   103,   700
  47. 560 DATA    104,   105,   106,   107,   108,   109,   110,   111,   860
  48. 570 DATA    112,   113,   114,   115,   116,   117,   118,   119,   924
  49. 580 DATA    120,   121,   122,    44,    59,    61,     9,    65,   601
  50. 590 DATA     66,    67,    68,    69,    70,    71,    72,    73,   556
  51. 600 DATA     74,    75,    76,    77,    78,    79,    80,    81,   620
  52. 610 DATA     82,    83,    84,    85,    86,    87,    88,    89,   684
  53. 620 DATA     90,    32,    32,    32,    32,     0,    10,    13,   241
  54. 630 DATA     82,    69,    68,   105,   114,   101,    99,   116,   754
  55. 640 DATA     32,    69,   114,   114,   111,   114,    32,    45,   631
  56. 650 DATA     32,    36,    73,   110,    99,   111,   114,   114,   689
  57. 660 DATA    101,    99,   116,    32,    80,    67,    45,    68,   608
  58. 670 DATA     79,    83,    32,    86,   101,   114,   115,   105,   715
  59. 680 DATA    111,   110,    36,    67,   111,   114,   114,   101,   764
  60. 690 DATA     99,   116,    32,    83,   121,   110,   116,    97,   774
  61. 700 DATA    120,    32,   105,   115,    58,    13,    10,    10,   463
  62. 710 DATA     82,    69,    68,    32,    91,   100,    58,    93,   593
  63. 720 DATA     91,   115,   111,   117,   114,    99,   101,    95,   843
  64. 730 DATA    112,    97,   116,   104,    93,   115,   111,   117,   865
  65. 740 DATA    114,    99,   101,    95,   102,   105,   108,   101,   825
  66. 750 DATA    110,    97,   109,   101,    91,    46,   101,   120,   775
  67. 760 DATA    116,    93,    32,    91,   100,    58,    93,    91,   674
  68. 770 DATA    116,    97,   114,   103,   101,   116,    95,   112,   854
  69. 780 DATA     97,   116,   104,    93,    36,    70,   105,   108,   729
  70. 790 DATA    101,    32,    78,   111,   116,    32,    70,   111,   651
  71. 800 DATA    117,   110,   100,    36,    84,    97,   114,   103,   761
  72. 810 DATA    101,   116,    32,    80,    97,   116,   104,    32,   678
  73. 820 DATA     78,   111,   116,    32,    70,   111,   117,   110,   745
  74. 830 DATA    100,    36,    13,    10,   111,   114,    32,    36,   452
  75. 840 DATA     83,   111,   117,   114,    99,   101,    32,    97,   754
  76. 850 DATA    110,   100,    32,    84,    97,   114,   103,   101,   741
  77. 860 DATA    116,    32,    68,   105,   115,   107,    32,    68,   643
  78. 870 DATA    114,   105,   118,   101,   115,    32,    67,   111,   763
  79. 880 DATA    110,   102,   108,   105,    99,   116,    36,    85,   761
  80. 890 DATA    110,   100,   101,   102,   105,   110,   101,   100,   829
  81. 900 DATA     32,    69,   114,   114,   111,   114,    58,    32,   644
  82. 910 DATA     80,    67,    45,    68,    79,    83,    32,    70,   524
  83. 920 DATA    117,   110,    99,   116,   105,   111,   110,    32,   800
  84. 930 DATA     53,    54,    72,    36,    10,    10,    13,    32,   280
  85. 940 DATA     46,    32,    46,    32,    46,    32,    65,    98,   397
  86. 950 DATA    111,   114,   116,   105,   110,   103,    10,    13,   682
  87. 960 DATA     13,    36,    32,    46,    32,    46,    32,    82,   319
  88. 970 DATA     69,    68,   105,   114,   101,    99,   116,   101,   773
  89. 980 DATA    100,    32,   116,   111,    32,    46,    32,    46,   515
  90. 990 DATA     32,    36,    32,    46,    32,    46,    32,    78,   334
  91. 1000 DATA    79,    84,    32,    82,    69,    68,   105,   114,   633
  92. 1010 DATA   101,    99,   116,   101,   100,    32,    46,    32,   627
  93. 1020 DATA    46,    32,    36,    32,    46,    32,    46,    32,   302
  94. 1030 DATA    97,   108,   114,   101,    97,   100,   121,    32,   770
  95. 1040 DATA   101,   120,   105,   115,   116,   115,    36,    10,   718
  96. 1050 DATA    13,    36,   186,     3,     1,   180,     9,   205,   633
  97. 1060 DATA    33,   180,    48,   205,    33,   162,   208,     1,   870
  98. 1070 DATA   190,   128,     0,   138,    12,    50,   237,   227,   982
  99. 1080 DATA    95,   139,   209,    70,   139,   254,   252,   172,  1330
  100. 1090 DATA    87,   191,   209,     1,    81,   185,    31,     0,   785
  101. 1100 DATA   242,   174,   227,     9,   187,    31,     0,    43,   913
  102. 1110 DATA   217,   138,   135,   238,     1,    89,    95,   170,  1083
  103. 1120 DATA   226,   229,   139,   202,   186,     2,     0,   187,  1171
  104. 1130 DATA    50,     1,   176,    32,   191,   129,     0,   243,   822
  105. 1140 DATA   174,   139,   247,    78,    65,   227,    34,   139,  1103
  106. 1150 DATA   251,   139,   193,   170,   172,    60,    32,   116,  1133
  107. 1160 DATA     1,   170,   224,   248,    41,    15,   227,    17,   943
  108. 1170 DATA   254,    15,   139,   254,    79,    65,    74,   131,  1011
  109. 1180 DATA   250,     0,   116,     5,   131,   195,    77,   235,  1009
  110. 1190 DATA   214,   128,    62,    50,     1,     0,   119,     6,   580
  111. 1200 DATA   186,    59,     2,   233,   216,     0,   190,    50,   936
  112. 1210 DATA     1,   172,    50,   228,   139,   254,     3,   248,  1095
  113. 1220 DATA    79,   139,   200,   176,    92,   253,   242,   174,  1355
  114. 1230 DATA   117,     6,   131,   199,     2,   235,    14,   144,   848
  115. 1240 DATA   131,   199,     1,   128,    62,    52,     1,    58,   632
  116. 1250 DATA   117,     3,   191,    53,     1,   137,    62,   204,   768
  117. 1260 DATA     1,   252,   190,   127,     1,   172,    60,     0,   803
  118. 1270 DATA   116,    36,    50,   228,     3,   240,    78,   172,   923
  119. 1280 DATA   139,   254,    60,    92,   116,    17,   128,    62,   868
  120. 1290 DATA   127,     1,     2,   117,     7,   128,    62,   129,   573
  121. 1300 DATA     1,    58,   116,     3,   176,    92,   170,   137,   753
  122. 1310 DATA    62,   206,     1,   235,     7,   144,   199,     6,   860
  123. 1320 DATA   206,     1,   128,     1,   186,    51,     1,   180,   754
  124. 1330 DATA    78,   185,     0,     0,   205,    33,   115,     6,   622
  125. 1340 DATA   186,   141,     2,   235,   105,   144,   139,    62,  1014
  126. 1350 DATA   204,     1,   190,   158,     0,   185,    13,     0,   751
  127. 1360 DATA   243,   164,   139,    62,   206,     1,   190,   158,  1163
  128. 1370 DATA     0,   185,    13,     0,   243,   164,   186,    51,   842
  129. 1380 DATA     1,   191,   128,     1,   180,    86,   205,    33,   825
  130. 1390 DATA   115,    44,    61,     3,     0,   117,     6,   186,   532
  131. 1400 DATA   156,     2,   235,    58,   144,    61,     5,     0,   661
  132. 1410 DATA   117,    11,   198,     6,    13,     2,     1,   232,   580
  133. 1420 DATA    66,     0,   235,    26,   144,    61,    17,     0,   549
  134. 1430 DATA   117,     6,   186,   184,     2,   235,    31,   144,   905
  135. 1440 DATA   186,   223,     2,   235,    25,   144,   198,     6,  1019
  136. 1450 DATA    13,     2,     0,   232,    38,     0,   180,    79,   544
  137. 1460 DATA   185,     0,     0,   205,    33,   115,     3,   235,   776
  138. 1470 DATA     3,   144,   235,   154,   205,    32,    82,   180,  1035
  139. 1480 DATA     9,   186,    14,     2,   205,    33,   180,     9,   638
  140. 1490 DATA    90,   205,    33,   180,     9,   186,     4,     3,   710
  141. 1500 DATA   205,    33,   205,    32,   185,     2,     0,   187,   849
  142. 1510 DATA    51,     1,   139,   243,   172,    60,     0,   116,   782
  143. 1520 DATA     8,   138,   208,   180,     2,   205,    33,   235,  1009
  144. 1530 DATA   243,   131,   249,     2,   117,    27,   128,    62,   959
  145. 1540 DATA    13,     2,     0,   116,    10,   186,    50,     3,   380
  146. 1550 DATA   180,     9,   205,    33,   235,    51,   144,   186,  1043
  147. 1560 DATA    26,     3,   180,     9,   205,    33,   235,    41,   732
  148. 1570 DATA   144,   128,    62,    13,     2,     0,   116,    26,   491
  149. 1580 DATA   186,    75,     3,   180,     9,   205,    33,   128,   819
  150. 1590 DATA    62,   208,     1,     3,   115,    12,   186,   178,   765
  151. 1600 DATA     2,   180,     9,   205,    33,   186,   156,     2,   773
  152. 1610 DATA   205,    33,   186,    95,     3,   180,     9,   205,   916
  153. 1620 DATA    33,   131,   195,    77,   226,   164,   195,     0,  1021
  154.