home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n08.zip / PLAY.BAS < prev    next >
BASIC Source File  |  1987-01-30  |  8KB  |  128 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE PLAY.COM
  2. 110 OPEN "PLAY.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  108 
  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 = 90539 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    235,   108,   144,    67,   111,   112,   121,   114,  1012
  21. 300 DATA    105,   103,   104,   116,    32,   108,    57,    56,   681
  22. 310 DATA     55,    32,    90,   105,   102,   102,    45,    68,   599
  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,    77,   105,    99,   104,   635
  26. 350 DATA     97,   101,   108,    32,    74,    46,    32,    77,   567
  27. 360 DATA    101,   102,   102,   111,   114,   100,     0,     0,   630
  28. 370 DATA      0,     0,     4,    64,     0,   136,     0,     1,   205
  29. 380 DATA      0,     0,   104,    65,    72,    69,   104,    73,   487
  30. 390 DATA    200,    77,   104,    82,    80,    87,   128,    92,   850
  31. 400 DATA      0,    98,   208,   103,     0,   110,    16,   116,   651
  32. 410 DATA    128,   123,    80,    76,    65,    89,    46,    68,   675
  33. 420 DATA     65,    84,     0,     0,     0,     0,   187,     0,   336
  34. 430 DATA     64,   232,   175,     2,   184,     8,    53,   205,   923
  35. 440 DATA     33,   137,    30,    62,     1,   140,     6,    64,   473
  36. 450 DATA      1,    30,     7,   186,    48,     4,   184,     8,   468
  37. 460 DATA     37,   205,    33,   128,    62,   128,     0,     0,   593
  38. 470 DATA    116,    88,   190,   129,     0,   172,    60,    13,   768
  39. 480 DATA    116,    80,    60,    47,   116,    19,    60,    48,   546
  40. 490 DATA    114,   243,   198,     6,   107,     1,     1,    60,   730
  41. 500 DATA     97,   114,   234,   128,   100,   255,    95,   235,  1258
  42. 510 DATA    228,    60,    47,   117,     4,   198,    68,   255,   977
  43. 520 DATA      0,   172,    60,    13,   116,    44,    36,    95,   536
  44. 530 DATA     60,    75,   117,     5,   198,     6,   109,     1,   571
  45. 540 DATA      1,    60,    70,   117,   228,   198,     6,   108,   788
  46. 550 DATA      1,     1,   235,   221,   187,     0,     0,   232,   877
  47. 560 DATA     73,     2,   139,    22,    62,     1,   161,    64,   524
  48. 570 DATA      1,   142,   216,   184,     8,    37,   205,    33,   826
  49. 580 DATA    205,    32,   128,    62,   107,     1,     1,   116,   652
  50. 590 DATA      5,   186,    98,     1,   235,    10,   128,    62,   725
  51. 600 DATA    108,     1,     1,   117,    69,   186,   130,     0,   612
  52. 610 DATA    184,     0,    61,   205,    33,   114,   205,   139,   941
  53. 620 DATA    216,   186,    93,     4,   185,     0,   240,   180,  1104
  54. 630 DATA     63,   205,    33,   139,   200,   190,    93,     4,   927
  55. 640 DATA    191,    93,     4,   172,    36,   127,    60,    58,   741
  56. 650 DATA    116,    28,    60,    97,   114,     2,    36,    95,   548
  57. 660 DATA     60,    32,   118,     1,   170,   226,   236,   198,  1041
  58. 670 DATA      5,    13,   190,    93,     4,   235,    14,   172,   726
  59. 680 DATA     36,   127,    60,    10,   116,   239,   226,   247,  1061
  60. 690 DATA    235,   237,   190,   130,     0,   128,    62,   109,  1091
  61. 700 DATA      1,     1,   116,     6,   180,     1,   205,    22,   532
  62. 710 DATA    117,   130,   172,    60,    13,   119,     3,   233,   847
  63. 720 DATA    122,   255,    60,    32,   116,   231,    60,    44,   920
  64. 730 DATA    116,   227,    60,    59,   116,   223,    60,    79,   940
  65. 740 DATA    117,    12,   232,   227,     0,    60,     7,   119,   774
  66. 750 DATA    212,   162,    66,     1,   235,   207,    60,    76,  1019
  67. 760 DATA    117,    23,   232,   211,     0,    60,     0,   116,   759
  68. 770 DATA    196,    60,    64,   119,   192,    51,   210,   184,  1076
  69. 780 DATA      0,     1,   247,   243,   163,    67,     1,   235,   957
  70. 790 DATA    180,    60,    84,   117,    18,   232,   184,     0,   875
  71. 800 DATA     60,    32,   114,   169,   184,   255,     0,    42,   856
  72. 810 DATA    195,    64,   163,    69,     1,   235,   158,    60,   945
  73. 820 DATA     78,   117,    40,   232,   162,     0,    60,    84,   773
  74. 830 DATA    119,   147,    60,     0,   116,     2,   254,   200,   898
  75. 840 DATA     50,   228,   177,    12,   246,   241,   185,     8,  1147
  76. 850 DATA      0,    42,   200,   138,   220,    50,   255,   209,  1114
  77. 860 DATA    227,   139,   159,    74,     1,   232,   200,     0,  1032
  78. 870 DATA    233,   114,   255,    60,    65,   114,   118,    60,  1019
  79. 880 DATA     71,   119,    33,    60,    67,   114,     2,    44,   510
  80. 890 DATA      7,    44,    60,    50,   228,   139,   248,   177,   953
  81. 900 DATA      2,   211,   231,   131,   255,     8,   118,     3,   959
  82. 910 DATA    131,   239,     2,   232,   123,     0,   232,   148,  1107
  83. 920 DATA      0,   233,    73,   255,    60,    80,   117,    26,   844
  84. 930 DATA    232,    77,     0,    60,     0,   116,    70,    60,   615
  85. 940 DATA     64,   119,    66,    51,   210,   184,     0,     1,   695
  86. 950 DATA    247,   243,   139,   232,   232,   177,     0,   233,  1503
  87. 960 DATA     43,   255,    60,    75,   117,     8,   198,     6,   762
  88. 970 DATA    109,     1,     1,   233,    31,   255,    60,    77,   767
  89. 980 DATA    117,    35,   172,    60,    13,   117,     3,   233,   750
  90. 990 DATA    162,   254,    60,    78,   117,     5,   198,     6,   880
  91. 1000 DATA    71,     1,     1,    60,    76,   117,     5,   198,   529
  92. 1010 DATA     6,    71,     1,     2,    60,    83,   117,     5,   345
  93. 1020 DATA   198,     6,    71,     1,     3,   233,   245,   254,  1011
  94. 1030 DATA    51,   219,   128,    60,    48,   114,    21,   128,   769
  95. 1040 DATA    60,    57,   119,    16,   172,    44,    48,   138,   654
  96. 1050 DATA   208,   184,    10,     0,   246,   227,   138,   216,  1229
  97. 1060 DATA     2,   218,   235,   230,   138,   195,    50,   228,  1296
  98. 1070 DATA   195,   128,    60,    43,   117,     4,   131,   199,   877
  99. 1080 DATA     2,    70,   128,    60,    35,   117,     4,   131,   547
  100. 1090 DATA   199,     2,    70,   128,    60,    45,   117,     4,   625
  101. 1100 DATA   131,   239,     2,    70,   195,   139,   157,    74,  1007
  102. 1110 DATA     1,   185,     8,     0,    42,    14,    66,     1,   317
  103. 1120 DATA   211,   235,   186,    18,     0,    51,   192,   247,  1140
  104. 1130 DATA   243,   139,   216,   176,   182,   230,    67,   139,  1392
  105. 1140 DATA   195,   230,    66,   138,   196,   230,    66,   228,  1349
  106. 1150 DATA    97,    12,     3,   230,    97,   232,    12,     0,   683
  107. 1160 DATA   228,    97,    36,   252,   230,    97,   139,   203,  1282
  108. 1170 DATA   232,    67,     0,   195,   139,    46,    67,     1,   747
  109. 1180 DATA   139,   205,   128,    60,    46,   117,     7,    70,   772
  110. 1190 DATA   209,   233,     3,   233,   235,   244,   139,   205,  1501
  111. 1200 DATA    81,   128,    62,    71,     1,     2,   116,    35,   496
  112. 1210 DATA   139,   193,    51,   210,   128,    62,    71,     1,   855
  113. 1220 DATA     1,   117,    13,   185,     7,     0,   247,   225,   795
  114. 1230 DATA   177,     3,   211,   232,   139,   200,   235,    11,  1208
  115. 1240 DATA   185,     3,     0,   247,   225,   177,     2,   211,  1050
  116. 1250 DATA   232,   139,   200,    91,    43,   217,   161,    69,  1152
  117. 1260 DATA     1,   246,   225,    51,   210,   185,   200,     0,  1118
  118. 1270 DATA   247,   241,    64,   139,    14,    72,     1,     3,   781
  119. 1280 DATA   200,   114,     7,   161,    72,     1,    59,   193,   807
  120. 1290 DATA   114,   249,   195,   176,    54,   230,    67,   138,  1223
  121. 1300 DATA   195,   230,    64,   138,   199,   230,    64,   195,  1315
  122. 1310 DATA   251,   156,    80,    81,    82,    46,   255,     6,   957
  123. 1320 DATA    72,     1,    46,   161,    72,     1,    51,   210,   614
  124. 1330 DATA   185,     4,     0,   247,   241,   131,   250,     0,  1058
  125. 1340 DATA   117,     9,    90,    89,    88,   157,    46,   255,   851
  126. 1350 DATA    46,    62,     1,    90,    89,   250,   176,    32,   746
  127. 1360 DATA   230,    32,    88,   157,   207,     0,     0,     0,   714
  128.