home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 July
/
64er_Magazin_87-07_1987_Markt__Technik_de.d64
/
tasten-change
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
69 lines
10 poke53265,11:poke56576,peek(56576)and252:poke53272,56:poke648,204:poke788,52
20 ifa=2then120
30 ifa=0thena=1:load"m-code",8,1
40 sys49152+3
50 dim be(63):poke53281,12:print"[147]"::poke53281,0:az=63
60 for i=0toaz:readbe(i):be(i)=55296+be(i):next
70 dim st$(6):st$(0)="normal":st$(1)="shift ":st$(2)="cbm "
80 st$(3)=st$(1):st$(4)="ctrl ":st$(6)=st$(2)
90 dim sh(6):sh(0)=49152+6:sh(1)=49152+13:sh(2)=49152+20:sh(3)=49152+13
100 sh(4)=49152+27:sh(5)=49152+6:sh(6)=49152+20
110 ifa=1thena=2:load"t5",8,1
120 ze=214:sp=211:crsrset=58732
130 print"":gosub410
140 gosub540:pokeze,20:pokesp,0:sys crsrset:poke198,0
150 if ta=255 then 230
160 pokeze,20:pokesp,0:syscrrsrset:poke198,0
170 print"alter [215]ert :"w
180 input"neuer [215]ert ";w
190 poke51962+ta+sh*65,w
200 pokebe(ta),1:gosub410
210 print" ok !!! "
220 syssh(sh):goto140
230 pokeze,15:pokesp,0:syscrsrset:sh=0
240 print"f1[146] [212]asten [ndern"
250 print"f3[146] [212]asten speichern"
260 print"f5[146] [212]asten laden"
270 print"f7[146] *** [197]nde ***"
280 poke198,0:wait198,1:getx$
290 ifx$="[133]"then130
300 ifx$="[135]"thena=1:goto110
310 ifx$="[136]"then370
320 ifx$<>"[134]"then260
330 print"[212]asten werden gespeichert !"
340 open15,8,15,"s0:t5(alt)":print#15,"r0:t5(alt)=0:t5":close15
350 sys49152
360 gosub410:print" ok !!":goto230
370 poke56576,peek(56576)or3:poke53272,21:poke648,4
380 print"[147]load"chr$(34)"0:lader"chr$(34)",8"
390 print"run":poke788,49
400 poke631,19:poke632,13:poke633,13:poke198,3:end
410 poke53265,11:print"[147]"st$(sh)""
420 print"[176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174] [176][192][174]"
430 print"[168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168]"
440 print"[171][192][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][192][179] [171][192][179]"
450 print"[168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168]"
460 print"[171][192][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][192][192][179] [171][192][179]"
470 print"[168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168]"
480 print"[171][192][166][192][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][192][166][192][178][192][179] [171][192][179]"
490 print"[168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168]"
500 print"[173][192][177][192][192][177][192][166][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][166][192][192][177][192][177][192][189] [173][192][189]"
510 print" [168] [168]"
520 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
530 syssh(sh):poke53265,27:return
540 sh=peek(653):ifsh=7thenta=255:return
550 ifsa<>sh then sys sh(sh):print""st$(sh)
560 sa=sh:ta=peek(203):ifta=64then 540
570 ifsh<>0 then sh=log(sh)/log(2)+1
580 pokebe(ta),7
590 w=peek(51962+ta+sh*65)
600 return
610 data 191,349,431,435,195,275,355,429
620 data 167,246,325,169,406,327,248,403
630 data 171,250,329,173,410,331,252,408
640 data 175,254,333,177,414,335,256,412
650 data 179,258,337,181,418,339,260,416
660 data 183,262,341,185,422,343,264,420
670 data 187,266,345,189,426,347,268,424
680 data 163,161,241,165,497,401,244,321