100 REM - BASIC program to create XXENCODE.COM (fast xxencoder) 105 REM XXENCODE.BAS was created by w8sdz@Simtel.Net (Keith Petersen) 110 CLS:PRINT "Creating XXENCODE.COM." : OPEN "XXENCODE.COM" AS #1 LEN = 1 120 FIELD #1, 1 AS A$: CHECKSUM#=0 130 FOR I = 1 TO 61 140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 61 - 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 "XXENCODE.COM created successfully": SYSTEM 260 PRINT: PRINT "XXENCODE.COM is not valid!": END 270 DATA E9,81, 1,58,58,45,20,5B,2D,6F,5D,20,5B,64,3A,5D, 54A 280 DATA 5B,5C,70,61,74,68,5C,5D,62,69,6E,61,72,79,2E,66, 636 290 DATA 69,6C,20,3C,52,45,54,55,52,4E,3E, D, A,70,72,6F, 4B7 300 DATA 64,75,63,65,73,20,62,69,6E,61,72,79,2E,58,58,45, 5DC 310 DATA 20,6F,6E,20,63,75,72,72,65,6E,74,20,64,72,69,76, 5F5 320 DATA 65,5C,70,61,74,68, D, A,28,70,72,6F,76,69,64,69, 5AA 330 DATA 6E,67,20,62,69,6E,61,72,79,2E,58,58,45,20,64,6F, 590 340 DATA 65,73,6E,27,74,20,61,6C,72,65,61,64,79,20,65,78, 5E0 350 DATA 69,73,74,29,2E, D, A,2D,6F,20,73,77,69,74,63,68, 50C 360 DATA 20,66,6F,72,63,65,73,20,6F,76,65,72,77,72,69,74, 644 370 DATA 65,20,6F,66,20,65,78,69,73,74,69,6E,67,20,62,69, 5D0 380 DATA 6E,61,72,79,2E,58,58,45, D, A,54,68,69,73,20,70, 51C 390 DATA 72,6F,67,72,61,6D,20,72,65,71,75,69,72,65,73,20, 638 400 DATA 44,4F,53,20,56,32,2E,30,20,6F,72,20,68,69,67,68, 4AD 410 DATA 65,72,2E, D, A, D, A,49,6E,70,75,74,20,70,61,74, 4A8 420 DATA 68,2F,66,69,6C,65,3A,20,20,49,6E,70,75,74,20,66, 547 430 DATA 69,6C,65,20,65,72,72,6F,72,2E, D, A,4F,75,74,70, 571 440 DATA 75,74,20,66,69,6C,65,20,65,72,72,6F,72,2E, D, A, 538 450 DATA 2B, D, A,65,6E,64, D, A,65,78,69,73,74,73,21,20, 471 460 DATA 20,41,62,6F,72,74,69,6E,67,21, D, A, 0, 0, 1, 0, 38F 470 DATA C, 5, 0, 0,2B,2D,30,31,32,33,34,35,36,37,38,39, 276 480 DATA 41,42,43,44,45,46,47,48,49,4A,4B,4C,4D,4E,4F,50, 488 490 DATA 51,52,53,54,55,56,57,58,59,5A,61,62,63,64,65,66, 5AC 500 DATA 67,68,69,6A,6B,6C,6D,6E,6F,70,71,72,73,74,75,76, 6E8 510 DATA 77,78,79,7A,B4,30,CD,21,3C, 2,73, C,BA,BA, 1,B9, 69F 520 DATA 2B, 0,E8,A0, 1,E9,28, 1,E8,A4, 1,73,22,BA,E5, 1, 688 530 DATA B9,14, 0,E8,8F, 1,BF,7F, 0,C6, 5,50,8B,D7,B4, A, 6BE 540 DATA CD,21,E8,8A, 1,73, 8,BA, 3, 1,B9,B7, 0,EB,D3,BA, 782 550 DATA BC, 4,8B,F2,B8, 0,3D,CD,21,73, 3,E9,5C, 1,A3,3C, 6BB 560 DATA 2,8B,CF,2B,CE,49,B0,5C,FD,F2,AE,FC,74, 8,8B,FE, 948 570 DATA 80,7D, 1,3A,75, 2,47,47,8B,F7,8B,D6,BF,88, 4,AC, 717 580 DATA A,C0,74, 3,AA,EB,F8,B8, D, A,AB,57,8B,F2,BF, C, 7E7 590 DATA 5,8B,D7,AC, A,C0,75, 2,B0,2E,AA,3C,2E,75,F4,B8, 767 600 DATA 78,78,AB,B8,65, 0,89, 5,33,C9,80,3E,43, 2,FF,74, 6B8 610 DATA 25,B4,4E,CD,21,3C, 2,74,1D,3C,12,74,19,59,8B,CF, 572 620 DATA 2B,CA,BB, 2, 0, 3,CB,B4,40,CD,21,BA,28, 2,B9,14, 613 630 DATA 0,B0, 5,E9,4C,FF,B4,3C,CD,21,59,73, 3,E9,A8, 0, 727 640 DATA A3,3E, 2,BA,7E, 4,2B,CA,E8,8D, 0,E8,A2, 0,74,40, 6C7 650 DATA B9, 4, 6,AC,8A,E0,D0,E8,D0,E8,AA,AC,8A,D0,D2,E4, AAF 660 DATA D2,E8, 2,C4,AA,8A,E2,AC,8A,D0,D0,E4,D0,E4,8A,CD, B5B 670 DATA D2,E8, 2,C4,AA,8A,C2,AA,83,C5, 3,83,FD,2D,75, 3, 890 680 DATA E8,31, 0,3B,36,40, 2,72,C7,80,3E,42, 2, 1,75,BB, 538 690 DATA B,ED,74, 9,2B,36,40, 2,2B,EE,E8,17, 0,BA,20, 2, 50C 700 DATA B9, 8, 0,E8,32, 0,8B,1E,3E, 2,B4,3E,CD,21,32,C0, 596 710 DATA B4,4C,CD,21,BA,7E, 4,8B,CF,2B,CA,8B,FA,8B,C5,8B, 8D9 720 DATA E9,88, 5,BB,44, 2,B4,3F,8A, 5,22,C4,D7,AA,E2,F8, 83A 730 DATA 8B,CD,C7, 5, D, A,41,41,8B,1E,3E, 2,B4,40,CD,21, 588 740 DATA 72, 6,8B,FA,47,33,ED,C3,BA, C, 2,B9,14, 0,EB,30, 6D7 750 DATA BA, C, 5,B9,C8,AF,8B,1E,3C, 2,B4,3F,CD,21,72,1A, 64F 760 DATA 8B,F2,8B,DA, 3,D8,3B,C1,74, 9,C7, 7, 0, 0,C6, 6, 6D0 770 DATA 42, 2, 1,89,1E,40, 2, B,C0,C3,BA,F9, 1,B9,13, 0, 53C 780 DATA E8, 2, 0,EB,8B,50,BB, 2, 0,B4,40,CD,21,58,C3,BE, 728 790 DATA 80, 0,BF,BC, 4,FC,AC, A,C0,74,2B,B4,20,AC,3A,C4, 78E 800 DATA 76,FB,3C,2F,74, 4,3C,2D,75,18,8B,D0,8B, 4,24,5F, 5B7 810 DATA 3D,4F,20,8B,C2,75, B,F6,16,43, 2,46,46,AC,3A,C4, 600 820 DATA 76, 6,AA,AC,EB,F8,F9,C3,C6, 5, 0,F8,C3,90,62,65, 94E 830 DATA 67,69,6E,20,36,34,34,20,58,58,45,4E,43,4F,44,45, 47A 840 DATA 20,76,31,2E,31, 0,44,61,76,69,64,20,50,20,4B,69, 452 850 DATA 72,73,63,68,62,61,75,6D,2C,20,54,6F,61,64,20,48, 591 860 DATA 61,6C,6C,2C,20,47,69,76,65,6E,20,74,6F,20,74,68, 57D 870 DATA 65,20,70,75,62,6C,69,63,20,64,6F,6D,61,69,6E, 0, 59C 880 DATA 97241