home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1985 / 21 / delz.bas < prev    next >
BASIC Source File  |  1985-07-25  |  5KB  |  83 lines
  1.  10  FOR I = 1 TO 657:READ BYTE:TOTAL#=TOTAL#+BYTE:NEXT I:RESTORE
  2.  20  IF TOTAL#<>51112! THEN PRINT "Error in data.":END
  3.  30  OPEN "DELZ.COM" AS # 1  LEN = 1        'Open DELZ.COM 
  4.  40  PRINT "CREATING DELZ.COM"
  5.  50  FIELD #1,1 AS BYTE.$                    'Specify what goes into it
  6.  60  FOR N = 1 TO 657                        '657 bytes
  7.  70  READ BYTE.%
  8.  80  LSET BYTE.$ = CHR$(BYTE.%)              'Load byte into buffer
  9.  90  PUT #1                                  'Write buffer out
  10. 100  NEXT N
  11. 110  CLOSE #1                                'Close file
  12. 120  PRINT "DELZ.COM CREATED."               'And you're done.
  13. 130  END
  14. 140  DATA  233,   82,    2,   40,   67,   41,   49,   57,   56,   53
  15. 150  DATA   32,   83,   32,   72,  111,  108,  122,  110,  101,  114
  16. 160  DATA    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
  17. 170  DATA    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
  18. 180  DATA    0,    0,    0,   68,   69,   76,   47,   90,    0,   13
  19. 190  DATA   10,   36,   32,   90,   69,   82,   79,   69,   68,   32
  20. 200  DATA   65,   78,   68,   32,   68,   69,   76,   69,   84,   69
  21. 210  DATA   68,   46,   13,   10,   36,   69,  114,  114,  111,  114
  22. 220  DATA   32,  100,  101,  108,  101,  116,  105,  110,  103,   32
  23. 230  DATA   36,  156,  128,  252,   19,  117,   16,   46,  128,   62
  24. 240  DATA   21,    1,    1,  117,    8,   46,  246,    6,   20,    1
  25. 250  DATA    1,  116,    6,  157,   46,  255,   46,   27,    1,   83
  26. 260  DATA   81,   82,   86,   87,   80,   46,  137,   22,   37,    1
  27. 270  DATA   46,  140,   30,   39,    1,  180,   47,  205,   33,   46
  28. 280  DATA  137,   30,   23,    1,   46,  140,    6,   25,    1,   30
  29. 290  DATA  180,   26,  186,  128,    0,   14,   31,  205,   33,   31
  30. 300  DATA   46,  139,   22,   37,    1,  180,   17,  205,   33,  168
  31. 310  DATA    1,  116,    6,   88,  176,  255,  233,  164,    0,  190
  32. 320  DATA  129,    0,  191,  192,    0,  185,   11,    0,   30,   14
  33. 330  DATA   31,  186,  128,    0,  180,   15,  205,   33,   60,    0
  34. 340  DATA  117,  105,  187,  128,    0,  199,   71,   14,    0,    2
  35. 350  DATA  139,   71,   16,   51,  210,  169,  255,    1,  116,    1
  36. 360  DATA   66,  177,    9,  211,  232,   46,  163,   35,    1,   46
  37. 370  DATA    1,   22,   35,    1,  139,   71,   18,  177,    7,  211
  38. 380  DATA  224,   46,    1,    6,   35,    1,  186,  128,    0,   46
  39. 390  DATA  139,   14,   35,    1,  180,   21,  205,   33,   60,    0
  40. 400  DATA  117,   45,  226,  248,  180,   16,  205,   33,   60,    0
  41. 410  DATA  117,   35,  180,   19,   46,  198,    6,   20,    1,    1
  42. 420  DATA  205,   33,   46,  198,    6,   20,    1,    0,   60,    0
  43. 430  DATA  117,   15,  232,   75,    0,   46,  141,   22,   52,    1
  44. 440  DATA  180,    9,  205,   33,  235,   17,  144,  180,   16,  205
  45. 450  DATA   33,   46,  141,   22,   75,    1,  180,    9,  205,   33
  46. 460  DATA  232,   47,    0,   31,   46,  139,   22,   37,    1,  180
  47. 470  DATA   18,  205,   33,  168,    1,  117,    3,  233,   95,  255
  48. 480  DATA   88,  176,    0,   30,   80,  180,   26,   46,  139,   22
  49. 490  DATA   25,    1,  142,  218,   46,  139,   22,   23,    1,  205
  50. 500  DATA   33,   88,   31,   95,   94,   90,   89,   91,  157,  207
  51. 510  DATA  187,  129,    0,  180,    2,  185,   11,    0,  138,   23
  52. 520  DATA  205,   33,   67,  226,  249,  195,   80,   83,   81,   82
  53. 530  DATA   87,   86,   30,  156,   46,  255,   30,   31,    1,  187
  54. 540  DATA   64,    0,  142,  219,  139,   30,   28,    0,   59,   30
  55. 550  DATA   26,    0,  117,    3,  233,  172,    0,  131,  235,    2
  56. 560  DATA  131,  251,   30,  115,    6,  187,   62,    0,  131,  235
  57. 570  DATA    2,  139,   23,  128,  250,   90,  118,    3,  128,  234
  58. 580  DATA   32,   14,   31,  128,   62,   22,    1,    1,  117,   16
  59. 590  DATA  198,    6,   22,    1,    0,  198,    6,   21,    1,    0
  60. 600  DATA  199,    6,   41,    1,    0,    0,  141,   54,   43,    1
  61. 610  DATA    3,   54,   41,    1,   58,   20,  117,   95,  255,    6
  62. 620  DATA   41,    1,  128,  250,   47,  117,   31,  185,   64,    0
  63. 630  DATA  142,  217,  137,   30,   28,    0,  180,   10,  185,    1
  64. 640  DATA    0,  138,  194,   51,  219,  205,   16,  180,    3,  205
  65. 650  DATA   16,  131,  194,    1,  180,    2,  205,   16,  128,  250
  66. 660  DATA   90,  117,   31,  185,   64,    0,  142,  217,  137,   30
  67. 670  DATA   28,    0,  180,   10,  185,    1,    0,  138,  194,   51
  68. 680  DATA  219,  205,   16,  180,    3,  205,   16,  131,  194,    1
  69. 690  DATA  180,    2,  205,   16,   14,   31,  128,  124,    1,    0
  70. 700  DATA  117,   11,  198,    6,   21,    1,    1,  199,    6,   41
  71. 710  DATA    1,    0,    0,  198,    6,   22,    1,    0,  129,  250
  72. 720  DATA   13,   28,  117,    5,  198,    6,   22,    1,    1,   31
  73. 730  DATA   94,   95,   90,   89,   91,   88,  207,  184,    0,    0
  74. 740  DATA  142,  216,  161,   36,    0,   46,  163,   31,    1,  161
  75. 750  DATA   38,    0,   46,  163,   33,    1,  199,    6,   36,    0
  76. 760  DATA  130,    2,  140,   14,   38,    0,  161,  132,    0,   46
  77. 770  DATA  163,   27,    1,  161,  134,    0,   46,  163,   29,    1
  78. 780  DATA  140,   14,  134,    0,  199,    6,  132,    0,   91,    1
  79. 790  DATA   14,   31,  186,   85,    3,  205,   39
  80.  
  81.  
  82.  
  83.