home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / COMP8802.ZIP / LOCKOUT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-10-01  |  2.3 KB  |  55 lines
  1. 10  CLS:LOCATE 10,10:PRINT"Writing file ...":OPEN "lockout.com" FOR OUTPUT AS #1
  2. 20  PRINT#1,CHR$(233);CHR$(214);CHR$(1);
  3. 30  PRINT#1,CHR$(38);
  4. 40  FOR I=1 TO 564:READ BYTE:CKSUM=CKSUM+BYTE:PRINT#1,CHR$(BYTE);:NEXT I:CLOSE 1
  5. 50  IF CKSUM <> 46402 THEN PRINT"** Error in DATA statements **":KILL "lockout.com":STOP
  6. 60  PRINT:PRINT"File for LOCKOUT.COM has been created.":END
  7. 70  DATA 0,0,0,0,0,0,0,0
  8. 80  DATA 0,0,0,0,0,0,44,40,45,41,42,46
  9. 90  DATA 30,67,135,79,135,77,135,80,135,85,135,84
  10. 100  DATA 135,69,135,82,135,32,135,73,135,83,135,32
  11. 110  DATA 135,73,135,78,135,32,135,85,135,83,135,69
  12. 120  DATA 135,0,0,0,0,217,2,46,128,62,5,1
  13. 130  DATA 0,117,34,251,80,83,81,82,86,87,30,6
  14. 140  DATA 228,96,46,58,6,3,1,117,8,180,2,205
  15. 150  DATA 22,36,8,117,13,7,31,95,94,90,89,91
  16. 160  DATA 88,46,255,46,61,1,232,81,1,14,31,14
  17. 170  DATA 7,180,15,205,16,60,8,114,9,7,31,95
  18. 180  DATA 94,90,89,91,88,207,162,6,1,6,184,64
  19. 190  DATA 0,142,192,38,160,102,0,162,8,1,7,136
  20. 200  DATA 62,9,1,198,6,5,1,1,180,3,205,16
  21. 210  DATA 137,14,16,1,137,22,14,1,128,62,4,1
  22. 220  DATA 0,117,3,232,239,0,232,140,0,232,182,0
  23. 230  DATA 128,62,4,1,0,117,3,232,238,0,180,0
  24. 240  DATA 205,22,58,38,3,1,117,246,180,2,205,22
  25. 250  DATA 36,8,116,238,128,62,4,1,0,117,3,232
  26. 260  DATA 195,0,180,0,160,6,1,205,16,232,113,0
  27. 270  DATA 180,5,160,9,1,205,16,128,62,6,1,3
  28. 280  DATA 118,7,128,62,6,1,7,117,22,180,2,138
  29. 290  DATA 62,9,1,139,22,14,1,205,16,128,62,4
  30. 300  DATA 1,0,117,3,232,157,0,180,1,139,14,16
  31. 310  DATA 1,205,16,198,6,5,1,0,160,8,1,36
  32. 320  DATA 32,116,5,179,1,235,3,144,179,0,180,11
  33. 330  DATA 183,1,205,16,180,11,183,0,138,30,8,1
  34. 340  DATA 205,16,233,56,255,30,46,161,12,1,142,216
  35. 350  DATA 46,139,62,65,1,51,246,46,139,14,10,1
  36. 360  DATA 252,243,165,31,195,6,161,12,1,142,192,139
  37. 370  DATA 54,65,1,51,255,139,14,10,1,252,243,165
  38. 380  DATA 7,195,180,0,160,7,1,205,16,180,5,176
  39. 390  DATA 0,205,16,184,0,6,51,201,186,79,24,183
  40. 400  DATA 7,205,16,180,1,181,32,205,16,6,161,12
  41. 410  DATA 1,142,192,141,54,25,1,191,190,7,185,36
  42. 420  DATA 0,243,164,7,195,186,218,3,236,168,8,116
  43. 430  DATA 251,131,234,2,176,37,238,195,180,15,205,16
  44. 440  DATA 141,30,18,1,215,186,216,3,238,195,228,97
  45. 450  DATA 138,224,12,128,230,97,138,196,230,97,250,176
  46. 460  DATA 32,230,32,251,195,198,6,4,1,0,199,6
  47. 470  DATA 12,1,0,184,199,6,10,1,160,31,198,6
  48. 480  DATA 7,1,2,180,15,205,16,60,7,117,28,254
  49. 490  DATA 6,4,1,199,6,10,1,0,8,129,46,12
  50. 500  DATA 1,0,8,185,13,12,198,6,7,1,7,60
  51. 510  DATA 7,235,3,185,7,6,180,1,205,16,180,53
  52. 520  DATA 176,9,205,33,137,30,61,1,140,6,63,1
  53. 530  DATA 180,37,176,9,141,22,67,1,205,33,186,25
  54. 540  DATA 66,205,39,0
  55.