BLAETTERN
FILE INFORMATION
FILENAME(S): BLAETTERN
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-02 22:11:12
APPEARS ON: 1 disk(s)
FILE HASH
29244f0b394b94ec58d3e80f52911f0e9cfa97dd95d6466cb772d8c036576d63
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90617 | BLAETTERN | PRG | Treasure Chest - ToGuMi | 28 | 7 | 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 42 4C 41 45 54 54 45 52 4E 2D 44 | BLAETTERN-D| 00000710: 45 4D 4F 20 20 20 20 20 20 20 20 2A 00 42 0F DC |EMO *.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 6C 0F F0 00 8F 20 2A |**.H...:.l.... *| 00000750: 2A 20 50 53 45 55 44 4F 2D 54 41 42 45 4C 4C 45 |* PSEUDO-TABELLE| 00000760: 20 45 52 5A 45 55 47 45 4E 20 2A 2A 00 79 0F FA | ERZEUGEN **.y..| 00000770: 00 86 20 58 28 31 30 30 29 00 89 0F 04 01 81 20 |.. X(100)...... | 00000780: 49 B2 31 20 A4 20 31 30 30 00 99 0F 0E 01 3A 20 |I.1 . 100.....: | 00000790: 58 28 49 29 B2 BB 28 30 29 00 A1 0F 18 01 82 20 |X(I)..(0)...... | 000007A0: 49 00 A7 0F 22 01 3A 00 CA 0F 2C 01 8F 20 2A 2A |I...".:...,.. **| 000007B0: 20 54 41 42 45 4C 4C 45 20 44 55 52 43 48 42 4C | TABELLE DURCHBL| 000007C0: 41 45 54 54 45 52 4E 20 2A 2A 00 EA 0F 36 01 4E |AETTERN **...6.N| 000007D0: 52 25 B2 31 3A 8F 20 53 54 41 52 54 20 4D 49 54 |R%.1:. START MIT| 000007E0: 20 57 45 52 54 20 4E 52 2E 31 00 F0 0F 3B 01 3A | WERT NR.1...;.:| 000007F0: 00 22 10 3D 01 42 4C 24 B2 C7 28 31 33 34 29 AA |.".=.BL$..(134).| 00000800: C7 28 31 33 38 29 AA C7 28 31 33 33 29 AA C7 28 |.(138)..(133)..(| 00000810: 31 33 37 29 AA C7 28 31 33 35 29 AA C7 28 31 33 |137)..(135)..(13| 00000820: 39 29 00 28 10 3E 01 3A 00 44 10 40 01 99 20 C7 |9).(.>.:.D.@.. .| 00000830: 28 31 34 37 29 3A 8F 20 43 4C 45 41 52 20 53 43 |(147):. CLEAR SC| 00000840: 52 45 45 4E 00 58 10 4A 01 81 20 49 B2 4E 52 25 |REEN.X.J.. I.NR%| 00000850: 20 A4 20 4E 52 25 AA 39 00 65 10 54 01 3A 20 99 | . NR%.9.e.T.: .| 00000860: 20 58 28 49 29 00 6D 10 5E 01 82 20 49 00 73 10 | X(I).m.^.. I.s.| 00000870: 68 01 3A 00 89 10 72 01 9E 20 53 49 2C 31 32 2C |h.:...r.. SI,12,| 00000880: 30 2C 4E 52 25 2C 31 30 30 00 8F 10 7C 01 3A 00 |0,NR%,100...|.:.| 00000890: A8 10 86 01 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |..... A$:. A$.""| 000008A0: 20 A7 20 89 20 33 39 30 00 C5 10 90 01 49 25 B2 | . . 390.....I%.| 000008B0: 31 3A 9E 20 57 41 48 4C 2C 42 4C 24 2C C6 28 41 |1:. WAHL,BL$,.(A| 000008C0: 24 29 2C 49 25 00 E9 10 9A 01 8B 20 49 25 B3 B1 |$),I%...... I%..| 000008D0: 30 20 A7 20 9E 20 42 4C 41 45 54 54 45 52 4E 2C |0 . . BLAETTERN,| 000008E0: 39 30 2C 49 25 2C 4E 52 25 00 F3 10 B8 01 89 20 |90,I%,NR%...... | 000008F0: 33 32 30 00 00 00 |320... |
..$.... ** 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.. * BLA
ETTERN-DEMO *.B.... *************
******************.H...:.L.... ** PSEUDO
-TABELLE ERZEUGEN **.Y.... X(100)......
I.1 . 100.....: X(I)..(0)...... I...".:.
J.,.. ** TABELLE DURCHBLAETTERN **...6.N
R%.1:. START MIT WERT NR.1...;.:.".=.BL$
.G(134).G(138).G(133).G(137).G(135).G(13
9).(.>.:.D.@.. G(147):. CLEAR SCREEN.X.J
.. I.NR% . NR%.9.E.T.: . X(I).M.^.. I.S.
H.:...R.. SI,12,0,NR%,100...|.:...... A$
:. A$."" . . 390.E...I%.1:. WAHL,BL$,F(A
$),I%...... I%..0 . . BLAETTERN,90,I%,NR
%...... 320...
> CLICK IMAGE PREVIEW FOR FULL MODAL