home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1986 / 17 / pop-cal.bas < prev    next >
BASIC Source File  |  1986-07-28  |  9KB  |  130 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE pop-cal.COM
  2. 110 OPEN "pop-cal.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  110 
  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 = 96431 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,    10,     3,    67,   111,   112,   121,   114,   771
  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,    83,   117,   110,    77,   637
  26. 350 DATA    111,   110,    84,   117,   101,    87,   101,   100,   811
  27. 360 DATA     84,   104,   114,    70,   114,   105,    83,    97,   771
  28. 370 DATA    116,    74,    97,   110,    70,   101,    98,    77,   743
  29. 380 DATA     97,   114,    65,   112,   114,    77,    97,   121,   797
  30. 390 DATA     74,   117,   110,    74,   117,   108,    65,   117,   782
  31. 400 DATA    103,    83,   101,   112,    79,    99,   116,    78,   771
  32. 410 DATA    111,   118,    68,   101,    99,    31,    28,    31,   587
  33. 420 DATA     30,    31,    30,    31,    31,    30,    31,    30,   244
  34. 430 DATA     31,    64,     0,     0,    46,   251,   128,   252,   772
  35. 440 DATA      0,   116,     5,    46,   255,    46,   235,     0,   703
  36. 450 DATA     46,   128,    62,   252,     0,     0,   117,   243,   848
  37. 460 DATA    156,    46,   255,    30,   235,     0,    46,    59,   827
  38. 470 DATA      6,   115,     1,   116,     1,   207,    46,   198,   690
  39. 480 DATA      6,   252,     0,     1,    46,   140,    22,   239,   706
  40. 490 DATA      0,    46,   137,    38,   241,     0,   140,   204,   806
  41. 500 DATA    250,   142,   212,   188,   235,     0,   251,    80,  1358
  42. 510 DATA     83,    81,    82,    85,    86,    87,    30,     6,   540
  43. 520 DATA    232,    31,     0,     7,    31,    95,    94,    93,   583
  44. 530 DATA     90,    89,    91,    88,   250,    46,   142,    22,   818
  45. 540 DATA    239,     0,    46,   139,    38,   241,     0,   251,   954
  46. 550 DATA    180,     0,    46,   198,     6,   252,     0,     0,   682
  47. 560 DATA    235,   174,    14,    14,    31,     7,   252,   232,   959
  48. 570 DATA    171,     1,   235,     9,   144,   136,    54,   245,   995
  49. 580 DATA      0,   137,    14,   246,     0,   232,    83,     0,   712
  50. 590 DATA    180,     0,   205,    22,    59,     6,   115,     1,   588
  51. 600 DATA    117,     4,   232,   144,     1,   195,   138,    54,   885
  52. 610 DATA    245,     0,   139,    14,   246,     0,   128,   252,  1024
  53. 620 DATA     75,   117,    10,   254,   206,   121,   214,   182,  1179
  54. 630 DATA     11,    73,   235,    39,   144,   128,   252,    77,   959
  55. 640 DATA    117,    13,   254,   198,   128,   254,    11,   126,  1101
  56. 650 DATA    196,   182,     0,    65,   235,     7,   144,   128,   957
  57. 660 DATA    252,    72,   117,     9,    65,   129,   249,    16,   909
  58. 670 DATA     39,   125,   189,   235,   176,   128,   252,    80,  1224
  59. 680 DATA    117,   182,    73,   129,   249,    46,     6,   126,   928
  60. 690 DATA    175,   235,   162,   232,   146,     0,   142,     6,  1098
  61. 700 DATA    243,     0,   160,   245,     0,   152,   185,     3,   988
  62. 710 DATA      0,   246,   225,   190,    65,     1,     3,   240,   970
  63. 720 DATA    139,    62,   254,     0,     3,    62,   249,     0,   769
  64. 730 DATA    131,   199,    22,   172,   232,    13,     1,   226,   996
  65. 740 DATA    250,   131,   199,     2,   161,   246,     0,   179,  1168
  66. 750 DATA    100,   246,   243,   183,     1,   232,   206,     0,  1211
  67. 760 DATA    138,   196,   232,   201,     0,   161,   254,     0,  1182
  68. 770 DATA    179,     4,   246,   227,     5,     4,     0,   139,   804
  69. 780 DATA     62,   249,     0,     3,   248,   138,    22,   248,   970
  70. 790 DATA      0,   138,   202,   182,     6,   227,     5,   232,   992
  71. 800 DATA    206,     0,   226,   251,   177,     7,    42,   202,  1111
  72. 810 DATA    138,    30,   245,     0,    50,   255,   138,   151,  1007
  73. 820 DATA    101,     1,   176,     1,   232,   151,     0,   254,   916
  74. 830 DATA    192,   131,   199,     4,   254,   202,   116,    10,  1108
  75. 840 DATA    226,   242,   232,    15,     0,   235,   237,   232,  1419
  76. 850 DATA    166,     0,   226,   251,   232,     5,     0,   117,   997
  77. 860 DATA    246,    14,     7,   195,     3,    62,   249,     0,   776
  78. 870 DATA    131,   199,     4,   177,     7,   254,   206,   195,  1173
  79. 880 DATA    139,    54,   246,     0,   198,     6,   102,     1,   746
  80. 890 DATA     28,   247,   198,     3,     0,   117,     5,   198,   796
  81. 900 DATA      6,   102,     1,    29,   187,     6,     0,   139,   470
  82. 910 DATA    198,    45,    47,     6,     3,   216,     5,     2,   522
  83. 920 DATA      0,   185,     4,     0,   153,   247,   241,     3,   833
  84. 930 DATA    216,   129,   254,   164,     6,   124,    35,   139,  1067
  85. 940 DATA    198,    45,    64,     6,   177,   100,   153,   247,   990
  86. 950 DATA    241,   131,   250,     0,   117,    11,   169,     3,   922
  87. 960 DATA      0,   116,     5,   198,     6,   102,     1,    28,   456
  88. 970 DATA     72,    43,   216,   153,   177,     4,   247,   241,  1153
  89. 980 DATA      3,   216,   190,   101,     1,    50,   228,   138,   927
  90. 990 DATA     14,   245,     0,   227,     5,   172,     3,   216,   882
  91. 1000 DATA   226,   251,   139,   195,   153,   177,     7,   247,  1395
  92. 1010 DATA   241,   136,    22,   248,     0,   195,    80,    83,  1005
  93. 1020 DATA   212,    10,     5,    48,    48,   128,   252,    48,   751
  94. 1030 DATA   117,     7,   128,   255,     1,   116,     2,   180,   806
  95. 1040 DATA    32,   138,   216,   138,   196,   232,    20,     0,   972
  96. 1050 DATA   138,   195,   232,    15,     0,    91,    88,   195,   954
  97. 1060 DATA   176,    32,   232,     7,     0,   232,     4,     0,   683
  98. 1070 DATA   131,   199,     4,   195,    82,   139,    22,     0,   772
  99. 1080 DATA     1,   138,   224,   236,   168,     1,   117,   251,  1136
  100. 1090 DATA   250,   236,   168,     1,   116,   251,   138,   196,  1356
  101. 1100 DATA   170,   251,    71,    90,   195,   232,    60,     0,  1069
  102. 1110 DATA   139,    22,     0,     1,   131,   234,     2,   142,   671
  103. 1120 DATA     6,   113,     1,    38,   138,    62,   101,     0,   459
  104. 1130 DATA   138,   199,    36,   247,   238,   190,   105,     4,  1157
  105. 1140 DATA   139,    62,   249,     0,   142,     6,   243,     0,   841
  106. 1150 DATA   179,    11,   185,    30,     0,    38,   139,     5,   587
  107. 1160 DATA   165,   137,    68,   254,   226,   247,     3,    62,  1162
  108. 1170 DATA   249,     0,   254,   203,   117,   236,   138,   199,  1396
  109. 1180 DATA   238,    14,     7,   195,     6,   142,     6,   113,   721
  110. 1190 DATA     1,    38,   161,    74,     0,   209,   224,   163,   870
  111. 1200 DATA   254,     0,    44,    60,   163,   249,     0,    38,   808
  112. 1210 DATA   161,    99,     0,     5,     6,     0,   163,     0,   434
  113. 1220 DATA     1,   198,     6,   251,     0,   112,    38,   138,   744
  114. 1230 DATA    30,    73,     0,   128,   251,     7,   184,     0,   673
  115. 1240 DATA   176,   116,    13,   184,     0,   184,   246,   195,  1114
  116. 1250 DATA     1,   116,     5,   198,     6,   251,     0,    31,   608
  117. 1260 DATA   163,   243,     0,     7,   195,   232,   188,   255,  1283
  118. 1270 DATA   191,   105,     4,   138,    38,   251,     0,   176,   903
  119. 1280 DATA    32,   185,    74,     1,   243,   171,    87,   190,   983
  120. 1290 DATA    44,     1,   179,     7,   191,   105,     4,   129,   660
  121. 1300 DATA   199,   184,     0,   185,     3,     0,   164,    71,   806
  122. 1310 DATA   226,   252,    71,    71,   254,   203,   117,   243,  1437
  123. 1320 DATA   180,    42,   205,    33,   254,   206,   136,    54,  1110
  124. 1330 DATA   245,     0,   137,    14,   246,     0,    51,   192,   885
  125. 1340 DATA   142,   192,    38,   161,    88,     0,   163,   235,  1019
  126. 1350 DATA     0,    38,   161,    90,     0,   163,   237,     0,   689
  127. 1360 DATA   184,   117,     1,   250,    38,   163,    88,     0,   841
  128. 1370 DATA    38,   140,    14,    90,     0,   251,    90,   205,   828
  129. 1380 DATA    39,     0,     0,     0,     0,     0,     0,     0,    39
  130.