home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1987 / 09 / draw.bas < prev    next >
BASIC Source File  |  1987-02-17  |  15KB  |  219 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE DRAW.COM
  2. 110 OPEN "DRAW.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  199 
  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 = 142750 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   138,     0,    67,   111,   112,   121,   114,   896
  21. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  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,    68,    82,   780
  28. 370 DATA     65,    87,    46,    68,    65,    84,     0,     0,   415
  29. 380 DATA      0,     0,    63,     1,    99,     0,    87,     2,   252
  30. 390 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  31. 400 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  32. 410 DATA      0,     0,     0,     0,     1,     1,     1,     0,     3
  33. 420 DATA      1,     0,     0,     0,     0,     0,     0,     0,     1
  34. 430 DATA      0,     0,    68,   114,    97,   119,    32,   114,   544
  35. 440 DATA    101,   113,   117,   105,   114,   101,   115,    32,   798
  36. 450 DATA     67,    71,    65,    32,    97,   100,    97,   112,   641
  37. 460 DATA    116,   101,   114,    46,    36,   184,    64,     0,   661
  38. 470 DATA    142,   216,   129,    62,    99,     0,   180,     3,   831
  39. 480 DATA     14,    31,   117,     9,   186,   114,     1,   180,   652
  40. 490 DATA      9,   205,    33,   205,    32,   128,    62,   128,   802
  41. 500 DATA      0,     0,   116,    66,   190,   129,     0,   172,   673
  42. 510 DATA     60,    13,   116,    58,    60,    47,   116,    19,   489
  43. 520 DATA     60,    48,   114,   243,   198,     6,    71,     1,   741
  44. 530 DATA      1,    60,    97,   114,   234,   128,   100,   255,   989
  45. 540 DATA     95,   235,   228,    60,    47,   117,     4,   198,   984
  46. 550 DATA     68,   255,     0,   172,    60,    13,   116,    22,   706
  47. 560 DATA     36,    95,    60,    75,   117,     5,   198,     6,   592
  48. 570 DATA     73,     1,     1,    60,    70,   117,   228,   198,   748
  49. 580 DATA      6,    72,     1,     1,   235,   221,   128,    62,   726
  50. 590 DATA     71,     1,     1,   116,     5,   186,    62,     1,   443
  51. 600 DATA    235,    10,   128,    62,    72,     1,     1,   117,   626
  52. 610 DATA     71,   186,   130,     0,   184,     0,    61,   205,   837
  53. 620 DATA     33,   114,    59,   139,   216,   186,    53,     7,   807
  54. 630 DATA    185,     0,   240,   180,    63,   205,    33,   139,  1045
  55. 640 DATA    200,   190,    53,     7,   191,    53,     7,   172,   873
  56. 650 DATA     36,   127,    60,    58,   116,    28,    60,    97,   582
  57. 660 DATA    114,     2,    36,    95,    60,    32,   118,     1,   458
  58. 670 DATA    170,   226,   236,   198,     5,    13,   190,    53,  1091
  59. 680 DATA      7,   235,    16,   172,    36,   127,    60,    10,   663
  60. 690 DATA    116,   239,   226,   247,   235,   237,   205,    32,  1537
  61. 700 DATA    190,   130,     0,   128,    60,    88,   117,    41,   754
  62. 710 DATA     70,    86,   184,     4,     0,   205,    16,   199,   764
  63. 720 DATA      6,    74,     1,   159,     0,   199,     6,    78,   523
  64. 730 DATA      1,    63,     1,   198,     6,   100,     1,     3,   373
  65. 740 DATA    198,     6,   104,     1,     3,   232,   241,     2,   787
  66. 750 DATA    183,     1,   180,    11,   205,    16,    94,   235,   925
  67. 760 DATA      7,   184,     6,     0,    86,   205,    16,    94,   598
  68. 770 DATA    128,    62,    73,     1,     1,   116,     6,   180,   567
  69. 780 DATA      1,   205,    22,   117,   185,   172,    60,    13,   775
  70. 790 DATA    118,   180,    60,    32,   116,   234,    60,    44,   844
  71. 800 DATA    116,   230,    60,    59,   116,   226,    60,    85,   952
  72. 810 DATA    117,    15,   199,     6,    80,     1,     0,     0,   418
  73. 820 DATA    199,     6,    82,     1,   255,   255,   233,   201,  1232
  74. 830 DATA      0,    60,    68,   117,    15,   199,     6,    80,   545
  75. 840 DATA      1,     0,     0,   199,     6,    82,     1,     1,   290
  76. 850 DATA      0,   233,   182,     0,    60,    76,   117,    15,   683
  77. 860 DATA    199,     6,    80,     1,   255,   255,   199,     6,  1001
  78. 870 DATA     82,     1,     0,     0,   233,   163,     0,    60,   539
  79. 880 DATA     82,   117,    15,   199,     6,    80,     1,     1,   501
  80. 890 DATA      0,   199,     6,    82,     1,     0,     0,   233,   521
  81. 900 DATA    144,     0,    60,    69,   117,    14,   199,     6,   609
  82. 910 DATA     80,     1,     1,     0,   199,     6,    82,     1,   370
  83. 920 DATA    255,   255,   235,   126,    60,    70,   117,    14,  1132
  84. 930 DATA    199,     6,    80,     1,     1,     0,   199,     6,   492
  85. 940 DATA     82,     1,     1,     0,   235,   108,    60,    71,   558
  86. 950 DATA    117,    14,   199,     6,    80,     1,   255,   255,   927
  87. 960 DATA    199,     6,    82,     1,     1,     0,   235,    90,   614
  88. 970 DATA     60,    72,   117,    14,   199,     6,    80,     1,   549
  89. 980 DATA    255,   255,   199,     6,    82,     1,   255,   255,  1308
  90. 990 DATA    235,    72,    60,    66,   117,     7,   198,     6,   761
  91. 1000 DATA   102,     1,     0,   235,    67,    60,    78,   117,   660
  92. 1010 DATA     7,   198,     6,   101,     1,     0,   235,    56,   604
  93. 1020 DATA    60,    67,   117,     8,   232,    18,     2,   162,   666
  94. 1030 DATA   100,     1,   235,    44,    60,    83,   117,     5,   645
  95. 1040 DATA   232,    41,     2,   235,    35,    60,    77,   117,   799
  96. 1050 DATA     5,   232,   109,     0,   235,    26,    60,    80,   747
  97. 1060 DATA   117,     5,   232,    54,     2,   235,    17,    60,   722
  98. 1070 DATA    75,   117,    13,   198,     6,    73,     1,     1,   484
  99. 1080 DATA   235,     6,   232,     6,     0,   232,   195,     1,   907
  100. 1090 DATA   233,   253,   254,   232,   146,     1,   232,   216,  1567
  101. 1100 DATA     1,    61,     0,     0,   116,    66,   232,   158,   634
  102. 1110 DATA     1,   139,    14,    80,     1,     3,    14,    74,   326
  103. 1120 DATA     1,   131,   249,     0,   114,    50,    59,    14,   618
  104. 1130 DATA    78,     1,   119,    44,   137,    14,    74,     1,   468
  105. 1140 DATA   139,    22,    82,     1,     3,    22,    76,     1,   346
  106. 1150 DATA   131,   250,     0,   114,    27,   129,   250,   199,  1100
  107. 1160 DATA     0,   119,    21,   137,    22,    76,     1,   128,   504
  108. 1170 DATA    62,   102,     1,     1,   117,     7,   160,   100,   550
  109. 1180 DATA     1,   180,    12,   205,    16,    75,   117,   193,   799
  110. 1190 DATA   195,   232,    27,     1,   115,    50,   199,     6,   825
  111. 1200 DATA    80,     1,     1,     0,   131,   253,     2,   117,   585
  112. 1210 DATA     8,   199,     6,    80,     1,   255,   255,   247,  1051
  113. 1220 DATA   216,   163,    88,     1,    70,   232,   255,     0,  1025
  114. 1230 DATA   199,     6,    82,     1,     1,     0,   131,   253,   673
  115. 1240 DATA     2,   117,     8,   199,     6,    82,     1,   255,   670
  116. 1250 DATA   255,   247,   216,   163,    90,     1,   235,    50,  1257
  117. 1260 DATA    43,     6,    74,     1,   199,     6,    80,     1,   410
  118. 1270 DATA     1,     0,   125,     8,   199,     6,    80,     1,   420
  119. 1280 DATA   255,   255,   247,   216,   163,    88,     1,    70,  1295
  120. 1290 DATA   232,   204,     0,    43,     6,    76,     1,   199,   761
  121. 1300 DATA     6,    82,     1,     1,     0,   125,     8,   199,   422
  122. 1310 DATA     6,    82,     1,   255,   255,   247,   216,   163,  1225
  123. 1320 DATA    90,     1,   232,   219,     0,   232,   239,     0,  1013
  124. 1330 DATA   161,    88,     1,    59,     6,    90,     1,   124,   530
  125. 1340 DATA     5,   232,     9,     0,   235,     3,   232,    81,   797
  126. 1350 DATA     0,   232,   239,     0,   195,   161,    88,     1,   916
  127. 1360 DATA   163,    96,     1,   255,     6,    96,     1,   209,   827
  128. 1370 DATA   232,   163,    92,     1,   199,     6,    94,     1,   788
  129. 1380 DATA     0,     0,   161,    82,     1,   163,    98,     1,   506
  130. 1390 DATA   235,     6,   187,     1,     0,   232,    25,   255,   941
  131. 1400 DATA   199,     6,    82,     1,     0,     0,   161,    90,   539
  132. 1410 DATA     1,     3,     6,    94,     1,   163,    94,     1,   363
  133. 1420 DATA    59,     6,    92,     1,   126,    13,    43,     6,   346
  134. 1430 DATA    88,     1,   163,    94,     1,   161,    98,     1,   607
  135. 1440 DATA   163,    82,     1,   255,    14,    96,     1,   117,   729
  136. 1450 DATA   209,   195,   161,    90,     1,   163,    96,     1,   916
  137. 1460 DATA   255,     6,    96,     1,   209,   232,   163,    94,  1056
  138. 1470 DATA     1,   199,     6,    92,     1,     0,     0,   161,   460
  139. 1480 DATA    80,     1,   163,    98,     1,   235,     6,   187,   771
  140. 1490 DATA     1,     0,   232,   204,   254,   199,     6,    80,   976
  141. 1500 DATA     1,     0,     0,   161,    88,     1,     3,     6,   260
  142. 1510 DATA    92,     1,   163,    92,     1,    59,     6,    94,   508
  143. 1520 DATA     1,   126,    13,    43,     6,    90,     1,   163,   443
  144. 1530 DATA    92,     1,   161,    98,     1,   163,    80,     1,   597
  145. 1540 DATA   255,    14,    96,     1,   117,   209,   195,    51,   938
  146. 1550 DATA   237,   128,    60,    43,   117,     6,    70,   189,   850
  147. 1560 DATA     1,     0,   235,     9,   128,    60,    45,   117,   595
  148. 1570 DATA     4,    70,   189,     2,     0,   232,    89,     0,   586
  149. 1580 DATA   131,   253,     2,   117,     2,   247,   216,   131,  1099
  150. 1590 DATA   253,     0,   117,     2,   248,   195,   249,   195,  1259
  151. 1600 DATA   128,    62,   102,     1,     1,   117,    15,   139,   565
  152. 1610 DATA    22,    76,     1,   139,    14,    74,     1,   160,   487
  153. 1620 DATA   100,     1,   180,    12,   205,    16,   195,   128,   837
  154. 1630 DATA    62,   101,     1,     1,   116,    12,   161,    74,   528
  155. 1640 DATA     1,   163,    84,     1,   161,    76,     1,   163,   650
  156. 1650 DATA    86,     1,   195,   198,     6,   102,     1,     1,   590
  157. 1660 DATA   128,    62,   101,     1,     1,   116,    17,   161,   587
  158. 1670 DATA    86,     1,   163,    76,     1,   161,    84,     1,   573
  159. 1680 DATA   163,    74,     1,   198,     6,   101,     1,     1,   545
  160. 1690 DATA   195,    51,   219,   128,    60,    48,   114,    25,   840
  161. 1700 DATA   128,    60,    57,   119,    20,   172,    44,    48,   648
  162. 1710 DATA   138,   200,   184,    10,     0,    51,   210,   247,  1040
  163. 1720 DATA   227,   139,   216,    50,   237,     3,   217,   235,  1324
  164. 1730 DATA   226,   139,   195,   195,    30,   232,   217,   255,  1489
  165. 1740 DATA    51,   219,   185,     0,   184,   142,   217,   186,  1184
  166. 1750 DATA     2,     0,   185,     0,    32,   136,     7,    67,   429
  167. 1760 DATA   226,   251,   208,   200,   208,   200,    74,   117,  1484
  168. 1770 DATA   241,    31,   195,   232,   187,   255,    58,     6,  1205
  169. 1780 DATA   104,     1,   119,   123,   162,   103,     1,    70,   683
  170. 1790 DATA   232,   174,   255,    58,     6,   104,     1,   119,   949
  171. 1800 DATA   110,   162,   105,     1,   139,    22,    76,     1,   616
  172. 1810 DATA   139,    14,    74,     1,   232,    78,     1,   114,   653
  173. 1820 DATA    94,    58,     6,   105,     1,   116,    88,   139,   607
  174. 1830 DATA   217,    73,   232,    64,     1,   114,    10,    58,   769
  175. 1840 DATA     6,   105,     1,   116,     4,   139,   217,   235,   823
  176. 1850 DATA   240,   137,    30,   106,     1,    83,   139,    14,   750
  177. 1860 DATA    74,     1,   139,   217,    65,   232,    37,     1,   766
  178. 1870 DATA   114,    10,    58,     6,   105,     1,   116,     4,   414
  179. 1880 DATA   139,   217,   235,   240,   137,    30,   108,     1,  1107
  180. 1890 DATA    83,    43,    30,   106,     1,    67,   139,    14,   483
  181. 1900 DATA   106,     1,   160,   103,     1,   180,    12,   205,   768
  182. 1910 DATA    16,    65,    75,   117,   245,    82,    74,   232,   906
  183. 1920 DATA    14,     0,    90,    66,    88,   163,   108,     1,   530
  184. 1930 DATA    88,   163,   106,     1,   232,     1,     0,   195,   786
  185. 1940 DATA   139,    14,   106,     1,   137,    14,   110,     1,   522
  186. 1950 DATA   139,    14,   110,     1,   232,   222,     0,   115,   833
  187. 1960 DATA     3,   233,   216,     0,    58,     6,   105,     1,   622
  188. 1970 DATA   116,    34,    58,     6,   103,     1,   116,    28,   462
  189. 1980 DATA   137,    14,   112,     1,   139,   217,    73,   232,   925
  190. 1990 DATA   195,     0,   114,    10,    58,     6,   105,     1,   489
  191. 2000 DATA   116,     4,   139,   217,   235,   240,   137,    30,  1118
  192. 2010 DATA   110,     1,   235,    35,    65,    59,    14,   108,   627
  193. 2020 DATA     1,   127,    20,   232,   167,     0,   114,    15,   676
  194. 2030 DATA    58,     6,   103,     1,   116,     6,    58,     6,   354
  195. 2040 DATA   105,     1,   117,     3,    65,   235,   230,   137,   893
  196. 2050 DATA    14,   110,     1,   137,    14,   112,     1,   139,   528
  197. 2060 DATA    30,   110,     1,    59,    30,   108,     1,   126,   465
  198. 2070 DATA     3,   233,   128,     0,   139,    30,   112,     1,   646
  199. 2080 DATA   139,   203,    65,   232,   119,     0,   114,    10,   882
  200. 2090 DATA    58,     6,   105,     1,   116,     4,   139,   217,   646
  201. 2100 DATA   235,   240,   137,    30,   112,     1,   139,    14,   908
  202. 2110 DATA   110,     1,    43,   217,    67,   160,   103,     1,   702
  203. 2120 DATA   180,    12,   205,    16,    65,    75,   117,   245,   915
  204. 2130 DATA   255,    54,   106,     1,   255,    54,   108,     1,   834
  205. 2140 DATA   139,    14,   110,     1,    81,   137,    14,   106,   602
  206. 2150 DATA     1,   139,    14,   112,     1,    81,   137,    14,   499
  207. 2160 DATA   108,     1,    82,    74,   232,    73,   255,    90,   915
  208. 2170 DATA    89,   137,    14,   108,     1,   137,    14,   112,   612
  209. 2180 DATA     1,    88,   163,   106,     1,   163,   110,     1,   633
  210. 2190 DATA    81,    82,    66,   232,    50,   255,    90,    89,   945
  211. 2200 DATA   137,    14,   112,     1,   131,   193,     2,   137,   727
  212. 2210 DATA    14,   110,     1,   143,     6,   108,     1,   143,   526
  213. 2220 DATA     6,   106,     1,    59,    14,   108,     1,   127,   422
  214. 2230 DATA     3,   233,    28,   255,   195,   131,   249,     0,  1094
  215. 2240 DATA   114,    23,    59,    14,    78,     1,   119,    17,   425
  216. 2250 DATA   131,   250,     0,   114,    12,   129,   250,   199,  1085
  217. 2260 DATA     0,   119,     6,   180,    13,   205,    16,   248,   787
  218. 2270 DATA   195,   176,   255,   249,   195,     0,     0,     0,  1070
  219.