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