home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1986 / 11 / attr.bas < prev    next >
BASIC Source File  |  1986-03-17  |  6KB  |  99 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE attr.COM
  2. 110 OPEN "attr.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  79 
  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 = 55843 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,    57,     1,    65,    84,    84,    82,    32,   638
  21. 300 DATA     40,    67,    41,    32,    49,    57,    56,    54,   396
  22. 310 DATA     44,    32,    90,   105,   102,   102,    45,    68,   588
  23. 320 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  24. 330 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  25. 340 DATA     67,   111,    46,    26,    32,    80,   114,   111,   587
  26. 350 DATA    103,   114,    97,   109,   109,   101,   100,    32,   765
  27. 360 DATA     98,   121,    32,    67,   104,    97,   114,   108,   741
  28. 370 DATA    101,   115,    32,    80,   101,   116,   122,   111,   778
  29. 380 DATA    108,   100,    32,    26,    83,   121,   110,   116,   696
  30. 390 DATA     97,   120,    58,    32,    65,    84,    84,    82,   622
  31. 400 DATA     32,    91,    43,    65,   124,    45,    65,    93,   558
  32. 410 DATA     32,    91,    43,    83,   124,    45,    83,    93,   594
  33. 420 DATA     32,    91,    43,    72,   124,    45,    72,    93,   572
  34. 430 DATA     32,    91,    43,    82,   124,    45,    82,    93,   592
  35. 440 DATA     32,    91,   100,   114,   105,   118,   101,    58,   719
  36. 450 DATA     93,    91,   112,    97,   116,   104,    93,   102,   808
  37. 460 DATA    105,   108,   101,   110,    97,   109,   101,    13,   744
  38. 470 DATA     10,    32,    32,    32,    32,    32,    32,    32,   234
  39. 480 DATA     32,    32,    32,    32,    32,    32,    65,   114,   371
  40. 490 DATA     99,   104,   105,   118,   101,    32,    83,   121,   763
  41. 500 DATA    115,   116,   101,   109,    32,    32,    72,   105,   682
  42. 510 DATA    100,   100,   101,   110,    32,    32,    82,   101,   658
  43. 520 DATA     97,   100,    45,    79,   110,   108,   121,    36,   696
  44. 530 DATA     65,    84,    84,    82,    58,    32,    78,   101,   584
  45. 540 DATA    101,   100,   115,    32,    68,    79,    83,    32,   610
  46. 550 DATA     50,    46,    48,    32,    43,    36,    65,    84,   404
  47. 560 DATA     84,    82,    58,    32,    73,   110,    99,   111,   649
  48. 570 DATA    114,   114,   101,    99,   116,    32,   102,   108,   786
  49. 580 DATA     97,   103,    36,    65,    84,    84,    82,    58,   609
  50. 590 DATA     32,    73,   110,    99,   111,   114,   114,   101,   754
  51. 600 DATA     99,   116,    32,    70,   105,   108,   101,    32,   663
  52. 610 DATA     83,   112,   101,    99,    36,     9,    32,    44,   516
  53. 620 DATA     59,    61,    13,    65,    83,    72,    82,    32,   467
  54. 630 DATA      4,     2,     1,    32,    32,    32,    32,    36,   171
  55. 640 DATA     65,   114,    99,    32,    36,    68,   105,   114,   633
  56. 650 DATA     32,    36,    36,    36,    36,    36,    36,    83,   331
  57. 660 DATA    121,   115,    32,    36,    72,   105,   100,    32,   613
  58. 670 DATA     36,    82,    45,    79,    36,     0,     0,     0,   278
  59. 680 DATA      0,     0,     0,     0,   180,    48,   205,    33,   466
  60. 690 DATA     60,     2,   115,     9,   186,   192,     1,   180,   745
  61. 700 DATA      9,   205,    33,   205,    32,   190,   129,     0,   803
  62. 710 DATA    252,   172,   191,     5,     2,   185,     5,     0,   812
  63. 720 DATA    242,   174,   116,   245,   186,    76,     1,    60,  1100
  64. 730 DATA     13,   116,   228,   191,    55,     2,    60,    43,   708
  65. 740 DATA    116,     7,   191,    54,     2,    60,    45,   117,   592
  66. 750 DATA     33,   198,     6,    53,     2,   255,   172,    36,   755
  67. 760 DATA    223,   187,    11,     2,   185,     4,     0,    58,   670
  68. 770 DATA      7,   116,     8,    67,   226,   249,   186,   214,  1073
  69. 780 DATA      1,   235,   188,   138,    71,     4,     8,     5,   650
  70. 790 DATA    235,   191,   246,    22,    54,     2,   137,    54,   941
  71. 800 DATA     56,     2,   255,    14,    56,     2,   172,   191,   748
  72. 810 DATA      5,     2,   185,     6,     0,   242,   174,   117,   731
  73. 820 DATA    245,    78,   198,     4,     0,   139,   206,   139,  1009
  74. 830 DATA     54,    56,     2,    43,   206,   191,   158,     3,   713
  75. 840 DATA    137,    62,    58,     2,   172,   170,    60,    58,   719
  76. 850 DATA    116,     4,    60,    92,   117,     4,   137,    62,   592
  77. 860 DATA     58,     2,   226,   240,   186,   115,     3,   180,  1010
  78. 870 DATA     26,   205,    33,   139,    22,    56,     2,   185,   668
  79. 880 DATA     22,     0,   180,    78,   205,    33,   115,    14,   647
  80. 890 DATA     61,    18,     0,   117,     3,   235,   127,   144,   705
  81. 900 DATA    186,   235,     1,   233,    89,   255,   190,   145,  1334
  82. 910 DATA      3,   128,    60,    46,   117,     3,   235,   105,   697
  83. 920 DATA    144,   139,    62,    58,     2,   185,    14,     0,   604
  84. 930 DATA    172,   170,    10,   192,   116,     5,   232,    95,   992
  85. 940 DATA      0,   226,   245,   176,    32,   232,    88,     0,   999
  86. 950 DATA    226,   249,   186,   158,     3,   246,     6,    53,  1127
  87. 960 DATA      2,   255,   116,    21,   184,     0,    67,   205,   850
  88. 970 DATA     33,   128,   225,    39,    34,    14,    54,     2,   529
  89. 980 DATA     10,    14,    55,     2,   184,     1,    67,   205,   538
  90. 990 DATA     33,   184,     0,    67,   205,    33,   138,   217,   877
  91. 1000 DATA   128,   203,     8,   208,   227,   208,   227,   185,  1394
  92. 1010 DATA     6,     0,   186,    24,     2,    82,   208,   227,   735
  93. 1020 DATA   114,     3,   186,    19,     2,   180,     9,   205,   718
  94. 1030 DATA    33,    90,   131,   194,     5,   226,   238,   176,  1093
  95. 1040 DATA    13,   232,    12,     0,   176,    10,   232,     7,   682
  96. 1050 DATA     0,   180,    79,   233,   118,   255,   205,    32,  1102
  97. 1060 DATA    80,    82,   138,   208,   180,     2,   205,    33,   928
  98. 1070 DATA    90,    88,   195,     0,     0,     0,     0,     0,   373
  99.