home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1986 / 18 / visitype.bas < prev    next >
BASIC Source File  |  1987-12-12  |  10KB  |  154 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE visitype.COM
  2. 110 OPEN "visitype.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  134 
  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 = 61337 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   191,     3,    67,   111,   112,   121,   114,   952
  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,     0,     0,     0,     0,     0,   224
  26. 350 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  27. 360 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  28. 370 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  29. 380 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  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,     0,     0,     0,     0,     0
  33. 420 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  34. 430 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  35. 440 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  36. 450 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  37. 460 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  38. 470 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  39. 480 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  40. 490 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  41. 500 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  42. 510 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  43. 520 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  44. 530 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  45. 540 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  46. 550 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  47. 560 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  48. 570 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  49. 580 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  50. 590 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  51. 600 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  52. 610 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  53. 620 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  54. 630 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  55. 640 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  56. 650 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  57. 660 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  58. 670 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  59. 680 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  60. 690 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  61. 700 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  62. 710 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  63. 720 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  64. 730 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  65. 740 DATA      0,     0,     0,     0,     0,     0,     0,     1,     1
  66. 750 DATA      0,     1,     0,     0,     0,     0,     0,     0,     1
  67. 760 DATA      0,     0,     0,     0,     0,     0,     0,    80,    80
  68. 770 DATA     83,    81,    82,    87,    86,    30,     6,   156,   611
  69. 780 DATA     46,   255,    30,   119,     2,   187,    64,     0,   703
  70. 790 DATA    142,   219,   139,    30,    28,     0,    59,    30,   647
  71. 800 DATA     26,     0,   117,     3,   233,   212,     0,   139,   730
  72. 810 DATA     22,    28,     0,   131,   234,     2,   129,   250,   796
  73. 820 DATA     30,     0,   115,     6,   186,    62,     0,   131,   530
  74. 830 DATA    234,     2,   139,   218,   139,    15,    46,    59,   852
  75. 840 DATA     14,    43,     1,   117,    11,   139,    30,    26,   381
  76. 850 DATA      0,    46,    59,    30,   113,     2,   116,     8,   374
  77. 860 DATA     46,   131,    62,    45,     1,     0,   117,     9,   411
  78. 870 DATA     59,    22,    26,     0,   117,     3,   233,   154,   614
  79. 880 DATA      0,   139,   218,   137,    22,    28,     0,   139,   683
  80. 890 DATA     23,   185,    80,     0,   187,     0,     0,    46,   521
  81. 900 DATA    131,   191,    45,     1,     0,   116,    40,   131,   655
  82. 910 DATA    195,     2,   226,   243,   129,   250,     8,    14,  1067
  83. 920 DATA    117,   121,   187,   158,     0,    46,   199,   135,   963
  84. 930 DATA     43,     1,     0,     0,   139,    30,    26,     0,   239
  85. 940 DATA     46,   137,    30,   113,     2,   139,    23,    46,   536
  86. 950 DATA    137,    22,    43,     1,   235,    93,   144,   129,   804
  87. 960 DATA    250,     8,    14,   117,    30,   131,   235,     2,   787
  88. 970 DATA    131,   251,   254,   124,    78,   117,    17,   139,  1111
  89. 980 DATA     14,    28,     0,   137,    14,    26,     0,    46,   265
  90. 990 DATA    199,     6,    43,     1,     0,     0,   235,    24,   508
  91. 1000 DATA   186,     0,     0,    46,   137,   151,    45,     1,   566
  92. 1010 DATA   139,    30,    26,     0,    46,   137,    30,   113,   521
  93. 1020 DATA     2,   139,    23,    46,   137,    22,    43,     1,   413
  94. 1030 DATA    46,   128,    62,   115,     2,     0,   117,    24,   494
  95. 1040 DATA    46,   198,     6,   115,     2,   255,    46,   199,   867
  96. 1050 DATA     6,   107,     2,   160,     0,   141,     6,   151,   573
  97. 1060 DATA     3,    46,   163,   111,     2,   232,   136,     0,   693
  98. 1070 DATA   232,     9,     0,     7,    31,    94,    95,    90,   558
  99. 1080 DATA    89,    91,    88,   207,    80,    46,   198,     6,   805
  100. 1090 DATA   118,     2,     0,    46,   199,     6,   107,     2,   480
  101. 1100 DATA     0,     0,   141,     6,   192,     3,    46,   163,   551
  102. 1110 DATA   111,     2,   232,    99,     0,    88,   195,    82,   809
  103. 1120 DATA   190,     2,     0,    46,   139,    22,   116,     2,   517
  104. 1130 DATA   236,   168,     1,   117,   251,   236,   168,     1,  1178
  105. 1140 DATA   116,   251,    38,   139,     5,    71,    78,   131,   829
  106. 1150 DATA   254,     0,   116,     7,    46,   137,   135,    43,   738
  107. 1160 DATA     1,   235,   229,   131,   195,     2,    90,   195,  1078
  108. 1170 DATA    82,   250,    46,   138,   167,    43,     1,   190,   917
  109. 1180 DATA     2,     0,    46,   139,    22,   116,     2,   236,   563
  110. 1190 DATA   168,     1,   117,   251,   236,   168,     1,   116,  1058
  111. 1200 DATA   251,    38,   136,    37,    46,   138,   167,    44,   857
  112. 1210 DATA     1,    46,   128,    62,   118,     2,     0,   117,   474
  113. 1220 DATA     5,    46,   138,   167,   204,     1,    71,    78,   710
  114. 1230 DATA   117,   221,   131,   195,     2,    90,   251,   195,  1202
  115. 1240 DATA   187,     0,   176,   142,   195,    46,   139,    62,   947
  116. 1250 DATA   109,     2,    46,   139,    30,   107,     2,   185,   620
  117. 1260 DATA    80,     0,    46,   255,    22,   111,     2,   226,   742
  118. 1270 DATA   249,   195,    30,    14,    31,   156,   255,    30,   960
  119. 1280 DATA   123,     2,   131,    62,    45,     1,     0,   117,   481
  120. 1290 DATA     3,   233,   156,     0,   250,     6,    30,    86,   764
  121. 1300 DATA    87,    82,    81,    83,    80,   184,    64,     0,   661
  122. 1310 DATA   142,   216,   139,    30,    28,     0,    57,    30,   642
  123. 1320 DATA    26,     0,   117,    74,    46,   161,    45,     1,   470
  124. 1330 DATA   185,    79,     0,   187,     0,     0,    46,   139,   636
  125. 1340 DATA   151,    45,     1,    46,   137,   151,    43,     1,   575
  126. 1350 DATA   131,   195,     2,    70,   226,   240,    46,   199,  1109
  127. 1360 DATA   135,    43,     1,     0,     0,   139,    22,    26,   366
  128. 1370 DATA     0,    46,   137,    22,   113,     2,   139,    22,   481
  129. 1380 DATA    28,     0,   131,   194,     2,   129,   250,    62,   796
  130. 1390 DATA     0,   124,     3,   186,    30,     0,    59,    22,   424
  131. 1400 DATA    26,     0,   116,    10,   139,    30,    28,     0,   349
  132. 1410 DATA   137,     7,   137,    22,    28,     0,    46,   131,   508
  133. 1420 DATA    62,    45,     1,     0,   117,    39,    46,   199,   509
  134. 1430 DATA     6,    43,     1,     0,     0,    46,   198,     6,   300
  135. 1440 DATA   115,     2,     0,    46,   199,     6,   107,     2,   477
  136. 1450 DATA   160,     0,   141,     6,   192,     3,    46,   163,   711
  137. 1460 DATA   111,     2,    46,   198,     6,   118,     2,   255,   738
  138. 1470 DATA   232,    69,   255,   235,     3,   232,   196,   254,  1476
  139. 1480 DATA    88,    91,    89,    90,    95,    94,    31,     7,   585
  140. 1490 DATA    31,   207,   184,     0,     0,   142,   216,   161,   941
  141. 1500 DATA    36,     0,    46,   163,   119,     2,   161,    38,   565
  142. 1510 DATA     0,    46,   163,   121,     2,   199,     6,    36,   573
  143. 1520 DATA     0,   127,     2,   140,    14,    38,     0,   161,   482
  144. 1530 DATA   112,     0,    46,   163,   123,     2,   161,   114,   721
  145. 1540 DATA     0,    46,   163,   125,     2,   199,     6,   112,   653
  146. 1550 DATA     0,    18,     4,   140,    14,   114,     0,   184,   474
  147. 1560 DATA    64,     0,   142,   216,   187,    30,     0,   137,   776
  148. 1570 DATA    30,    26,     0,    46,   137,    30,   113,     2,   384
  149. 1580 DATA   137,    30,    28,     0,   180,    15,   205,    16,   611
  150. 1590 DATA    46,   199,     6,   116,     2,   186,     3,   168,   726
  151. 1600 DATA     4,   117,    14,    46,   199,     6,   109,     2,   497
  152. 1610 DATA     0,   128,    46,   199,     6,   116,     2,   218,   715
  153. 1620 DATA     3,   186,   194,     4,   205,    39,     0,     0,   631
  154.