INSTRING
FILE INFORMATION
FILENAME(S): INSTRING
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
f19b7668f81c3a5f0dcaf5bce2ee22868df324e34b337bbe45a3275d8cd2c4a6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | INSTRING | PRG | DuncanTwain | 10 | 11 | DOWNLOAD FILE |
| RANS ISK2 | INSTRING | PRG | DuncanTwain | 10 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 49 4E 53 54 52 49 4E 47 |..).... INSTRING|
00000010: 20 28 43 2E 20 4B 4C 55 45 50 46 45 4C 2C 20 41 | (C. KLUEPFEL, A|
00000020: 50 52 2F 38 35 29 20 20 3A 00 2F 08 01 00 3A 00 |PR/85) :./...:.|
00000030: 4F 08 02 00 8F 20 30 20 53 54 41 54 45 4D 45 4E |O.... 0 STATEMEN|
00000040: 54 53 2C 20 20 31 20 46 55 4E 43 54 49 4F 4E 00 |TS, 1 FUNCTION.|
00000050: 55 08 03 00 3A 00 72 08 04 00 8F 20 4B 45 59 57 |U...:.r.... KEYW|
00000060: 4F 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 |ORD CHARACTERS: |
00000070: 20 36 00 78 08 05 00 3A 00 A0 08 06 00 8F 20 4B | 6.x...:...... K|
00000080: 45 59 57 4F 52 44 20 20 20 20 20 52 4F 55 54 49 |EYWORD ROUTI|
00000090: 4E 45 20 20 4C 49 4E 45 20 20 20 53 45 52 20 23 |NE LINE SER #|
000000A0: 00 C7 08 07 00 8F 20 46 2F 49 4E 53 54 52 28 20 |...... F/INSTR( |
000000B0: 20 20 20 49 4E 53 54 52 20 20 20 20 36 32 31 30 | INSTR 6210|
000000C0: 20 20 20 20 30 38 30 00 CD 08 08 00 3A 00 F4 08 | 080.....:...|
000000D0: 09 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============|
000000E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000F0: 3D 3D 3D 3D 00 FA 08 0A 00 3A 00 14 09 65 02 2E |====.....:...e..|
00000100: C6 20 22 49 4E 53 54 52 22 3A 20 2E 42 59 54 45 |. "INSTR": .BYTE|
00000110: 20 24 41 38 00 25 09 4D 06 2E 57 B0 44 20 49 4E | $A8.%.M..W.D IN|
00000120: 53 54 52 AB 31 00 3A 09 42 18 49 4E 53 54 52 20 |STR.1.:.B.INSTR |
00000130: 4C 44 41 20 23 32 20 20 20 20 00 48 09 44 18 4A |LDA #2 .H.D.J|
00000140: 53 52 20 24 41 33 46 42 00 5D 09 46 18 4A 53 52 |SR $A3FB.].F.JSR|
00000150: 20 24 41 44 39 45 20 20 20 20 20 20 20 00 72 09 | $AD9E .r.|
00000160: 48 18 4A 53 52 20 24 42 36 41 33 20 20 20 20 20 |H.JSR $B6A3 |
00000170: 20 20 00 7D 09 4A 18 53 54 41 20 54 33 00 92 09 | .}.J.STA T3...|
00000180: 4C 18 50 48 41 20 20 20 20 20 20 20 20 20 20 20 |L.PHA |
00000190: 20 20 00 9A 09 4E 18 54 58 41 00 AF 09 50 18 50 | ...N.TXA...P.P|
000001A0: 48 41 20 20 20 20 20 20 20 20 20 20 20 20 20 00 |HA .|
000001B0: B7 09 52 18 54 59 41 00 CC 09 54 18 50 48 41 20 |..R.TYA...T.PHA |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 00 D7 09 56 | ...V|
000001D0: 18 4C 44 41 20 54 33 00 EC 09 58 18 4A 53 52 20 |.LDA T3...X.JSR |
000001E0: 24 42 34 37 44 20 20 20 20 20 20 20 00 01 0A 5A |$B47D ...Z|
000001F0: 18 4A 53 52 20 24 41 45 46 44 20 20 20 20 20 20 |.JSR $AEFD |
00000200: 20 00 16 0A 5C 18 4A 53 52 20 24 41 44 39 45 20 | ...\.JSR $AD9E |
00000210: 20 20 20 20 20 20 00 2B 0A 5E 18 4A 53 52 20 24 | .+.^.JSR $|
00000220: 42 36 41 33 20 20 20 20 20 20 20 00 40 0A 60 18 |B6A3 .@.`.|
00000230: 53 54 58 20 24 32 32 20 20 20 20 20 20 20 20 20 |STX $22 |
00000240: 00 4C 0A 62 18 53 54 59 20 24 32 33 00 61 0A 64 |.L.b.STY $23.a.d|
00000250: 18 53 54 41 20 54 33 20 20 20 20 20 20 20 20 20 |.STA T3 |
00000260: 20 00 69 0A 66 18 50 4C 41 00 7E 0A 68 18 53 54 | .i.f.PLA.~.h.ST|
00000270: 41 20 24 32 35 20 20 20 20 20 20 20 20 20 00 93 |A $25 ..|
00000280: 0A 6A 18 50 4C 41 20 20 20 20 20 20 20 20 20 20 |.j.PLA |
00000290: 20 20 20 00 9F 0A 6C 18 53 54 41 20 24 32 34 00 | ...l.STA $24.|
000002A0: A7 0A 6E 18 50 4C 41 00 BC 0A 70 18 53 54 41 20 |..n.PLA...p.STA |
000002B0: 54 32 20 20 20 20 20 20 20 20 20 20 00 D1 0A 72 |T2 ...r|
000002C0: 18 53 54 41 20 54 34 20 20 20 20 20 20 20 20 20 |.STA T4 |
000002D0: 20 00 DC 0A 74 18 44 45 43 20 54 34 00 F1 0A 76 | ...t.DEC T4...v|
000002E0: 18 4C 44 58 20 23 24 41 46 20 20 20 20 20 20 20 |.LDX #$AF |
000002F0: 20 00 FD 0A 78 18 4A 53 52 20 24 37 39 00 12 0B | ...x.JSR $79...|
00000300: 7A 18 43 4D 50 20 23 22 29 22 20 20 20 20 20 20 |z.CMP #")" |
00000310: 20 20 00 27 0B 7C 18 42 45 51 20 49 4E 53 31 20 | .'.|.BEQ INS1 |
00000320: 20 20 20 20 20 20 20 00 3C 0B 7E 18 4A 53 52 20 | .<.~.JSR |
00000330: 24 41 45 46 44 20 20 20 20 20 20 20 00 51 0B 80 |$AEFD .Q..|
00000340: 18 54 41 58 20 20 20 20 20 20 20 20 20 20 20 20 |.TAX |
00000350: 20 00 66 0B 82 18 4A 53 52 20 24 37 33 20 20 20 | .f...JSR $73 |
00000360: 20 20 20 20 20 20 00 7B 0B 84 18 49 4E 53 31 20 | .{...INS1 |
00000370: 4A 53 52 20 24 41 45 46 37 20 20 00 83 0B 86 18 |JSR $AEF7 .....|
00000380: 53 45 43 00 98 0B 88 18 4C 44 41 20 54 32 20 20 |SEC.....LDA T2 |
00000390: 20 20 20 20 20 20 20 20 00 A5 0B 8A 18 42 45 51 | .....BEQ|
000003A0: 20 49 4E 53 36 00 BA 0B 8C 18 53 42 43 20 54 33 | INS6.....SBC T3|
000003B0: 20 20 20 20 20 20 20 20 20 20 00 CE 0B 8E 18 52 | .....R|
000003C0: B0 20 54 36 20 20 20 20 20 20 20 20 20 20 00 E3 |. T6 ..|
000003D0: 0B 90 18 54 41 59 20 20 20 20 20 20 20 20 20 20 |...TAY |
000003E0: 20 20 20 00 EE 0B 92 18 4C 44 41 20 54 33 00 03 | .....LDA T3..|
000003F0: 0C 94 18 42 45 51 20 49 4E 53 36 20 20 20 20 20 |...BEQ INS6 |
00000400: 20 20 20 00 0E 0C 96 18 4C 44 41 20 23 30 00 23 | .....LDA #0.#|
00000410: 0C 98 18 53 54 41 20 49 4E 53 43 54 52 20 20 20 |...STA INSCTR |
00000420: 20 20 20 00 31 0C 9A 18 43 50 58 20 23 24 41 46 | .1...CPX #$AF|
00000430: 20 00 3E 0C 9C 18 42 45 51 20 49 4E 53 32 00 4C | .>...BEQ INS2.L|
00000440: 0C 9E 18 43 50 58 20 23 24 42 30 20 00 59 0C A0 |...CPX #$B0 .Y..|
00000450: 18 42 45 51 20 49 4E 53 33 00 67 0C A2 18 43 50 |.BEQ INS3.g...CP|
00000460: 58 20 23 24 41 38 20 00 74 0C A4 18 42 45 51 20 |X #$A8 .t...BEQ |
00000470: 49 4E 53 33 00 89 0C A6 18 4A 4D 50 20 24 41 46 |INS3.....JMP $AF|
00000480: 30 38 20 20 20 20 20 20 20 00 9E 0C A8 18 49 4E |08 .....IN|
00000490: 53 32 20 42 49 54 20 54 36 20 20 20 20 20 00 B3 |S2 BIT T6 ..|
000004A0: 0C AA 18 42 50 4C 20 49 4E 53 36 20 20 20 20 20 |...BPL INS6 |
000004B0: 20 20 20 00 C8 0C AC 18 53 54 59 20 54 34 20 20 | .....STY T4 |
000004C0: 20 20 20 20 20 20 20 20 00 DD 0C AE 18 49 4E 53 | .....INS|
000004D0: 33 20 4C 44 59 20 23 30 20 20 20 20 20 00 F3 0C |3 LDY #0 ...|
000004E0: B0 18 49 4E 53 34 20 4C 44 41 20 28 24 32 34 29 |..INS4 LDA ($24)|
000004F0: 2C 59 20 00 08 0D B2 18 43 50 58 20 23 24 41 46 |,Y .....CPX #$AF|
00000500: 20 20 20 20 20 20 20 20 00 15 0D B4 18 42 4E 45 | .....BNE|
00000510: 20 49 4E 53 39 00 2A 0D B6 18 43 4D 50 20 28 24 | INS9.*...CMP ($|
00000520: 32 32 29 2C 59 20 20 20 20 20 00 3F 0D B8 18 42 |22),Y .?...B|
00000530: 4E 45 20 49 4E 53 37 20 20 20 20 20 20 20 20 00 |NE INS7 .|
00000540: 54 0D BA 18 49 4E 59 20 20 20 20 20 20 20 20 20 |T...INY |
00000550: 20 20 20 20 00 69 0D BC 18 43 50 59 20 54 33 20 | .i...CPY T3 |
00000560: 20 20 20 20 20 20 20 20 20 00 7E 0D BE 18 42 4E | .~...BN|
00000570: 45 20 49 4E 53 34 20 20 20 20 20 20 20 20 00 93 |E INS4 ..|
00000580: 0D C0 18 49 4E 53 35 20 4C 44 59 20 49 4E 53 43 |...INS5 LDY INSC|
00000590: 54 52 20 00 A8 0D C2 18 2E 42 59 54 45 20 24 32 |TR ......BYTE $2|
000005A0: 43 20 20 20 20 20 20 20 00 BD 0D C4 18 49 4E 53 |C .....INS|
000005B0: 36 20 4C 44 59 20 23 24 46 46 20 20 20 00 C5 0D |6 LDY #$FF ...|
000005C0: C6 18 49 4E 59 00 DA 0D C8 18 4A 4D 50 20 24 42 |..INY.....JMP $B|
000005D0: 33 41 32 20 20 20 20 20 20 20 00 EF 0D CA 18 49 |3A2 .....I|
000005E0: 4E 53 37 20 49 4E 43 20 49 4E 53 43 54 52 20 00 |NS7 INC INSCTR .|
000005F0: 04 0E CC 18 4C 44 41 20 54 34 20 20 20 20 20 20 |....LDA T4 |
00000600: 20 20 20 20 00 19 0E CE 18 43 4D 50 20 49 4E 53 | .....CMP INS|
00000610: 43 54 52 20 20 20 20 20 20 00 26 0E D0 18 42 43 |CTR .&...BC|
00000620: 43 20 49 4E 53 36 00 3B 0E D2 18 49 4E 43 20 24 |C INS6.;...INC $|
00000630: 32 34 20 20 20 20 20 20 20 20 20 00 50 0E D4 18 |24 .P...|
00000640: 42 4E 45 20 49 4E 53 38 20 20 20 20 20 20 20 20 |BNE INS8 |
00000650: 00 5C 0E D6 18 49 4E 43 20 24 32 35 00 71 0E D8 |.\...INC $25.q..|
00000660: 18 49 4E 53 38 20 42 4E 45 20 49 4E 53 33 20 20 |.INS8 BNE INS3 |
00000670: 20 00 86 0E DA 18 49 4E 53 39 20 4C 44 59 20 54 | .....INS9 LDY T|
00000680: 33 20 20 20 20 20 00 9B 0E DC 18 43 50 58 20 23 |3 .....CPX #|
00000690: 24 41 38 20 20 20 20 20 20 20 20 00 A9 0E DE 18 |$A8 .....|
000006A0: 42 45 51 20 49 4E 53 31 31 00 BE 0E E0 18 49 4E |BEQ INS11.....IN|
000006B0: 53 31 30 20 44 45 59 20 20 20 20 20 20 20 00 D3 |S10 DEY ..|
000006C0: 0E E2 18 43 50 59 20 23 24 46 46 20 20 20 20 20 |...CPY #$FF |
000006D0: 20 20 20 00 E8 0E E4 18 42 45 51 20 49 4E 53 37 | .....BEQ INS7|
000006E0: 20 20 20 20 20 20 20 20 00 F8 0E E6 18 43 4D 50 | .....CMP|
000006F0: 20 28 24 32 32 29 2C 59 00 0D 0F E8 18 42 4E 45 | ($22),Y.....BNE|
00000700: 20 49 4E 53 31 30 20 20 20 20 20 20 20 00 22 0F | INS10 .".|
00000710: EA 18 42 45 51 20 49 4E 53 35 20 20 20 20 20 20 |..BEQ INS5 |
00000720: 20 20 00 37 0F EC 18 49 4E 53 31 31 20 44 45 59 | .7...INS11 DEY|
00000730: 20 20 20 20 20 20 20 00 4C 0F EE 18 43 50 59 20 | .L...CPY |
00000740: 23 24 46 46 20 20 20 20 20 20 20 20 00 61 0F F0 |#$FF .a..|
00000750: 18 42 45 51 20 49 4E 53 35 20 20 20 20 20 20 20 |.BEQ INS5 |
00000760: 20 00 71 0F F2 18 43 4D 50 20 28 24 32 32 29 2C | .q...CMP ($22),|
00000770: 59 00 86 0F F4 18 42 4E 45 20 49 4E 53 31 31 20 |Y.....BNE INS11 |
00000780: 20 20 20 20 20 20 00 9B 0F F6 18 42 45 51 20 49 | .....BEQ I|
00000790: 4E 53 37 20 20 20 20 20 20 20 20 00 A1 0F F8 18 |NS7 .....|
000007A0: 3B 00 B6 0F FA 18 49 4E 53 43 54 52 20 2E 42 59 |;.....INSCTR .BY|
000007B0: 54 45 20 30 20 20 00 BC 0F FC 18 3B 00 00 00 |TE 0 .....;... |
..).... INSTRING (C. KLUEPFEL, APR/85)
:./...:.O.... 0 STATEMENTS, 1 FUNCTION.
U...:.R.... KEYWORD CHARACTERS: 6.X...:
. .... KEYWORD ROUTINE LINE SER #
.G.... F/INSTR( INSTR 6210 080.
M...:...... ============================
====.....:...E..F "INSTR": .BYTE $A8.%.M
..W.D INSTR.1.:.B.INSTR LDA #2 .H.D.J
SR $A3FB.].F.JSR $AD9E .R.H.JSR $B
6A3 .}.J.STA T3...L.PHA
...N.TXA...P.PHA ...R.TYA.
L.T.PHA .W.V.LDA T3...X.JSR
$B47D ...Z.JSR $AEFD ...\.JS
R $AD9E .+.^.JSR $B6A3 .@.`.
STX $22 .L.B.STY $23.A.D.STA T3
.I.F.PLA.~.H.STA $25 ..
.J.PLA ...L.STA $24...N.PLA.
..P.STA T2 .Q.R.STA T4
...T.DEC T4...V.LDX #$AF ...X.JS
R $79...Z.CMP #")" .'.|.BEQ INS1
.<.~.JSR $AEFD .Q...TAX
.F...JSR $73 .{...INS1
JSR $AEF7 .....SEC.....LDA T2
.....BEQ INS6.....SBC T3 .N...R
. T6 .....TAY .....
LDA T3.....BEQ INS6 .....LDA #0.#
...STA INSCTR .1...CPX #$AF .>...BE
Q INS2.L...CPX #$B0 .Y. .BEQ INS3.G...CP
X #$A8 .T...BEQ INS3.....JMP $AF08
.....INS2 BIT T6 .....BPL INS6
.H...STY T4 .....INS3 LDY #0
.....INS4 LDA ($24),Y .....CPX #$AF
.....BNE INS9.*...CMP ($22),Y
.?...BNE INS7 .T...INY
.I...CPY T3 .~...BNE INS4
.....INS5 LDY INSCTR ...B..BYTE $2
C ...D.INS6 LDY #$FF .E.F.INY.Z.
H.JMP $B3A2 ...J.INS7 INC INSCTR .
..L.LDA T4 ...N.CMP INSCTR
.&.P.BCC INS6.;.R.INC $24 .P.T.
BNE INS8 .\.V.INC $25.Q.X.INS8 BN
E INS3 ...Z.INS9 LDY T3 .....CPX #
$A8 .....BEQ INS11.....INS10 DEY
.S...CPY #$FF .....BEQ INS7
.....CMP ($22),Y.....BNE INS10
."...BEQ INS5 .7...INS11 DEY
.L...CPY #$FF .A...BEQ INS
5 .Q...CMP ($22),Y.....BNE INS11
.....BEQ INS7 .....;.....IN
SCTR .BYTE 0 .....;...
> CLICK IMAGE PREVIEW FOR FULL MODAL