KEYDEF
FILE INFORMATION
FILENAME(S): KEYDEF
FILE TYPE(S): PRG
FILE SIZE: 10K
FIRST SEEN: 2025-11-30 21:24:08
APPEARS ON: 1 disk(s)
FILE HASH
83e28d839f7fc766d448a3bc80b39092320dc96652173bfe9750cae5ae113ee8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BEST OF TORPET | KEYDEF | PRG | DuncanTwain | 20 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4C 08 00 00 8F 20 2A 2A 2A 20 4B 45 59 44 |..L.... *** KEYD|
00000010: 45 46 3A 20 41 20 4B 45 59 42 4F 41 52 44 20 52 |EF: A KEYBOARD R|
00000020: 45 44 45 46 49 4E 49 54 49 4F 4E 20 50 52 4F 47 |EDEFINITION PROG|
00000030: 52 41 4D 20 46 4F 52 20 54 48 45 20 43 4F 4D 4D |RAM FOR THE COMM|
00000040: 4F 44 4F 52 45 20 36 34 20 2A 2A 2A 00 96 08 01 |ODORE 64 ***....|
00000050: 00 8F 20 2A 2A 2A 20 57 49 4C 4C 49 41 4D 20 52 |.. *** WILLIAM R|
00000060: 20 46 52 45 4E 43 48 55 2C 20 31 30 36 20 42 20 | FRENCHU, 106 B |
00000070: 4E 41 53 53 41 55 20 53 54 2E 2C 50 52 49 4E 43 |NASSAU ST.,PRINC|
00000080: 45 54 4F 4E 20 4E 4A 2E 20 32 33 2E 41 55 47 20 |ETON NJ. 23.AUG |
00000090: 38 33 20 2A 2A 2A 00 B3 08 02 00 8F 20 2A 2A 2A |83 ***...... ***|
000000A0: 20 49 4E 49 54 49 41 4C 49 5A 41 54 49 4F 4E 20 | INITIALIZATION |
000000B0: 2A 2A 2A 00 C8 08 03 00 97 20 35 33 32 38 30 2C |***...... 53280,|
000000C0: C2 28 35 33 32 38 31 29 00 F8 08 04 00 8D 20 32 |.(53281)...... 2|
000000D0: 30 30 30 30 3A 99 20 22 11 11 11 11 11 11 20 20 |0000:. "...... |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 4C 4F 41 44 49 | LOADI|
000000F0: 4E 47 20 44 41 54 41 22 00 27 09 05 00 86 20 44 |NG DATA".'.... D|
00000100: 28 31 39 34 29 3A 8D 20 35 34 30 30 3A 8F 20 2A |(194):. 5400:. *|
00000110: 2A 2A 20 4C 4F 41 44 20 44 56 4F 52 41 4B 20 44 |** LOAD DVORAK D|
00000120: 41 54 41 20 2A 2A 2A 00 56 09 06 00 8D 20 36 30 |ATA ***.V.... 60|
00000130: 30 30 3A 8F 20 2A 2A 2A 20 4C 4F 41 44 20 41 4E |00:. *** LOAD AN|
00000140: 44 20 52 55 4E 20 53 57 41 50 20 52 4F 55 54 49 |D RUN SWAP ROUTI|
00000150: 4E 45 20 2A 2A 2A 00 82 09 07 00 46 31 B2 31 3A |NE ***.....F1.1:|
00000160: 8F 20 2A 2A 2A 20 53 45 54 20 46 31 20 54 4F 20 |. *** SET F1 TO |
00000170: 30 20 46 4F 52 20 54 41 50 45 20 55 53 45 20 2A |0 FOR TAPE USE *|
00000180: 2A 2A 00 92 09 08 00 8B 20 46 31 B2 30 20 A7 20 |**...... F1.0 . |
00000190: 31 30 00 A0 09 09 00 9F 20 31 35 2C 38 2C 31 35 |10...... 15,8,15|
000001A0: 00 D8 09 0A 00 86 20 53 41 28 33 29 3A 8F 20 2A |...... SA(3):. *|
000001B0: 2A 2A 20 53 54 41 52 54 49 4E 47 20 41 44 44 52 |** STARTING ADDR|
000001C0: 45 53 53 45 53 20 46 4F 52 20 4B 45 59 20 54 41 |ESSES FOR KEY TA|
000001D0: 42 4C 45 53 20 2A 2A 2A 00 0C 0A 14 00 53 41 28 |BLES ***.....SA(|
000001E0: 30 29 B2 36 30 32 38 39 3A 53 41 28 31 29 B2 36 |0).60289:SA(1).6|
000001F0: 30 33 35 34 3A 53 41 28 32 29 B2 36 30 34 31 39 |0354:SA(2).60419|
00000200: 3A 53 41 28 33 29 B2 36 30 35 33 36 00 37 0A 1E |:SA(3).60536.7..|
00000210: 00 86 20 4B 24 28 32 35 35 29 3A 8D 20 31 30 30 |.. K$(255):. 100|
00000220: 30 30 3A 8F 20 2A 2A 2A 20 4B 45 59 20 4C 41 42 |00:. *** KEY LAB|
00000230: 45 4C 53 20 2A 2A 2A 00 6E 0A 5A 00 86 20 4F 4B |ELS ***.n.Z.. OK|
00000240: 28 32 35 35 29 2C 4E 4B 28 32 35 35 29 3A 8F 20 |(255),NK(255):. |
00000250: 2A 2A 2A 20 4F 4C 44 20 41 4E 44 20 4E 45 57 20 |*** OLD AND NEW |
00000260: 4B 45 59 20 41 52 52 41 59 53 20 2A 2A 2A 00 A5 |KEY ARRAYS ***..|
00000270: 0A 75 00 86 20 4E 45 24 28 36 36 29 3A 8D 20 31 |.u.. NE$(66):. 1|
00000280: 30 35 30 30 3A 8F 20 2A 2A 2A 20 4E 4F 4E 20 45 |0500:. *** NON E|
00000290: 43 48 4F 49 4E 47 20 43 48 41 52 41 43 54 45 52 |CHOING CHARACTER|
000002A0: 53 20 2A 2A 2A 00 D9 0A 76 00 97 20 36 34 39 2C |S ***...v.. 649,|
000002B0: 31 3A 8F 20 2A 2A 2A 20 43 48 41 4E 47 45 20 4B |1:. *** CHANGE K|
000002C0: 45 59 42 4F 41 52 44 20 42 55 46 46 45 52 20 4C |EYBOARD BUFFER L|
000002D0: 45 4E 47 54 48 20 2A 2A 2A 00 DF 0A 77 00 3A 00 |ENGTH ***...w.:.|
000002E0: FF 0A 78 00 8D 20 32 30 30 30 30 3A 8F 20 2A 2A |..x.. 20000:. **|
000002F0: 2A 20 4D 41 49 4E 20 4D 45 4E 55 20 2A 2A 2A 00 |* MAIN MENU ***.|
00000300: 23 0B 82 00 99 20 22 11 11 11 11 20 20 20 20 20 |#.... ".... |
00000310: 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 20 | MENU |
00000320: 31 11 22 00 4B 0B 8C 00 99 20 22 20 20 20 20 20 |1.".K.... " |
00000330: 20 31 20 20 20 20 4C 4F 41 44 20 44 45 46 49 4E | 1 LOAD DEFIN|
00000340: 49 54 49 4F 4E 20 46 49 4C 45 22 00 75 0B 96 00 |ITION FILE".u...|
00000350: 99 20 22 20 20 20 20 20 20 32 20 20 20 20 43 52 |. " 2 CR|
00000360: 45 41 54 45 20 44 45 46 49 4E 49 54 49 4F 4E 20 |EATE DEFINITION |
00000370: 46 49 4C 45 22 00 9D 0B AA 00 99 20 22 20 20 20 |FILE"...... " |
00000380: 20 20 20 33 20 20 20 20 53 41 56 45 20 44 45 46 | 3 SAVE DEF|
00000390: 49 4E 49 54 49 4F 4E 20 46 49 4C 45 22 00 C3 0B |INITION FILE"...|
000003A0: B4 00 99 20 22 20 20 20 20 20 20 34 20 20 20 20 |... " 4 |
000003B0: 4C 4F 41 44 20 44 56 4F 52 41 4B 20 4B 45 59 53 |LOAD DVORAK KEYS|
000003C0: 45 54 22 00 E2 0B BE 00 99 20 22 20 20 20 20 20 |ET"...... " |
000003D0: 20 35 20 20 20 20 45 4E 44 20 50 52 4F 47 52 41 | 5 END PROGRA|
000003E0: 4D 22 00 03 0C C8 00 99 20 22 11 20 20 20 20 20 |M"...... ". |
000003F0: 20 20 20 20 20 20 20 20 20 4F 50 54 49 4F 4E 3F | OPTION?|
00000400: 20 22 3B 00 0C 0C D1 00 A1 20 41 24 00 2D 0C D2 | ";...... A$.-..|
00000410: 00 A1 20 41 24 3A 8B 20 41 24 B3 22 31 22 20 B0 |.. A$:. A$."1" .|
00000420: 20 41 24 B1 22 35 22 20 A7 20 32 31 30 00 45 0C | A$."5" . 210.E.|
00000430: DC 00 99 20 41 24 3A 81 20 49 B2 30 20 A4 20 31 |... A$:. I.0 . 1|
00000440: 30 30 30 3A 82 00 6C 0C E6 00 91 20 C5 28 41 24 |000:..l.... .(A$|
00000450: 29 20 89 20 31 30 30 30 2C 32 30 30 30 2C 34 30 |) . 1000,2000,40|
00000460: 30 30 2C 35 30 30 30 2C 33 30 30 30 00 72 0C E6 |00,5000,3000.r..|
00000470: 03 3A 00 78 0C E7 03 3A 00 AF 0C E8 03 8D 20 32 |.:.x...:...... 2|
00000480: 30 30 30 30 3A 8F 20 2A 2A 2A 20 4C 4F 41 44 20 |0000:. *** LOAD |
00000490: 41 4E 20 45 58 49 53 54 49 4E 47 20 44 45 46 49 |AN EXISTING DEFI|
000004A0: 4E 49 54 49 4F 4E 20 46 49 4C 45 20 2A 2A 2A 00 |NITION FILE ***.|
000004B0: B8 0C F1 03 A1 20 41 24 00 D5 0C F2 03 85 20 22 |..... A$...... "|
000004C0: 11 11 11 11 11 11 20 20 46 49 4C 45 4E 41 4D 45 |...... FILENAME|
000004D0: 22 3B 4E 46 24 00 E7 0C F7 03 8B 20 46 31 B2 30 |";NF$...... F1.0|
000004E0: 20 A7 20 31 32 30 30 00 FA 0C FC 03 4E 46 24 B2 | . 1200.....NF$.|
000004F0: 4E 46 24 AA 22 2C 53 2C 52 22 00 21 0D 4C 04 9F |NF$.",S,R".!.L..|
00000500: 20 38 2C 38 2C 38 2C 4E 46 24 3A 8F 20 2A 2A 2A | 8,8,8,NF$:. ***|
00000510: 20 44 49 53 4B 20 53 45 43 54 49 4F 4E 20 2A 2A | DISK SECTION **|
00000520: 2A 00 2D 0D 56 04 8D 20 33 30 30 30 30 00 3B 0D |*.-.V.. 30000.;.|
00000530: 60 04 81 20 49 B2 30 20 A4 20 33 00 6F 0D 62 04 |`.. I.0 . 3.o.b.|
00000540: 81 20 4A B2 30 20 A4 20 36 33 3A 4C B2 36 34 AC |. J.0 . 63:L.64.|
00000550: 49 AA 4A 3A 84 38 2C 4F 4B 28 4C 29 3A 97 28 53 |I.J:.8,OK(L):.(S|
00000560: 41 28 49 29 AA 4A 29 2C 4F 4B 28 4C 29 3A 82 00 |A(I).J),OK(L):..|
00000570: 75 0D 64 04 82 00 81 0D 6A 04 8D 20 33 30 30 30 |u.d.....j.. 3000|
00000580: 30 00 89 0D 74 04 A0 20 38 00 93 0D 7E 04 89 20 |0...t.. 8...~.. |
00000590: 31 32 30 00 BB 0D B0 04 9F 20 31 2C 31 2C 30 2C |120...... 1,1,0,|
000005A0: 4E 46 24 20 3A 8F 20 2A 2A 2A 20 54 41 50 45 20 |NF$ :. *** TAPE |
000005B0: 53 45 43 54 49 4F 4E 20 2A 2A 2A 00 C9 0D C4 04 |SECTION ***.....|
000005C0: 81 20 49 B2 30 20 A4 20 33 00 FD 0D C6 04 81 20 |. I.0 . 3...... |
000005D0: 4A B2 30 20 A4 20 36 33 3A 4C B2 36 34 AC 49 AA |J.0 . 63:L.64.I.|
000005E0: 4A 3A 84 31 2C 4F 4B 28 4C 29 3A 97 28 53 41 28 |J:.1,OK(L):.(SA(|
000005F0: 49 29 AA 4A 29 2C 4F 4B 28 4C 29 3A 82 00 03 0E |I).J),OK(L):....|
00000600: C8 04 82 00 0B 0E D8 04 A0 20 31 00 36 0E DB 04 |......... 1.6...|
00000610: 99 20 22 11 11 20 20 20 20 20 20 20 20 12 48 49 |. ".. .HI|
00000620: 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |T ANY KEY TO CON|
00000630: 54 49 4E 55 45 22 00 3F 0E DC 04 A1 20 41 24 00 |TINUE".?.... A$.|
00000640: 57 0E DE 04 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |W.... A$:. A$.""|
00000650: 20 A7 20 31 32 34 36 00 61 0E E2 04 89 20 31 32 | . 1246.a.... 12|
00000660: 30 00 67 0E CD 07 3A 00 6D 0E CE 07 3A 00 96 0E |0.g...:.m...:...|
00000670: CF 07 8F 20 2A 2A 2A 20 43 52 45 41 54 45 20 4E |... *** CREATE N|
00000680: 45 57 20 44 45 46 49 4E 49 54 49 4F 4E 20 46 49 |EW DEFINITION FI|
00000690: 4C 45 20 2A 2A 2A 00 BE 0E D0 07 97 20 37 38 38 |LE ***...... 788|
000006A0: 2C 35 32 3A 8F 20 2A 2A 2A 20 44 49 53 41 42 4C |,52:. *** DISABL|
000006B0: 45 20 53 54 4F 50 20 4B 45 59 20 2A 2A 2A 00 CA |E STOP KEY ***..|
000006C0: 0E DA 07 8D 20 32 30 30 30 30 00 EE 0E E4 07 99 |.... 20000......|
000006D0: 20 22 11 11 11 11 20 20 20 20 20 20 20 20 20 20 | ".... |
000006E0: 20 20 20 20 20 20 4D 45 4E 55 20 32 11 22 00 1A | MENU 2."..|
000006F0: 0F E6 07 99 20 22 20 20 20 31 20 20 20 20 41 53 |.... " 1 AS|
00000700: 53 49 47 4E 20 53 48 49 46 54 53 20 49 4E 44 45 |SIGN SHIFTS INDE|
00000710: 50 45 4E 44 45 4E 54 4C 59 22 00 47 0F E8 07 99 |PENDENTLY".G....|
00000720: 20 22 20 20 20 32 20 20 20 20 41 53 53 49 47 4E | " 2 ASSIGN|
00000730: 20 53 48 49 46 54 53 20 53 49 4D 55 4C 54 41 4E | SHIFTS SIMULTAN|
00000740: 45 4F 55 53 4C 59 22 00 68 0F EA 07 99 20 22 11 |EOUSLY".h.... ".|
00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 50 | OP|
00000760: 54 49 4F 4E 3F 20 22 3B 00 71 0F EB 07 A1 20 41 |TION? ";.q.... A|
00000770: 24 00 93 0F EC 07 A1 20 41 24 3A 8B 20 41 24 B3 |$...... A$:. A$.|
00000780: 22 31 22 20 B0 20 41 24 B1 22 32 22 20 A7 20 32 |"1" . A$."2" . 2|
00000790: 30 32 38 00 AC 0F ED 07 8F 20 2A 2A 2A 20 44 45 |028...... *** DE|
000007A0: 4C 41 59 20 4C 4F 4F 50 20 2A 2A 2A 00 C4 0F EE |LAY LOOP ***....|
000007B0: 07 99 20 41 24 3A 81 20 49 B2 30 20 A4 20 31 30 |.. A$:. I.0 . 10|
000007C0: 30 30 3A 82 00 0B 10 F0 07 46 B2 C5 28 41 24 29 |00:......F..(A$)|
000007D0: AB 31 3A 8F 20 2A 2A 2A 20 46 4C 41 47 20 46 4F |.1:. *** FLAG FO|
000007E0: 52 20 41 53 53 49 47 4E 49 4E 47 20 53 48 49 46 |R ASSIGNING SHIF|
000007F0: 54 45 44 20 4B 45 59 53 20 53 49 4D 55 4C 54 41 |TED KEYS SIMULTA|
00000800: 4E 45 4F 55 53 4C 59 20 2A 2A 2A 00 17 10 F3 07 |NEOUSLY ***.....|
00000810: 8D 20 32 30 30 30 30 00 43 10 F7 07 8F 20 2A 2A |. 20000.C.... **|
00000820: 2A 20 4C 4F 41 44 20 45 58 49 53 54 49 4E 47 20 |* LOAD EXISTING |
00000830: 44 45 46 53 20 49 4E 54 4F 20 41 52 52 41 59 20 |DEFS INTO ARRAY |
00000840: 2A 2A 2A 00 73 10 F8 07 99 20 22 11 11 11 11 11 |***.s.... ".....|
00000850: 11 20 20 20 20 20 20 4C 4F 41 44 49 4E 47 20 43 |. LOADING C|
00000860: 55 52 52 45 4E 54 20 44 45 46 49 4E 49 54 49 4F |URRENT DEFINITIO|
00000870: 4E 53 22 00 81 10 34 08 81 20 49 B2 30 20 A4 20 |NS"...4.. I.0 . |
00000880: 33 00 B8 10 3E 08 81 20 4A B2 30 20 A4 20 36 33 |3...>.. J.0 . 63|
00000890: 3A 4C B2 36 34 AC 49 AA 4A 3A 4F 4B 28 4C 29 B2 |:L.64.I.J:OK(L).|
000008A0: C2 28 53 41 28 49 29 AA 4A 29 3A 4E 4B 28 4C 29 |.(SA(I).J):NK(L)|
000008B0: B2 4F 4B 28 4C 29 3A 82 00 BE 10 43 08 82 00 CA |.OK(L):....C....|
000008C0: 10 98 08 8D 20 32 30 30 30 30 00 FF 10 A2 08 99 |.... 20000......|
000008D0: 20 22 20 20 20 12 53 92 20 3D 20 53 48 49 46 54 | " .S. = SHIFT|
000008E0: 3A 20 12 43 92 20 3D 20 43 54 52 4C 3A 20 12 43 |: .C. = CTRL: .C|
000008F0: 3D 92 20 3D 20 43 4F 4D 4D 4F 44 4F 52 45 22 00 |=. = COMMODORE".|
00000900: 31 11 AC 08 99 20 22 20 50 52 45 53 53 20 12 53 |1.... " PRESS .S|
00000910: 54 4F 50 92 20 54 4F 20 45 58 49 54 20 4F 52 20 |TOP. TO EXIT OR |
00000920: 45 4E 54 45 52 20 43 48 52 24 20 43 4F 44 45 53 |ENTER CHR$ CODES|
00000930: 22 00 61 11 B6 08 99 20 22 20 A4 A4 A4 A4 A4 A4 |".a.... " ......|
00000940: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000950: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000960: 22 00 84 11 C0 08 99 20 22 20 20 20 20 4B 45 59 |"...... " KEY|
00000970: 20 22 3B A3 32 30 29 3B 22 41 53 53 49 47 4E 4D | ";.20);"ASSIGNM|
00000980: 45 4E 54 22 00 AF 11 CA 08 99 20 22 20 20 20 4C |ENT"...... " L|
00000990: 41 42 45 4C 22 3B A3 31 37 29 3B 22 43 55 52 52 |ABEL";.17);"CURR|
000009A0: 45 4E 54 22 3B A3 32 39 29 3B 22 4E 45 57 22 00 |ENT";.29);"NEW".|
000009B0: DF 11 D4 08 99 20 22 20 A3 A3 A3 A3 A3 A3 A3 A3 |..... " ........|
000009C0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000009D0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 |..............".|
000009E0: EE 11 FC 08 81 20 49 B2 30 20 A4 20 31 34 00 04 |..... I.0 . 14..|
000009F0: 12 01 09 8B C2 28 31 39 37 29 B3 B1 36 34 20 A7 |.....(197)..64 .|
00000A00: 32 33 30 35 00 13 12 02 09 99 22 20 20 20 12 20 |2305......" . |
00000A10: 92 22 3B 00 23 12 03 09 8B 20 46 B1 31 20 A7 20 |.";.#.... F.1 . |
00000A20: 46 B2 31 00 58 12 06 09 4B B2 C2 28 31 39 37 29 |F.1.X...K..(197)|
00000A30: 3A 8B 20 4B B2 36 34 20 A7 20 32 33 31 30 20 3A |:. K.64 . 2310 :|
00000A40: 8F 20 2A 2A 2A 20 47 45 54 20 4B 45 59 20 4E 55 |. *** GET KEY NU|
00000A50: 4D 42 45 52 20 2A 2A 2A 00 7E 12 0B 09 8B 20 4B |MBER ***.~.... K|
00000A60: B2 36 33 20 A7 20 32 36 30 30 3A 8F 20 2A 2A 2A |.63 . 2600:. ***|
00000A70: 20 53 54 4F 50 20 4B 45 59 3F 20 2A 2A 2A 00 95 | STOP KEY? ***..|
00000A80: 12 0D 09 8B 20 46 B2 31 20 A7 20 4A B2 30 3A 89 |.... F.1 . J.0:.|
00000A90: 20 32 33 33 30 00 C8 12 10 09 4A B2 C2 28 36 35 | 2330.....J..(65|
00000AA0: 33 29 3A 8B 20 4A B1 34 20 A7 20 32 33 31 30 3A |3):. J.4 . 2310:|
00000AB0: 8F 20 2A 2A 2A 20 53 48 49 46 54 45 44 20 4F 52 |. *** SHIFTED OR|
00000AC0: 20 4E 4F 54 20 2A 2A 2A 00 E2 12 15 09 A1 20 41 | NOT ***...... A|
00000AD0: 24 3A A1 20 41 24 3A 8B 20 4A B2 34 20 A7 20 4A |$:. A$:. J.4 . J|
00000AE0: B2 33 00 0D 13 1A 09 4C B2 36 34 AC 4A AA 4B 3A |.3.....L.64.J.K:|
00000AF0: 8F 20 2A 2A 2A 20 49 4E 44 45 58 20 46 4F 52 20 |. *** INDEX FOR |
00000B00: 4B 45 59 20 41 52 52 41 59 20 2A 2A 2A 00 25 13 |KEY ARRAY ***.%.|
00000B10: 1F 09 8B 20 46 B2 31 20 A7 20 99 20 22 9D 9D 9D |... F.1 . . "...|
00000B20: 2A 20 20 22 3B 00 61 13 24 09 8B 20 4F 4B 28 4C |* ";.a.$.. OK(L|
00000B30: 29 B1 33 32 20 89 20 32 33 34 35 3A 8F 20 2A 2A |).32 . 2345:. **|
00000B40: 2A 20 43 48 45 43 4B 20 46 4F 52 20 4E 4F 4E 20 |* CHECK FOR NON |
00000B50: 45 43 48 4F 49 4E 47 20 43 48 41 52 53 20 2A 2A |ECHOING CHARS **|
00000B60: 2A 00 82 13 27 09 99 20 22 9D 22 3B 4B 24 28 4C |*...'.. ".";K$(L|
00000B70: 29 3B A3 31 38 29 3B 4E 45 24 28 4F 4B 28 4C 29 |);.18);NE$(OK(L)|
00000B80: 29 3B 00 8D 13 28 09 89 20 32 33 36 30 00 D5 13 |);...(.. 2360...|
00000B90: 29 09 8B 20 4F 4B 28 4C 29 B3 31 32 38 20 B0 20 |).. OK(L).128 . |
00000BA0: 4F 4B 28 4C 29 B1 31 36 30 20 89 20 32 33 35 30 |OK(L).160 . 2350|
00000BB0: 3A 8F 20 2A 2A 2A 43 48 45 43 4B 20 46 4F 52 20 |:. ***CHECK FOR |
00000BC0: 4E 4F 4E 20 45 43 48 4F 49 4E 47 20 43 48 41 52 |NON ECHOING CHAR|
00000BD0: 53 20 2A 2A 2A 00 F9 13 2B 09 99 20 22 9D 22 3B |S ***...+.. ".";|
00000BE0: 4B 24 28 4C 29 3B A3 31 38 29 3B 4E 45 24 28 4F |K$(L);.18);NE$(O|
00000BF0: 4B 28 4C 29 AB 39 35 29 3B 00 04 14 2C 09 89 20 |K(L).95);...,.. |
00000C00: 32 33 36 30 00 18 14 2E 09 8B 4F 4B 28 4C 29 B3 |2360......OK(L).|
00000C10: B1 33 34 A7 32 33 35 35 00 36 14 30 09 99 20 22 |.34.2355.6.0.. "|
00000C20: 9D 22 3B 4B 24 28 4C 29 3B A3 31 38 29 3B 4E 45 |.";K$(L);.18);NE|
00000C30: 24 28 36 36 29 3B 00 40 14 32 09 89 32 33 36 30 |$(66);.@.2..2360|
00000C40: 00 5F 14 33 09 99 20 22 9D 22 3B 4B 24 28 4C 29 |._.3.. ".";K$(L)|
00000C50: 3B A3 31 38 29 3B C7 28 4F 4B 28 4C 29 29 3B 00 |;.18);.(OK(L));.|
00000C60: 74 14 38 09 8B C2 28 31 39 37 29 B3 B1 36 34 A7 |t.8...(197)..64.|
00000C70: 32 33 36 30 00 86 14 3D 09 99 20 A3 32 38 29 3B |2360...=.. .28);|
00000C80: 22 12 20 92 22 3B 00 CC 14 42 09 4B B2 C2 28 31 |". .";...B.K..(1|
00000C90: 39 37 29 3A 8B 20 4B B2 36 34 20 A7 20 32 33 37 |97):. K.64 . 237|
00000CA0: 30 3A 8F 20 2A 2A 2A 20 47 45 54 20 4B 45 59 20 |0:. *** GET KEY |
00000CB0: 4E 55 4D 42 45 52 20 4F 46 20 4E 45 57 20 41 53 |NUMBER OF NEW AS|
00000CC0: 53 49 47 4E 4D 45 4E 54 20 2A 2A 2A 00 0B 15 4C |SIGNMENT ***...L|
00000CD0: 09 8B 20 4B B2 36 33 20 AF 20 46 B2 30 20 A7 20 |.. K.63 . F.0 . |
00000CE0: 32 35 30 30 3A 8F 20 2A 2A 2A 20 4E 45 57 20 41 |2500:. *** NEW A|
00000CF0: 53 53 49 47 4E 4D 45 4E 54 20 49 53 20 41 20 43 |SSIGNMENT IS A C|
00000D00: 48 52 20 43 4F 44 45 20 2A 2A 2A 00 3E 15 4E 09 |HR CODE ***.>.N.|
00000D10: 8B 20 4B B2 36 33 20 A7 20 32 33 37 30 3A 8F 20 |. K.63 . 2370:. |
00000D20: 2A 2A 2A 20 43 41 4E 54 20 52 45 41 53 53 49 47 |*** CANT REASSIG|
00000D30: 4E 20 53 54 4F 50 20 4B 45 59 20 2A 2A 2A 00 7D |N STOP KEY ***.}|
00000D40: 15 51 09 8B 20 46 B1 30 20 A7 20 32 34 31 30 20 |.Q.. F.0 . 2410 |
00000D50: 3A 8F 20 2A 2A 2A 20 41 52 45 20 57 45 20 41 53 |:. *** ARE WE AS|
00000D60: 53 49 47 4E 49 4E 47 20 54 48 45 4D 20 41 4C 4C |SIGNING THEM ALL|
00000D70: 20 41 54 20 4F 4E 43 45 3F 20 2A 2A 2A 00 AD 15 | AT ONCE? ***...|
00000D80: 60 09 4A B2 C2 28 36 35 33 29 3A 8B 20 4A B1 34 |`.J..(653):. J.4|
00000D90: 20 A7 20 32 33 37 30 3A 8F 20 2A 2A 2A 20 43 48 | . 2370:. *** CH|
00000DA0: 45 43 4B 20 53 48 49 46 54 20 2A 2A 2A 00 C7 15 |ECK SHIFT ***...|
00000DB0: 65 09 A1 20 41 24 3A A1 20 41 24 3A 8B 20 4A B2 |e.. A$:. A$:. J.|
00000DC0: 34 20 A7 20 4A B2 33 00 E8 15 67 09 8F 20 2A 2A |4 . J.3...g.. **|
00000DD0: 2A 20 47 45 54 20 4E 45 57 20 44 45 46 49 4E 49 |* GET NEW DEFINI|
00000DE0: 54 49 4F 4E 20 2A 2A 2A 00 17 16 69 09 8F 20 2A |TION ***...i.. *|
00000DF0: 2A 2A 20 41 53 53 49 47 4E 4D 45 4E 54 20 53 45 |** ASSIGNMENT SE|
00000E00: 43 54 49 4F 4E 20 46 4F 52 20 43 48 52 20 43 4F |CTION FOR CHR CO|
00000E10: 44 45 53 20 2A 2A 2A 00 45 16 6A 09 97 20 31 2C |DES ***.E.j.. 1,|
00000E20: 28 C2 28 31 29 B0 32 29 3A 4C 31 B2 C2 28 53 41 |(.(1).2):L1..(SA|
00000E30: 28 4A 29 AA 4B 29 3A 97 20 31 2C 28 C2 28 31 29 |(J).K):. 1,(.(1)|
00000E40: AF 32 35 33 29 00 56 16 6B 09 8B 20 46 B1 31 20 |.253).V.k.. F.1 |
00000E50: A7 20 32 34 33 30 00 8F 16 6C 09 8B 20 4C 31 B1 |. 2430...l.. L1.|
00000E60: 33 32 20 89 20 32 34 31 35 3A 8F 20 2A 2A 2A 20 |32 . 2415:. *** |
00000E70: 43 48 45 43 4B 20 46 4F 52 20 4E 4F 4E 20 45 43 |CHECK FOR NON EC|
00000E80: 48 4F 49 4E 47 20 43 48 41 52 53 20 2A 2A 2A 00 |HOING CHARS ***.|
00000E90: A1 16 6D 09 99 20 22 9D 22 3B 4E 45 24 28 4C 31 |..m.. ".";NE$(L1|
00000EA0: 29 00 AC 16 6E 09 89 20 32 34 33 30 00 C9 16 6F |)...n.. 2430...o|
00000EB0: 09 8B 20 4C 31 B3 31 32 38 20 B0 20 4C 31 B1 31 |.. L1.128 . L1.1|
00000EC0: 36 30 20 89 20 32 34 32 30 00 DE 16 70 09 99 20 |60 . 2420...p.. |
00000ED0: 22 9D 22 3B 4E 45 24 28 4C 31 AB 39 35 29 00 E9 |".";NE$(L1.95)..|
00000EE0: 16 71 09 89 20 32 34 33 30 00 FC 16 74 09 8B 20 |.q.. 2430...t.. |
00000EF0: 4C 31 B3 B1 33 34 20 A7 32 34 32 38 00 0E 17 76 |L1..34 .2428...v|
00000F00: 09 99 20 22 9D 22 3B 4E 45 24 28 36 36 29 00 19 |.. ".";NE$(66)..|
00000F10: 17 78 09 89 20 32 34 33 30 00 29 17 7C 09 99 20 |.x.. 2430.).|.. |
00000F20: 22 9D 22 3B C7 28 4C 31 29 00 36 17 7E 09 4E 4B |".";.(L1).6.~.NK|
00000F30: 28 4C 29 B2 4C 31 00 83 17 80 09 8F 20 2A 2A 2A |(L).L1...... ***|
00000F40: 20 49 46 20 41 4C 4C 20 53 48 49 46 54 53 20 41 | IF ALL SHIFTS A|
00000F50: 52 45 20 42 45 49 4E 47 20 41 53 53 49 47 4E 45 |RE BEING ASSIGNE|
00000F60: 44 20 41 54 20 4F 4E 43 45 20 52 45 50 45 41 54 |D AT ONCE REPEAT|
00000F70: 20 41 53 53 49 47 4E 4D 45 4E 54 20 4C 4F 4F 50 | ASSIGNMENT LOOP|
00000F80: 20 2A 2A 00 AF 17 83 09 8B 20 46 B1 30 20 AF 20 | **...... F.0 . |
00000F90: 4A B3 33 20 A7 20 4A B2 4A AA 31 3A 46 B2 46 AA |J.3 . J.J.1:F.F.|
00000FA0: 31 3A 4C B2 4C AA 36 34 3A 89 20 32 34 31 30 00 |1:L.L.64:. 2410.|
00000FB0: C4 17 92 09 8B C2 28 31 39 37 29 B3 B1 36 34 A7 |......(197)..64.|
00000FC0: 32 34 35 30 00 D1 17 9C 09 82 3A 89 20 32 32 30 |2450......:. 220|
00000FD0: 30 00 F0 17 C4 09 99 20 22 9D 9D 43 48 52 24 28 |0...... "..CHR$(|
00000FE0: 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 22 3B | .......";|
00000FF0: 00 F9 17 C9 09 A1 20 41 24 00 02 18 CE 09 85 20 |...... A$...... |
00001000: 4C 31 00 33 18 D8 09 8B 20 4C 31 B3 30 20 B0 20 |L1.3.... L1.0 . |
00001010: 4C 31 B1 32 35 35 20 A7 20 99 22 9D 9D 9D 9D 9D |L1.255 . .".....|
00001020: 9D 9D 9D 9D 9D 9D 22 A3 32 39 29 3B 3A 89 20 32 |......".29);:. 2|
00001030: 35 30 30 00 4A 18 E2 09 99 20 22 91 22 3B A3 33 |500.J.... ".";.3|
00001040: 32 29 3B 4C 31 3B 22 9D 29 22 00 55 18 EC 09 89 |2);L1;".)".U....|
00001050: 20 32 34 33 30 00 7D 18 25 0A 8F 20 2A 2A 2A 20 | 2430.}.%.. *** |
00001060: 53 54 4F 50 20 4B 45 59 20 48 41 53 20 42 45 45 |STOP KEY HAS BEE|
00001070: 4E 20 50 52 45 53 53 45 44 20 2A 2A 2A 00 C8 18 |N PRESSED ***...|
00001080: 26 0A 8F 20 2A 2A 2A 20 53 54 4F 52 45 20 54 48 |&.. *** STORE TH|
00001090: 45 20 4E 45 57 20 44 45 46 49 4E 49 54 49 4F 4E |E NEW DEFINITION|
000010A0: 53 20 49 4E 54 4F 20 4B 45 59 42 4F 41 52 44 20 |S INTO KEYBOARD |
000010B0: 54 41 42 4C 45 20 41 4E 44 20 52 45 54 55 52 4E |TABLE AND RETURN|
000010C0: 20 54 4F 20 4D 41 49 4E 00 00 19 27 0A 8F 20 4D | TO MAIN...'.. M|
000010D0: 45 4E 55 20 53 4F 20 57 45 20 43 41 4E 20 45 58 |ENU SO WE CAN EX|
000010E0: 49 54 2C 20 53 41 56 45 20 4F 52 20 4D 4F 44 49 |IT, SAVE OR MODI|
000010F0: 46 59 20 53 4F 4D 45 20 4D 4F 52 45 20 2A 2A 2A |FY SOME MORE ***|
00001100: 00 0C 19 28 0A 8D 20 32 30 30 30 30 00 3B 19 2A |...(.. 20000.;.*|
00001110: 0A 99 20 A3 36 29 3B 22 11 11 11 11 11 11 53 54 |.. .6);"......ST|
00001120: 4F 52 49 4E 47 20 4E 45 57 20 53 45 54 20 49 4E |ORING NEW SET IN|
00001130: 20 4B 45 59 20 54 41 42 4C 45 22 00 49 19 2D 0A | KEY TABLE".I.-.|
00001140: 81 20 49 B2 30 20 A4 20 33 00 70 19 32 0A 81 20 |. I.0 . 3.p.2.. |
00001150: 4A B2 30 20 A4 20 36 33 3A 97 28 53 41 28 49 29 |J.0 . 63:.(SA(I)|
00001160: AA 4A 29 2C 4E 4B 28 36 34 AC 49 AA 4A 29 3A 82 |.J),NK(64.I.J):.|
00001170: 00 76 19 3C 0A 82 00 A0 19 41 0A 97 20 37 38 38 |.v.<.....A.. 788|
00001180: 2C 34 39 3A 8F 20 2A 2A 2A 20 52 45 2D 45 4E 41 |,49:. *** RE-ENA|
00001190: 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 2A 2A 2A |BLE STOP KEY ***|
000011A0: 00 AA 19 46 0A 89 20 31 32 30 00 B0 19 B5 0B 3A |...F.. 120.....:|
000011B0: 00 B6 19 B6 0B 3A 00 D8 19 B7 0B 8F 20 2A 2A 2A |.....:...... ***|
000011C0: 20 52 4F 55 54 49 4E 45 20 46 4F 52 20 45 58 49 | ROUTINE FOR EXI|
000011D0: 54 49 4E 47 20 2A 2A 2A 00 E4 19 B8 0B 8D 20 32 |TING ***...... 2|
000011E0: 30 30 30 30 00 08 1A 30 0C 99 20 22 11 11 11 11 |0000...0.. "....|
000011F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001200: 4D 45 4E 55 20 33 11 22 00 35 1A 3A 0C 99 20 22 |MENU 3.".5.:.. "|
00001210: 20 20 20 31 20 20 20 20 52 45 53 54 4F 52 45 20 | 1 RESTORE |
00001220: 4F 52 49 47 49 4E 41 4C 20 44 45 46 49 4E 49 54 |ORIGINAL DEFINIT|
00001230: 49 4F 4E 53 22 00 60 1A 4E 0C 99 20 22 20 20 20 |IONS".`.N.. " |
00001240: 32 20 20 20 20 52 45 54 41 49 4E 20 43 55 52 52 |2 RETAIN CURR|
00001250: 45 4E 54 20 44 45 46 49 4E 49 54 49 4F 4E 53 22 |ENT DEFINITIONS"|
00001260: 00 81 1A 58 0C 99 20 22 11 20 20 20 20 20 20 20 |...X.. ". |
00001270: 20 20 20 20 20 20 20 4F 50 54 49 4F 4E 3F 20 22 | OPTION? "|
00001280: 3B 00 8A 1A 62 0C A1 20 41 24 00 AC 1A 8A 0C A1 |;...b.. A$......|
00001290: 20 41 24 3A 8B 20 41 24 B3 22 31 22 20 B0 20 41 | A$:. A$."1" . A|
000012A0: 24 B1 22 32 22 20 A7 20 33 32 31 30 00 D9 1A 94 |$."2" . 3210....|
000012B0: 0C 99 20 41 24 3A 81 20 49 B2 30 20 A4 20 31 30 |.. A$:. I.0 . 10|
000012C0: 30 30 3A 82 3A 8F 20 2A 2A 2A 20 44 45 4C 41 59 |00:.:. *** DELAY|
000012D0: 20 4C 4F 4F 50 20 2A 2A 2A 00 19 1B 99 0C 97 20 | LOOP ***...... |
000012E0: 36 34 39 2C 31 30 3A 8F 20 2A 2A 2A 20 52 45 53 |649,10:. *** RES|
000012F0: 54 4F 52 45 20 4B 45 59 42 4F 41 52 44 20 42 55 |TORE KEYBOARD BU|
00001300: 46 46 45 52 20 54 4F 20 4E 4F 52 4D 41 4C 20 4C |FFER TO NORMAL L|
00001310: 45 4E 47 54 48 20 2A 2A 2A 00 31 1B 9E 0C 91 20 |ENGTH ***.1.... |
00001320: C5 28 41 24 29 20 89 20 33 33 30 30 2C 33 34 30 |.(A$) . 3300,340|
00001330: 30 00 69 1B E3 0C 8F 20 2A 2A 2A 20 54 4F 20 52 |0.i.... *** TO R|
00001340: 45 53 54 4F 52 45 20 4F 52 49 47 49 4E 41 4C 20 |ESTORE ORIGINAL |
00001350: 53 45 54 2C 20 42 41 4E 4B 20 52 4F 4D 20 42 41 |SET, BANK ROM BA|
00001360: 43 4B 20 49 4E 20 2A 2A 2A 00 75 1B E4 0C 8D 20 |CK IN ***.u.... |
00001370: 32 30 30 30 30 00 A4 1B EE 0C 99 20 22 11 11 11 |20000...... "...|
00001380: 11 11 11 20 20 20 20 20 20 20 20 4F 52 49 47 49 |... ORIGI|
00001390: 4E 41 4C 20 4B 45 59 53 45 54 20 52 45 53 54 4F |NAL KEYSET RESTO|
000013A0: 52 45 44 22 00 BC 1B F8 0C 97 20 31 2C 28 C2 28 |RED"...... 1,(.(|
000013B0: 31 29 B0 32 29 3A A0 20 31 35 3A 80 00 C8 1B 48 |1).2):. 15:....H|
000013C0: 0D 8D 20 32 30 30 30 30 00 E5 1B 4D 0D 8F 20 2A |.. 20000...M.. *|
000013D0: 2A 2A 20 45 4C 53 45 2C 20 4A 55 53 54 20 45 4E |** ELSE, JUST EN|
000013E0: 44 20 2A 2A 2A 00 13 1C 52 0D 99 20 22 11 11 11 |D ***...R.. "...|
000013F0: 11 11 11 20 20 20 20 20 20 20 20 43 55 52 52 45 |... CURRE|
00001400: 4E 54 20 4B 45 59 53 45 54 20 52 45 54 41 49 4E |NT KEYSET RETAIN|
00001410: 45 44 22 00 1E 1C 5C 0D A0 20 31 35 3A 80 00 24 |ED"...\.. 15:..$|
00001420: 1C 9D 0F 3A 00 2A 1C 9E 0F 3A 00 5A 1C 9F 0F 8F |...:.*...:.Z....|
00001430: 20 2A 2A 2A 20 52 4F 55 54 49 4E 45 20 46 4F 52 | *** ROUTINE FOR|
00001440: 20 53 41 56 49 4E 47 20 44 45 46 49 4E 49 54 49 | SAVING DEFINITI|
00001450: 4F 4E 20 53 45 54 20 2A 2A 2A 00 66 1C A0 0F 8D |ON SET ***.f....|
00001460: 20 32 30 30 30 30 00 6F 1C A5 0F A1 20 41 24 00 | 20000.o.... A$.|
00001470: 8C 1C AA 0F 85 20 22 11 11 11 11 11 11 20 20 46 |..... "...... F|
00001480: 49 4C 45 4E 41 4D 45 22 3B 4E 46 24 00 9E 1C AF |ILENAME";NF$....|
00001490: 0F 8B 20 46 31 B2 30 20 A7 20 34 32 30 30 00 C8 |.. F1.0 . 4200..|
000014A0: 1C B4 0F 4E 46 24 B2 4E 46 24 AA 22 2C 53 2C 57 |...NF$.NF$.",S,W|
000014B0: 22 3A 8F 20 2A 2A 2A 20 44 49 53 4B 20 53 45 43 |":. *** DISK SEC|
000014C0: 54 49 4F 4E 20 2A 2A 2A 00 D8 1C 04 10 9F 20 38 |TION ***...... 8|
000014D0: 2C 38 2C 38 2C 4E 46 24 00 E4 1C 0E 10 8D 20 33 |,8,8,NF$...... 3|
000014E0: 30 30 30 30 00 F2 1C 18 10 81 20 49 B2 30 20 A4 |0000...... I.0 .|
000014F0: 20 33 00 21 1D 1A 10 81 20 4A B2 30 20 A4 20 36 | 3.!.... J.0 . 6|
00001500: 33 3A 4C B2 36 34 AC 49 AA 4A 3A 98 38 2C C2 28 |3:L.64.I.J:.8,.(|
00001510: 53 41 28 49 29 AA 4A 29 3B C7 28 31 33 29 3B 3A |SA(I).J);.(13);:|
00001520: 82 00 27 1D 1C 10 82 00 33 1D 22 10 8D 20 33 30 |..'.....3.".. 30|
00001530: 30 30 30 00 3E 1D 2C 10 98 38 3A A0 20 38 00 48 |000.>.,..8:. 8.H|
00001540: 1D 36 10 89 20 31 32 30 00 70 1D 68 10 9F 20 31 |.6.. 120.p.h.. 1|
00001550: 2C 31 2C 31 2C 4E 46 24 20 3A 8F 20 2A 2A 2A 20 |,1,1,NF$ :. *** |
00001560: 54 41 50 45 20 53 45 43 54 49 4F 4E 20 2A 2A 2A |TAPE SECTION ***|
00001570: 00 7E 1D 7C 10 81 20 49 B2 30 20 A4 20 33 00 AD |.~.|.. I.0 . 3..|
00001580: 1D 7E 10 81 20 4A B2 30 20 A4 20 36 33 3A 4C B2 |.~.. J.0 . 63:L.|
00001590: 36 34 AC 49 AA 4A 3A 98 31 2C C2 28 53 41 28 49 |64.I.J:.1,.(SA(I|
000015A0: 29 AA 4A 29 3B C7 28 31 33 29 3B 3A 82 00 B3 1D |).J);.(13);:....|
000015B0: 80 10 82 00 BE 1D 90 10 98 31 3A A0 20 31 00 E9 |.........1:. 1..|
000015C0: 1D 93 10 99 20 22 11 11 20 20 20 20 20 20 20 20 |.... ".. |
000015D0: 12 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 |.HIT ANY KEY TO |
000015E0: 43 4F 4E 54 49 4E 55 45 22 00 F2 1D 94 10 A1 20 |CONTINUE"...... |
000015F0: 41 24 00 0A 1E 96 10 A1 20 41 24 3A 8B 20 41 24 |A$...... A$:. A$|
00001600: B2 22 22 20 A7 20 34 32 34 36 00 14 1E 9A 10 89 |."" . 4246......|
00001610: 20 31 32 30 00 1A 1E 85 13 3A 00 20 1E 86 13 3A | 120.....:. ...:|
00001620: 00 52 1E 87 13 8F 20 2A 2A 2A 20 53 54 4F 52 45 |.R.... *** STORE|
00001630: 20 44 56 4F 52 41 4B 20 44 41 54 41 20 49 4E 20 | DVORAK DATA IN |
00001640: 4B 45 59 42 4F 41 52 44 20 54 41 42 4C 45 20 2A |KEYBOARD TABLE *|
00001650: 2A 2A 00 5E 1E 88 13 8D 20 32 30 30 30 30 00 85 |**.^.... 20000..|
00001660: 1E 8A 13 54 B2 30 3A 8F 20 2A 2A 2A 20 54 4F 54 |...T.0:. *** TOT|
00001670: 41 4C 20 46 4F 52 20 44 41 54 41 20 43 48 45 43 |AL FOR DATA CHEC|
00001680: 4B 20 2A 2A 2A 00 B2 1E 8D 13 99 20 22 11 11 11 |K ***...... "...|
00001690: 11 11 11 20 20 20 20 20 20 20 20 20 4C 4F 41 44 |... LOAD|
000016A0: 49 4E 47 20 44 56 4F 52 41 4B 20 4B 45 59 53 45 |ING DVORAK KEYSE|
000016B0: 54 22 00 C2 1E BA 13 81 20 49 B2 30 20 A4 20 31 |T"...... I.0 . 1|
000016C0: 39 34 00 D5 1E CE 13 97 20 49 AA 36 30 32 38 39 |94...... I.60289|
000016D0: 2C 44 28 49 29 00 E2 1E D8 13 54 B2 54 AA 44 28 |,D(I).....T.T.D(|
000016E0: 49 29 00 E8 1E E2 13 82 00 FC 1E E7 13 8B 20 54 |I)............ T|
000016F0: B2 32 32 39 38 37 20 A7 20 31 32 30 00 2B 1F EC |.22987 . 120.+..|
00001700: 13 99 20 22 93 11 11 11 20 20 20 20 20 20 12 44 |.. ".... .D|
00001710: 41 54 41 20 45 52 52 4F 52 20 49 4E 20 44 56 4F |ATA ERROR IN DVO|
00001720: 52 41 4B 20 4B 45 59 53 45 54 22 00 54 1F 50 14 |RAK KEYSET".T.P.|
00001730: 81 20 49 B2 30 20 54 30 20 31 35 30 30 3A 82 3A |. I.0 T0 1500:.:|
00001740: 8F 20 2A 2A 2A 20 44 45 4C 41 59 20 4C 4F 4F 50 |. *** DELAY LOOP|
00001750: 20 2A 2A 2A 00 5F 1F B4 14 89 20 33 33 30 30 00 | ***._.... 3300.|
00001760: 90 1F 17 15 8F 20 2A 2A 2A 20 53 55 42 52 4F 55 |..... *** SUBROU|
00001770: 54 49 4E 45 20 46 4F 52 20 52 45 41 44 49 4E 47 |TINE FOR READING|
00001780: 20 44 56 4F 52 41 4B 20 44 41 54 41 20 2A 2A 2A | DVORAK DATA ***|
00001790: 00 A9 1F 18 15 81 20 49 B2 30 20 A4 20 31 39 34 |...... I.0 . 194|
000017A0: 3A 87 20 44 28 49 29 3A 82 00 AF 1F 22 15 8E 00 |:. D(I):...."...|
000017B0: DF 1F 7B 15 8F 20 2A 2A 2A 20 44 56 4F 52 41 4B |..{.. *** DVORAK|
000017C0: 20 44 41 54 41 20 41 52 52 41 4E 47 45 44 20 42 | DATA ARRANGED B|
000017D0: 59 20 4B 45 59 4E 55 4D 42 45 52 20 2A 2A 2A 00 |Y KEYNUMBER ***.|
000017E0: 2A 20 7C 15 83 20 32 30 2C 31 33 2C 32 39 2C 31 |* |.. 20,13,29,1|
000017F0: 33 36 2C 31 33 33 2C 31 33 34 2C 31 33 35 2C 31 |36,133,134,135,1|
00001800: 37 2C 35 31 2C 34 34 2C 36 35 2C 35 32 2C 35 39 |7,51,44,65,52,59|
00001810: 2C 37 39 2C 34 36 2C 31 2C 35 33 2C 38 30 2C 36 |,79,46,1,53,80,6|
00001820: 39 2C 35 34 2C 37 34 2C 38 35 00 72 20 86 15 83 |9,54,74,85.r ...|
00001830: 20 38 39 2C 38 31 2C 35 35 2C 37 30 2C 37 33 2C | 89,81,55,70,73,|
00001840: 35 36 2C 38 38 2C 36 38 2C 37 31 2C 37 35 2C 35 |56,88,68,71,75,5|
00001850: 37 2C 36 37 2C 37 32 2C 34 38 2C 37 37 2C 38 34 |7,67,72,48,77,84|
00001860: 2C 38 32 2C 36 36 2C 34 33 2C 37 36 2C 37 38 2C |,82,66,43,76,78,|
00001870: 34 35 00 B4 20 90 15 83 20 38 36 2C 38 33 2C 36 |45.. ... 86,83,6|
00001880: 34 2C 38 37 2C 39 32 2C 34 32 2C 35 38 2C 31 39 |4,87,92,42,58,19|
00001890: 2C 31 2C 36 31 2C 39 34 2C 39 30 2C 34 39 2C 39 |,1,61,94,90,49,9|
000018A0: 35 2C 34 2C 35 30 2C 33 32 2C 32 2C 34 37 2C 33 |5,4,50,32,2,47,3|
000018B0: 2C 32 35 35 00 FE 20 9A 15 83 20 31 34 38 2C 31 |,255.. ... 148,1|
000018C0: 34 31 2C 31 35 37 2C 31 34 30 2C 31 33 37 2C 31 |41,157,140,137,1|
000018D0: 33 38 2C 31 33 39 2C 31 34 35 2C 33 35 2C 36 30 |38,139,145,35,60|
000018E0: 2C 31 39 33 2C 33 36 2C 39 33 2C 32 30 37 2C 36 |,193,36,93,207,6|
000018F0: 32 2C 31 2C 33 37 2C 32 30 38 2C 31 39 37 00 43 |2,1,37,208,197.C|
00001900: 21 A4 15 83 20 33 38 2C 32 30 32 2C 32 31 33 2C |!... 38,202,213,|
00001910: 32 31 37 2C 32 30 39 2C 33 39 2C 31 39 38 2C 32 |217,209,39,198,2|
00001920: 30 31 2C 34 30 2C 32 31 36 2C 31 39 36 2C 31 39 |01,40,216,196,19|
00001930: 39 2C 32 30 33 2C 34 31 2C 31 39 35 2C 32 30 30 |9,203,41,195,200|
00001940: 2C 34 38 00 8A 21 AE 15 83 20 32 30 35 2C 32 31 |,48..!... 205,21|
00001950: 32 2C 32 31 30 2C 31 39 34 2C 32 31 39 2C 32 30 |2,210,194,219,20|
00001960: 34 2C 32 30 36 2C 32 32 31 2C 32 31 34 2C 32 31 |4,206,221,214,21|
00001970: 31 2C 31 38 36 2C 32 31 35 2C 31 36 39 2C 31 39 |1,186,215,169,19|
00001980: 32 2C 39 31 2C 31 34 37 2C 31 00 B7 21 B8 15 83 |2,91,147,1..!...|
00001990: 20 36 31 2C 32 32 32 2C 32 31 38 2C 33 33 2C 39 | 61,222,218,33,9|
000019A0: 35 2C 34 2C 33 34 2C 31 36 30 2C 32 2C 36 33 2C |5,4,34,160,2,63,|
000019B0: 31 33 31 2C 32 35 35 00 FC 21 C2 15 83 20 31 34 |131,255..!... 14|
000019C0: 38 2C 31 34 31 2C 31 35 37 2C 31 34 30 2C 31 33 |8,141,157,140,13|
000019D0: 37 2C 31 33 38 2C 31 33 39 2C 31 34 35 2C 31 35 |7,138,139,145,15|
000019E0: 30 2C 36 30 2C 31 37 36 2C 31 35 31 2C 39 33 2C |0,60,176,151,93,|
000019F0: 31 38 35 2C 36 32 2C 31 2C 31 35 32 00 41 22 CC |185,62,1,152.A".|
00001A00: 15 83 20 31 37 35 2C 31 37 37 2C 31 35 33 2C 31 |.. 175,177,153,1|
00001A10: 38 31 2C 31 38 34 2C 31 38 33 2C 31 37 31 2C 31 |81,184,183,171,1|
00001A20: 35 34 2C 31 38 37 2C 31 36 32 2C 31 35 35 2C 31 |54,187,162,155,1|
00001A30: 38 39 2C 31 37 32 2C 31 36 35 2C 31 36 31 2C 34 |89,172,165,161,4|
00001A40: 31 00 8D 22 D6 15 83 20 31 38 38 2C 31 38 30 2C |1.."... 188,180,|
00001A50: 34 38 2C 31 36 37 2C 31 36 33 2C 31 37 38 2C 31 |48,167,163,178,1|
00001A60: 39 31 2C 31 36 36 2C 31 38 32 2C 31 37 30 2C 32 |91,166,182,170,2|
00001A70: 32 30 2C 31 39 30 2C 31 37 34 2C 31 36 34 2C 31 |20,190,174,164,1|
00001A80: 37 39 2C 31 36 38 2C 32 32 33 2C 39 31 00 C2 22 |79,168,223,91.."|
00001A90: E0 15 83 20 31 34 37 2C 31 2C 36 31 2C 32 32 32 |... 147,1,61,222|
00001AA0: 2C 31 37 33 2C 31 32 39 2C 39 35 2C 34 2C 31 34 |,173,129,95,4,14|
00001AB0: 39 2C 31 36 30 2C 32 2C 36 33 2C 31 33 31 2C 32 |9,160,2,63,131,2|
00001AC0: 35 35 00 C8 22 6C 17 3A 00 CE 22 6D 17 3A 00 16 |55.."l.:.."m.:..|
00001AD0: 23 6E 17 8F 20 2A 2A 2A 20 44 41 54 41 20 46 4F |#n.. *** DATA FO|
00001AE0: 52 20 4D 4C 20 52 4F 55 54 49 4E 45 20 54 48 41 |R ML ROUTINE THA|
00001AF0: 54 20 43 4F 50 49 45 53 20 42 41 53 49 43 20 41 |T COPIES BASIC A|
00001B00: 4E 44 20 4B 45 52 4E 41 4C 20 49 4E 54 4F 20 52 |ND KERNAL INTO R|
00001B10: 41 4D 20 2A 2A 2A 00 5F 23 6F 17 8F 20 2A 2A 2A |AM ***._#o.. ***|
00001B20: 20 43 4F 44 45 20 55 53 45 53 20 4E 4F 20 41 42 | CODE USES NO AB|
00001B30: 53 4F 4C 55 54 45 20 41 44 44 52 45 53 53 45 53 |SOLUTE ADDRESSES|
00001B40: 20 53 4F 20 4D 41 59 20 42 45 20 4C 4F 43 41 54 | SO MAY BE LOCAT|
00001B50: 45 44 20 41 4E 59 57 48 45 52 45 20 2A 2A 2A 00 |ED ANYWHERE ***.|
00001B60: 8A 23 70 17 54 B2 30 3A 81 20 49 B2 30 20 A4 20 |.#p.T.0:. I.0 . |
00001B70: 36 32 3A 87 20 4A 3A 54 B2 54 AA 4A 3A 97 20 34 |62:. J:T.T.J:. 4|
00001B80: 39 31 35 32 AA 49 2C 4A 3A 82 00 BE 23 7A 17 8B |9152.I,J:...#z..|
00001B90: 20 54 B2 31 30 30 36 37 20 89 20 36 30 39 39 3A | T.10067 . 6099:|
00001BA0: 8F 20 2A 2A 2A 20 54 4F 54 41 4C 20 46 4F 52 20 |. *** TOTAL FOR |
00001BB0: 4D 4C 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 EF |ML ROUTINE ***..|
00001BC0: 23 84 17 99 20 22 93 11 11 11 20 20 20 20 20 20 |#... ".... |
00001BD0: 12 44 41 54 41 20 45 52 52 4F 52 20 49 4E 20 53 |.DATA ERROR IN S|
00001BE0: 57 41 50 20 53 55 42 52 4F 55 54 49 4E 45 22 00 |WAP SUBROUTINE".|
00001BF0: 18 24 8E 17 81 20 49 B2 30 20 54 30 20 31 35 30 |.$... I.0 T0 150|
00001C00: 30 3A 82 3A 8F 20 2A 2A 2A 20 44 45 4C 41 59 20 |0:.:. *** DELAY |
00001C10: 4C 4F 4F 50 20 2A 2A 2A 00 23 24 98 17 89 20 33 |LOOP ***.#$... 3|
00001C20: 33 30 30 00 55 24 D3 17 9E 20 34 39 31 35 32 3A |300.U$... 49152:|
00001C30: 8E 3A 8F 20 2A 2A 2A 20 53 57 41 50 20 4F 55 54 |.:. *** SWAP OUT|
00001C40: 20 42 41 53 49 43 20 41 4E 44 20 4B 45 52 4E 41 | BASIC AND KERNA|
00001C50: 4C 20 2A 2A 2A 00 9A 24 D4 17 83 20 31 36 39 2C |L ***..$... 169,|
00001C60: 30 2C 31 33 33 2C 32 35 31 2C 31 36 39 2C 31 36 |0,133,251,169,16|
00001C70: 30 2C 31 33 33 2C 32 35 32 2C 31 36 32 2C 33 32 |0,133,252,162,32|
00001C80: 2C 31 36 30 2C 30 2C 31 37 37 2C 32 35 31 2C 31 |,160,0,177,251,1|
00001C90: 34 35 2C 32 35 31 2C 31 33 36 00 E6 24 DE 17 83 |45,251,136..$...|
00001CA0: 20 32 34 30 2C 32 2C 32 30 38 2C 32 34 37 2C 32 | 240,2,208,247,2|
00001CB0: 30 32 2C 32 34 30 2C 34 2C 32 33 30 2C 32 35 32 |02,240,4,230,252|
00001CC0: 2C 32 30 38 2C 32 33 38 2C 31 36 39 2C 30 2C 31 |,208,238,169,0,1|
00001CD0: 33 33 2C 32 35 31 2C 31 36 39 2C 32 32 34 2C 31 |33,251,169,224,1|
00001CE0: 33 33 2C 32 35 32 00 31 25 E8 17 83 20 31 36 32 |33,252.1%... 162|
00001CF0: 2C 33 32 2C 31 36 39 2C 30 2C 31 37 37 2C 32 35 |,32,169,0,177,25|
00001D00: 31 2C 31 34 35 2C 32 35 31 2C 31 33 36 2C 32 34 |1,145,251,136,24|
00001D10: 30 2C 32 2C 32 30 38 2C 32 34 37 2C 32 30 32 2C |0,2,208,247,202,|
00001D20: 32 34 30 2C 34 2C 32 33 30 2C 32 35 32 2C 32 30 |240,4,230,252,20|
00001D30: 38 00 51 25 F2 17 83 20 32 33 38 2C 31 36 35 2C |8.Q%... 238,165,|
00001D40: 31 2C 34 31 2C 32 35 33 2C 31 33 33 2C 31 2C 39 |1,41,253,133,1,9|
00001D50: 36 00 57 25 0D 27 3A 00 5D 25 0E 27 3A 00 8F 25 |6.W%.':.]%.':..%|
00001D60: 0F 27 3A 20 8F 20 2A 2A 2A 20 52 4F 55 54 49 4E |.': . *** ROUTIN|
00001D70: 45 20 46 4F 52 20 52 45 41 44 49 4E 47 20 49 4E |E FOR READING IN|
00001D80: 20 4B 45 59 20 4C 41 42 45 4C 53 20 2A 2A 2A 00 | KEY LABELS ***.|
00001D90: AB 25 10 27 81 20 49 B2 30 20 A4 20 32 35 35 3A |.%.'. I.0 . 255:|
00001DA0: 87 20 4B 24 28 49 29 3A 82 3A 8E 00 EA 25 11 27 |. K$(I):.:...%.'|
00001DB0: 83 20 22 44 45 4C 22 2C 22 52 45 54 55 52 4E 22 |. "DEL","RETURN"|
00001DC0: 2C 22 43 52 53 52 2D 52 22 2C 22 46 37 22 2C 22 |,"CRSR-R","F7","|
00001DD0: 46 31 22 2C 22 46 33 22 2C 22 46 35 22 2C 22 43 |F1","F3","F5","C|
00001DE0: 52 53 52 2D 44 22 2C 22 33 22 00 32 26 12 27 83 |RSR-D","3".2&.'.|
00001DF0: 20 22 57 22 2C 22 41 22 2C 22 34 22 2C 22 5A 22 | "W","A","4","Z"|
00001E00: 2C 22 53 22 2C 22 45 22 2C 22 4E 2F 41 22 2C 22 |,"S","E","N/A","|
00001E10: 35 22 2C 22 52 22 2C 22 44 22 2C 22 36 22 2C 22 |5","R","D","6","|
00001E20: 43 22 2C 22 46 22 2C 22 54 22 2C 22 58 22 2C 22 |C","F","T","X","|
00001E30: 37 22 00 7C 26 13 27 83 20 22 59 22 2C 22 47 22 |7".|&.'. "Y","G"|
00001E40: 2C 22 38 22 2C 22 42 22 2C 22 48 22 2C 22 55 22 |,"8","B","H","U"|
00001E50: 2C 22 56 22 2C 22 39 22 2C 22 49 22 2C 22 4A 22 |,"V","9","I","J"|
00001E60: 2C 22 30 22 2C 22 4D 22 2C 22 4B 22 2C 22 4F 22 |,"0","M","K","O"|
00001E70: 2C 22 4E 22 2C 22 2B 22 2C 22 50 22 00 BF 26 14 |,"N","+","P"..&.|
00001E80: 27 83 20 22 4C 22 2C 22 2D 22 2C 22 2E 22 2C 22 |'. "L","-",".","|
00001E90: 3A 22 2C 22 40 22 2C 22 2C 22 2C 22 5C 22 2C 22 |:","@",",","\","|
00001EA0: 2A 22 2C 22 3B 22 2C 22 48 4F 4D 45 22 2C 22 4E |*",";","HOME","N|
00001EB0: 2F 41 22 2C 22 3D 22 2C 22 5E 22 2C 22 2F 22 00 |/A","=","^","/".|
00001EC0: F0 26 15 27 83 20 22 31 22 2C 22 5F 22 2C 22 4E |.&.'. "1","_","N|
00001ED0: 2F 41 22 2C 22 32 22 2C 22 53 50 41 43 45 22 2C |/A","2","SPACE",|
00001EE0: 22 4E 2F 41 22 2C 22 51 22 2C 22 53 54 4F 50 22 |"N/A","Q","STOP"|
00001EF0: 00 33 27 16 27 83 20 22 49 4E 53 54 22 2C 22 12 |.3'.'. "INST",".|
00001F00: 53 92 52 45 54 55 52 4E 22 2C 22 43 52 53 52 2D |S.RETURN","CRSR-|
00001F10: 4C 22 2C 22 46 38 22 2C 22 46 32 22 2C 22 46 34 |L","F8","F2","F4|
00001F20: 22 2C 22 46 36 22 2C 22 43 52 53 52 2D 55 22 2C |","F6","CRSR-U",|
00001F30: 22 23 22 00 7B 27 17 27 83 20 22 D7 22 2C 22 C1 |"#".{'.'. ".",".|
00001F40: 22 2C 22 24 22 2C 22 DA 22 2C 22 D3 22 2C 22 C5 |","$",".",".",".|
00001F50: 22 2C 22 4E 2F 41 22 2C 22 25 22 2C 22 D2 22 2C |","N/A","%",".",|
00001F60: 22 C4 22 2C 22 26 22 2C 22 C3 22 2C 22 C6 22 2C |".","&",".",".",|
00001F70: 22 D4 22 2C 22 D8 22 2C 22 27 22 00 C4 27 18 27 |".",".","'"..'.'|
00001F80: 83 20 22 D9 22 2C 22 C7 22 2C 22 28 22 2C 22 C2 |. ".",".","(",".|
00001F90: 22 2C 22 C8 22 2C 22 D5 22 2C 22 D6 22 2C 22 29 |",".",".",".",")|
00001FA0: 22 2C 22 C9 22 2C 22 CA 22 2C 22 12 53 92 30 22 |",".",".",".S.0"|
00001FB0: 2C 22 CD 22 2C 22 CB 22 2C 22 CF 22 2C 22 CE 22 |,".",".",".","."|
00001FC0: 2C 22 DB 22 00 0A 28 19 27 83 20 22 D0 22 2C 22 |,"."..(.'. ".","|
00001FD0: CC 22 2C 22 DD 22 2C 22 3E 22 2C 22 5B 22 2C 22 |.",".",">","[","|
00001FE0: BA 22 2C 22 3C 22 2C 22 A9 22 2C 22 C0 22 2C 22 |.","<",".",".","|
00001FF0: 5D 22 2C 22 43 4C 52 22 2C 22 4E 2F 41 22 2C 22 |]","CLR","N/A","|
00002000: 3D 22 2C 22 FF 22 2C 22 3F 22 00 41 28 1A 27 83 |=",".","?".A(.'.|
00002010: 20 22 21 22 2C 22 5F 22 2C 22 4E 2F 41 22 2C 22 | "!","_","N/A","|
00002020: 51 55 4F 54 45 22 2C 22 12 53 92 53 50 41 43 45 |QUOTE",".S.SPACE|
00002030: 22 2C 22 4E 2F 41 22 2C 22 D1 22 2C 22 52 55 4E |","N/A",".","RUN|
00002040: 22 00 74 28 1B 27 83 20 22 12 43 3D 92 44 45 4C |".t(.'. ".C=.DEL|
00002050: 22 2C 22 12 43 3D 92 52 45 54 55 52 4E 22 2C 22 |",".C=.RETURN","|
00002060: 12 43 3D 92 43 52 53 52 2D 52 22 2C 22 12 43 3D |.C=.CRSR-R",".C=|
00002070: 92 46 37 22 00 AA 28 1D 27 83 20 22 12 43 3D 92 |.F7"..(.'. ".C=.|
00002080: 46 31 22 2C 22 12 43 3D 92 46 33 22 2C 22 12 43 |F1",".C=.F3",".C|
00002090: 3D 92 46 35 22 2C 22 12 43 3D 92 43 52 53 52 2D |=.F5",".C=.CRSR-|
000020A0: 44 22 2C 22 4C 2E 52 45 44 22 00 D1 28 1F 27 83 |D","L.RED"..(.'.|
000020B0: 20 22 B3 22 2C 22 B0 22 2C 22 47 52 59 31 22 2C | ".",".","GRY1",|
000020C0: 22 AD 22 2C 22 AE 22 2C 22 B1 22 2C 22 4E 2F 41 |".",".",".","N/A|
000020D0: 22 00 FA 28 21 27 83 20 22 47 52 59 32 22 2C 22 |"..(!'. "GRY2","|
000020E0: B2 22 2C 22 AC 22 2C 22 4C 2E 47 52 4E 22 2C 22 |.",".","L.GRN","|
000020F0: BC 22 2C 22 BB 22 2C 22 A3 22 00 1F 29 23 27 83 |.",".","."..)#'.|
00002100: 20 22 BD 22 2C 22 4C 2E 42 4C 55 22 2C 22 B7 22 | ".","L.BLU","."|
00002110: 2C 22 A5 22 2C 22 47 52 59 33 22 2C 22 BF 22 00 |,".","GRY3",".".|
00002120: 4C 29 25 27 83 20 22 B4 22 2C 22 B8 22 2C 22 BE |L)%'. ".",".",".|
00002130: 22 2C 22 52 56 53 2D 4F 4E 22 2C 22 A2 22 2C 22 |","RVS-ON",".","|
00002140: B5 22 2C 22 52 56 53 2D 4F 46 46 22 00 72 29 27 |.","RVS-OFF".r)'|
00002150: 27 83 20 22 A7 22 2C 22 A1 22 2C 22 B9 22 2C 22 |'. ".",".",".","|
00002160: AA 22 2C 22 A6 22 2C 22 AF 22 2C 22 B6 22 2C 22 |.",".",".",".","|
00002170: DC 22 00 AF 29 29 27 83 20 22 12 43 3D 92 2E 22 |."..))'. ".C=.."|
00002180: 2C 22 12 43 3D 92 3A 22 2C 22 A4 22 2C 22 12 43 |,".C=.:",".",".C|
00002190: 3D 92 2C 22 2C 22 A8 22 2C 22 DF 22 2C 22 12 43 |=.,",".",".",".C|
000021A0: 3D 92 3B 22 2C 22 12 43 3D 92 48 4F 4D 45 22 00 |=.;",".C=.HOME".|
000021B0: E8 29 2B 27 83 20 22 4E 2F 41 22 2C 22 12 43 3D |.)+'. "N/A",".C=|
000021C0: 92 3D 22 2C 22 12 43 3D 92 5E 22 2C 22 12 43 3D |.=",".C=.^",".C=|
000021D0: 92 2F 22 2C 22 4F 52 4E 47 22 2C 22 12 43 3D 92 |./","ORNG",".C=.|
000021E0: 5F 22 2C 22 4E 2F 41 22 00 15 2A 2D 27 83 20 22 |_","N/A"..*-'. "|
000021F0: 42 52 4E 22 2C 22 12 43 3D 92 53 50 41 43 45 22 |BRN",".C=.SPACE"|
00002200: 2C 22 4E 2F 41 22 2C 22 AB 22 2C 22 12 43 3D 92 |,"N/A",".",".C=.|
00002210: 53 54 4F 50 22 00 3C 2A 30 27 83 20 22 12 43 92 |STOP".<*0'. ".C.|
00002220: 44 45 4C 22 2C 22 12 43 92 52 45 54 55 52 4E 22 |DEL",".C.RETURN"|
00002230: 2C 22 12 43 92 43 52 53 52 2D 52 22 00 74 2A 31 |,".C.CRSR-R".t*1|
00002240: 27 83 20 22 12 43 92 46 37 22 2C 22 12 43 92 46 |'. ".C.F7",".C.F|
00002250: 31 22 2C 22 12 43 92 46 33 22 2C 22 12 43 92 46 |1",".C.F3",".C.F|
00002260: 35 22 2C 22 12 43 92 43 52 53 52 2D 44 22 2C 22 |5",".C.CRSR-D","|
00002270: 52 45 44 22 00 A9 2A 32 27 83 20 22 12 43 92 57 |RED"..*2'. ".C.W|
00002280: 22 2C 22 12 43 92 41 22 2C 22 43 59 4E 22 2C 22 |",".C.A","CYN","|
00002290: 12 43 92 5A 22 2C 22 12 43 92 53 22 2C 22 12 43 |.C.Z",".C.S",".C|
000022A0: 92 45 22 2C 22 4E 2F 41 22 00 EB 2A 33 27 83 20 |.E","N/A"..*3'. |
000022B0: 22 50 55 52 22 2C 22 12 43 92 52 22 2C 22 12 43 |"PUR",".C.R",".C|
000022C0: 92 44 22 2C 22 47 52 4E 22 2C 22 12 43 92 43 22 |.D","GRN",".C.C"|
000022D0: 2C 22 12 43 92 46 22 2C 22 12 43 92 54 22 2C 22 |,".C.F",".C.T","|
000022E0: 12 43 92 58 22 2C 22 42 4C 55 22 00 2A 2B 34 27 |.C.X","BLU".*+4'|
000022F0: 83 20 22 12 43 92 59 22 2C 22 12 43 92 47 22 2C |. ".C.Y",".C.G",|
00002300: 22 59 45 4C 22 2C 22 12 43 92 42 22 2C 22 12 43 |"YEL",".C.B",".C|
00002310: 92 48 22 2C 22 12 43 92 55 22 2C 22 12 43 92 56 |.H",".C.U",".C.V|
00002320: 22 2C 22 52 56 53 20 4F 4E 22 00 6B 2B 35 27 83 |","RVS ON".k+5'.|
00002330: 20 22 12 43 92 49 22 2C 22 12 43 92 4A 22 2C 22 | ".C.I",".C.J","|
00002340: 52 56 53 20 4F 46 46 22 2C 22 12 43 92 4D 22 2C |RVS OFF",".C.M",|
00002350: 22 12 43 92 4B 22 2C 22 12 43 92 4F 22 2C 22 12 |".C.K",".C.O",".|
00002360: 43 92 4E 22 2C 22 12 43 92 2B 22 00 A8 2B 36 27 |C.N",".C.+"..+6'|
00002370: 83 22 12 43 92 50 22 2C 22 12 43 92 4C 22 2C 22 |.".C.P",".C.L","|
00002380: 12 43 92 2D 22 2C 22 12 43 92 2E 22 2C 22 12 43 |.C.-",".C..",".C|
00002390: 92 3A 22 2C 22 12 43 92 40 22 2C 22 12 43 92 2C |.:",".C.@",".C.,|
000023A0: 22 2C 22 12 43 92 5C 22 00 D9 2B 37 27 83 22 12 |",".C.\"..+7'.".|
000023B0: 43 92 2A 22 2C 22 12 43 92 3B 22 2C 22 12 43 92 |C.*",".C.;",".C.|
000023C0: 48 4F 4D 45 22 2C 22 4E 2F 41 22 2C 22 12 43 92 |HOME","N/A",".C.|
000023D0: 3D 22 2C 22 12 43 92 5E 22 00 17 2C 38 27 83 20 |=",".C.^"..,8'. |
000023E0: 22 12 43 92 2F 22 2C 22 42 4C 4B 22 2C 22 12 43 |".C./","BLK",".C|
000023F0: 92 5F 22 2C 22 4E 2F 41 22 2C 22 57 48 54 22 2C |._","N/A","WHT",|
00002400: 22 12 43 92 53 50 41 43 45 22 2C 22 4E 2F 41 22 |".C.SPACE","N/A"|
00002410: 2C 22 12 43 92 51 22 00 27 2C 39 27 83 20 22 12 |,".C.Q".',9'. ".|
00002420: 43 92 53 54 4F 50 22 00 2D 2C 01 29 3A 00 33 2C |C.STOP".-,.):.3,|
00002430: 02 29 3A 00 6F 2C 03 29 8F 20 2A 2A 2A 20 52 4F |.):.o,.). *** RO|
00002440: 55 54 49 4E 45 20 46 4F 52 20 52 45 41 44 49 4E |UTINE FOR READIN|
00002450: 47 20 49 4E 20 4E 4F 4E 20 45 43 48 4F 49 4E 47 |G IN NON ECHOING|
00002460: 20 43 48 41 52 41 43 54 45 52 53 20 2A 2A 2A 00 | CHARACTERS ***.|
00002470: 87 2C 04 29 81 20 49 B2 30 20 A4 20 36 36 3A 87 |.,.). I.0 . 66:.|
00002480: 20 4E 45 24 28 49 29 00 C6 2C 05 29 8B C8 28 4E | NE$(I)..,.)..(N|
00002490: 45 24 28 49 29 2C 31 29 B2 22 2A 22 A7 20 4E 45 |E$(I),1)."*". NE|
000024A0: 24 28 49 29 B2 22 43 48 52 24 28 22 AA C9 28 4E |$(I)."CHR$("..(N|
000024B0: 45 24 28 49 29 2C C3 28 4E 45 24 28 49 29 29 AB |E$(I),.(NE$(I)).|
000024C0: 31 29 AA 22 29 22 00 CE 2C 06 29 82 3A 8E 00 FD |1).")"..,.).:...|
000024D0: 2C 09 29 83 20 22 2A 30 22 2C 22 2A 31 22 2C 22 |,.). "*0","*1","|
000024E0: 2A 32 22 2C 22 2A 33 22 2C 22 2A 34 22 2C 22 57 |*2","*3","*4","W|
000024F0: 48 54 22 2C 22 2A 36 22 2C 22 2A 37 22 00 20 2D |HT","*6","*7". -|
00002500: 0E 29 83 20 22 44 49 53 20 12 43 3D 92 2D 12 53 |.). "DIS .C=.-.S|
00002510: 92 22 2C 22 45 4E 20 12 43 3D 92 2D 12 53 92 22 |.","EN .C=.-.S."|
00002520: 00 50 2D 18 29 83 20 22 2A 31 30 22 2C 22 2A 31 |.P-.). "*10","*1|
00002530: 31 22 2C 22 2A 31 32 22 2C 22 52 45 54 55 52 4E |1","*12","RETURN|
00002540: 22 2C 22 4C 2E 43 41 53 45 22 2C 22 2A 31 35 22 |","L.CASE","*15"|
00002550: 00 8D 2D 22 29 83 20 22 2A 31 36 22 2C 22 43 52 |..-"). "*16","CR|
00002560: 53 52 2D 44 22 2C 22 52 56 53 2D 4F 4E 22 2C 22 |SR-D","RVS-ON","|
00002570: 48 4F 4D 45 22 2C 22 44 45 4C 22 2C 22 2A 32 31 |HOME","DEL","*21|
00002580: 22 2C 22 2A 32 32 22 2C 22 2A 32 33 22 00 CE 2D |","*22","*23"..-|
00002590: 2C 29 83 20 22 2A 32 34 22 2C 22 2A 32 35 22 2C |,). "*24","*25",|
000025A0: 22 2A 32 36 22 2C 22 2A 32 37 22 2C 22 52 45 44 |"*26","*27","RED|
000025B0: 22 2C 22 43 52 53 52 2D 52 22 2C 22 47 52 4E 22 |","CRSR-R","GRN"|
000025C0: 2C 22 42 4C 55 22 2C 22 53 50 41 43 45 22 00 06 |,"BLU","SPACE"..|
000025D0: 2E 36 29 83 20 22 2A 31 32 38 22 2C 22 4F 52 4E |.6). "*128","ORN|
000025E0: 47 22 2C 22 2A 31 33 30 22 2C 22 2A 31 33 31 22 |G","*130","*131"|
000025F0: 2C 22 2A 31 33 32 22 2C 22 46 31 22 2C 22 46 33 |,"*132","F1","F3|
00002600: 22 2C 22 46 35 22 00 41 2E 40 29 83 20 22 46 37 |","F5".A.@). "F7|
00002610: 22 2C 22 46 32 22 2C 22 46 34 22 2C 22 46 36 22 |","F2","F4","F6"|
00002620: 2C 22 46 38 22 2C 22 12 53 92 52 45 54 55 52 4E |,"F8",".S.RETURN|
00002630: 22 2C 22 55 2E 43 41 53 45 22 2C 22 2A 31 34 33 |","U.CASE","*143|
00002640: 22 00 89 2E 4A 29 83 20 22 42 4C 4B 22 2C 22 43 |"...J). "BLK","C|
00002650: 52 53 52 2D 55 22 2C 22 52 56 53 2D 4F 46 46 22 |RSR-U","RVS-OFF"|
00002660: 2C 22 43 4C 52 22 2C 22 49 4E 53 54 22 2C 22 42 |,"CLR","INST","B|
00002670: 52 4E 22 2C 22 4C 2E 52 45 44 22 2C 22 47 52 59 |RN","L.RED","GRY|
00002680: 31 22 2C 22 47 52 59 32 22 00 D4 2E 54 29 83 20 |1","GRY2"...T). |
00002690: 22 4C 2E 47 52 4E 22 2C 22 4C 2E 42 4C 55 22 2C |"L.GRN","L.BLU",|
000026A0: 22 47 52 59 33 22 2C 22 50 55 52 22 2C 22 43 52 |"GRY3","PUR","CR|
000026B0: 53 52 2D 4C 22 2C 22 59 45 4C 22 2C 22 43 59 4E |SR-L","YEL","CYN|
000026C0: 22 2C 22 12 53 92 53 50 41 43 45 22 2C 22 51 55 |",".S.SPACE","QU|
000026D0: 4F 54 45 22 00 09 2F 20 4E 99 20 22 93 12 20 4B |OTE"../ N. ".. K|
000026E0: 45 59 44 45 46 3A 41 20 4B 45 59 42 4F 41 52 44 |EYDEF:A KEYBOARD|
000026F0: 20 52 45 44 45 46 49 4E 49 54 49 4F 4E 20 50 52 | REDEFINITION PR|
00002700: 4F 47 52 41 4D 20 22 3A 8E 00 0F 2F 2D 75 3A 00 |OGRAM ":.../-u:.|
00002710: 15 2F 2E 75 3A 00 44 2F 2F 75 8F 20 2A 2A 2A 20 |./.u:.D//u. *** |
00002720: 52 4F 55 54 49 4E 45 20 46 4F 52 20 43 48 45 43 |ROUTINE FOR CHEC|
00002730: 4B 49 4E 47 20 44 49 53 4B 20 45 52 52 4F 52 53 |KING DISK ERRORS|
00002740: 20 2A 2A 2A 00 51 2F 30 75 84 31 35 2C 45 2C 45 | ***.Q/0u.15,E,E|
00002750: 24 00 60 2F 44 75 8B 20 45 B3 32 30 20 A7 20 8E |$.`/Du. E.20 . .|
00002760: 00 6C 2F 94 75 8D 20 32 30 30 30 30 00 91 2F 9E |.l/.u. 20000../.|
00002770: 75 99 20 22 11 11 11 11 11 11 20 20 20 20 20 20 |u. "...... |
00002780: 12 44 49 53 4B 20 45 52 52 4F 52 22 3B 45 3B 45 |.DISK ERROR";E;E|
00002790: 24 00 99 2F A8 75 A0 20 38 00 C4 2F B2 75 99 20 |$../.u. 8../.u. |
000027A0: 22 11 11 20 20 20 20 20 20 20 20 12 48 49 54 20 |".. .HIT |
000027B0: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI|
000027C0: 4E 55 45 22 00 CD 2F B7 75 A1 20 41 24 00 E6 2F |NUE"../.u. A$../|
000027D0: BC 75 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |.u. A$:. A$."" .|
000027E0: 20 33 30 31 34 30 00 F0 2F C6 75 89 20 31 32 30 | 30140../.u. 120|
000027F0: 00 00 00 |... |
..L.... *** KEYDEF: A KEYBOARD REDEFINIT
ION PROGRAM FOR THE COMMODORE 64 ***....
.. *** WILLIAM R FRENCHU, 106 B NASSAU S
T.,PRINCETON NJ. 23.AUG 83 ***...... ***
INITIALIZATION ***.H.... 53280,B(53281)
...... 20000:. "...... LOADI
NG DATA".'.... D(194):. 5400:. *** LOAD
DVORAK DATA ***.V.... 6000:. *** LOAD AN
D RUN SWAP ROUTINE ***.....F1.1:. *** SE
T F1 TO 0 FOR TAPE USE ***...... F1.0 .
10. .... 15,8,15.X.... SA(3):. *** START
ING ADDRESSES FOR KEY TABLES ***.....SA(
0).60289:SA(1).60354:SA(2).60419:SA(3).6
0536.7.... K$(255):. 10000:. *** KEY LAB
ELS ***.N.Z.. OK(255),NK(255):. *** OLD
AND NEW KEY ARRAYS ***...U.. NE$(66):. 1
0500:. *** NON ECHOING CHARACTERS ***.Y.
V.. 649,1:. *** CHANGE KEYBOARD BUFFER L
ENGTH ***...W.:...X.. 20000:. *** MAIN M
ENU ***.#.... ".... MENU
1.".K.... " 1 LOAD DEFINITION FI
LE".U.... " 2 CREATE DEFINITION
FILE"...... " 3 SAVE DEFINITION
FILE".C.... " 4 LOAD DVORAK KEYS
ET"...... " 5 END PROGRAM"...H..
". OPTION? ";...Q.. A$.-.R
.. A$:. A$."1" . A$."5" . 210.E.... A$:.
I.0 . 1000:..L.... E(A$) . 1000,2000,40
00,5000,3000.R...:.X...:...... 20000:. *
** LOAD AN EXISTING DEFINITION FILE ***.
..... A$.U.... "...... FILENAME";NF$...
... F1.0 . 1200.....NF$.NF$.",S,R".!.L..
8,8,8,NF$:. *** DISK SECTION ***.-.V..
30000.;.`.. I.0 . 3.O.B.. J.0 . 63:L.64.
I.J:.8,OK(L):.(SA(I).J),OK(L):..U.D.....
J.. 30000...T. 8...~.. 120...... 1,1,0,
NF$ :. *** TAPE SECTION ***.I.D.. I.0 .
3...F.. J.0 . 63:L.64.I.J:.1,OK(L):.(SA(
I).J),OK(L):....H.....X. 1.6.... "..
.HIT ANY KEY TO CONTINUE".?.... A$.
W.... A$:. A$."" . 1246.A.... 120.G.M.:.
M.N.:...O.. *** CREATE NEW DEFINITION FI
LE ***...P.. 788,52:. *** DISABLE STOP K
EY ***.J.Z.. 20000...... "....
MENU 2."...... " 1 ASSIGN SHI
FTS INDEPENDENTLY".G.... " 2 ASSIGN
SHIFTS SIMULTANEOUSLY".H.... ".
OPTION? ";.Q.... A$...... A$:. A$.
"1" . A$."2" . 2028...... *** DELAY LOOP
***.D.... A$:. I.0 . 1000:......F.E(A$)
.1:. *** FLAG FOR ASSIGNING SHIFTED KEYS
SIMULTANEOUSLY ***...... 20000.C.... **
* LOAD EXISTING DEFS INTO ARRAY ***.S...
. "...... LOADING CURRENT DEFINITIO
NS"...4.. I.0 . 3...>.. J.0 . 63:L.64.I.
J:OK(L).B(SA(I).J):NK(L).OK(L):....C...J
.... 20000...... " .S. = SHIFT: .C. =
CTRL: .C=. = COMMODORE".1.... " PRESS .S
TOP. TO EXIT OR ENTER CHR$ CODES".A....
" ......................................
"...... " KEY ";.20);"ASSIGNMENT"...J
.. " LABEL";.17);"CURRENT";.29);"NEW".
..T.. " ................................
......"...... I.0 . 14......B(197)..64 .
2305......" . .";.#.... F.1 . F.1.X...
K.B(197):. K.64 . 2310 :. *** GET KEY NU
MBER ***.~.... K.63 . 2600:. *** STOP KE
Y? ***...... F.1 . J.0:. 2330.H...J.B(65
3):. J.4 . 2310:. *** SHIFTED OR NOT ***
...... A$:. A$:. J.4 . J.3.....L.64.J.K:
. *** INDEX FOR KEY ARRAY ***.%.... F.1
. . "...* ";.A.$.. OK(L).32 . 2345:. **
* CHECK FOR NON ECHOING CHARS ***...'..
".";K$(L);.18);NE$(OK(L));...(.. 2360.U.
).. OK(L).128 . OK(L).160 . 2350:. ***CH
ECK FOR NON ECHOING CHARS ***...+.. ".";
K$(L);.18);NE$(OK(L).95);...,.. 2360....
..OK(L)..34.2355.6.0.. ".";K$(L);.18);NE
$(66);.@.2..2360._.3.. ".";K$(L);.18);G(
OK(L));.T.8..B(197)..64.2360...=.. .28);
". .";.L.B.K.B(197):. K.64 . 2370:. ***
GET KEY NUMBER OF NEW ASSIGNMENT ***...L
.. K.63 . F.0 . 2500:. *** NEW ASSIGNMEN
T IS A CHR CODE ***.>.N.. K.63 . 2370:.
*** CANT REASSIGN STOP KEY ***.}.Q.. F.0
. 2410 :. *** ARE WE ASSIGNING THEM ALL
AT ONCE? ***...`.J.B(653):. J.4 . 2370:
. *** CHECK SHIFT ***.G.E.. A$:. A$:. J.
4 . J.3...G.. *** GET NEW DEFINITION ***
...I.. *** ASSIGNMENT SECTION FOR CHR CO
DES ***.E.J.. 1,(B(1).2):L1.B(SA(J).K):.
1,(B(1).253).V.K.. F.1 . 2430...L.. L1.
32 . 2415:. *** CHECK FOR NON ECHOING CH
ARS ***...M.. ".";NE$(L1)...N.. 2430.I.O
.. L1.128 . L1.160 . 2420...P.. ".";NE$(
L1.95)...Q.. 2430...T.. L1..34 .2428...V
.. ".";NE$(66)...X.. 2430.).|.. ".";G(L1
).6.~.NK(L).L1...... *** IF ALL SHIFTS A
RE BEING ASSIGNED AT ONCE REPEAT ASSIGNM
ENT LOOP **...... F.0 . J.3 . J.J.1:F.F.
1:L.L.64:. 2410.D....B(197)..64.2450.Q..
..:. 2200...D.. "..CHR$( .......";
...I.. A$...N.. L1.3.X.. L1.0 . L1.255 .
."...........".29);:. 2500.J.... ".";.3
2);L1;".)".U.... 2430.}.%.. *** STOP KEY
HAS BEEN PRESSED ***.H.&.. *** STORE TH
E NEW DEFINITIONS INTO KEYBOARD TABLE AN
D RETURN TO MAIN...'.. MENU SO WE CAN EX
IT, SAVE OR MODIFY SOME MORE ***...(.. 2
0000.;.*.. .6);"......STORING NEW SET IN
KEY TABLE".I.-.. I.0 . 3.P.2.. J.0 . 63
:.(SA(I).J),NK(64.I.J):..V.<... .A.. 788
,49:. *** RE-ENABLE STOP KEY ***...F.. 1
20.....:.....:.X.... *** ROUTINE FOR EXI
TING ***...... 20000...0.. "....
MENU 3.".5.:.. " 1 RESTORE
ORIGINAL DEFINITIONS".`.N.. " 2 RET
AIN CURRENT DEFINITIONS"...X.. ".
OPTION? ";...B.. A$...... A$:. A$
."1" . A$."2" . 3210.Y.... A$:. I.0 . 10
00:.:. *** DELAY LOOP ***...... 649,10:.
*** RESTORE KEYBOARD BUFFER TO NORMAL L
ENGTH ***.1.... E(A$) . 3300,3400.I....
*** TO RESTORE ORIGINAL SET, BANK ROM BA
CK IN ***.U.... 20000...... "......
ORIGINAL KEYSET RESTORED"...... 1,(B(
1).2): 15:..H.H.. 20000...M.. *** ELSE,
JUST END ***...R.. "...... CURRE
NT KEYSET RETAINED"...\. 15:..$...:.*..
.:.Z.... *** ROUTINE FOR SAVING DEFINITI
ON SET ***.F. .. 20000.O.... A$...... ".
..... FILENAME";NF$...... F1.0 . 4200.H
...NF$.NF$.",S,W":. *** DISK SECTION ***
.X.... 8,8,8,NF$...... 30000...... I.0 .
3.!.... J.0 . 63:L.64.I.J:.8,B(SA(I).J)
;G(13);:..'.....3.".. 30000.>.,..8: 8.H
.6.. 120.P.H.. 1,1,1,NF$ :. *** TAPE SEC
TION ***.~.|.. I.0 . 3...~.. J.0 . 63:L.
64.I.J:.1,B(SA(I).J);G(13);:............
.1: 1...... ".. .HIT ANY KEY TO
CONTINUE"...... A$...... A$:. A$."" . 42
46...... 120.....:. ...:.R.... *** STORE
DVORAK DATA IN KEYBOARD TABLE ***.^....
20000.....T.0:. *** TOTAL FOR DATA CHEC
K ***...... "...... LOADING DVOR
AK KEYSET".B.... I.0 . 194.U.N.. I.60289
,D(I)...X.T.T.D(I)............ T.22987 .
120.+.... ".... .DATA ERROR IN DVO
RAK KEYSET".T.P.. I.0 T0 1500:.:. *** DE
LAY LOOP ***._.... 3300...... *** SUBROU
TINE FOR READING DVORAK DATA ***...... I
.0 . 194:. D(I):....".....{.. *** DVORAK
DATA ARRANGED BY KEYNUMBER ***.* |.. 20
,13,29,136,133,134,135,17,51,44,65,52,59
,79,46,1,53,80,69,54,74,85.R ... 89,81,5
5,70,73,56,88,68,71,75,57,67,72,48,77,84
,82,66,43,76,78,45.. ... 86,83,64,87,92,
42,58,19,1,61,94,90,49,95,4,50,32,2,47,3
,255.. ... 148,141,157,140,137,138,139,1
45,35,60,193,36,93,207,62,1,37,208,197.C
!... 38,202,213,217,209,39,198,201,40,21
6,196,199,203,41,195,200,48..!... 205,21
2,210,194,219,204,206,221,214,211,186,21
5,169,192,91,147,1..!... 61,222,218,33,9
5,4,34,160,2,63,131,255..!B.. 148,141,15
7,140,137,138,139,145,150,60,176,151,93,
185,62,1,152.A"L.. 175,177,153,181,184,1
83,171,154,187,162,155,189,172,165,161,4
1.."V.. 188,180,48,167,163,178,191,166,1
82,170,220,190,174,164,179,168,223,91.B"
... 147,1,61,222,173,129,95,4,149,160,2,
63,131,255.H"L.:.N"M.:..#N.. *** DATA FO
R ML ROUTINE THAT COPIES BASIC AND KERNA
L INTO RAM ***._#O.. *** CODE USES NO AB
SOLUTE ADDRESSES SO MAY BE LOCATED ANYWH
ERE ***..#P.T.0:. I.0 . 62:. J:T.T.J:. 4
9152.I,J:...#Z.. T.10067 . 6099:. *** TO
TAL FOR ML ROUTINE ***..#... "....
.DATA ERROR IN SWAP SUBROUTINE"..$... I.
0 T0 1500:.:. *** DELAY LOOP ***.#$... 3
300.U$S.. 49152:.:. *** SWAP OUT BASIC A
ND KERNAL ***..$T.. 169,0,133,251,169,16
0,133,252,162,32,160,0,177,251,145,251,1
36..$... 240,2,208,247,202,240,4,230,252
,208,238,169,0,133,251,169,224,133,252.1
%... 162,32,169,0,177,251,145,251,136,24
0,2,208,247,202,240,4,230,252,208.Q%...
238,165,1,41,253,133,1,96.W%.':.]%.':..%
.': . *** ROUTINE FOR READING IN KEY LAB
ELS ***..%.'. I.0 . 255:. K$(I):.:...%.'
. "DEL","RETURN","CRSR-R","F7","F1","F3"
,"F5","CRSR-D","3".2&.'. "W","A","4","Z"
,"S","E","N/A","5","R","D","6","C","F","
T","X","7".|&.'. "Y","G","8","B","H","U"
,"V","9","I","J","0","M","K","O","N","+"
,"P"..&.'. "L","-",".",":","@",",","\","
*",";","HOME","N/A","=","^","/"..&.'. "1
","_","N/A","2","SPACE","N/A","Q","STOP"
.3'.'. "INST",".S.RETURN","CRSR-L","F8",
"F2","F4","F6","CRSR-U","#".{'.'. "W","A
","$","Z","S","E","N/A","%","R","D","&",
"C","F","T","X","'".D'.'. "Y","G","(","B
","H","U","V",")","I","J",".S.0","M","K"
,"O","N","."..(.'. "P","L",".",">","[","
.","<",".",".","]","CLR","N/A","=",".","
?".A(.'. "!","_","N/A","QUOTE",".S.SPACE
","N/A","Q","RUN".T(.'. ".C=.DEL",".C=.R
ETURN",".C=.CRSR-R",".C=.F7"..(.'. ".C=.
F1",".C=.F3",".C=.F5",".C=.CRSR-D","L.RE
D".Q(.'. ".",".","GRY1",".",".",".","N/A
"..(!'. "GRY2",".",".","L.GRN",".",".","
."..)#'. ".","L.BLU",".",".","GRY3",".".
L)%'. ".",".",".","RVS-ON",".",".","RVS-
OFF".R)''. ".",".",".",".",".",".",".","
."..))'. ".C=..",".C=.:",".",".C=.,","."
,".",".C=.;",".C=.HOME"..)+'. "N/A",".C=
.=",".C=.^",".C=./","ORNG",".C=._","N/A"
..*-'. "BRN",".C=.SPACE","N/A",".",".C=.
STOP".<*0'. ".C.DEL",".C.RETURN",".C.CRS
R-R".T*1'. ".C.F7",".C.F1",".C.F3",".C.F
5",".C.CRSR-D","RED"..*2'. ".C.W",".C.A"
,"CYN",".C.Z",".C.S",".C.E","N/A"..*3'.
"PUR",".C.R",".C.D","GRN",".C.C",".C.F",
".C.T",".C.X","BLU".*+4'. ".C.Y",".C.G",
"YEL",".C.B",".C.H",".C.U",".C.V","RVS O
N".K+5'. ".C.I",".C.J","RVS OFF",".C.M",
".C.K",".C.O",".C.N",".C.+"..+6'.".C.P",
".C.L",".C.-",".C..",".C.:",".C.@",".C.,
",".C.\".Y+7'.".C.*",".C.;",".C.HOME","N
/A",".C.=",".C.^"..,8'. ".C./","BLK",".C
._","N/A","WHT",".C.SPACE","N/A",".C.Q".
',9'. ".C.STOP".-,.):.3,.):.O,.). *** RO
UTINE FOR READING IN NON ECHOING CHARACT
ERS ***..,.). I.0 . 66:. NE$(I).F,.).H(N
E$(I),1)."*". NE$(I)."CHR$(".I(NE$(I),C(
NE$(I)).1).")".N,.).:...,.). "*0","*1","
*2","*3","*4","WHT","*6","*7". -.). "DIS
.C=.-.S.","EN .C=.-.S.".P-.). "*10","*1
1","*12","RETURN","L.CASE","*15"..-"). "
*16","CRSR-D","RVS-ON","HOME","DEL","*21
","*22","*23".N-,). "*24","*25","*26","*
27","RED","CRSR-R","GRN","BLU","SPACE"..
.6). "*128","ORNG","*130","*131","*132",
"F1","F3","F5".A.@). "F7","F2","F4","F6"
,"F8",".S.RETURN","U.CASE","*143"...J).
"BLK","CRSR-U","RVS-OFF","CLR","INST","B
RN","L.RED","GRY1","GRY2".T.T). "L.GRN",
"L.BLU","GRY3","PUR","CRSR-L","YEL","CYN
",".S.SPACE","QUOTE"../ N. ".. KEYDEF:A
KEYBOARD REDEFINITION PROGRAM ":.../-U:.
./.U:.D//U. *** ROUTINE FOR CHECKING DIS
K ERRORS ***.Q/0U.15,E,E$.`/DU. E.20 . .
.L/.U. 20000../.U. "...... .DISK ER
ROR";E;E$../.U 8.D/.U. ".. .HIT
ANY KEY TO CONTINUE".M/.U. A$../.U. A$:.
A$."" . 30140../FU. 120...
> CLICK IMAGE PREVIEW FOR FULL MODAL