LISTING 10.3 (S)
FILE INFORMATION
FILENAME(S): LISTING 10.3 (S)
FILE TYPE(S): PRG
FILE SIZE: 530b
FIRST SEEN: 2025-10-20 14:31:28
APPEARS ON: 1 disk(s)
FILE HASH
1a4dba92f534834566b3c5c8454ddf32fe15969c702d6434ea0d5d80f7595e9a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90499 SEITE 2 | LISTING 10.3 (S) | PRG | Treasure Chest - Klaus Der Suhler | 21 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F DE 1F 64 00 3B 00 FF 1F 6E 00 3B 20 54 45 |....d.;...n.; TE| 00000010: 58 54 41 55 53 47 41 42 45 20 28 55 45 42 45 52 |XTAUSGABE (UEBER| 00000020: 20 53 54 52 4F 55 54 29 00 05 20 78 00 3B 00 26 | STROUT).. x.;.&| 00000030: 20 82 00 2E 42 41 20 24 43 30 30 30 20 3B 20 53 | ...BA $C000 ; S| 00000040: 54 41 52 54 3A 20 53 59 53 20 34 39 31 35 32 00 |TART: SYS 49152.| 00000050: 2C 20 8C 00 3B 00 43 20 96 00 2E 47 4C 20 53 54 |, ..;.C ...GL ST| 00000060: 52 4F 55 54 20 3D 20 24 41 42 31 45 00 5A 20 A0 |ROUT = $AB1E.Z .| 00000070: 00 2E 47 4C 20 43 55 52 53 4F 52 20 3D 20 24 45 |..GL CURSOR = $E| 00000080: 35 30 43 00 87 20 AA 00 2E 47 4C 20 43 4C 52 53 |50C.. ...GL CLRS| 00000090: 43 52 20 3D 20 24 45 35 34 34 20 3B 20 42 49 4C |CR = $E544 ; BIL| 000000A0: 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 4E |DSCHIRM LOESCHEN| 000000B0: 00 8D 20 B4 00 3B 00 A1 20 BE 00 2E 47 4C 20 5A |.. ..;.. ...GL Z| 000000C0: 45 49 4C 45 20 20 3D 20 31 32 00 B5 20 C8 00 2E |EILE = 12.. ...| 000000D0: 47 4C 20 53 50 41 4C 54 45 20 3D 20 31 30 00 BB |GL SPALTE = 10..| 000000E0: 20 D2 00 3B 00 DD 20 2C 01 20 4A 53 52 43 4C 52 | ..;.. ,. JSRCLR| 000000F0: 53 43 52 3B 20 3D 20 50 52 49 4E 54 20 43 48 52 |SCR; = PRINT CHR| 00000100: 24 28 31 34 37 29 00 F8 20 90 01 20 4C 44 58 23 |$(147).. .. LDX#| 00000110: 5A 45 49 4C 45 3B 20 5A 45 49 4C 45 20 49 4E 20 |ZEILE; ZEILE IN | 00000120: 58 00 15 21 9A 01 20 4C 44 59 23 53 50 41 4C 54 |X..!.. LDY#SPALT| 00000130: 45 3B 20 53 50 41 4C 54 45 20 49 4E 20 59 00 33 |E; SPALTE IN Y.3| 00000140: 21 A4 01 20 4A 53 52 43 55 52 53 4F 52 3B 20 43 |!.. JSRCURSOR; C| 00000150: 55 52 53 4F 52 20 53 45 54 5A 45 4E 00 56 21 F4 |URSOR SETZEN.V!.| 00000160: 01 20 4C 44 41 23 3C 28 54 45 58 54 29 3B 20 4C |. LDA#<(TEXT); L| 00000170: 4F 57 2D 42 59 54 45 20 49 4E 20 41 4B 4B 55 00 |OW-BYTE IN AKKU.| 00000180: 77 21 FE 01 20 4C 44 59 23 3E 28 54 45 58 54 29 |w!.. LDY#>(TEXT)| 00000190: 3B 20 48 49 47 48 2D 42 59 54 45 20 49 4E 20 59 |; HIGH-BYTE IN Y| 000001A0: 00 9A 21 08 02 20 4A 4D 50 53 54 52 4F 55 54 3B |..!.. JMPSTROUT;| 000001B0: 20 54 45 58 54 41 55 53 47 41 42 45 20 26 20 45 | TEXTAUSGABE & E| 000001C0: 4E 44 45 00 A0 21 58 02 3B 00 C0 21 62 02 54 45 |NDE..!X.;..!b.TE| 000001D0: 58 54 20 2E 54 58 22 44 41 53 20 49 53 54 20 44 |XT .TX"DAS IST D| 000001E0: 45 52 20 54 45 58 54 21 22 00 E6 21 6C 02 2E 42 |ER TEXT!"..!l..B| 000001F0: 59 20 30 20 3B 20 45 4E 44 4D 41 52 4B 49 45 52 |Y 0 ; ENDMARKIER| 00000200: 55 4E 47 20 46 55 45 52 20 53 54 52 4F 55 54 00 |UNG FUER STROUT.| 00000210: 00 00 |.. |
X...D.;...N.; TEXTAUSGABE (UEBER STROUT) .. X.;.& ...BA $C000 ; START: SYS 49152. , ..;.C ...GL STROUT = $AB1E.Z ..GL CUR SOR = $E50C.. ...GL CLRSCR = $E544 ; BIL DSCHIRM LOESCHEN.. ..;.. ...GL ZEILE = 12.. H..GL SPALTE = 10.. R.;.. ,. JSRCLR SCR; = PRINT CHR$(147).. .. LDX#ZEILE; Z EILE IN X..!.. LDY#SPALTE; SPALTE IN Y.3 !.. JSRCURSOR; CURSOR SETZEN.V!.. LDA#<( TEXT); LOW-BYTE IN AKKU.W!.. LDY#>(TEXT) ; HIGH-BYTE IN Y..!.. JMPSTROUT; TEXTAUS GABE & ENDE. !X.;..!B.TEXT .TX"DAS IST D ER TEXT!"..!L..BY 0 ; ENDMARKIERUNG FUER STROUT...
> CLICK IMAGE PREVIEW FOR FULL MODAL