home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol5n05.zip / QUICKEYS.BAS < prev    next >
BASIC Source File  |  1985-12-11  |  2KB  |  42 lines
  1. 100 ' Program for creating QUICKEYS.COM
  2. 110 CLS:PRINT "Checking DATA; please wait..."
  3. 120 FOR B=1 TO 17
  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#=17361 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 17
  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 "QUICKEYS.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  20. 290 FOR B=1 TO 17
  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 "QUICKEYS.COM CREATED"
  25. 340 DATA E9, BB, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 07, 427
  26. 350 DATA 01, 1E, 53, BB, 40, 00, 8E, DB, 2E, C6, 06, 0D, 01, 00, 8B, 1E, 1159
  27. 360 DATA 1C, 00, 9C, 2E, FF, 1E, 07, 01, 3B, 1E, 1C, 00, 75, 15, 2E, C7, 1023
  28. 370 DATA 06, 0B, 01, FF, FF, F6, 06, 17, 00, 0A, 74, 2A, 89, 1E, 1A, 00, 1164
  29. 380 DATA EB, 24, 90, 8B, 1F, 2E, 3B, 1E, 0B, 01, 2E, 89, 1E, 0B, 01, 2E, 1003
  30. 390 DATA 8A, 1E, 0F, 01, 75, 05, 2E, 8A, 1E, 10, 01, 2E, 88, 1E, 0E, 01, 764
  31. 400 DATA 2E, C6, 06, 0D, 01, 01, 5B, 1F, CF, 2E, 80, 3E, 0D, 01, 01, 75, 962
  32. 410 DATA 48, 2E, FE, 0E, 0E, 01, 75, 41, 1E, 57, 53, 50, BB, 40, 00, 8E, 1256
  33. 420 DATA DB, 8B, 1E, 1C, 00, 8B, FB, 83, C3, 02, 83, FB, 3E, 75, 03, BB, 1885
  34. 430 DATA 1E, 00, 3B, 1E, 1A, 00, 75, 09, 2E, C6, 06, 0D, 01, 00, EB, 15, 791
  35. 440 DATA 90, FA, 2E, A1, 0B, 01, 89, 05, 89, 1E, 1C, 00, FB, 2E, A0, 10, 1423
  36. 450 DATA 01, 2E, A2, 0E, 01, 58, 5B, 5F, 1F, 2E, FF, 2E, 03, 01, 33, C0, 1123
  37. 460 DATA 8E, C0, 26, A1, 20, 00, 26, 8B, 1E, 22, 00, 26, 8B, 0E, 24, 00, 1033
  38. 470 DATA 26, 8B, 16, 26, 00, A3, 03, 01, 89, 1E, 05, 01, 89, 0E, 07, 01, 736
  39. 480 DATA 89, 16, 09, 01, FA, 8D, 06, 69, 01, 26, A3, 20, 00, 26, 8C, 0E, 1097
  40. 490 DATA 22, 00, 8D, 06, 11, 01, 26, A3, 24, 00, 26, 8C, 0E, 26, 00, FB, 917
  41. 500 DATA 8D, 16, BE, 01, CD, 27, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 598
  42.