home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / TNH_PC.ZIP / PCKEY.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-14  |  4.0 KB  |  56 lines
  1. 10 REM ***** PC - KEY *****
  2. 20 KEY OFF : CLS
  3. 30 LOCATE 5,21 : PRINT CHR$(201)+ STRING$(38,205)+CHR$(187) : LOCATE 6,21 : PRINT CHR$(186)+STRING$(38," ")+CHR$(186)
  4. 40 LOCATE 7,21 : PRINT CHR$(186)+ STRING$(15," ")+"PC - KEY"+ STRING$(15," ")+CHR$(186) : LOCATE 8,21
  5. 50 PRINT CHR$(186)+STRING$(38," ") +CHR$(186) : LOCATE 9,21 :   PRINT CHR$(186)+" Key   Definition Program For DOS 2.0 "+CHR$(186)
  6. 60 LOCATE 10,21 : PRINT CHR$(186)+ STRING$(38," ")+CHR$(186) : LOCATE 11,21
  7. 70 PRINT CHR$(186)+"              Version 1.00            "+   CHR$(186) : LOCATE 12,21 : PRINT   CHR$(186)+STRING$(38," ")+   CHR$(186)
  8. 80 LOCATE 13,21: PRINT CHR$(200)+   STRING$(38,205)+CHR$(188) :   LOCATE 17,36 : PRINT "Written   By"
  9. 90 LOCATE 19,30: PRINT "Josiah   Collier Hoskins" : LOCATE 23,26   : PRINT "Press space bar to   continue..."
  10. 100 A$=INKEY$ : IF A$="" THEN 100
  11. 110 CLS : DIM K$(20),KN$(20)
  12. 120 FOR I=1 TO 10 : KEY I,"" :    NEXT I  'kill softkeys defined    in Basic
  13. 130 FOR I=1 TO 20 : K$(I)="" :    NEXT I
  14. 140 PRINT "Key definitions:"
  15. 150 FOR I=1 TO 20 : IF I>10    THEN 170
  16. 160 LOCATE 2+I,10 : PRINT "F"+    STRING$(68," "); : LOCATE 2+I,    11 : PRINT RIGHT$(STR$(I),2)+    "="; : GOTO 180
  17. 170 LOCATE 2+I,8 : PRINT "s-F"+STRING$(68," "); : LOCATE 2+I,11 : PRINT RIGHT$(STR$(I-10),2)    +"=";
  18. 180 PRINT K$(I) : NEXT I
  19. 190 LOCATE 23,1 : PRINT STRING$    (79," ") : LOCATE 23,1 : PRINT    "Press key to be defined    or<End> to stop"
  20. 200 R$=INKEY$ : IF R$ ="" THEN 200    ELSE IF LEN(R$)<>2 THEN 200
  21. 210 IF ASC(LEFT$(R$,1))<>0 THEN 200    ELSE R=ASC(RIGHT$(R$,1))
  22. 220 IF R >= 59 AND R <= 68 THEN 250    'base function keys
  23. 230 IF R> = 84 AND R <= 93 THEN 270    'shift function keys
  24. 240 IF R = 79 THEN 300 ELSE GOTO    190                'end key
  25. 250 R = R - 58 : LOCATE 23,1 :    PRINT STRING$(79," ") : LOCATE    23,1
  26. 260 PRINT "Enter string to be    assigned to F";R; : GOTO 290
  27. 270 R = R-83 : LOCATE 23,1 : PRINT    STRING$(79," ") : LOCATE 23,1
  28. 280 PRINT "String to be assigned to s-F";R; : R = R + 10
  29. 290 R$="" : INPUT R$ : K$(R)=R$ :    GOTO 150
  30. 300 KEYDEF$ = "KEYON" :    OPEN KEYDEF$ FOR OUTPUT AS #1    'create file to turn on keys
  31. 310 CR$ = "<CR>" : CR2$ = "<cr>" :    FOR I=1 TO 20 : IF K$(I)=""    THEN 390
  32. 320 IF CR$ = RIGHT$(K$(I),4) OR    CR2$ = RIGHT$(K$(I),4) THEN    360
  33. 330 IF I > 10 THEN 350
  34. 340 PRINT #1,CHR$(27)+"[0;"+RIGHT$(STR$(I+58),2)+";"+CHR$(34)+K$(I)+CHR$(34)+";"+"32p" : GOTO    410
  35. 350 PRINT #1,CHR$(27)+"[0;"+RIGHT$    (STR$(I-10+83),2)+";"+CHR$(34)+    K$(I)+CHR$(34)+";"+"32p" : GOTO    410
  36. 360 NOL = LEN(K$(I)) :N = NOL - 4 :    KN$(I) = LEFT$(K$(I),N) : IF I    > 10 THEN 380
  37. 370 PRINT #1,CHR$(27)+"[0;"+RIGHT$    (STR$(I+58),2)+";"+CHR$(34)+    KN$(I)+CHR$(34)+";+"13P" : GOTO    410
  38. 380 PRINT #1,CHR$(27)+"[0;"+RIGHT$    (STR$(I-10+83),2)+";"+CHR$(34)+    KN$(I)+CHR$(34)+";"+13P" : GOTO    410
  39. 390 IF I>10 THEN 400 : PRINT #1,    CHR$(27)+"[0;"+RIGHT$(STR$    (I+58),2)+";0;"+RIGHT$(STR$    (I+58),2)+"p" "GOTO 410
  40. 400 PRINT #1,CHR$(27)+"[0;"+RIGHT$    (STR$(I-10+83),2)+";0;"+RIGHT$    (STR$(I-10+83),2)+"p"
  41. 410 NEXT I : CLOSE #1
  42. 420 KEYNOT$ = "KEYOFF" : OPEN    KEYNOT$ FOR OUTPUT AS #2 :    FOR I=1 TO 20 : IF I>10 THEN
  43. 430 PRINT #2,CHR$(27)+"[0;"+RIGHT$    (STR$(I+58),2)+";0;"+RIGHT$    (STR$(I+58),2)+"p" :GOTO 450
  44. 440 PRINT #2,CHR$(27)+"[0;"+RIGHT$    (STR$(I-10+83),2)+";0;"+"RIGHT$    (STR$(I-10+83),2)+"P"
  45. 450 NEXT I : CLOSE #2
  46. 460 HELPER$ = "KEYHELP" : OPEN    HELPER$ FOR OUTPUT AS #3    'create help file
  47. 470 PRINT #3, "PC - KEY  HELPER =>    Present Key Definitions are:"
  48. 480 FOR I=1 TO 20 : IF I>10 THEN    500
  49. 490 PRINT #3,"          F"+RIGHT$    (STR$(I),2)+K$(I) : GOTO 510
  50. 500 PRINT #3,"        s-F"+RIGHT$    (STR$(I-10),2)+"="+K$(I)
  51. 510 NEXT I : CLOSE #3
  52. 520 KEY 1,"LIST"+CHR$(32) : KEY 2,    "RUN"+CHR$(13) : KEY 3,"LOAD"+     CHR$(34) : KEY 4,"SAVE"+     CHR$(34) : KEY 5,"CONT"+     CHR$(13)
  53. 530 KEY 6,","+CHR$(32)+"LPT1"+    CHR$(13) : KEY 7,"TRON"+    CHR$(13) : KEY 8,"TROFF"+    CHR$(13) : KEY 9,"KEY"+CHR$(32)
  54. 540 KEY 10,"SCREEN 0,0,0"+CHR$(13)    'normal basic softkeys turned    back on
  55. 550 END
  56.