5 PRINT"[147][154]":POKE53280,14:POKE53281,6
10 PRINT"THIS PROGRAM REMAPS A PORTION OF THE"
15 PRINT"KEYBOARD TO A NUMERIC KEYPAD. PRESS"
20 PRINT"SHIFT-CTRL TO ACTIVATE IT."
100 SA=828
110 FOR I=SA TO SA+118:READ D:POKE I,D:NEXT
120 A1=SA+13:H1=INT(A1/256):L1=A1-H1*256
130 A2=SA+54:H2=INT(A2/256):L2=A2-H2*256
140 A3=SA+55:H3=INT(A3/256):L3=A3-H3*256
150 POKE SA+2,L1:POKE SA+7,H1
160 POKE SA+28,L2:POKE SA+29,H2
170 POKE SA+33,L2:POKE SA+34,H2
180 POKE SA+39,L2:POKE SA+40,H2
190 POKE SA+44,L3:POKE SA+48,H3
200 SYS SA
210 REM MACHINE CODE
220 DATA 120,169,0,141,143,2,169,0
230 DATA 141,144,2,88,96,173,141,2
240 DATA 240,20,201,5,208,13,205,142
250 DATA 2,240,8,173,0,0,73,255
260 DATA 141,0,0,76,72,235,173,0
270 DATA 0,240,248,169,0,133,245,169
280 DATA 0,133,246,76,224,234,0
290 REM NUMERIC KEYPAD DECODE TABLE
300 DATA 20,13,29,136,133,134,135,17
310 DATA 51,87,65,52,90,83,69,1
320 DATA 53,82,68,54,67,70,84,88
330 DATA 55,89,71,56,66,72,52,86
340 DATA 57,53,49,48,48,50,54,78
350 DATA 43,80,51,45,46,58,64,44
360 DATA 92,42,59,19,1,61,94,47
370 DATA 49,95,4,50,32,2,81,3
380 DATA 255