00000000: 0A 22 18 22 0A 00 2E 42 41 20 35 30 33 30 30 00 |."."...BA 50300.|
00000010: 1E 22 14 00 3B 00 34 22 1E 00 2E 45 51 20 53 43 |."..;.4"...EQ SC|
00000020: 52 45 45 4E 4D 45 4D 3D 32 35 31 00 4A 22 28 00 |REENMEM=251.J"(.|
00000030: 2E 45 51 20 53 43 52 45 45 4E 43 4F 4C 3D 32 35 |.EQ SCREENCOL=25|
00000040: 33 00 61 22 32 00 2E 45 51 20 54 45 58 54 46 49 |3.a"2..EQ TEXTFI|
00000050: 4C 45 20 3D 20 31 36 36 00 67 22 3C 00 3B 00 7E |LE = 166.g"<.;.~|
00000060: 22 46 00 2E 45 51 20 53 45 54 4E 41 4D 20 3D 20 |"F..EQ SETNAM = |
00000070: 24 46 46 42 44 00 95 22 50 00 2E 45 51 20 53 45 |$FFBD.."P..EQ SE|
00000080: 54 4C 46 53 20 3D 20 24 46 46 42 41 00 AC 22 5A |TLFS = $FFBA.."Z|
00000090: 00 2E 45 51 20 53 41 56 45 20 20 20 3D 20 24 46 |..EQ SAVE = $F|
000000A0: 35 44 44 00 B2 22 64 00 3B 00 DA 22 6E 00 3B 4F |5DD.."d.;.."n.;O|
000000B0: 45 46 46 4E 45 20 4B 41 4E 41 4C 20 46 55 45 52 |EFFNE KANAL FUER|
000000C0: 20 4B 41 53 53 45 54 54 45 4E 41 55 53 47 41 42 | KASSETTENAUSGAB|
000000D0: 45 00 E0 22 78 00 3B 00 F1 22 82 00 20 4C 44 41 |E.."x.;..".. LDA|
000000E0: 46 49 4C 45 4E 41 4D 45 00 08 23 8C 00 20 4C 44 |FILENAME..#.. LD|
000000F0: 58 23 3C 28 46 49 4C 45 4E 41 4D 45 2B 31 29 00 |X#<(FILENAME+1).|
00000100: 1F 23 96 00 20 4C 44 59 23 3E 28 46 49 4C 45 4E |.#.. LDY#>(FILEN|
00000110: 41 4D 45 2B 31 29 00 2E 23 A0 00 20 4A 53 52 53 |AME+1)..#.. JSRS|
00000120: 45 54 4E 41 4D 00 34 23 AA 00 3B 00 3F 23 B4 00 |ETNAM.4#..;.?#..|
00000130: 20 4C 44 41 23 30 00 4A 23 BE 00 20 4C 44 58 23 | LDA#0.J#.. LDX#|
00000140: 31 00 55 23 C8 00 20 4C 44 59 23 31 00 64 23 D2 |1.U#.. LDY#1.d#.|
00000150: 00 20 4A 53 52 53 45 54 4C 46 53 00 6A 23 DC 00 |. JSRSETLFS.j#..|
00000160: 3B 00 98 23 E6 00 3B 20 49 4E 49 54 49 49 45 52 |;..#..; INITIIER|
00000170: 45 20 41 4E 46 41 4E 47 20 55 4E 44 20 45 4E 44 |E ANFANG UND END|
00000180: 45 20 44 45 53 20 54 45 58 54 46 49 4C 45 53 00 |E DES TEXTFILES.|
00000190: 9E 23 F0 00 3B 00 B0 23 FA 00 20 4C 44 41 23 3C |.#..;..#.. LDA#<|
000001A0: 28 33 30 30 30 30 29 00 C1 23 04 01 20 53 54 41 |(30000)..#.. STA|
000001B0: 54 45 58 54 46 49 4C 45 00 D3 23 0E 01 20 4C 44 |TEXTFILE..#.. LD|
000001C0: 41 23 3E 28 33 30 30 30 30 29 00 E6 23 18 01 20 |A#>(30000)..#.. |
000001D0: 53 54 41 54 45 58 54 46 49 4C 45 2B 31 00 FB 23 |STATEXTFILE+1..#|
000001E0: 22 01 20 4C 44 41 23 3C 28 54 45 58 54 46 49 4C |". LDA#<(TEXTFIL|
000001F0: 45 29 00 01 24 2C 01 3B 00 13 24 36 01 20 4C 44 |E)..$,.;..$6. LD|
00000200: 58 23 3C 28 33 31 30 30 31 29 00 25 24 40 01 20 |X#<(31001).%$@. |
00000210: 4C 44 59 23 3E 28 33 31 30 30 31 29 00 2B 24 4A |LDY#>(31001).+$J|
00000220: 01 3B 00 50 24 54 01 3B 20 47 45 42 45 20 54 45 |.;.P$T.; GEBE TE|
00000230: 58 54 46 49 4C 45 20 5A 55 52 20 4B 41 53 53 45 |XTFILE ZUR KASSE|
00000240: 54 54 45 20 41 55 53 00 56 24 5E 01 3B 00 63 24 |TTE AUS.V$^.;.c$|
00000250: 68 01 20 4A 53 52 53 41 56 45 00 69 24 72 01 3B |h. JSRSAVE.i$r.;|
00000260: 00 96 24 7C 01 3B 20 46 45 52 54 49 47 3A 20 4B |..$|.; FERTIG: K|
00000270: 45 48 52 45 20 56 4F 4E 20 55 4E 54 45 52 52 4F |EHRE VON UNTERRO|
00000280: 55 54 49 4E 45 20 5A 55 52 55 45 43 4B 00 9C 24 |UTINE ZURUECK..$|
00000290: 86 01 3B 00 A4 24 90 01 52 54 53 00 AA 24 9A 01 |..;..$..RTS..$..|
000002A0: 3B 00 B0 24 A4 01 3B 00 BD 24 AE 01 46 49 4C 45 |;..$..;..$..FILE|
000002B0: 4E 41 4D 45 00 C7 24 B8 01 2E 42 59 20 38 00 DA |NAME..$...BY 8..|
000002C0: 24 C2 01 2E 54 58 20 22 54 45 58 54 46 49 4C 45 |$...TX "TEXTFILE|
000002D0: 22 00 00 00 |"... |
."."...BA 50300.."..;.4"...EQ SCREENMEM=
251.J"(..EQ SCREENCOL=253.A"2..EQ TEXTFI
LE = 166.G"<.;.~"F..EQ SETNAM = $FFBD.."
P..EQ SETLFS = $FFBA.."Z..EQ SAVE = $F
5DD.."D.;.Z"N.;OEFFNE KANAL FUER KASSETT
ENAUSGABE.."X.;..".. LDAFILENAME..#.. LD
X#<(FILENAME+1)..#.. LDY#>(FILENAME+1)..
# . JSRSETNAM.4#..;.?#.. LDA#0.J#.. LDX#
1.U#H. LDY#1.D#R. JSRSETLFS.J#..;..#..;
INITIIERE ANFANG UND ENDE DES TEXTFILES.
.#..;..#.. LDA#<(30000).A#.. STATEXTFILE
.S#.. LDA#>(30000)..#.. STATEXTFILE+1..#
". LDA#<(TEXTFILE)..$,.;..$6. LDX#<(3100
1).%$@. LDY#>(31001).+$J.;.P$T.; GEBE TE
XTFILE ZUR KASSETTE AUS.V$^.;.C$H. JSRSA
VE.I$R.;..$|.; FERTIG: KEHRE VON UNTERRO
UTINE ZURUECK..$..;..$..RTS..$..;..$..;.
.$..FILENAME.G$...BY 8.Z$B..TX "TEXTFILE
"...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL