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