home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 24b / keydef40.zip / FK40.BAS next >
BASIC Source File  |  1986-01-25  |  1KB  |  34 lines
  1. 10 REM ******* keydef by Walter J. Brosman  CIS 71505,115 **********
  2. 20 REM ******* modified by Mike Todd, SIG003 ***********************
  3. 21 REM ******* Program will now set all 40 keys! *******************
  4. 30 CLS:OPEN "KEYDEF" FOR OUTPUT AS 1
  5. 31 OPEN "ORIGINAL" FOR OUTPUT AS 2
  6. 40 FOR X= 59 TO 68:X$=MID$(STR$(X),2)
  7. 50 PRINT"Enter string for F";X-58;"  or <cr> to skip";:INPUT Y$
  8. 60 IF Y$="" THEN 90
  9. 70 Y$=CHR$(34)+Y$+CHR$(34)+";13"
  10. 80 PRINT#1,CHR$(27)+"[0;"X$";"Y$"p"
  11. 81 PRINT#2,CHR$(27)+"[0;"X$";0;"X$"p"
  12. 90 NEXT
  13. 100 FOR X=84 TO 93:X$=MID$(STR$(X),2)
  14. 110 PRINT "Enter string for Shift-F";X-83"  or <cr> to skip";:INPUT Y$
  15. 120 IF Y$="" THEN 150
  16. 130 Y$=CHR$(34)+Y$+CHR$(34)+";13"
  17. 140 PRINT#1,CHR$(27)+"[0;"X$";"Y$"p"
  18. 141 PRINT#2,CHR$(27)+"[0;"X$";0;"X$"p"
  19. 150 NEXT
  20. 160 FOR X=94 TO 103:X$=MID$(STR$(X),2)
  21. 170 PRINT "Enter string for Ctrl-F";X-93"  or <cr> to skip";:INPUT Y$
  22. 180 IF Y$="" THEN 210
  23. 190 Y$=CHR$(34)+Y$+CHR$(34)+";13"
  24. 200 PRINT#1,CHR$(27)+"[0;"X$";"Y$"p"
  25. 201 PRINT#2,CHR$(27)+"[0;"X$";0;"X$"p"
  26. 210 NEXT
  27. 220 FOR X=104 TO 113:X$=MID$(STR$(X),2)
  28. 230 PRINT "Enter string for Alt-F";X-103"  or <cr> to skip";:INPUT Y$
  29. 240 IF Y$="" THEN 270
  30. 250 Y$=CHR$(34)+Y$+CHR$(34)+";13"
  31. 260 PRINT#1,CHR$(27)+"[0;"X$";"Y$"p"
  32. 261 PRINT#2,CHR$(27)+"[0;"X$";0;"X$"p"
  33. 270 NEXT:CLOSE
  34.