100 REM - BASIC PROGRAM TO CREATE UUENCODE.COM v2.1 (a fast uuencoder) 105 REM UUENCODE.BAS was created by w8sdz@Simtel.Net (Keith Petersen) 110 CLS:PRINT "Creating UUENCODE.COM": OPEN "UUENCODE.COM" AS #1 LEN = 1 120 FIELD #1, 1 AS A$: CHECKSUM#=0 130 FOR I = 1 TO 63 140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 63 - I ; 150 FOR J = 1 TO 16: READ BYTE$: BYTE = VAL("&H" + BYTE$) 160 CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE 170 IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1 180 NEXT J 190 READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$) 200 IF LINECHECK# = LINESUM# THEN GOTO 220 210 LOCATE 4,2: PRINT "Error in line #" ; 260 + 10 * I: GOTO 260 220 NEXT I 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$) 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260 250 PRINT: PRINT "UUENCODE.COM created successfully": SYSTEM 260 PRINT: PRINT "UUENCODE.COM is not valid!": END 270 DATA EB,63, D, A,49,6E,70,75,74,20,70,61,74,68,2F,66, 5D7 280 DATA 69,6C,65,3A,20,20,49,6E,70,75,74,20,66,69,6C,65, 584 290 DATA 20,65,72,72,6F,72,2E,4F,75,74,70,75,74,20,66,69, 5F8 300 DATA 6C,65,20,65,72,72,6F,72,2E,60, D, A,65,6E,64, D, 504 310 DATA A,4E,6F,20,61,63,74,69,6F,6E,20,65,78,69,73,74, 5B2 320 DATA 73,21,20,20,41,62,6F,72,74,69,6E,67,21, 0, 0, 1, 42C 330 DATA 0,38, 4, 0, 0,B4,30,CD,21,3C, 2,73, C,BA,B9, 4, 442 340 DATA E9,47, 1,E8,C4, 1,E9,3D, 1,E8,E2, 1,73,31,BA,FC, 82A 350 DATA 3,B9,BA, 0,E8,B3, 1,BA, 2, 1,B9,14, 0,BB, 2, 0, 559 360 DATA B4,40,CD,21,BF,7F, 0,C6, 5,50,8B,D7,B4, A,CD,21, 749 370 DATA E8,BB, 1,73, A,B4, 1,BA,41, 1,B9, 9, 0,EB,C4,BA, 6FD 380 DATA E8, 3,8B,F2,B8, 0,3D,CD,21,73, 3,E9,70, 1,A3,5D, 71B 390 DATA 1,8B,CF,2B,CE,4F,B0,5C,FD,F2,AE,FC,74, 8,8B,FE, 94D 400 DATA 80,7D, 1,3A,75, 2,47,47,8B,F7,8B,D6,BF,B4, 3,AC, 742 410 DATA A,C0,74, 3,AA,EB,F8,B8, D, A,AB,57,8B,F2,BF,38, 813 420 DATA 4,8B,D7,AC, A,C0,75, 2,B0,2E,AA,3C,2E,75,F4,B8, 766 430 DATA 75,75,AB,B8,65, 0,89, 5,33,C9,80,3E,64, 1,FF,74, 6D2 440 DATA 25,B4,4E,CD,21,3C, 2,74,1D,3C,12,74,19,59,8B,CF, 572 450 DATA 2B,CA,BB, 2, 0, 3,CB,B4,40,CD,21,BA,4A, 1,B9,13, 633 460 DATA 0,B0, 5,E9,3D,FF,B4,3C,CD,21,59,73, 3,E9,BC, 0, 72C 470 DATA A3,5F, 1,BA,AA, 3,2B,CA,E8,A1, 0,E8,B6, 0,74,48, 742 480 DATA B1, 6,AC,8A,E0,D0,E8,D0,E8,AA,AC,8A,D0,D1,E8,D1, B77 490 DATA E8,D1,E8,D1,E8,AA,8A,E2,AC,8A,D0,D3,E8,AA,8A,C2, C27 500 DATA AA,83,C5, 3,3B,36,61, 1,72, 7,80,3E,63, 1, 0,75, 4D8 510 DATA 17,83,FD,2D,75, 5,E8,39, 0,B1, 6,3B,36,61, 1,72, 55B 520 DATA C1,80,3E,63, 1, 1,75,B3, B,ED,74, 9,2B,36,61, 1, 544 530 DATA 2B,EE,E8,1D, 0,BA,39, 1,B9, 8, 0,E8,3E, 0,8B,1E, 5A2 540 DATA 5F, 1,B4,3E,CD,21,B4,4C,CD,21,50,B4, 9,CD,21,58, 681 550 DATA EB,F4,BA,AA, 3,8B,CF,2B,CA,51,8B,FA,8B,C5,88, 5, 948 560 DATA B4,20,BB,60,3F,8A, 5,22,C7, 2,C4,3A,C4,75, 2,8A, 66B 570 DATA C3,AA,E2,F1,59,B8, D, A,89, 5,41,41,8B,1E,5F, 1, 681 580 DATA B4,40,CD,21,72, 6,8B,FA,47,33,ED,C3,BA,27, 1,B9, 7A4 590 DATA 12, 0,EB,30,BA,38, 4,B9,C8,AF,8B,1E,5D, 1,B4,3F, 64D 600 DATA CD,21,72,1A,8B,F2,8B,DA, 3,D8,3B,C1,74, 9,C7, 7, 77E 610 DATA 0, 0,C6, 6,63, 1, 1,89,1E,61, 1, B,C0,C3,BA,16, 498 620 DATA 1,B9,11, 0,E8, 3, 0,E9,7C,FF,50,52,51,BA,E2, 4, 6AD 630 DATA B9, 2, 0,E8,10, 0,59,5A,E8, B, 0,BA,E2, 4,B9, 2, 5B4 640 DATA 0,E8, 2, 0,58,C3,BB, 2, 0,B4,40,CD,21,C3,BE,80, 6A5 650 DATA 0,BF,E8, 3,FC,AC, A,C0,74,2F,B4,20,AC,3A,C4,76, 7B3 660 DATA FB,3C,2F,74, 4,3C,2D,75,1C,8B,D0,8B, 4,3C,3F,74, 5B1 670 DATA 1F,24,5F,3D,4F,20,8B,C2,75, B,F6,16,64, 1,46,46, 518 680 DATA AC,3A,C4,76, 6,AA,AC,EB,F8,F9,C3,C6, 5, 0,F8,C3, 9A1 690 DATA 58,BA,FC, 3,B0, 1,E9,11,FF,90,62,65,67,69,6E,20, 770 700 DATA 36,34,34,20,55,55,45,4E,43,4F,44,45,20,76,32,2E, 40C 710 DATA 30, 0,44,61,76,69,64,20,50,20,4B,69,72,73,63,68, 50C 720 DATA 62,61,75,6D,2C,20,54,6F,61,64,20,48,61,6C,6C,2C, 546 730 DATA 20,47,69,76,65,6E,20,74,6F,20,74,68,65,20,70,75, 582 740 DATA 62,6C,69,63,20,64,6F,6D,61,69,6E, 0,55,55,45,4E, 56F 750 DATA 43,4F,44,45,20,5B,2D,6F,5D,20,5B,64,3A,5D,5B,5C, 4BC 760 DATA 70,61,74,68,5C,5D,62,69,6E,61,72,79,2E,66,69,6C, 654 770 DATA 20,3C,52,45,54,55,52,4E,3E, D, A,70,72,6F,64,75, 4BB 780 DATA 63,65,73,20,62,69,6E,61,72,79,2E,55,55,45,20,6F, 58C 790 DATA 6E,20,63,75,72,72,65,6E,74,20,64,72,69,76,65,5C, 627 800 DATA 70,61,74,68, D, A,28,70,72,6F,76,69,64,69,6E,67, 5BE 810 DATA 20,62,69,6E,61,72,79,2E,55,55,45,20,64,6F,65,73, 58D 820 DATA 6E,27,74,20,61,6C,72,65,61,64,79,20,65,78,69,73, 5E4 830 DATA 74,29,2E, D, A,2D,6F,20,73,77,69,74,63,68,20,66, 4B6 840 DATA 6F,72,63,65,73,20,6F,76,65,72,77,72,69,74,65,20, 643 850 DATA 6F,66,20,65,78,69,73,74,69,6E,67,20,62,69,6E,61, 61A 860 DATA 72,79,2E,55,55,45, D, A,24,54,68,69,73,20,70,72, 4DD 870 DATA 6F,67,72,61,6D,20,72,65,71,75,69,72,65,73,20,44, 60A 880 DATA 4F,53,20,56,32,2E,30,20,6F,72,20,68,69,67,68,65, 4CE 890 DATA 72,2E, D, A,24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, DB 900 DATA 100845