10 REM DVORAK KEYBOARD FOR THE C-64
20 FORT=49152TO49198:READDT:POKET,DT:NEXTT
30 SYS49152:POKE49153,0:POKE49154,224:POKE49156,0:POKE49157,224
40 POKE49162,255:POKE49192,255:SYS49152
50 POKE1,53:REM ACTIVATE RAM KERNAL
60 FORT=0TO32:REM REDEFINE NORMAL KEY DEFS
70 READAD:READVA
80 POKE60289+AD,VA
90 NEXTT
100 FORT=0TO37:REM REDEFINE SHIFTED KEY DEFS
110 READAD:READVA
120 POKE60354+AD,VA
130 NEXTT
140 NEW:END
150 REM ML ROUTINE FOR COPYING BASIC AND KERNAL ROM TO RAM
160 DATA173,0,160,141,0,160,172,5,192,192,191,240,23,238,1,192,238,4,192
170 DATA173,4,192,240,3,76,0,192,238,2,192,238,5,192,76,0,192,172,4,192,192
180 DATA255,240,3,76,13,192,96
190 REM NON SHIFTED DATA
200 DATA62,39,9,44,14,46,17,80,22,89,25,70,30,71,33,67,38,82,41,76,46,63
210 DATA13,79,18,69,21,85,26,73,29,68,34,72,37,84,42,78,45,83,50,45
220 DATA12,59,23,81,20,74,31,75,28,88,39,66,36,77,47,87,44,86,55,90,40,91,43,61
230 REM SHIFTED DATA
240 DATA59,64,24,38,27,42,32,40,35,41,40,93,43,43
250 DATA62,34,9,60,14,62,17,208,22,217,25,198,30,199,33,195,38,210,41,204,46,47
260 DATA13,207,18,197,21,213,26,201,29,196,34,200,37,212,42,206,45,211,50,45
270 DATA12,58,23,209,20,202,31,203,28,216,39,194,36,205,47,215,44,214,55,218