home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1994 September / Simtel-MSDOS-Sep1994-CD2.iso / starter / uuencode.bas < prev    next >
Encoding:
BASIC Source File  |  1994-05-05  |  4.7 KB  |  82 lines
  1. 100 REM - BASIC PROGRAM TO CREATE UUENCODE.COM v2.0 (a fast uuencoder)
  2. 105 REM UUENCODE.BAS created by w8sdz@SimTel.Coast.NET (Keith Petersen)
  3. 110 CLS:PRINT "Creating UUENCODE.COM": OPEN "UUENCODE.COM" AS #1 LEN = 1
  4. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  5. 130 FOR I = 1 TO    62
  6. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    62 - 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 "UUENCODE.COM created successfully": SYSTEM
  18. 260 PRINT: PRINT "UUENCODE.COM is not valid!": END
  19. 270 DATA EB,64,90, D, A,49,6E,70,75,74,20,70,61,74,68,2F,  602
  20. 280 DATA 66,69,6C,65,3A,20,20,49,6E,70,75,74,20,66,69,6C,  585
  21. 290 DATA 65,20,65,72,72,6F,72,2E,4F,75,74,70,75,74,20,66,  5F4
  22. 300 DATA 69,6C,65,20,65,72,72,6F,72,2E,60, D, A,65,6E,64,  560
  23. 310 DATA  D, A,4E,6F,20,61,63,74,69,6F,6E,20,65,78,69,73,  54B
  24. 320 DATA 74,73,21,20,20,41,62,6F,72,74,69,6E,67,21, 0, 0,  49F
  25. 330 DATA  1, 0,2E, 4, 0, 0,B4,30,CD,21,3C, 2,73, C,BA,AF,  42B
  26. 340 DATA  4,E9,3B, 1,E8,B8, 1,E9,31, 1,E8,D8, 1,73,32,BA,  705
  27. 350 DATA F2, 3,B9,BA, 0,90,E8,A6, 1,BA, 3, 1,B9,14, 0,BB,  6CD
  28. 360 DATA  2, 0,B4,40,CD,21,BF,7F, 0,C6, 5,50,8B,D7,B4, A,  65D
  29. 370 DATA CD,21,E8,B0, 1,73, A,B4, 1,BA,42, 1,B9, 9, 0,EB,  663
  30. 380 DATA C3,BA,DE, 3,8B,F2,B8, 0,3D,CD,21,73, 3,E9,63, 1,  781
  31. 390 DATA A3,5E, 1,8B,CF,2B,CE,4F,B0,5C,FD,F2,AE,FC,74, 8,  8C5
  32. 400 DATA 8B,FE,80,7D, 1,3A,75, 2,47,47,8B,F7,8B,D6,BF,AA,  812
  33. 410 DATA  3,AC, A,C0,74, 3,AA,EB,F8,B8, D, A,AB,57,8B,F2,  7CB
  34. 420 DATA BF,2E, 4,8B,D7,AC, A,C0,75, 2,B0,2E,AA,3C,2E,75,  6A7
  35. 430 DATA F4,B8,75,75,AB,B8,65, 0,89, 5,33,C9,80,3E,65, 1,  70C
  36. 440 DATA FF,74,25,B4,4E,CD,21,3C, 2,74,1D,3C,12,74,19,59,  58B
  37. 450 DATA 8B,CF,2B,CA,BB, 2, 0, 3,CB,B4,40,CD,21,BA,4B, 1,  6C2
  38. 460 DATA B9,13, 0,B0, 5,E9,3C,FF,B4,3C,CD,21,59,73, 3,E9,  73B
  39. 470 DATA AF, 0,A3,60, 1,BA,A0, 3,2B,CA,E8,94, 0,E8,A9, 0,  712
  40. 480 DATA 74,3B,B1, 6,AC,8A,E0,D0,E8,D0,E8,AA,AC,8A,D0,D1,  A6D
  41. 490 DATA E8,D1,E8,D1,E8,D1,E8,AA,8A,E2,AC,8A,D0,D3,E8,AA,  C94
  42. 500 DATA 8A,C2,AA,83,C5, 3,83,FD,2D,75, 5,E8,39, 0,B1, 6,  740
  43. 510 DATA 3B,36,62, 1,72,CE,80,3E,64, 1, 1,75,C0, B,ED,74,  5D9
  44. 520 DATA  9,2B,36,62, 1,2B,EE,E8,1D, 0,BA,3A, 1,B9, 8, 0,  4A1
  45. 530 DATA E8,3E, 0,8B,1E,60, 1,B4,3E,CD,21,B4,4C,CD,21,50,  64E
  46. 540 DATA B4, 9,CD,21,58,EB,F4,BA,A0, 3,8B,CF,2B,CA,51,8B,  86A
  47. 550 DATA FA,8B,C5,88, 5,B4,20,BB,60,3F,8A, 5,22,C7, 2,C4,  743
  48. 560 DATA 3A,C4,75, 2,8A,C3,AA,E2,F1,59,B8, D, A,89, 5,41,  736
  49. 570 DATA 41,8B,1E,60, 1,B4,40,CD,21,72, 6,8B,FA,47,33,ED,  691
  50. 580 DATA C3,BA,28, 1,B9,12, 0,EB,30,BA,2E, 4,B9,C8,AF,8B,  733
  51. 590 DATA 1E,5E, 1,B4,3F,CD,21,72,1A,8B,F2,8B,DA, 3,D8,3B,  6E2
  52. 600 DATA C1,74, 9,C7, 7, 0, 0,C6, 6,64, 1, 1,89,1E,62, 1,  448
  53. 610 DATA  B,C0,C3,BA,17, 1,B9,11, 0,E8, 3, 0,E9,7C,FF,50,  6C9
  54. 620 DATA 52,51,BA,D8, 4,B9, 2, 0,90,E8,11, 0,59,5A,E8, C,  624
  55. 630 DATA  0,BA,D8, 4,B9, 2, 0,90,E8, 2, 0,58,C3,BB, 2, 0,  5A3
  56. 640 DATA B4,40,CD,21,C3,BE,80, 0,BF,DE, 3,FC,AC, A,C0,74,  869
  57. 650 DATA 2F,B4,20,AC,3A,C4,76,FB,3C,2F,74, 4,3C,2D,75,1C,  5FB
  58. 660 DATA 8B,D0,8B, 4,3C,3F,74,1F,24,5F,3D,4F,20,8B,C2,75,  5E9
  59. 670 DATA  B,F6,16,65, 1,46,46,AC,3A,C4,76, 6,AA,AC,EB,F8,  768
  60. 680 DATA F9,C3,C6, 5, 0,F8,C3,58,BA,F2, 3,B0, 1,E9, F,FF,  8F1
  61. 690 DATA 62,65,67,69,6E,20,36,34,34,20,55,55,45,4E,43,4F,  4B2
  62. 700 DATA 44,45,20,76,32,2E,30, 0,44,61,76,69,64,20,50,20,  427
  63. 710 DATA 4B,69,72,73,63,68,62,61,75,6D,2C,20,54,6F,61,64,  5DD
  64. 720 DATA 20,48,61,6C,6C,2C,20,47,69,76,65,6E,20,74,6F,20,  509
  65. 730 DATA 74,68,65,20,70,75,62,6C,69,63,20,64,6F,6D,61,69,  60A
  66. 740 DATA 6E, 0,55,55,45,4E,43,4F,44,45,20,5B,2D,6F,5D,20,  45A
  67. 750 DATA 5B,64,3A,5D,5B,5C,70,61,74,68,5C,5D,62,69,6E,61,  60D
  68. 760 DATA 72,79,2E,66,69,6C,20,3C,52,45,54,55,52,4E,3E, D,  4DB
  69. 770 DATA  A,70,72,6F,64,75,63,65,73,20,62,69,6E,61,72,79,  614
  70. 780 DATA 2E,55,55,45,20,6F,6E,20,63,75,72,72,65,6E,74,20,  55D
  71. 790 DATA 64,72,69,76,65,5C,70,61,74,68, D, A,28,70,72,6F,  5B3
  72. 800 DATA 76,69,64,69,6E,67,20,62,69,6E,61,72,79,2E,55,55,  5FE
  73. 810 DATA 45,20,64,6F,65,73,6E,27,74,20,61,6C,72,65,61,64,  5A2
  74. 820 DATA 79,20,65,78,69,73,74,29,2E, D, A,2D,6F,20,73,77,  4DA
  75. 830 DATA 69,74,63,68,20,66,6F,72,63,65,73,20,6F,76,65,72,  626
  76. 840 DATA 77,72,69,74,65,20,6F,66,20,65,78,69,73,74,69,6E,  644
  77. 850 DATA 67,20,62,69,6E,61,72,79,2E,55,55,45, D, A,24,54,  4B8
  78. 860 DATA 68,69,73,20,70,72,6F,67,72,61,6D,20,72,65,71,75,  639
  79. 870 DATA 69,72,65,73,20,44,4F,53,20,56,32,2E,30,20,6F,72,  4C0
  80. 880 DATA 20,68,69,67,68,65,72,2E, D, A,24, 0, 0, 0, 0, 0,  300
  81. 890 DATA 100294
  82.