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