KEYTBL
FILE INFORMATION
FILENAME(S): KEYTBL
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-11-30 01:08:08
APPEARS ON: 5 disk(s)
FILE HASH
cd77bd288ceeabe4792a620a3f8f11efd65149915eddafb368b2c582bda747d7
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| THE COMMODORE | KEYTBL | PRG | Treasure Chest - Wolfgang Rauprich | 7 | 11 | DOWNLOAD FILE |
| FRANZ SOFT ROMA | KEYTBL | PRG | High Voltage Complete C64 Collection, Markus Merz | 7 | 0 | DOWNLOAD FILE |
| PHANTOM | KEYTBL | PRG | Curtcool, Frank | 7 | 0 | DOWNLOAD FILE |
| FUTURE PROJECTS | KEYTBL | PRG | DuncanTwain | 7 | 11 | DOWNLOAD FILE |
| LIONSSOFT 1987 | KEYTBL | PRG | DuncanTwain | 12 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 0A 00 8F 20 4B 45 59 54 42 4C 20 5B |....... KEYTBL [| 00000010: 31 2E 30 5D 20 30 35 31 31 38 36 00 21 08 14 00 |1.0] 051186.!...| 00000020: 8F 00 47 08 1E 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..G.... ********| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 2A 2A 2A 00 6D 08 28 00 8F 20 2A 20 |*******.m.(.. * | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 93 08 | *...| 00000070: 32 00 8F 20 2A 20 20 20 20 20 20 20 43 52 45 41 |2.. * CREA| 00000080: 54 45 20 4B 45 59 54 41 42 4C 45 20 20 20 20 20 |TE KEYTABLE | 00000090: 20 20 2A 00 B9 08 3C 00 8F 20 2A 20 20 20 20 20 | *...<.. * | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 20 20 20 20 20 20 20 20 2A 00 DF 08 46 00 8F 20 | *...F.. | 000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000000E0: E5 08 50 00 8F 00 EB 08 5A 00 8F 00 FD 08 64 00 |..P.....Z.....d.| 000000F0: 8B 20 46 24 B1 22 22 20 A7 20 33 33 30 00 17 09 |. F$."" . 330...| 00000100: 6E 00 97 20 35 33 32 38 30 2C 31 35 3A 97 20 35 |n.. 53280,15:. 5| 00000110: 33 32 38 31 2C 31 35 00 32 09 78 00 99 22 93 11 |3281,15.2.x.."..| 00000120: 11 90 50 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E |..PLEASE WAIT...| 00000130: 22 3B 00 4E 09 82 00 8D 20 31 38 35 30 3A 8F 20 |";.N.... 1850:. | 00000140: 46 49 4C 4C 20 43 4F 4C 4F 52 20 52 41 4D 00 6F |FILL COLOR RAM.o| 00000150: 09 8C 00 4C B2 38 39 36 3A 8F 20 4C 4F 43 41 54 |...L.896:. LOCAT| 00000160: 49 4F 4E 20 4F 46 20 4B 45 59 54 41 42 4C 45 00 |ION OF KEYTABLE.| 00000170: 91 09 96 00 4E 24 B2 22 43 20 43 23 44 20 44 23 |....N$."C C#D D#| 00000180: 45 20 46 20 46 23 47 20 47 23 41 20 41 23 42 20 |E F F#G G#A A#B | 00000190: 22 00 A8 09 A0 00 44 4E 24 B2 22 13 11 11 11 11 |".....DN$.".....| 000001A0: 11 11 11 11 11 11 11 22 00 D1 09 AA 00 42 4C 24 |.......".....BL$| 000001B0: B2 22 20 20 20 20 20 20 20 20 20 20 22 3A 42 4C |." ":BL| 000001C0: 24 B2 42 4C 24 AA 42 4C 24 AA 42 4C 24 AA 42 4C |$.BL$.BL$.BL$.BL| 000001D0: 24 00 F2 09 B4 00 86 20 41 24 28 36 34 29 2C 4D |$...... A$(64),M| 000001E0: 24 28 38 29 2C 41 28 31 31 2C 34 29 2C 58 28 36 |$(8),A(11,4),X(6| 000001F0: 34 29 00 0C 0A BE 00 8D 20 37 31 30 3A 8F 20 53 |4)...... 710:. S| 00000200: 45 54 20 55 50 20 4D 41 54 52 49 58 00 25 0A C8 |ET UP MATRIX.%..| 00000210: 00 8D 20 32 33 35 30 3A 8F 20 53 45 54 20 55 50 |.. 2350:. SET UP| 00000220: 20 4D 45 4E 55 00 3E 0A D2 00 8D 20 31 36 32 30 | MENU.>.... 1620| 00000230: 3A 8F 20 43 4C 45 41 52 20 41 52 52 41 59 00 4C |:. CLEAR ARRAY.L| 00000240: 0A DC 00 99 22 93 97 20 20 20 22 3B 00 62 0A E6 |....".. ";.b..| 00000250: 00 81 20 49 B2 31 20 A4 20 C3 28 4E 24 29 20 A9 |.. I.1 . .(N$) .| 00000260: 20 32 00 73 0A F0 00 5A 24 B2 CA 28 4E 24 2C 49 | 2.s...Z$..(N$,I| 00000270: 2C 32 29 00 80 0A FA 00 99 20 5A 24 22 20 22 3B |,2)...... Z$" ";| 00000280: 00 86 0A 04 01 82 00 90 0A 0E 01 99 22 13 11 22 |............".."| 00000290: 00 9E 0A 18 01 81 20 49 B2 30 20 A4 20 34 00 AF |...... I.0 . 4..| 000002A0: 0A 22 01 5A 24 B2 CA 28 C4 28 49 29 2C 32 29 00 |.".Z$..(.(I),2).| 000002B0: BA 0A 2C 01 99 20 5A 24 3A 99 00 C0 0A 36 01 82 |..,.. Z$:....6..| 000002C0: 00 C9 0A 40 01 99 22 90 22 00 F9 0A 4A 01 8B 20 |...@.."."...J.. | 000002D0: 46 24 B1 22 22 20 A7 20 8D 20 31 35 33 30 3A 8D |F$."" . . 1530:.| 000002E0: 20 31 36 38 30 3A 8F 20 43 4F 4E 56 45 52 54 20 | 1680:. CONVERT | 000002F0: 26 20 44 49 53 50 4C 41 59 00 0B 0B 54 01 8D 20 |& DISPLAY...T.. | 00000300: 32 30 31 30 3A 8F 20 4D 45 4E 55 00 19 0B 5E 01 |2010:. MENU...^.| 00000310: 81 20 52 B2 30 20 A4 20 34 00 28 0B 68 01 81 20 |. R.0 . 4.(.h.. | 00000320: 43 B2 30 20 A4 20 31 31 00 38 0B 72 01 8D 20 35 |C.0 . 11.8.r.. 5| 00000330: 38 30 3A 8F 20 47 45 54 00 55 0B 7C 01 8B 20 5A |80:. GET.U.|.. Z| 00000340: 24 B2 22 85 22 20 A7 20 34 36 30 3A 8F 20 46 31 |$."." . 460:. F1| 00000350: 3D 4E 45 58 54 00 71 0B 86 01 8B 20 5A 24 B2 22 |=NEXT.q.... Z$."| 00000360: 89 22 20 A7 20 34 36 30 3A 8F 20 46 32 3D 44 45 |." . 460:. F2=DE| 00000370: 4C 00 8E 0B 90 01 8B 20 5A 24 B2 22 86 22 20 A7 |L...... Z$."." .| 00000380: 20 35 30 30 3A 8F 20 46 33 3D 50 52 45 56 00 AC | 500:. F3=PREV..| 00000390: 0B 9A 01 8B 20 5A 24 B2 22 8A 22 20 A7 20 35 33 |.... Z$."." . 53| 000003A0: 30 3A 8F 20 46 34 3D 43 4C 45 41 52 00 C9 0B A4 |0:. F4=CLEAR....| 000003B0: 01 8B 20 5A 24 B2 22 87 22 20 A7 20 35 34 30 3A |.. Z$."." . 540:| 000003C0: 8F 20 46 35 3D 4C 4F 41 44 00 E5 0B AE 01 8B 20 |. F5=LOAD...... | 000003D0: 5A 24 B2 22 8B 22 20 A7 20 35 35 30 3A 8F 20 46 |Z$."." . 550:. F| 000003E0: 36 3D 44 49 52 00 02 0C B8 01 8B 20 5A 24 B2 22 |6=DIR...... Z$."| 000003F0: 88 22 20 A7 20 35 36 30 3A 8F 20 46 37 3D 53 41 |." . 560:. F7=SA| 00000400: 56 45 00 1F 0C C2 01 8B 20 5A 24 B2 22 8C 22 20 |VE...... Z$."." | 00000410: A7 20 34 39 30 3A 8F 20 46 38 3D 45 58 49 54 00 |. 490:. F8=EXIT.| 00000420: 25 0C CC 01 82 00 2B 0C D6 01 82 00 35 0C E0 01 |%.....+.....5...| 00000430: 89 20 33 35 30 00 41 0C EA 01 99 22 93 22 3B 3A |. 350.A....".";:| 00000440: 80 00 60 0C F4 01 8B 20 43 B1 30 20 A7 20 43 B2 |..`.... C.0 . C.| 00000450: 43 AB 31 3A 89 20 33 37 30 3A 8F 20 50 52 45 56 |C.1:. 370:. PREV| 00000460: 00 72 0C FE 01 8B 20 52 B1 30 20 A7 20 52 B2 52 |.r.... R.0 . R.R| 00000470: AB 31 00 7C 0C 08 02 89 20 33 37 30 00 B3 0C 12 |.1.|.... 370....| 00000480: 02 52 B2 35 3A 43 B2 31 32 3A 82 3A 82 3A 8D 20 |.R.5:C.12:.:.:. | 00000490: 31 36 32 30 3A 8D 20 31 36 38 30 3A 89 20 33 35 |1620:. 1680:. 35| 000004A0: 30 3A 8F 20 43 4C 45 41 52 2F 52 45 44 49 53 50 |0:. CLEAR/REDISP| 000004B0: 4C 41 59 00 D1 0C 1C 02 52 B2 35 3A 43 B2 31 32 |LAY.....R.5:C.12| 000004C0: 3A 82 3A 82 3A 89 20 38 35 30 3A 8F 20 4C 4F 41 |:.:.:. 850:. LOA| 000004D0: 44 00 E8 0C 26 02 8D 20 32 35 30 30 3A 89 20 33 |D...&.. 2500:. 3| 000004E0: 37 30 3A 8F 20 44 49 52 00 00 0D 30 02 8D 20 31 |70:. DIR...0.. 1| 000004F0: 30 30 30 3A 89 20 33 37 30 3A 8F 20 53 41 56 45 |000:. 370:. SAVE| 00000500: 00 25 0D 3A 02 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.%.:.. ---------| 00000510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000520: 2D 2D 2D 2D 2D 00 39 0D 44 02 8F 20 27 47 45 54 |-----.9.D.. 'GET| 00000530: 27 20 52 4F 55 54 49 4E 45 00 4D 0D 4E 02 58 B2 |' ROUTINE.M.N.X.| 00000540: 43 AC 33 AA 33 3A 59 B2 52 AC 32 AA 32 00 69 0D |C.3.3:Y.R.2.2.i.| 00000550: 58 02 97 20 37 38 31 2C 59 3A 97 20 37 38 32 2C |X.. 781,Y:. 782,| 00000560: 58 3A 97 20 37 38 33 2C 30 00 82 0D 62 02 9E 20 |X:. 783,0...b.. | 00000570: 36 35 35 32 30 3A 8F 20 50 4C 4F 54 20 24 46 46 |65520:. PLOT $FF| 00000580: 46 30 00 9F 0D 6C 02 97 20 32 30 34 2C 30 3A 8F |F0...l.. 204,0:.| 00000590: 20 54 55 52 4E 20 43 55 52 53 4F 52 20 4F 4E 00 | TURN CURSOR ON.| 000005A0: B6 0D 76 02 A1 20 5A 24 3A 8B 20 5A 24 B2 22 22 |..v.. Z$:. Z$.""| 000005B0: 20 A7 20 36 33 30 00 D4 0D 80 02 97 20 32 30 34 | . 630...... 204| 000005C0: 2C 31 3A 8F 20 54 55 52 4E 20 43 55 52 53 4F 52 |,1:. TURN CURSOR| 000005D0: 20 4F 46 46 00 F6 0D 8A 02 8B 20 5A 24 B2 22 89 | OFF...... Z$.".| 000005E0: 22 20 A7 20 41 28 43 2C 52 29 B2 36 34 3A 8F 20 |" . A(C,R).64:. | 000005F0: 46 32 3D 44 45 4C 00 2F 0E 94 02 8B 20 C6 28 5A |F2=DEL./.... .(Z| 00000600: 24 29 B1 31 33 32 20 AF 20 C6 28 5A 24 29 B3 31 |$).132 . .(Z$).1| 00000610: 34 31 20 A7 20 36 38 30 3A 8F 20 46 55 4E 43 54 |41 . 680:. FUNCT| 00000620: 49 4F 4E 20 4B 45 59 20 50 52 45 53 53 45 44 00 |ION KEY PRESSED.| 00000630: 41 0E 9E 02 41 28 43 2C 52 29 B2 C2 28 32 30 33 |A...A(C,R)..(203| 00000640: 29 00 67 0E A8 02 58 24 B2 41 24 28 41 28 43 2C |).g...X$.A$(A(C,| 00000650: 52 29 29 3A 8D 20 31 37 39 30 3A 8F 20 50 52 49 |R)):. 1790:. PRI| 00000660: 4E 54 20 43 48 41 52 00 6D 0E B2 02 8E 00 92 0E |NT CHAR.m.......| 00000670: BC 02 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |... ------------| 00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000690: 2D 2D 00 A6 0E C6 02 8F 20 53 45 54 20 55 50 20 |--...... SET UP | 000006A0: 4D 41 54 52 49 58 00 B5 0E D0 02 81 20 49 B2 30 |MATRIX...... I.0| 000006B0: 20 A4 20 36 34 00 C1 0E DA 02 87 20 41 24 28 49 | . 64...... A$(I| 000006C0: 29 00 C9 0E E4 02 82 20 49 00 CF 0E EE 02 8E 00 |)...... I.......| 000006D0: F1 0E F8 02 83 20 44 4C 2C 52 54 2C 43 52 2C 22 |..... DL,RT,CR,"| 000006E0: 20 22 2C 22 20 22 2C 22 20 22 2C 22 20 22 2C 43 | "," "," "," ",C| 000006F0: 44 00 08 0F 02 03 83 20 33 2C 57 2C 41 2C 34 2C |D...... 3,W,A,4,| 00000700: 5A 2C 53 2C 45 2C 3F 3F 00 1E 0F 0C 03 83 20 35 |Z,S,E,??...... 5| 00000710: 2C 52 2C 44 2C 36 2C 43 2C 46 2C 54 2C 58 00 34 |,R,D,6,C,F,T,X.4| 00000720: 0F 16 03 83 20 37 2C 59 2C 47 2C 38 2C 42 2C 48 |.... 7,Y,G,8,B,H| 00000730: 2C 55 2C 56 00 4A 0F 20 03 83 20 39 2C 49 2C 4A |,U,V.J. .. 9,I,J| 00000740: 2C 30 2C 4D 2C 4B 2C 4F 2C 4E 00 64 0F 2A 03 83 |,0,M,K,O,N.d.*..| 00000750: 20 2B 2C 50 2C 4C 2C 2D 2C 2E 2C 22 3A 22 2C 40 | +,P,L,-,.,":",@| 00000760: 2C 22 2C 22 00 7C 0F 34 03 83 20 5C 2C 2A 2C 3B |,",".|.4.. \,*,;| 00000770: 2C 48 4D 2C 3F 3F 2C 3D 2C 5E 2C 2F 00 9A 0F 3E |,HM,??,=,^,/...>| 00000780: 03 83 20 31 2C 5F 2C 3F 3F 2C 32 2C 53 50 2C 3F |.. 1,_,??,2,SP,?| 00000790: 3F 2C 51 2C 52 53 2C 22 20 22 00 BF 0F 48 03 8F |?,Q,RS," "...H..| 000007A0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------| 000007B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 000007C0: CA 0F 52 03 8F 20 4C 4F 41 44 00 D8 0F 5C 03 54 |..R.. LOAD...\.T| 000007D0: 24 B2 22 4C 4F 41 44 22 00 EE 0F 66 03 8D 20 31 |$."LOAD"...f.. 1| 000007E0: 32 38 30 3A 8F 20 46 49 4C 45 4E 41 4D 45 00 00 |280:. FILENAME..| 000007F0: 10 70 03 8B 20 46 24 B2 22 22 20 A7 20 39 37 30 |.p.. F$."" . 970| 00000800: 00 0E 10 7A 03 9F 20 31 35 2C 38 2C 31 35 00 24 |...z.. 15,8,15.$| 00000810: 10 84 03 9F 20 32 2C 38 2C 32 2C 46 24 AA 22 2C |.... 2,8,2,F$.",| 00000820: 50 2C 52 22 00 3C 10 8E 03 84 31 35 2C 45 4E 24 |P,R".<....15,EN$| 00000830: 2C 45 44 24 2C 45 54 24 2C 45 42 24 00 49 10 98 |,ED$,ET$,EB$.I..| 00000840: 03 A0 20 32 3A A0 20 31 35 00 64 10 A2 03 8B 20 |.. 2:. 15.d.... | 00000850: C5 28 45 4E 24 29 B3 32 30 20 A7 20 39 37 30 3A |.(EN$).20 . 970:| 00000860: 8F 20 4F 4B 00 82 10 AC 03 99 3A 99 20 45 4E 24 |. OK......:. EN$| 00000870: 22 2C 22 45 44 24 22 2C 22 45 54 24 22 2C 22 45 |","ED$","ET$","E| 00000880: 42 24 00 8D 10 B6 03 8D 20 32 30 39 30 00 A3 10 |B$...... 2090...| 00000890: C0 03 89 20 38 37 30 3A 8F 20 54 52 59 20 41 47 |... 870:. TRY AG| 000008A0: 41 49 4E 00 B5 10 CA 03 8B 20 46 24 B2 22 22 20 |AIN...... F$."" | 000008B0: A7 20 33 34 30 00 C2 10 D4 03 93 20 46 24 2C 38 |. 340...... F$,8| 000008C0: 2C 31 00 E7 10 DE 03 8F 20 2D 2D 2D 2D 2D 2D 2D |,1...... -------| 000008D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008E0: 2D 2D 2D 2D 2D 2D 2D 00 F2 10 E8 03 8F 20 53 41 |-------...... SA| 000008F0: 56 45 00 13 11 F2 03 8D 20 32 31 35 30 3A 8F 20 |VE...... 2150:. | 00000900: 43 48 45 43 4B 20 46 4F 52 20 44 55 50 4C 49 43 |CHECK FOR DUPLIC| 00000910: 41 54 45 00 29 11 FC 03 8B 20 5A 24 B2 22 44 55 |ATE.).... Z$."DU| 00000920: 50 22 20 A7 20 31 32 35 30 00 34 11 06 04 8D 20 |P" . 1250.4.... | 00000930: 31 34 34 30 00 42 11 10 04 54 24 B2 22 53 41 56 |1440.B...T$."SAV| 00000940: 45 22 00 58 11 1A 04 8D 20 31 32 38 30 3A 8F 20 |E".X.... 1280:. | 00000950: 46 49 4C 45 4E 41 4D 45 00 6B 11 24 04 8B 20 46 |FILENAME.k.$.. F| 00000960: 24 B2 22 22 20 A7 20 31 32 35 30 00 84 11 2E 04 |$."" . 1250.....| 00000970: 8B 20 46 24 B2 22 4B 54 2E 53 54 44 22 20 A7 20 |. F$."KT.STD" . | 00000980: 31 30 35 30 00 92 11 38 04 9F 20 31 35 2C 38 2C |1050...8.. 15,8,| 00000990: 31 35 00 A2 11 42 04 98 31 35 2C 22 53 3A 22 AA |15...B..15,"S:".| 000009A0: 46 24 00 B0 11 4C 04 81 20 49 B2 31 20 A4 20 46 |F$...L.. I.1 . F| 000009B0: 00 C9 11 56 04 97 20 36 37 38 AA 49 2C C6 28 CA |...V.. 678.I,.(.| 000009C0: 28 46 24 2C 49 2C 31 29 29 00 CF 11 60 04 82 00 |(F$,I,1))...`...| 000009D0: ED 11 6A 04 97 20 37 38 30 2C 31 3A 97 20 37 38 |..j.. 780,1:. 78| 000009E0: 31 2C 38 3A 97 20 37 38 32 2C 32 35 35 00 02 12 |1,8:. 782,255...| 000009F0: 74 04 9E 20 36 35 34 36 36 3A 8F 20 53 45 54 4C |t.. 65466:. SETL| 00000A00: 46 53 00 20 12 7E 04 97 20 37 38 30 2C 46 3A 97 |FS. .~.. 780,F:.| 00000A10: 20 37 38 31 2C 31 36 37 3A 97 20 37 38 32 2C 32 | 781,167:. 782,2| 00000A20: 00 35 12 88 04 9E 20 36 35 34 36 39 3A 8F 20 53 |.5.... 65469:. S| 00000A30: 45 54 4E 41 4D 00 50 12 92 04 97 20 32 35 31 2C |ETNAM.P.... 251,| 00000A40: 31 32 38 3A 97 20 32 35 32 2C 33 3A 8F 20 53 41 |128:. 252,3:. SA| 00000A50: 00 5E 12 9C 04 97 20 37 38 30 2C 32 35 31 00 79 |.^.... 780,251.y| 00000A60: 12 A6 04 97 20 37 38 31 2C 31 39 32 3A 97 20 37 |.... 781,192:. 7| 00000A70: 38 32 2C 33 3A 8F 20 45 41 00 8C 12 B0 04 9E 20 |82,3:. EA...... | 00000A80: 36 35 34 39 36 3A 8F 20 53 41 56 45 00 A4 12 BA |65496:. SAVE....| 00000A90: 04 84 31 35 2C 45 4E 24 2C 45 44 24 2C 45 54 24 |..15,EN$,ED$,ET$| 00000AA0: 2C 45 42 24 00 C2 12 C4 04 99 3A 99 20 45 4E 24 |,EB$......:. EN$| 00000AB0: 22 2C 22 45 44 24 22 2C 22 45 54 24 22 2C 22 45 |","ED$","ET$","E| 00000AC0: 42 24 00 CB 12 CE 04 A0 20 31 35 00 D6 12 D8 04 |B$...... 15.....| 00000AD0: 8D 20 32 30 39 30 00 E1 12 E2 04 8D 20 32 30 31 |. 2090...... 201| 00000AE0: 30 00 E7 12 EC 04 8E 00 0C 13 F6 04 8F 20 2D 2D |0............ --| 00000AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 1B 13 00 |------------....| 00000B10: 05 8F 20 46 49 4C 45 4E 41 4D 45 00 26 13 0A 05 |.. FILENAME.&...| 00000B20: 8D 20 31 39 31 30 00 30 13 14 05 99 20 44 4E 24 |. 1910.0.... DN$| 00000B30: 00 3C 13 1E 05 99 20 54 24 22 11 22 00 4C 13 28 |.<.... T$".".L.(| 00000B40: 05 46 24 B2 22 22 3A 58 24 B2 22 22 00 5F 13 32 |.F$."":X$.""._.2| 00000B50: 05 85 22 46 49 4C 45 4E 41 4D 45 22 3B 46 24 00 |.."FILENAME";F$.| 00000B60: 72 13 3C 05 8B 20 46 24 B2 22 22 20 A7 20 31 34 |r.<.. F$."" . 14| 00000B70: 32 30 00 87 13 46 05 8B 20 C3 28 46 24 29 B1 37 |20...F.. .(F$).7| 00000B80: 20 A7 20 31 32 39 30 00 99 13 50 05 81 20 49 B2 | . 1290...P.. I.| 00000B90: 31 20 A4 20 C3 28 46 24 29 00 AC 13 5A 05 5A B2 |1 . .(F$)...Z.Z.| 00000BA0: C6 28 CA 28 46 24 2C 49 2C 31 29 29 00 E1 13 64 |.(.(F$,I,1))...d| 00000BB0: 05 8B 20 5A B3 34 38 20 B0 20 28 5A B1 35 37 20 |.. Z.48 . (Z.57 | 00000BC0: AF 20 5A B3 36 35 29 20 B0 20 5A B1 39 30 20 A7 |. Z.65) . Z.90 .| 00000BD0: 20 58 24 B2 22 2A 22 3A 49 B2 C3 28 46 24 29 AA | X$."*":I..(F$).| 00000BE0: 31 00 E7 13 6E 05 82 00 FB 13 78 05 8B 20 58 24 |1...n.....x.. X$| 00000BF0: B2 22 2A 22 20 A7 20 31 32 39 30 00 13 14 82 05 |."*" . 1290.....| 00000C00: 46 24 B2 22 4B 54 2E 22 AA 46 24 3A 46 B2 C3 28 |F$."KT.".F$:F..(| 00000C10: 46 24 29 00 19 14 8C 05 8E 00 3E 14 96 05 8F 20 |F$).......>.... | 00000C20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000C30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 5C |--------------.\| 00000C40: 14 A0 05 8F 20 43 4F 4E 56 45 52 54 20 41 52 52 |.... CONVERT ARR| 00000C50: 41 59 20 54 4F 20 4D 45 4D 4F 52 59 00 6B 14 AA |AY TO MEMORY.k..| 00000C60: 05 81 20 49 B2 30 20 A4 20 36 33 00 78 14 B4 05 |.. I.0 . 63.x...| 00000C70: 97 20 4C AA 49 2C 36 34 00 7E 14 BE 05 82 00 97 |. L.I,64.~......| 00000C80: 14 C8 05 81 20 49 B2 30 20 A4 20 31 31 3A 81 20 |.... I.0 . 11:. | 00000C90: 4A B2 30 20 A4 20 34 00 AD 14 D2 05 97 20 4C AA |J.0 . 4...... L.| 00000CA0: 41 28 49 2C 4A 29 2C 4A AC 31 32 AA 49 00 B5 14 |A(I,J),J.12.I...| 00000CB0: DC 05 82 3A 82 00 BB 14 E6 05 8E 00 E0 14 F0 05 |...:............| 00000CC0: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------| 00000CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000CE0: 00 FE 14 FA 05 8F 20 43 4F 4E 56 45 52 54 20 4D |...... CONVERT M| 00000CF0: 45 4D 4F 52 59 20 54 4F 20 41 52 52 41 59 00 09 |EMORY TO ARRAY..| 00000D00: 15 04 06 8D 20 31 36 32 30 00 18 15 0E 06 81 20 |.... 1620...... | 00000D10: 49 B2 30 20 A4 20 36 33 00 2F 15 18 06 8B 20 C2 |I.0 . 63./.... .| 00000D20: 28 4C AA 49 29 B2 36 34 20 A7 20 31 35 39 30 00 |(L.I).64 . 1590.| 00000D30: 50 15 22 06 59 B2 B5 28 C2 28 4C AA 49 29 AD 31 |P.".Y..(.(L.I).1| 00000D40: 32 29 3A 58 B2 C2 28 4C AA 49 29 AB 59 AC 31 32 |2):X..(L.I).Y.12| 00000D50: 00 5D 15 2C 06 41 28 58 2C 59 29 B2 49 00 63 15 |.].,.A(X,Y).I.c.| 00000D60: 36 06 82 00 69 15 40 06 8E 00 8E 15 4A 06 8F 20 |6...i.@.....J.. | 00000D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A0 |--------------..| 00000D90: 15 54 06 8F 20 43 4C 45 41 52 20 41 52 52 41 59 |.T.. CLEAR ARRAY| 00000DA0: 00 B9 15 5E 06 81 20 49 B2 30 20 A4 20 31 31 3A |...^.. I.0 . 11:| 00000DB0: 81 20 4A B2 30 20 A4 20 34 00 C7 15 68 06 41 28 |. J.0 . 4...h.A(| 00000DC0: 49 2C 4A 29 B2 36 34 00 CF 15 72 06 82 3A 82 00 |I,J).64...r..:..| 00000DD0: D5 15 7C 06 8E 00 FA 15 86 06 8F 20 2D 2D 2D 2D |..|........ ----| 00000DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 08 16 90 06 8F |----------......| 00000E00: 20 44 49 53 50 4C 41 59 00 17 16 9A 06 81 20 52 | DISPLAY...... R| 00000E10: 30 B2 30 20 A4 20 34 00 27 16 A4 06 81 20 43 30 |0.0 . 4.'.... C0| 00000E20: B2 30 20 A4 20 31 31 00 3D 16 AE 06 58 B2 43 30 |.0 . 11.=...X.C0| 00000E30: AC 33 AA 33 3A 59 B2 52 30 AC 32 AA 32 00 59 16 |.3.3:Y.R0.2.2.Y.| 00000E40: B8 06 97 20 37 38 31 2C 59 3A 97 20 37 38 32 2C |... 781,Y:. 782,| 00000E50: 58 3A 97 20 37 38 33 2C 30 00 72 16 C2 06 9E 20 |X:. 783,0.r.... | 00000E60: 36 35 35 32 30 3A 8F 20 50 4C 4F 54 20 24 46 46 |65520:. PLOT $FF| 00000E70: 46 30 00 9A 16 CC 06 58 24 B2 41 24 28 41 28 43 |F0.....X$.A$(A(C| 00000E80: 30 2C 52 30 29 29 3A 8D 20 31 37 39 30 3A 8F 20 |0,R0)):. 1790:. | 00000E90: 50 52 49 4E 54 20 43 48 41 52 00 A0 16 D6 06 82 |PRINT CHAR......| 00000EA0: 00 A6 16 E0 06 82 00 AC 16 EA 06 8E 00 D1 16 F4 |................| 00000EB0: 06 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------| 00000EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000ED0: 2D 00 E7 16 FE 06 8F 20 50 52 49 4E 54 20 43 48 |-...... PRINT CH| 00000EE0: 41 52 41 43 54 45 52 00 05 17 08 07 8B 20 C3 28 |ARACTER...... .(| 00000EF0: 58 24 29 B1 31 20 A7 20 58 24 B2 22 12 22 AA 58 |X$).1 . X$.".".X| 00000F00: 24 AA 22 92 22 00 13 17 12 07 58 24 B2 58 24 AA |$.".".....X$.X$.| 00000F10: 22 20 22 00 20 17 1C 07 99 20 22 90 22 58 24 3B |" ". .... "."X$;| 00000F20: 00 26 17 26 07 8E 00 4B 17 30 07 8F 20 2D 2D 2D |.&.&...K.0.. ---| 00000F30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 60 17 3A 07 |-----------.`.:.| 00000F50: 8F 20 46 49 4C 4C 20 43 4F 4C 4F 52 20 52 41 4D |. FILL COLOR RAM| 00000F60: 00 79 17 44 07 81 20 49 B2 30 20 A4 20 34 3A 81 |.y.D.. I.0 . 4:.| 00000F70: 20 4A B2 30 20 A4 20 33 39 00 90 17 4E 07 97 20 | J.0 . 39...N.. | 00000F80: 35 35 32 39 36 AA 49 AC 32 AA 38 30 AA 4A 2C 30 |55296.I.2.80.J,0| 00000F90: 00 98 17 58 07 82 3A 82 00 9E 17 62 07 8E 00 C3 |...X..:....b....| 00000FA0: 17 6C 07 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.l.. -----------| 00000FB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000FC0: 2D 2D 2D 00 E8 17 76 07 8F 20 43 4C 45 41 52 20 |---...v.. CLEAR | 00000FD0: 4C 4F 57 45 52 20 53 43 52 45 45 4E 2F 52 45 53 |LOWER SCREEN/RES| 00000FE0: 45 54 20 4C 49 4E 4B 53 00 F2 17 80 07 99 20 44 |ET LINKS...... D| 00000FF0: 4E 24 00 01 18 8A 07 81 20 49 B2 31 20 A4 20 31 |N$...... I.1 . 1| 00001000: 32 00 0C 18 94 07 99 20 42 4C 24 3B 00 12 18 9E |2...... BL$;....| 00001010: 07 82 00 24 18 A8 07 81 20 49 B2 32 31 37 20 A4 |...$.... I.217 .| 00001020: 20 32 34 32 00 37 18 B2 07 97 20 49 2C C2 28 49 | 242.7.... I,.(I| 00001030: 29 20 B0 20 31 32 38 00 3D 18 BC 07 82 00 43 18 |) . 128.=.....C.| 00001040: C6 07 8E 00 68 18 D0 07 8F 20 2D 2D 2D 2D 2D 2D |....h.... ------| 00001050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001060: 2D 2D 2D 2D 2D 2D 2D 2D 00 73 18 DA 07 8F 20 4D |--------.s.... M| 00001070: 45 4E 55 00 7E 18 E4 07 8D 20 31 39 31 30 00 88 |ENU.~.... 1910..| 00001080: 18 EE 07 99 20 44 4E 24 00 9A 18 F8 07 81 20 49 |.... DN$...... I| 00001090: B2 31 20 A4 20 37 20 A9 20 32 00 B5 18 02 08 99 |.1 . 7 . 2......| 000010A0: 20 4D 24 28 49 29 3B A3 32 30 29 3B 4D 24 28 49 | M$(I);.20);M$(I| 000010B0: AA 31 29 3A 99 00 BD 18 0C 08 82 20 49 00 C3 18 |.1):....... I...| 000010C0: 16 08 8E 00 E8 18 20 08 8F 20 2D 2D 2D 2D 2D 2D |...... .. ------| 000010D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000010E0: 2D 2D 2D 2D 2D 2D 2D 2D 00 00 19 2A 08 8F 20 57 |--------...*.. W| 000010F0: 41 49 54 20 46 4F 52 20 27 52 45 54 55 52 4E 27 |AIT FOR 'RETURN'| 00001100: 00 1E 19 34 08 99 3A 99 22 12 52 45 54 55 52 4E |...4..:.".RETURN| 00001110: 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 2A |. TO CONTINUE".*| 00001120: 19 3E 08 97 20 31 39 38 2C 30 00 42 19 48 08 A1 |.>.. 198,0.B.H..| 00001130: 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 32 31 | A$:. A$."" . 21| 00001140: 32 30 00 48 19 52 08 8E 00 6D 19 5C 08 8F 20 2D |20.H.R...m.\.. -| 00001150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 8C 19 |-------------...| 00001170: 66 08 8F 20 43 48 45 43 4B 20 46 4F 52 20 44 55 |f.. CHECK FOR DU| 00001180: 50 4C 49 43 41 54 45 20 4B 45 59 53 00 97 19 70 |PLICATE KEYS...p| 00001190: 08 8D 20 31 39 31 30 00 A1 19 7A 08 99 20 44 4E |.. 1910...z.. DN| 000011A0: 24 00 CD 19 84 08 99 20 22 4E 4F 57 20 43 48 45 |$...... "NOW CHE| 000011B0: 43 4B 49 4E 47 20 46 4F 52 20 44 55 50 4C 49 43 |CKING FOR DUPLIC| 000011C0: 41 54 45 20 4B 45 59 53 2E 2E 2E 22 3B 00 DC 19 |ATE KEYS...";...| 000011D0: 8E 08 81 20 49 B2 30 20 A4 20 36 33 00 E7 19 98 |... I.0 . 63....| 000011E0: 08 58 28 49 29 B2 30 00 ED 19 A2 08 82 00 06 1A |.X(I).0.........| 000011F0: AC 08 81 20 49 B2 30 20 A4 20 31 31 3A 81 20 4A |... I.0 . 11:. J| 00001200: B2 30 20 A4 20 34 00 1F 1A B6 08 5A B2 41 28 49 |.0 . 4.....Z.A(I| 00001210: 2C 4A 29 3A 58 28 5A 29 B2 58 28 5A 29 AA 31 00 |,J):X(Z).X(Z).1.| 00001220: 2D 1A C0 08 82 3A 82 3A 5A 24 B2 22 22 00 3C 1A |-....:.:Z$."".<.| 00001230: CA 08 81 20 49 B2 30 20 A4 20 36 33 00 54 1A D4 |... I.0 . 63.T..| 00001240: 08 8B 20 58 28 49 29 B1 31 20 A7 20 5A 24 B2 22 |.. X(I).1 . Z$."| 00001250: 44 55 50 22 00 5A 1A DE 08 82 00 65 1A E8 08 8D |DUP".Z.....e....| 00001260: 20 31 39 31 30 00 78 1A F2 08 8B 20 5A 24 B2 22 | 1910.x.... Z$."| 00001270: 22 20 A7 20 32 33 33 30 00 82 1A FC 08 99 20 44 |" . 2330...... D| 00001280: 4E 24 00 A0 1A 06 09 99 20 22 44 55 50 4C 49 43 |N$...... "DUPLIC| 00001290: 41 54 45 20 4B 45 59 53 20 46 4F 55 4E 44 21 22 |ATE KEYS FOUND!"| 000012A0: 00 AB 1A 10 09 8D 20 32 30 39 30 00 B1 1A 1A 09 |...... 2090.....| 000012B0: 8E 00 D6 1A 24 09 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |....$.. --------| 000012C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000012D0: 2D 2D 2D 2D 2D 2D 00 E8 1A 2E 09 8F 20 53 45 54 |------...... SET| 000012E0: 20 55 50 20 4D 45 4E 55 00 F6 1A 38 09 81 20 49 | UP MENU...8.. I| 000012F0: B2 31 20 A4 20 38 00 02 1B 42 09 87 20 4D 24 28 |.1 . 8...B.. M$(| 00001300: 49 29 00 26 1B 4C 09 4D 24 28 49 29 B2 22 12 46 |I).&.L.M$(I).".F| 00001310: 22 AA CA 28 C4 28 49 29 2C 32 29 AA 22 92 20 22 |"..(.(I),2).". "| 00001320: AA 4D 24 28 49 29 00 2E 1B 56 09 82 20 49 00 34 |.M$(I)...V.. I.4| 00001330: 1B 60 09 8E 00 43 1B 6A 09 83 20 4E 45 58 54 20 |.`...C.j.. NEXT | 00001340: 4B 45 59 00 54 1B 74 09 83 20 44 45 4C 45 54 45 |KEY.T.t.. DELETE| 00001350: 20 4B 45 59 00 67 1B 7E 09 83 20 50 52 45 56 49 | KEY.g.~.. PREVI| 00001360: 4F 55 53 20 4B 45 59 00 79 1B 88 09 83 20 43 4C |OUS KEY.y.... CL| 00001370: 45 41 52 20 54 41 42 4C 45 00 8A 1B 92 09 83 20 |EAR TABLE...... | 00001380: 4C 4F 41 44 20 54 41 42 4C 45 00 9A 1B 9C 09 83 |LOAD TABLE......| 00001390: 20 44 49 52 45 43 54 4F 52 59 00 AB 1B A6 09 83 | DIRECTORY......| 000013A0: 20 53 41 56 45 20 54 41 42 4C 45 00 B6 1B B0 09 | SAVE TABLE.....| 000013B0: 83 20 45 58 49 54 00 DB 1B BA 09 8F 20 2D 2D 2D |. EXIT...... ---| 000013C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000013D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 EB 1B C4 09 |-----------.....| 000013E0: 8F 20 44 49 52 45 43 54 4F 52 59 00 F6 1B CE 09 |. DIRECTORY.....| 000013F0: 8D 20 31 39 31 30 00 00 1C D8 09 99 20 44 4E 24 |. 1910...... DN$| 00001400: 00 15 1C E2 09 99 20 22 12 20 44 49 52 45 43 54 |...... ". DIRECT| 00001410: 4F 52 59 20 22 00 28 1C EC 09 4C 4E B2 30 3A 51 |ORY ".(...LN.0:Q| 00001420: B2 30 3A 46 24 B2 22 22 00 3E 1C F6 09 9F 20 32 |.0:F$."".>.... 2| 00001430: 2C 38 2C 30 2C 22 24 30 3A 4B 54 2E 2A 22 00 73 |,8,0,"$0:KT.*".s| 00001440: 1C F8 09 A1 23 32 2C 5A 24 3A 8B C6 28 5A 24 AA |....#2,Z$:..(Z$.| 00001450: C7 28 30 29 29 B2 33 34 20 A7 20 51 B2 51 AA 31 |.(0)).34 . Q.Q.1| 00001460: 3A 8B 20 51 B2 32 20 A7 20 51 B2 30 3A 89 20 32 |:. Q.2 . Q.0:. 2| 00001470: 35 36 30 00 7E 1C FA 09 89 20 32 35 35 32 00 8A |560.~.... 2552..| 00001480: 1C 00 0A A1 20 23 32 2C 5A 24 00 A1 1C 0A 0A 8B |.... #2,Z$......| 00001490: 20 28 53 54 20 AF 20 36 34 29 20 A7 20 32 36 34 | (ST . 64) . 264| 000014A0: 30 00 CA 1C 14 0A 8B 20 C6 28 5A 24 AA C7 28 30 |0...... .(Z$..(0| 000014B0: 29 29 B2 33 34 20 A7 20 51 B2 51 AA 31 3A 8B 20 |)).34 . Q.Q.1:. | 000014C0: 51 B2 31 20 A7 20 32 35 36 30 00 E5 1C 1E 0A 91 |Q.1 . 2560......| 000014D0: 20 51 AA 31 20 89 20 32 35 36 30 2C 32 36 30 30 | Q.1 . 2560,2600| 000014E0: 2C 32 36 31 30 00 F9 1C 28 0A 46 24 B2 46 24 AA |,2610...(.F$.F$.| 000014F0: 5A 24 3A 89 20 32 35 36 30 00 0F 1D 32 0A 99 20 |Z$:. 2560...2.. | 00001500: CA 28 46 24 2C 34 29 3A 4C 4E B2 4C 4E AA 31 00 |.(F$,4):LN.LN.1.| 00001510: 21 1D 3C 0A 8B 20 4C 4E B1 39 20 A7 20 32 36 34 |!.<.. LN.9 . 264| 00001520: 30 00 36 1D 46 0A 46 24 B2 22 22 3A 51 B2 30 3A |0.6.F.F$."":Q.0:| 00001530: 89 20 32 35 36 30 00 3E 1D 50 0A A0 20 32 00 49 |. 2560.>.P.. 2.I| 00001540: 1D 5A 0A 8D 20 32 30 39 30 00 54 1D 64 0A 8D 20 |.Z.. 2090.T.d.. | 00001550: 32 30 31 30 00 5A 1D 6E 0A 8E 00 00 00 |2010.Z.n..... |
....... KEYTBL [1.0] 051186.!.....G....
*******************************.M.(.. *
*...2.. *
CREATE KEYTABLE *...<.. *
*...F.. ********
***********************...P.....Z.....D.
. F$."" . 330...N.. 53280,15:. 53281,15.
2.X.."....PLEASE WAIT...";.N.... 1850:.
FILL COLOR RAM.O...L.896:. LOCATION OF K
EYTABLE.....N$."C C#D D#E F F#G G#A A#B
"... .DN$."............".Q...BL$."
":BL$.BL$.BL$.BL$.BL$...... A$(64),M
$(8),A(11,4),X(64)...... 710:. SET UP MA
TRIX.%.H.. 2350:. SET UP MENU.>.R.. 1620
:. CLEAR ARRAY.L....".. ";.B.... I.1 .
C(N$) . 2.S...Z$.J(N$,I,2)...... Z$" ";
............".."...... I.0 . 4...".Z$.J(
D(I),2)...,.. Z$:....6...I.@.."."...J..
F$."" . . 1530:. 1680:. CONVERT & DISPLA
Y...T.. 2010:. MENU...^.. R.0 . 4.(.H..
C.0 . 11.8.R.. 580:. GET.U.|.. Z$."." .
460:. F1=NEXT.Q.... Z$."." . 460:. F2=DE
L...... Z$."." . 500:. F3=PREV...... Z$.
"." . 530:. F4=CLEAR.I.... Z$."." . 540:
. F5=LOAD...... Z$."." . 550:. F6=DIR...
... Z$."." . 560:. F7=SAVE...B.. Z$."."
. 490:. F8=EXIT.%.L...+.V...5.... 350.A.
...".";:..`.... C.0 . C.C.1:. 370:. PREV
.R.... R.0 . R.R.1.|.... 370.....R.5:C.1
2:.:.:. 1620:. 1680:. 350:. CLEAR/REDISP
LAY.Q...R.5:C.12:.:.:. 850:. LOAD...&..
2500:. 370:. DIR...0.. 1000:. 370:. SAVE
.%.:.. ------------------------------.9.
D.. 'GET' ROUTINE.M.N.X.C.3.3:Y.R.2.2.I.
X.. 781,Y:. 782,X:. 783,0...B.. 65520:.
PLOT $FFF0...L.. 204,0:. TURN CURSOR ON.
..V.. Z$:. Z$."" . 630.T.... 204,1:. TUR
N CURSOR OFF...... Z$."." . A(C,R).64:.
F2=DEL./.... F(Z$).132 . F(Z$).141 . 680
:. FUNCTION KEY PRESSED.A...A(C,R).B(203
).G...X$.A$(A(C,R)):. 1790:. PRINT CHAR.
M.......... ----------------------------
--...F.. SET UP MATRIX...P.. I.0 . 64.A.
Z.. A$(I).I.... I.O.......... DL,RT,CR,"
"," "," "," ",CD...... 3,W,A,4,Z,S,E,??
...... 5,R,D,6,C,F,T,X.4.... 7,Y,G,8,B,H
,U,V.J. .. 9,I,J,0,M,K,O,N.D.*.. +,P,L,-
,.,":",@,",".|.4.. \,*,;,HM,??,=,^,/...>
.. 1,_,??,2,SP,??,Q,RS," "...H.. -------
-----------------------.J.R.. LOAD.X.\.T
$."LOAD"...F.. 1280:. FILENAME...P.. F$.
"" . 970...Z.. 15,8,15.$.... 2,8,2,F$.",
P,R".<....15,EN$,ED$,ET$,EB$.I... 2: 1
5.D.... E(EN$).20 . 970:. OK......:. EN$
","ED$","ET$","EB$...... 2090...... 870:
. TRY AGAIN...J.. F$."" . 340.B.T.. F$,8
,1...... ------------------------------.
..... SAVE...... 2150:. CHECK FOR DUPLIC
ATE.).... Z$."DUP" . 1250.4.... 1440.B..
.T$."SAVE".X.... 1280:. FILENAME.K.$.. F
$."" . 1250...... F$."KT.STD" . 1050...8
.. 15,8,15...B..15,"S:".F$...L.. I.1 . F
.I.V.. 678.I,F(J(F$,I,1)).O.`.....J.. 78
0,1:. 781,8:. 782,255...T.. 65466:. SETL
FS. .~.. 780,F:. 781,167:. 782,2.5.... 6
5469:. SETNAM.P.... 251,128:. 252,3:. SA
.^.... 780,251.Y.... 781,192:. 782,3:. E
A...... 65496:. SAVE......15,EN$,ED$,ET$
,EB$.B.D..:. EN$","ED$","ET$","EB$.K.N.
15.V.X.. 2090...... 2010............ --
----------------------------...... FILEN
AME.&.... 1910.0.... DN$.<.... T$".".L.(
.F$."":X$.""._.2.."FILENAME";F$.R.<.. F$
."" . 1420...F.. C(F$).7 . 1290...P.. I.
1 . C(F$)...Z.Z.F(J(F$,I,1))...D.. Z.48
. (Z.57 . Z.65) . Z.90 . X$."*":I.C(F$).
1...N.....X.. X$."*" . 1290.....F$."KT."
.F$:F.C(F$).......>.... ----------------
--------------.\. .. CONVERT ARRAY TO ME
MORY.K.... I.0 . 63.X.... L.I,64.~......
.H.. I.0 . 11:. J.0 . 4...R.. L.A(I,J),J
.12.I......:............. --------------
----------------...... CONVERT MEMORY TO
ARRAY...... 1620...... I.0 . 63./.... B
(L.I).64 . 1590.P.".Y..(B(L.I).12):X.B(L
.I).Y.12.].,.A(X,Y).I.C.6...I.@.....J..
------------------------------. .T.. CLE
AR ARRAY...^.. I.0 . 11:. J.0 . 4.G.H.A(
I,J).64.O.R..:..U.|........ ------------
------------------...... DISPLAY...... R
0.0 . 4.'.... C0.0 . 11.=...X.C0.3.3:Y.R
0.2.2.Y.... 781,Y:. 782,X:. 783,0.R.B..
65520:. PLOT $FFF0...L.X$.A$(A(C0,R0)):.
1790:. PRINT CHAR. .V...............Q..
.. ------------------------------......
PRINT CHARACTER...... C(X$).1 . X$.".".X
$.".".....X$.X$." ". .... "."X$;.&.&...K
.0.. ------------------------------.`.:.
. FILL COLOR RAM.Y.D.. I.0 . 4:. J.0 . 3
9...N.. 55296.I.2.80.J,0...X..:....B...C
.L.. ------------------------------...V.
. CLEAR LOWER SCREEN/RESET LINKS...... D
N$...... I.1 . 12...... BL$;.......$....
I.217 . 242.7.... I,B(I) . 128.=.....C.
F...H.P.. ------------------------------
.S.Z.. MENU.~.... 1910...... DN$...... I
.1 . 7 . 2...... M$(I);.20);M$(I.1):....
... I.C....... .. ----------------------
--------...*.. WAIT FOR 'RETURN'...4..:.
".RETURN. TO CONTINUE".*.>.. 198,0.B.H..
A$:. A$."" . 2120.H.R...M.\.. ---------
---------------------...F.. CHECK FOR DU
PLICATE KEYS...P.. 1910...Z.. DN$.M....
"NOW CHECKING FOR DUPLICATE KEYS...";...
... I.0 . 63.....X(I).0............ I.0
. 11:. J.0 . 4.....Z.A(I,J):X(Z).X(Z).1.
-....:.:Z$."".<.J.. I.0 . 63.T.T.. X(I).
1 . Z$."DUP".Z.....E.... 1910.X.... Z$."
" . 2330...... DN$. .... "DUPLICATE KEYS
FOUND!"...... 2090.......V.$.. --------
----------------------...... SET UP MENU
...8.. I.1 . 8...B.. M$(I).&.L.M$(I).".F
".J(D(I),2).". ".M$(I)...V.. I.4.`...C.J
.. NEXT KEY.T.T.. DELETE KEY.G.~.. PREVI
OUS KEY.Y.... CLEAR TABLE...... LOAD TAB
LE...... DIRECTORY...... SAVE TABLE.....
. EXIT...... ---------------------------
---...D.. DIRECTORY...N.. 1910...X.. DN$
...... ". DIRECTORY ".(...LN.0:Q.0:F$.""
.>.... 2,8,0,"$0:KT.*".S....#2,Z$:.F(Z$.
G(0)).34 . Q.Q.1:. Q.2 . Q.0:. 2560.~...
. 2552...... #2,Z$...... (ST . 64) . 264
0.J.... F(Z$.G(0)).34 . Q.Q.1:. Q.1 . 25
60...... Q.1 . 2560,2600,2610...(.F$.F$.
Z$:. 2560...2.. J(F$,4):LN.LN.1.!.<.. LN
.9 . 2640.6.F.F$."":Q.0:. 2560.>.P. 2.I
.Z.. 2090.T.D.. 2010.Z.N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL