home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / pcmag / vol6n15.arc / KBTEST.BAS < prev    next >
BASIC Source File  |  1987-07-28  |  2KB  |  38 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE testkb.COM
  2. 110 OPEN "testkb.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  17 
  6. 150    LINESUM = 0
  7. 155    PRINT  0 ;
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 11349 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    235,    75,   144,    84,   104,   105,   115,    32,   894
  22. 300 DATA     66,    73,    79,    83,    32,   115,   117,   112,   677
  23. 310 DATA    112,   111,   114,   116,   115,    32,   101,   120,   821
  24. 320 DATA    116,   101,   110,   100,   101,   100,    32,   107,   767
  25. 330 DATA    101,   121,   115,    36,    84,   104,   105,   115,   781
  26. 340 DATA     32,    66,    73,    79,    83,    32,   100,   111,   576
  27. 350 DATA    101,   115,    32,   110,   111,   116,    32,   115,   732
  28. 360 DATA    117,   112,   112,   111,   114,   116,    32,   101,   815
  29. 370 DATA    120,   116,   101,   110,   100,   101,   100,    32,   780
  30. 380 DATA    107,   101,   121,   115,    36,    51,   192,   142,   865
  31. 390 DATA    192,   186,    36,     1,   180,    18,   205,    22,   840
  32. 400 DATA     38,    58,     6,    23,     4,   117,    20,    38,   304
  33. 410 DATA    128,    54,    23,     4,   128,   180,    18,   205,   740
  34. 420 DATA     22,    38,    58,     6,    23,     4,   117,     3,   271
  35. 430 DATA    186,     3,     1,    38,   128,    54,    23,     4,   437
  36. 440 DATA    128,   180,     9,   205,    33,   180,    76,   205,  1016
  37. 450 DATA     33,     0,     0,     0,     0,     0,     0,     0,    33
  38.