00000000: 01 1C 3E 1C 01 00 99 22 93 22 3A 43 4C B2 C2 28 |..>....".":CL..(|
00000010: 31 29 3A 8B CC 28 58 29 B2 35 A7 FE 25 3A 8F 20 |1):..(X).5..%:. |
00000020: 31 30 46 4B 45 59 53 2C 20 47 45 4F 52 47 45 20 |10FKEYS, GEORGE |
00000030: 4C 45 4F 54 54 49 20 34 2F 31 35 2F 38 36 00 6C |LEOTTI 4/15/86.l|
00000040: 1C 02 00 81 49 B2 31 A4 33 31 3A 43 24 B2 43 24 |....I.1.31:C$.C$|
00000050: AA C7 28 49 29 AA C7 28 49 AA 31 32 38 29 3A 82 |..(I)..(I.128):.|
00000060: 3A 43 24 B2 43 24 AA C7 28 33 34 29 00 AC 1C 03 |:C$.C$..(34)....|
00000070: 00 53 B2 34 31 30 36 3A 81 49 B2 31 A4 31 30 3A |.S.4106:.I.1.10:|
00000080: 4C 28 49 29 B2 C2 28 49 AA 34 30 39 35 29 3A 54 |L(I)..(I.4095):T|
00000090: B2 54 AA 4C 28 49 29 3A 81 4A B2 53 A4 53 AA 4C |.T.L(I):.J.S.S.L|
000000A0: 28 49 29 AB 31 3A 41 B2 C2 28 4A 29 00 E7 1C 04 |(I).1:A..(J)....|
000000B0: 00 4C 24 28 49 29 B2 4C 24 28 49 29 AA C7 28 41 |.L$(I).L$(I)..(A|
000000C0: 29 3A 82 3A 4D 28 49 29 B2 53 3A 53 B2 4A 3A 87 |):.:M(I).S:S.J:.|
000000D0: 58 24 3A 99 C7 28 36 34 AA 49 29 22 20 3D 20 22 |X$:..(64.I)" = "|
000000E0: 58 24 2C 3A 8D 31 39 00 1F 1D 05 00 82 3A 99 22 |X$,:.19......:."|
000000F0: 4B 22 2C 22 4E 4F 4E 45 22 3A 99 22 11 53 45 4C |K","NONE":.".SEL|
00000100: 45 43 54 20 27 41 27 20 2D 54 48 52 4F 55 47 48 |ECT 'A' -THROUGH|
00000110: 2D 20 27 4B 27 20 0F 3F 22 3A EB 3A A1 41 24 00 |- 'K' .?":.:.A$.|
00000120: 51 1D 06 00 EC FD 41 24 B3 22 41 22 B0 41 24 B1 |Q.....A$."A".A$.|
00000130: 22 4B 22 3A 49 B2 C6 28 41 24 29 AB 36 34 3A 8B |"K":I..(A$).64:.|
00000140: 49 B1 31 30 A7 31 35 3A D5 54 B2 54 AB 4C 28 49 |I.10.15:.T.T.L(I|
00000150: 29 00 8F 1D 07 00 99 22 93 20 50 52 45 53 53 20 |)......". PRESS |
00000160: 43 41 50 53 20 4C 4F 43 4B 20 54 4F 20 45 4E 44 |CAPS LOCK TO END|
00000170: 2E 22 3A 99 22 11 43 48 41 4E 47 45 2D 20 22 3B |.":.".CHANGE- ";|
00000180: 3A 8D 31 39 3A 99 22 11 11 1D 54 4F 20 22 3B 00 |:.19:."...TO ";.|
00000190: BD 1D 08 00 EB 3A A1 41 24 3A 8B 43 4C B3 B1 C2 |.....:.A$:.CL...|
000001A0: 28 31 29 A7 4C B2 C3 28 4C 24 29 3A ED 3A D5 8D |(1).L..(L$):.:..|
000001B0: 32 30 3A 4C 24 B2 4C 24 AA 41 24 3A EC 00 E7 1D |20:L$.L$.A$:....|
000001C0: 09 00 99 3A 99 22 11 11 11 22 3B 3A 81 4A B2 31 |...:."...";:.J.1|
000001D0: A4 4C 3A 41 24 B2 CA 28 4C 24 2C 4A 2C 31 29 3A |.L:A$..(L$,J,1):|
000001E0: 8D 32 30 3A 82 3A 99 00 0B 1E 0A 00 99 22 11 4F |.20:.:.......".O|
000001F0: 4B 41 59 3F 22 3B 3A 8D 32 32 3A 8B 41 24 B2 22 |KAY?";:.22:.A$."|
00000200: 4E 22 A7 4C 24 B2 22 22 3A 89 37 00 49 1E 0B 00 |N".L$."":.7.I...|
00000210: 8B 54 AA 4C B1 32 34 36 B0 4C B1 31 32 38 A7 99 |.T.L.246.L.128..|
00000220: 22 12 54 4F 4F 20 4C 4F 4E 47 21 20 50 4C 45 41 |".TOO LONG! PLEA|
00000230: 53 45 20 53 48 4F 52 54 45 4E 2E 22 3A FE 0B 33 |SE SHORTEN.":..3|
00000240: 3A 4C 24 B2 22 22 3A 89 37 00 7F 1E 0C 00 8B 49 |:L$."":.7......I|
00000250: B3 39 A7 F9 49 2C 4C 24 3A 89 31 35 3A 83 20 46 |.9..I,L$:.15:. F|
00000260: 31 2C 46 32 2C 46 33 2C 46 34 2C 46 35 2C 46 36 |1,F2,F3,F4,F5,F6|
00000270: 2C 46 37 2C 46 38 2C 52 2F 53 2C 48 45 4C 50 00 |,F7,F8,R/S,HELP.|
00000280: AD 1E 0D 00 97 34 30 39 35 AA 49 2C 4C 3A 81 4A |.....4095.I,L:.J|
00000290: B2 31 A4 4C 3A 97 4D 28 49 29 AA 4A AB 31 2C C6 |.1.L:.M(I).J.1,.|
000002A0: 28 CA 28 4C 24 2C 4A 2C 31 29 29 3A 82 00 E6 1E |(.(L$,J,1)):....|
000002B0: 0E 00 8B 49 B2 39 A7 4A B2 4D 28 49 29 AA 4A AB |...I.9.J.M(I).J.|
000002C0: 31 3A 81 58 B2 31 A4 4C 28 31 30 29 3A 97 4A AA |1:.X.1.L(10):.J.|
000002D0: 58 AB 31 2C C6 28 CA 28 4C 24 28 31 30 29 2C 58 |X.1,.(.(L$(10),X|
000002E0: 2C 31 29 29 3A 82 00 0F 1F 0F 00 99 22 93 11 11 |,1)):......."...|
000002F0: 1D 1D 4D 4F 52 45 20 43 48 41 4E 47 45 53 3F 22 |..MORE CHANGES?"|
00000300: 3B 3A 8D 32 32 3A 8B 41 24 B2 22 59 22 A7 8A 00 |;:.22:.A$."Y"...|
00000310: 3D 1F 10 00 99 22 11 11 1D 1D 1D 53 41 56 45 20 |=....".....SAVE |
00000320: 4B 45 59 53 20 54 4F 20 44 49 53 4B 3F 22 3B 3A |KEYS TO DISK?";:|
00000330: 8D 32 32 3A 8B 41 24 B2 22 4E 22 A7 80 00 81 1F |.22:.A$."N".....|
00000340: 11 00 85 22 11 11 46 49 4C 45 4E 41 4D 45 20 28 |..."..FILENAME (|
00000350: 4C 49 4D 49 54 20 31 32 20 43 48 41 52 53 29 22 |LIMIT 12 CHARS)"|
00000360: 3B 4E 46 24 3A 4E 46 24 B2 4E 46 24 AA 22 2E 4B |;NF$:NF$.NF$.".K|
00000370: 45 59 22 3A 8B C3 28 4E 46 24 29 B1 31 36 A7 31 |EY":..(NF$).16.1|
00000380: 37 00 B4 1F 12 00 99 22 11 53 41 56 49 4E 47 20 |7......".SAVING |
00000390: 22 4E 46 24 22 2E 2E 2E 22 3A FE 10 28 4E 46 24 |"NF$"...":..(NF$|
000003A0: 29 2C 42 30 2C 50 34 30 39 36 20 A4 20 50 34 33 |),B0,P4096 . P43|
000003B0: 35 32 3A 80 00 DC 1F 13 00 81 4A B2 31 A4 4C 28 |52:.......J.1.L(|
000003C0: 49 29 3A 41 24 B2 CA 28 4C 24 28 49 29 2C 4A 2C |I):A$..(L$(I),J,|
000003D0: 31 29 3A 8D 32 30 3A 82 3A 99 3A 8E 00 F3 1F 14 |1):.20:.:.:.....|
000003E0: 00 8B D4 28 43 24 2C 41 24 29 B2 30 A7 99 41 24 |...(C$,A$).0..A$|
000003F0: 3B 3A 8E 00 23 20 15 00 41 B2 C6 28 41 24 29 3A |;:..# ..A..(A$):|
00000400: 99 22 20 43 48 52 24 28 22 3B C9 28 C4 28 41 29 |." CHR$(";.(.(A)|
00000410: 2C C3 28 C4 28 41 29 29 AB 31 29 3B 22 29 20 22 |,.(.(A)).1);") "|
00000420: 3B 3A 8E 00 4F 20 16 00 99 22 20 28 59 2F 4E 29 |;:..O ..." (Y/N)|
00000430: 20 22 3B 3A EB 3A A1 41 24 3A EC FC 41 24 B2 22 | ";:.:.A$:..A$."|
00000440: 4E 22 B0 41 24 B2 22 59 22 3A 99 41 24 3A 8E 00 |N".A$."Y":.A$:..|
00000450: 00 00 |.. |
..>....".":CL.B(1):.L(X).5..%:. 10FKEYS,
GEORGE LEOTTI 4/15/86.L....I.1.31:C$.C$
.G(I).G(I.128):.:C$.C$.G(34).....S.4106:
.I.1.10:L(I).B(I.4095):T.T.L(I):.J.S.S.L
(I).1:A.B(J).....L$(I).L$(I).G(A):.:M(I)
.S:S.J:.X$:.G(64.I)" = "X$,:.19......:."
K","NONE":.".SELECT 'A' -THROUGH- 'K' .?
":.:.A$.Q.....A$."A".A$."K":I.F(A$).64:.
I.10.15:UT.T.L(I)......". PRESS CAPS LOC
K TO END.":.".CHANGE- ";:.19:."...TO ";.
.....:.A$:.CL..B(1).L.C(L$):.:U.20:L$.L$
.A$:.......:."...";:.J.1.L:A$.J(L$,J,1):
.20:.:.......".OKAY?";:.22:.A$."N".L$.""
:.7.I....T.L.246.L.128..".TOO LONG! PLEA
SE SHORTEN.":..3:L$."":.7.....I.9..I,L$
:.15:. F1,F2,F3,F4,F5,F6,F7,F8,R/S,HELP.
.....4095.I,L:.J.1.L:.M(I).J.1,F(J(L$,J,
1)):.......I.9.J.M(I).J.1:.X.1.L(10):.J.
X.1,F(J(L$(10),X,1)):.......".....MORE C
HANGES?";:.22:.A$."Y"...=....".....SAVE
KEYS TO DISK?";:.22:.A$."N"........"..FI
LENAME (LIMIT 12 CHARS)";NF$:NF$.NF$.".K
EY":.C(NF$).16.17......".SAVING "NF$"...
":..(NF$),B0,P4096 . P4352:.......J.1.L(
I):A$.J(L$(I),J,1):.20:.:.:.......T(C$,A
$).0..A$;:..# ..A.F(A$):." CHR$(";I(D(A)
,C(D(A)).1);") ";:..O ..." (Y/N) ";:.:.A
$:..A$."N".A$."Y":.A$:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL