home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1988 / 12 / allkeys.bas < prev    next >
BASIC Source File  |  1988-06-27  |  5KB  |  71 lines
  1. 100 REM - BASIC PROGRAM TO CREATE ALLKEYS.COM (PC Magazine June 28,1988)
  2. 110 CLS:PRINT "Creating ALLKEYS.COM": OPEN "ALLKEYS.COM" AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO 55: LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 55 - I;
  5. 140  FOR J = 1 TO 16 : READ BYTE$: CHECKSUM#=CHECKSUM#+VAL("&H"+BYTE$)
  6. 150   LINESUM#=LINESUM#+VAL("&H"+BYTE$)
  7. 160   IF (BYTE < 256) THEN LSET A$=CHR$(VAL("&H"+BYTE$)): PUT #1
  8. 170   NEXT J
  9. 180  READ LINETOT$: LINECHECK# = VAL("&H" + LINETOT$)
  10. 190  IF LINECHECK# = LINESUM# THEN GOTO 210
  11. 200  LOCATE 4,2: PRINT "Error in line #";240 + 10 * I
  12. 210 NEXT I
  13. 220 CLOSE: LOCATE 6,2: IF CHECKSUM# <> 76568 THEN GOTO 240
  14. 230 PRINT "ALLKEYS.COM  created successfully": SYSTEM
  15. 240 PRINT "ALLKEYS.COM  is not valid!": SYSTEM
  16. 250   DATA E9, 25,  2, 41, 4C, 4C, 4B, 45, 59, 53, 20, 31, 2E, 30, 20, 28, 41C
  17. 260   DATA 63, 29, 20, 31, 39, 38, 38, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 474
  18. 270   DATA 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D, 5B7
  19. 280   DATA  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 52, 579
  20. 290   DATA 6F, 62, 65, 72, 74, 20, 4C, 2E, 20, 4D, 6F, 72, 74, 6F, 6E,  D, 562
  21. 300   DATA  A, 4C, 6F, 77, 20, 63, 6F, 70, 79, 20, 69, 6E, 73, 74, 61, 6C, 5C2
  22. 310   DATA 6C, 65, 64,  D,  A, 24, 41, 4C, 4C, 4B, 45, 59, 53, 20, 68, 69, 476
  23. 320   DATA 67, 68, 20, 63, 6F, 70, 79, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 626
  24. 330   DATA 64,  D,  A, 43, 74, 72, 6C, 2D, 41, 6C, 74, 2D, 5A, 20, 74, 6F, 4E8
  25. 340   DATA 20, 74, 6F, 67, 67, 6C, 65, 20, 74, 73, 72, 27, 73, 20, 6F, 6E, 5B2
  26. 350   DATA 2F, 6F, 66, 66,  D,  A, 24, 41, 4C, 4C, 4B, 45, 59, 53, 20, 61, 43B
  27. 360   DATA 6C, 72, 65, 61, 64, 79, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 661
  28. 370   DATA 20, 68, 69, 67, 68, 20, 61, 6E, 64, 20, 6C, 6F, 77,  D,  A, 24, 4C0
  29. 380   DATA 56, 65, 63, 74, 6F, 72, 73, 20, 63, 6F, 75, 6C, 64, 20, 6E, 6F, 61A
  30. 390   DATA 74, 20, 62, 65, 20, 72, 65, 73, 74, 6F, 72, 65, 64, 20, 2D, 20, 550
  31. 400   DATA 41, 4C, 4C, 4B, 45, 59, 53, 20, 64, 69, 73, 61, 62, 6C, 65, 64, 56D
  32. 410   DATA  D,  A, 24, 41, 4C, 4C, 4B, 45, 59, 53, 20, 6E, 6F, 74, 20, 6C, 44D
  33. 420   DATA 6F, 61, 64, 65, 64, 20, 79, 65, 74,  D,  A, 24, 41, 4C, 4C, 4B, 4CE
  34. 430   DATA 45, 59, 53, 20, 75, 6E, 2D, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 5E1
  35. 440   DATA  D,  A, 24,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  3B
  36. 450   DATA  0,  0,  0, 2C,  C,  0,  0, F4,  1, DC,  5, F4,  1, 32,  0, FB, 430
  37. 460   DATA 50, 2E, 80, 3E, 46,  2,  0, 75, 22, E4, 60, 2E, 3A,  6, 43,  2, 412
  38. 470   DATA 75, 1F, B4,  2, CD, 16, 24,  F, 2E, 3A,  6, 44,  2, 75, 12, E8, 483
  39. 480   DATA A1,  0, 2E, 80, 36, 45,  2, FF, E8, 2F,  0, 58, 2E, FF, 2E, 3B, 5D0
  40. 490   DATA  2, 2E, 80, 3E, 45,  2,  0, 74, F2, 58, 2E, FF, 2E, 33,  2, FB, 57E
  41. 500   DATA 2E, 80, 3E, 46,  2,  0, 75,  D, 2E, 80, 3E, 45,  2,  0, 74,  5, 362
  42. 510   DATA 2E, FF, 2E, 37,  2, 2E, FF, 2E, 3F,  2, 51, 1E,  E, 1F, 80, 3E, 48A
  43. 520   DATA 45,  2,  0, 74, 14, 8B,  E, 47,  2, E8, 21,  0,  3,  E, 4B,  2, 318
  44. 530   DATA 3B,  E, 49,  2, 76, F3, EB, 12, 90, 8B,  E, 49,  2, E8,  D,  0, 563
  45. 540   DATA 2B,  E, 4B,  2, 3B,  E, 47,  2, 73, F3, 1F, 59, C3, 50, 51, 52, 4AC
  46. 550   DATA BA, 12,  0, B8, DE, 34, F7, F1, 8B, C8, 8A, C1, E6, 42, 8A, C5, 993
  47. 560   DATA E6, 42, E4, 61,  C,  3, E6, 61, 8B,  E, 4D,  2, E8,  A,  0, E4, 681
  48. 570   DATA 61, 24, FC, E6, 61, 5A, 59, 58, C3, 51, B9, FF,  0, E2, FE, 59, 8D8
  49. 580   DATA E2, F7, C3, E4, 61, 8A, E0,  C, 80, E6, 61, 8A, C4, EB,  0, E6, A3D
  50. 590   DATA 61, FA, B0, 20, E6, 20, FB, C3, BE, 80,  0, 80, 3C,  0, 75,  3, 761
  51. 600   DATA E9, 98,  0, 8A,  C, 32, ED, 46, FC, AC, 3C, 2F, 74,  5, E2, F9, 7E3
  52. 610   DATA E9, 88,  0, 80, 24, DF, 80, 3C, 55, 74,  3, EB, 7E, 90, E8, F0, 84D
  53. 620   DATA  0, 72,  C, BA,  3,  2, B4,  9, CD, 21, B8,  1, 4C, CD, 21,  6, 4E1
  54. 630   DATA 1F, 33, C0, 8E, C0, C7,  6,  0,  1, FF,  0, 8C, D8, 26, 3B,  6, 5F8
  55. 640   DATA 26,  0, 75, 39, 26, 3B,  6, 5A,  0, 75, 32, 1E,  7, B8,  9, 25, 347
  56. 650   DATA 26, 8B, 16, 3B,  2, 26, 8E, 1E, 3D,  2, CD, 21, B8, 16, 25, 26, 41C
  57. 660   DATA 8B, 16, 3F,  2, 26, 8E, 1E, 41,  2, CD, 21, B4, 49, CD, 21,  E, 4DE
  58. 670   DATA 1F, BA, 1C,  2, B4,  9, CD, 21, B8,  0, 4C, CD, 21, 83, 3E, 3B, 590
  59. 680   DATA  2,  0, 75,  D, 1E,  7,  E, 1F, B4, 49, CD, 21, BA, 1C,  2, EB, 484
  60. 690   DATA E3, C6,  6, 46,  2,  1, BA, D0,  1, EB, 8B, E8, 73,  0, 72, 32, 6F8
  61. 700   DATA A1, 2C,  0, 8E, C0, B4, 49, CD, 21, B8,  9, 35, CD, 21, 89, 1E, 691
  62. 710   DATA 33,  2, 8C,  6, 35,  2, B8, 16, 35, CD, 21, 89, 1E, 37,  2, 8C, 45B
  63. 720   DATA  6, 39,  2, BA,  3,  1, B4,  9, CD, 21, B8,  0, 31, BA, 33,  0, 480
  64. 730   DATA CD, 21,  6, 1F, 83, 3E, 3B,  2,  0, 74,  6, BA, A7,  1, E9, 45, 51B
  65. 740   DATA FF, B8,  9, 35, CD, 21, 89, 1E, 3B,  2, 8C,  6, 3D,  2, B8, 16, 566
  66. 750   DATA 35, CD, 21, 89, 1E, 3F,  2, 8C,  6, 41,  2, B8,  9, 25, BA, 4F, 4CF
  67. 760   DATA  2, CD, 21, B8, 16, 25, BA, 8F,  2, CD, 21, BA, 66,  1, E9, 63, 689
  68. 770   DATA FF, C7,  6,  0,  1,  0,  0, BB,  0,  6, 8C, C8, FC, 43, 3B, C3, 61F
  69. 780   DATA 8E, C3, 74, 10, BE,  0,  1, 8B, FE, B9, 10,  0, F3, A6,  B, C9, 753
  70. 790   DATA 75, EB, F9, C3, F8, C3,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 4D7
  71.