home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilstem / util2 / vtree.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-10-23  |  2.8 KB  |  85 lines
  1. 100  REM -- BASIC PROGRAM TO CRETE VTREE.COM
  2. 110  OPEN "VTREE.COM" AS #1 LEN = 1
  3. 120  FIELD #1,1 AS A$
  4. 130  CKECKSUM = 0
  5. 140  FOR I% = 1 TO 64
  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 = 51950 THEN PRINT "Successful Completion!" : END
  19. 280  PRINT "COM FILE IS NOT VALID!" : END
  20. 290  LOCATE 4,35:PRINT STRING$(20,32):NEXT:Y=0:NEXT:CLOSE
  21. 300  DATA 235,95,144,0,58,92,42,46,712
  22. 310  DATA 42,0,40,67,41,32,67,111,400
  23. 320  DATA 112,121,114,105,103,104,116,32,807
  24. 330  DATA 67,104,97,114,108,101,115,32,738
  25. 340  DATA 80,101,116,122,111,108,100,44,782
  26. 350  DATA 32,49,57,56,53,73,110,118,548
  27. 360  DATA 97,108,105,100,32,100,105,115,762
  28. 370  DATA 107,32,100,114,105,118,101,36,713
  29. 380  DATA 82,101,113,117,105,114,101,115,848
  30. 390  DATA 32,68,79,83,32,50,46,48,438
  31. 400  DATA 32,43,36,0,0,0,92,42,245
  32. 410  DATA 46,42,0,6,1,60,3,0,158
  33. 420  DATA 0,60,255,117,10,141,22,45,650
  34. 430  DATA 1,180,9,205,33,205,32,180,845
  35. 440  DATA 48,205,33,60,2,115,6,141,610
  36. 450  DATA 22,64,1,235,236,160,92,0,810
  37. 460  DATA 10,192,117,6,180,25,205,33,768
  38. 470  DATA 254,192,138,208,4,64,162,3,1025
  39. 480  DATA 1,252,139,22,93,1,180,26,714
  40. 490  DATA 205,33,139,30,84,1,3,219,714
  41. 500  DATA 128,62,83,1,0,117,18,199,608
  42. 510  DATA 135,252,2,0,0,186,3,1,579
  43. 520  DATA 185,16,0,180,78,205,33,235,932
  44. 530  DATA 4,180,79,205,33,115,3,233,852
  45. 540  DATA 222,0,139,54,93,1,128,124,761
  46. 550  DATA 21,16,117,237,131,198,30,128,878
  47. 560  DATA 60,46,116,229,255,135,252,2,1095
  48. 570  DATA 139,14,84,1,227,58,131,191,845
  49. 580  DATA 252,2,1,116,33,43,219,176,842
  50. 590  DATA 179,247,135,252,2,0,128,116,1059
  51. 600  DATA 2,176,32,232,253,0,81,185,961
  52. 610  DATA 16,0,176,32,232,244,0,226,926
  53. 620  DATA 249,89,67,67,226,225,131,191,1245
  54. 630  DATA 252,2,1,117,11,139,14,95,631
  55. 640  DATA 1,176,196,232,221,0,226,249,1301
  56. 650  DATA 86,139,54,93,1,191,128,0,692
  57. 660  DATA 139,215,185,43,0,243,164,94,1083
  58. 670  DATA 180,26,205,33,180,79,205,33,941
  59. 680  DATA 114,20,128,62,149,0,16,117,606
  60. 690  DATA 243,176,194,131,191,252,2,1,1190
  61. 700  DATA 116,21,176,195,235,17,176,196,1132
  62. 710  DATA 131,191,252,2,1,116,8,176,877
  63. 720  DATA 192,129,143,252,2,0,128,232,1078
  64. 730  DATA 153,0,176,196,232,148,0,176,1081
  65. 740  DATA 32,232,143,0,185,13,0,139,744
  66. 750  DATA 62,91,1,172,10,192,116,6,650
  67. 760  DATA 170,232,127,0,226,245,176,32,1208
  68. 770  DATA 232,120,0,137,14,95,1,137,736
  69. 780  DATA 62,91,1,255,6,91,1,190,697
  70. 790  DATA 86,1,185,5,0,243,164,255,939
  71. 800  DATA 6,84,1,198,6,83,1,0,379
  72. 810  DATA 131,6,93,1,43,233,242,254,1003
  73. 820  DATA 131,62,84,1,0,116,74,247,715
  74. 830  DATA 135,252,2,255,127,117,10,176,1074
  75. 840  DATA 13,232,63,0,176,10,232,58,784
  76. 850  DATA 0,191,3,1,185,70,0,176,626
  77. 860  DATA 0,242,174,79,185,64,0,176,920
  78. 870  DATA 92,253,242,174,242,174,71,137,1385
  79. 880  DATA 62,91,1,255,6,91,1,190,697
  80. 890  DATA 86,1,185,5,0,252,243,164,936
  81. 900  DATA 255,14,84,1,198,6,83,1,642
  82. 910  DATA 1,131,46,93,1,43,233,161,709
  83. 920  DATA 254,205,32,82,138,208,180,2,1101
  84. 930  DATA 205,33,90,195,0,0,0,0,523
  85.