home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol8n01.zip
/
BCOPY.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-01-17
|
12KB
|
161 lines
100 REM - BASIC PROGRAM TO CREATE BCOPY.COM
110 CLS:PRINT "Creating BCOPY.COM ": OPEN "BCOPY.COM " AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 142
140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 142 - I ;
150 FOR J = 1 TO 16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
160 CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
170 IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
180 NEXT J
190 READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
200 IF LINECHECK# = LINESUM# THEN GOTO 220
210 LOCATE 4,2: PRINT "Error in line #" ; 260 + 10 * I: GOTO 260
220 NEXT I
230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
250 PRINT: PRINT "BCOPY.COM created successfully": SYSTEM
260 PRINT: PRINT "BCOPY.COM is not valid!": END
270 DATA E9, AA, 5, 42, 43, 4F, 50, 59, 20, 31, 2E, 30, 20, 28, 63, 29, 498
280 DATA 20, 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 6D, 75, 4CB
290 DATA 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E, D, A, 50, 52F
300 DATA 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 44, 6F, 75, 5F5
310 DATA 67, 6C, 61, 73, 20, 42, 6F, 6C, 69, 6E, 67, D, A, 55, 73, 61, 562
320 DATA 67, 65, 3A, 20, 42, 43, 4F, 50, 59, 20, 5B, 73, 6F, 75, 72, 63, 54A
330 DATA 65, 20, 5B, 74, 61, 72, 67, 65, 74, 5D, 5D, 5B, 2F, 58, 5D, 5B, 5BB
340 DATA 2F, 55, 5D, 24, 1A, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 12F
350 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
360 DATA 0, 1C, 7, 1C, 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56
370 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
380 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
390 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9C, 2E, FF, 1C9
400 DATA 1E, 95, 1, FA, 2E, 80, 3E, 7F, 1, 0, 7F, 3F, 2E, 80, 3E, 81, 545
410 DATA 1, 0, 75, 3C, 2E, 80, 3E, 80, 1, 0, 75, 34, 6, 57, 2E, C4, 417
420 DATA 3E, 75, 1, 26, 80, 3D, 0, 5F, 7, 75, 25, 2E, 80, 3E, 90, 1, 414
430 DATA 0, 75, F, 2E, 80, 3E, 82, 1, 0, 74, 15, E8, 4F, 3, 73, 10, 439
440 DATA EB, 3, E8, 71, 0, 2E, C6, 6, 7F, 1, 11, 2E, FE, E, 7F, 1, 58C
450 DATA CF, 9C, 2E, FF, 1E, 9D, 1, FA, 2E, 80, 3E, 90, 1, 0, 74, 30, 66F
460 DATA 2E, 80, 3E, 7F, 1, 8, 77, 28, 2E, 80, 3E, 81, 1, 0, 75, 20, 416
470 DATA 2E, 80, 3E, 80, 1, 0, 75, 18, 6, 57, 2E, C4, 3E, 79, 1, 26, 427
480 DATA 80, 3D, 0, 5F, 7, 75, 9, E8, 2C, 0, 2E, C6, 6, 7F, 1, 10, 43F
490 DATA CF, 9C, 2E, FE, 6, 80, 1, 9D, 9C, 2E, FF, 1E, 99, 1, 9C, 2E, 706
500 DATA FE, E, 80, 1, 9D, CA, 2, 0, 32, C0, 2E, 81, 3E, 7D, 1, A, 55D
510 DATA 3, 7C, 2, 4, 3, CF, 2E, FE, 6, 81, 1, FA, 2E, 8C, 16, A7, 57C
520 DATA 1, 2E, 89, 26, A9, 1, E, 17, BC, 1C, 7, FB, E8, 98, 2, B8, 5C1
530 DATA 1B, 35, CD, 21, 89, 1E, C1, 1, 8C, 6, C3, 1, B8, 1B, 25, BA, 5AF
540 DATA 60, 2, CD, 21, B8, 23, 35, CD, 21, 89, 1E, C5, 1, 8C, 6, C7, 614
550 DATA 1, B8, 23, 25, BA, 60, 2, CD, 21, B8, 24, 35, CD, 21, 89, 1E, 5B1
560 DATA C9, 1, 8C, 6, CB, 1, B8, 24, 25, E, 1F, BA, 78, 2, CD, 21, 578
570 DATA B4, 51, E8, 2D, 2, 89, 1E, A5, 1, E, 5B, B4, 50, E8, 22, 2, 5E2
580 DATA B4, 2F, CD, 21, 89, 1E, A1, 1, 8C, 6, A3, 1, BA, 80, 0, B4, 63E
590 DATA 1A, CD, 21, 81, 3E, 7D, 1, A, 3, 72, 25, 1E, 33, DB, B4, 59, 522
600 DATA CD, 21, 2E, 8C, 1E, B7, 1, 1F, 53, BB, AB, 1, 89, 7, 8F, 47, 5BD
610 DATA 2, 89, 4F, 4, 89, 57, 6, 89, 77, 8, 89, 7F, A, 8C, 47, E, 4BF
620 DATA 80, 3E, 89, 1, 0, 74, 1B, B4, 47, 8B, 16, 8A, 1, CD, 67, A, 53C
630 DATA E4, 75, 4F, B8, 0, 44, 33, DB, 8B, 16, 8A, 1, CD, 67, A, E4, 700
640 DATA 75, 40, 8E, 6, 8C, 1, 8E, 1E, 8C, 1, 2E, 8B, 36, 8E, 1, 8B, 518
650 DATA 44, 2, A, E4, 75, 40, 83, C6, 6, 8B, D6, 33, C9, B4, 4E, A, 6A1
660 DATA C0, 74, 2, FE, C4, CD, 21, 73, 3, E9, B5, 0, 32, D2, E8, 41, 827
670 DATA 1, 2E, 8B, 16, 91, 1, B8, 0, 3D, CD, 21, 73, B, 3D, 4, 0, 404
680 DATA 75, 3, E9, C4, 0, E9, 99, 0, 2E, A3, 85, 1, 2E, 8B, 36, 8E, 67B
690 DATA 1, C7, 44, 2, 1, 1, 8B, 44, 4, A, C0, 75, 1F, E8, 46, 1, 470
700 DATA B4, 3C, 33, C9, CD, 21, 73, 7, 3D, 4, 0, 74, D5, EB, 72, 2E, 669
710 DATA A3, 87, 1, 2E, 8B, 36, 8E, 1, C6, 44, 4, 1, 2E, 8B, E, 93, 512
720 DATA 1, 2E, 2B, E, 91, 1, 83, E9, 4, 2E, 8B, 1E, 85, 1, 2E, 8B, 480
730 DATA 16, 91, 1, B4, 3F, CD, 21, 73, 5, BF, 1, 0, EB, 1C, 8B, F1, 644
740 DATA 8B, C8, B4, 40, 2E, 8B, 1E, 87, 1, CD, 21, 72, 6, 33, FF, 3B, 679
750 DATA C1, 74, 3, 47, EB, 4, 3B, F0, 74, 4F, 2E, 8B, 36, 8E, 1, C7, 6A1
760 DATA 44, 3, 0, 0, 2E, 8B, 1E, 85, 1, B4, 3E, CD, 21, 2E, 8B, 1E, 45B
770 DATA 87, 1, B4, 3E, CD, 21, B, FF, 74, 2F, E8, C9, 0, B4, 41, CD, 788
780 DATA 21, 2E, 8B, 3E, 8E, 1, 8B, 35, 83, 3C, FF, 74, C, 8B, C, 2B, 567
790 DATA CE, 8B, DF, F3, A4, 89, 3F, EB, EF, C7, 5, FF, FF, 47, 47, 2E, 9F7
800 DATA 89, 3E, 91, 1, 2E, FE, E, 90, 1, E, 1F, 81, 3E, 7D, 1, A, 498
810 DATA 3, 72, 8, B8, A, 5D, BA, AB, 1, CD, 21, 80, 3E, 89, 1, 0, 538
820 DATA 74, 8, B4, 48, 8B, 16, 8A, 1, CD, 67, 8B, 1E, A5, 1, B4, 50, 62B
830 DATA E8, 8F, 0, 6, C4, 16, A1, 1, B4, 1A, CD, 21, 7, 1E, B8, 24, 5B6
840 DATA 25, 2E, C5, 16, C9, 1, CD, 21, B8, 23, 25, 2E, C5, 16, C5, 1, 5B5
850 DATA CD, 21, B8, 1B, 25, 2E, C5, 16, C1, 1, CD, 21, 1F, E8, 9B, 0, 641
860 DATA FA, 2E, 8E, 16, A7, 1, 2E, 8B, 26, A9, 1, FB, 2E, FE, E, 81, 6B3
870 DATA 1, C3, 50, B9, 4B, 0, 2E, 8B, 3E, 91, 1, AC, AA, A, C0, 75, 636
880 DATA FA, A, D2, 74, 7, 26, 80, 7D, FE, 5C, 75, 18, FD, B9, F, 0, 720
890 DATA B0, 5C, 4F, F2, AE, FC, 47, 47, 1E, E, 1F, BE, 9E, 0, B9, D, 6F2
900 DATA 0, F3, A4, 1F, 58, C3, 2E, 8B, 3E, 8E, 1, 83, C7, 6, 32, C0, 699
910 DATA B9, 4B, 0, F2, AE, 8B, F7, B2, 1, E8, B6, FF, 2E, 8B, 16, 91, 8D6
920 DATA 1, C3, 2E, 81, 3E, 7D, 1, A, 3, 73, 19, 1E, 57, 2E, C5, 3E, 46E
930 DATA 79, 1, FE, 5, 5F, 1F, CD, 21, 1E, 57, 2E, C5, 3E, 79, 1, FE, 607
940 DATA D, 5F, 1F, C3, CD, 21, C3, 2E, 8F, 6, 83, 1, 50, 53, 51, 52, 58C
950 DATA 55, 56, 57, 1E, 6, E, 1F, FF, 26, 83, 1, 8F, 6, 83, 1, 7, 41C
960 DATA 1F, 5F, 5E, 5D, 5A, 59, 5B, 58, 2E, FF, 26, 83, 1, 2E, FE, 6, 5A8
970 DATA 81, 1, E8, D2, FF, B0, 8, E8, 5B, 0, 75, 56, B0, 13, E8, 54, 800
980 DATA 0, 75, 4F, B0, 28, E8, 4D, 0, 75, 48, 80, 3E, 89, 1, 0, 74, 54A
990 DATA C, B4, 45, 8B, 16, 8A, 1, CD, 67, A, E4, 75, 35, E, 7, B4, 5C6
1000 DATA 49, CD, 21, 72, 2D, 1E, B8, 8, 25, 26, C5, 16, 95, 1, CD, 21, 55E
1010 DATA B8, 13, 25, 26, C5, 16, 99, 1, CD, 21, B8, 28, 25, 26, C5, 16, 57F
1020 DATA 9D, 1, CD, 21, 1F, F7, 16, 0, 1, F8, FE, E, 81, 1, E8, 8A, 6B1
1030 DATA FF, C3, F9, EB, F5, E, 59, B4, 35, CD, 21, 8C, C0, 3B, C1, C3, 9E4
1040 DATA 8B, 3E, 8E, 1, 8E, 6, 8C, 1, BE, DB, 9, E8, 1E, 0, 89, 3E, 5E8
1050 DATA 91, 1, FE, 6, 90, 1, FE, E, 81, 1, B8, 0, 31, BA, 72, 1, 5CB
1060 DATA 80, 3E, 89, 1, 0, 74, 3, BA, 72, 0, CD, 21, 8B, DF, BA, 2, 5FF
1070 DATA 0, 3, FA, 33, C0, AB, AB, AC, AA, 3C, 0, 75, FA, FE, CA, 75, 884
1080 DATA F6, 26, 89, 3F, 26, C7, 5, FF, FF, 47, 47, C3, 53, 6F, 75, 72, 7CE
1090 DATA 63, 65, 20, 66, 69, 6C, 65, 20, 6E, 6F, 74, 20, 66, 6F, 75, 6E, 5D1
1100 DATA 64, 24, 42, 61, 64, 20, 74, 61, 72, 67, 65, 74, 20, 70, 61, 74, 59B
1110 DATA 68, 24, 43, 61, 6E, 27, 74, 20, 69, 6E, 73, 74, 61, 6C, 6C, 24, 574
1120 DATA 44, 75, 70, 2E, 20, 66, 69, 6C, 65, 20, 6E, 61, 6D, 65, 73, 24, 56F
1130 DATA 42, 61, 64, 20, 53, 77, 69, 74, 63, 68, 24, 28, 41, 6C, 72, 65, 569
1140 DATA 61, 64, 79, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 29, 24, 45, 5B0
1150 DATA 4D, 53, 20, 64, 72, 69, 76, 65, 72, 20, 65, 72, 72, 6F, 72, 24, 5BA
1160 DATA 44, 65, 69, 6E, 73, 74, 61, 6C, 6C, 20, 71, 75, 65, 75, 65, 64, 649
1170 DATA 24, 0, 0, 0, 0, 45, 4D, 4D, 58, 58, 58, 58, 30, BA, 3, 1, 351
1180 DATA E8, 7D, 2, FC, B4, 30, CD, 21, 86, C4, A3, 7D, 1, B4, 19, CD, 83A
1190 DATA 21, FE, C0, A2, A4, 6, F7, 16, 0, 1, BB, 0, 6, 8C, C8, 43, 691
1200 DATA 8E, C3, 3B, C3, 74, 16, BE, 0, 1, 8B, FE, B9, 10, 0, F3, A6, 783
1210 DATA 75, ED, FE, 6, A3, 6, BA, 6B, 6, E8, 44, 2, 26, FE, 6, 81, 713
1220 DATA 1, 8C, 6, A1, 6, E, 7, BF, 80, 0, 8A, D, A, C9, 75, 3, 470
1230 DATA E9, 12, 1, 32, ED, 47, 51, 57, B0, 2F, F2, AE, 75, 40, 8A, 25, 6ED
1240 DATA 80, E4, DF, 80, FC, 55, 74, E, 80, FC, 58, 74, 1C, BA, 60, 6, 81A
1250 DATA 83, C4, 4, E9, F9, 0, 6, 8E, 6, A1, 6, 26, FE, 6, 82, 1, 61B
1260 DATA 7, BA, 90, 6, E8, F9, 1, EB, CF, 80, 3E, A3, 6, 0, 74, 8, 6D6
1270 DATA BA, 60, 6, E8, EA, 1, EB, C0, FE, 6, 89, 1, EB, BA, 5E, 59, 888
1280 DATA BF, DB, 9, E8, E6, 1, 57, 4E, E8, E1, 1, 5E, BA, DB, 9, B9, 896
1290 DATA 0, 0, B4, 4E, CD, 21, 8B, D6, 73, 6, BA, 1C, 6, E9, AF, 0, 63E
1300 DATA 52, 8B, 14, BE, 7, B, 89, 14, C6, 44, 2, 5C, 83, C6, 3, 80, 592
1310 DATA EA, 40, B4, 47, CD, 21, 5A, 72, 2A, B4, 3B, CD, 21, 72, 16, 8B, 6F9
1320 DATA D6, 83, EA, 3, B4, 3B, CD, 21, 80, 7D, FE, 5C, 74, 1A, C7, 45, 814
1330 DATA FF, 5C, 0, EB, 13, B9, 0, 0, B4, 4E, CD, 21, 73, A, 3D, 3, 5BF
1340 DATA 0, 75, 5, BA, 32, 6, EB, 67, BE, DB, 9, 8B, FA, 8B, CA, 2B, 765
1350 DATA CE, F3, A6, 74, E, B8, 5C, 0, 39, 45, FE, 75, B, 8B, FE, F2, 874
1360 DATA AE, 74, 5, BA, 50, 6, EB, 47, 80, 3E, A3, 6, 0, 74, 51, BE, 653
1370 DATA DB, 9, 1E, 8E, 1E, A1, 6, 80, 3E, 81, 1, 1, 75, F9, 8B, 3E, 5CD
1380 DATA 8E, 1, 8E, 6, 8C, 1, B8, FF, FF, 26, 39, 5, 74, 5, 26, 8B, 5F4
1390 DATA 3D, EB, F3, 1F, E8, F5, FD, 8E, 6, A1, 6, 26, 89, 3E, 91, 1, 7CE
1400 DATA 26, FE, 6, 90, 1, 26, FE, E, 81, 1, B8, 0, 4C, CD, 21, E8, 649
1410 DATA E, 1, 8E, 6, A1, 6, 26, FE, E, 81, 1, B8, 1, 4C, CD, 21, 4F1
1420 DATA B4, 34, CD, 21, 89, 1E, 75, 1, 8C, 6, 77, 1, B8, 80, 3E, B9, 62C
1430 DATA 0, 20, 8B, FB, F2, AF, E3, 9, 26, 80, 7D, 5, BC, 74, 1A, EB, 790
1440 DATA F3, B9, 0, 20, 43, 8B, FB, F2, AF, E3, 9, 26, 80, 7D, 5, BC, 806
1450 DATA 74, 7, EB, F3, BA, 42, 6, EB, B6, 26, 8B, 5, A3, 79, 1, 8C, 75B
1460 DATA 6, 7B, 1, E, 8F, 6, 8C, 1, 80, 3E, 89, 1, 0, 74, 5B, 6, 3CF
1470 DATA 57, B8, 67, 35, CD, 21, BF, A, 0, BE, A5, 6, B9, 8, 0, FC, 688
1480 DATA F3, A6, 5F, 7, 74, 5, BA, 7F, 6, EB, 84, F9, B4, 40, CD, 67, 847
1490 DATA A, E4, 75, F2, B4, 41, CD, 67, A, E4, 75, EA, 89, 1E, 8C, 1, 7FF
1500 DATA B4, 43, BB, 1, 0, CD, 67, A, E4, 75, DB, 89, 16, 8A, 1, B8, 707
1510 DATA 0, 44, 33, DB, 8B, 16, 8A, 1, CD, 67, A, E4, 75, C8, C7, 6, 6AA
1520 DATA 93, 1, 0, 10, C7, 6, 91, 1, 0, 0, 8B, 1E, 91, 1, 89, 1E, 3E5
1530 DATA 8E, 1, B8, 8, 35, CD, 21, 89, 1E, 95, 1, 8C, 6, 97, 1, B8, 591
1540 DATA 8, 25, BA, CD, 1, CD, 21, B8, 13, 35, CD, 21, 89, 1E, 99, 1, 5D2
1550 DATA 8C, 6, 9B, 1, B8, 13, 25, BA, 61, 2, CD, 21, B8, 28, 35, CD, 60B
1560 DATA 21, 89, 1E, 9D, 1, 8C, 6, 9F, 1, B8, 28, 25, BA, 21, 2, CD, 547
1570 DATA 21, A1, 2C, 0, 8E, C0, B4, 49, E, 7, E9, A3, FC, D, A, 24, 611
1580 DATA B4, 9, CD, 21, BA, 2D, 9, B4, 9, CD, 21, C3, E8, 7D, 0, 9F, 70D
1590 DATA 3C, D, 74, 9, 3C, 2F, 74, 5, 9E, 72, F1, EB, 5, C7, 44, FF, 6A5
1600 DATA 0, 0, 4E, 80, 7C, 1, 3A, 74, B, A0, A4, 6, 8A, D0, 4, 40, 4EC
1610 DATA B4, 3A, EB, 8, AD, 24, DF, 8A, D0, 80, EA, 40, AB, 8B, DF, B0, 95A
1620 DATA 5C, 38, 4, 74, 1F, AA, 56, 8B, F7, B4, 47, CD, 21, B9, 40, 0, 68F
1630 DATA B0, 0, F2, AE, 4F, 5E, 83, F9, 3F, 7D, 9, E8, 2E, 0, 72, 28, 6EE
1640 DATA 4E, B0, 5C, AA, B9, 4B, 0, 32, E4, E8, 20, 0, 72, 1A, AA, 3D, 699
1650 DATA 2E, 2E, 75, 10, FD, 83, EF, 4, B0, 5C, 51, 8B, CF, 2B, CB, F2, 7F3
1660 DATA AE, 59, FC, 47, 8A, E0, E2, E1, 32, C0, AA, C3, AC, 3C, 20, 7E, 95C
1670 DATA 18, 3C, 2C, 74, 14, 3C, 3B, 74, 10, 3C, 3D, 74, C, 3C, 61, 72, 40B
1680 DATA 6, 3C, 7A, 77, 2, 24, DF, F8, C3, F9, C3, 0, 0, 0, 0, 0, 5AF
1690 DATA 214792