TABLE F Setting Program 1000 REMark - Set private keyboard tables 1010 : 1020 fch = FOP_OVER (ram1_kbd1) 1022 : 1032 WPUT #fch, 4, 642 1042 : 1210 BPUT #fch, 0,$1B,'1','2','3','4','5','6','7','8','9','0','-','=',$C2,$09 1220 BPUT #fch, 'q','w','e','r','t','y','u','i','o','p','[',']',$0A, 0,'a','s' 1230 BPUT #fch, 'd','f','g','h','j','k','l',';',$27,$9F, 0,'#','z','x','c','v' 1240 BPUT #fch, 'b','n','m',',','.','/', 0,'*', 0,' ',$E0,$E8,$EC,$F0,$F4,$F8 1250 BPUT #fch, $EA,$EE,$F2,$F6,$FA, 0,$F9,'7','8','9','-','4','5','6','+','1' 1260 BPUT #fch, '2','3','0','.', 3,'/','\', 0, 0, 0, 0, 0,$0A, 0, 0, 0 1270 BPUT #fch, 0, 0, 0, 0, 0,$E9,$ED,$C1,$D0,$D5, 0,$C0, 0,$C8, 0,$C9 1280 BPUT #fch, $D8,$DD,$FC,$CA, 0,$D3, 0, 0, 0, 0, 0, 0,$0A, 0, 0, 0 1290 : 1300 BPUT #fch, 0,$7F,'!','"','`','$','%','^','&','*','(',')','_','+',$C6,$FD 1310 BPUT #fch, 'Q','W','E','R','T','Y','U','I','O','P','{','}',$FE, 0,'A','S' 1320 BPUT #fch, 'D','F','G','H','J','K','L',':','@',$B5, 0,'~','Z','X','C','V' 1330 BPUT #fch, 'B','N','M','<','>','?', 0,'*', 0,$FC,$E4,$EA,$EE,$F2,$F6,$FA 1340 BPUT #fch, $EA,$EE,$F2,$F6,$FA, 0,$FB,'7','8','9','-','4','5','6','+','1' 1350 BPUT #fch, '2','3','0','.',$A3, 0,'|',$DF,$E1, 0, 0, 0, 0, 0, 0, 0 1360 BPUT #fch, 0, 0, 0, 0, 0,$EB,$EF,$C5,$D4,$D5, 0,$C4, 0,$CC, 0,$CD 1370 BPUT #fch, $DC,$DD,$FC,$CE, 0,$D7, 0, 0, 0, 0, 0, 0,$FE, 0, 0, 0 1380 : 1390 BPUT #fch, $FF,$80,$91,$92,$93,$94,$95,$96,$97,$98,$99,$90,$8D,$9D,$C2,$09 1400 BPUT #fch, $11,$17,$05,$12,$14,$19,$15,$09,$0F,$10,$BB,'½',$0A, 0,$01,$13 1410 BPUT #fch, $04,$06,$07,$08,$0A,$0B,$0C,$9B,$87, 0, 0, 0,$1A,$18,$03,$16 1420 BPUT #fch, $02,$0E,$0D,$8C,$8E,$8F, 0,'*', 0,$FF,$E2,$E9,$ED,$F1,$F5,$F9 1430 BPUT #fch, $D1,$D3,$D7,$D9,$DB, 0,$F9,'7','8','9','-','4','5','6','+','1' 1440 BPUT #fch, '2','3','0','.', 3, 0,'\',$DF,$E1, 0, 0, 0, 0, 0, 0, 0 1450 BPUT #fch, 0, 0, 0, 0, 0,$E9,$ED,$C3,$D2,$D7, 0,$C2, 0,$CA, 0,$CB 1460 BPUT #fch, $DA,$DF,$FC,$CA, 0,$D3, 0, 0, 0, 0, 0, 0,$0A, 0, 0, 0 1470 : 1480 BPUT #fch, $FF,$1F,$81,$A0,$83,$84,$85,$BE,$86,$8A,$88,$89,$BF,$8B,$C6,$FD 1490 BPUT #fch, $B1,$B7,$A5,$B2,$B4,$B9,$B5,$A9,$AF,$B0,$1B,$1D,$FE, 0,$A1,$B3 1500 BPUT #fch, $A4,$A6,$A7,$A8,$AA,$AB,$AC,$9A,$82,$1B, 0,$7C,$BA,$B8,$A3,$B6 1510 BPUT #fch, $A2,$AE,$AD,$9C,$9E,$9F, 0,'*', 0,' ',$E6,$EB,$EF,$F3,$F7,$FB 1520 BPUT #fch, $D1,$D3,$D7,$D9,$DB, 0,$FB,'7','8','9','-','4','5','6','+','1' 1530 BPUT #fch, '2','3','0','.',$A3, 0,'\',$DF,$E1, 0, 0, 0, 0, 0, 0, 0 1540 BPUT #fch, 0, 0, 0, 0, 0,$EB,$EF,$C7,$D6,$D7, 0,$C6, 0,$CE, 0,$CF 1550 BPUT #fch, $DE,$DF,$FC,$CE, 0,$D7, 0, 0, 0, 0, 0, 0,$FE, 0, 0, 0 1560 : 1570 REMark 0 1 2 3 4 5 6 7 8 9 A B C D E F 1620 : 1630 BPUT #fch, 0, 0, 0, 0, 0,$B5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 1640 BPUT #fch, 0, 0,$B5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 1650 BPUT #fch, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 1660 BPUT #fch, 0, 0, 0, 0, 0, 0, 0,$2A, 0, 0, 0, 0, 0, 0, 0, 0 1670 BPUT #fch, 0, 0, 0, 0, 0, 0, 0,$C1,$D0,$D5,$2D,$C0, 0,$C8,$2B,$C9 1680 BPUT #fch, $D8,$DD,$FC,$CA, 0,$2F, 0, 0, 0, 0, 0, 0,$0A, 0, 0, 0 1690 BPUT #fch, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 1700 BPUT #fch, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 1710 : 1720 FOR x=1 TO 64: LPUT#fch,0 1730 CLOSE#fch