_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

STRINGY

FILE INFORMATION

FILENAME(S): STRINGY

FILE TYPE(S): PRG

FILE SIZE: 861b

FIRST SEEN: 2025-12-02 23:23:10

APPEARS ON: 1 disk(s)

FILE HASH

860a2874c16127f1109eb11bff4347cf57e79b0aee3e7a4b5070fcf18ab8e26f

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LANGUAGES M 39 STRINGY PRG swasti, dinkel 8 16 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 13 08 0A 00 8B 41  B2 31 A7 9E 34 39 34 34  |.......A.1..4944|
00000010: 32 3A A2 00 1B 08 0F 00  41 B2 31 00 38 08 14 00  |2:......A.1.8...|
00000020: 97 35 33 32 38 31 2C 31  34 3A 97 35 33 32 38 30  |.53281,14:.53280|
00000030: 2C 36 3A 99 22 93 1F 22  00 64 08 1E 00 99 22 21  |,6:."..".d...."!|
00000040: 50 4C 41 43 45 28 41 24  2C 42 24 2C 5B 4D 5D 2C  |PLACE(A$,B$,[M],|
00000050: 5B 4E 5D 29 3A 53 55 43  48 54 20 42 24 20 49 4E  |[N]):SUCHT B$ IN|
00000060: 20 41 24 22 00 80 08 28  00 99 A3 31 35 29 22 5A  | A$"...(...15)"Z|
00000070: 57 49 53 43 48 45 4E 20  4D 20 55 4E 44 20 4E 22  |WISCHEN M UND N"|
00000080: 00 AF 08 32 00 99 22 11  21 52 45 50 4C 41 43 45  |...2..".!REPLACE|
00000090: 28 41 24 2C 42 24 2C 43  24 2C 5B 4D 5D 2E 5B 4E  |(A$,B$,C$,[M].[N|
000000A0: 5D 3A 45 52 53 45 54 5A  54 20 41 4C 4C 45 22 00  |]:ERSETZT ALLE".|
000000B0: CD 08 3C 00 99 A3 31 35  29 22 42 24 20 49 4E 20  |..<...15)"B$ IN |
000000C0: 41 24 20 44 55 52 43 48  20 43 24 20 22 00 E9 08  |A$ DURCH C$ "...|
000000D0: 46 00 99 A3 31 35 29 22  5A 57 49 53 43 48 45 4E  |F...15)"ZWISCHEN|
000000E0: 20 4D 20 55 4E 44 20 4E  22 00 17 09 50 00 99 22  | M UND N"...P.."|
000000F0: 11 21 49 4E 53 45 52 54  28 41 24 2C 42 24 2C 50  |.!INSERT(A$,B$,P|
00000100: 29 3A 46 55 45 47 54 20  42 24 20 49 4E 20 41 24  |):FUEGT B$ IN A$|
00000110: 20 42 45 49 20 50 22 00  26 09 5A 00 99 A3 31 35  | BEI P".&.Z...15|
00000120: 29 22 45 49 4E 22 00 54  09 64 00 99 22 11 21 53  |)"EIN".T.d..".!S|
00000130: 54 4F 56 45 52 28 41 24  2C 42 24 2C 50 29 3A 55  |TOVER(A$,B$,P):U|
00000140: 45 42 45 52 53 43 48 52  45 49 42 54 20 41 24 20  |EBERSCHREIBT A$ |
00000150: 4D 49 54 22 00 70 09 6E  00 99 A3 31 35 29 22 42  |MIT".p.n...15)"B|
00000160: 24 20 41 42 20 50 20 28  42 24 3D 3C 41 24 29 22  |$ AB P (B$=<A$)"|
00000170: 00 9C 09 78 00 99 22 11  21 44 55 50 28 41 24 2C  |...x..".!DUP(A$,|
00000180: 57 29 3A 41 24 20 57 49  52 44 20 57 2D 4D 41 4C  |W):A$ WIRD W-MAL|
00000190: 20 44 55 50 4C 49 5A 49  45 52 54 22 00 B1 09 82  | DUPLIZIERT"....|
000001A0: 00 99 A3 31 35 29 22 11  11 3C 54 41 53 54 45 3E  |...15)"..<TASTE>|
000001B0: 22 00 C3 09 8C 00 97 31  39 38 2C 30 3A 92 31 39  |"......198,0:.19|
000001C0: 38 2C 31 00 F1 09 96 00  99 22 93 11 21 49 4E 50  |8,1......"..!INP|
000001D0: 55 54 28 41 24 29 3A 41  24 20 57 49 52 44 20 41  |UT(A$):A$ WIRD A|
000001E0: 4C 53 20 42 45 46 45 48  4C 20 41 55 53 47 45 2D  |LS BEFEHL AUSGE-|
000001F0: 22 00 15 0A A0 00 99 A3  31 35 29 22 46 55 45 48  |".......15)"FUEH|
00000200: 52 54 2E 20 45 4E 54 48  41 45 4C 54 20 41 24 20  |RT. ENTHAELT A$ |
00000210: 45 49 4E 45 22 00 36 0A  AA 00 99 A3 31 35 29 22  |EINE".6.....15)"|
00000220: 5A 45 49 4C 45 4E 4E 55  4D 4D 45 52 2C 20 57 49  |ZEILENNUMMER, WI|
00000230: 52 44 20 41 24 22 00 56  0A B4 00 99 A3 31 35 29  |RD A$".V.....15)|
00000240: 22 5A 4C 53 20 5A 45 49  4C 45 20 45 49 4E 47 45  |"ZLS ZEILE EINGE|
00000250: 46 55 45 47 54 22 00 75  0A BE 00 99 A3 31 35 29  |FUEGT".u.....15)|
00000260: 22 50 52 4F 47 52 41 4D  4D 20 57 49 52 44 20 4E  |"PROGRAMM WIRD N|
00000270: 49 43 48 54 22 00 8D 0A  C8 00 99 A3 31 35 29 22  |ICHT".......15)"|
00000280: 55 4E 54 45 52 42 52 4F  43 48 45 4E 22 00 BA 0A  |UNTERBROCHEN"...|
00000290: D2 00 99 22 11 21 47 45  54 28 5A 29 3A 5A 45 49  |...".!GET(Z):ZEI|
000002A0: 4C 45 20 5A 20 57 49 52  44 20 49 4E 20 24 20 45  |LE Z WIRD IN $ E|
000002B0: 49 4E 47 45 4C 45 53 45  4E 22 00 E6 0A DC 00 99  |INGELESEN"......|
000002C0: 22 11 21 4E 45 58 4C 28  5A 29 3A 44 49 45 20 41  |".!NEXL(Z):DIE A|
000002D0: 55 46 20 5A 20 46 4F 4C  47 45 4E 44 45 20 5A 45  |UF Z FOLGENDE ZE|
000002E0: 49 4C 45 4E 2D 22 00 04  0B E6 00 99 A3 31 35 29  |ILEN-".......15)|
000002F0: 22 4E 55 4D 4D 45 52 20  57 49 52 44 20 47 45 48  |"NUMMER WIRD GEH|
00000300: 4F 4C 54 22 00 19 0B F0  00 99 A3 31 35 29 22 11  |OLT".......15)".|
00000310: 11 3C 54 41 53 54 45 3E  22 00 2B 0B FA 00 97 31  |.<TASTE>".+....1|
00000320: 39 38 2C 30 3A 92 31 39  38 2C 31 00 46 0B 2C 01  |98,0:.198,1.F.,.|
00000330: 99 22 93 11 11 1D 1D 4C  4F 41 44 49 4E 47 2E 2E  |.".....LOADING..|
00000340: 2E 2E 2E 2E 2E 22 00 5A  0B 36 01 93 22 5F 53 54  |.....".Z.6.."_ST|
00000350: 52 49 4E 47 59 22 2C 38  2C 31 00 00 00           |RINGY",8,1...   |

.......A.1..49442:......A.1.8....53281,1
4:.53280,6:."..".D...."!PLACE(A$,B$,[M],
[N]):SUCHT B$ IN A$"...(...15)"ZWISCHEN 
M UND N"...2..".!REPLACE(A$,B$,C$,[M].[N
]:ERSETZT ALLE".M.<...15)"B$ IN A$ DURCH
 C$ "...F...15)"ZWISCHEN M UND N"...P.."
.!INSERT(A$,B$,P):FUEGT B$ IN A$ BEI P".
&.Z...15)"EIN".T.D..".!STOVER(A$,B$,P):U
EBERSCHREIBT A$ MIT".P.N...15)"B$ AB P (
B$=<A$)"...X..".!DUP(A$,W):A$ WIRD W-MAL
 DUPLIZIERT".......15)"..<TASTE>".C....1
98,0:.198,1......"..!INPUT(A$):A$ WIRD A
LS BEFEHL AUSGE-"... ...15)"FUEHRT. ENTH
AELT A$ EINE".6.....15)"ZEILENNUMMER, WI
RD A$".V.....15)"ZLS ZEILE EINGEFUEGT".U
.....15)"PROGRAMM WIRD NICHT"...H...15)"
UNTERBROCHEN"...R..".!GET(Z):ZEILE Z WIR
D IN $ EINGELESEN"......".!NEXL(Z):DIE A
UF Z FOLGENDE ZEILEN-".......15)"NUMMER 
WIRD GEHOLT".......15)"..<TASTE>".+....1
98,0:.198,1.F.,..".....LOADING.......".Z
.6.."_STRINGY",8,1...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL