INSTR-DEMO

FILE INFORMATION

FILENAME(S): INSTR-DEMO

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-10-20 14:29:58

APPEARS ON: 2 disk(s)

FILE HASH

fcfd952197da4258a538b57527b2460de5bb1872427cdb79caf202d7603fb752

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MT90499 SEITE 1	INSTR-DEMO	PRG	Treasure Chest - Klaus Der Suhler	10	11	DOWNLOAD FILE
MT90499 SEITE 1	INSTR-DEMO	PRG	DuncanTwain, hedning, Knutsson	10	11	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 26 08 64 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |..&.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 2A 00 4B  08 6E 00 8F 20 2A 20 20  |******.K.n.. *  |
00000030: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000040: 20 20 20 20 20 20 20 20  20 20 2A 00 70 08 78 00  |          *.p.x.|
00000050: 8F 20 2A 20 20 20 45 52  53 41 54 5A 52 4F 55 54  |. *   ERSATZROUT|
00000060: 49 4E 45 20 49 4E 20 42  41 53 49 43 20 20 20 2A  |INE IN BASIC   *|
00000070: 00 95 08 82 00 8F 20 2A  20 20 20 20 20 20 20 20  |...... *        |
00000080: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000090: 20 20 20 20 2A 00 BA 08  8C 00 8F 20 2A 20 46 55  |    *...... * FU|
000000A0: 45 52 20 44 49 45 20 46  45 48 4C 45 4E 44 45 20  |ER DIE FEHLENDE |
000000B0: 46 55 4E 4B 54 49 4F 4E  20 2A 00 DF 08 96 00 8F  |FUNKTION *......|
000000C0: 20 2A 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | *              |
000000D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 2A 00  |              *.|
000000E0: 04 09 A0 00 8F 20 2A 20  20 20 20 20 20 20 49 20  |..... *       I |
000000F0: 4E 20 53 20 54 20 52 20  24 20 20 20 20 20 20 20  |N S T R $       |
00000100: 20 20 20 2A 00 29 09 AA  00 8F 20 2A 20 20 20 20  |   *.).... *    |
00000110: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000120: 20 20 20 20 20 20 20 20  2A 00 4E 09 B4 00 8F 20  |        *.N.... |
00000130: 2A 20 28 47 49 42 54 20  41 55 53 4B 55 4E 46 54  |* (GIBT AUSKUNFT|
00000140: 2C 20 4F 42 20 2D 20 55  4E 44 2C 20 20 2A 00 73  |, OB - UND,  *.s|
00000150: 09 BE 00 8F 20 2A 20 20  20 20 20 20 20 20 20 20  |.... *          |
00000160: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000170: 20 20 2A 00 98 09 C8 00  8F 20 2A 20 20 53 4F 46  |  *...... *  SOF|
00000180: 45 52 4E 20 4A 41 3A 20  57 4F 20 2D 20 45 49 4E  |ERN JA: WO - EIN|
00000190: 20 20 20 20 20 20 20 2A  00 BD 09 D2 00 8F 20 2A  |       *...... *|
000001A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001B0: 20 20 20 20 20 20 20 20  20 20 20 20 2A 00 E2 09  |            *...|
000001C0: DC 00 8F 20 2A 20 20 53  54 52 49 4E 47 20 49 4E  |... *  STRING IN|
000001D0: 20 45 49 4E 45 4D 20 41  4E 44 45 52 45 4E 20 20  | EINEM ANDEREN  |
000001E0: 20 2A 00 07 0A E6 00 8F  20 2A 20 20 20 20 20 20  | *...... *      |
000001F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000200: 20 20 20 20 20 20 2A 00  2C 0A F0 00 8F 20 2A 20  |      *.,.... * |
00000210: 20 45 4E 54 48 41 4C 54  45 4E 20 49 53 54 2F 53  | ENTHALTEN IST/S|
00000220: 45 49 4E 20 4B 41 4E 4E  29 20 20 2A 00 51 0A FA  |EIN KANN)  *.Q..|
00000230: 00 8F 20 2A 20 20 20 20  20 20 20 20 20 20 20 20  |.. *            |
00000240: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000250: 2A 00 76 0A 04 01 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |*.v.... ********|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000270: 2A 2A 2A 2A 2A 2A 00 7C  0A 0E 01 3A 00 82 0A 18  |******.|...:....|
00000280: 01 3A 00 AD 0A 2C 01 89  35 30 30 3A 8F 20 5A 55  |.:...,..500:. ZU|
00000290: 4D 20 44 45 4D 4F 4E 53  54 52 41 54 49 4F 4E 53  |M DEMONSTRATIONS|
000002A0: 54 45 49 4C 20 53 50 52  49 4E 47 45 4E 00 B3 0A  |TEIL SPRINGEN...|
000002B0: 36 01 3A 00 D1 0A 5E 01  8F 20 2A 2A 2A 20 5A 45  |6.:...^.. *** ZE|
000002C0: 49 4C 45 4E 20 34 30 30  2D 34 34 30 3A 20 2A 2A  |ILEN 400-440: **|
000002D0: 2A 00 EF 0A 68 01 8F 20  2A 2A 2A 20 53 55 43 48  |*...h.. *** SUCH|
000002E0: 45 20 56 4F 4E 20 41 24  20 20 20 20 2A 2A 2A 00  |E VON A$    ***.|
000002F0: 0D 0B 72 01 8F 20 2A 2A  2A 20 49 4D 20 53 54 52  |..r.. *** IM STR|
00000300: 49 4E 47 20 41 41 24 20  20 20 2A 2A 2A 00 13 0B  |ING AA$   ***...|
00000310: 7C 01 3A 00 2C 0B 90 01  8B 20 C3 28 41 41 24 29  ||.:.,.... .(AA$)|
00000320: B3 C3 28 41 24 29 A7 49  B2 30 3A 8E 00 44 0B 9A  |..(A$).I.0:..D..|
00000330: 01 81 49 B2 31 A4 C3 28  41 41 24 29 AB C3 28 41  |..I.1..(AA$)..(A|
00000340: 24 29 AA 31 00 5E 0B A4  01 8B CA 28 41 41 24 2C  |$).1.^.....(AA$,|
00000350: 49 2C C3 28 41 24 29 29  B3 B1 41 24 A7 82 00 7B  |I,.(A$))..A$...{|
00000360: 0B AE 01 8B 20 49 B1 C3  28 41 41 24 29 AB C3 28  |.... I..(AA$)..(|
00000370: 41 24 29 AA 31 20 A7 20  49 B2 30 00 81 0B B8 01  |A$).1 . I.0.....|
00000380: 8E 00 87 0B C2 01 3A 00  8D 0B CC 01 3A 00 A5 0B  |......:.....:...|
00000390: F4 01 85 20 22 48 41 55  50 54 53 54 52 49 4E 47  |... "HAUPTSTRING|
000003A0: 22 3B 41 41 24 00 BB 0B  FE 01 85 20 22 54 45 49  |";AA$...... "TEI|
000003B0: 4C 53 54 52 49 4E 47 22  3B 41 24 00 C5 0B 08 02  |LSTRING";A$.....|
000003C0: 8D 20 34 30 30 00 D3 0B  12 02 8B 20 49 20 A7 20  |. 400...... I . |
000003D0: 36 30 30 00 F7 0B 1C 02  99 22 11 44 45 52 20 54  |600......".DER T|
000003E0: 45 49 4C 53 54 52 49 4E  47 20 22 C7 28 33 34 29  |EILSTRING ".(34)|
000003F0: 41 24 C7 28 33 34 29 00  20 0C 26 02 99 22 11 49  |A$.(34). .&..".I|
00000400: 53 54 20 49 4D 20 48 41  55 50 54 53 54 52 49 4E  |ST IM HAUPTSTRIN|
00000410: 47 20 22 C7 28 33 34 29  41 41 24 C7 28 33 34 29  |G ".(34)AA$.(34)|
00000420: 00 3C 0C 30 02 99 22 11  4E 49 43 48 54 20 45 4E  |.<.0..".NICHT EN|
00000430: 54 48 41 4C 54 45 4E 2E  11 11 11 22 00 45 0C 3A  |THALTEN....".E.:|
00000440: 02 89 35 30 30 00 69 0C  58 02 99 22 11 44 45 52  |..500.i.X..".DER|
00000450: 20 54 45 49 4C 53 54 52  49 4E 47 20 22 C7 28 33  | TEILSTRING ".(3|
00000460: 34 29 41 24 C7 28 33 34  29 00 92 0C 62 02 99 22  |4)A$.(34)...b.."|
00000470: 11 49 53 54 20 49 4D 20  48 41 55 50 54 53 54 52  |.IST IM HAUPTSTR|
00000480: 49 4E 47 20 22 C7 28 33  34 29 41 41 24 C7 28 33  |ING ".(34)AA$.(3|
00000490: 34 29 00 BA 0C 6C 02 99  22 11 41 42 20 44 45 52  |4)...l..".AB DER|
000004A0: 20 50 4F 53 49 54 49 4F  4E 22 49 22 45 4E 54 48  | POSITION"I"ENTH|
000004B0: 41 4C 54 45 4E 2E 11 11  11 22 00 C3 0C 76 02 89  |ALTEN...."...v..|
000004C0: 35 30 30 00 00 00                                 |500...          |

..&.D.. ******************************.K
.N.. *                            *.P.X.
. *   ERSATZROUTINE IN BASIC   *...... *
                            *...... * FU
ER DIE FEHLENDE FUNKTION *...... *      
                      *... .. *       I 
N S T R $          *.).... *            
                *.N.... * (GIBT AUSKUNFT
, OB - UND,  *.S.... *                  
          *...H.. *  SOFERN JA: WO - EIN
       *...R.. *                        
    *...... *  STRING IN EINEM ANDEREN  
 *...... *                            *.
,.... *  ENTHALTEN IST/SEIN KANN)  *.Q..
.. *                            *.V.... 
******************************.|...:....
.:...,..500:. ZUM DEMONSTRATIONSTEIL SPR
INGEN...6.:.Q.^.. *** ZEILEN 400-440: **
*...H.. *** SUCHE VON A$    ***...R.. **
* IM STRING AA$   ***...|.:.,.... C(AA$)
.C(A$).I.0:..D....I.1.C(AA$).C(A$).1.^..
..J(AA$,I,C(A$))..A$...{.... I.C(AA$).C(
A$).1 . I.0.........B.:...L.:...... "HAU
PTSTRING";AA$...... "TEILSTRING";A$.E...
. 400.S.... I . 600......".DER TEILSTRIN
G "G(34)A$G(34). .&..".IST IM HAUPTSTRIN
G "G(34)AA$G(34).<.0..".NICHT ENTHALTEN.
...".E.:..500.I.X..".DER TEILSTRING "G(3
4)A$G(34)...B..".IST IM HAUPTSTRING "G(3
4)AA$G(34)...L..".AB DER POSITION"I"ENTH
ALTEN....".C.V..500...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL