home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / PCMAG / VOL4N18.ZIP / LOCK.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-06-02  |  3.2 KB  |  61 lines
  1.  10  PRINT "Checking Data..."
  2.  20  CHECK#=0
  3.  30  FOR N = 1 TO 340:READ BYTE.%:CHECK#=CHECK#+BYTE.%:NEXT N
  4.  40  IF CHECK# = 29409 THEN 60 
  5.  50  PRINT "Error in Data Statements":GOTO 220
  6.  60  RESTORE:CLS:N$="LOCK.COM"
  7.  70  OPEN N$ AS # 1  LEN = 1           'Open File
  8.  80  PRINT "Creating "N$
  9.  90  FIELD #1,1 AS BYTE.$              'Specify what goes into it
  10. 100  FOR N = 1 TO 340                  '340 bytes
  11. 110  READ BYTE.%
  12. 120  IF BYTE.% <> -1 GOTO 140
  13. 130  IF N$ = "LOCK.COM" THEN BYTE.% = 13 ELSE BYTE.% = 5
  14. 140  IF BYTE.% <> -2 GOTO 160
  15. 150  IF N$ = "LOCK.COM" THEN BYTE.% = 202 ELSE BYTE.% = 194
  16. 160  LSET BYTE.$ = CHR$(BYTE.%)        'Load byte into buffer
  17. 170  PUT #1                            'Write buffer out
  18. 180  NEXT N
  19. 190  CLOSE #1                          'Close file
  20. 200  PRINT N$ " Created."              'And you're done.
  21. 210  IF N$ = "LOCK.COM" THEN N$="UNLOCK.COM":RESTORE:GOTO 70
  22. 220  END
  23. 230  DATA  235,   52,  144,   80,  104,  114,   97,  115,  101,   58
  24. 240  DATA   32,   36,   70,   73,   76,   69,   46,   76,   79,   67
  25. 250  DATA    0,   13,   10,   70,  105,  108,  101,   32,   78,  111
  26. 260  DATA  116,   32,   70,  111,  117,  110,  100,   36,   13,   10
  27. 270  DATA   68,  105,  115,  107,   32,   70,  117,  108,  108,   36
  28. 280  DATA    0,    0,    0,    0,  187,  129,    0,   67,  128,   63
  29. 290  DATA   32,  117,   13,  198,    7,    0,   46,  137,   30,   50
  30. 300  DATA    1,   46,  255,    6,   50,    1,  128,   63,   13,  117
  31. 310  DATA  232,  198,    7,    0,   46,  131,   62,   50,    1,    0
  32. 320  DATA  117,    7,   46,  199,    6,   50,    1,   12,    1,   46
  33. 330  DATA  141,   22,    3,    1,  180,    9,  205,   33,  187,  190
  34. 340  DATA    0,  198,    7,   64,   83,   90,  180,   10,  205,   33
  35. 350  DATA  187,  192,    0,   83,  128,   63,   13,  116,    9,  128
  36. 360  DATA   15,    1,  128,   39,   15,   67,  235,  242,   91,  184
  37. 370  DATA    0,   61,  186,  130,    0,  205,   33,  115,   12,   46
  38. 380  DATA  141,   22,   21,    1,  180,    9,  205,   33,  233,  177
  39. 390  DATA    0,   83,  139,  216,  185,    0,  248,  141,   22,   84
  40. 400  DATA    2,  180,   63,  205,   33,    5,   84,    2,   46,  163
  41. 410  DATA   52,    1,   46,  255,   14,   52,    1,  180,   62,  205
  42. 420  DATA   33,   91,  141,   14,   84,    2,  139,  241,   46,   59
  43. 430  DATA   54,   52,    1,  115,   80,  139,  249,   51,  192,  138
  44. 440  DATA    7,    3,  248,  139,  207,   65,   67,  128,   63,   13
  45. 450  DATA  117,    3,  187,  192,    0,   46,   59,   62,   52,    1
  46. 460  DATA  118,   22,   46,  139,   62,   52,    1,   87,   43,  254
  47. 470  DATA  247,  199,    1,    0,   95,  117,    7,  208,   -1,   79
  48. 480  DATA   59,  247,  115,   31,  138,   52,  138,   21,   81,  138
  49. 490  DATA   15,   67,  128,   63,   13,  117,    3,  187,  192,    0
  50. 500  DATA  211,   -2,   89,  136,   52,  136,   21,   70,   59,  247
  51. 510  DATA  116,  170,   79,  235,  225,  180,   60,  185,    0,    0
  52. 520  DATA   46,  139,   22,   50,    1,  205,   33,  114,   24,  139
  53. 530  DATA  216,  180,   64,  141,   22,   84,    2,   46,  139,   14
  54. 540  DATA   52,    1,  129,  233,   84,    2,   65,  205,   33,   59
  55. 550  DATA  193,  116,   11,  141,   22,   38,    1,  180,    9,  205
  56. 560  DATA   33,  235,    5,  144,  180,   62,  205,   33,  205,   32
  57.  
  58.  
  59.  
  60.  
  61.