home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol5n22.zip / FREEZE.BAS < prev    next >
BASIC Source File  |  1987-12-12  |  6KB  |  83 lines

  1. 100 REM -- BASIC PROGRAM TO CREATE b:freeze.COM
  2. 110 OPEN "b:freeze.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  63 
  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 = 45879 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   125,     1,     0,     0,     0,     0,     0,   359
  21. 300 DATA      0,    44,    40,    45,    41,    42,    46,    30,   288
  22. 310 DATA     41,    73,    66,    77,    13,    10,    70,   114,   464
  23. 320 DATA    101,   101,   122,   101,    32,    65,   108,   114,   744
  24. 330 DATA    101,    97,   100,   121,    32,    76,   111,    97,   735
  25. 340 DATA    100,   101,   100,    13,    10,    36,    13,    10,   383
  26. 350 DATA     67,   111,   112,   121,   114,   105,   103,   104,   837
  27. 360 DATA    116,    32,    49,    57,    56,    54,    32,    90,   486
  28. 370 DATA    105,   102,   102,    45,    68,    97,   118,   105,   742
  29. 380 DATA    115,    32,    80,   117,    98,   108,   105,   115,   770
  30. 390 DATA    104,   105,   110,   103,    32,    67,   111,    46,   678
  31. 400 DATA     13,    10,    36,     0,     0,     0,     0,     0,    59
  32. 410 DATA      0,     0,     0,   128,   252,   255,   117,     3,   755
  33. 420 DATA    138,   252,   207,    46,   255,    46,    95,     1,  1040
  34. 430 DATA    251,    80,    83,    81,    82,    86,    87,    30,   780
  35. 440 DATA      6,   228,    96,    36,   127,    46,   128,    62,   729
  36. 450 DATA      4,     1,     0,   116,    20,    60,    83,   117,   401
  37. 460 DATA     28,   180,     2,   205,    22,    36,    12,    60,   545
  38. 470 DATA     12,   117,    18,   232,   168,     0,   235,    93,   875
  39. 480 DATA    144,    60,    69,   117,     8,   180,     2,   205,   785
  40. 490 DATA     22,   168,     8,   117,    13,     7,    31,    95,   461
  41. 500 DATA     94,    90,    89,    91,    88,    46,   255,    46,   799
  42. 510 DATA     91,     1,   232,   137,     0,    46,   198,     6,   711
  43. 520 DATA      4,     1,     1,    14,    31,    14,     7,   232,   304
  44. 530 DATA     60,     0,    51,   255,   232,   138,     0,    11,   747
  45. 540 DATA    201,   116,    34,    60,    27,   116,    30,   137,   721
  46. 550 DATA     14,     5,     1,   191,   128,     0,   232,   120,   691
  47. 560 DATA      0,    59,    14,     5,     1,   117,   244,    60,   500
  48. 570 DATA     27,   116,   240,    51,   246,   191,   128,     0,   999
  49. 580 DATA    252,   243,   167,   117,   230,   198,     6,     4,  1217
  50. 590 DATA      1,     0,   232,    30,     0,     7,    31,    95,   396
  51. 600 DATA     94,    90,    89,    91,    88,   207,   128,    62,   849
  52. 610 DATA      3,     1,     0,   116,     8,   139,    22,     7,   296
  53. 620 DATA      1,   176,    37,   238,   195,    50,   192,   232,  1121
  54. 630 DATA     29,     0,   195,   128,    62,     3,     1,     0,   418
  55. 640 DATA    116,    15,   139,    22,     7,     1,   180,    15,   495
  56. 650 DATA    205,    16,   141,    30,     9,     1,   215,   238,   855
  57. 660 DATA    195,   176,    32,   232,     1,     0,   195,    80,   911
  58. 670 DATA    186,   186,     3,   236,   186,   218,     3,   236,  1254
  59. 680 DATA    186,   192,     3,    88,   238,   195,   228,    97,  1227
  60. 690 DATA    138,   224,    12,   128,   230,    97,   138,   196,  1163
  61. 700 DATA    230,    97,   250,   176,    32,   230,    32,   251,  1298
  62. 710 DATA    195,   252,    51,   201,   180,     0,   205,    22,  1106
  63. 720 DATA     60,    13,   116,    35,    60,    27,   116,    31,   458
  64. 730 DATA     60,     8,   116,     9,   131,   249,    64,   116,   753
  65. 740 DATA     14,    65,   171,   235,   231,    11,   201,   116,  1044
  66. 750 DATA    227,   131,   239,     2,    73,   235,   221,   180,  1308
  67. 760 DATA     14,   176,     7,   205,    16,   235,   213,   195,  1061
  68. 770 DATA    180,   255,    50,   255,   205,    22,    10,   255,  1232
  69. 780 DATA    116,     9,   141,    22,    20,     1,   180,     9,   498
  70. 790 DATA    205,    33,   195,   184,     0,   192,   142,   192,  1143
  71. 800 DATA    191,    30,     0,   141,    54,    17,     1,   185,   619
  72. 810 DATA      3,     0,   252,   243,   166,   116,    20,   198,   998
  73. 820 DATA      6,     3,     1,     1,   184,    64,     0,   142,   401
  74. 830 DATA    192,    38,   161,    99,     0,     5,     4,     0,   499
  75. 840 DATA    163,     7,     1,   180,    53,   176,    22,   205,   807
  76. 850 DATA     33,   137,    30,    95,     1,   140,     6,    97,   539
  77. 860 DATA      1,   180,    37,   176,    22,   141,    22,    99,   678
  78. 870 DATA      1,   205,    33,   180,    53,   176,     9,   205,   862
  79. 880 DATA     33,   137,    30,    91,     1,   140,     6,    93,   531
  80. 890 DATA      1,   180,    37,   176,     9,   141,    22,   112,   678
  81. 900 DATA      1,   205,    33,   141,    22,   128,     2,   205,   737
  82. 910 DATA     39,     0,     0,     0,     0,     0,     0,     0,    39
  83.