home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1987 / 04 / search.bas < prev    next >
BASIC Source File  |  1987-12-12  |  13KB  |  181 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE SEARCH.COM
  2. 110 OPEN "SEARCH.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  161 
  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 = 121600 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   167,     0,    67,   111,   112,   121,   114,   925
  21. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  22. 310 DATA     54,    32,    90,   105,   102,   102,    32,    68,   585
  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,    77,   105,    99,   104,   635
  26. 350 DATA     97,   101,   108,    32,    74,    46,    32,    77,   567
  27. 360 DATA    101,   102,   102,   111,   114,   100,    64,     1,   695
  28. 370 DATA     42,    46,    42,     0,    92,     0,    46,    46,   314
  29. 380 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  30. 390 DATA      0,     0,     0,     1,     0,     0,     0,     0,     1
  31. 400 DATA      0,     0,     0,     0,     0,    69,    88,    69,   226
  32. 410 DATA     67,    79,    77,    73,   110,   118,    97,   108,   729
  33. 420 DATA    105,   100,    32,   112,    97,   114,    97,   109,   766
  34. 430 DATA    101,   116,   101,   114,   115,     7,    36,    13,   603
  35. 440 DATA     10,    83,   101,    97,   114,    99,   104,   105,   713
  36. 450 DATA    110,   103,    32,   102,   111,   114,    32,     0,   604
  37. 460 DATA     13,    10,    13,    10,    68,   105,   114,   101,   434
  38. 470 DATA     99,   116,   111,   114,   121,    32,     0,     9,   602
  39. 480 DATA     76,   105,   110,   101,    32,   110,   117,   109,   760
  40. 490 DATA     98,   101,   114,    32,     0,    13,    10,    32,   400
  41. 500 DATA     32,     0,   252,   176,     1,   185,   100,     0,   746
  42. 510 DATA    191,     7,     6,   243,   170,   180,    25,   205,  1027
  43. 520 DATA     33,   162,    73,     1,   190,   108,     6,   178,   751
  44. 530 DATA      0,   180,    71,   205,    33,   186,   235,     6,   916
  45. 540 DATA    232,    43,     2,   128,    62,   128,     0,     0,   595
  46. 550 DATA    119,     3,   233,   119,     1,   190,   130,     0,   795
  47. 560 DATA    172,    60,    32,   116,   251,    60,    34,   117,   842
  48. 570 DATA      3,   233,   214,     0,    60,    13,   117,     3,   643
  49. 580 DATA    233,    97,     1,   128,    60,    58,   117,    24,   718
  50. 590 DATA     36,    95,    44,    65,   138,   208,   180,    14,   780
  51. 600 DATA    205,    33,    70,   232,     7,     2,   114,    50,   713
  52. 610 DATA    172,    60,    34,   117,     3,   233,    68,     1,   688
  53. 620 DATA    137,    54,    76,     1,   255,    14,    76,     1,   614
  54. 630 DATA    137,    54,    74,     1,   255,    14,    74,     1,   610
  55. 640 DATA    255,    14,    74,     1,    60,    92,   117,    20,   633
  56. 650 DATA    186,    68,     1,   232,   203,     1,   198,     6,   895
  57. 660 DATA     86,     1,     1,   255,     6,    76,     1,   232,   658
  58. 670 DATA    211,     1,   114,   112,    60,    42,   117,    13,   670
  59. 680 DATA    172,    60,    46,   116,     3,   233,    12,     1,   643
  60. 690 DATA    172,    60,    42,   116,    95,    60,    47,   117,   709
  61. 700 DATA     10,   232,   199,     1,    60,    34,   117,     3,   656
  62. 710 DATA    233,   249,     0,   172,    60,    32,   118,    19,   883
  63. 720 DATA     60,    92,   117,   233,   198,     6,    86,     1,   793
  64. 730 DATA      1,   137,    54,    74,     1,   255,    14,    74,   610
  65. 740 DATA      1,   235,   218,   138,   216,   198,    68,   255,  1329
  66. 750 DATA      0,   198,     6,     0,     7,     0,   139,    22,   372
  67. 760 DATA     76,     1,   185,    16,     0,   232,   123,     1,   634
  68. 770 DATA    128,    62,     0,     7,    16,   117,    15,   198,   543
  69. 780 DATA      6,    86,     1,     1,   137,    54,    74,     1,   360
  70. 790 DATA    255,    14,    74,     1,   235,     9,   139,    22,   749
  71. 800 DATA     74,     1,    66,   137,    22,    62,     1,   128,   491
  72. 810 DATA    251,    13,   116,    94,   172,    60,    32,   116,   854
  73. 820 DATA    251,    60,    47,   117,     5,   232,    99,     1,   812
  74. 830 DATA    235,   242,    60,    13,   116,    76,    60,    34,   836
  75. 840 DATA    117,   234,   198,     6,    85,     1,     1,   137,   779
  76. 850 DATA     54,    79,     1,    50,   255,   138,    30,   128,   735
  77. 860 DATA      0,   129,   195,   129,     0,    75,   128,    63,   719
  78. 870 DATA     34,   116,     6,    59,   222,   116,   117,   235,   905
  79. 880 DATA    244,   198,     7,     0,    83,    43,   222,   137,   934
  80. 890 DATA     30,    81,     1,    94,   172,    60,    47,   117,   602
  81. 900 DATA      3,   232,    39,     1,    60,    13,   117,   244,   709
  82. 910 DATA    128,    62,    88,     1,     1,   116,    11,   139,   546
  83. 920 DATA     14,    81,     1,   139,    30,    79,     1,   232,   577
  84. 930 DATA     97,     2,   198,     6,    78,     1,     1,   128,   511
  85. 940 DATA     62,    85,     1,     1,   117,    13,   190,   119,   588
  86. 950 DATA      1,   232,    73,     2,   139,    54,    79,     1,   581
  87. 960 DATA    232,    66,     2,   128,    62,    86,     1,     1,   578
  88. 970 DATA    117,    97,   139,    30,    74,     1,   198,     7,   663
  89. 980 DATA      0,   139,    22,    76,     1,   232,   193,     0,   663
  90. 990 DATA    232,     8,     1,   139,    22,    62,     1,   185,   650
  91. 1000 DATA     6,     0,   232,   190,     0,   114,    13,   232,   787
  92. 1010 DATA    40,     1,   232,   187,     0,   114,     5,   232,   811
  93. 1020 DATA    32,     1,   235,   246,   138,    22,    73,     1,   748
  94. 1030 DATA   180,    14,   205,    33,   186,    68,     1,   128,   815
  95. 1040 DATA    62,   107,     6,     0,   116,     8,   198,     6,   503
  96. 1050 DATA   107,     6,    92,   186,   107,     6,   232,   136,   872
  97. 1060 DATA     0,   178,    13,   232,   218,     1,   178,    10,   830
  98. 1070 DATA   232,   213,     1,   128,    62,    78,     1,     1,   716
  99. 1080 DATA   116,     7,   186,    99,     1,   180,     9,   205,   803
  100. 1090 DATA    33,   205,    32,   186,    68,     1,   232,   104,   861
  101. 1100 DATA     0,   189,     7,     6,   232,   172,     0,   139,   745
  102. 1110 DATA    22,    62,     1,   185,     6,     0,   232,    98,   606
  103. 1120 DATA     0,   114,    31,   232,   204,     0,   232,    95,   908
  104. 1130 DATA     0,   114,    23,   232,   196,     0,   235,   246,  1046
  105. 1140 DATA   129,   253,     7,     6,   116,   158,   186,    70,   925
  106. 1150 DATA     1,   232,    61,     0,    62,   198,    70,     0,   624
  107. 1160 DATA     1,    77,    50,   219,   186,    64,     1,   185,   783
  108. 1170 DATA    16,     0,   232,    54,     0,   114,   225,   128,   769
  109. 1180 DATA    62,     0,     7,    16,   117,    28,   128,    62,   420
  110. 1190 DATA     9,     7,    46,   116,    21,   254,   195,    62,   710
  111. 1200 DATA    58,    94,     0,   117,    13,    62,   254,    70,   668
  112. 1210 DATA     0,   186,     9,     7,   232,    10,     0,    69,   513
  113. 1220 DATA   235,   162,   232,    19,     0,   114,   185,   235,  1182
  114. 1230 DATA   214,   180,    59,   205,    33,   195,   180,    26,  1092
  115. 1240 DATA   205,    33,   195,   180,    78,   205,    33,   195,  1124
  116. 1250 DATA   180,    79,   205,    33,   195,   128,    60,    32,   912
  117. 1260 DATA   118,     7,   128,    60,    47,   116,     2,   248,   726
  118. 1270 DATA   195,   249,   195,   198,    68,   255,     0,   138,  1298
  119. 1280 DATA    28,   128,   227,    95,   128,   251,    80,   117,  1054
  120. 1290 DATA     5,   198,     6,    87,     1,     1,   128,   251,   677
  121. 1300 DATA    67,   117,     5,   198,     6,    88,     1,     1,   483
  122. 1310 DATA   128,   251,    66,   117,     5,   198,     6,    89,   860
  123. 1320 DATA     1,     1,   195,   190,   136,     1,   232,    28,   784
  124. 1330 DATA     1,   180,    25,   205,    33,     4,    65,   138,   651
  125. 1340 DATA   208,   232,   252,     0,   178,    58,   232,   247,  1407
  126. 1350 DATA     0,   178,    92,   232,   242,     0,   190,   171,  1105
  127. 1360 DATA     6,   178,     0,   180,    71,   205,    33,   128,   801
  128. 1370 DATA    62,   171,     6,     0,   116,     3,   232,   244,   834
  129. 1380 DATA     0,   195,    85,   128,    62,    85,     1,     1,   557
  130. 1390 DATA   116,     3,   233,   187,     0,   128,    62,    89,   818
  131. 1400 DATA     1,     1,   116,     8,   232,   240,     0,   115,   713
  132. 1410 DATA     3,   233,   194,     0,   198,     6,    90,     1,   725
  133. 1420 DATA     0,   198,     6,    91,     1,     0,   186,     9,   491
  134. 1430 DATA     7,   184,     0,    61,   205,    33,   139,   216,   845
  135. 1440 DATA    83,   186,    44,     7,   185,     0,   248,   180,   933
  136. 1450 DATA    63,   205,    33,    61,     0,   248,   116,     5,   731
  137. 1460 DATA   198,     6,    90,     1,     1,    61,     0,     0,   357
  138. 1470 DATA   116,   114,   139,   200,   187,    44,     7,   128,   935
  139. 1480 DATA    39,   127,    67,   226,   250,   128,    62,    88,   987
  140. 1490 DATA     1,     1,   116,     8,   139,   200,   187,    44,   696
  141. 1500 DATA     7,   232,   151,     0,    59,     6,    81,     1,   537
  142. 1510 DATA   114,    82,   139,   232,   187,    44,     7,   139,   944
  143. 1520 DATA    22,    79,     1,    43,    46,    81,     1,    69,   342
  144. 1530 DATA   139,   243,   139,   250,   139,    14,    81,     1,  1006
  145. 1540 DATA   138,   225,   172,    60,    32,   115,     6,   254,  1002
  146. 1550 DATA   204,   117,   247,   235,    18,   254,   204,   174,  1453
  147. 1560 DATA   117,    13,   226,   238,   198,     6,    91,     1,   890
  148. 1570 DATA     1,   137,    54,    83,     1,   235,    29,    67,   607
  149. 1580 DATA    77,   117,   213,   128,    62,    90,     1,     1,   689
  150. 1590 DATA   116,    18,   185,   255,   255,   139,    22,    81,  1071
  151. 1600 DATA     1,   247,   218,    91,   184,     1,    66,   205,  1013
  152. 1610 DATA    33,   233,   116,   255,    91,   180,    62,   205,  1175
  153. 1620 DATA    33,   128,    62,    91,     1,     1,   117,    22,   455
  154. 1630 DATA   190,   165,     1,   232,    39,     0,   190,     9,   826
  155. 1640 DATA     7,   232,    33,     0,   128,    62,    85,     1,   548
  156. 1650 DATA     1,   117,     3,   232,    81,     0,    93,   195,   722
  157. 1660 DATA   128,    62,    87,     1,     1,   117,     4,   180,   580
  158. 1670 DATA     5,   205,    33,   180,     2,   205,    33,   195,   858
  159. 1680 DATA   138,   208,   232,   235,   255,   172,    60,     0,  1300
  160. 1690 DATA   117,   246,   195,   128,    63,    97,   114,     3,   963
  161. 1700 DATA   128,    39,    95,    67,   226,   245,   195,   190,  1185
  162. 1710 DATA     9,     7,   172,    60,     0,   116,    28,    60,   452
  163. 1720 DATA    46,   117,   247,   139,   198,   191,    93,     1,  1032
  164. 1730 DATA   185,     3,     0,   243,   166,   116,    14,   139,   866
  165. 1740 DATA   240,   191,    96,     1,   185,     3,     0,   243,   959
  166. 1750 DATA   166,   116,     2,   248,   195,   249,   195,    50,  1221
  167. 1760 DATA   255,   180,     3,   205,    16,   128,   250,     7,  1044
  168. 1770 DATA   119,     5,   178,     9,   232,   161,   255,   190,  1149
  169. 1780 DATA   151,     1,   232,   176,   255,   139,    14,    83,  1051
  170. 1790 DATA     1,   129,   233,    44,     7,   190,    44,     7,   655
  171. 1800 DATA   187,     1,     0,   172,    60,    13,   117,     1,   551
  172. 1810 DATA    67,   226,   248,   198,     6,    92,     1,     0,   838
  173. 1820 DATA   185,    16,    39,   232,    25,     0,   185,   232,   914
  174. 1830 DATA     3,   232,    19,     0,   185,   100,     0,   232,   771
  175. 1840 DATA    13,     0,   185,    10,     0,   232,     7,     0,   447
  176. 1850 DATA   185,     1,     0,   232,     1,     0,   195,   139,   753
  177. 1860 DATA   195,    51,   210,   247,   241,   139,   218,   138,  1439
  178. 1870 DATA   208,    60,     0,   116,     4,     8,     6,    92,   494
  179. 1880 DATA     1,   128,    62,    92,     1,     0,   116,     6,   406
  180. 1890 DATA   128,   194,    48,   232,    66,   255,   195,     0,  1118
  181.