00000000: 79 04 0F 05 C0 05 00 0A 1F 00 20 53 41 56 45 20 |y......... SAVE |
00000010: 22 40 30 3A 46 49 4E 44 27 53 54 52 49 4E 47 2E |"@0:FIND'STRING.|
00000020: 44 45 4D 4F 22 00 14 04 00 00 1E 1A 00 20 20 20 |DEMO"........ |
00000030: 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...............|
00000040: C0 C0 AE 00 28 1A 00 20 20 20 20 DD 46 49 4E 44 |....(.. .FIND|
00000050: 27 53 54 52 49 4E 47 20 44 45 4D 4F DD 00 32 1E |'STRING DEMO..2.|
00000060: 00 20 B0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |. ..............|
00000070: C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 AE 00 3C 1E 00 20 |............<.. |
00000080: DD 20 20 20 42 59 20 20 4A 45 53 53 45 20 4B 4E |. BY JESSE KN|
00000090: 49 47 48 54 20 20 20 20 DD 00 46 1E 00 20 AB C0 |IGHT ..F.. ..|
000000A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000B0: C0 C0 C0 C0 C0 C0 B3 00 50 1E 00 20 DD 54 48 49 |........P.. .THI|
000000C0: 53 20 55 54 49 4C 49 54 59 20 49 53 20 46 4F 52 |S UTILITY IS FOR|
000000D0: 20 55 53 45 DD 00 5A 1E 00 20 DD 42 59 20 41 44 | USE..Z.. .BY AD|
000000E0: 56 41 4E 43 45 44 20 50 52 4F 47 52 41 4D 4D 45 |VANCED PROGRAMME|
000000F0: 52 53 DD 00 64 1E 00 20 AB C0 C0 C0 C0 C0 C0 C0 |RS..d.. ........|
00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000110: B3 00 6E 1E 00 20 DD 52 45 41 44 20 54 48 45 20 |..n.. .READ THE |
00000120: 52 45 4D 53 20 41 54 20 54 4F 57 41 52 44 DD 00 |REMS AT TOWARD..|
00000130: 78 1E 00 20 DD 54 48 45 20 45 4E 44 20 4F 46 20 |x.. .THE END OF |
00000140: 54 48 45 20 50 52 4F 47 52 41 4D 2E DD 00 82 1E |THE PROGRAM.....|
00000150: 00 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |. ..............|
00000160: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 00 8C 04 00 00 |................|
00000170: 96 10 8C 8F 1C 01 02 00 02 92 02 00 14 93 C5 00 |................|
00000180: A0 0C 8C 8F 1D 00 02 00 14 93 C5 00 AA 1A 0C 1C |................|
00000190: 02 00 01 19 03 0E 41 52 52 41 59 20 53 54 52 49 |......ARRAY STRI|
000001A0: 4E 47 20 31 3C 00 B4 1A 0C 1C 02 00 02 19 03 0E |NG 1<...........|
000001B0: 41 52 52 41 59 20 53 54 52 49 4E 47 20 32 3C 00 |ARRAY STRING 2<.|
000001C0: BE 13 09 1D 03 0B 44 45 4D 4F 20 53 54 52 49 4E |......DEMO STRIN|
000001D0: 47 3C 00 C8 0F 68 0C 1C 02 00 02 13 03 00 2D 6A |G<...h........-j|
000001E0: F4 00 D2 06 7F 15 81 00 DC 06 7F 1E 81 00 E6 0F |................|
000001F0: 68 0C 1C 02 00 01 13 03 00 2D 6A F4 00 F0 06 7F |h........-j.....|
00000200: 15 81 00 FA 06 7F 1E 81 01 04 0B 68 06 1D 03 00 |...........h....|
00000210: 2D 6A F4 01 0E 06 7F 15 81 01 18 06 7F 1E 81 01 |-j..............|
00000220: 22 04 9F 01 2C 09 70 1E EB 8A 00 7B 01 36 1E 5F |"...,.p....{.6._|
00000230: 03 11 53 54 52 49 4E 47 20 53 54 41 52 54 53 20 |..STRING STARTS |
00000240: 41 54 20 65 66 04 13 64 60 61 01 40 20 5F 03 13 |AT ef..d`a.@ _..|
00000250: 44 49 4D 45 4E 53 49 4F 4E 45 44 20 4C 45 4E 47 |DIMENSIONED LENG|
00000260: 54 48 20 65 66 04 10 64 60 61 01 4A 1C 5F 03 0F |TH ef..d`a.J._..|
00000270: 43 55 52 52 45 4E 54 20 4C 45 4E 47 54 48 20 65 |CURRENT LENGTH e|
00000280: 66 04 0F 64 60 61 01 54 1A 5F 03 11 43 55 52 52 |f..d`a.T._..CURR|
00000290: 45 4E 54 20 43 4F 4E 54 45 4E 54 53 3A 65 60 61 |ENT CONTENTS:e`a|
000002A0: 01 5E 13 82 06 D0 8A 02 00 00 84 04 0F 02 00 01 |.^..............|
000002B0: 29 85 87 01 68 0E 5F 04 13 04 06 27 D8 4B 65 66 |)...h._....'.Kef|
000002C0: 61 01 72 07 8A 06 AF 8A 01 7C 06 5F 60 61 01 86 |a.r......|._`a..|
000002D0: 06 5F 60 61 01 90 04 00 01 9A 04 00 01 A4 05 7D |._`a...........}|
000002E0: 1E 01 AE 04 00 01 B8 04 00 01 C2 20 00 20 46 49 |........... . FI|
000002F0: 4E 44 27 53 54 52 49 4E 47 20 42 59 20 4A 45 53 |ND'STRING BY JES|
00000300: 53 45 20 4B 4E 49 47 48 54 01 CC 04 00 01 D6 23 |SE KNIGHT......#|
00000310: 00 20 54 48 49 53 20 50 52 4F 43 45 44 55 52 45 |. THIS PROCEDURE|
00000320: 20 57 49 4C 4C 20 52 45 54 55 52 4E 20 54 48 45 | WILL RETURN THE|
00000330: 01 E0 22 00 20 53 54 41 52 54 49 4E 47 20 41 44 |..". STARTING AD|
00000340: 44 52 45 53 53 2C 20 44 49 4D 45 4E 53 49 4F 4E |DRESS, DIMENSION|
00000350: 45 44 01 EA 22 00 20 4C 45 4E 47 54 48 2C 20 41 |ED..". LENGTH, A|
00000360: 4E 44 20 43 55 52 52 45 4E 54 20 4C 45 4E 47 54 |ND CURRENT LENGT|
00000370: 48 20 4F 46 01 F4 1F 00 20 54 48 45 20 4C 41 53 |H OF.... THE LAS|
00000380: 54 20 52 45 46 45 52 45 4E 43 45 44 20 53 54 52 |T REFERENCED STR|
00000390: 49 4E 47 01 FE 0E 00 20 56 41 52 49 41 42 4C 45 |ING.... VARIABLE|
000003A0: 2E 02 08 04 00 02 12 23 00 20 57 4F 52 4B 53 20 |.......#. WORKS |
000003B0: 4F 4E 20 42 4F 54 48 20 53 43 41 4C 41 52 20 41 |ON BOTH SCALAR A|
000003C0: 4E 44 20 41 52 52 41 59 02 1C 24 00 20 53 54 52 |ND ARRAY..$. STR|
000003D0: 49 4E 47 20 56 41 52 49 41 42 4C 45 53 20 42 55 |ING VARIABLES BU|
000003E0: 54 20 4F 4E 4C 59 20 57 4F 52 4B 53 02 26 24 00 |T ONLY WORKS.&$.|
000003F0: 20 4F 4E 20 41 20 53 49 4E 47 4C 45 20 45 4C 45 | ON A SINGLE ELE|
00000400: 4D 45 4E 54 20 4F 46 20 41 4E 20 41 52 52 41 59 |MENT OF AN ARRAY|
00000410: 02 30 04 00 02 3A 09 70 15 89 8C 00 7B 02 44 0A |.0...:.p....{.D.|
00000420: 07 0B 02 00 33 D8 3A 02 4E 0A 07 0C 02 00 34 D8 |....3.:.N.....4.|
00000430: 3A 02 58 0F 07 0D 04 0C 02 01 00 24 04 0B 27 3A |:.X........$..':|
00000440: 02 62 0C 07 13 04 0D 02 00 04 27 3A 02 6C 15 07 |.b........':.l..|
00000450: 10 04 0D 02 00 01 27 D8 04 0D D8 02 01 00 24 27 |......'.......$'|
00000460: 3A 02 76 19 07 0F 04 0D 02 00 03 27 D8 04 0D 02 |:.v........'....|
00000470: 00 02 27 D8 02 01 00 24 27 3A 02 80 05 7D 15 00 |..'....$':...}..|
00000480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000490: 00 00 00 00 00 00 00 00 10 8F AF 00 00 00 00 00 |................|
000004A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000004B0: 00 10 AD AF 00 00 10 A8 AF 00 00 10 A3 AF 00 00 |................|
000004C0: 00 00 00 00 00 10 94 AF 00 00 10 99 AF 00 00 00 |................|
000004D0: 00 00 00 00 00 00 00 00 00 10 9E AF 00 00 00 00 |................|
000004E0: 00 00 00 14 23 8C 00 00 00 00 00 00 00 00 00 00 |....#...........|
000004F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000500: 00 00 00 00 00 00 92 FA AF 00 00 12 B2 AF 00 00 |................|
00000510: 14 32 8A 00 00 01 41 01 42 01 5A 01 59 02 52 55 |.2....A.B.Z.Y.RU|
00000520: 01 58 01 45 04 54 45 53 54 06 53 54 52 49 4E 47 |.X.E.TEST.STRING|
00000530: 03 54 48 45 08 50 4F 49 4E 54 45 52 31 08 50 4F |.THE.POINTER1.PO|
00000540: 49 4E 54 45 52 32 07 41 44 44 52 45 53 53 0A 44 |INTER2.ADDRESS.D|
00000550: 49 4D 27 4C 45 4E 47 48 54 0E 43 55 52 52 45 4E |IM'LENGHT.CURREN|
00000560: 54 27 4C 45 4E 47 54 48 0A 44 49 4D 27 4C 45 4E |T'LENGTH.DIM'LEN|
00000570: 47 54 48 03 41 44 44 04 52 45 53 53 0C 53 54 52 |GTH.ADD.RESS.STR|
00000580: 49 4E 47 27 53 54 41 52 54 05 46 49 4E 44 27 0B |ING'START.FIND'.|
00000590: 46 49 4E 44 27 53 54 52 49 4E 47 02 50 45 02 45 |FIND'STRING.PE.E|
000005A0: 4B 03 53 45 51 02 45 51 01 51 05 4C 49 53 44 54 |K.SEQ.EQ.Q.LISDT|
000005B0: 05 41 52 52 41 59 04 44 45 4D 4F 09 53 48 4F 57 |.ARRAY.DEMO.SHOW|
000005C0: 27 44 41 54 41 00 00 |'DATA.. |
Y......... SAVE "@0:FIND'STRING.DEMO"...
..... ...................(.. .FIND
'STRING DEMO..2.. ......................
....<.. . BY JESSE KNIGHT ..F.. ..
........................P.. .THIS UTILIT
Y IS FOR USE..Z.. .BY ADVANCED PROGRAMME
RS..D.. ..........................N.. .R
EAD THE REMS AT TOWARD..X.. .THE END OF
THE PROGRAM...... ......................
......................E. .........E.....
......ARRAY STRING 1<...........ARRAY ST
RING 2<.......DEMO STRING<.H.H........-J
..R...........H........-J...........
...H....-J............"...,.P....{.6._
..STRING STARTS AT EF..D`A.@ _..DIMENSIO
NED LENGTH EF..D`A.J._..CURRENT LENGTH E
F..D`A.T._..CURRENT CONTENTS:E`A.^...P..
........)...H._....'XKEFA.R......|._`A..
._`A...........}..........B . FIND'STRIN
G BY JESSE KNIGHT.L...V#. THIS PROCEDURE
WILL RETURN THE..". STARTING ADDRESS, D
IMENSIONED..". LENGTH, AND CURRENT LENGT
H OF.... THE LAST REFERENCED STRING....
VARIABLE.......#. WORKS ON BOTH SCALAR A
ND ARRAY..$. STRING VARIABLES BUT ONLY W
ORKS.&$. ON A SINGLE ELEMENT OF AN ARRAY
.0...:.P....{.D.....3X:.N.....4X:.X.....
...$..':.B........':.L........'X..X...$'
:.V........'X.....'X...$':...}..........
........................................
........................................
............#...........................
.................2....A.B.Z.Y.RU.X.E.TES
T.STRING.THE.POINTER1.POINTER2.ADDRESS.D
IM'LENGHT.CURRENT'LENGTH.DIM'LENGTH.ADD.
RESS.STRING'START.FIND'.FIND'STRING.PE.E
K.SEQ.EQ.Q.LISDT.ARRAY.DEMO.SHOW'DATA..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL