QUICK1
FILE INFORMATION
FILENAME(S): QUICK1
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-02 22:11:12
APPEARS ON: 1 disk(s)
FILE HASH
d328257f0394979b920b02450af8caf7e65ca3419e31d9b06931cb169cce48db
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90617 | QUICK1 | PRG | Treasure Chest - ToGuMi | 29 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 0A 00 8F 20 2A 2A 20 4D 43 2D 52 4F |..$.... ** MC-RO| 00000010: 55 54 49 4E 45 4E 20 4E 41 43 48 4C 41 44 45 4E |UTINEN NACHLADEN| 00000020: 20 2A 2A 2A 00 39 08 0C 00 8B 20 C2 28 35 36 29 | ***.9.... .(56)| 00000030: B2 31 34 39 20 A7 20 32 36 00 66 08 0E 00 46 B2 |.149 . 26.f...F.| 00000040: C2 28 31 38 37 29 AA 32 35 36 AC C2 28 31 38 38 |.(187).256..(188| 00000050: 29 3A 8F 20 41 4B 54 55 45 4C 4C 45 52 20 46 49 |):. AKTUELLER FI| 00000060: 4C 45 4E 41 4D 45 00 A1 08 10 00 8B 20 C2 28 46 |LENAME...... .(F| 00000070: 29 B3 B1 37 37 20 AF 20 C2 28 46 AA 31 29 B3 B1 |)..77 . .(F.1)..| 00000080: 36 37 20 AF 20 C2 28 46 AA 32 29 B3 B1 35 30 20 |67 . .(F.2)..50 | 00000090: A7 20 93 20 22 4D 43 31 2E 4F 42 4A 22 2C 38 2C |. . "MC1.OBJ",8,| 000000A0: 31 00 E2 08 12 00 97 20 35 35 2C 30 3A 97 20 35 |1...... 55,0:. 5| 000000B0: 36 2C 31 34 39 3A 9C 3A 93 20 22 4D 43 32 2E 4F |6,149:.:. "MC2.O| 000000C0: 42 4A 22 2C 38 2C 31 3A 8F 20 42 41 53 49 43 2D |BJ",8,1:. BASIC-| 000000D0: 41 4E 46 41 4E 47 20 48 45 52 41 42 53 45 54 5A |ANFANG HERABSETZ| 000000E0: 45 4E 00 E8 08 14 00 3A 00 EE 08 16 00 3A 00 14 |EN.....:.....:..| 000000F0: 09 18 00 8F 20 2A 2A 20 53 54 41 52 54 41 44 52 |.... ** STARTADR| 00000100: 45 53 53 45 4E 20 4D 43 2D 52 4F 55 54 49 4E 45 |ESSEN MC-ROUTINE| 00000110: 4E 20 2A 2A 00 3B 09 1A 00 49 4F B2 33 38 39 31 |N **.;...IO.3891| 00000120: 32 3A 20 20 20 20 20 20 20 8F 20 4D 4F 44 55 4C |2: . MODUL| 00000130: 20 31 20 28 44 49 53 4B 49 4F 29 00 5B 09 1C 00 | 1 (DISKIO).[...| 00000140: 42 4C 41 45 54 54 45 52 4E B2 49 4F 3A 20 20 20 |BLAETTERN.IO: | 00000150: 8F 20 42 4C 41 45 54 54 45 52 4E 00 79 09 1E 00 |. BLAETTERN.y...| 00000160: 43 4F 56 45 52 54 B2 49 4F AA 33 3A 20 20 20 20 |COVERT.IO.3: | 00000170: 8F 20 43 4F 4E 56 45 52 54 00 9D 09 20 00 43 52 |. CONVERT... .CR| 00000180: 53 B2 49 4F AA 36 3A 20 20 20 20 20 20 20 8F 20 |S.IO.6: . | 00000190: 43 55 52 53 4F 52 20 53 45 54 5A 45 4E 00 BC 09 |CURSOR SETZEN...| 000001A0: 22 00 53 49 B2 49 4F AA 39 3A 20 20 20 20 20 20 |".SI.IO.9: | 000001B0: 20 20 8F 20 53 41 54 5A 49 4E 46 4F 00 DF 09 24 | . SATZINFO...$| 000001C0: 00 44 41 55 53 47 41 42 45 B2 49 4F AA 31 32 3A |.DAUSGABE.IO.12:| 000001D0: 20 8F 20 44 49 53 4B 2D 41 55 53 47 41 42 45 00 | . DISK-AUSGABE.| 000001E0: 02 0A 26 00 44 45 49 4E 47 41 42 45 B2 49 4F AA |..&.DEINGABE.IO.| 000001F0: 31 35 3A 20 8F 20 44 49 53 4B 2D 45 49 4E 47 41 |15: . DISK-EINGA| 00000200: 42 45 00 22 0A 28 00 44 49 52 B2 49 4F AA 31 38 |BE.".(.DIR.IO.18| 00000210: 3A 20 20 20 20 20 20 8F 20 44 49 52 45 43 54 4F |: . DIRECTO| 00000220: 52 59 00 48 0A 2A 00 53 50 45 49 43 48 45 52 4E |RY.H.*.SPEICHERN| 00000230: B2 49 4F AA 32 31 3A 8F 20 42 4C 4F 43 4B 20 53 |.IO.21:. BLOCK S| 00000240: 50 45 49 43 48 45 52 4E 00 6A 0A 2C 00 56 4C 41 |PEICHERN.j.,.VLA| 00000250: 44 45 4E B2 49 4F AA 32 34 3A 20 20 20 8F 20 42 |DEN.IO.24: . B| 00000260: 4C 4F 43 4B 20 4C 41 44 45 4E 00 70 0A 2E 00 3A |LOCK LADEN.p...:| 00000270: 00 97 0A 30 00 54 52 B2 33 39 38 38 38 3A 20 20 |...0.TR.39888: | 00000280: 20 20 20 20 20 8F 20 4D 4F 44 55 4C 20 32 28 54 | . MODUL 2(T| 00000290: 52 45 49 42 45 52 29 00 BA 0A 32 00 4D 41 4B 52 |REIBER)...2.MAKR| 000002A0: 4F B2 54 52 3A 20 20 20 20 20 20 20 8F 20 4D 41 |O.TR: . MA| 000002B0: 4B 52 4F 53 20 49 4E 49 54 2E 00 E1 0A 34 00 46 |KROS INIT....4.F| 000002C0: 53 43 52 45 45 4E B2 54 52 AA 33 3A 20 20 20 8F |SCREEN.TR.3: .| 000002D0: 20 46 41 53 54 53 43 52 45 45 4E 20 49 4E 49 54 | FASTSCREEN INIT| 000002E0: 2E 00 08 0B 36 00 57 41 48 4C B2 54 52 AA 36 3A |....6.WAHL.TR.6:| 000002F0: 20 20 20 20 20 20 8F 20 4B 4F 4D 4D 41 4E 44 4F | . KOMMANDO| 00000300: 2D 41 55 53 57 41 48 4C 00 2C 0B 38 00 53 45 41 |-AUSWAHL.,.8.SEA| 00000310: 52 43 48 B2 54 52 AA 39 3A 20 20 20 20 8F 20 53 |RCH.TR.9: . S| 00000320: 54 52 49 4E 47 20 53 55 43 48 45 4E 00 51 0B 3A |TRING SUCHEN.Q.:| 00000330: 00 41 55 53 47 41 42 45 B2 54 52 AA 31 32 3A 20 |.AUSGABE.TR.12: | 00000340: 20 8F 20 53 54 52 49 4E 47 2D 41 55 53 47 41 42 | . STRING-AUSGAB| 00000350: 45 00 75 0B 3C 00 53 52 49 45 4C 4C B2 54 52 AA |E.u.<.SRIELL.TR.| 00000360: 31 35 3A 20 20 20 8F 20 53 45 52 49 45 4C 4C 20 |15: . SERIELL | 00000370: 49 4E 49 54 2E 00 9A 0B 3E 00 50 41 52 41 4C 4C |INIT....>.PARALL| 00000380: 45 4C B2 54 52 AA 31 38 3A 20 8F 20 50 41 52 41 |EL.TR.18: . PARA| 00000390: 4C 4C 45 4C 20 49 4E 49 54 2E 00 BF 0B 40 00 50 |LLEL INIT....@.P| 000003A0: 52 45 53 45 4E 54 B2 54 52 AA 32 31 3A 20 20 8F |RESENT.TR.21: .| 000003B0: 20 44 45 56 49 43 45 20 50 52 45 53 45 4E 54 00 | DEVICE PRESENT.| 000003C0: C5 0B 42 00 3A 00 E8 0B 44 00 50 49 4E 49 54 B2 |..B.:...D.PINIT.| 000003D0: 35 30 39 36 30 3A 20 20 20 20 8F 20 50 55 46 46 |50960: . PUFF| 000003E0: 45 52 20 49 4E 49 54 2E 00 0C 0C 46 00 57 49 4E |ER INIT....F.WIN| 000003F0: 44 4F 57 B2 50 49 4E 49 54 AA 33 3A 20 8F 20 57 |DOW.PINIT.3: . W| 00000400: 49 4E 44 4F 57 53 20 4D 41 4C 45 4E 00 32 0C 48 |INDOWS MALEN.2.H| 00000410: 00 50 55 46 46 45 52 B2 50 49 4E 49 54 AA 36 3A |.PUFFER.PINIT.6:| 00000420: 20 8F 20 57 49 4E 44 4F 57 53 20 50 55 46 46 45 | . WINDOWS PUFFE| 00000430: 52 4E 00 54 0C 4A 00 49 4E 56 45 52 54 B2 50 49 |RN.T.J.INVERT.PI| 00000440: 4E 49 54 AA 39 3A 20 8F 20 49 4E 56 45 52 54 49 |NIT.9: . INVERTI| 00000450: 45 52 45 4E 00 7A 0C 4C 00 43 4E 54 52 4F 4C B2 |EREN.z.L.CNTROL.| 00000460: 50 49 4E 49 54 AA 31 32 3A 8F 20 4D 45 4E 55 45 |PINIT.12:. MENUE| 00000470: 2D 4B 4F 4E 54 52 4F 4C 4C 45 00 80 0C 4E 00 3A |-KONTROLLE...N.:| 00000480: 00 A6 0C 50 00 45 49 4E 47 41 42 45 B2 35 30 31 |...P.EINGABE.501| 00000490: 37 36 3A 20 20 8F 20 45 49 4E 47 41 42 45 2D 52 |76: . EINGABE-R| 000004A0: 4F 55 54 49 4E 45 00 C6 0C 52 00 51 55 49 43 4B |OUTINE...R.QUICK| 000004B0: B2 35 32 32 34 30 3A 20 20 20 20 8F 20 51 55 49 |.52240: . QUI| 000004C0: 43 4B 53 4F 52 54 00 ED 0C 54 00 43 48 41 52 B2 |CKSORT...T.CHAR.| 000004D0: 35 33 30 33 39 3A 20 20 20 20 20 8F 20 5A 45 49 |53039: . ZEI| 000004E0: 43 48 45 4E 53 41 54 5A 20 49 4E 49 54 00 14 0D |CHENSATZ INIT...| 000004F0: 56 00 47 43 B2 33 38 31 34 34 3A 20 20 20 20 20 |V.GC.38144: | 00000500: 20 20 8F 20 47 41 52 42 41 47 45 20 43 4F 4C 4C | . GARBAGE COLL| 00000510: 45 43 54 2E 00 1A 0D 58 00 3A 00 20 0D 5A 00 3A |ECT....X.:. .Z.:| 00000520: 00 45 0D 5C 00 8F 20 2A 2A 20 53 54 41 52 54 41 |.E.\.. ** STARTA| 00000530: 44 52 45 53 53 45 4E 20 44 2E 54 41 42 45 4C 4C |DRESSEN D.TABELL| 00000540: 45 4E 20 2A 2A 00 69 0D 5E 00 4D 54 B2 31 35 33 |EN **.i.^.MT.153| 00000550: 36 3A 20 20 20 20 20 20 20 20 8F 20 4D 41 4B 52 |6: . MAKR| 00000560: 4F 2D 54 41 42 45 4C 4C 45 00 8C 0D 60 00 43 54 |O-TABELLE...`.CT| 00000570: B2 31 37 39 32 3A 20 20 20 20 20 20 20 20 8F 20 |.1792: . | 00000580: 43 4F 44 45 2D 54 41 42 45 4C 4C 45 00 92 0D 62 |CODE-TABELLE...b| 00000590: 00 3A 00 98 0D 64 00 3A 00 BE 0D 66 00 8F 20 2A |.:...d.:...f.. *| 000005A0: 2A 20 5A 57 49 4E 47 45 4E 44 45 20 49 4E 49 54 |* ZWINGENDE INIT| 000005B0: 49 41 4C 49 53 49 45 52 47 2E 20 2A 2A 2A 00 E0 |IALISIERG. ***..| 000005C0: 0D 68 00 9E 20 46 53 43 52 45 45 4E 20 3A 8F 20 |.h.. FSCREEN :. | 000005D0: 46 41 53 54 53 43 52 45 45 4E 20 49 4E 49 54 2E |FASTSCREEN INIT.| 000005E0: 00 FE 0D 6A 00 9E 20 4D 41 4B 52 4F 20 20 20 3A |...j.. MAKRO :| 000005F0: 8F 20 4D 41 4B 52 4F 53 20 49 4E 49 54 2E 00 21 |. MAKROS INIT..!| 00000600: 0E 6C 00 9E 20 43 48 41 52 20 20 20 20 3A 8F 20 |.l.. CHAR :. | 00000610: 5A 45 49 43 48 45 4E 53 41 54 5A 20 49 4E 49 54 |ZEICHENSATZ INIT| 00000620: 2E 00 45 0E 6E 00 9E 20 50 49 4E 49 54 20 20 20 |..E.n.. PINIT | 00000630: 3A 8F 20 50 55 46 46 45 52 52 4F 55 54 49 4E 45 |:. PUFFERROUTINE| 00000640: 20 49 4E 49 54 00 4B 0E 70 00 3A 00 81 0E 72 00 | INIT.K.p.:...r.| 00000650: 99 20 C7 28 31 34 29 20 C7 28 38 29 3A 8F 20 4B |. .(14) .(8):. K| 00000660: 4C 45 49 4E 2F 47 52 4F 53 53 2D 4D 4F 44 55 53 |LEIN/GROSS-MODUS| 00000670: 20 49 53 54 20 5A 57 49 4E 47 45 4E 44 20 21 21 | IST ZWINGEND !!| 00000680: 21 00 87 0E 74 00 3A 00 BE 0E 76 00 81 20 49 B2 |!...t.:...v.. I.| 00000690: 31 20 A4 20 32 35 35 3A 97 20 43 54 AA 49 AB 31 |1 . 255:. CT.I.1| 000006A0: 2C 49 3A 82 20 49 3A 8F 20 43 4F 4D 4D 4F 44 4F |,I:. I:. COMMODO| 000006B0: 52 45 2D 43 4F 44 45 53 20 49 4E 49 54 2E 00 C4 |RE-CODES INIT...| 000006C0: 0E 78 00 3A 00 CA 0E 7A 00 3A 00 D0 0E 8A 00 3A |.x.:...z.:.....:| 000006D0: 00 F6 0E C8 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********| 000006E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006F0: 2A 2A 2A 2A 2A 2A 00 1C 0F D2 00 8F 20 2A 20 20 |******...... * | 00000700: 20 20 20 20 20 48 41 55 50 54 50 52 4F 47 52 41 | HAUPTPROGRA| 00000710: 4D 4D 20 20 20 20 20 20 20 20 20 2A 00 42 0F DC |MM *.B..| 00000720: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000740: 2A 2A 00 48 0F E6 00 3A 00 5D 0F F0 00 41 B2 39 |**.H...:.]...A.9| 00000750: 3A 86 41 24 28 41 29 2C 50 25 28 41 29 00 8D 0F |:.A$(A),P%(A)...| 00000760: FA 00 99 22 42 49 54 54 45 20 57 41 52 54 45 4E |..."BITTE WARTEN| 00000770: 2E 20 53 4F 52 54 53 54 52 49 4E 47 53 20 57 45 |. SORTSTRINGS WE| 00000780: 52 44 45 4E 20 45 52 5A 45 55 47 54 22 00 CC 0F |RDEN ERZEUGT"...| 00000790: 04 01 81 49 B2 30 A4 41 3A 41 24 28 49 29 B2 22 |...I.0.A:A$(I)."| 000007A0: 22 3A 81 49 49 B2 31 A4 32 30 3A 41 24 28 49 29 |":.II.1.20:A$(I)| 000007B0: B2 41 24 28 49 29 AA C7 28 B5 28 BB 28 54 49 29 |.A$(I)..(.(.(TI)| 000007C0: AC 32 35 29 AA 36 35 29 3A 82 49 49 00 E3 0F 0E |.25).65):.II....| 000007D0: 01 50 25 28 49 29 B2 49 3A 82 49 3A 99 C7 28 31 |.P%(I).I:.I:..(1| 000007E0: 34 37 29 00 FD 0F 18 01 81 49 B2 30 A4 41 3A 99 |47)......I.0.A:.| 000007F0: 41 24 28 49 29 2C 50 25 28 49 29 3A 82 00 07 10 |A$(I),P%(I):....| 00000800: 1A 01 5A 31 B2 54 49 00 0D 10 1D 01 3A 00 35 10 |..Z1.TI.....:.5.| 00000810: 22 01 9E 20 51 55 49 43 4B 2C 30 2C 30 2C 41 24 |".. QUICK,0,0,A$| 00000820: 28 30 29 2C 41 24 28 41 29 2C 50 25 28 30 29 2C |(0),A$(A),P%(0),| 00000830: 50 25 28 41 29 00 3B 10 24 01 3A 00 45 10 26 01 |P%(A).;.$.:.E.&.| 00000840: 5A 32 B2 54 49 00 61 10 2C 01 99 3A 81 49 B2 30 |Z2.TI.a.,..:.I.0| 00000850: A4 41 3A 99 41 24 28 49 29 2C 50 25 28 49 29 3A |.A:.A$(I),P%(I):| 00000860: 82 00 76 10 36 01 99 28 5A 32 AB 5A 31 29 AD 36 |..v.6..(Z2.Z1).6| 00000870: 30 22 53 45 43 22 00 8D 10 40 01 99 20 22 54 41 |0"SEC"...@.. "TA| 00000880: 53 54 45 20 44 52 55 45 43 4B 45 4E 22 00 A4 10 |STE DRUECKEN"...| 00000890: 4A 01 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |J.. A$:. A$."" .| 000008A0: 20 33 33 30 00 AE 10 54 01 89 20 32 35 30 00 00 | 330...T.. 250..| 000008B0: 00 |. |
..$.... ** MC-ROUTINEN NACHLADEN ***.9..
.. B(56).149 . 26.F...F.B(187).256.B(188
):. AKTUELLER FILENAME...... B(F)..77 .
B(F.1)..67 . B(F.2)..50 . . "MC1.OBJ",8,
1...... 55,0:. 56,149:.:. "MC2.OBJ",8,1:
. BASIC-ANFANG HERABSETZEN.....:.....:..
.... ** STARTADRESSEN MC-ROUTINEN **.;..
.IO.38912: . MODUL 1 (DISKIO).[...
BLAETTERN.IO: . BLAETTERN.Y...COVERT.I
O.3: . CONVERT... .CRS.IO.6: .
CURSOR SETZEN...".SI.IO.9: . SATZ
INFO...$.DAUSGABE.IO.12: . DISK-AUSGABE.
..&.DEINGABE.IO.15: . DISK-EINGABE.".(.D
IR.IO.18: . DIRECTORY.H.*.SPEICHERN
.IO.21:. BLOCK SPEICHERN.J.,.VLADEN.IO.2
4: . BLOCK LADEN.P...:...0.TR.39888:
. MODUL 2(TREIBER)...2.MAKRO.TR:
. MAKROS INIT....4.FSCREEN.TR.3: .
FASTSCREEN INIT....6.WAHL.TR.6: .
KOMMANDO-AUSWAHL.,.8.SEARCH.TR.9: . S
TRING SUCHEN.Q.:.AUSGABE.TR.12: . STRIN
G-AUSGABE.U.<.SRIELL.TR.15: . SERIELL
INIT....>.PARALLEL.TR.18: . PARALLEL INI
T....@.PRESENT.TR.21: . DEVICE PRESENT.
E.B.:...D.PINIT.50960: . PUFFER INIT.
...F.WINDOW.PINIT.3: . WINDOWS MALEN.2.H
.PUFFER.PINIT.6: . WINDOWS PUFFERN.T.J.I
NVERT.PINIT.9: . INVERTIEREN.Z.L.CNTROL.
PINIT.12:. MENUE-KONTROLLE...N.:...P.EIN
GABE.50176: . EINGABE-ROUTINE.F.R.QUICK
.52240: . QUICKSORT...T.CHAR.53039:
. ZEICHENSATZ INIT...V.GC.38144:
. GARBAGE COLLECT....X.:. .Z.:.E.\.. *
* STARTADRESSEN D.TABELLEN **.I.^.MT.153
6: . MAKRO-TABELLE...`.CT.1792:
. CODE-TABELLE...B.:...D.:...F.. *
* ZWINGENDE INITIALISIERG. ***...H.. FSC
REEN :. FASTSCREEN INIT....J.. MAKRO :
. MAKROS INIT..!.L.. CHAR :. ZEICHENS
ATZ INIT..E.N.. PINIT :. PUFFERROUTINE
INIT.K.P.:...R.. G(14) G(8):. KLEIN/GRO
SS-MODUS IST ZWINGEND !!!...T.:...V.. I.
1 . 255:. CT.I.1,I:. I:. COMMODORE-CODES
INIT..D.X.:.J.Z.:.P...:...H.. *********
**********************...R.. * HAU
PTPROGRAMM *.B.... *************
******************.H...:.]...A.9:.A$(A),
P%(A)......"BITTE WARTEN. SORTSTRINGS WE
RDEN ERZEUGT".L....I.0.A:A$(I)."":.II.1.
20:A$(I).A$(I).G(.(.(TI).25).65):.II....
.P%(I).I:.I:.G(147)......I.0.A:.A$(I),P%
(I):......Z1.TI.....:.5.".. QUICK,0,0,A$
(0),A$(A),P%(0),P%(A).;.$.:.E.&.Z2.TI.A.
,..:.I.0.A:.A$(I),P%(I):..V.6..(Z2.Z1).6
0"SEC"...@.. "TASTE DRUECKEN"...J.. A$:.
A$."" . 330...T.. 250...
> CLICK IMAGE PREVIEW FOR FULL MODAL