home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / pcmag / vol5n04.arc / KBM.BAS < prev    next >
BASIC Source File  |  1987-12-12  |  3KB  |  48 lines
  1. 100 ' Program for creating A:KBM.COM
  2. 110 CLS:PRINT "Checking DATA; please wait..."
  3. 120 FOR B=1 TO 23
  4. 130 FOR C=1 TO 17
  5. 140 READ A$:IF C<17 THEN 160
  6. 150 Z#=Z#+VAL(A$)
  7. 160 NEXT:NEXT
  8. 170 IF Z#=33888 THEN RESTORE:GOTO 200
  9. 180 PRINT "ERROR:  CHECK THE LAST NUMBER IN"
  10. 190 PRINT "EACH DATA STATEMENT--THEN REDO":END
  11. 200 FOR B=1 TO 23
  12. 210 FOR C=1 TO 16
  13. 220 READ A$:TTL=TTL+VAL("&H"+A$)
  14. 230 NEXT
  15. 240 READ S:IF S=TTL THEN 270
  16. 250 PRINT "DATA ERROR IN LINE";B*10+330
  17. 260 PRINT "CHECK FIGURES AND REDO":END
  18. 270 TTL=0:NEXT:RESTORE
  19. 280 OPEN "A:KBM.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  20. 290 FOR B=1 TO 23
  21. 300 FOR C=1 TO 16
  22. 310 READ A$:LSET D$=CHR$(VAL("&H"+A$))
  23. 320 PUT #1:NEXT:READ DUMMY$:NEXT:CLOSE
  24. 330 PRINT "A:KBM.COM CREATED"
  25. 340 DATA E9, FE, 00, 00, 00, 00, 00, 48, 01, 4D, 02, 50, 04, 4B, 08, 4C, 882
  26. 350 DATA 04, 47, 10, 49, 20, 4A, 40, 3A, 80, FB, FC, 50, 56, 1E, E4, 60, 1543
  27. 360 DATA 8A, E0, 24, 7F, BE, 07, 01, 81, FE, 19, 01, 77, 09, 2E, 3A, 04, 1368
  28. 370 DATA 74, 23, 46, 46, EB, F1, 80, FC, 45, 75, 12, 2B, F6, 8E, DE, F6, 2250
  29. 380 DATA 06, 17, 04, 08, 74, 07, 80, 36, F1, 04, 01, EB, 29, 1F, 5E, 58, 1081
  30. 390 DATA 2E, FF, 2E, 03, 01, 2E, 8A, 44, 01, 2B, F6, 8E, DE, F6, C4, 80, 1827
  31. 400 DATA 74, 09, F6, D0, 20, 06, F0, 04, EB, 05, 90, 08, 06, F0, 04, 80, 1631
  32. 410 DATA 3E, F1, 04, 00, 74, D7, E4, 61, 8A, E0, 0C, 80, E6, 61, 86, E0, 2150
  33. 420 DATA E6, 61, 1F, 5E, FA, B0, 20, E6, 20, 58, CF, 4B, 42, 4D, 20, 20, 1749
  34. 430 DATA 4B, 65, 79, 42, 6F, 61, 72, 64, 20, 4D, 6F, 75, 73, 65, 20, 64, 1470
  35. 440 DATA 72, 69, 76, 65, 72, 0D, 0A, 43, 6F, 70, 79, 72, 69, 67, 68, 74, 1528
  36. 450 DATA 20, 28, 63, 29, 20, 31, 39, 38, 36, 20, 5A, 69, 66, 66, 2D, 44, 1004
  37. 460 DATA 61, 76, 69, 73, 20, 50, 75, 62, 6C, 69, 73, 68, 69, 6E, 67, 20, 1544
  38. 470 DATA 43, 6F, 2E, 2C, 0D, 0A, 24, 07, 41, 6C, 72, 65, 61, 64, 79, 20, 1072
  39. 480 DATA 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 0D, 0A, 24, 57, 72, 6F, 6E, 1441
  40. 490 DATA 67, 20, 44, 4F, 53, 20, 76, 65, 72, 73, 69, 6F, 6E, 2E, 0D, 0A, 1240
  41. 500 DATA 24, B4, 30, CD, 21, 3C, 02, 73, 06, BA, EC, 01, EB, 57, 90, B8, 1758
  42. 510 DATA 00, 00, 8E, C0, 26, 81, 3E, F2, 04, 34, 12, 75, 06, BA, D7, 01, 1404
  43. 520 DATA EB, 43, 90, 26, C7, 06, F2, 04, 34, 12, B0, 09, B4, 35, CD, 21, 1661
  44. 530 DATA B0, 09, B4, 35, CD, 21, 8C, 06, 05, 01, 89, 1E, 03, 01, BA, 19, 1190
  45. 540 DATA 01, B0, 09, B4, 25, CD, 21, B8, 00, 00, 8E, C0, 26, C6, 06, F1, 1642
  46. 550 DATA 04, 00, 26, C6, 06, F0, 04, 00, BA, 8B, 01, B4, 09, CD, 21, 8B, 1382
  47. 560 DATA 16, 8C, 01, CD, 27, B4, 09, CD, 21, CD, 20, 00, 00, 00, 00, 00, 1071
  48.