home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1985 / 07 / undel.bas < prev    next >
BASIC Source File  |  1985-03-05  |  4KB  |  70 lines
  1.  10  OPEN "UNDEL.COM" AS # 1  LEN = 1  'Open Undel.com
  2.  20  PRINT "CREATING UNDEL.COM"
  3.  30  FIELD #1,1 AS BYTE.$              'Specify what goes into it
  4.  40  FOR N = 1 TO 532                  '532 bytes
  5.  50  READ BYTE.%
  6.  60  IF BYTE.%  <> -1 THEN 100
  7.  70  LSET BYTE.$ = CHR$(0)             'Put in 1536 (storage) zeroes
  8.  80  FOR I=1 TO 1536 : PUT #1 : NEXT I
  9.  90  GOTO 120
  10. 100  LSET BYTE.$ = CHR$(BYTE.%)        'Load byte into buffer
  11. 110  PUT #1                            'Write buffer out
  12. 120  NEXT N
  13. 130  CLOSE #1                          'Close file
  14. 140  PRINT "UNDEL.COM CREATED."        'And you're done.
  15. 150  END
  16. 160  DATA  233,  112,    6,   40,   67,   41,   32,   49,   57,   56
  17. 170  DATA   52,   32,   83,   32,   72,   79,   76,   90,   78,   69
  18. 180  DATA   82,    0,    0,    0,    0,    0,    0,    0,   13,   70
  19. 190  DATA  105,  108,  101,   32,  110,  111,  116,   32,  102,  111
  20. 200  DATA  117,  110,  100,   32,  100,  101,  108,  101,  116,  101
  21. 210  DATA  100,   36,   13,   70,  105,  108,  101,   32,   97,  108
  22. 220  DATA  114,  101,   97,  100,  121,   32,  119,  114,  105,  116
  23. 230  DATA  116,  101,  110,   32,  111,  118,  101,  114,   36,   13
  24. 240  DATA   10,   73,  115,   32,  112,   97,  114,  116,   32,  111
  25. 250  DATA  102,   32,  121,  111,  117,  114,   32,  102,  105,  108
  26. 260  DATA  101,   32,  104,  101,  114,  101,   63,   32,   40,   89
  27. 270  DATA   47,   78,   41,   32,   36,   -1,   46,  160,   92,    0
  28. 280  DATA   44,    1,  115,    4,  180,   25,  205,   33,  162,   27
  29. 290  DATA    1,  186,    3,    0,  131,  194,    2,  131,  250,   11
  30. 300  DATA  114,   11,  180,    9,  141,   22,   28,    1,  205,   33
  31. 310  DATA  233,  169,    0,  129,   38,   21,    1,    0,    0,  232
  32. 320  DATA  162,    0,  141,   62,  115,    1,  176,  229,  185,    0
  33. 330  DATA    4,  242,  174,  227,  215,  190,   94,    0,  187,   11
  34. 340  DATA    0,   75,  166,  116,  252,  131,  251,    0,  117,  237
  35. 350  DATA   46,  161,   93,    0,  137,   69,  244,  129,   14,   21
  36. 360  DATA    1,    1,    0,  232,  118,    0,  139,   69,   14,  163
  37. 370  DATA   23,    1,  139,   69,   16,  169,  255,    3,  116,    3
  38. 380  DATA    5,    0,    4,  177,   10,  211,  232,  139,   85,   18
  39. 390  DATA  177,    6,  211,  226,    3,  194,  163,   25,    1,  186
  40. 400  DATA    1,    0,  129,   38,   21,    1,    0,    0,  232,   73
  41. 410  DATA    0,  139,   14,   25,    1,  161,   23,    1,   72,  232
  42. 420  DATA   99,    0,   59,   22,   23,    1,  116,   18,  180,   19
  43. 430  DATA  186,   92,    0,  205,   33,  180,    9,  141,   22,   52
  44. 440  DATA    1,  205,   33,  235,   37,  144,  139,  194,  186,  255
  45. 450  DATA   15,  131,  249,    1,  116,    3,  232,   62,    0,  232
  46. 460  DATA  200,    0,  226,  238,  186,    1,    0,  129,   14,   21
  47. 470  DATA    1,    1,    0,  232,    8,    0,  186,    3,    0,  232
  48. 480  DATA    2,    0,  205,   32,   80,   83,   81,   82,   87,  160
  49. 490  DATA   27,    1,  185,    2,    0,  141,   30,  115,    1,  247
  50. 500  DATA    6,   21,    1,    1,    0,  117,    5,  205,   37,  235
  51. 510  DATA    3,  144,  205,   38,  157,   95,   90,   89,   91,   88
  52. 520  DATA  195,   80,   83,   81,   64,  139,  216,  209,  227,    3
  53. 530  DATA  216,  209,  235,  139,  151,  115,    1,  169,    1,    0
  54. 540  DATA  116,    4,  177,    4,  211,  234,  129,  226,  255,   15
  55. 550  DATA  131,  250,    0,  117,  225,  139,  208,   59,    6,   23
  56. 560  DATA    1,  116,   22,  187,  129,    0,  139,   15,  129,  249
  57. 570  DATA   47,   97,  116,    6,  129,  249,   47,   65,  117,    5
  58. 580  DATA  232,    6,    0,  227,  195,   89,   91,   88,  195,   82
  59. 590  DATA    3,  210,  131,  194,    8,  160,   27,    1,  185,    1
  60. 600  DATA    0,  141,   30,  115,    5,  205,   37,  157,  180,    2
  61. 610  DATA  178,   13,  205,   33,  178,   10,  205,   33,  187,    0
  62. 620  DATA    0,  138,  151,  115,    5,  205,   33,   67,  129,  251
  63. 630  DATA  160,    0,  118,  243,  180,    9,  141,   22,   79,    1
  64. 640  DATA  205,   33,  180,    1,  205,   33,  185,    1,    0,   60
  65. 650  DATA   89,  116,    7,   60,  121,  116,    3,  185,    0,    0
  66. 660  DATA   90,  195,   80,   83,   81,   82,  139,  216,  209,  227
  67. 670  DATA    3,  216,  209,  235,  169,    1,    0,  116,    4,  177
  68. 680  DATA    4,  211,  226,    9,  151,  115,    1,   90,   89,   91
  69. 690  DATA   88,  195
  70.