FASTKEY.SAMPLES

FILE INFORMATION

FILENAME(S): FASTKEY.SAMPLES

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-10-19 22:48:42

APPEARS ON: 1 disk(s)

FILE HASH

bb680715ebe4eb5b578351f0aab02156f0a0d48fb92fd2cfe12f2d9f6c8b0d50

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COMPUTE NOV JAN	FASTKEY.SAMPLES	PRG	Radd Maxx	15	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0D 08 E8 03 9E 20  34 30 31 31 30 00 20 08  |....... 40110. .|
00000010: F2 03 8F 20 40 46 41 53  54 4B 45 59 20 50 52 47  |... @FASTKEY PRG|
00000020: 00 26 08 FC 03 3A 00 43  08 06 04 8F 20 20 43 48  |.&...:.C....  CH|
00000030: 41 4E 47 45 20 43 4F 4C  4F 52 20 44 45 46 41 55  |ANGE COLOR DEFAU|
00000040: 4C 54 53 00 4A 08 10 04  AC 43 00 6A 08 1A 04 97  |LTS.J....C.j....|
00000050: 20 35 33 32 38 30 2C 36  3A 97 20 35 33 32 38 31  | 53280,6:. 53281|
00000060: 2C 36 3A 97 20 36 34 36  2C 31 00 80 08 24 04 8F  |,6:. 646,1...$..|
00000070: 20 20 50 45 45 4B 20 5A  45 52 4F 20 50 41 47 45  |  PEEK ZERO PAGE|
00000080: 00 8A 08 2E 04 AC 5A 45  45 4B 00 A8 08 38 04 81  |......ZEEK...8..|
00000090: 20 49 B2 32 35 31 20 A4  20 32 35 34 3A 99 20 C2  | I.251 . 254:. .|
000000A0: 28 49 29 3B 3A 82 3A 99  00 BB 08 42 04 8F 20 4C  |(I);:.:....B.. L|
000000B0: 49 53 54 20 56 45 43 54  4F 52 53 00 C4 08 4C 04  |IST VECTORS...L.|
000000C0: AC 56 45 43 00 FE 08 56  04 81 49 B2 37 36 38 A4  |.VEC...V..I.768.|
000000D0: 37 37 39 A9 32 3A 99 C2  28 49 29 C2 28 49 AA 31  |779.2:..(I).(I.1|
000000E0: 29 3A 82 3A 81 49 B2 37  38 38 A4 38 31 39 A9 32  |):.:.I.788.819.2|
000000F0: 3A 99 C2 28 49 29 C2 28  49 AA 31 29 3A 82 00 04  |:..(I).(I.1):...|
00000100: 09 60 04 80 00 16 09 6A  04 8F 20 20 43 4F 4C 44  |.`.....j..  COLD|
00000110: 20 53 54 41 52 54 00 20  09 74 04 AC 43 4F 4C 44  | START. .t..COLD|
00000120: 00 2C 09 7E 04 9E 20 36  34 37 33 38 00 3E 09 88  |.,.~.. 64738.>..|
00000130: 04 8F 20 20 57 41 52 4D  20 53 54 41 52 54 00 48  |..  WARM START.H|
00000140: 09 92 04 AC 57 41 52 4D  00 54 09 9C 04 9E 20 36  |....WARM.T.... 6|
00000150: 34 37 36 37 00 6D 09 A6  04 8F 20 20 46 49 4E 44  |4767.m....  FIND|
00000160: 20 54 4F 50 20 4F 46 20  42 41 53 49 43 00 78 09  | TOP OF BASIC.x.|
00000170: B0 04 AC 48 49 4D 45 4D  00 8E 09 BA 04 99 20 C2  |...HIMEM...... .|
00000180: 28 35 35 29 AA 32 35 36  AC C2 28 35 36 29 00 AF  |(55).256..(56)..|
00000190: 09 C4 04 8F 20 46 49 4E  44 20 53 49 5A 45 20 4F  |.... FIND SIZE O|
000001A0: 46 20 42 41 53 49 43 20  50 52 4F 47 52 41 4D 00  |F BASIC PROGRAM.|
000001B0: B9 09 CE 04 AC 53 49 5A  45 00 F1 09 D8 04 99 20  |.....SIZE...... |
000001C0: 22 50 52 47 20 53 49 5A  45 20 49 53 22 3B 28 C2  |"PRG SIZE IS";(.|
000001D0: 28 34 35 29 AA 32 35 36  AC C2 28 34 36 29 29 AB  |(45).256..(46)).|
000001E0: 28 C2 28 34 33 29 AA 32  35 36 AC C2 28 34 34 29  |(.(43).256..(44)|
000001F0: 29 00 13 0A E2 04 8F 20  50 52 49 4E 54 20 4C 41  |)...... PRINT LA|
00000200: 53 54 20 46 49 4C 45 20  4E 41 4D 45 20 43 41 4C  |ST FILE NAME CAL|
00000210: 4C 45 44 00 1D 0A EC 04  AC 4E 41 4D 45 00 29 0A  |LED......NAME.).|
00000220: F6 04 9E 20 36 32 39 31  33 00 3F 0A 00 05 8F 20  |... 62913.?.... |
00000230: 4C 49 53 54 20 54 4F 20  50 52 49 4E 54 45 52 00  |LIST TO PRINTER.|
00000240: 46 0A 0A 05 AC 50 00 54  0A 14 05 9F 34 2C 34 3A  |F....P.T....4,4:|
00000250: 9D 34 3A 9B 00 6E 0A 1E  05 8F 20 45 4E 44 20 4C  |.4:..n.... END L|
00000260: 49 53 54 20 54 4F 20 50  52 49 4E 54 45 52 00 76  |IST TO PRINTER.v|
00000270: 0A 28 05 AC 50 45 00 80  0A 32 05 98 34 3A A0 34  |.(..PE...2..4:.4|
00000280: 00 99 0A 3C 05 8F 20 4C  4F 41 44 20 54 48 45 20  |...<.. LOAD THE |
00000290: 44 49 52 45 43 54 4F 52  59 00 A2 0A 46 05 AC 44  |DIRECTORY...F..D|
000002A0: 49 52 00 AF 0A 50 05 93  22 24 22 2C 38 3A 9B 00  |IR...P.."$",8:..|
000002B0: CA 0A 5A 05 8F 20 49 4E  49 54 49 41 4C 49 5A 45  |..Z.. INITIALIZE|
000002C0: 20 54 48 45 20 44 52 49  56 45 00 D1 0A 64 05 AC  | THE DRIVE...d..|
000002D0: 49 00 EC 0A 6E 05 9F 31  35 2C 38 2C 31 35 3A 98  |I...n..15,8,15:.|
000002E0: 31 35 2C 22 49 30 3A 22  3A A0 31 35 00 08 0B 78  |15,"I0:":.15...x|
000002F0: 05 8F 20 46 4F 52 2F 4E  45 58 54 20 46 4F 52 20  |.. FOR/NEXT FOR |
00000300: 50 52 4F 47 52 41 4D 53  00 0F 0B 82 05 AC A5 00  |PROGRAMS........|
00000310: 21 0B 8C 05 81 20 49 B2  31 20 A4 20 31 30 30 3A  |!.... I.1 . 100:|
00000320: 82 00 38 0B 96 05 8F 20  47 45 54 20 46 4F 52 20  |..8.... GET FOR |
00000330: 50 52 4F 47 52 41 4D 53  00 3F 0B A0 05 AC 47 00  |PROGRAMS.?....G.|
00000340: 56 0B AA 05 A1 20 4B 24  3A 8B 20 4B 24 B2 22 22  |V.... K$:. K$.""|
00000350: 20 89 31 34 35 30 00 72  0B B4 05 8F 20 44 49 53  | .1450.r.... DIS|
00000360: 4B 20 47 45 54 20 46 4F  52 20 50 52 4F 47 52 41  |K GET FOR PROGRA|
00000370: 4D 53 00 7A 0B BE 05 AC  44 47 00 95 0B C8 05 A1  |MS.z....DG......|
00000380: 23 32 2C 41 24 3A 53 B2  53 54 3A 41 24 B2 41 24  |#2,A$:S.ST:A$.A$|
00000390: AA C7 28 30 29 00 AA 0B  D2 05 8F 20 44 41 54 41  |..(0)...... DATA|
000003A0: 20 53 54 41 54 45 4D 45  4E 54 00 B1 0B DC 05 AC  | STATEMENT......|
000003B0: 44 00 B7 0B E6 05 83 00  D7 0B F0 05 8F 20 45 52  |D............ ER|
000003C0: 52 4F 52 20 53 54 41 54  55 53 20 46 4F 52 20 50  |ROR STATUS FOR P|
000003D0: 52 4F 47 52 41 4D 53 00  E0 0B FA 05 AC 45 52 52  |ROGRAMS......ERR|
000003E0: 00 05 0C 04 06 9F 31 35  2C 38 2C 31 35 3A 84 31  |......15,8,15:.1|
000003F0: 35 2C 45 2C 45 24 2C 54  2C 53 3A 99 20 45 3B 45  |5,E,E$,T,S:. E;E|
00000400: 24 3A A0 31 35 00 27 0C  0E 06 8F 20 43 48 41 4E  |$:.15.'.... CHAN|
00000410: 47 45 20 54 45 58 54 20  43 4F 4C 4F 52 20 4F 4E  |GE TEXT COLOR ON|
00000420: 20 53 43 52 45 45 4E 00  30 0C 18 06 AC 48 55 45  | SCREEN.0....HUE|
00000430: 00 4A 0C 22 06 81 49 B2  35 35 32 39 36 A4 35 36  |.J."..I.55296.56|
00000440: 32 39 35 3A 97 49 2C 30  3A 82 00 65 0C 2C 06 8F  |295:.I,0:..e.,..|
00000450: 20 4D 4C 20 4C 4F 41 44  20 46 4F 52 20 50 52 4F  | ML LOAD FOR PRO|
00000460: 47 52 41 4D 53 00 6C 0C  36 06 AC 93 00 9A 0C 40  |GRAMS.l.6......@|
00000470: 06 8B 41 B2 30 A7 41 B2  31 3A 99 22 93 11 4C 4F  |..A.0.A.1:."..LO|
00000480: 41 44 49 4E 47 2E 2E 2E  22 3A 93 22 46 49 4C 45  |ADING...":."FILE|
00000490: 20 4E 41 4D 45 22 2C 38  2C 31 00 B0 0C 4A 06 8F  | NAME",8,1...J..|
000004A0: 20 52 41 4E 44 4F 4D 20  46 55 4E 43 54 49 4F 4E  | RANDOM FUNCTION|
000004B0: 00 B7 0C 54 06 AC BB 00  CC 0C 5E 06 52 B2 B5 28  |...T......^.R..(|
000004C0: BB 28 30 29 AC 31 30 30  30 29 AA 31 00 E4 0C 68  |.(0).1000).1...h|
000004D0: 06 8F 20 4D 45 4D 20 46  52 45 45 20 46 55 4E 43  |.. MEM FREE FUNC|
000004E0: 54 49 4F 4E 00 EC 0C 72  06 AC B8 45 00 06 0D 7C  |TION...r...E...||
000004F0: 06 99 20 B8 28 30 29 AB  28 B8 28 30 29 B3 30 29  |.. .(0).(.(0).0)|
00000500: AC 36 35 35 33 36 00 2A  0D 86 06 8F 20 53 54 52  |.65536.*.... STR|
00000510: 49 50 20 4E 55 4D 42 45  52 20 4F 46 20 4C 45 41  |IP NUMBER OF LEA|
00000520: 44 49 4E 47 20 53 50 41  43 45 00 35 0D 90 06 AC  |DING SPACE.5....|
00000530: 53 54 52 49 50 00 4B 0D  9A 06 4E 24 B2 CA 28 C4  |STRIP.K...N$..(.|
00000540: 28 4E 29 2C 32 29 3A 99  20 4E 24 00 56 0D A4 06  |(N),2):. N$.V...|
00000550: 8F 20 4C 49 53 54 00 5D  0D AE 06 AC 4C 00 63 0D  |. LIST.]....L.c.|
00000560: B8 06 9B 00 81 0D C2 06  8F 20 46 4F 52 4D 41 54  |......... FORMAT|
00000570: 54 45 44 20 54 49 4D 45  20 46 55 4E 43 54 49 4F  |TED TIME FUNCTIO|
00000580: 4E 00 8B 0D CC 06 AC 54  49 4D 45 00 C6 0D D6 06  |N......TIME.....|
00000590: 41 24 B2 54 49 24 3A 54  24 B2 C8 28 41 24 2C 32  |A$.TI$:T$..(A$,2|
000005A0: 29 AA 22 20 22 AA CA 28  41 24 2C 32 2C 32 29 AA  |)." "..(A$,2,2).|
000005B0: 22 20 22 AA C9 28 41 24  2C 32 29 3A 99 22 54 49  |" "..(A$,2):."TI|
000005C0: 4D 45 3D 22 54 24 00 E0  0D E0 06 8F 20 47 4F 20  |ME="T$...... GO |
000005D0: 54 4F 20 4D 4C 20 57 4F  52 4B 20 53 50 41 43 45  |TO ML WORK SPACE|
000005E0: 00 E7 0D EA 06 AC CB 00  F3 0D F4 06 9E 20 34 39  |............. 49|
000005F0: 31 35 32 00 0D 0E FE 06  8F 20 43 4C 45 41 52 20  |152...... CLEAR |
00000600: 4D 4C 20 57 4F 52 4B 20  53 50 41 43 45 00 16 0E  |ML WORK SPACE...|
00000610: 08 07 AC 9C 4D 4C 00 30  0E 12 07 81 49 B2 34 39  |....ML.0....I.49|
00000620: 31 35 32 A4 35 33 32 34  37 3A 97 49 2C 30 3A 82  |152.53247:.I,0:.|
00000630: 00 4A 0E 1C 07 8F 20 43  4C 45 41 52 20 54 4F 50  |.J.... CLEAR TOP|
00000640: 20 4F 46 20 53 43 52 45  45 4E 00 52 0E 26 07 AC  | OF SCREEN.R.&..|
00000650: A4 50 00 6B 0E 30 07 81  49 B2 31 30 32 34 A4 31  |.P.k.0..I.1024.1|
00000660: 35 30 34 3A 97 49 2C 33  32 3A 82 00 88 0E 3A 07  |504:.I,32:....:.|
00000670: 8F 20 43 4C 45 41 52 20  42 4F 54 54 4F 4D 20 4F  |. CLEAR BOTTOM O|
00000680: 46 20 53 43 52 45 45 4E  00 91 0E 44 07 AC 42 4F  |F SCREEN...D..BO|
00000690: 54 00 AA 0E 4E 07 81 49  B2 31 35 30 35 A4 32 30  |T...N..I.1505.20|
000006A0: 32 33 3A 97 49 2C 33 32  3A 82 00 CB 0E 58 07 8F  |23:.I,32:....X..|
000006B0: 20 50 52 49 4E 54 20 41  53 43 49 49 20 43 4F 44  | PRINT ASCII COD|
000006C0: 45 20 4F 46 20 53 54 52  49 4E 47 00 E7 0E 62 07  |E OF STRING...b.|
000006D0: 8F 20 44 45 46 49 4E 45  20 41 24 20 42 45 46 4F  |. DEFINE A$ BEFO|
000006E0: 52 45 20 43 41 4C 4C 00  F1 0E 6C 07 AC 43 4F 44  |RE CALL...l..COD|
000006F0: 45 00 16 0F 76 07 4C B2  C3 28 41 24 29 3A 81 49  |E...v.L..(A$):.I|
00000700: B2 31 A4 4C 3A 99 20 C6  28 CA 28 41 24 2C 49 2C  |.1.L:. .(.(A$,I,|
00000710: 31 29 29 3B 3A 82 00 00  00                       |1));:....       |

....... 40110. .... @FASTKEY PRG.&...:.C
....  CHANGE COLOR DEFAULTS.J....C.J....
 53280,6:. 53281,6:. 646,1...$..  PEEK Z
ERO PAGE......ZEEK...8.. I.251 . 254:. B
(I);:.:....B.. LIST VECTORS.D.L..VEC...V
..I.768.779.2:.B(I)B(I.1):.:.I.788.819.2
:.B(I)B(I.1):....`.....J..  COLD START. 
.T..COLD.,.~.. 64738.>....  WARM START.H
....WARM.T.... 64767.M....  FIND TOP OF 
BASIC.X....HIMEM...... B(55).256.B(56)..
.D.. FIND SIZE OF BASIC PROGRAM...N..SIZ
E...X.. "PRG SIZE IS";(B(45).256.B(46)).
(B(43).256.B(44))...... PRINT LAST FILE 
NAME CALLED......NAME.).... 62913.?.... 
LIST TO PRINTER.F....P.T....4,4:.4:..N..
.. END LIST TO PRINTER.V.(..PE...2..4: 4
...<.. LOAD THE DIRECTORY...F..DIR...P..
"$",8:..J.Z.. INITIALIZE THE DRIVE.Q.D..
I...N..15,8,15:.15,"I0:": 15...X.. FOR/N
EXT FOR PROGRAMS........!.... I.1 . 100:
..8.... GET FOR PROGRAMS.?. ..G.V.... K$
:. K$."" .1450.R.... DISK GET FOR PROGRA
MS.Z....DG...H..#2,A$:S.ST:A$.A$.G(0)...
R.. DATA STATEMENT......D.......W.... ER
ROR STATUS FOR PROGRAMS......ERR......15
,8,15:.15,E,E$,T,S:. E;E$: 15.'.... CHAN
GE TEXT COLOR ON SCREEN.0....HUE.J."..I.
55296.56295:.I,0:..E.,.. ML LOAD FOR PRO
GRAMS.L.6......@..A.0.A.1:."..LOADING...
":."FILE NAME",8,1...J.. RANDOM FUNCTION
...T....L.^.R..(.(0).1000).1...H.. MEM F
REE FUNCTION...R...E...|.. .(0).(.(0).0)
.65536.*.... STRIP NUMBER OF LEADING SPA
CE.5....STRIP.K...N$.J(D(N),2):. N$.V...
. LIST.]....L.C.......B.. FORMATTED TIME
 FUNCTION...L..TIME.F.V.A$.TI$:T$.H(A$,2
)." ".J(A$,2,2)." ".I(A$,2):."TIME="T$..
.... GO TO ML WORK SPACE......K...... 49
152...... CLEAR ML WORK SPACE.......ML.0
....I.49152.53247:.I,0:..J.... CLEAR TOP
 OF SCREEN.R.&...P.K.0..I.1024.1504:.I,3
2:....:.. CLEAR BOTTOM OF SCREEN...D..BO
T...N..I.1505.2023:.I,32:..K.X.. PRINT A
SCII CODE OF STRING...B.. DEFINE A$ BEFO
RE CALL...L..CODE...V.L.C(A$):.I.1.L:. F
(J(A$,I,1));:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL