home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol4n26.zip / KEY-FAKE.BAS < prev    next >
BASIC Source File  |  1980-01-02  |  5KB  |  87 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE KEY-FAKE.COM
  2. 110 OPEN "KEY-FAKE.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  67
  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       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 = 32118 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA   233,   131,     0,    75,    69,    89,    45,    70,   712
  21. 300 DATA    65,    75,    69,    32,    40,    67,    41,    32,   421
  22. 310 DATA    67,   111,   112,   121,   114,   105,   103,   104,   837
  23. 320 DATA   116,    32,    67,   104,    97,   114,   108,   101,   739
  24. 330 DATA   115,    32,    80,   101,   116,   122,   111,   108,   785
  25. 340 DATA   100,    44,    32,    49,    57,    56,    53,     0,   391
  26. 350 DATA     0,     0,     0,   134,     1,     0,   251,    46,   432
  27. 360 DATA   128,    62,    53,     1,     0,   116,     9,    10,   379
  28. 370 DATA   228,   116,    10,   128,   252,     1,   116,    32,   883
  29. 380 DATA    46,   255,    46,    47,     1,    83,    46,   139,   663
  30. 390 DATA    30,    51,     1,    46,   139,     7,    67,    67,   408
  31. 400 DATA    46,   137,    30,    51,     1,    46,   254,    14,   579
  32. 410 DATA    53,     1,    91,    11,   192,   116,   207,   207,   878
  33. 420 DATA    83,    46,   139,    30,    51,     1,    46,   139,   535
  34. 430 DATA     7,    91,    11,   192,   117,    13,    46,   131,   608
  35. 440 DATA     6,    51,     1,     2,    46,   254,    14,    53,   427
  36. 450 DATA     1,    11,   192,   202,     2,     0,   199,     6,   613
  37. 460 DATA     0,     1,     0,     0,   198,     6,     2,     1,   208
  38. 470 DATA     0,   252,   140,   202,    43,   192,   142,   192,  1163
  39. 480 DATA   190,     0,     1,   139,   254,   185,    47,     0,   816
  40. 490 DATA   243,   166,   116,    44,    64,   142,   192,    59,  1026
  41. 500 DATA   194,   117,   237,   198,     6,     1,     0,    39,   792
  42. 510 DATA    43,   192,   142,   216,   161,    88,     0,    46,   888
  43. 520 DATA   163,    47,     1,   161,    90,     0,    46,   163,   671
  44. 530 DATA    49,     1,   250,   199,     6,    88,     0,    54,   647
  45. 540 DATA     1,   140,    14,    90,     0,   251,    14,    31,   541
  46. 550 DATA   190,   128,     0,   191,   134,     1,    38,   137,   819
  47. 560 DATA    62,    51,     1,    38,   198,     6,    53,     1,   410
  48. 570 DATA     0,   172,   152,   139,   200,    65,    11,   192,   931
  49. 580 DATA   117,     3,   233,    39,     1,   233,   155,     0,   781
  50. 590 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  51. 600 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  52. 610 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  53. 620 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  54. 630 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  55. 640 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  56. 650 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  57. 660 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  58. 670 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  59. 680 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  60. 690 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  61. 700 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  62. 710 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  63. 720 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  64. 730 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  65. 740 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  66. 750 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  67. 760 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  68. 770 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  69. 780 DATA     0,     0,    10,   172,   128,    62,   134,     2,   508
  70. 790 DATA     0,   116,    25,    58,     6,   134,     2,   116,   457
  71. 800 DATA    11,    42,   228,   171,    38,   254,     6,    53,   803
  72. 810 DATA     1,   235,   107,   144,   198,     6,   134,     2,   827
  73. 820 DATA     0,   235,    99,   144,    60,    64,   117,     8,   727
  74. 830 DATA   198,     6,   136,     2,     1,   235,    45,   144,   767
  75. 840 DATA    60,    34,   116,     4,    60,    39,   117,     6,   436
  76. 850 DATA   162,   134,     2,   235,    31,   144,    60,    48,   816
  77. 860 DATA   114,    26,    60,    57,   119,    22,   198,     6,   602
  78. 870 DATA   135,     2,     1,    44,    48,   134,     6,   137,   507
  79. 880 DATA     2,   246,    38,   138,     2,     0,     6,   137,   569
  80. 890 DATA     2,   235,    43,   144,   128,    62,   135,     2,   751
  81. 900 DATA     1,   117,    35,   160,   137,     2,    42,   228,   722
  82. 910 DATA   128,    62,   136,     2,     1,   117,     2,   134,   582
  83. 920 DATA   196,   171,    38,   254,     6,    53,     1,   198,   917
  84. 930 DATA     6,   135,     2,     0,   198,     6,   136,     2,   485
  85. 940 DATA     0,   198,     6,   137,     2,     0,    73,   116,   532
  86. 950 DATA     3,   233,   119,   255,   186,   134,     2,   195,  1127
  87.