home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / pcmag / vol4n06.arc / MOVE.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  3KB  |  55 lines
  1. «LM5»PROGRAMMING STEVE HOLZNER
  2. Copying Files Selectively -- Figure 2
  3.  
  4.  
  5. 10     OPEN "MOVE.COM" AS # 1  LEN = 1        'Open Move.com
  6. 20     PRINT "CREATING MOVE.COM"
  7. 30     FIELD #1,1 AS BYTE.$                   'Specify what goes into it
  8. 40     FOR N = 1 TO 384                        
  9. 50     READ BYTE.%
  10. 60     IF BYTE.%=-1 THEN GOSUB 110 ELSE LSET BYTE.$=CHR$(BYTE.%):PUT #1
  11. 70     NEXT N
  12. 80     CLOSE #1                               'Close file
  13. 90     PRINT "MOVE.COM CREATED."              'And you're done.
  14. 100    END
  15. 110    FOR I=1 TO 47:LSET BYTE.$=CHR$(0):PUT #1:NEXT I:RETURN
  16. 120    DATA  235,   95,  144,  40,  67,  41,  32,   83,  46,  32
  17. 130    DATA   72,   79,      76,  90,  78,  69,  82,   32,  49,  57
  18. 140    DATA   56,   52,   -1,  13,  10,  67, 111,  112, 121,  32
  19. 150    DATA   36,   32,      40,  89,  47,  78,  41,   63,  36,  13
  20. 160    DATA   10,   68,  105, 115, 107,  32,  70,  117,    108, 108
  21. 170    DATA   36,  185,   32,    0, 190,    108,   0,  141,  62,  22
  22. 180    DATA    1,  243,  164, 186,  92,   0, 180,   17,    205,  33
  23. 190    DATA   60,  255,  117,    3, 233,  50,   1,  180,   9, 141
  24. 200    DATA   22,   69,    1, 205,  33,    185,  11,    0,    187, 129
  25. 210    DATA    0,  180,    2, 138,  23,  67, 205,   33,    226, 249
  26. 220    DATA  180,    9,  141,  22,  77,   1, 205,   33,    180,   1
  27. 230    DATA  205,   33,   60,  89, 116,   7,  60,  121,    116,   3
  28. 240    DATA  233,  239,    0, 185,  37,   0, 141,   54,  22,   1
  29. 250    DATA  191,  192,    0, 128, 124,   1,  32,  117,  16,  87
  30. 260    DATA   81,  141,   62,  22,   1,  71, 185,   11,   0, 176
  31. 270    DATA   63,  243,  170,  89,  95,    187,   0,    0,    128,  60
  32. 280    DATA   63,  117,    9, 187, 128,   0, 129,  235,  22,   1
  33. 290    DATA    3,  243,  164,  43, 243, 226, 234,  186,    128,   0
  34. 300    DATA  180,   15,  205,  33, 186,    192,   0,  180,  22, 205
  35. 310    DATA   33,  129,   38,  59,   1,   0,   0,  187,    142,   0
  36. 320    DATA  199,    7,    0, 128, 187,    144,   0,  139,   7, 163
  37. 330    DATA   61,    1,  131, 195,   2,    139,  23,  137,  22,  63
  38. 340    DATA    1,  185,    0,   4, 247,    241, 163,   65,   1, 247
  39. 350    DATA  194,  255,  255, 116,   4,    255,   6,   65,   1, 187
  40. 360    DATA  206,    0,  199,      7,   0,   4, 141,   22,    174,   2
  41. 370    DATA  180,   26,  205,  33, 186,    128,   0,  180,  20, 205
  42. 380    DATA   33,   60,    0, 126,   6,    129,  14,   59,   1,   1
  43. 390    DATA    0,  185,   32,    0, 141,  22, 174,    2,    137,  22
  44. 400    DATA   67,    1,  186, 192,   0,    180,  21,  205,  33,  60
  45. 410    DATA    0,  116,   11, 141,  22,  85,   1,  180,   9, 205
  46. 420    DATA   33,  235,   80, 144, 255,  14,  65,    1,    116,  24
  47. 430    DATA  129,    6,   67,    1,   0,   4, 139,   22,  67,   1
  48. 440    DATA  180,   26,  205,  33, 226,    212, 247,    6,  59,   1
  49. 450    DATA    1,    0,  116, 168, 161,  61,   1,  187,    208,   0
  50. 460    DATA  137,    7,  131, 195,   2,    161,  63,    1,    137,   7
  51. 470    DATA  180,   16,  186, 192,   0,    205,  33,  186,    128,   0
  52. 480    DATA  205,   33,  186, 128,   0,    180,  26,  205,  33, 180
  53. 490    DATA   18,  186,   92,    0, 205,  33,  60,    0,    117,   3
  54. 500    DATA  233,  206,  254, 195
  55.