home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / decode / xxd11.bas < prev   
Encoding:
BASIC Source File  |  1990-01-17  |  5.0 KB  |  73 lines
  1. 100 REM - BASIC PROGRAM TO CREATE XXD11.COM   (fast xxdecoder)
  2. 110 CLS:PRINT "Creating XXD11.COM   ": OPEN "XXD11.COM   " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO    54
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    54 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: CHECKSUM#=CHECKSUM#+VAL("&H"+BYTE$)
  7. 160   LINESUM#=LINESUM#+VAL("&H"+BYTE$)
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(VAL("&H"+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 "XXD11.COM    created successfully": SYSTEM
  17. 260 PRINT: PRINT "XXD11.COM    is not valid!": END
  18. 270 DATA E9, A7,  0, 49, 6E, 70, 75, 74, 20, 66, 69, 6C, 65, 20, 65, 72,   657
  19. 280 DATA 72, 6F, 72, 2E,  D,  A, 4F, 75, 74, 70, 75, 74, 20, 66, 69, 6C,   584
  20. 290 DATA 65, 20, 65, 72, 72, 6F, 72, 2E,  D,  A, 73, 74, 61, 72, 74, 20,   542
  21. 300 DATA 6E, 6F, 74, 20, 66, 6F, 75, 6E, 64, 2E,  D,  A, 45, 6E, 64, 20,   509
  22. 310 DATA 6E, 6F, 74, 20, 66, 6F, 75, 6E, 64, 2E,  D,  A, 65, 78, 69, 73,   58B
  23. 320 DATA 74, 73, 2E, 20, 41, 62, 6F, 72, 74, 69, 6E, 67, 21,  D,  A,  0,   4A3
  24. 330 DATA  0,  0,  0, EA,  3, EA,  3, 9A,  3,  0, 2B, 2D, 30, 31, 32, 33,   395
  25. 340 DATA 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 48, 49, 4A,   3FE
  26. 350 DATA 4B, 4C, 4D, 4E, 4F, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 5A,   528
  27. 360 DATA 61, 62, 63, 64, 65, 66, 67, 68, 69, 6A, 6B, 6C, 6D, 6E, 6F, 70,   688
  28. 370 DATA 71, 72, 73, 74, 75, 76, 77, 78, 79, 7A, E8, F0,  1, E8, 62,  1,   7BB
  29. 380 DATA BF, 9A,  3, E8, EF,  0, AD, 3D, 62, 65, 75, F4, AD, 3D, 67, 69,   807
  30. 390 DATA 75, EE, AD, 3D, 6E, 20, 75, E8, BF, 9A,  3, AC, 3A, C4, 76, FB,   8AF
  31. 400 DATA AC, 3A, C4, 75, FB, AC, 3A, C4, 76, FB, 3A, C4, 74,  4, AA, AC,   901
  32. 410 DATA EB, F8, BA, 9A,  3, 33, C9, 88,  D, 80, 3E, 69,  1, FF, 74, 20,   786
  33. 420 DATA B4, 4E, CD, 21, 3C,  2, 74, 18, 3C, 12, 74, 14, 8B, CF, 2B, CA,   5DF
  34. 430 DATA 49, 49, E8, 3B,  1, BA, 4C,  1, B9, 13,  0, B0,  5, E9, 24,  1,   54C
  35. 440 DATA B4, 3C, CD, 21, 73,  3, E9, F1,  0, A3, 61,  1, BF, 9A,  3, E8,   777
  36. 450 DATA 83,  0, 8A,  4,  A, C0, 74, 65, 3C, 2B, 74, 61, 3C, 20, 74, 5D,   51D
  37. 460 DATA 57, BB, 6A,  1, BA, 40,  0, 56, AC,  A, C0, 74, 12, 8B, FB, 8B,   6DA
  38. 470 DATA CA, F2, AE, 75, 45, 8B, C7, 48, 2B, C3, 88, 44, FF, EB, E9, 5E,   9A9
  39. 480 DATA 5F, AC, 32, E4, 8B, E8, B9,  4,  6, AD, 86, C4, 8A, D0, D0, E4,   95C
  40. 490 DATA D0, E4, D2, E8,  A, C4, AA, 4D, 74, B5, 8A, E2, AC, 8A, D0, D2,   AA0
  41. 500 DATA E4, D0, E8, D0, E8,  A, C4, AA, 4D, 74, A4, 8A, E2, AC, 8A, CD,   AA0
  42. 510 DATA D2, E4,  A, C4, AA, 4D, 75, CE, EB, 95, E9, A1,  0, E8, 15,  0,   8C5
  43. 520 DATA AD, 3D, 65, 6E, 75,  5, AC, 3C, 64, 74,  3, E8, 9C,  0, E8, 51,   6B7
  44. 530 DATA  0, B4, 4C, CD, 21, 8B, 36, 63,  1, 89, 3E, 67,  1, BD, 43,  0,   542
  45. 540 DATA BF, 4A,  3, C6,  5,  0, 3B, 36, 65,  1, 72,  6, E8, 33,  0, E8,   529
  46. 550 DATA 50,  0, AC, 3C,  D, 74, 1B, 3C,  A, 74, 18, AA, 4D, 75, E7, 3B,   534
  47. 560 DATA 36, 65,  1, 72,  3, E8, 3A,  0, AC, 3C,  A, 75, F2, BF, 9A,  3,   5E8
  48. 570 DATA EB, C7, 46, C6,  5,  0, 89, 36, 63,  1, 8B, 3E, 67,  1, BE, 4A,   61F
  49. 580 DATA  3, C3, BA, 9A,  3, 8B, CA, 87,  E, 67,  1, 2B, CA, 76,  A, 8B,   66F
  50. 590 DATA 1E, 61,  1, B4, 40, CD, 21, 72,  1, C3, BA, 16,  1, B9, 14,  0,   536
  51. 600 DATA EB, 22, BA, EA,  3, B9,  0, E1, 8B, 1E, 5F,  1, B4, 3F, CD, 21,   738
  52. 610 DATA 72,  C,  B, C0, 74,  8, 8B, F2,  3, C6, A3, 65,  1, C3, BA,  3,   694
  53. 620 DATA  1, B9, 13,  0, E8,  9,  0, E9, 67, FF, BA, 3C,  1, B9, 10,  0,   5CD
  54. 630 DATA 50, BB,  2,  0, B4, 40, CD, 21, 58, C3, 54, 68, 69, 73, 20, 70,   632
  55. 640 DATA 72, 6F, 67, 72, 61, 6D, 20, 72, 65, 71, 75, 69, 72, 65, 73, 20,   638
  56. 650 DATA 44, 4F, 53, 20, 56, 65, 72, 73, 69, 6F, 6E, 20, 32, 2E, 30, 20,   4BC
  57. 660 DATA 6F, 72, 20, 68, 69, 67, 68, 65, 72, 2E,  D,  A, 24,  D,  A, 49,   441
  58. 670 DATA 6E, 70, 75, 74, 20, 70, 61, 74, 68, 2F, 66, 69, 6C, 65, 3A, 20,   5BD
  59. 680 DATA 20, 4E, 6F, 20, 61, 63, 74, 69, 6F, 6E,  D,  A, 24, B4, 30, CD,   567
  60. 690 DATA 21, 3C,  2, 73,  C, BA, 4A,  3, B4,  9, CD, 21, B8,  1, 4C, CD,   562
  61. 700 DATA 21, E8, 36,  0, 73, 23, BA, 7D,  3, B9, 14,  0, BB,  2,  0, B4,   54D
  62. 710 DATA 40, CD, 21, BF, 7F,  0, C6,  5, 50, 8B, D7, B4,  A, CD, 21, E8,   77D
  63. 720 DATA 18,  0, 73,  5, BA, 91,  3, EB, CF, BA, 2C,  4, B8,  0, 3D, CD,   644
  64. 730 DATA 21, 72,  4, A3, 5F,  1, C3, E9, 44, FF, BE, 80,  0, BF, 2C,  4,   6B6
  65. 740 DATA FC, AC,  A, C0, 74, 2F, B4, 20, AC, 3A, C4, 76, FB, 3C, 2F, 74,   7E3
  66. 750 DATA  4, 3C, 2D, 75, 18, 8B, D0, 8B,  4, 24, 5F, 3D, 4F, 20, 8B, C2,   560
  67. 760 DATA 75,  B, F6, 16, 69,  1, 46, 46, AC, 3A, C4, 76,  A, AA, AC, EB,   6ED
  68. 770 DATA F8, 3A, C4, 76,  2, F9, C3, C6,  5,  0, F8, C3, 58, 58, 44, 20,   7C4
  69. 780 DATA 76, 31, 2E, 31,  0, 44, 61, 76, 69, 64, 20, 50, 20, 4B, 69, 72,   4A4
  70. 790 DATA 73, 63, 68, 62, 61, 75, 6D, 2C, 20, 54, 6F, 61, 64, 20, 48, 61,   580
  71. 800 DATA 6C, 6C,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,    D8
  72. 810 DATA 87150
  73.