home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1986 / 09 / no.bas < prev    next >
BASIC Source File  |  1986-02-14  |  7KB  |  112 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE no.COM
  2. 110 OPEN "no.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  92 
  6. 150    LINESUM% = 0
  7. 160    FOR J% = 1 TO 8
  8. 170       READ BYTE%
  9. 180       CHECKSUM = CHECKSUM + BYTE%
  10. 190       LINESUM% = LINESUM% + BYTE%
  11. 200       IF (BYTE% < 256) THEN LSET A$ = CHR$(BYTE%)
  12. 210       PUT #1
  13. 220    NEXT J%
  14. 230    READ LINECHECK%
  15. 240    IF LINECHECK% <> LINESUM% THEN PRINT "Error in Line";280 + 10 * I%
  16. 250 NEXT I%
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 74578 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,     8,     1,    67,   111,   112,   121,   114,   767
  21. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  22. 310 DATA     54,    32,    90,   105,   102,   102,    45,    68,   598
  23. 320 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  24. 330 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  25. 340 DATA     67,   111,    46,    26,    32,    80,   114,   111,   587
  26. 350 DATA    103,   114,    97,   109,   109,   101,   100,    32,   765
  27. 360 DATA     98,   121,    32,    67,   104,    97,   114,   108,   741
  28. 370 DATA    101,   115,    32,    80,   101,   116,   122,   111,   778
  29. 380 DATA    108,   100,    32,    26,    83,   121,   110,   116,   696
  30. 390 DATA     97,   120,    58,    32,    78,    79,    32,   102,   598
  31. 400 DATA    105,   108,   101,   115,   112,   101,    99,    32,   773
  32. 410 DATA     99,   111,   109,   109,    97,   110,   100,    32,   767
  33. 420 DATA     91,   112,    97,   114,    97,   109,   101,   116,   837
  34. 430 DATA    101,   114,   115,    93,    36,    78,    79,    58,   674
  35. 440 DATA     32,    78,   101,   101,   100,   115,    32,    68,   627
  36. 450 DATA     79,    83,    32,    50,    46,    48,    32,    43,   413
  37. 460 DATA     36,    78,    79,    58,    32,    73,   110,    99,   565
  38. 470 DATA    111,   114,   114,   101,    99,   116,    32,    70,   757
  39. 480 DATA    105,   108,   101,    32,    83,   112,   101,    99,   741
  40. 490 DATA     36,    78,    79,    58,    32,    84,   111,   111,   589
  41. 500 DATA     32,   109,    97,   110,   121,    32,   102,   105,   708
  42. 510 DATA    108,   101,   115,    32,   116,   111,    32,   104,   719
  43. 520 DATA    105,   100,   101,    36,    78,    79,    58,    32,   589
  44. 530 DATA     65,   108,   108,   111,    99,    97,   116,   105,   809
  45. 540 DATA    111,   110,    32,    80,   114,   111,    98,   108,   764
  46. 550 DATA    101,   109,    36,    78,    79,    58,    32,    67,   560
  47. 560 DATA     79,    77,    77,    65,    78,    68,    32,    80,   556
  48. 570 DATA    114,   111,    98,   108,   101,   109,    36,     9,   686
  49. 580 DATA     32,    44,    59,    61,     0,     0,     0,     0,   196
  50. 590 DATA      0,     0,     0,    67,    79,    77,    83,    80,   386
  51. 600 DATA     69,    67,    61,     0,     0,     0,     0,     0,   197
  52. 610 DATA      0,    92,     0,     0,     0,   108,     0,     0,   200
  53. 620 DATA      0,     0,     0,   180,    48,   205,    33,    60,   526
  54. 630 DATA      2,   115,    23,   186,   117,     1,   180,     9,   633
  55. 640 DATA    205,    33,   205,    32,   172,    60,    13,   116,   836
  56. 650 DATA    245,   191,   231,     1,   185,     5,     0,   242,  1100
  57. 660 DATA    174,   195,   186,    76,     1,   190,   129,     0,   951
  58. 670 DATA    252,   232,   232,   255,   116,   251,   139,   222,  1699
  59. 680 DATA     75,   232,   224,   255,   117,   251,    78,   135,  1367
  60. 690 DATA    243,   191,    11,     4,   128,   124,     1,    58,   760
  61. 700 DATA    117,     5,   173,    36,   223,   235,     8,   180,   977
  62. 710 DATA     25,   205,    33,     4,    65,   180,    58,   171,   741
  63. 720 DATA    176,    92,    56,     4,   116,    35,   170,    86,   735
  64. 730 DATA    139,   247,   138,    84,   253,   128,   234,    64,  1287
  65. 740 DATA    180,    71,   205,    33,   186,   137,     1,   114,   927
  66. 750 DATA    165,    42,   192,    56,     4,   116,     9,   185,   769
  67. 760 DATA     64,     0,   242,   174,    79,   176,    92,   170,   997
  68. 770 DATA     94,   139,   203,    43,   206,   243,   164,    42,  1134
  69. 780 DATA    192,   170,   137,    62,   236,     1,   131,   235,  1164
  70. 790 DATA      4,   160,   128,     0,     4,   128,    42,   195,   661
  71. 800 DATA    180,    32,   137,     7,   199,    71,     2,    47,   675
  72. 810 DATA     67,   161,    44,     0,   163,   251,     1,   137,   824
  73. 820 DATA     30,   253,     1,   140,    14,   255,     1,   140,   834
  74. 830 DATA     14,     3,     2,   140,    14,     5,     2,   186,   366
  75. 840 DATA    224,     3,   180,    26,   205,    33,   139,    62,   872
  76. 850 DATA    236,     1,   186,    11,     4,    43,   201,   180,   862
  77. 860 DATA     78,   205,    33,   115,    11,    61,    18,     0,   521
  78. 870 DATA    116,    37,   186,   137,     1,   233,    62,   255,  1027
  79. 880 DATA    139,   199,     5,     0,     2,   114,     4,    59,   522
  80. 890 DATA    196,   114,     6,   186,   161,     1,   233,    45,   942
  81. 900 DATA    255,   190,   254,     3,   232,   233,     0,   255,  1422
  82. 910 DATA      6,   238,     1,   180,    79,   235,   210,   137,  1086
  83. 920 DATA     62,   240,     1,   139,    62,   236,     1,   185,   926
  84. 930 DATA     64,     0,   176,    92,   253,   242,   174,   198,  1199
  85. 940 DATA     69,     2,     0,   252,   184,     0,    51,   205,   763
  86. 950 DATA     33,   136,    22,   242,     1,    42,   210,   184,   870
  87. 960 DATA      1,    51,   205,    33,   179,   255,   183,     2,   909
  88. 970 DATA    232,   134,     0,   139,    30,   240,     1,   129,   905
  89. 980 DATA    195,     0,     2,   139,   227,   131,   195,    15,   904
  90. 990 DATA    177,     4,   211,   235,   180,    74,   205,    33,  1119
  91. 1000 DATA   186,   188,     1,   114,    86,     6,   142,     6,   729
  92. 1010 DATA    44,     0,    43,   255,   190,   243,     1,   186,   962
  93. 1020 DATA   211,     1,    38,   128,    61,     0,   116,    67,   622
  94. 1030 DATA    86,    87,   185,     8,     0,   243,   166,    95,   870
  95. 1040 DATA    94,   116,     9,    42,   192,   185,   255,   255,  1148
  96. 1050 DATA   242,   174,   235,   230,   131,   199,     8,    30,  1249
  97. 1060 DATA     6,    31,     7,   137,    38,     9,     2,   139,   369
  98. 1070 DATA   215,   187,   251,     1,   184,     0,    75,   205,  1118
  99. 1080 DATA    33,   140,   200,   142,   216,   142,   192,   142,  1207
  100. 1090 DATA   208,   139,    38,     9,     2,   156,    42,   210,   804
  101. 1100 DATA   184,     1,    51,   205,    33,   157,   186,   211,  1028
  102. 1110 DATA     1,   115,     4,   180,     9,   205,    33,   179,   726
  103. 1120 DATA   253,   183,     0,   232,    11,     0,   138,    22,   839
  104. 1130 DATA   242,     1,   184,     1,    51,   205,    33,   205,   922
  105. 1140 DATA    32,   139,    14,   238,     1,   227,    40,   139,   830
  106. 1150 DATA    54,   236,     1,   139,    22,   240,     1,    86,   779
  107. 1160 DATA   190,    11,     4,   139,   250,   232,    24,     0,   850
  108. 1170 DATA    79,    94,   232,    19,     0,    81,   184,     0,   689
  109. 1180 DATA    67,   205,    33,    34,   203,    10,   207,   184,   943
  110. 1190 DATA     1,    67,   205,    33,    89,   226,   224,   195,  1040
  111. 1200 DATA   164,   128,   125,   255,     0,   117,   249,   195,  1233
  112.