home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1986
/
19
/
change.bas
< prev
next >
Wrap
BASIC Source File
|
1987-12-12
|
8KB
|
113 lines
100 REM -- BASIC PROGRAM TO CREATE change.COM
110 OPEN "change.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I% = 1 TO 93
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 = 46976 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 134, 0, 0, 0, 0, 0, 0, 367
300 DATA 0, 0, 83, 121, 110, 116, 97, 120, 647
310 DATA 32, 101, 114, 114, 111, 114, 36, 70, 692
320 DATA 105, 108, 101, 32, 110, 111, 116, 32, 715
330 DATA 102, 111, 117, 110, 100, 36, 70, 105, 751
340 DATA 108, 101, 32, 116, 111, 111, 32, 98, 709
350 DATA 105, 103, 36, 78, 111, 116, 32, 67, 648
360 DATA 104, 97, 110, 103, 101, 100, 36, 67, 718
370 DATA 111, 112, 121, 114, 105, 103, 104, 116, 886
380 DATA 32, 49, 57, 56, 54, 32, 90, 105, 475
390 DATA 102, 102, 45, 68, 97, 118, 105, 115, 752
400 DATA 32, 80, 117, 98, 108, 105, 115, 104, 759
410 DATA 105, 110, 103, 32, 67, 111, 46, 26, 600
420 DATA 80, 114, 111, 103, 114, 97, 109, 109, 837
430 DATA 101, 100, 32, 98, 121, 32, 77, 105, 666
440 DATA 99, 104, 97, 101, 108, 32, 74, 46, 661
450 DATA 32, 77, 101, 102, 102, 111, 114, 100, 739
460 DATA 26, 190, 128, 0, 186, 10, 1, 252, 793
470 DATA 232, 53, 1, 137, 54, 3, 1, 128, 609
480 DATA 60, 13, 116, 63, 128, 60, 32, 116, 588
490 DATA 3, 70, 235, 243, 198, 4, 0, 232, 985
500 DATA 30, 1, 51, 201, 191, 225, 2, 232, 933
510 DATA 215, 0, 128, 60, 32, 116, 8, 128, 687
520 DATA 60, 13, 116, 31, 70, 235, 240, 232, 997
530 DATA 6, 1, 137, 14, 5, 1, 51, 201, 416
540 DATA 191, 97, 3, 232, 187, 0, 128, 60, 898
550 DATA 32, 116, 14, 128, 60, 13, 116, 9, 488
560 DATA 70, 235, 240, 180, 9, 205, 33, 205, 1177
570 DATA 32, 137, 14, 7, 1, 139, 22, 3, 355
580 DATA 1, 184, 0, 61, 205, 33, 186, 23, 693
590 DATA 1, 114, 232, 139, 216, 186, 1, 82, 971
600 DATA 185, 64, 156, 180, 63, 205, 33, 186, 1072
610 DATA 38, 1, 61, 64, 156, 116, 212, 80, 728
620 DATA 180, 62, 205, 33, 90, 161, 5, 1, 737
630 DATA 59, 208, 125, 5, 186, 51, 1, 235, 870
640 DATA 194, 187, 1, 82, 184, 225, 3, 190, 1066
650 DATA 225, 2, 139, 251, 139, 14, 5, 1, 776
660 DATA 243, 166, 139, 248, 116, 8, 139, 243, 1302
670 DATA 164, 64, 67, 74, 235, 24, 128, 14, 770
680 DATA 9, 1, 1, 190, 97, 3, 139, 14, 454
690 DATA 7, 1, 3, 193, 3, 30, 5, 1, 243
700 DATA 43, 22, 5, 1, 243, 164, 59, 22, 559
710 DATA 5, 1, 125, 203, 139, 202, 3, 193, 871
720 DATA 139, 243, 243, 164, 80, 139, 22, 3, 1033
730 DATA 1, 51, 201, 180, 60, 205, 33, 89, 820
740 DATA 129, 233, 225, 3, 139, 216, 186, 225, 1356
750 DATA 3, 180, 64, 205, 33, 180, 62, 205, 932
760 DATA 33, 186, 51, 1, 128, 62, 9, 1, 471
770 DATA 0, 116, 3, 131, 194, 4, 233, 82, 763
780 DATA 255, 128, 60, 34, 117, 20, 70, 172, 856
790 DATA 60, 13, 116, 49, 60, 34, 117, 6, 455
800 DATA 232, 52, 0, 115, 1, 195, 170, 65, 830
810 DATA 235, 237, 50, 219, 232, 40, 0, 115, 1128
820 DATA 5, 138, 195, 170, 65, 195, 172, 60, 1000
830 DATA 48, 114, 18, 60, 57, 119, 14, 44, 474
840 DATA 48, 138, 248, 176, 10, 246, 227, 138, 1231
850 DATA 216, 2, 223, 235, 223, 233, 19, 255, 1406
860 DATA 70, 128, 60, 32, 116, 250, 195, 248, 1099
870 DATA 128, 60, 32, 116, 10, 128, 60, 13, 547
880 DATA 116, 5, 128, 60, 44, 117, 1, 249, 720
890 DATA 195, 0, 0, 0, 0, 0, 0, 0, 195
900 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
910 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
920 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
930 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
940 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
950 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
960 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
970 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
980 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
990 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1000 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1010 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1020 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1030 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1040 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1050 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1060 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1070 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1080 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1090 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1100 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1110 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1120 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1130 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1140 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1150 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1160 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1170 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1180 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1190 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1200 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
1210 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0