home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / msdos / starter / xxdecode.bas < prev   
Encoding:
BASIC Source File  |  1992-10-22  |  4.3 KB  |  75 lines
  1. 100 REM - BASIC PROGRAM TO CREATE XXDECODE.COM   (fast xxdecoder)
  2. 105 REM XXDECODE.BAS created by w8sdz@WSMR-SIMTEL20.ARMY.MIL (Keith Petersen)
  3. 110 CLS:PRINT "Creating XXDECODE.COM.  See XXDECODE.DOC for instructions."
  4. 115 OPEN "XXDECODE.COM" AS #1 LEN = 1
  5. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  6. 130 FOR I = 1 TO    54
  7. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    54 - I ;
  8. 150  FOR J = 1 TO  16: READ BYTE$: CHECKSUM#=CHECKSUM#+VAL("&H"+BYTE$)
  9. 160   LINESUM#=LINESUM#+VAL("&H"+BYTE$)
  10. 170   IF (BYTE < 256) THEN LSET A$=CHR$(VAL("&H"+BYTE$)): PUT #1
  11. 180  NEXT J
  12. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  13. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  14. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  15. 220 NEXT I
  16. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  17. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  18. 250 PRINT: PRINT "XXDECODE.COM created successfully": SYSTEM
  19. 260 PRINT: PRINT "XXDECODE.COM is not valid!": END
  20. 270 DATA E9,A7, 0,49,6E,70,75,74,20,66,69,6C,65,20,65,72,  657
  21. 280 DATA 72,6F,72,2E, D, A,4F,75,74,70,75,74,20,66,69,6C,  584
  22. 290 DATA 65,20,65,72,72,6F,72,2E, D, A,73,74,61,72,74,20,  542
  23. 300 DATA 6E,6F,74,20,66,6F,75,6E,64,2E, D, A,45,6E,64,20,  509
  24. 310 DATA 6E,6F,74,20,66,6F,75,6E,64,2E, D, A,65,78,69,73,  58B
  25. 320 DATA 74,73,2E,20,41,62,6F,72,74,69,6E,67,21, D, A, 0,  4A3
  26. 330 DATA  0, 0, 0,EA, 3,EA, 3,9A, 3, 0,2B,2D,30,31,32,33,  395
  27. 340 DATA 34,35,36,37,38,39,41,42,43,44,45,46,47,48,49,4A,  3FE
  28. 350 DATA 4B,4C,4D,4E,4F,50,51,52,53,54,55,56,57,58,59,5A,  528
  29. 360 DATA 61,62,63,64,65,66,67,68,69,6A,6B,6C,6D,6E,6F,70,  688
  30. 370 DATA 71,72,73,74,75,76,77,78,79,7A,E8,F0, 1,E8,62, 1,  7BB
  31. 380 DATA BF,9A, 3,E8,EF, 0,AD,3D,62,65,75,F4,AD,3D,67,69,  807
  32. 390 DATA 75,EE,AD,3D,6E,20,75,E8,BF,9A, 3,AC,3A,C4,76,FB,  8AF
  33. 400 DATA AC,3A,C4,75,FB,AC,3A,C4,76,FB,3A,C4,74, 4,AA,AC,  901
  34. 410 DATA EB,F8,BA,9A, 3,33,C9,88, D,80,3E,69, 1,FF,74,20,  786
  35. 420 DATA B4,4E,CD,21,3C, 2,74,18,3C,12,74,14,8B,CF,2B,CA,  5DF
  36. 430 DATA 49,49,E8,3B, 1,BA,4C, 1,B9,13, 0,B0, 5,E9,24, 1,  54C
  37. 440 DATA B4,3C,CD,21,73, 3,E9,F1, 0,A3,61, 1,BF,9A, 3,E8,  777
  38. 450 DATA 83, 0,8A, 4, A,C0,74,65,3C,2B,74,61,3C,20,74,5D,  51D
  39. 460 DATA 57,BB,6A, 1,BA,40, 0,56,AC, A,C0,74,12,8B,FB,8B,  6DA
  40. 470 DATA CA,F2,AE,75,45,8B,C7,48,2B,C3,88,44,FF,EB,E9,5E,  9A9
  41. 480 DATA 5F,AC,32,E4,8B,E8,B9, 4, 6,AD,86,C4,8A,D0,D0,E4,  95C
  42. 490 DATA D0,E4,D2,E8, A,C4,AA,4D,74,B5,8A,E2,AC,8A,D0,D2,  AA0
  43. 500 DATA E4,D0,E8,D0,E8, A,C4,AA,4D,74,A4,8A,E2,AC,8A,CD,  AA0
  44. 510 DATA D2,E4, A,C4,AA,4D,75,CE,EB,95,E9,A1, 0,E8,15, 0,  8C5
  45. 520 DATA AD,3D,65,6E,75, 5,AC,3C,64,74, 3,E8,9C, 0,E8,51,  6B7
  46. 530 DATA  0,B4,4C,CD,21,8B,36,63, 1,89,3E,67, 1,BD,43, 0,  542
  47. 540 DATA BF,4A, 3,C6, 5, 0,3B,36,65, 1,72, 6,E8,33, 0,E8,  529
  48. 550 DATA 50, 0,AC,3C, D,74,1B,3C, A,74,18,AA,4D,75,E7,3B,  534
  49. 560 DATA 36,65, 1,72, 3,E8,3A, 0,AC,3C, A,75,F2,BF,9A, 3,  5E8
  50. 570 DATA EB,C7,46,C6, 5, 0,89,36,63, 1,8B,3E,67, 1,BE,4A,  61F
  51. 580 DATA  3,C3,BA,9A, 3,8B,CA,87, E,67, 1,2B,CA,76, A,8B,  66F
  52. 590 DATA 1E,61, 1,B4,40,CD,21,72, 1,C3,BA,16, 1,B9,14, 0,  536
  53. 600 DATA EB,22,BA,EA, 3,B9, 0,E1,8B,1E,5F, 1,B4,3F,CD,21,  738
  54. 610 DATA 72, C, B,C0,74, 8,8B,F2, 3,C6,A3,65, 1,C3,BA, 3,  694
  55. 620 DATA  1,B9,13, 0,E8, 9, 0,E9,67,FF,BA,3C, 1,B9,10, 0,  5CD
  56. 630 DATA 50,BB, 2, 0,B4,40,CD,21,58,C3,54,68,69,73,20,70,  632
  57. 640 DATA 72,6F,67,72,61,6D,20,72,65,71,75,69,72,65,73,20,  638
  58. 650 DATA 44,4F,53,20,56,65,72,73,69,6F,6E,20,32,2E,30,20,  4BC
  59. 660 DATA 6F,72,20,68,69,67,68,65,72,2E, D, A,24, D, A,49,  441
  60. 670 DATA 6E,70,75,74,20,70,61,74,68,2F,66,69,6C,65,3A,20,  5BD
  61. 680 DATA 20,4E,6F,20,61,63,74,69,6F,6E, D, A,24,B4,30,CD,  567
  62. 690 DATA 21,3C, 2,73, C,BA,4A, 3,B4, 9,CD,21,B8, 1,4C,CD,  562
  63. 700 DATA 21,E8,36, 0,73,23,BA,7D, 3,B9,14, 0,BB, 2, 0,B4,  54D
  64. 710 DATA 40,CD,21,BF,7F, 0,C6, 5,50,8B,D7,B4, A,CD,21,E8,  77D
  65. 720 DATA 18, 0,73, 5,BA,91, 3,EB,CF,BA,2C, 4,B8, 0,3D,CD,  644
  66. 730 DATA 21,72, 4,A3,5F, 1,C3,E9,44,FF,BE,80, 0,BF,2C, 4,  6B6
  67. 740 DATA FC,AC, A,C0,74,2F,B4,20,AC,3A,C4,76,FB,3C,2F,74,  7E3
  68. 750 DATA  4,3C,2D,75,18,8B,D0,8B, 4,24,5F,3D,4F,20,8B,C2,  560
  69. 760 DATA 75, B,F6,16,69, 1,46,46,AC,3A,C4,76, A,AA,AC,EB,  6ED
  70. 770 DATA F8,3A,C4,76, 2,F9,C3,C6, 5, 0,F8,C3,58,58,44,20,  7C4
  71. 780 DATA 76,31,2E,31, 0,44,61,76,69,64,20,50,20,4B,69,72,  4A4
  72. 790 DATA 73,63,68,62,61,75,6D,2C,20,54,6F,61,64,20,48,61,  580
  73. 800 DATA 6C,6C, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,   D8
  74. 810 DATA 87150
  75.