FNCTKEY
FILE INFORMATION
FILENAME(S): FNCTKEY
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 17:23:58
APPEARS ON: 1 disk(s)
FILE HASH
9450110e1838a17be672c13b93bc00e3710a7db49f5bfffa4968ad082bfdf551
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ULTILITIES | FNCTKEY | PRG | Quetzal & Style | 13 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 12 16 12 00 00 8F 20 20 46 55 4E 43 54 49 4F |....... FUNCTIO|
00000010: 4E 20 4B 45 59 53 00 32 12 01 00 8F 20 20 43 4F |N KEYS.2.... CO|
00000020: 4D 4D 4F 44 4F 52 45 20 36 34 20 56 45 52 53 49 |MMODORE 64 VERSI|
00000030: 4F 4E 00 38 12 02 00 8F 00 4F 12 03 00 8F 20 20 |ON.8.....O.... |
00000040: 42 59 20 4A 4F 48 4E 20 54 41 4E 5A 49 4E 49 00 |BY JOHN TANZINI.|
00000050: 66 12 04 00 8F 20 20 41 4E 44 20 52 4F 4E 20 4D |f.... AND RON M|
00000060: 49 4E 44 5A 41 4B 00 6C 12 05 00 8F 00 72 12 06 |INDZAK.l.....r..|
00000070: 00 8F 00 7A 12 07 00 8F 2A 2A 00 91 12 08 00 8F |...z....**......|
00000080: 2A 2A 2A 20 56 41 52 49 41 42 4C 45 20 4C 49 53 |*** VARIABLE LIS|
00000090: 54 00 99 12 09 00 8F 2A 2A 00 B8 12 0A 00 8F 20 |T......**...... |
000000A0: 54 20 3D 20 41 43 54 55 41 4C 20 54 4F 50 20 4F |T = ACTUAL TOP O|
000000B0: 46 20 4D 45 4D 4F 52 59 00 F8 12 0F 00 8F 20 4C |F MEMORY...... L|
000000C0: 20 3D 20 54 4F 54 41 4C 20 4C 45 4E 47 54 48 20 | = TOTAL LENGTH |
000000D0: 4F 46 20 41 4C 4C 20 53 54 52 49 4E 47 53 20 44 |OF ALL STRINGS D|
000000E0: 45 46 49 4E 45 44 20 46 4F 52 20 46 55 4E 43 54 |EFINED FOR FUNCT|
000000F0: 49 4F 4E 20 4B 45 59 53 00 25 13 14 00 8F 20 53 |ION KEYS.%.... S|
00000100: 4D 20 3D 20 53 54 41 52 54 20 4F 46 20 4D 41 43 |M = START OF MAC|
00000110: 48 49 4E 45 20 4C 41 4E 47 55 41 47 45 20 50 52 |HINE LANGUAGE PR|
00000120: 4F 47 52 41 4D 00 5B 13 19 00 8F 20 53 53 20 3D |OGRAM.[.... SS =|
00000130: 20 53 54 41 52 54 20 4F 46 20 53 54 52 49 4E 47 | START OF STRING|
00000140: 53 20 44 45 46 49 4E 45 44 20 46 4F 52 20 46 55 |S DEFINED FOR FU|
00000150: 4E 43 54 49 4F 4E 20 4B 45 59 53 00 81 13 1E 00 |NCTION KEYS.....|
00000160: 8F 20 50 50 20 3D 20 50 4F 49 4E 54 45 52 20 54 |. PP = POINTER T|
00000170: 4F 20 53 54 52 49 4E 47 20 50 4F 49 4E 54 45 52 |O STRING POINTER|
00000180: 53 00 B9 13 23 00 8F 20 53 50 20 3D 20 50 4F 49 |S...#.. SP = POI|
00000190: 4E 54 45 52 20 54 4F 20 53 54 52 49 4E 47 53 20 |NTER TO STRINGS |
000001A0: 44 55 52 49 4E 47 20 4C 4F 41 44 49 4E 47 20 4F |DURING LOADING O|
000001B0: 46 20 53 54 52 49 4E 47 53 00 07 14 28 00 8F 20 |F STRINGS...(.. |
000001C0: 43 20 3D 20 43 4F 55 4E 54 45 52 20 54 4F 20 44 |C = COUNTER TO D|
000001D0: 45 54 45 52 4D 49 4E 45 20 49 46 20 42 59 54 45 |ETERMINE IF BYTE|
000001E0: 20 52 45 41 44 20 46 52 4F 4D 20 44 41 54 41 20 | READ FROM DATA |
000001F0: 53 54 41 54 45 4D 45 4E 54 20 49 53 20 41 20 43 |STATEMENT IS A C|
00000200: 48 45 43 4B 53 55 4D 00 31 14 2D 00 8F 20 53 55 |HECKSUM.1.-.. SU|
00000210: 20 3D 20 53 55 4D 20 55 53 45 44 20 54 4F 20 44 | = SUM USED TO D|
00000220: 45 54 45 52 4D 49 4E 45 20 43 48 45 43 4B 53 55 |ETERMINE CHECKSU|
00000230: 4D 00 5E 14 32 00 8F 20 43 48 20 3D 20 43 48 45 |M.^.2.. CH = CHE|
00000240: 43 4B 53 55 4D 20 52 45 41 44 20 46 52 4F 4D 20 |CKSUM READ FROM |
00000250: 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 00 86 |DATA STATEMENT..|
00000260: 14 37 00 8F 20 42 20 3D 20 42 59 54 45 20 52 45 |.7.. B = BYTE RE|
00000270: 41 44 20 46 52 4F 4D 20 44 41 54 41 20 53 54 41 |AD FROM DATA STA|
00000280: 54 45 4D 45 4E 54 00 8C 14 60 00 8F 00 94 14 61 |TEMENT...`.....a|
00000290: 00 8F 2A 2A 00 D4 14 62 00 8F 2A 2A 2A 20 43 41 |..**...b..*** CA|
000002A0: 4C 43 55 4C 41 54 45 20 54 4F 50 20 4F 46 20 4D |LCULATE TOP OF M|
000002B0: 45 4D 4F 52 59 20 41 4E 44 20 52 45 53 45 52 56 |EMORY AND RESERV|
000002C0: 45 20 4D 45 4D 4F 52 59 20 46 4F 52 20 53 54 52 |E MEMORY FOR STR|
000002D0: 49 4E 47 53 00 DC 14 63 00 8F 2A 2A 00 F6 14 64 |INGS...c..**...d|
000002E0: 00 54 20 B2 20 C2 28 35 35 29 20 AA 20 32 35 36 |.T . .(55) . 256|
000002F0: AC C2 28 35 36 29 00 08 15 6E 00 97 20 35 36 2C |..(56)...n.. 56,|
00000300: 20 C2 28 34 36 29 AA 32 00 18 15 78 00 97 20 35 | .(46).2...x.. 5|
00000310: 32 2C 20 C2 28 35 36 29 00 31 15 82 00 99 20 22 |2, .(56).1.... "|
00000320: 93 46 55 4E 43 54 49 4F 4E 20 4B 45 59 53 22 3A |.FUNCTION KEYS":|
00000330: 99 00 37 15 C4 00 8F 00 3F 15 C5 00 8F 2A 2A 00 |..7.....?....**.|
00000340: 6A 15 C6 00 8F 2A 2A 2A 20 44 45 46 49 4E 45 20 |j....*** DEFINE |
00000350: 53 54 52 49 4E 47 53 20 41 4E 44 20 50 52 49 4E |STRINGS AND PRIN|
00000360: 54 20 54 48 45 4D 20 4F 55 54 00 72 15 C7 00 8F |T THEM OUT.r....|
00000370: 2A 2A 00 7F 15 C8 00 86 20 46 24 28 31 32 29 00 |**...... F$(12).|
00000380: 93 15 D2 00 46 24 28 31 29 20 B2 20 22 4C 49 53 |....F$(1) . "LIS|
00000390: 54 20 22 00 AC 15 DC 00 46 24 28 32 29 20 B2 20 |T ".....F$(2) . |
000003A0: 22 4C 4F 41 44 22 AA C7 28 33 34 29 00 BE 15 E6 |"LOAD"..(34)....|
000003B0: 00 46 24 28 33 29 20 B2 20 22 52 55 4E 22 00 DC |.F$(3) . "RUN"..|
000003C0: 15 F0 00 46 24 28 34 29 20 B2 20 22 53 41 56 45 |...F$(4) . "SAVE|
000003D0: 22 AA C7 28 33 34 29 AA 22 40 3A 22 00 02 16 FA |"..(34)."@:"....|
000003E0: 00 46 24 28 35 29 20 B2 20 22 50 52 49 4E 54 20 |.F$(5) . "PRINT |
000003F0: 50 45 45 4B 28 20 20 20 20 20 29 9D 9D 9D 9D 9D |PEEK( ).....|
00000400: 9D 22 00 24 16 04 01 46 24 28 36 29 20 B2 20 22 |.".$...F$(6) . "|
00000410: 4F 50 45 4E 20 31 35 2C 38 2C 31 35 2C 22 AA C7 |OPEN 15,8,15,"..|
00000420: 28 33 34 29 00 3F 16 0E 01 46 24 28 37 29 20 B2 |(34).?...F$(7) .|
00000430: 20 22 50 52 49 4E 54 20 46 52 45 28 30 29 22 00 | "PRINT FRE(0)".|
00000440: 56 16 18 01 46 24 28 38 29 20 B2 20 22 43 4C 4F |V...F$(8) . "CLO|
00000450: 53 45 20 31 35 22 00 6A 16 22 01 46 24 28 39 29 |SE 15".j.".F$(9)|
00000460: 20 B2 20 22 47 4F 54 4F 20 22 00 80 16 2C 01 46 | . "GOTO "...,.F|
00000470: 24 28 31 30 29 20 B2 20 22 47 4F 53 55 42 20 22 |$(10) . "GOSUB "|
00000480: 00 96 16 36 01 46 24 28 31 31 29 20 B2 20 22 52 |...6.F$(11) . "R|
00000490: 45 54 55 52 4E 22 00 AB 16 40 01 46 24 28 31 32 |ETURN"...@.F$(12|
000004A0: 29 20 B2 20 22 50 4F 4B 45 20 22 00 BC 16 4A 01 |) . "POKE "...J.|
000004B0: 81 20 49 20 B2 20 31 20 A4 20 31 32 00 E3 16 54 |. I . 1 . 12...T|
000004C0: 01 99 20 22 46 22 20 AA 20 C9 28 C4 28 49 29 2C |.. "F" . .(.(I),|
000004D0: C3 28 C4 28 49 29 29 AB 31 29 20 AA 20 22 20 3D |.(.(I)).1) . " =|
000004E0: 20 22 3B 00 FF 16 59 01 99 20 C7 28 33 34 29 20 | ";...Y.. .(34) |
000004F0: AA 20 46 24 28 49 29 20 AA 20 C7 28 33 34 29 00 |. F$(I) . .(34).|
00000500: 07 17 5E 01 82 20 49 00 0D 17 8C 01 8F 00 15 17 |..^.. I.........|
00000510: 8D 01 8F 2A 2A 00 64 17 8E 01 8F 2A 2A 2A 20 44 |...**.d....*** D|
00000520: 45 54 45 52 4D 49 4E 45 20 53 54 41 52 54 49 4E |ETERMINE STARTIN|
00000530: 47 20 4C 4F 43 41 54 49 4F 4E 53 20 46 4F 52 20 |G LOCATIONS FOR |
00000540: 53 54 52 49 4E 47 53 20 41 4E 44 20 4D 41 43 48 |STRINGS AND MACH|
00000550: 49 4E 45 20 4C 41 4E 47 55 41 47 45 20 50 52 4F |INE LANGUAGE PRO|
00000560: 47 52 41 4D 00 6C 17 8F 01 8F 2A 2A 00 76 17 90 |GRAM.l....**.v..|
00000570: 01 4C 20 B2 20 30 00 87 17 9A 01 81 20 49 20 B2 |.L . 0...... I .|
00000580: 20 31 20 A4 20 31 32 00 9C 17 A4 01 4C 20 B2 20 | 1 . 12.....L . |
00000590: 4C 20 AA 20 C3 28 46 24 28 49 29 29 00 A4 17 AE |L . .(F$(I))....|
000005A0: 01 82 20 49 00 D1 17 B3 01 8B 20 4C 20 B1 20 32 |.. I...... L . 2|
000005B0: 33 31 20 A7 20 99 20 22 12 53 54 52 49 4E 47 53 |31 . . ".STRINGS|
000005C0: 20 54 4F 4F 20 4C 4F 4E 47 22 3A 20 89 20 38 30 | TOO LONG": . 80|
000005D0: 30 00 E2 17 B8 01 53 4D 20 B2 20 54 20 AB 20 31 |0.....SM . T . 1|
000005E0: 33 32 00 F7 17 C2 01 53 53 20 B2 20 54 20 AB 20 |32.....SS . T . |
000005F0: 4C 20 AB 20 31 35 36 00 FD 17 F0 01 8F 00 05 18 |L . 156.........|
00000600: F1 01 8F 2A 2A 00 29 18 F2 01 8F 2A 2A 2A 20 53 |...**.)....*** S|
00000610: 54 4F 52 45 20 53 54 52 49 4E 47 53 20 41 4E 44 |TORE STRINGS AND|
00000620: 20 50 4F 49 4E 54 45 52 53 00 31 18 F3 01 8F 2A | POINTERS.1....*|
00000630: 2A 00 4B 18 F4 01 50 50 20 B2 20 53 53 3A 20 53 |*.K...PP . SS: S|
00000640: 50 20 B2 20 53 53 20 AA 20 31 32 00 6C 18 FE 01 |P . SS . 12.l...|
00000650: 81 20 49 20 B2 20 31 20 A4 20 37 20 A9 20 32 3A |. I . 1 . 7 . 2:|
00000660: 20 8D 20 31 30 30 30 3A 20 82 20 49 00 8D 18 08 | . 1000: . I....|
00000670: 02 81 20 49 20 B2 20 32 20 A4 20 38 20 A9 20 32 |.. I . 2 . 8 . 2|
00000680: 3A 20 8D 20 31 30 30 30 3A 20 82 20 49 00 AB 18 |: . 1000: . I...|
00000690: 12 02 81 20 49 20 B2 20 39 20 A4 20 31 32 3A 20 |... I . 9 . 12: |
000006A0: 8D 20 31 30 30 30 3A 20 82 20 49 00 B1 18 54 02 |. 1000: . I...T.|
000006B0: 8F 00 B9 18 55 02 8F 2A 2A 00 E0 18 56 02 8F 2A |....U..**...V..*|
000006C0: 2A 2A 20 4C 4F 41 44 20 4D 41 43 48 49 4E 45 20 |** LOAD MACHINE |
000006D0: 4C 41 4E 47 55 41 47 45 20 50 52 4F 47 52 41 4D |LANGUAGE PROGRAM|
000006E0: 00 E8 18 57 02 8F 2A 2A 00 FE 18 58 02 81 20 49 |...W..**...X.. I|
000006F0: 20 B2 20 53 4D 20 A4 20 53 4D AA 31 33 31 00 06 | . SM . SM.131..|
00000700: 19 62 02 87 20 42 00 16 19 63 02 53 55 20 B2 20 |.b.. B...c.SU . |
00000710: 53 55 20 AA 20 42 00 24 19 64 02 43 20 B2 20 43 |SU . B.$.d.C . C|
00000720: 20 AA 20 31 00 44 19 65 02 8B 20 43 B3 B1 31 39 | . 1.D.e.. C..19|
00000730: 20 AF 20 49 B3 B1 28 53 4D AA 31 33 31 29 20 A7 | . I..(SM.131) .|
00000740: 20 36 32 30 00 4D 19 66 02 87 20 43 48 00 6E 19 | 620.M.f.. CH.n.|
00000750: 67 02 8B 20 43 48 20 B2 20 53 55 20 A7 20 43 B2 |g.. CH . SU . C.|
00000760: 30 3A 20 53 55 B2 30 3A 20 89 20 36 32 30 00 8F |0: SU.0: . 620..|
00000770: 19 68 02 99 3A 20 99 20 22 12 44 41 54 41 20 53 |.h..: . ".DATA S|
00000780: 54 41 54 45 4D 45 4E 54 20 45 52 52 4F 52 22 00 |TATEMENT ERROR".|
00000790: B3 19 69 02 99 20 22 12 49 4E 20 4C 49 4E 45 22 |..i.. ".IN LINE"|
000007A0: 3B 20 C2 28 36 33 29 20 AA 20 32 35 36 AC C2 28 |; .(63) . 256..(|
000007B0: 36 34 29 00 BD 19 6A 02 89 20 38 30 30 00 C8 19 |64)...j.. 800...|
000007C0: 6C 02 97 20 49 2C 20 42 00 D0 19 76 02 82 20 49 |l.. I, B...v.. I|
000007D0: 00 D6 19 B8 02 8F 00 DE 19 B9 02 8F 2A 2A 00 0A |............**..|
000007E0: 1A BA 02 8F 2A 2A 2A 20 53 45 54 55 50 20 46 4F |....*** SETUP FO|
000007F0: 52 20 4D 41 43 48 49 4E 45 20 4C 41 4E 47 55 41 |R MACHINE LANGUA|
00000800: 47 45 20 50 52 4F 47 52 41 4D 00 12 1A BB 02 8F |GE PROGRAM......|
00000810: 2A 2A 00 24 1A BC 02 97 20 32 35 30 2C 20 53 4D |**.$.... 250, SM|
00000820: AD 32 35 36 00 3D 1A C6 02 97 20 32 34 39 2C 20 |.256.=.... 249, |
00000830: 53 4D AB 32 35 36 AC C2 28 32 35 30 29 00 4B 1A |SM.256..(250).K.|
00000840: CB 02 97 20 32 34 38 2C 20 37 36 00 5D 1A D0 02 |... 248, 76.]...|
00000850: 97 20 32 35 32 2C 20 53 53 AD 32 35 36 00 76 1A |. 252, SS.256.v.|
00000860: DA 02 97 20 32 35 31 2C 20 53 53 AB 32 35 36 AC |... 251, SS.256.|
00000870: C2 28 32 35 32 29 00 83 1A E4 02 97 20 36 34 39 |.(252)...... 649|
00000880: 2C 20 39 00 A2 1A EE 02 97 20 35 35 2C 20 C2 28 |, 9...... 55, .(|
00000890: 32 35 31 29 3A 20 97 20 35 36 2C 20 C2 28 32 35 |251): . 56, .(25|
000008A0: 32 29 00 C1 1A F8 02 97 20 35 31 2C 20 C2 28 32 |2)...... 51, .(2|
000008B0: 35 31 29 3A 20 97 20 35 32 2C 20 C2 28 32 35 32 |51): . 52, .(252|
000008C0: 29 00 D4 1A F9 02 97 20 54 AB 31 33 2C 20 C2 28 |)...... T.13, .(|
000008D0: 37 38 39 29 00 E7 1A FA 02 97 20 54 AB 31 34 2C |789)...... T.14,|
000008E0: 20 C2 28 37 38 38 29 00 F1 1A 02 03 9E 20 32 34 | .(788)...... 24|
000008F0: 38 00 F7 1A 0C 03 A2 00 FD 1A 1C 03 8F 00 05 1B |8...............|
00000900: 1D 03 8F 2A 2A 00 42 1B 1E 03 8F 2A 2A 2A 20 52 |...**.B....*** R|
00000910: 45 53 54 4F 52 45 20 54 48 45 20 41 43 54 55 41 |ESTORE THE ACTUA|
00000920: 4C 20 54 4F 50 20 4F 46 20 4D 45 4D 4F 52 59 20 |L TOP OF MEMORY |
00000930: 49 46 20 41 4E 20 45 52 52 4F 52 20 4F 43 43 4F |IF AN ERROR OCCO|
00000940: 52 53 00 4A 1B 1F 03 8F 2A 2A 00 5A 1B 20 03 97 |RS.J....**.Z. ..|
00000950: 20 35 36 2C 20 54 AD 32 35 36 00 72 1B 2A 03 97 | 56, T.256.r.*..|
00000960: 20 35 35 2C 20 54 20 AB 20 32 35 36 AC C2 28 35 | 55, T . 256..(5|
00000970: 36 29 00 78 1B 34 03 80 00 7E 1B E4 03 8F 00 86 |6).x.4...~......|
00000980: 1B E5 03 8F 2A 2A 00 B5 1B E6 03 8F 2A 2A 2A 20 |....**......*** |
00000990: 53 55 42 52 4F 55 54 49 4E 45 20 54 4F 20 53 54 |SUBROUTINE TO ST|
000009A0: 4F 52 45 20 53 54 52 49 4E 47 53 20 46 4F 52 20 |ORE STRINGS FOR |
000009B0: 46 24 28 49 29 00 BD 1B E7 03 8F 2A 2A 00 D8 1B |F$(I)......**...|
000009C0: E8 03 97 20 50 50 2C 20 53 50 AB 53 53 3A 20 50 |... PP, SP.SS: P|
000009D0: 50 20 B2 20 50 50 AA 31 00 F0 1B ED 03 8B 20 46 |P . PP.1...... F|
000009E0: 24 28 49 29 20 B2 20 22 22 20 A7 20 31 30 36 30 |$(I) . "" . 1060|
000009F0: 00 07 1C F2 03 81 20 4A 20 B2 20 31 20 A4 20 C3 |...... J . 1 . .|
00000A00: 28 46 24 28 49 29 29 00 21 1C 06 04 97 20 53 50 |(F$(I)).!.... SP|
00000A10: 2C 20 C6 28 CA 28 46 24 28 49 29 2C 4A 2C 31 29 |, .(.(F$(I),J,1)|
00000A20: 29 00 2F 1C 10 04 53 50 20 B2 20 53 50 AA 31 00 |)./...SP . SP.1.|
00000A30: 37 1C 1A 04 82 20 4A 00 43 1C 24 04 97 20 53 50 |7.... J.C.$.. SP|
00000A40: 2C 20 30 00 53 1C 2E 04 53 50 20 B2 20 53 50 20 |, 0.S...SP . SP |
00000A50: AA 20 31 00 59 1C 38 04 8E 00 5F 1C 24 23 8F 00 |. 1.Y.8..._.$#..|
00000A60: 67 1C 25 23 8F 2A 2A 00 92 1C 26 23 8F 2A 2A 2A |g.%#.**...&#.***|
00000A70: 20 44 41 54 41 20 46 4F 52 20 4D 41 43 48 49 4E | DATA FOR MACHIN|
00000A80: 45 20 4C 41 4E 47 55 41 47 45 20 50 52 4F 47 52 |E LANGUAGE PROGR|
00000A90: 41 4D 00 9A 1C 27 23 8F 2A 2A 00 E3 1C 28 23 83 |AM...'#.**...(#.|
00000AA0: 31 32 30 2C 31 36 35 2C 32 35 30 2C 31 34 31 2C |120,165,250,141,|
00000AB0: 32 31 2C 33 2C 31 36 35 2C 32 34 39 2C 32 34 2C |21,3,165,249,24,|
00000AC0: 31 30 35 2C 32 31 2C 31 34 34 2C 33 2C 32 33 38 |105,21,144,3,238|
00000AD0: 2C 32 31 2C 33 2C 31 34 31 2C 32 30 2C 33 2C 31 |,21,3,141,20,3,1|
00000AE0: 38 33 37 00 31 1D 32 23 83 38 38 2C 39 36 2C 31 |837.1.2#.88,96,1|
00000AF0: 36 35 2C 31 39 38 2C 32 30 38 2C 39 32 2C 31 36 |65,198,208,92,16|
00000B00: 35 2C 32 35 34 2C 32 34 30 2C 39 31 2C 31 36 39 |5,254,240,91,169|
00000B10: 2C 30 2C 31 33 33 2C 32 35 34 2C 31 36 34 2C 32 |,0,133,254,164,2|
00000B20: 35 33 2C 32 34 2C 31 34 34 2C 35 36 2C 32 37 39 |53,24,144,56,279|
00000B30: 34 00 7B 1D 3C 23 83 32 30 31 2C 36 2C 32 34 30 |4.{.<#.201,6,240|
00000B40: 2C 31 37 2C 32 30 32 2C 32 30 31 2C 35 2C 32 34 |,17,202,201,5,24|
00000B50: 30 2C 31 32 2C 32 30 32 2C 32 30 31 2C 34 2C 32 |0,12,202,201,4,2|
00000B60: 34 30 2C 37 2C 31 36 39 2C 32 35 35 2C 31 34 31 |40,7,169,255,141|
00000B70: 2C 31 32 38 2C 32 2C 32 34 37 33 00 C1 1D 46 23 |,128,2,2473...F#|
00000B80: 83 34 38 2C 35 38 2C 31 33 34 2C 32 35 33 2C 31 |.48,58,134,253,1|
00000B90: 36 32 2C 30 2C 31 37 33 2C 31 34 31 2C 32 2C 32 |62,0,173,141,2,2|
00000BA0: 30 31 2C 31 2C 32 30 38 2C 32 2C 31 36 32 2C 34 |01,1,208,2,162,4|
00000BB0: 2C 32 30 31 2C 32 2C 32 30 38 2C 32 2C 31 39 36 |,201,2,208,2,196|
00000BC0: 32 00 0F 1E 50 23 83 31 36 32 2C 38 2C 31 33 38 |2...P#.162,8,138|
00000BD0: 2C 32 34 2C 31 30 31 2C 32 35 33 2C 32 30 35 2C |,24,101,253,205,|
00000BE0: 31 32 38 2C 32 2C 32 34 30 2C 33 30 2C 31 34 31 |128,2,240,30,141|
00000BF0: 2C 31 32 38 2C 32 2C 31 36 38 2C 31 37 37 2C 32 |,128,2,168,177,2|
00000C00: 35 31 2C 31 36 38 2C 31 36 32 2C 32 34 38 38 00 |51,168,162,2488.|
00000C10: 5E 1E 5A 23 83 30 2C 31 37 37 2C 32 35 31 2C 32 |^.Z#.0,177,251,2|
00000C20: 34 30 2C 31 37 2C 31 35 37 2C 31 31 39 2C 32 2C |40,17,157,119,2,|
00000C30: 32 30 30 2C 32 33 32 2C 31 33 34 2C 31 39 38 2C |200,232,134,198,|
00000C40: 32 32 34 2C 39 2C 32 30 38 2C 32 34 31 2C 31 33 |224,9,208,241,13|
00000C50: 32 2C 32 35 33 2C 31 36 39 2C 32 39 36 33 00 A7 |2,253,169,2963..|
00000C60: 1E 64 23 83 31 2C 31 33 33 2C 32 35 34 2C 37 36 |.d#.1,133,254,76|
00000C70: 2C 34 39 2C 32 33 34 2C 31 36 32 2C 33 2C 31 36 |,49,234,162,3,16|
00000C80: 35 2C 31 39 37 2C 32 30 31 2C 33 2C 32 34 30 2C |5,197,201,3,240,|
00000C90: 31 38 37 2C 32 30 32 2C 32 34 2C 31 34 34 2C 31 |187,202,24,144,1|
00000CA0: 36 32 2C 32 34 33 37 00 00 00 |62,2437... |
....... FUNCTION KEYS.2.... COMMODORE
64 VERSION.8.....O.... BY JOHN TANZINI.
F.... AND RON MINDZAK.L.....R.....Z....
**......*** VARIABLE LIST......**......
T = ACTUAL TOP OF MEMORY...... L = TOTAL
LENGTH OF ALL STRINGS DEFINED FOR FUNCT
ION KEYS.%.... SM = START OF MACHINE LAN
GUAGE PROGRAM.[.... SS = START OF STRING
S DEFINED FOR FUNCTION KEYS...... PP = P
OINTER TO STRING POINTERS...#.. SP = POI
NTER TO STRINGS DURING LOADING OF STRING
S...(.. C = COUNTER TO DETERMINE IF BYTE
READ FROM DATA STATEMENT IS A CHECKSUM.
1.-.. SU = SUM USED TO DETERMINE CHECKSU
M.^.2.. CH = CHECKSUM READ FROM DATA STA
TEMENT...7.. B = BYTE READ FROM DATA STA
TEMENT...`.....A..**.T.B..*** CALCULATE
TOP OF MEMORY AND RESERVE MEMORY FOR STR
INGS...C..**...D.T . B(55) . 256.B(56)..
.N.. 56, B(46).2...X.. 52, B(56).1.... "
.FUNCTION KEYS":..7.D...?.E..**.J.F..***
DEFINE STRINGS AND PRINT THEM OUT.R.G..
**..H.. F$(12)...R.F$(1) . "LIST ".....
F$(2) . "LOAD".G(34).....F$(3) . "RUN"..
...F$(4) . "SAVE".G(34)."@:".....F$(5) .
"PRINT PEEK( )......".$...F$(6) . "
OPEN 15,8,15,".G(34).?...F$(7) . "PRINT
FRE(0)".V...F$(8) . "CLOSE 15".J.".F$(9)
. "GOTO "...,.F$(10) . "GOSUB "...6.F$(
11) . "RETURN"...@.F$(12) . "POKE "...J.
. I . 1 . 12...T.. "F" . I(D(I),C(D(I)).
1) . " = ";...Y.. G(34) . F$(I) . G(34).
..^.. I............**.D....*** DETERMINE
STARTING LOCATIONS FOR STRINGS AND MACH
INE LANGUAGE PROGRAM.L....**.V...L . 0..
.... I . 1 . 12.....L . L . C(F$(I))....
.. I.Q.... L . 231 . . ".STRINGS TOO LON
G": . 800.....SM . T . 132...B.SS . T .
L . 156............**.)....*** STORE STR
INGS AND POINTERS.1....**.K...PP . SS: S
P . SS . 12.L.... I . 1 . 7 . 2: . 1000:
. I...... I . 2 . 8 . 2: . 1000: . I...
... I . 9 . 12: . 1000: . I...T.....U..*
*...V..*** LOAD MACHINE LANGUAGE PROGRAM
...W..**...X.. I . SM . SM.131...B.. B..
.C.SU . SU . B.$.D.C . C . 1.D.E.. C..19
. I..(SM.131) . 620.M.F.. CH.N.G.. CH .
SU . C.0: SU.0: . 620...H..: . ".DATA S
TATEMENT ERROR"...I.. ".IN LINE"; B(63)
. 256.B(64)...J.. 800.H.L.. I, B.P.V.. I
.V..........**......*** SETUP FOR MACHIN
E LANGUAGE PROGRAM......**.$.... 250, SM
.256.=.F.. 249, SM.256.B(250).K.K.. 248,
76.].P.. 252, SS.256.V.Z.. 251, SS.256.
B(252)...... 649, 9...... 55, B(251): .
56, B(252).A.... 51, B(251): . 52, B(252
).T.... T.13, B(789)...... T.14, B(788).
..... 248..................**.B....*** R
ESTORE THE ACTUAL TOP OF MEMORY IF AN ER
ROR OCCORS.J....**.Z. .. 56, T.256.R.*..
55, T . 256.B(56).X.4...~..........**..
....*** SUBROUTINE TO STORE STRINGS FOR
F$(I)......**.X.... PP, SP.SS: PP . PP.1
...... F$(I) . "" . 1060...... J . 1 . C
(F$(I)).!.... SP, F(J(F$(I),J,1))./...SP
. SP.1.7.... J.C.$.. SP, 0.S...SP . SP
. 1.Y.8..._.$#..G.%#.**...&#.*** DATA FO
R MACHINE LANGUAGE PROGRAM...'#.**...(#.
120,165,250,141,21,3,165,249,24,105,21,1
44,3,238,21,3,141,20,3,1837.1.2#.88,96,1
65,198,208,92,165,254,240,91,169,0,133,2
54,164,253,24,144,56,2794.{.<#.201,6,240
,17,202,201,5,240,12,202,201,4,240,7,169
,255,141,128,2,2473.A.F#.48,58,134,253,1
62,0,173,141,2,201,1,208,2,162,4,201,2,2
08,2,1962...P#.162,8,138,24,101,253,205,
128,2,240,30,141,128,2,168,177,251,168,1
62,2488.^.Z#.0,177,251,240,17,157,119,2,
200,232,134,198,224,9,208,241,132,253,16
9,2963...D#.1,133,254,76,49,234,162,3,16
5,197,201,3,240,187,202,24,144,162,2437.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL