C64'er/C64'er.iso/87xx/8707.d64/tasten-change

Commodore BASIC | 1995-03-30 | 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