10 MODE 2:BORDER 0:INK 0,0:INK 1,26:DIM tast$(36):anz=1 20 INPUT"Laden (j/ )?",a$:IF UPPER$(a$)="J" THEN INPUT"--------.--- ",a$:IF a$<>""THEN OPENIN a$:WHILE NOT EOF:LINE INPUT#9,tast$(anz):anz=anz+1:WEND:CLOSEIN:GOTO 100 ELSE 20 30 PRINT "Erweiterungen eingeben (max 24)!":WHILE anz<=24:PRINT anz;:INPUT"",tast$(anz):anz=anz+1:WEND 100 x=1:z=128:WHILE x<anz:KEY z,tast$(x):x=x+1:z=z+1:WEND 105 CLS:LOCATE 1,3:PRINT"Nr":LOCATE 5,3:PRINT"W":LOCATE 10,3:PRINT"N":LOCATE 16,3:PRINT"Shift":LOCATE 48,3:PRINT"CTRL" 110 FOR x=0 TO 11:READ nr,erst:KEY DEF nr,1,erst,128+x,140+x:LOCATE 1,5+x:PRINT nr:LOCATE 5,5+x:PRINT"1":LOCATE 10,5+x:PRINT CHR$(erst):LOCATE 15,5+x:PRINT tast$(1+x):LOCATE 47,5+x:PRINT tast$(13+x):NEXT 120 PRINT "Tastatur programmiert ! ";:INPUT"Speichern (j/ )?",a$:IF UPPER$(a$)="J" THEN INPUT"--------.--- ",a$:IF a$<>"" THEN OPENOUT a$:FOR x=1 TO anz-1:PRINT#9,tast$(x):NEXT:CLOSEOUT ELSE 120 130 DATA 10,&37,11,&38,3,&39,20,&34,12,&35,4,&36,13,&31,14,&32,5,&33,15,&30,7,&2c,6,&0D