home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / dos_util / pcmproga.zip / ONEKEY.BAS < prev    next >
BASIC Source File  |  1992-07-01  |  5KB  |  90 lines

  1. 10    DIM KEYS(60), COMMANDS(30,102)
  2. 20    FOR I=1 TO 10:KEY I,"":NEXT I:CLS:KINDEX=1:CINDEX=1
  3. 200   FOR I=1 TO 30
  4. 220   LOCATE 10,15:PRINT"        Type the key to be replaced."
  5. 230   LOCATE 11,15:PRINT"(Use Control End if there are no more keys)."
  6. 240   DEF SEG = &H40
  7. 250   FKEY$=INKEY$:IF FKEY$="" GOTO 250
  8. 260   LOCATE 10,15:PRINT SPC(50):LOCATE 11,15:PRINT SPC(50)
  9. 280   TAIL=PEEK(26):TAIL=TAIL-2:IF TAIL < 30 THEN TAIL = 60 
  10. 310   CODE1=PEEK(TAIL):CODE2=PEEK(TAIL+1)
  11. 340   IF CODE1=0 AND CODE2=117 THEN GOTO 860
  12. 350   KEYS(KINDEX) = CODE1:KEYS(KINDEX+1) = CODE2:KINDEX = KINDEX+2
  13. 390   LOCATE 11,23:PRINT"The command that replaces this key is:"
  14. 400   LOCATE 12,23:PRINT"     (Use Control End when done)."
  15. 410   LOCATE 13,17:PRINT CHR$(218);:FOR IND=1 TO 50:PRINT CHR$(196);
  16. 411   NEXT IND:PRINT CHR$(191)
  17. 420   LOCATE 15,17:PRINT CHR$(192);:FOR IND=1 TO 50:PRINT CHR$(196);
  18. 421   NEXT IND:PRINT CHR$(217)
  19. 430   LOCATE 14,17:PRINT CHR$(179);:GOSUB 1070:PLACE=19:LOCATE 14,18
  20. 460   FOR J=1 TO 100 STEP 2
  21. 470   PLACE=PLACE+1
  22. 490   FKEY$=INKEY$:IF FKEY$="" GOTO 490
  23. 500   TAIL=PEEK(26):TAIL=TAIL-2:IF TAIL < 30 THEN TAIL = 60 ELSE GOTO 530
  24. 530   CODE1=PEEK(TAIL):CODE2=PEEK(TAIL+1)
  25. 550   IF CODE1=0 AND CODE2=117 THEN GOTO 650
  26. 560   IF CODE1=13 AND CODE2=28 THEN FKEY$="/"
  27. 570   IF CODE1<>8 OR CODE2<>14 THEN GOTO 610
  28. 580   IF J <=1 GOTO 490
  29. 590   J=J-2:COMMANDS(I,J)=0:COMMANDS(I,J+1)=0:PLACE=PLACE-2:LOCATE 14,PLACE-1
  30. 600   PRINT SPC(1);:GOSUB 1070:LOCATE 14,PLACE-1:GOTO 470
  31. 610   COMMANDS(I,J)=CODE1:COMMANDS(I,J+1)=CODE2:PRINT FKEY$;:GOSUB 1070:NEXT J
  32. 650   FOR EIO = 11 TO 15:LOCATE EIO,15:PRINT SPC(70):NEXT EIO:NEXT I:DEF SEG
  33. 860   OPEN "ONEKEY.COM"     AS # 1  LEN = 1        'Open Onekey.com
  34. 870   LOCATE 2,30:PRINT"   Creating ONEKEY.COM    "
  35. 880   FIELD #1,1 AS BYTE.$:FOR N = 1 TO 406
  36. 900   READ BYTE.%:IF BYTE.% <> -1 THEN GOTO 940
  37. 920   FOR III=1 TO 60:LSET BYTE.$=CHR$(KEYS(III)):PUT #1:NEXT III:GOTO 1020
  38. 940   IF BYTE.% <> -2 THEN GOTO 1010
  39. 950   FOR II=1 TO 30:FOR JJ=1 TO 102
  40. 960   LSET BYTE.$=CHR$(COMMANDS(II,JJ)):PUT #1
  41. 970   NEXT JJ:NEXT II:GOTO 1020
  42. 1010  LSET BYTE.$ = CHR$(BYTE.%):PUT #1
  43. 1020  NEXT N:CLOSE #1  
  44. 1050  LOCATE 19,15:PRINT SPC(10) "     ONEKEY.COM Created.                 "
  45. 1060  END
  46. 1070  Y=CSRLIN:X=POS(0):LOCATE 14,67:PRINT SPC(1) CHR$(179) SPC(1);
  47. 1080  LOCATE Y,X:RETURN
  48. 2010  DATA  233,  116,   13,   40,   67,   41,   32,   49,   57,   56
  49. 2020  DATA   52,   32,   83,   46,   32,   72,  111,  108,  122,  110
  50. 2030  DATA  101,  114,   -1,    1,   -2,    1,    0,    1,    0,    0
  51. 2040  DATA    0,    1,    0,    0,    0,   30,   86,   87,   82,   81
  52. 2050  DATA   83,   80,  156,   46,  255,   30,   73,   13,  184,   64
  53. 2060  DATA    0,  142,  216,  139,   30,   28,    0,   59,   30,   26
  54. 2070  DATA    0,  117,    3,  233,  140,    0,  131,  235,    2,  131
  55. 2080  DATA  251,   30,  115,    6,  187,   62,    0,  131,  235,    2
  56. 2090  DATA  139,    7,   46,  128,   62,   82,    1,    1,  116,    3
  57. 2100  DATA  235,  114,  144,   46,  198,    6,   82,    1,    1,   46
  58. 2110  DATA  141,   54,   22,    1,  185,   30,    0,   46,   59,    4
  59. 2120  DATA  116,    8,  131,  198,    2,  226,  246,  235,   87,  144
  60. 2130  DATA  250,   46,  141,   54,   83,    1,  247,  217,  131,  193
  61. 2140  DATA   30,  139,  193,  185,  102,    0,  246,  225,    3,  240
  62. 2150  DATA   46,  137,   54,   71,   13,   46,  139,    4,  131,  198
  63. 2160  DATA    2,   61,    0,    0,  116,   50,  139,  211,  131,  194
  64. 2170  DATA    2,  131,  250,   62,  124,    3,  186,   30,    0,   59
  65. 2180  DATA   22,   26,    0,  116,   25,   46,  131,    6,   71,   13
  66. 2190  DATA    2,  137,    7,  131,  195,    2,  131,  251,   62,  124
  67. 2200  DATA    3,  187,   30,    0,  137,   30,   28,    0,  235,  201
  68. 2210  DATA   46,  198,    6,   82,    1,    0,   88,   91,   89,   90
  69. 2220  DATA   95,   94,   31,  251,  207,  156,   30,   14,   31,  255
  70. 2230  DATA   30,   77,   13,  156,  128,   62,   82,    1,    1,  116
  71. 2240  DATA   95,  250,   30,   86,   82,   83,   80,  184,   64,    0
  72. 2250  DATA  142,  216,  139,   30,   28,    0,   46,  198,    6,   82
  73. 2260  DATA    1,    1,   46,  139,   54,   71,   13,   46,  139,    4
  74. 2270  DATA  131,  198,    2,   61,    0,    0,  117,    3,  235,   51
  75. 2280  DATA  144,  139,  211,  131,  194,    2,  131,  250,   62,  124
  76. 2290  DATA    3,  186,   30,    0,   59,   22,   26,    0,  116,   25
  77. 2300  DATA   46,  131,    6,   71,   13,    2,  137,    7,  131,  195
  78. 2310  DATA    2,  131,  251,   62,  124,    3,  187,   30,    0,  137
  79. 2320  DATA   30,   28,    0,  235,  198,   46,  198,    6,   82,    1
  80. 2330  DATA    0,   88,   91,   90,   94,   31,  157,   31,  207,   30
  81. 2340  DATA  184,    0,    0,  142,  216,  250,  161,   36,    0,   46
  82. 2350  DATA  163,   73,   13,  161,   38,    0,   46,  163,   75,   13
  83. 2360  DATA  199,    6,   36,    0,   81,   13,  140,   14,   38,    0
  84. 2370  DATA  161,  112,    0,   46,  163,   77,   13,  161,  114,    0
  85. 2380  DATA   46,  163,   79,   13,  199,    6,  112,    0,    5,   14
  86. 2390  DATA  140,   14,  114,    0,  251,  184,   64,    0,  142,  216
  87. 2400  DATA  187,   30,    0,  137,   30,   26,    0,  137,   30,   28
  88. 2410  DATA    0,  186,  119,   14,  205,   39
  89.  
  90.