00000000: 01 1C 27 1C 64 00 99 20 C7 28 31 34 37 29 2C C7 |..'.d.. .(147),.|
00000010: 28 35 29 3A 97 20 35 33 32 38 30 2C 36 3A 97 20 |(5):. 53280,6:. |
00000020: 35 33 32 38 31 2C 30 00 51 1C 6E 00 99 20 22 49 |53281,0.Q.n.. "I|
00000030: 46 20 59 4F 55 20 48 41 56 45 20 4E 4F 54 20 45 |F YOU HAVE NOT E|
00000040: 4E 54 45 52 45 44 20 59 4F 55 52 20 4E 45 57 20 |NTERED YOUR NEW |
00000050: 22 00 76 1C 78 00 99 20 22 43 48 41 52 41 43 54 |".v.x.. "CHARACT|
00000060: 45 52 20 44 41 54 41 20 41 46 54 45 52 20 54 48 |ER DATA AFTER TH|
00000070: 45 20 52 45 4D 22 00 9D 1C 82 00 99 20 22 53 54 |E REM"...... "ST|
00000080: 41 54 45 4D 45 4E 54 53 20 49 4E 20 54 48 49 53 |ATEMENTS IN THIS|
00000090: 20 50 52 4F 47 52 41 4D 20 59 4F 55 22 00 C6 1C | PROGRAM YOU"...|
000000A0: 8C 00 99 20 22 53 48 4F 55 4C 44 20 53 54 4F 50 |... "SHOULD STOP|
000000B0: 20 4E 4F 57 20 41 4E 44 20 44 4F 20 49 54 20 46 | NOW AND DO IT F|
000000C0: 49 52 53 54 2E 22 00 EF 1C 96 00 99 20 22 4F 54 |IRST."...... "OT|
000000D0: 48 45 52 57 49 53 45 20 48 49 54 20 41 20 4B 45 |HERWISE HIT A KE|
000000E0: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 |Y TO CONTINUE.".|
000000F0: 06 1D A0 00 A1 20 44 24 3A 8B 20 44 24 B2 22 22 |..... D$:. D$.""|
00000100: 20 A7 20 31 36 30 00 13 1D AA 00 99 20 C7 28 31 | . 160...... .(1|
00000110: 34 37 29 00 43 1D B4 00 99 20 22 54 48 49 53 20 |47).C.... "THIS |
00000120: 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 43 52 45 |PROGRAM WILL CRE|
00000130: 41 54 45 20 41 20 50 52 4F 47 52 41 4D 20 46 49 |ATE A PROGRAM FI|
00000140: 4C 45 22 00 6F 1D BE 00 99 20 22 4F 4E 20 59 4F |LE".o.... "ON YO|
00000150: 55 52 20 44 49 53 4B 45 54 54 45 20 54 48 41 54 |UR DISKETTE THAT|
00000160: 20 43 41 4E 20 42 45 20 4C 4F 41 44 45 44 22 00 | CAN BE LOADED".|
00000170: 9A 1D C8 00 99 20 22 57 49 54 48 20 41 20 43 4F |..... "WITH A CO|
00000180: 4D 4D 41 20 38 2C 20 43 4F 4D 4D 41 20 31 20 28 |MMA 8, COMMA 1 (|
00000190: 2C 38 2C 31 29 20 41 4E 44 22 00 C5 1D D2 00 99 |,8,1) AND"......|
000001A0: 20 22 42 45 20 45 58 45 43 55 54 45 44 20 57 49 | "BE EXECUTED WI|
000001B0: 54 48 20 41 20 53 59 53 20 33 32 37 36 38 2E 20 |TH A SYS 32768. |
000001C0: 54 48 49 53 22 00 F5 1D DC 00 99 20 22 50 52 4F |THIS"...... "PRO|
000001D0: 47 52 41 4D 20 49 53 20 55 53 45 46 55 4C 20 42 |GRAM IS USEFUL B|
000001E0: 45 43 41 55 53 45 20 49 54 20 41 4C 4C 4F 57 53 |ECAUSE IT ALLOWS|
000001F0: 20 59 4F 55 22 00 24 1E E6 00 99 20 22 54 4F 20 | YOU".$.... "TO |
00000200: 4D 4F 44 49 46 59 20 4D 4C 20 41 4E 44 20 54 48 |MODIFY ML AND TH|
00000210: 45 4E 20 53 45 4E 44 20 4F 55 54 20 54 48 45 20 |EN SEND OUT THE |
00000220: 4E 45 57 22 00 53 1E F0 00 99 20 22 56 45 52 53 |NEW".S.... "VERS|
00000230: 49 4F 4E 20 54 4F 20 54 48 45 20 44 49 53 4B 20 |ION TO THE DISK |
00000240: 44 52 49 56 45 2E 20 59 4F 55 20 43 41 4E 20 41 |DRIVE. YOU CAN A|
00000250: 44 44 22 00 82 1E FA 00 99 20 22 41 53 20 4D 55 |DD"...... "AS MU|
00000260: 43 48 20 44 41 54 41 20 41 53 20 59 4F 55 20 57 |CH DATA AS YOU W|
00000270: 41 4E 54 20 54 4F 20 54 48 45 20 45 4E 44 20 4F |ANT TO THE END O|
00000280: 46 22 00 B1 1E 04 01 99 20 22 54 48 49 53 20 50 |F"...... "THIS P|
00000290: 52 4F 47 52 41 4D 20 41 4E 44 20 54 48 45 4E 20 |ROGRAM AND THEN |
000002A0: 54 45 4C 4C 20 54 48 45 20 50 52 4F 47 52 41 4D |TELL THE PROGRAM|
000002B0: 22 00 E0 1E 0E 01 99 20 22 48 4F 57 20 4D 41 4E |"...... "HOW MAN|
000002C0: 59 20 43 48 41 52 41 43 54 45 52 53 20 59 4F 55 |Y CHARACTERS YOU|
000002D0: 20 41 52 45 20 4D 4F 44 49 46 59 49 4E 47 2E 22 | ARE MODIFYING."|
000002E0: 00 08 1F 18 01 99 20 22 54 48 45 20 4D 4C 20 50 |...... "THE ML P|
000002F0: 52 4F 44 55 43 45 44 20 57 49 4C 4C 20 43 48 41 |RODUCED WILL CHA|
00000300: 4E 47 45 20 54 48 45 22 00 36 1F 22 01 99 20 22 |NGE THE".6.".. "|
00000310: 40 20 53 59 4D 42 4F 4C 20 41 4E 44 20 54 48 45 |@ SYMBOL AND THE|
00000320: 20 4C 45 54 54 45 52 53 20 46 4F 4C 4C 4F 57 49 | LETTERS FOLLOWI|
00000330: 4E 47 20 49 54 22 00 64 1F 2C 01 99 20 22 28 41 |NG IT".d.,.. "(A|
00000340: 2C 42 2C 45 54 43 2E 2E 2E 29 20 4F 4E 20 55 50 |,B,ETC...) ON UP|
00000350: 20 55 4E 54 49 4C 20 41 4C 4C 20 54 48 45 20 44 | UNTIL ALL THE D|
00000360: 41 54 41 22 00 90 1F 36 01 99 20 22 54 48 41 54 |ATA"...6.. "THAT|
00000370: 20 59 4F 55 20 53 55 50 50 4C 49 45 44 20 48 41 | YOU SUPPLIED HA|
00000380: 53 20 42 45 45 4E 20 50 55 54 20 49 4E 54 4F 22 |S BEEN PUT INTO"|
00000390: 00 A0 1F 40 01 99 20 22 4D 45 4D 4F 52 59 2E 22 |...@.. "MEMORY."|
000003A0: 00 C6 1F 4A 01 85 20 22 4E 41 4D 45 20 4F 46 20 |...J.. "NAME OF |
000003B0: 46 49 4C 45 20 54 4F 20 42 45 20 43 52 45 41 54 |FILE TO BE CREAT|
000003C0: 45 44 22 3B 41 24 00 F3 1F 54 01 99 20 22 45 49 |ED";A$...T.. "EI|
000003D0: 47 48 54 20 4E 55 4D 42 45 52 53 20 41 46 54 45 |GHT NUMBERS AFTE|
000003E0: 52 20 41 20 44 41 54 41 20 53 54 41 54 45 4D 45 |R A DATA STATEME|
000003F0: 4E 54 22 00 11 20 5E 01 99 20 22 4D 41 4B 45 20 |NT".. ^.. "MAKE |
00000400: 55 50 20 4F 4E 45 20 43 48 41 52 41 43 54 45 52 |UP ONE CHARACTER|
00000410: 22 00 30 20 68 01 85 20 22 4E 55 4D 42 45 52 20 |".0 h.. "NUMBER |
00000420: 4F 46 20 43 48 41 52 41 43 54 45 52 53 22 3B 43 |OF CHARACTERS";C|
00000430: 00 56 20 72 01 41 24 B2 C8 28 41 24 2C 31 32 29 |.V r.A$..(A$,12)|
00000440: 3A 9F 20 32 2C 38 2C 32 2C 41 24 AA 22 2E 4F 42 |:. 2,8,2,A$.".OB|
00000450: 4A 2C 50 2C 57 22 00 6E 20 7C 01 98 32 2C C7 28 |J,P,W".n |..2,.(|
00000460: 30 29 3B 3A 98 32 2C C7 28 31 32 38 29 3B 00 86 |0);:.2,.(128);..|
00000470: 20 86 01 81 20 58 B2 20 31 20 A4 20 37 38 AA 43 | ... X. 1 . 78.C|
00000480: AC 38 3A 87 20 41 00 9A 20 90 01 8B 20 41 B3 30 |.8:. A.. ... A.0|
00000490: 20 A7 20 41 B2 43 AC 38 AB 31 00 AF 20 9A 01 98 | . A.C.8.1.. ...|
000004A0: 32 2C C7 28 41 29 3B 3A 82 20 58 3A A0 20 32 00 |2,.(A);:. X:. 2.|
000004B0: D2 20 A4 01 83 20 31 37 33 2C 31 34 2C 32 32 30 |. ... 173,14,220|
000004C0: 2C 34 31 2C 32 35 34 2C 31 34 31 2C 31 34 2C 32 |,41,254,141,14,2|
000004D0: 32 30 00 F6 20 AE 01 83 20 31 36 39 2C 35 31 2C |20.. ... 169,51,|
000004E0: 31 33 33 2C 31 2C 31 36 32 2C 34 37 2C 31 36 30 |133,1,162,47,160|
000004F0: 2C 30 2C 31 33 32 00 1A 21 B8 01 83 20 32 35 31 |,0,132..!... 251|
00000500: 2C 31 33 34 2C 32 35 32 2C 31 36 32 2C 32 30 38 |,134,252,162,208|
00000510: 2C 31 36 30 2C 30 2C 31 33 32 00 3C 21 C2 01 83 |,160,0,132.<!...|
00000520: 20 32 35 33 2C 31 33 34 2C 32 35 34 2C 32 33 30 | 253,134,254,230|
00000530: 2C 32 35 32 2C 31 37 37 2C 32 35 33 00 5E 21 CC |,252,177,253.^!.|
00000540: 01 83 20 31 34 35 2C 32 35 31 2C 32 30 30 2C 32 |.. 145,251,200,2|
00000550: 30 38 2C 32 34 39 2C 32 33 32 2C 32 32 34 00 81 |08,249,232,224..|
00000560: 21 D6 01 83 20 32 31 37 2C 32 30 38 2C 32 34 30 |!... 217,208,240|
00000570: 2C 31 36 39 2C 35 35 2C 31 33 33 2C 31 2C 31 37 |,169,55,133,1,17|
00000580: 33 00 A4 21 E0 01 83 20 31 34 2C 32 32 30 2C 39 |3..!... 14,220,9|
00000590: 2C 31 2C 31 34 31 2C 31 34 2C 32 32 30 2C 31 37 |,1,141,14,220,17|
000005A0: 33 2C 32 34 00 C5 21 EA 01 83 20 32 30 38 2C 34 |3,24..!... 208,4|
000005B0: 31 2C 32 34 30 2C 39 2C 31 32 2C 31 34 31 2C 32 |1,240,9,12,141,2|
000005C0: 34 2C 32 30 38 00 E5 21 F4 01 83 20 31 36 32 2C |4,208..!... 162,|
000005D0: 30 2C 31 38 39 2C 37 38 2C 31 32 38 2C 31 35 37 |0,189,78,128,157|
000005E0: 2C 30 2C 34 38 00 01 22 FE 01 83 20 32 33 32 2C |,0,48.."... 232,|
000005F0: 32 32 34 2C 2D 37 2C 32 30 38 2C 32 34 35 2C 39 |224,-7,208,245,9|
00000600: 36 00 07 22 08 02 8F 00 24 22 12 02 8F 20 43 48 |6.."....$"... CH|
00000610: 41 52 41 43 54 45 52 20 44 41 54 41 20 46 4F 4C |ARACTER DATA FOL|
00000620: 4C 4F 57 53 00 2A 22 1C 02 8F 00 40 22 26 02 83 |LOWS.*"....@"&..|
00000630: 20 32 35 35 2C 31 35 33 2C 31 35 33 2C 32 35 35 | 255,153,153,255|
00000640: 00 56 22 30 02 83 20 32 32 31 2C 31 39 35 2C 32 |.V"0.. 221,195,2|
00000650: 35 35 2C 32 35 35 00 00 00 |55,255... |
..'.D.. G(147),G(5):. 53280,6:. 53281,0.
Q.N.. "IF YOU HAVE NOT ENTERED YOUR NEW
".V.X.. "CHARACTER DATA AFTER THE REM"..
.... "STATEMENTS IN THIS PROGRAM YOU".F.
... "SHOULD STOP NOW AND DO IT FIRST."..
.... "OTHERWISE HIT A KEY TO CONTINUE.".
.. .. D$:. D$."" . 160...... G(147).C...
. "THIS PROGRAM WILL CREATE A PROGRAM FI
LE".O.... "ON YOUR DISKETTE THAT CAN BE
LOADED"...H.. "WITH A COMMA 8, COMMA 1 (
,8,1) AND".E.R.. "BE EXECUTED WITH A SYS
32768. THIS"...... "PROGRAM IS USEFUL B
ECAUSE IT ALLOWS YOU".$.... "TO MODIFY M
L AND THEN SEND OUT THE NEW".S.... "VERS
ION TO THE DISK DRIVE. YOU CAN ADD".....
. "AS MUCH DATA AS YOU WANT TO THE END O
F"...... "THIS PROGRAM AND THEN TELL THE
PROGRAM"...... "HOW MANY CHARACTERS YOU
ARE MODIFYING."...... "THE ML PRODUCED
WILL CHANGE THE".6.".. "@ SYMBOL AND THE
LETTERS FOLLOWING IT".D.,.. "(A,B,ETC..
.) ON UP UNTIL ALL THE DATA"...6.. "THAT
YOU SUPPLIED HAS BEEN PUT INTO". .@.. "
MEMORY.".F.J.. "NAME OF FILE TO BE CREAT
ED";A$...T.. "EIGHT NUMBERS AFTER A DATA
STATEMENT".. ^.. "MAKE UP ONE CHARACTER
".0 H.. "NUMBER OF CHARACTERS";C.V R.A$.
H(A$,12):. 2,8,2,A$.".OBJ,P,W".N |..2,G(
0);:.2,G(128);.. ... X. 1 . 78.C.8:. A..
... A.0 . A.C.8.1.. ...2,G(A);:. X: 2.
R ... 173,14,220,41,254,141,14,220.. ...
169,51,133,1,162,47,160,0,132..!... 251
,134,252,162,208,160,0,132.<!B.. 253,134
,254,230,252,177,253.^!L.. 145,251,200,2
08,249,232,224..!V.. 217,208,240,169,55,
133,1,173..!... 14,220,9,1,141,14,220,17
3,24.E!... 208,41,240,9,12,141,24,208..!
... 162,0,189,78,128,157,0,48.."... 232,
224,-7,208,245,96.."....$"... CHARACTER
DATA FOLLOWS.*"....@"&.. 255,153,153,255
.V"0.. 221,195,255,255...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL