100 REM -- BASIC PROGRAM TO CREATE capture.COM 110 OPEN "capture.COM" AS #1 LEN = 1 120 FIELD #1,1 AS A$ 130 CHECKSUM = 0 140 FOR I = 1 TO 92 150 LINESUM = 0 155 PRINT "."; 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 = 68485 THEN PRINT "Successful Completion!" : END 280 PRINT "COM file is not valid!" : END 290 DATA 233, 72, 2, 67, 65, 80, 84, 85, 688 300 DATA 82, 69, 32, 49, 46, 48, 32, 40, 398 310 DATA 99, 41, 32, 49, 57, 56, 55, 32, 421 320 DATA 90, 105, 102, 102, 32, 67, 111, 109, 718 330 DATA 109, 117, 110, 105, 99, 97, 116, 105, 858 340 DATA 111, 110, 115, 32, 67, 111, 13, 10, 569 350 DATA 72, 111, 116, 107, 101, 121, 32, 105, 765 360 DATA 115, 32, 65, 76, 84, 45, 67, 36, 520 370 DATA 26, 84, 111, 109, 32, 75, 105, 104, 646 380 DATA 108, 107, 101, 110, 13, 10, 65, 108, 622 390 DATA 114, 101, 97, 100, 121, 32, 73, 110, 748 400 DATA 115, 116, 97, 108, 108, 101, 100, 36, 781 410 DATA 83, 67, 82, 69, 69, 78, 46, 48, 542 420 DATA 48, 48, 0, 0, 0, 0, 0, 0, 96 430 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 440 DATA 0, 0, 0, 0, 0, 0, 0, 232, 232 450 DATA 62, 0, 38, 255, 55, 191, 75, 3, 679 460 DATA 51, 210, 38, 58, 22, 74, 0, 124, 577 470 DATA 5, 184, 32, 7, 235, 15, 232, 39, 749 480 DATA 0, 38, 137, 23, 38, 138, 62, 98, 534 490 DATA 0, 180, 8, 205, 16, 137, 5, 71, 622 500 DATA 71, 254, 194, 128, 250, 80, 124, 218, 1319 510 DATA 254, 198, 50, 210, 128, 254, 25, 124, 1243 520 DATA 209, 232, 4, 0, 38, 143, 7, 195, 828 530 DATA 38, 138, 30, 98, 0, 50, 255, 209, 818 540 DATA 227, 129, 195, 80, 0, 195, 46, 198, 1070 550 DATA 6, 123, 1, 0, 251, 80, 83, 81, 625 560 DATA 82, 85, 30, 6, 14, 31, 184, 36, 468 570 DATA 53, 232, 95, 0, 83, 6, 186, 72, 727 580 DATA 3, 184, 36, 37, 232, 84, 0, 186, 762 590 DATA 96, 1, 184, 0, 61, 232, 75, 0, 649 600 DATA 114, 12, 139, 216, 180, 62, 232, 66, 1021 610 DATA 0, 232, 72, 0, 235, 233, 61, 2, 835 620 DATA 0, 117, 34, 186, 96, 1, 185, 32, 651 630 DATA 0, 180, 60, 232, 45, 0, 114, 13, 644 640 DATA 139, 216, 186, 75, 3, 185, 160, 15, 979 650 DATA 180, 64, 232, 30, 0, 180, 62, 232, 980 660 DATA 25, 0, 232, 31, 0, 31, 90, 184, 593 670 DATA 36, 37, 232, 14, 0, 7, 31, 93, 450 680 DATA 90, 89, 91, 88, 46, 198, 6, 124, 732 690 DATA 1, 0, 195, 156, 250, 46, 255, 30, 933 700 DATA 119, 1, 251, 195, 187, 105, 1, 254, 1113 710 DATA 7, 128, 63, 57, 126, 12, 198, 7, 598 720 DATA 48, 75, 129, 251, 102, 1, 126, 2, 734 730 DATA 235, 237, 195, 251, 80, 228, 96, 60, 1382 740 DATA 46, 116, 6, 88, 46, 255, 46, 107, 710 750 DATA 1, 30, 184, 64, 0, 142, 216, 160, 797 760 DATA 23, 0, 36, 15, 60, 8, 31, 117, 290 770 DATA 234, 228, 97, 138, 224, 12, 128, 230, 1291 780 DATA 97, 138, 196, 235, 0, 230, 97, 250, 1243 790 DATA 176, 32, 230, 32, 251, 46, 128, 62, 957 800 DATA 124, 1, 0, 117, 46, 46, 198, 6, 538 810 DATA 124, 1, 1, 83, 81, 82, 85, 87, 544 820 DATA 30, 6, 14, 31, 184, 64, 0, 142, 471 830 DATA 192, 232, 203, 254, 198, 6, 123, 1, 1209 840 DATA 1, 7, 31, 95, 93, 90, 89, 91, 497 850 DATA 46, 246, 6, 126, 1, 3, 117, 3, 548 860 DATA 232, 3, 255, 88, 207, 156, 46, 128, 1115 870 DATA 14, 126, 1, 2, 157, 156, 46, 255, 757 880 DATA 30, 111, 1, 156, 46, 128, 38, 126, 636 890 DATA 1, 253, 157, 251, 202, 2, 0, 46, 912 900 DATA 128, 62, 123, 1, 1, 116, 5, 46, 482 910 DATA 255, 46, 115, 1, 46, 128, 62, 125, 778 920 DATA 1, 10, 116, 8, 46, 128, 62, 125, 496 930 DATA 1, 8, 117, 235, 232, 199, 254, 46, 1092 940 DATA 128, 14, 126, 1, 1, 235, 224, 156, 885 950 DATA 46, 136, 38, 125, 1, 46, 128, 14, 534 960 DATA 126, 1, 1, 10, 228, 116, 35, 128, 645 970 DATA 252, 75, 116, 30, 157, 156, 46, 255, 1087 980 DATA 30, 119, 1, 156, 46, 128, 38, 126, 644 990 DATA 1, 254, 46, 128, 62, 123, 1, 1, 616 1000 DATA 117, 3, 232, 145, 254, 157, 251, 202, 1361 1010 DATA 2, 0, 157, 46, 255, 46, 119, 1, 626 1020 DATA 50, 192, 207, 186, 3, 1, 180, 9, 828 1030 DATA 205, 33, 247, 22, 0, 1, 51, 219, 778 1040 DATA 140, 200, 67, 59, 195, 142, 195, 116, 1114 1050 DATA 26, 190, 0, 1, 139, 254, 185, 16, 811 1060 DATA 0, 243, 166, 11, 201, 117, 235, 186, 1159 1070 DATA 76, 1, 180, 9, 205, 33, 184, 1, 689 1080 DATA 76, 205, 33, 184, 9, 53, 205, 33, 798 1090 DATA 137, 30, 107, 1, 140, 6, 109, 1, 531 1100 DATA 186, 99, 2, 184, 9, 37, 205, 33, 755 1110 DATA 184, 19, 53, 205, 33, 137, 30, 111, 772 1120 DATA 1, 140, 6, 113, 1, 186, 205, 2, 654 1130 DATA 184, 19, 37, 205, 33, 184, 22, 53, 737 1140 DATA 205, 33, 137, 30, 115, 1, 140, 6, 667 1150 DATA 117, 1, 186, 231, 2, 184, 22, 37, 780 1160 DATA 205, 33, 184, 33, 53, 205, 33, 137, 883 1170 DATA 30, 119, 1, 140, 6, 121, 1, 186, 604 1180 DATA 15, 3, 184, 33, 37, 205, 33, 161, 671 1190 DATA 44, 0, 142, 192, 180, 73, 205, 33, 869 1200 DATA 186, 47, 1, 184, 0, 49, 205, 33, 705