home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol5n13.zip / STATLINE.BAS < prev    next >
BASIC Source File  |  1986-04-17  |  4KB  |  72 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE statline.COM
  2. 110 OPEN "statline.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  52 
  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 = 37052 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,    69,     1,    83,   116,    97,   116,   108,   823
  21. 300 DATA    105,   110,   101,    44,    32,    98,   121,    32,   643
  22. 310 DATA     74,   111,   104,   110,    32,    83,   111,    99,   724
  23. 320 DATA    104,    97,    13,    10,    36,     0,     0,     1,   261
  24. 330 DATA    244,    15,    32,   244,    15,    18,   240,    15,   823
  25. 340 DATA     32,   240,    15,    35,   236,    15,    32,   236,   841
  26. 350 DATA     15,    24,     0,     0,     0,     0,     0,     0,    39
  27. 360 DATA      0,     0,   156,    46,   255,    30,    50,     1,   538
  28. 370 DATA     46,   128,    62,    31,     1,     1,   117,     3,   389
  29. 380 DATA    232,     1,     0,   207,    80,    83,    81,    82,   766
  30. 390 DATA     86,    87,    30,     6,   184,    64,     0,   142,   599
  31. 400 DATA    216,   139,    22,    99,     0,   184,     0,   184,   844
  32. 410 DATA    129,   250,   208,     3,   115,     3,   184,     0,   892
  33. 420 DATA    176,   142,   192,   131,   194,     6,   138,    30,  1009
  34. 430 DATA     23,     0,   177,     4,   210,   235,   140,   200,   989
  35. 440 DATA    142,   216,    58,    30,    29,     1,   116,    46,   638
  36. 450 DATA    136,    30,    29,     1,   190,    32,     1,   185,   604
  37. 460 DATA      3,     0,    86,   208,   235,   115,     3,   131,   781
  38. 470 DATA    198,     3,   139,    60,   138,    68,     2,    81,   689
  39. 480 DATA    138,   200,   236,   168,     8,   117,   251,   236,  1354
  40. 490 DATA    168,     8,   116,   251,   138,   193,   170,    89,  1133
  41. 500 DATA     94,   131,   198,     6,   226,   220,     7,    31,   913
  42. 510 DATA     95,    94,    90,    89,    91,    88,   195,    10,   752
  43. 520 DATA    228,   116,     5,    46,   255,    46,    54,     1,   751
  44. 530 DATA     46,   162,    30,     1,    46,   136,    38,    31,   490
  45. 540 DATA      1,   156,    46,   255,    30,    54,     1,   232,   775
  46. 550 DATA     22,     0,    46,   198,     6,    29,     1,     0,   302
  47. 560 DATA    232,   113,   255,   207,     4,    26,     5,     3,   845
  48. 570 DATA      6,    26,     7,    26,     0,     6,    26,     0,    97
  49. 580 DATA     80,    81,    82,    86,    30,   140,   200,   142,   841
  50. 590 DATA    216,   198,     6,    31,     1,     0,   160,    30,   642
  51. 600 DATA      1,    60,     1,   126,    69,    60,     3,   126,   446
  52. 610 DATA      4,    60,     7,   117,    61,   198,     6,    31,   484
  53. 620 DATA      1,     1,   190,   220,     1,   186,   180,     3,   782
  54. 630 DATA     30,   184,    64,     0,   142,   216,   160,    16,   812
  55. 640 DATA      0,    36,    48,    60,    48,    31,   116,    21,   360
  56. 650 DATA    186,   212,     3,    30,   184,     0,   240,   142,   997
  57. 660 DATA    216,   129,    62,   234,   255,    67,    79,    31,  1073
  58. 670 DATA    116,     3,   190,   229,     1,   252,   172,    10,   973
  59. 680 DATA    192,   116,     7,   238,    66,   172,   238,    74,  1103
  60. 690 DATA    235,   244,    31,    94,    90,    89,    88,   195,  1066
  61. 700 DATA    141,    22,     3,     1,   180,     9,   205,    33,   594
  62. 710 DATA    180,    15,   205,    16,   162,    30,     1,   232,   841
  63. 720 DATA    142,   255,   232,   239,   254,   184,     0,     0,  1306
  64. 730 DATA    142,   216,   250,   161,    36,     0,    46,   163,  1014
  65. 740 DATA     50,     1,   161,    38,     0,    46,   163,    52,   511
  66. 750 DATA      1,   199,     6,    36,     0,    58,     1,   140,   441
  67. 760 DATA     14,    38,     0,   161,    64,     0,    46,   163,   486
  68. 770 DATA     54,     1,   161,    66,     0,    46,   163,    56,   547
  69. 780 DATA      1,   199,     6,    64,     0,   183,     1,   140,   594
  70. 790 DATA     14,    66,     0,   251,   186,    72,     2,   205,   796
  71. 800 DATA     39,     0,     0,     0,     0,     0,     0,     0,    39
  72.