home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 October / 1994-10b.d64 / keydef (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  1.5 KB  |  73 lines
  1. 10 dim ff$(16)
  2. 20 rt$ = chr$(13)
  3. 30 cl$ = "[157]" : rem crsr left
  4. 40 cr$ = "" : rem crsr right
  5. 50 cu$ = "[145]" : rem crsr up
  6. 60 cd$ = "" : rem crsr down
  7. 70 :
  8. 80 :
  9. 90 for i = 1 to 24:l1$=l1$+cl$:next
  10. 100 l2$ = left$(l1$,16)
  11. 110 rem-keys
  12. 120 :
  13. 130 ff$( 1)=   "find@"
  14. 140 :
  15. 150 ff$(2 )=   "@$" + rt$
  16. 160 :
  17. 170 ff$(3 )=   "l[201]:" + rt$
  18. 180 :
  19. 190 ff$(4 )=   "r[213]:" + rt$
  20. 200 :
  21. 210 ff$(5 )=   "re[206]:" + rt$
  22. 220 :
  23. 230 ff$(6 )=   "a[213]"
  24. 240 :
  25. 250 ff$(7 )=   "l[193]:" + rt$
  26. 260 :
  27. 270 ff$(8 )=   "sys_run,"
  28. 280 :
  29. 290 ff$(9 )=   "'---------------------" + rt$
  30. 300 :
  31. 310 ff$(10)=   "poke"
  32. 320 :
  33. 330 ff$(11)=   "@!$8000 $aa00 bassem+"
  34. 340 :
  35. 350 ff$(12)=   "sys$8320:" + rt$
  36. 360 :
  37. 370 ff$(13)=   "s[217]$8000" + rt$
  38. 380 :
  39. 390 ff$(14)=   "?peek(     )"+cl$+cl$+cl$+cl$+cl$+cl$
  40. 400 :
  41. 410 ff$(15)=   "x=     :?p[197](x)+256*p[197](x+1)"+l1$
  42. 420 :
  43. 430 ff$(16)=   "f[207]a=0to10:?c[200](p[197](_       +a));:n[197]"+l2$
  44. 440 :
  45. 450 :
  46. 460 :
  47. 470 :
  48. 480 for r=1 to 16:if ff$(r)="" then       ff$(r)=" "
  49. 490 next
  50. 500 :
  51. 510 :
  52. 520 rem-poker
  53. 530 l=0
  54. 540 print"[147]defining function keys. please wait..."
  55. 550 for r=1to 16 :lc=lc+ len(ff$(r))
  56. 560 lc=lc+1: rem the 0 at the end
  57. 570 next
  58. 580 iflc>290thenprint"function keys definitions are too long":end
  59. 590 tt = -1:fk = 32964
  60. 600 :
  61. 610 for r=1to16
  62. 620 print"";16-r;"[157]   "
  63. 630 :  for i=1 to len(ff$(r))
  64. 640 :      t$=mid$(ff$(r),i):tt=tt+1
  65. 650 :      poke fk+tt,asc(t$)
  66. 660 :  next i
  67. 670 :  tt=tt+1:poke fk+tt,0
  68. 680 :  rem printfk+tt : rem remove first rem to see where defs are going in mem
  69. 690 next r
  70. 700 print"done!"
  71. 710 print"remember to save bassem+ to make these  definitions permanent"
  72. 720 print"(use : @!$8000 $aa00 bassem+)"
  73.