home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / utility / gwlites / gwlites.bas next >
BASIC Source File  |  1989-10-06  |  7KB  |  92 lines
  1. 100 ' BASIC PROGRAM TO CREATE LITES.COM
  2. 110 CLS : PRINT "Creating B:GWLITES.COM   ": OPEN "B:GWLITES.COM    " FOR RANDOM AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM# = 0
  4. 130 FOR I = 1 TO 72
  5. 140    LINESUM# = 0: LOCATE 2, 3: PRINT "Countdown:  "; 72 - I;
  6. 150        FOR J = 1 TO 16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160            CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170            IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE): PUT #1
  9. 180        NEXT J
  10. 190    READ LINETOT$: LINECHECK# = VAL("&H" + LINETOT$)
  11. 200    IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210    LOCATE 4, 2: PRINT "Error in Line #"; 260 + 10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE : READ FILETOT$: FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT : PRINT "LITES.COM   created successfully": SYSTEM
  17. 260 PRINT : PRINT "LITES.COM   is not valid!": END
  18. 270 DATA E9, 55, 03, 4C, 49, 54, 45, 53, 20, 31, 2E, 30, 20, 28, 63, 29,  445
  19. 280 DATA 20, 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 6D, 75,  4CB
  20. 290 DATA 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E, 0D, 0A, 50,  52F
  21. 300 DATA 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 4A, 65, 66,  5E2
  22. 310 DATA 66, 20, 50, 72, 6F, 73, 69, 73, 65, 0D, 0A, 48, 6F, 74, 6B, 65,  57D
  23. 320 DATA 79, 20, 69, 73, 20, 41, 6C, 74, 2D, 4C, 20, 20, 20, 0D, 0A, 24,  3CA
  24. 330 DATA 26, 70, 00, 00, 02, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, FF,  197
  25. 340 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 44, 54, 52, 52, 54,  190
  26. 350 DATA 53, 43, 54, 53, 44, 53, 52, 52, 49, 20, 44, 43, 44, 9C, 50, FB,  593
  27. 360 DATA E4, 60, 2E, 3A, 06, 60, 01, 75, 16, B4, 02, CD, 16, 24, 0F, 3C,  4A6
  28. 370 DATA 08, 75, 0C, B4, 0F, CD, 10, 3C, 07, 74, 0B, 3C, 04, 72, 07, 58,  3FC
  29. 380 DATA 9D, 2E, FF, 2E, 67, 01, FA, E4, 61, 8A, E0, 0C, 80, E6, 61, 86,  862
  30. 390 DATA E0, B0, 20, E6, 20, FB, 53, 51, 52, 56, 57, 1E, 06, 55, 2E, 80,  67B
  31. 400 DATA 3E, 6F, 01, FF, 74, 1F, 2E, C6, 06, 6F, 01, FF, 8C, C8, 8E, D8,  763
  32. 410 DATA BE, 58, 04, 2E, 8E, 06, 76, 01, 2E, 8B, 3E, 78, 01, B9, 20, 00,  49C
  33. 420 DATA E8, C3, 01, EB, 7A, 2E, C7, 06, 76, 01, 00, B8, 2E, C6, 06, 7A,  6AF
  34. 430 DATA 01, 00, B8, 40, 00, 8E, C0, 26, F6, 06, 63, 00, 20, 74, 09, 2E,  497
  35. 440 DATA C7, 06, 76, 01, 00, B0, EB, 11, B4, 12, B3, 10, CD, 10, 80, FB,  6D1
  36. 450 DATA 10, 75, 06, 2E, C6, 06, 7A, 01, 01, 26, A1, 4A, 00, D1, E0, 2E,  4F1
  37. 460 DATA 8A, 1E, 62, 01, F6, E3, 26, 8B, 1E, 4A, 00, 80, EB, 20, 2E, 2A,  5E0
  38. 470 DATA 1E, 63, 01, D0, E3, 03, C3, 26, 03, 06, 4E, 00, 2E, A3, 78, 01,  4C2
  39. 480 DATA 2E, 8E, 1E, 76, 01, 2E, 8B, 36, 78, 01, 8C, C8, 8E, C0, BF, 58,  672
  40. 490 DATA 04, B9, 20, 00, E8, 4F, 01, 2E, A0, 64, 01, 2E, A2, 6F, 01, 5D,  4E5
  41. 500 DATA 07, 1F, 5F, 5E, 5A, 59, 5B, 58, 9D, CF, 9C, 2E, FF, 1E, 6B, 01,  608
  42. 510 DATA 2E, 80, 3E, 6F, 01, FF, 74, 26, 2E, FE, 0E, 6F, 01, 75, 1F, 50,  583
  43. 520 DATA 2E, A0, 64, 01, 2E, A2, 6F, 01, 53, 51, 52, 56, 57, 1E, 06, FB,  535
  44. 530 DATA E8, 11, 00, E8, 9A, 00, 07, 1F, 5F, 5E, 5A, 59, 5B, 58, CF, 4E,  5E1
  45. 540 DATA 4F, 4E, 45, 00, 2E, 8B, 16, 65, 01, 83, C2, 03, 52, EC, 2E, A2,  56D
  46. 550 DATA B3, 02, 0C, 80, EE, 83, EA, 03, EC, 8A, D8, 42, EC, 8A, F8, 0B,  8A8
  47. 560 DATA DB, 75, 09, 2E, C7, 06, 71, 01, 00, 00, EB, 0C, B8, 00, C2, BA,  5F1
  48. 570 DATA 01, 00, F7, F3, 2E, A3, 71, 01, 5A, 2E, A0, B3, 02, EE, 2E, A0,  6C7
  49. 580 DATA B3, 02, 24, 03, 04, 05, 2E, A2, 74, 01, 2E, A0, B3, 02, D0, E8,  565
  50. 590 DATA D0, E8, 24, 01, 04, 01, 2E, A2, 75, 01, 2E, 8A, 1E, B3, 02, B1,  564
  51. 600 DATA 03, D2, EB, 80, E3, 03, 32, FF, 2E, 8A, 87, AF, 02, 2E, A2, 73,  78A
  52. 610 DATA 01, 2E, 8B, 16, 65, 01, 83, C2, 06, EC, 24, F0, D0, E8, D0, E8,  7F1
  53. 620 DATA 2E, A2, 70, 01, 83, EA, 02, EC, 24, 03, 2E, 08, 06, 70, 01, C3,  533
  54. 630 DATA 8C, C8, 8E, D8, 8E, C0, BE, 58, 04, BF, 98, 04, B9, 20, 00, FC,  852
  55. 640 DATA F3, A5, BE, 7B, 01, BF, 98, 04, B3, 01, 2E, 8A, 26, 61, 01, B9,  6DA
  56. 650 DATA 06, 00, 51, 56, 57, 2E, 84, 1E, 70, 01, 74, 07, B9, 03, 00, AC,  428
  57. 660 DATA AB, E2, FC, 5F, 5E, D0, E3, 83, C6, 03, 83, C7, 08, 59, E2, E2,  9B4
  58. 670 DATA 2E, A1, 71, 01, E8, 4C, 00, BF, D2, 04, 2E, A0, 73, 01, 2E, 8A,  604
  59. 680 DATA 26, 61, 01, AB, 2E, A0, 74, 01, 04, 30, AB, 2E, A0, 75, 01, 04,  49D
  60. 690 DATA 30, AB, BE, 98, 04, 2E, 8E, 06, 76, 01, 2E, 8B, 3E, 78, 01, B9,  597
  61. 700 DATA 20, 00, E8, 01, 00, C3, FC, 2E, F6, 06, 7A, 01, 01, 74, 0D, BA,  5A9
  62. 710 DATA DA, 03, EC, A8, 08, 75, FB, EC, A8, 08, 74, FB, FA, F3, A5, FB,  A81
  63. 720 DATA C3, 0A, 00, 33, C9, 41, 33, D2, 2E, F7, 36, D1, 03, 52, 0B, C0,  65B
  64. 730 DATA 75, F3, 58, 04, 30, 2E, 8A, 26, 61, 01, AB, E2, F5, C3, 55, 73,  741
  65. 740 DATA 61, 67, 65, 3A, 20, 4C, 49, 54, 45, 53, 20, 5B, 63, 6F, 6D, 70,  532
  66. 750 DATA 6F, 72, 74, 5D, 20, 5B, 55, 5D, 24, 4E, 6F, 74, 20, 49, 6E, 73,  57E
  67. 760 DATA 74, 61, 6C, 6C, 65, 64, 24, 43, 61, 6E, 6E, 6F, 74, 20, 55, 6E,  5E0
  68. 770 DATA 69, 6E, 73, 74, 61, 6C, 6C, 24, 41, 6C, 72, 65, 61, 64, 79, 20,  5FD
  69. 780 DATA 49, 6E, 73, 74, 61, 6C, 6C, 65, 64, 24, 49, 6E, 76, 61, 6C, 69,  627
  70. 790 DATA 64, 20, 43, 4F, 4D, 20, 50, 6F, 72, 74, 24, 55, 6E, 69, 6E, 73,  559
  71. 800 DATA 74, 61, 6C, 6C, 65, 64, 24, 00, FC, C7, 06, 00, 01, 00, 00, 33,  497
  72. 810 DATA DB, 8C, C8, 43, 8E, C3, 3B, C3, 74, 11, BE, 00, 01, 8B, FE, B9,  847
  73. 820 DATA 10, 00, F3, A6, 75, ED, C6, 06, 57, 04, 01, BE, 81, 00, AC, 3C,  65A
  74. 830 DATA 20, 74, FB, 3C, 0D, 74, 50, 3C, 30, 72, 0A, 3C, 39, 76, 12, 24,  4A5
  75. 840 DATA DF, 3C, 55, 74, 24, BA, EE, 03, B4, 09, CD, 21, B8, 01, 4C, CD,  730
  76. 850 DATA 21, 2C, 31, 8A, D8, CD, 11, D0, EC, 80, E4, 07, BA, 3A, 04, 3A,  717
  77. 860 DATA E3, 76, E5, 88, 1E, 65, 01, EB, 1E, BA, 09, 04, 80, 3E, 57, 04,  633
  78. 870 DATA 00, 74, D5, E8, 70, 00, BA, 17, 04, 72, CD, BA, 4B, 04, B4, 09,  67B
  79. 880 DATA CD, 21, B8, 00, 4C, CD, 21, BA, 28, 04, 80, 3E, 57, 04, 00, 75,  554
  80. 890 DATA B7, B8, 40, 00, 8E, C0, 33, FF, 8B, 1E, 65, 01, D1, E3, 26, 8B,  7A3
  81. 900 DATA 01, A3, 65, 01, B8, 09, 35, CD, 21, 89, 1E, 67, 01, 8C, 06, 69,  4F8
  82. 910 DATA 01, B8, 09, 25, BA, 8D, 01, CD, 21, B8, 08, 35, CD, 21, 89, 1E,  5A7
  83. 920 DATA 6B, 01, 8C, 06, 6D, 01, B8, 08, 25, BA, 7A, 02, CD, 21, A1, 2C,  542
  84. 930 DATA 00, 8E, C0, B4, 49, CD, 21, B4, 09, BA, 03, 01, CD, 21, B8, 00,  65A
  85. 940 DATA 31, BA, 4E, 00, CD, 21, 8C, C1, B8, 09, 35, CD, 21, 8C, C0, 3B,  6DF
  86. 950 DATA C1, 75, 30, B8, 08, 35, CD, 21, 8C, C0, 3B, C1, 75, 25, 8E, C1,  77A
  87. 960 DATA B4, 49, CD, 21, 72, 1D, 1E, B8, 09, 25, 26, C5, 16, 67, 01, CD,  5B4
  88. 970 DATA 21, B8, 08, 25, 26, C5, 16, 6B, 01, CD, 21, 1F, 26, F7, 16, 00,  4B3
  89. 980 DATA 01, F8, C3, F9, C3, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,  378
  90. 990 DATA 108245
  91.  
  92.