home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 May / 1988-05.d64 / enhancer.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  993 b   |  41 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 20 poke53280,6:poke53281,6:poke646,3
  3. 30 print"[147]   copyright 1988 compute! pub., inc."
  4. 40 printtab(11)"all rights reserved"
  5. 50 print"    'keyboard enhancer' customizer"
  6. 60 print"function key strings"
  7. 70 print"current strings"
  8. 80 forj=1to7step2
  9. 90 print"f";j;":";chr$(34);:reada:zz=a:gosub260
  10. 100 print"new definition:?";:d$=""
  11. 110 poke204,0:gets$:ifs$=""then110
  12. 120 ifs$=chr$(13)then160
  13. 130 poke212,1:prints$;:d$=d$+s$
  14. 140 ifs$=chr$(20)thend$=left$(d$,len(d$)-2)
  15. 150 goto110
  16. 160 print" ";
  17. 170 print:iflen(d$)>10then100
  18. 180 a=zz:gosub320
  19. 190 print" ";:nextj
  20. 200 print"default colors"
  21. 210 forj=1to3
  22. 220 readl$:print"current ";l$;":";
  23. 230 readb:printpeek(b)
  24. 240 input"new value:";x:ifx<0orx>255then240
  25. 250 pokeb,x:next:end
  26. 260 ifpeek(a)=0then310
  27. 270 ifpeek(a)=13thenf$="_":goto300
  28. 280 ifpeek(a)=34thenf$=chr$(39):goto300
  29. 290 f$=chr$(peek(a))
  30. 300 printf$;:a=a+1:goto260
  31. 310 printchr$(34):return
  32. 320 ifd$=""thenreturn
  33. 330 fort=1tolen(d$)
  34. 340 ifmid$(d$,t,1)="_"thenf$=chr$(13):goto370
  35. 350 ifmid$(d$,t,1)=chr$(39)thenf$=chr$(34):goto370
  36. 360 f$=mid$(d$,t,1)
  37. 370 pokea,asc(f$):a=a+1
  38. 380 nextt:pokea,0:return
  39. 390 data 50215,50245,50275,50305
  40. 400 data "border",50181,"screen",50186,"cursor",50191
  41.