home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / decode / uud19.bas < prev    next >
Encoding:
BASIC Source File  |  1990-02-24  |  4.5 KB  |  69 lines
  1.  
  2. 100 REM - BASIC PROGRAM TO CREATE UUD19.COM (a fast uudecoder)
  3. 110 CLS:PRINT "Creating UUD19.COM   ": OPEN "UUD19.COM   " AS #1 LEN = 1
  4. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  5. 130 FOR I = 1 TO    47
  6. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    47 - I ;
  7. 150  FOR J = 1 TO  16: READ BYTE$: CHECKSUM#=CHECKSUM#+VAL("&H"+BYTE$)
  8. 160   LINESUM#=LINESUM#+VAL("&H"+BYTE$)
  9. 170   IF (BYTE < 256) THEN LSET A$=CHR$(VAL("&H"+BYTE$)): PUT #1
  10. 180  NEXT J
  11. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  12. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  13. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  14. 220 NEXT I
  15. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  16. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  17. 250 PRINT: PRINT "UUD19.COM    created successfully": SYSTEM
  18. 260 PRINT: PRINT "UUD19.COM    is not valid!": END
  19. 270 DATA EB, 54, 90, 49, 6E, 70, 75, 74, 20, 66, 69, 6C, 65, 20, 65, 72,   696
  20. 280 DATA 72, 6F, 72, 2E,  D,  A, 4F, 75, 74, 70, 75, 74, 20, 66, 69, 6C,   584
  21. 290 DATA 65, 20, 65, 72, 72, 6F, 72, 2E,  D,  A, 73, 74, 61, 72, 74, 20,   542
  22. 300 DATA 6E, 6F, 74, 20, 66, 6F, 75, 6E, 64, 2E,  D,  A, 45, 6E, 64, 20,   509
  23. 310 DATA 6E, 6F, 74, 20, 66, 6F, 75, 6E, 64, 2E,  D,  A,  0,  0,  0,  0,   3D2
  24. 320 DATA 62,  3, 62,  3, 12,  3, E8, BC,  1, E8, 2D,  1, BF, 12,  3, E8,   556
  25. 330 DATA AA,  0, AD, 3D, 62, 65, 75, F4, AD, 3D, 67, 69, 75, EE, AD, 3D,   7CB
  26. 340 DATA 6E, 20, 75, E8, BF, 12,  3, AC, 3A, C4, 76, FB, AC, 3A, C4, 75,   7F9
  27. 350 DATA FB, AC, 3A, C4, 76, FB, 3A, C4, 74,  4, AA, AC, EB, F8, BA, 12,   991
  28. 360 DATA  3, 33, C9, 88,  D, B4, 3C, CD, 21, 73,  3, E9, E3,  0, A3, 4E,   6A5
  29. 370 DATA  1, BF, 12,  3, E8, 65,  0, AC,  A, C0, 74, 48, BB, 20, 20, 2A,   579
  30. 380 DATA C3,  A, C0, 74, 3F, 32, E4, 8B, E8, B9,  4,  6, AC, 8A, E0, AC,   84E
  31. 390 DATA 8A, D0, 2B, C3, D0, E4, D0, E4, D2, E8,  A, C4, AA, 4D, 74, D4,   A77
  32. 400 DATA 8A, E2, AC, 8A, D0, 2B, C3, D2, E4, D0, E8, D0, E8,  A, C4, AA,   AFE
  33. 410 DATA 4D, 74, C1, 8A, E2, AC, 2B, C3, 8A, CD, D2, E4,  A, C4, AA, 4D,   95A
  34. 420 DATA 75, C7, EB, B0, E8, 15,  0, AD, 3D, 65, 6E, 75,  5, AC, 3C, 64,   757
  35. 430 DATA 74,  3, E8, AE,  0, E8, 61,  0, B4, 4C, CD, 21, 8B, 36, 50,  1,   656
  36. 440 DATA 89, 3E, 54,  1, BD, 50,  0, BF, C2,  2, 33, C0, AB, B9, 27,  0,   62A
  37. 450 DATA B8, 20, 20, F3, AB, BF, C2,  2, 3B, 36, 52,  1, 72,  6, E8, 38,   675
  38. 460 DATA  0, E8, 55,  0, AC, 3C, 60, 75,  4, B0, 20, EB,  8, 3C,  D, 74,   57E
  39. 470 DATA 1B, 3C,  A, 74, 18, AA, 4D, 75, DF, 3B, 36, 52,  1, 72,  3, E8,   559
  40. 480 DATA 37,  0, AC, 3C,  A, 75, F2, BF, 12,  3, EB, B4, 46, 89, 36, 50,   658
  41. 490 DATA  1, 8B, 3E, 54,  1, BE, C2,  2, C3, BA, 12,  3, 8B, CA, 87,  E,   61D
  42. 500 DATA 54,  1, 2B, CA, 76,  A, 8B, 1E, 4E,  1, B4, 40, CD, 21, 72,  1,   517
  43. 510 DATA C3, BA, 16,  1, B9, 14,  0, EB, 22, BA, 62,  3, B9, 9E, FA, 8B,   769
  44. 520 DATA 1E, 4C,  1, B4, 3F, CD, 21, 72,  C,  B, C0, 74,  8, 8B, F2,  3,   591
  45. 530 DATA C6, A3, 52,  1, C3, BA,  3,  1, B9, 13,  0, 50, E8,  A,  0, 58,   5A3
  46. 540 DATA E9, 55, FF, BA, 3C,  1, B9, 10,  0, BB,  2,  0, B4, 40, CD, 21,   69C
  47. 550 DATA C3, 90, 54, 68, 69, 73, 20, 50, 72, 6F, 67, 72, 61, 6D, 20, 52,   655
  48. 560 DATA 65, 71, 75, 69, 72, 65, 73, 20, 44, 4F, 53, 20, 56, 65, 72, 73,   5C4
  49. 570 DATA 69, 6F, 6E, 20, 32, 2E, 30, 20, 6F, 72, 20, 68, 69, 67, 68, 65,   51C
  50. 580 DATA 72, 2E,  D,  A, 24,  D,  A, 49, 6E, 70, 75, 74, 20, 70, 61, 74,   467
  51. 590 DATA 68, 2F, 66, 69, 6C, 65, 3A, 20, 20, 4E, 6F, 20, 61, 63, 74, 69,   52F
  52. 600 DATA 6F, 6E,  D,  A, 24, B4, 30, CD, 21, 3C,  2, 73,  C, BA, C2,  2,   525
  53. 610 DATA B4,  9, CD, 21, B8,  1, 4C, CD, 21, E8, 36,  0, 73, 23, BA, F5,   701
  54. 620 DATA  2, B9, 14,  0, BB,  2,  0, B4, 40, CD, 21, BF, 7F,  0, C6,  5,   577
  55. 630 DATA 50, 8B, D7, B4,  A, CD, 21, E8, 18,  0, 73,  5, BA,  9,  3, EB,   687
  56. 640 DATA CF, BA, 84,  3, B8,  0, 3D, CD, 21, 72,  4, A3, 4C,  1, C3, E9,   705
  57. 650 DATA 43, FF, BE, 80,  0, BF, 84,  3, FC, AC,  A, C0, 74,  F, B4, 20,   78F
  58. 660 DATA AC, 3A, C4, 76, FB, 3A, C4, 76,  6, AA, AC, EB, F8, F9, C3, C6,   A50
  59. 670 DATA  5,  0, F8, C3, 55, 55, 44, 45, 43, 4F, 44, 45, 20, 76, 31, 2E,   503
  60. 680 DATA 39,  0, 4F, 72, 69, 67, 69, 6E, 61, 6C, 6C, 79, 20, 62, 79, 20,   56E
  61. 690 DATA 54, 68, 65, 6F, 64, 6F, 72, 65, 20, 41, 2E, 20, 4B, 61, 6C, 64,   565
  62. 700 DATA 69, 73,  0, 54, 68, 6F, 72, 6F, 75, 67, 68, 6C, 79, 20, 72, 65,   608
  63. 710 DATA 68, 61, 63, 6B, 65, 64, 20, 62, 79, 20, 44, 61, 76, 69, 64, 20,   583
  64. 720 DATA 50, 20, 4B, 69, 72, 73, 63, 68, 62, 61, 75, 6D, 2C, 20, 54, 6F,   588
  65. 730 DATA 61, 64, 20, 48, 61, 6C, 6C,  0,  0,  0,  0,  0,  0,  0,  0,  0,   266
  66. 740 DATA 76583
  67.  
  68.  
  69.