home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1985 / 25 / monograf.bas < prev    next >
BASIC Source File  |  1985-09-05  |  5KB  |  86 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE MONOGRAF.DRV
  2. 110 OPEN "MONOGRAF.DRV" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  66 
  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       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";299 + I%
  16. 250 NEXT I%
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 54232 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "MONOGRAF.DRV file is not valid!" : END
  20. 300 DATA     16,     2,     1,     0,     1,     0,   110,     0,   130
  21. 301 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  22. 302 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  23. 303 DATA     77,   111,   110,   111,    99,   104,   114,   111,   837
  24. 304 DATA    109,   101,    32,    71,   114,    97,   112,   104,   740
  25. 305 DATA    105,    99,   115,    32,    40,    67,    41,    32,   531
  26. 306 DATA     67,   104,    97,   114,   108,   101,   115,    32,   738
  27. 307 DATA     80,   101,   116,   122,   111,   108,   100,    44,   782
  28. 308 DATA     63,     1,   199,     0,    10,     0,     7,     0,   280
  29. 309 DATA      6,     0,    10,     0,     7,     0,     6,     0,    29
  30. 310 DATA      0,     1,   255,   233,   182,     0,   233,   196,  1100
  31. 311 DATA      0,   233,   203,     0,   233,   204,     0,   235,  1108
  32. 312 DATA     13,   144,   233,    24,     1,   233,   107,     1,   756
  33. 313 DATA    235,     4,   144,   235,     1,   144,   184,     0,   947
  34. 314 DATA      0,    11,   192,   203,     0,     0,     0,     0,   406
  35. 315 DATA      0,     0,     0,   176,     0,     7,   219,   219,   621
  36. 316 DATA    178,   177,   176,   219,   178,     0,     0,     0,   928
  37. 317 DATA      0,     0,    46,   199,     6,   133,     0,     4,   388
  38. 318 DATA      0,    46,   198,     6,   135,     0,     8,    46,   439
  39. 319 DATA    199,     6,   136,     0,   200,     0,   235,    20,   796
  40. 320 DATA     46,   199,     6,   133,     0,     2,     0,    46,   432
  41. 321 DATA    198,     6,   135,     0,     4,    46,   199,     6,   594
  42. 322 DATA    136,     0,    64,     1,    46,    59,     6,   136,   448
  43. 323 DATA      0,   114,    16,   124,     7,    46,    43,     6,   356
  44. 324 DATA    136,     0,   235,   240,    46,     3,     6,   136,   802
  45. 325 DATA      0,   235,   233,    46,     3,     6,   133,     0,   656
  46. 326 DATA     46,   246,    54,   135,     0,   152,    46,   199,   878
  47. 327 DATA      6,   133,     0,     0,     0,   195,    80,    82,   496
  48. 328 DATA    184,    80,     0,   247,   226,     3,   193,     3,   936
  49. 329 DATA    192,    46,   163,   120,     0,    90,    88,   195,   894
  50. 330 DATA     80,   139,   194,   232,   155,   255,   139,   208,  1402
  51. 331 DATA     46,   163,   116,     0,   139,   193,   232,   166,  1055
  52. 332 DATA    255,   139,   200,    46,   163,   118,     0,   232,  1153
  53. 333 DATA    212,   255,    88,   195,   184,     0,   176,   142,  1252
  54. 334 DATA    192,    43,   255,   185,   208,     7,   184,    32,  1106
  55. 335 DATA      7,   252,   243,   171,   203,   187,   126,     0,  1189
  56. 336 DATA     46,   215,    46,   162,   124,     0,   203,   232,  1028
  57. 337 DATA    198,   255,   203,    46,   196,    62,   120,     0,  1080
  58. 338 DATA     46,   161,   118,     0,    46,   139,    30,   116,   656
  59. 339 DATA      0,   232,   180,   255,    59,   193,   116,    17,  1052
  60. 340 DATA     59,   218,   117,    55,    43,   200,   187,     2,   881
  61. 341 DATA      0,   176,   196,   180,   179,   115,    19,   235,  1100
  62. 342 DATA     13,   139,   202,    43,   203,   187,   160,     0,   947
  63. 343 DATA    176,   179,   180,   196,   115,     4,   247,   219,  1316
  64. 344 DATA    247,   217,    65,    38,   128,    61,   197,   116,  1069
  65. 345 DATA     14,    38,    56,    37,   117,     6,    38,   198,   504
  66. 346 DATA      5,   197,   235,     3,    38,   136,     5,     3,   622
  67. 347 DATA    251,   226,   232,   203,     0,    83,     3,   219,  1217
  68. 348 DATA     46,   136,    38,   124,     1,    10,   192,   116,   663
  69. 349 DATA     25,   254,   200,   116,    19,   254,   200,   116,  1184
  70. 350 DATA     11,   254,   200,   116,     5,   184,     4,     0,   774
  71. 351 DATA    235,    11,     3,   219,    43,   192,   235,     5,   943
  72. 352 DATA     43,   219,   184,     2,     0,    46,   128,    62,   684
  73. 353 DATA    124,     1,     0,   116,    11,    43,   211,    43,   549
  74. 354 DATA    211,    43,   200,   184,   159,     0,   235,     9,  1041
  75. 355 DATA     43,   208,    43,   208,    43,   203,   184,     1,   933
  76. 356 DATA      0,   232,    44,   255,    46,   196,    62,   120,   955
  77. 357 DATA      0,   252,    89,   227,     5,   164,     3,   248,   988
  78. 358 DATA    226,   251,   203,   232,   202,   254,   145,   232,  1745
  79. 359 DATA    198,   254,    59,   193,   116,    48,   119,     1,   988
  80. 360 DATA    145,   147,   232,   165,   254,   146,   232,   161,  1482
  81. 361 DATA    254,    59,   194,   116,    33,   119,     1,   146,   922
  82. 362 DATA     81,    83,   232,   233,   254,    46,   196,    62,  1187
  83. 363 DATA    120,     0,    46,   255,    54,   124,     0,    38,   637
  84. 364 DATA    143,     5,    65,    59,   203,   114,   235,    91,   915
  85. 365 DATA     89,    66,    59,   208,   114,   226,   203,     0,   965
  86.