Multiple names: DIS, PATCH RUN, PATCH

FILE INFORMATION

FILENAME(S):
• DIS<br>• PATCH&nbspRUN<br>• PATCH

FILE TYPE(S): PRG

FILE SIZE: 2.2K

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

APPEARS ON: 3 disk(s)

FILE HASH

4c5db862bc61622dec0523262f8d842b120ccac3e5634deeecaa37187336ad59

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TURBO	DIS	PRG	Treasure Chest - Klaus Der Suhler	10	19	DOWNLOAD FILE
INPUT 64 1087	PATCH RUN	PRG	Treasure Chest - Sammlung	22	1	DOWNLOAD FILE
ERERERE	PATCH	PRG	DuncanTwain	28	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0B 08 C3 07 9E 32  30 37 30 00 00 00 00 00  |.......2070.....|
00000010: 00 00 00 00 00 00 00 A9  3B A0 08 85 FB 84 FC A9  |........;.......|
00000020: 00 A0 C0 85 FD 84 FE A2  09 A0 00 B1 FB 91 FD C8  |................|
00000030: D0 F9 E6 FC E6 FE CA D0  F2 4C 00 C0 4C 11 C0 AD  |.........L..L...|
00000040: 93 C8 D0 03 4C FD C0 4C  D9 C0 4C AB C1 A9 00 8D  |....L..L..L.....|
00000050: 93 C8 8D 7C C8 8D 20 D0  8D 21 D0 85 FB 85 FC 20  |...|.. ..!..... |
00000060: 42 A6 A9 AD A0 C2 20 2D  C2 A9 20 A2 0F 9D 81 C8  |B..... -.. .....|
00000070: CA 10 FA A9 00 85 C6 AA  20 CF FF C9 0D F0 0A E0  |........ .......|
00000080: 10 F0 F5 9D 81 C8 E8 D0  EF 8E 92 C8 8A F0 BE A9  |................|
00000090: 0D 20 D2 FF 20 D2 FF A9  81 A0 C8 20 2D C2 A9 74  |. .. ...... -..t|
000000A0: A0 C3 20 2D C2 A9 01 A2  08 A0 00 20 BA FF AD 92  |.. -....... ....|
000000B0: C8 A2 81 A0 C8 20 BD FF  A2 01 A0 08 A9 00 20 D5  |..... ........ .|
000000C0: FF 08 20 79 C2 AA 28 B0  04 E0 30 F0 1C A9 0B A0  |.. y..(...0.....|
000000D0: C4 20 2D C2 A9 74 A0 C4  20 2D C2 A9 00 85 C6 20  |. -..t.. -..... |
000000E0: E4 FF C9 0D D0 F9 4C 11  C0 A5 AE A4 AF 85 2D 84  |......L.......-.|
000000F0: 2E A9 A9 A0 31 85 2B 84  2C 20 59 A6 20 52 C1 A9  |....1.+., Y. R..|
00000100: 01 F0 03 4C 03 C0 60 A9  93 20 D2 FF A2 14 A0 00  |...L..`.. ......|
00000110: 18 20 F0 FF 60 20 CB C0  A2 02 A0 00 84 FB 18 20  |. ..` ......... |
00000120: F0 FF AE 7C C8 BD 9F C7  E8 BC 9F C7 C0 FF F0 06  |...|............|
00000130: 20 2E C1 4C 31 A8 4C AB  C1 20 CB C0 A9 E5 A0 C3  | ..L1.L.. ......|
00000140: 20 2D C2 A2 02 A0 00 18  20 F0 FF AE 7C C8 BD C7  | -...... ...|...|
00000150: C7 E8 BC C7 C7 C0 FF F0  06 20 2E C1 4C 31 A8 8C  |......... ..L1..|
00000160: 93 C8 A9 00 8D 7C C8 4C  0B C0 20 2D C2 A9 8A A0  |.....|.L.. -....|
00000170: C4 20 2D C2 EE 7C C8 EE  7C C8 A9 13 20 D2 FF A9  |. -..|..|... ...|
00000180: 0D 8D 77 02 8D 78 02 A9  02 85 C6 A9 00 60 A2 00  |..w..x.......`..|
00000190: BD E5 C7 85 FB E8 BD E5  C7 85 FC C9 FF F0 0C E8  |................|
000001A0: BD E5 C7 E8 A0 00 91 FB  4C 54 C1 A2 00 BD EE C7  |........LT......|
000001B0: 85 FB E8 BD EE C7 85 FC  C9 FF F0 22 E8 BD EE C7  |..........."....|
000001C0: 85 FD E8 BD EE C7 85 FE  E8 BD EE C7 8D 94 C8 E8  |................|
000001D0: A0 00 B1 FD 91 FB C8 CC  94 C8 D0 F6 F0 CF A9 00  |................|
000001E0: 8D 7C C8 8D 93 C8 60 A9  01 8D 86 02 85 2B A9 08  |.|....`......+..|
000001F0: 85 2C A9 86 A0 C3 20 2D  C2 A9 74 A0 C4 20 2D C2  |.,.... -..t.. -.|
00000200: A9 00 85 C6 20 E4 FF C9  0D D0 F9 A9 01 A2 08 A0  |.... ...........|
00000210: 00 20 BA FF A9 10 A2 7D  A0 C8 20 BD FF A9 2B A6  |. .....}.. ...+.|
00000220: 2D A4 2E 20 D8 FF 08 20  79 C2 AA 28 B0 04 E0 30  |-.. ... y..(...0|
00000230: F0 1B A9 1C A0 C4 20 2D  C2 A9 74 A0 C4 20 2D C2  |...... -..t.. -.|
00000240: A9 00 85 C6 20 E4 FF C9  0D D0 F9 F0 9A A9 38 A0  |.... .........8.|
00000250: C4 20 2D C2 A9 74 A0 C4  20 2D C2 A9 00 85 C6 20  |. -..t.. -..... |
00000260: E4 FF C9 0D D0 F9 4C 86  E3 85 FB 84 FC A0 00 B1  |......L.........|
00000270: FB F0 06 20 D2 FF C8 D0  F6 60 A9 0F A2 08 A8 20  |... .....`..... |
00000280: BA FF A9 00 20 BD FF 20  C0 FF A2 0F 20 C9 FF 08  |.... .. .... ...|
00000290: 20 CC FF 28 08 90 05 A9  0F 20 C3 FF 28 60 A2 0F  | ..(..... ..(`..|
000002A0: 20 C9 FF A9 55 20 D2 FF  A9 39 20 D2 FF 20 CC FF  | ...U ...9 .. ..|
000002B0: A9 0F 4C C3 FF 20 3E C2  B0 2E A9 0D 20 D2 FF A9  |..L.. >..... ...|
000002C0: 12 20 D2 FF A2 0F 20 C6  FF 20 CF FF 48 20 D2 FF  |. .... .. ..H ..|
000002D0: 20 CF FF C9 0D D0 F6 20  CC FF 20 62 C2 A9 92 20  | ...... .. b... |
000002E0: D2 FF A9 0D 20 D2 FF 68  60 93 08 0E 99 20 20 20  |.... ..h`....   |
000002F0: C9 CE D0 D5 D4 2D C3 41  4C 43 20 CB 4F 52 52 45  |.....-.ALC .ORRE|
00000300: 4B 54 55 52 50 52 4F 47  52 41 4D 4D 0D 20 20 20  |KTURPROGRAMM.   |
00000310: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000320: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 0D 0D 0D 9E  |============....|
00000330: C2 49 54 54 45 20 4C 45  47 45 4E 20 D3 49 45 20  |.ITTE LEGEN .IE |
00000340: 44 49 45 20 C4 49 53 4B  45 54 54 45 20 4D 49 54  |DIE .ISKETTE MIT|
00000350: 0D 27 C9 CE D0 D5 D4 2D  C3 C1 CC C3 27 20 49 4E  |.'.....-....' IN|
00000360: 53 20 CC 41 55 46 57 45  52 4B 20 38 2C 20 55 4E  |S .AUFWERK 8, UN|
00000370: 44 0D 47 45 42 45 4E 20  D3 49 45 20 44 45 4E 20  |D.GEBEN .IE DEN |
00000380: CE 41 4D 45 4E 20 45 49  4E 2C 20 55 4E 54 45 52  |.AMEN EIN, UNTER|
00000390: 20 44 45 4D 0D D3 49 45  20 45 53 20 47 45 53 50  | DEM..IE ES GESP|
000003A0: 45 49 43 48 45 52 54 20  48 41 42 45 4E 3A 0D 00  |EICHERT HABEN:..|
000003B0: 20 57 49 52 44 20 47 45  4C 41 44 45 4E 2E 2E 2E  | WIRD GELADEN...|
000003C0: 0D 00 93 11 11 9E C2 49  54 54 45 20 4C 45 47 45  |.......ITTE LEGE|
000003D0: 4E 20 D3 49 45 20 44 49  45 20 C4 49 53 4B 45 54  |N .IE DIE .ISKET|
000003E0: 54 45 20 49 4E 53 0D CC  41 55 46 57 45 52 4B 2C  |TE INS..AUFWERK,|
000003F0: 20 41 55 46 20 44 49 45  20 D3 49 45 20 44 49 45  | AUF DIE .IE DIE|
00000400: 20 4E 45 55 45 20 D6 45  52 53 49 4F 4E 0D 53 50  | NEUE .ERSION.SP|
00000410: 45 49 43 48 45 52 4E 20  57 4F 4C 4C 45 4E 2E 0D  |EICHERN WOLLEN..|
00000420: 00 D5 45 42 45 52 46 4C  55 53 53 49 47 45 20 DA  |..EBERFLUSSIGE .|
00000430: 45 49 4C 45 4E 20 57 45  52 44 45 4E 20 45 4E 54  |EILEN WERDEN ENT|
00000440: 46 45 52 4E 54 2E 00 96  0D 0D CC 41 44 45 46 45  |FERNT......ADEFE|
00000450: 48 4C 45 52 21 21 21 00  96 0D 0D C6 45 48 4C 45  |HLER!!!.....EHLE|
00000460: 52 20 42 45 49 4D 20 D3  50 45 49 43 48 45 52 4E  |R BEIM .PEICHERN|
00000470: 21 21 21 00 9E 0D 0D C4  41 53 20 4B 4F 52 52 49  |!!!.....AS KORRI|
00000480: 47 49 45 52 54 45 20 D0  52 4F 47 52 41 4D 4D 20  |GIERTE .ROGRAMM |
00000490: 57 55 52 44 45 0D 45 52  46 4F 4C 47 52 45 49 43  |WURDE.ERFOLGREIC|
000004A0: 48 20 47 45 53 50 45 49  43 48 45 52 54 2E 0D 00  |H GESPEICHERT...|
000004B0: 9E 0D 0D D7 45 49 54 45  52 20 4D 49 54 20 D2 C5  |....EITER MIT ..|
000004C0: D4 D5 D2 CE 20 00 53 59  53 34 39 31 35 35 0D 00  |.... .SYS49155..|
000004D0: 32 37 30 20 54 53 3D 33  38 39 31 32 3A 54 45 3D  |270 TS=38912:TE=|
000004E0: 34 39 31 35 32 3A 54 4C  3D 54 45 2D 54 53 3A 51  |49152:TL=TE-TS:Q|
000004F0: 30 3D 36 33 31 3A 51 31  3D 31 39 38 3A 4C 4C 24  |0=631:Q1=198:LL$|
00000500: 3D 22 20 22 3A 47 4F 54  4F 33 39 30 0D 00 35 32  |=" ":GOTO390..52|
00000510: 30 20 4C 41 25 3D 38 3A  53 41 25 3D 38 3A 4F 50  |0 LA%=8:SA%=8:OP|
00000520: 45 4E 20 38 2C 38 2C 38  3A 43 4C 4F 53 45 20 38  |EN 8,8,8:CLOSE 8|
00000530: 3A 49 46 20 53 54 3D 30  20 54 48 45 4E 20 4F 50  |:IF ST=0 THEN OP|
00000540: 45 4E 20 31 35 2C 38 2C  31 35 0D 00 35 33 37 30  |EN 15,8,15..5370|
00000550: 20 50 4F 4B 45 20 51 30  2B 34 2C 35 33 3A 50 4F  | POKE Q0+4,53:PO|
00000560: 4B 45 20 51 30 2B 35 2C  35 31 3A 50 4F 4B 45 20  |KE Q0+5,51:POKE |
00000570: 51 30 2B 36 2C 35 37 3A  50 4F 4B 45 20 51 30 2B  |Q0+6,57:POKE Q0+|
00000580: 37 2C 34 38 3A 50 4F 4B  45 20 51 30 2B 38 2C 31  |7,48:POKE Q0+8,1|
00000590: 33 3A 45 4E 44 0D 00 36  30 39 30 20 50 4F 4B 45  |3:END..6090 POKE|
000005A0: 20 51 30 2B 34 2C 35 34  3A 50 4F 4B 45 20 51 30  | Q0+4,54:POKE Q0|
000005B0: 2B 35 2C 34 39 3A 50 4F  4B 45 20 51 30 2B 36 2C  |+5,49:POKE Q0+6,|
000005C0: 34 39 3A 50 4F 4B 45 20  51 30 2B 37 2C 34 38 3A  |49:POKE Q0+7,48:|
000005D0: 50 4F 4B 45 20 51 30 2B  38 2C 31 33 3A 45 4E 44  |POKE Q0+8,13:END|
000005E0: 0D 00 32 35 31 30 20 53  59 53 20 49 4E 2C 33 39  |..2510 SYS IN,39|
000005F0: 2B 32 2A 42 42 2C 30 2C  2C 2C 46 51 24 3A 46 41  |+2*BB,0,,,FQ$:FA|
00000600: 3D 54 53 0D 00 32 35 33  30 20 49 46 20 46 51 24  |=TS..2530 IF FQ$|
00000610: 3D 22 22 20 54 48 45 4E  20 32 36 35 30 0D 00 32  |="" THEN 2650..2|
00000620: 35 35 30 20 53 59 53 20  55 35 2C 2C 2C 2C 2C 46  |550 SYS U5,,,,,F|
00000630: 41 2C 46 51 24 3A 49 46  20 50 45 45 4B 28 32 35  |A,FQ$:IF PEEK(25|
00000640: 31 29 20 54 48 45 4E 20  32 36 33 30 0D 00 33 34  |1) THEN 2630..34|
00000650: 35 35 20 47 4F 54 4F 20  33 34 37 30 0D 00 33 34  |55 GOTO 3470..34|
00000660: 36 30 20 47 4F 54 4F 20  34 34 37 30 0D 00 33 36  |60 GOTO 4470..36|
00000670: 39 30 20 51 51 3D 51 51  2D 31 3A 49 46 20 51 51  |90 QQ=QQ-1:IF QQ|
00000680: 3C 30 20 54 48 45 4E 20  51 51 3D 30 0D 00 33 37  |<0 THEN QQ=0..37|
00000690: 38 30 20 49 46 20 51 51  3D 41 46 20 54 48 45 4E  |80 IF QQ=AF THEN|
000006A0: 20 33 30 37 30 0D 00 33  38 33 30 20 51 51 3D 51  | 3070..3830 QQ=Q|
000006B0: 51 2B 31 3A 49 46 20 51  51 3E 41 46 20 54 48 45  |Q+1:IF QQ>AF THE|
000006C0: 4E 20 51 51 3D 41 46 0D  00 35 32 34 30 20 46 51  |N QQ=AF..5240 FQ|
000006D0: 24 3D 4D 49 44 24 28 46  24 2C 50 41 2B 31 2C 31  |$=MID$(F$,PA+1,1|
000006E0: 29 0D 00 35 32 34 35 20  49 46 20 4D 49 44 24 28  |)..5245 IF MID$(|
000006F0: 46 24 2C 50 41 2C 31 29  3D 22 45 22 41 4E 44 28  |F$,PA,1)="E"AND(|
00000700: 46 51 24 3D 22 2B 22 4F  52 46 51 24 3D 22 2D 22  |FQ$="+"ORFQ$="-"|
00000710: 29 54 48 45 4E 46 3D 37  3A 52 45 54 55 52 4E 0D  |)THENF=7:RETURN.|
00000720: 00 35 33 39 30 20 47 4F  54 4F 20 35 34 30 30 0D  |.5390 GOTO 5400.|
00000730: 00 35 34 30 30 20 57 3D  49 4E 54 28 57 29 2B 49  |.5400 W=INT(W)+I|
00000740: 4E 54 28 57 2A 31 30 5E  4E 4B 28 5A 53 29 2B 2E  |NT(W*10^NK(ZS)+.|
00000750: 35 29 2F 31 30 5E 4E 4B  28 5A 53 29 0D 00 35 34  |5)/10^NK(ZS)..54|
00000760: 30 35 20 57 24 3D 53 54  52 24 28 57 29 3A 49 46  |05 W$=STR$(W):IF|
00000770: 57 3E 30 54 48 45 4E 57  24 3D 4D 49 44 24 28 57  |W>0THENW$=MID$(W|
00000780: 24 2C 32 29 0D 00 36 31  31 30 20 47 4F 53 55 42  |$,2)..6110 GOSUB|
00000790: 20 35 34 30 30 0D 00 31  30 0D 00 33 30 0D 00 35  | 5400..10..30..5|
000007A0: 30 0D 00 37 30 0D 00 35  33 30 0D 00 35 35 30 0D  |0..70..530..550.|
000007B0: 00 35 37 30 0D 00 35 39  30 0D 00 36 31 30 0D 00  |.570..590..610..|
000007C0: 36 33 30 0D 00 36 35 30  0D 00 36 37 30 0D 00 36  |630..650..670..6|
000007D0: 31 33 30 0D 00 36 31 35  30 0D 00 94 C4 D2 C4 10  |130..6150.......|
000007E0: C5 5B C5 A6 C5 C9 C5 E3  C5 12 C6 22 C6 32 C6 32  |.[.........".2.2|
000007F0: C6 52 C6 6B C6 8D C6 A7  C6 E5 C6 F5 C6 22 C7 4A  |.R.k.........".J|
00000800: C7 FF FF 5B C7 5F C7 63  C7 67 C7 6B C7 70 C7 75  |...[._.c.g.k.p.u|
00000810: C7 7A C7 7F C7 84 C7 89  C7 8E C7 93 C7 99 C7 FF  |.z..............|
00000820: FF 35 09 FE 99 10 D4 FF  FF FF 6C 0D 19 C8 02 9C  |.5........l.....|
00000830: 0F 19 C8 02 7B 12 19 C8  02 B6 0D 1B C8 03 A3 0F  |....{...........|
00000840: 1E C8 07 7D 12 29 C8 07  65 10 25 C8 04 20 23 30  |...}.)..e.%.. #0|
00000850: C8 4C FF FF FF 47 23 20  3B 23 20 2A 23 EA EA EA  |.L...G# ;# *#...|
00000860: EA 20 20 23 EA 20 41 23  EA EA EA EA 20 C1 13 A0  |.  #. A#.... ...|
00000870: 00 91 FB 4C CA 13 AC 31  0A A5 49 20 AF 15 C8 A5  |...L...1..I ....|
00000880: 4A 20 AF 15 4C CA 13 2C  6E 0A 30 ED 60 AC 30 0A  |J ..L..,n.0.`.0.|
00000890: 4C 2D 23 20 4F 14 2C 6E  0A 10 F1 A0 02 20 4E 15  |L-# O.,n..... N.|
000008A0: 85 FC 88 20 4E 15 85 FB  88 20 4E 15 A8 F0 DD 20  |... N.... N.... |
000008B0: 6D 15 C8 A9 FF 4C 6D 15  00 4E 45 55 2E 00 00 00  |m....Lm..NEU....|
000008C0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000008D0: 00 33                                             |.3              |

....C..2070.............; ....... ......
. .....HP.....JP.L..L....HP.L..LY.L.A...
.H.|H. P.!P.... B... B -B. ....HJ.....F.
 O.I.........H.P...H..... R. R... H -B.T
 C -B.... . ....H.. H .... ... U.. YB.(.
..0.... D -B.T D -B...F ..I.P.L.......-.
... 1.+., Y. RA....L..`.. R... .. ..` K.
.. .... ...|H..G...G.... .AL1.L.A K... C
 -B.. .. ...|H.GG..GG.... .AL1...H...|HL
.. -B.. D -B.|H.|H.. R....W..X....F..`..
..G.....G..I......G. ...LTA....G.....G..
I.."...G.....G.....G..H. .....HL.HP..O..
.|H..H`......+...,.. C -B.T D -B...F ..I
.P..... . .....} H ...+.-.. X.. YB.(...0
.... D -B.T D -B...F ..I.P....8 D -B.T D
 -B...F ..I.P.L...... ..... R.HP.`..... 
.... .. .... I.. L.(..... C.(`.. I..U R.
.9 R. L...LC. >B.... R... R... F. O.H R.
 O.I.P. L. BB.. R... R.H`....   INPUT-CA
LC KORREKTURPROGRAMM.   ================
============....BITTE LEGEN SIE DIE DISK
ETTE MIT.'INPUT-CALC' INS LAUFWERK 8, UN
D.GEBEN SIE DEN NAMEN EIN, UNTER DEM.SIE
 ES GESPEICHERT HABEN:.. WIRD GELADEN...
......BITTE LEGEN SIE DIE DISKETTE INS.L
AUFWERK, AUF DIE SIE DIE NEUE VERSION.SP
EICHERN WOLLEN...UEBERFLUSSIGE ZEILEN WE
RDEN ENTFERNT.....LADEFEHLER!!!....FEHLE
R BEIM SPEICHERN!!!....DAS KORRIGIERTE P
ROGRAMM WURDE.ERFOLGREICH GESPEICHERT...
...WEITER MIT RETURN .SYS49155..270 TS=3
8912:TE=49152:TL=TE-TS:Q0=631:Q1=198:LL$
=" ":GOTO390..520 LA%=8:SA%=8:OPEN 8,8,8
:CLOSE 8:IF ST=0 THEN OPEN 15,8,15..5370
 POKE Q0+4,53:POKE Q0+5,51:POKE Q0+6,57:
POKE Q0+7,48:POKE Q0+8,13:END..6090 POKE
 Q0+4,54:POKE Q0+5,49:POKE Q0+6,49:POKE 
Q0+7,48:POKE Q0+8,13:END..2510 SYS IN,39
+2*BB,0,,,FQ$:FA=TS..2530 IF FQ$="" THEN
 2650..2550 SYS U5,,,,,FA,FQ$:IF PEEK(25
1) THEN 2630..3455 GOTO 3470..3460 GOTO 
4470..3690 QQ=QQ-1:IF QQ<0 THEN QQ=0..37
80 IF QQ=AF THEN 3070..3830 QQ=QQ+1:IF Q
Q>AF THEN QQ=AF..5240 FQ$=MID$(F$,PA+1,1
)..5245 IF MID$(F$,PA,1)="E"AND(FQ$="+"O
RFQ$="-")THENF=7:RETURN..5390 GOTO 5400.
.5400 W=INT(W)+INT(W*10^NK(ZS)+.5)/10^NK
(ZS)..5405 W$=STR$(W):IFW>0THENW$=MID$(W
$,2)..6110 GOSUB 5400..10..30..50..70..5
30..550..570..590..610..630..650..670..6
130..6150...DRD.E[E.EIE.E.F"F2F2FRFKF.F.
F.F.F"GJG..[G_GCGGGKGPGUGZGG.G.G.G.G.G.
.5....T...L..H....H.{..H....H....H.}.)H.
E.%H. #0HL...G# ;# *#....  #. A#.... A. 
...LJ..1..I ..H.J ..LJ.,N.0.`.0.L-# O.,N
... . N.... N.... N.... M.H..LM..NEU....
.................3

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL