home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1987
/
03
/
timekey.bas
< prev
next >
Wrap
BASIC Source File
|
1987-12-12
|
7KB
|
112 lines
100 REM -- BASIC PROGRAM TO CREATE TIMEKEY.COM
110 OPEN "TIMEKEY.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I = 1 TO 92
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 = 61903 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 50, 2, 84, 73, 77, 69, 75, 663
300 DATA 69, 89, 32, 40, 67, 41, 32, 49, 419
310 DATA 57, 56, 54, 44, 32, 90, 105, 102, 540
320 DATA 102, 45, 68, 97, 118, 105, 115, 32, 682
330 DATA 80, 117, 98, 108, 105, 115, 104, 105, 832
340 DATA 110, 103, 32, 67, 111, 46, 26, 112, 607
350 DATA 114, 111, 103, 114, 97, 109, 109, 101, 858
360 DATA 100, 32, 98, 121, 32, 74, 101, 102, 660
370 DATA 102, 32, 80, 114, 111, 115, 105, 115, 774
380 DATA 101, 26, 0, 0, 0, 0, 0, 0, 127
390 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
400 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
410 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
420 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
430 DATA 0, 0, 0, 0, 0, 0, 32, 88, 120
440 DATA 46, 77, 46, 0, 0, 0, 0, 0, 169
450 DATA 0, 0, 0, 0, 156, 46, 255, 30, 487
460 DATA 128, 1, 46, 128, 62, 115, 1, 0, 481
470 DATA 116, 11, 80, 83, 82, 86, 232, 207, 897
480 DATA 0, 94, 90, 91, 88, 207, 251, 80, 901
490 DATA 180, 2, 205, 22, 168, 8, 116, 14, 715
500 DATA 228, 96, 60, 20, 116, 14, 60, 38, 632
510 DATA 116, 10, 60, 31, 116, 6, 88, 46, 473
520 DATA 255, 46, 124, 1, 83, 81, 82, 86, 758
530 DATA 87, 30, 6, 80, 228, 97, 138, 224, 890
540 DATA 12, 128, 230, 97, 138, 196, 230, 97, 1128
550 DATA 88, 14, 7, 14, 31, 60, 20, 116, 350
560 DATA 19, 199, 6, 116, 1, 74, 1, 60, 476
570 DATA 38, 116, 100, 199, 6, 116, 1, 93, 669
580 DATA 1, 235, 92, 144, 180, 0, 205, 26, 883
590 DATA 139, 193, 179, 24, 246, 243, 136, 38, 1198
600 DATA 113, 1, 184, 60, 0, 247, 226, 136, 967
610 DATA 22, 114, 1, 252, 141, 62, 102, 1, 695
620 DATA 160, 113, 1, 60, 0, 117, 2, 4, 457
630 DATA 12, 60, 12, 118, 2, 44, 12, 179, 439
640 DATA 48, 232, 60, 0, 176, 58, 170, 160, 904
650 DATA 114, 1, 179, 0, 232, 49, 0, 198, 773
660 DATA 6, 119, 1, 80, 128, 62, 113, 1, 510
670 DATA 11, 119, 5, 198, 6, 119, 1, 65, 524
680 DATA 141, 54, 118, 1, 185, 6, 0, 243, 748
690 DATA 164, 199, 6, 116, 1, 102, 1, 232, 821
700 DATA 30, 0, 250, 176, 32, 230, 32, 7, 757
710 DATA 31, 95, 94, 90, 89, 91, 88, 207, 785
720 DATA 212, 10, 5, 48, 48, 58, 227, 116, 724
730 DATA 5, 134, 224, 170, 134, 224, 170, 195, 1256
740 DATA 30, 184, 64, 0, 142, 216, 139, 30, 805
750 DATA 28, 0, 46, 139, 54, 116, 1, 50, 434
760 DATA 228, 46, 138, 4, 10, 192, 116, 46, 780
770 DATA 139, 211, 131, 194, 2, 59, 22, 130, 888
780 DATA 0, 117, 4, 139, 22, 128, 0, 59, 469
790 DATA 22, 26, 0, 116, 16, 137, 7, 139, 463
800 DATA 218, 137, 30, 28, 0, 70, 46, 255, 784
810 DATA 6, 116, 1, 235, 212, 46, 198, 6, 820
820 DATA 115, 1, 1, 235, 7, 144, 46, 198, 747
830 DATA 6, 115, 1, 0, 31, 195, 7, 74, 429
840 DATA 97, 110, 117, 97, 114, 121, 32, 32, 720
850 DATA 8, 70, 101, 98, 114, 117, 97, 114, 719
860 DATA 121, 32, 5, 77, 97, 114, 99, 104, 649
870 DATA 32, 32, 32, 32, 5, 65, 112, 114, 424
880 DATA 105, 108, 32, 32, 32, 32, 3, 77, 421
890 DATA 97, 121, 32, 32, 32, 32, 32, 32, 410
900 DATA 4, 74, 117, 110, 101, 32, 32, 32, 502
910 DATA 32, 32, 4, 74, 117, 108, 121, 32, 520
920 DATA 32, 32, 32, 32, 6, 65, 117, 103, 419
930 DATA 117, 115, 116, 32, 32, 32, 9, 83, 536
940 DATA 101, 112, 116, 101, 109, 98, 101, 114, 852
950 DATA 7, 79, 99, 116, 111, 98, 101, 114, 725
960 DATA 32, 32, 8, 78, 111, 118, 101, 109, 589
970 DATA 98, 101, 114, 32, 8, 68, 101, 99, 621
980 DATA 101, 109, 98, 101, 114, 32, 0, 0, 555
990 DATA 0, 44, 32, 49, 57, 180, 42, 205, 609
1000 DATA 33, 129, 233, 108, 7, 136, 54, 46, 746
1010 DATA 3, 136, 22, 47, 3, 136, 14, 48, 409
1020 DATA 3, 252, 254, 206, 176, 10, 246, 230, 1377
1030 DATA 139, 240, 129, 198, 182, 2, 138, 12, 1040
1040 DATA 70, 50, 237, 141, 62, 74, 1, 243, 878
1050 DATA 164, 176, 32, 170, 138, 194, 179, 48, 1101
1060 DATA 232, 237, 254, 141, 54, 49, 3, 185, 1155
1070 DATA 4, 0, 243, 164, 160, 48, 3, 179, 801
1080 DATA 0, 232, 220, 254, 176, 0, 170, 141, 1193
1090 DATA 62, 93, 1, 160, 46, 3, 179, 48, 592
1100 DATA 232, 205, 254, 176, 45, 170, 160, 47, 1289
1110 DATA 3, 179, 48, 232, 194, 254, 176, 45, 1131
1120 DATA 170, 160, 48, 3, 179, 0, 232, 183, 975
1130 DATA 254, 176, 0, 170, 180, 53, 176, 28, 1037
1140 DATA 205, 33, 137, 30, 128, 1, 140, 6, 680
1150 DATA 130, 1, 180, 37, 176, 28, 141, 22, 715
1160 DATA 132, 1, 205, 33, 180, 53, 176, 9, 789
1170 DATA 205, 33, 137, 30, 124, 1, 140, 6, 676
1180 DATA 126, 1, 180, 37, 176, 9, 141, 22, 692
1190 DATA 158, 1, 205, 33, 141, 22, 182, 2, 744
1200 DATA 205, 39, 0, 0, 0, 0, 0, 0, 244