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