100 REM Newkeys 105 REM Xerox 16/8 (ROM Level 5.00) 110 REM Key Redefinition Program 115 REM by Joe England, 8/1/87 120 REM 125 REM ADDRS VAL (STD) KEYSTROKE 130 REM ----- --- ----- --------- 135 POKE 63547,241 : ' (241) F1 140 POKE 63548,242 : ' (242) F2 145 POKE 63549,243 : ' (243) F3 150 POKE 63550,244 : ' (244) F4 155 POKE 63551,245 : ' (245) F5 160 POKE 63552,246 : ' (246) F6 165 POKE 63553,247 : ' (247) F7 170 POKE 63554,248 : ' (248) F8 175 POKE 63555,249 : ' (249) F9 180 POKE 63556,250 : ' (250) F10 185 POKE 63557,251 : ' (251) F11 190 POKE 63558,252 : ' (252) F12 195 POKE 63753,209 : ' (209) CTRL F1 200 POKE 63754,210 : ' (210) CTRL F2 205 POKE 63755,211 : ' (211) CTRL F3 210 POKE 63756,212 : ' (212) CTRL F4 215 POKE 63757,213 : ' (213) CTRL F5 220 POKE 63758,214 : ' (214) CTRL F6 225 POKE 63759,215 : ' (215) CTRL F7 230 POKE 63760,216 : ' (216) CTRL F8 235 POKE 63761,217 : ' (217) CTRL F9 240 POKE 63762,218 : ' (218) CTRL F10 245 POKE 63763,219 : ' (219) CTRL F11 250 POKE 63764,220 : ' (220) CTRL F12 255 POKE 63650,241 : ' (241) SHIFT F1 260 POKE 63651,242 : ' (242) SHIFT F2 265 POKE 63652,243 : ' (243) SHIFT F3 270 POKE 63653,244 : ' (244) SHIFT F4 275 POKE 63654,245 : ' (245) SHIFT F5 280 POKE 63655,246 : ' (246) SHIFT F6 285 POKE 63656,247 : ' (247) SHIFT F7 290 POKE 63657,248 : ' (248) SHIFT F8 295 POKE 63658,249 : ' (249) SHIFT F9 300 POKE 63659,250 : ' (250) SHIFT F10 305 POKE 63660,251 : ' (251) SHIFT F11 310 POKE 63661,252 : ' (252) SHIFT F12 315 POKE 63696,145 : ' (145) CTRL 1 320 POKE 63697,146 : ' (146) CTRL 2 325 POKE 63698,147 : ' (147) CTRL 3 330 POKE 63699,148 : ' (148) CTRL 4 335 POKE 63700,149 : ' (149) CTRL 5 340 POKE 63701,150 : ' (150) CTRL 6 345 POKE 63702,151 : ' (151) CTRL 7 350 POKE 63703,152 : ' (152) CTRL 8 355 POKE 63704,153 : ' (153) CTRL 9 360 POKE 63705,144 : ' (144) CTRL 0 365 POKE 63709,137 : ' (137) CTRL TAB 370 POKE 63706,31 : ' (31) CTRL - 375 POKE 63707,154 : ' (154) CTRL = 380 POKE 63720,27 : ' (27) CTRL [ 385 POKE 63721,29 : ' (29) CTRL ] 390 POKE 63745,28 : ' (28) CTRL , 395 POKE 63786,171 : ' (171) CTRL + (NUMPAD) 400 POKE 63787,173 : ' (173) CTRL - (NUMPAD) 405 POKE 63788,170 : ' (170) CTRL * (NUMPAD) 410 POKE 63789,175 : ' (175) CTRL / (NUMPAD) 415 POKE 63773,177 : ' (177) CTRL 1 (NUMPAD) 420 POKE 63774,178 : ' (178) CTRL 2 (NUMPAD) 425 POKE 63775,179 : ' (179) CTRL 3 (NUMPAD) 430 POKE 63769,180 : ' (180) CTRL 4 (NUMPAD) 435 POKE 63770,181 : ' (181) CTRL 5 (NUMPAD) 440 POKE 63771,182 : ' (182) CTRL 6 (NUMPAD) 445 POKE 63765,183 : ' (183) CTRL 7 (NUMPAD) 450 POKE 63766,184 : ' (184) CTRL 8 (NUMPAD) 455 POKE 63767,185 : ' (185) CTRL 9 (NUMPAD) 460 POKE 63776,176 : ' (176) CTRL 0 (NUMPAD) 465 POKE 63737,174 : ' (174) CTRL . (NUMPAD) 470 POKE 63735,138 : ' (138) CTRL LINEFEED (NUMPAD) 475 POKE 63768,172 : ' (172) CTRL , (NUMPAD) 480 POKE 63772,61 : ' (61) CTRL ENTER (NUMPAD) 485 POKE 63578,7 : ' (253) ACCEPT 490 POKE 63579,127 : ' (127) DELETE 495 POKE 63577,1 : ' (230) PREV 500 POKE 63571,6 : ' (231) NEXT 505 POKE 63576,5 : ' (129) UP-ARROW 510 POKE 63572,24 : ' (130) DOWN-ARROW 515 POKE 63574,4 : ' (131) RIGHT-ARROW 520 POKE 63573,19 : ' (132) LEFT-ARROW 525 POKE 63575,42 : ' (128) HOME 530 POKE 63584,22 : ' (240) BLANK 535 POKE 63585,21 : ' (24) UNDO 540 POKE 63784,7 : ' (221) CTRL ACCEPT 545 POKE 63785,127 : ' (255) CTRL DELETE 550 POKE 63783,1 : ' (198) CTRL PREV 555 POKE 63777,6 : ' (199) CTRL NEXT 560 POKE 63782,5 : ' (1) CTRL UP-ARROW 565 POKE 63778,24 : ' (2) CTRL DOWN-ARROW 570 POKE 63780,4 : ' (3) CTRL RIGHT-ARROW 575 POKE 63779,19 : ' (4) CTRL LEFT-ARROW 580 POKE 63781,42 : ' (30) CTRL HOME 585 POKE 63790,22 : ' (208) CTRL BLANK 590 POKE 63791,21 : ' (222) CTRL UNDO 595 POKE 63681,7 : ' (253) SHIFT ACCEPT 600 POKE 63682,127 : ' (127) SHIFT DELETE 605 POKE 63680,1 : ' (230) SHIFT PREV 610 POKE 63674,6 : ' (231) SHIFT NEXT 615 POKE 63679,5 : ' (129) SHIFT UP-ARROW 620 POKE 63675,24 : ' (130) SHIFT DOWN-ARROW 625 POKE 63677,4 : ' (131) SHIFT RIGHT-ARROW 630 POKE 63676,19 : ' (132) SHIFT LEFT-ARROW 635 POKE 63678,42 : ' (128) SHIFT HOME 640 POKE 63687,22 : ' (240) SHIFT BLANK 645 POKE 63688,21 : ' (24) SHIFT UNDO 650 POKE 63814,1 : ' (47) REPEATER 655 POKE 63815,4 : ' (61) REPEATER 660 POKE 63816,5 : ' (88) REPEATER 665 POKE 63817,6 : ' (120) REPEATER 670 POKE 63819,19 : ' (129) REPEATER 675 POKE 63820,23 : ' (130) REPEATER 680 POKE 63821,24 : ' (131) REPEATER 685 POKE 63822,26 : ' (132) REPEATER 690 PRINT 695 PRINT "[Keys redefined]"