> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2F 08 0A 00 99 22 93 20 20 43 2D 36 34 20 |../....". C-64 |
00000010: 4F 44 44 53 20 41 4E 44 20 45 4E 44 53 20 42 59 |ODDS AND ENDS BY|
00000020: 20 4D 49 4B 45 20 4A 2E 20 48 45 4E 52 59 22 00 | MIKE J. HENRY".|
00000030: 5C 08 14 00 99 22 20 20 A3 A3 A3 A3 A3 A3 A3 A3 |\...." ........|
00000040: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000050: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 7C 08 1E |...........".|..|
00000060: 00 99 22 11 57 41 52 4D 20 53 54 41 52 54 3A 20 |..".WARM START: |
00000070: 20 53 59 53 28 36 34 37 33 38 29 22 00 C1 08 28 | SYS(64738)"...(|
00000080: 00 99 22 11 4C 49 53 54 20 54 45 52 4D 49 4E 41 |..".LIST TERMINA|
00000090: 54 4F 52 3A 20 20 50 4F 4B 45 20 37 37 35 2C 32 |TOR: POKE 775,2|
000000A0: 30 30 22 3A 99 A3 31 38 29 22 50 4F 4B 45 20 37 |00":..18)"POKE 7|
000000B0: 37 35 2C 31 36 37 20 28 52 45 53 54 4F 52 45 29 |75,167 (RESTORE)|
000000C0: 22 00 08 09 32 00 99 22 53 54 4F 50 20 4B 45 59 |"...2.."STOP KEY|
000000D0: 3A 20 20 50 4F 4B 45 20 38 30 38 2C 32 33 39 20 |: POKE 808,239 |
000000E0: 20 28 44 49 53 41 42 4C 45 29 22 3A 99 A3 31 31 | (DISABLE)":..11|
000000F0: 29 22 50 4F 4B 45 20 38 30 38 2C 32 33 37 20 20 |)"POKE 808,237 |
00000100: 28 45 4E 41 42 4C 45 29 00 50 09 3C 00 99 22 11 |(ENABLE).P.<..".|
00000110: 53 54 4F 50 2F 52 45 53 54 4F 52 45 20 4B 45 59 |STOP/RESTORE KEY|
00000120: 3A 20 20 50 4F 4B 45 20 38 30 38 2C 32 32 35 20 |: POKE 808,225 |
00000130: 20 28 4F 46 46 29 22 3A 99 A3 31 39 29 22 50 4F | (OFF)":..19)"PO|
00000140: 4B 45 20 38 30 38 2C 32 33 37 20 20 28 4F 4E 29 |KE 808,237 (ON)|
00000150: 00 97 09 46 00 99 22 11 4B 45 59 42 4F 41 52 44 |...F..".KEYBOARD|
00000160: 3A 20 20 50 4F 4B 45 20 36 34 39 2C 30 20 20 20 |: POKE 649,0 |
00000170: 28 44 49 53 41 42 4C 45 29 22 3A 99 A3 31 31 29 |(DISABLE)":..11)|
00000180: 22 50 4F 4B 45 20 36 34 39 2C 31 30 20 20 28 45 |"POKE 649,10 (E|
00000190: 4E 41 42 4C 45 29 22 00 C3 09 50 00 99 22 11 11 |NABLE)"...P.."..|
000001A0: 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 | PRESS ANY KEY |
000001B0: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A 97 31 39 |TO CONTINUE":.19|
000001C0: 38 2C 30 00 D5 09 5A 00 A1 41 24 3A 8B 41 24 B2 |8,0...Z..A$:.A$.|
000001D0: 22 22 A7 39 30 00 19 0A 64 00 99 22 93 20 20 20 |"".90...d..". |
000001E0: 4D 41 47 49 43 20 4D 45 52 47 45 22 3A 99 22 11 |MAGIC MERGE":.".|
000001F0: 20 54 4F 20 50 52 45 50 41 52 45 20 54 48 45 20 | TO PREPARE THE |
00000200: 4C 49 4E 45 53 20 59 4F 55 20 57 41 4E 54 20 54 |LINES YOU WANT T|
00000210: 4F 20 4D 45 52 47 45 3A 22 00 42 0A 6E 00 99 22 |O MERGE:".B.n.."|
00000220: 31 2E 20 49 4E 53 45 52 54 20 41 20 42 4C 41 4E |1. INSERT A BLAN|
00000230: 4B 20 54 41 50 45 20 54 48 45 4E 20 54 59 50 45 |K TAPE THEN TYPE|
00000240: 3A 22 00 79 0A 78 00 99 22 11 20 20 20 20 4F 50 |:".y.x..". OP|
00000250: 45 4E 31 2C 31 2C 31 2C 22 C7 28 33 34 29 22 50 |EN1,1,1,".(34)"P|
00000260: 52 4F 47 4E 41 4D 45 22 C7 28 33 34 29 22 3A 43 |ROGNAME".(34)":C|
00000270: 4D 44 31 3A 4C 49 53 54 22 00 A8 0A 82 00 99 22 |MD1:LIST"......"|
00000280: 20 20 28 50 52 4F 47 4E 41 4D 45 20 49 53 20 41 | (PROGNAME IS A|
00000290: 20 4E 41 4D 45 20 46 4F 52 20 59 4F 55 52 20 50 | NAME FOR YOUR P|
000002A0: 52 4F 47 52 41 4D 29 22 00 D2 0A 8C 00 99 22 32 |ROGRAM)"......"2|
000002B0: 2E 20 57 48 45 4E 20 54 48 45 20 54 41 50 45 20 |. WHEN THE TAPE |
000002C0: 53 54 4F 50 53 20 41 4E 44 20 27 52 45 41 44 59 |STOPS AND 'READY|
000002D0: 27 22 00 FF 0A 96 00 99 22 20 20 43 4F 4D 45 53 |'"......" COMES|
000002E0: 20 42 41 43 4B 2C 20 45 4E 54 45 52 3A 20 20 20 | BACK, ENTER: |
000002F0: 50 52 49 4E 54 23 31 3A 43 4C 4F 53 45 31 22 00 |PRINT#1:CLOSE1".|
00000300: 2A 0B A0 00 99 22 33 2E 20 41 46 54 45 52 20 54 |*...."3. AFTER T|
00000310: 48 45 20 54 41 50 45 20 53 54 4F 50 53 2C 20 52 |HE TAPE STOPS, R|
00000320: 45 4D 4F 56 45 20 49 54 2E 22 00 57 0B AA 00 99 |EMOVE IT.".W....|
00000330: 22 11 20 20 54 4F 20 4D 45 52 47 45 20 57 49 54 |". TO MERGE WIT|
00000340: 48 20 41 20 50 52 4F 47 52 41 4D 20 49 4E 20 4D |H A PROGRAM IN M|
00000350: 45 4D 4F 52 59 3A 22 00 85 0B B4 00 99 22 31 2E |EMORY:"......"1.|
00000360: 20 50 55 54 20 54 48 45 20 27 4D 45 52 47 45 20 | PUT THE 'MERGE |
00000370: 54 41 50 45 27 20 49 4E 20 54 48 45 20 50 4C 41 |TAPE' IN THE PLA|
00000380: 59 45 52 2E 22 00 A8 0B BE 00 99 22 32 2E 20 45 |YER."......"2. E|
00000390: 4E 54 45 52 3A 20 20 50 4F 4B 45 20 31 39 2C 31 |NTER: POKE 19,1|
000003A0: 3A 4F 50 45 4E 20 31 22 00 D6 0B C8 00 99 22 33 |:OPEN 1"......"3|
000003B0: 2E 20 41 46 54 45 52 20 27 52 45 41 44 59 27 20 |. AFTER 'READY' |
000003C0: 43 4F 4D 45 53 20 42 41 43 4B 2C 20 43 4C 45 41 |COMES BACK, CLEA|
000003D0: 52 20 54 48 45 22 00 F4 0B D2 00 99 22 20 20 53 |R THE"......" S|
000003E0: 43 52 45 45 4E 20 28 53 48 49 46 54 2D 48 4F 4D |CREEN (SHIFT-HOM|
000003F0: 45 29 2E 22 00 20 0C DC 00 99 22 34 2E 20 50 52 |E).". ...."4. PR|
00000400: 45 53 53 20 45 58 41 43 54 4C 59 20 54 48 52 45 |ESS EXACTLY THRE|
00000410: 45 20 43 55 52 53 4F 52 2D 44 4F 57 4E 53 2E 22 |E CURSOR-DOWNS."|
00000420: 00 5C 0C E6 00 99 22 35 2E 20 45 4E 54 45 52 3A |.\...."5. ENTER:|
00000430: 22 3A 99 22 43 48 52 24 28 31 39 29 3A 50 4F 4B |":."CHR$(19):POK|
00000440: 45 31 39 38 2C 31 3A 50 4F 4B 45 36 33 31 2C 31 |E198,1:POKE631,1|
00000450: 33 3A 50 4F 4B 45 31 35 33 2C 31 22 00 90 0C F0 |3:POKE153,1"....|
00000460: 00 99 22 36 2E 20 54 48 45 20 54 41 50 45 20 57 |.."6. THE TAPE W|
00000470: 49 4C 4C 20 46 49 4E 41 4C 4C 59 20 53 54 4F 50 |ILL FINALLY STOP|
00000480: 20 57 49 54 48 20 41 4E 22 3A 97 31 39 38 2C 30 | WITH AN":.198,0|
00000490: 00 DA 0C FA 00 99 22 45 52 52 4F 52 2C 20 45 4E |......"ERROR, EN|
000004A0: 54 45 52 20 27 43 4C 4F 53 45 20 31 27 2E 22 3A |TER 'CLOSE 1'.":|
000004B0: 99 22 37 2E 20 54 48 45 20 4C 49 4E 45 53 20 41 |."7. THE LINES A|
000004C0: 52 45 20 4E 4F 57 20 4D 45 52 47 45 44 2C 20 4D |RE NOW MERGED, M|
000004D0: 41 47 49 43 41 4C 4C 59 2E 22 00 ED 0C 04 01 A1 |AGICALLY."......|
000004E0: 41 24 3A 8B 41 24 B2 22 22 A7 32 36 30 00 00 00 |A$:.A$."".260...|
../....". C-64 ODDS AND ENDS BY MIKE J.
HENRY".\...." ........................
...........".|....".WARM START: SYS(647
38)".A.(..".LIST TERMINATOR: POKE 775,2
00":..18)"POKE 775,167 (RESTORE)"...2.."
STOP KEY: POKE 808,239 (DISABLE)":..11
)"POKE 808,237 (ENABLE).P.<..".STOP/RES
TORE KEY: POKE 808,225 (OFF)":..19)"PO
KE 808,237 (ON)...F..".KEYBOARD: POKE
649,0 (DISABLE)":..11)"POKE 649,10 (E
NABLE)".C.P..".. PRESS ANY KEY TO CONTI
NUE":.198,0.U.Z..A$:.A$."".90...D..".
MAGIC MERGE":.". TO PREPARE THE LINES YO
U WANT TO MERGE:".B.N.."1. INSERT A BLAN
K TAPE THEN TYPE:".Y.X..". OPEN1,1,1,
"G(34)"PROGNAME"G(34)":CMD1:LIST"......"
(PROGNAME IS A NAME FOR YOUR PROGRAM)"
.R...."2. WHEN THE TAPE STOPS AND 'READY
'"......" COMES BACK, ENTER: PRINT#1:
CLOSE1".*. .."3. AFTER THE TAPE STOPS, R
EMOVE IT.".W....". TO MERGE WITH A PROG
RAM IN MEMORY:"......"1. PUT THE 'MERGE
TAPE' IN THE PLAYER."......"2. ENTER: P
OKE 19,1:OPEN 1".V.H.."3. AFTER 'READY'
COMES BACK, CLEAR THE"...R.." SCREEN (S
HIFT-HOME).". ...."4. PRESS EXACTLY THRE
E CURSOR-DOWNS.".\...."5. ENTER:":."CHR$
(19):POKE198,1:POKE631,13:POKE153,1"....
.."6. THE TAPE WILL FINALLY STOP WITH AN
":.198,0.Z...."ERROR, ENTER 'CLOSE 1'.":
."7. THE LINES ARE NOW MERGED, MAGICALLY
."......A$:.A$."".260...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL