home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / pcmag / vol3n25.arc / NPAD.BAS < prev    next >
BASIC Source File  |  1985-03-05  |  4KB  |  86 lines
  1. 100     OPEN "NPAD.COM" AS # 1  LEN = 1         'Open Npad.com
  2. 110     PRINT "CREATING NPAD.COM"
  3. 120     FIELD #1,1 AS BYTE.$                    'Specify what goes into it
  4. 130     FOR N = 1 TO 556                        '556 bytes
  5. 140     READ BYTE.%
  6. 150     IF BYTE.%  < 256 THEN 190
  7. 160     LSET BYTE.$ = CHR$(32)                  'Put in 499 space characters
  8. 170     FOR I=1 TO BYTE.% : PUT #1 : NEXT I
  9. 180     GO TO 210
  10. 190     LSET BYTE.$ = CHR$(BYTE.%)              'Load byte into buffer
  11. 200     PUT #1                                  'Write buffer out
  12. 210     NEXT N
  13. 220     CLOSE #1                                'Close file
  14. 230     PRINT "NPAD.COM CREATED."               'And you're done.
  15. 240     END
  16. 250     DATA    233,    210,    3,    0,    0,    95,    499,    0
  17. 260     DATA    0,    0,    0,    0,    0,    112,    0,    0
  18. 270     DATA    0,    0,    0,    0,    0,    0,    0,    0
  19. 280     DATA    80,    83,    81,    82,    87,    86,    30,    6
  20. 290     DATA    156,    46,    255,    30,    6,    3,    187,    64
  21. 300     DATA    0,    142,    219,    139,    30,    28,    0,    59
  22. 310     DATA    30,    26,    0,    116,    60,    131,    235,    2
  23. 320     DATA    131,    251,    30,    115,    3,    187,    62,    0
  24. 330     DATA    139,    23,    129,    250,    14,    49,    117,    68
  25. 340     DATA    137,    30,    28,    0,    46,    247,    22,    3
  26. 350     DATA    1,    46,    131,    62,    3,    1,    0,    117
  27. 360     DATA    27,    46,    198,    6,    255,    2,    7,    46
  28. 370     DATA    199,    6,    251,    2,    250,    0,    141,    6
  29. 380     DATA    132,    4,    46,    163,    2,    3,    232,    72
  30. 390     DATA    1,    233,    158,    0,    46,    199,    6,    251
  31. 400     DATA    2,    250,    0,    141,    6,    93,    4,    46
  32. 410     DATA    163,    2,    3,    232,    51,    1,    232,    146
  33. 420     DATA    0,    233,    134,    0,    46,    247,    6,    3
  34. 430     DATA    1,    1,    0,    116,    220,    137,    30,    28
  35. 440     DATA    0,    129,    250,    0,    83,    117,    31,    187
  36. 450     DATA    249,    0,    46,    198,    135,    5,    1,    32
  37. 460     DATA    75,    117,    247,    46,    198,    6,    5,    1
  38. 470     DATA    95,    46,    199,    6,    249,    2,    0,    0
  39. 480     DATA    232,    96,    0,    235,    85,    144,    129,    250
  40. 490     DATA    8,    14,    117,    33,    46,    139,    30,    249
  41. 500     DATA    2,    131,    251,    0,    126,    17,    46,    198
  42. 510     DATA    135,    5,    1,    32,    46,    198,    135,    4
  43. 520     DATA    1,    95,    46,    255,    14,    249,    2,    232
  44. 530     DATA    57,    0,    235,    46,    144,    129,    250,    13
  45. 540     DATA    28,    117,    9,    232,    72,    0,    232,    42
  46. 550     DATA    0,    235,    31,    144,    46,    139,    30,    249
  47. 560     DATA    2,    129,    251,    249,    0,    125,    16,    46
  48. 570     DATA    136,    151,    5,    1,    46,    198,    135,    6
  49. 580     DATA    1,    95,    46,    255,    6,    249,    2,    232
  50. 590     DATA    9,    0,    7,    31,    94,    95,    90,    89
  51. 600     DATA    91,    88,    207,    80,    46,    198,    6,    255
  52. 610     DATA    2,    112,    46,    199,    6,    251,    2,    0
  53. 620     DATA    0,    141,    6,    132,    4,    46,    163,    2
  54. 630     DATA    3,    232,    133,    0,    88,    195,    46,    129
  55. 640     DATA    62,    249,    2,    225,    0,    125,    43,    46
  56. 650     DATA    139,    30,    249,    2,    139,    195,    61,    24
  57. 660     DATA    0,    116,    20,    124,    5,    45,    25,    0
  58. 670     DATA    235,    244,    46,    198,    135,    5,    1,    32
  59. 680     DATA    46,    255,    6,    249,    2,    235,    224,    46
  60. 690     DATA    198,    135,    6,    1,    95,    46,    255,    6
  61. 700     DATA    249,    2,    195,    82,    190,    2,    0,    46
  62. 710     DATA    139,    22,    4,    3,    236,    168,    1,    117
  63. 720     DATA    251,    236,    168,    1,    116,    251,    38,    138
  64. 730     DATA    37,    71,    78,    131,    254,    0,    116,    7
  65. 740     DATA    46,    136,    167,    5,    1,    235,    229,    67
  66. 750     DATA    90,    195,    82,    46,    138,    167,    5,    1
  67. 760     DATA    190,    2,    0,    46,    139,    22,    4,    3
  68. 770     DATA    236,    168,    1,    117,    251,    236,    168,    1
  69. 780     DATA    116,    251,    38,    136,    37,    46,    138,    38
  70. 790     DATA    255,    2,    71,    78,    117,    234,    67,    90
  71. 800     DATA    195,    187,    0,    176,    142,    195,    46,    139
  72. 810     DATA    62,    0,    3,    46,    3,    62,    253,    2
  73. 820     DATA    46,    139,    30,    251,    2,    185,    10,    0
  74. 830     DATA    186,    25,    0,    46,    255,    22,    2,    3
  75. 840     DATA    74,    117,    248,    46,    3,    62,    253,    2
  76. 850     DATA    226,    238,    195,    184,    0,    0,    142,    216
  77. 860     DATA    161,    36,    0,    46,    163,    6,    3,    161
  78. 870     DATA    38,    0,    46,    163,    8,    3,    199,    6
  79. 880     DATA    36,    0,    10,    3,    140,    14,    38,    0
  80. 890     DATA    180,    15,    205,    16,    128,    236,    25,    208
  81. 900     DATA    228,    46,    136,    38,    253,    2,    46,    199
  82. 910     DATA    6,    4,    3,    186,    3,    168,    4,    117
  83. 920     DATA    14,    46,    199,    6,    0,    3,    0,    128
  84. 930     DATA    46,    199,    6,    4,    3,    218,    3,    186
  85. 940     DATA    213,    4,    205,    39
  86.