00000000: D8 1F DE 1F 64 00 3B 00 00 20 6E 00 3B 20 54 45 |....d.;.. n.; TE|
00000010: 58 54 20 49 4E 20 56 49 44 45 4F 2D 52 41 4D 20 |XT IN VIDEO-RAM |
00000020: 53 43 48 52 45 49 42 45 4E 00 06 20 78 00 3B 00 |SCHREIBEN.. x.;.|
00000030: 27 20 82 00 2E 42 41 20 24 43 30 30 30 20 3B 20 |' ...BA $C000 ; |
00000040: 53 54 41 52 54 3A 20 53 59 53 20 34 39 31 35 32 |START: SYS 49152|
00000050: 00 2D 20 8C 00 3B 00 5A 20 96 00 2E 47 4C 20 43 |.- ..;.Z ...GL C|
00000060: 4C 52 53 43 52 20 3D 20 24 45 35 34 34 20 3B 20 |LRSCR = $E544 ; |
00000070: 42 49 4C 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 |BILDSCHIRM LOESC|
00000080: 48 45 4E 00 60 20 A0 00 3B 00 74 20 AA 00 2E 47 |HEN.` ..;.t ...G|
00000090: 4C 20 5A 45 49 4C 45 20 20 3D 20 31 32 00 88 20 |L ZEILE = 12.. |
000000A0: B4 00 2E 47 4C 20 53 50 41 4C 54 45 20 3D 20 31 |...GL SPALTE = 1|
000000B0: 30 00 8E 20 BE 00 3B 00 BB 20 C8 00 2E 47 4C 20 |0.. ..;.. ...GL |
000000C0: 56 49 44 45 4F 52 41 4D 20 3D 20 31 30 32 34 20 |VIDEORAM = 1024 |
000000D0: 3B 20 42 49 4C 44 53 43 48 49 52 4D 53 50 45 49 |; BILDSCHIRMSPEI|
000000E0: 43 48 45 52 00 EC 20 D2 00 2E 47 4C 20 41 44 52 |CHER.. ...GL ADR|
000000F0: 45 53 53 45 20 3D 20 56 49 44 45 4F 52 41 4D 20 |ESSE = VIDEORAM |
00000100: 2B 20 28 34 30 2A 5A 45 49 4C 45 29 20 2B 20 53 |+ (40*ZEILE) + S|
00000110: 50 41 4C 54 45 00 F2 20 DC 00 3B 00 14 21 2C 01 |PALTE.. ..;..!,.|
00000120: 20 4A 53 52 43 4C 52 53 43 52 3B 20 3D 20 50 52 | JSRCLRSCR; = PR|
00000130: 49 4E 54 20 43 48 52 24 28 31 34 37 29 00 1F 21 |INT CHR$(147)..!|
00000140: 36 01 20 4C 44 58 23 30 00 4C 21 40 01 53 43 48 |6. LDX#0.L!@.SCH|
00000150: 4C 45 49 46 45 20 4C 44 41 54 45 58 54 2C 58 3B |LEIFE LDATEXT,X;|
00000160: 20 42 49 4C 44 53 43 48 49 52 4D 43 4F 44 45 20 | BILDSCHIRMCODE |
00000170: 4C 45 53 45 4E 00 68 21 4A 01 20 42 45 51 45 4E |LESEN.h!J. BEQEN|
00000180: 44 45 3B 20 3D 30 2C 20 44 41 4E 4E 20 45 4E 44 |DE; =0, DANN END|
00000190: 45 00 91 21 54 01 20 53 54 41 41 44 52 45 53 53 |E..!T. STAADRESS|
000001A0: 45 2C 58 3B 20 49 4E 20 42 49 4C 44 53 43 48 49 |E,X; IN BILDSCHI|
000001B0: 52 4D 53 50 45 49 43 48 45 52 00 9A 21 5E 01 20 |RMSPEICHER..!^. |
000001C0: 49 4E 58 00 BE 21 68 01 20 4A 4D 50 53 43 48 4C |INX..!h. JMPSCHL|
000001D0: 45 49 46 45 3B 20 4E 41 45 43 48 53 54 45 53 20 |EIFE; NAECHSTES |
000001E0: 5A 45 49 43 48 45 4E 00 CB 21 72 01 45 4E 44 45 |ZEICHEN..!r.ENDE|
000001F0: 20 52 54 53 00 D1 21 7C 01 3B 00 F4 21 F4 01 54 | RTS..!|.;..!..T|
00000200: 45 58 54 20 2E 42 59 34 2C 31 2C 31 39 2C 22 20 |EXT .BY4,1,19," |
00000210: 22 2C 39 2C 31 39 2C 32 30 2C 22 20 22 00 16 22 |",9,19,20," ".."|
00000220: FE 01 2E 42 59 20 34 2C 35 2C 31 38 2C 22 20 22 |...BY 4,5,18," "|
00000230: 2C 32 30 2C 35 2C 32 34 2C 32 30 2C 22 21 22 00 |,20,5,24,20,"!".|
00000240: 3B 22 08 02 2E 42 59 20 30 20 3B 20 45 4E 44 4D |;"...BY 0 ; ENDM|
00000250: 41 52 4B 49 45 52 55 4E 47 20 44 45 53 20 54 45 |ARKIERUNG DES TE|
00000260: 58 54 45 53 00 00 00 |XTES... |
X...D.;.. N.; TEXT IN VIDEO-RAM SCHREIBE
N.. X.;.' ...BA $C000 ; START: SYS 49152
.- ..;.Z ...GL CLRSCR = $E544 ; BILDSCHI
RM LOESCHEN.` .;.T ...GL ZEILE = 12..
...GL SPALTE = 10.. ..;.. H..GL VIDEORAM
= 1024 ; BILDSCHIRMSPEICHER.. R..GL ADR
ESSE = VIDEORAM + (40*ZEILE) + SPALTE..
..;..!,. JSRCLRSCR; = PRINT CHR$(147)..!
6. LDX#0.L!@.SCHLEIFE LDATEXT,X; BILDSCH
IRMCODE LESEN.H!J. BEQENDE; =0, DANN END
E..!T. STAADRESSE,X; IN BILDSCHIRMSPEICH
ER..!^. INX..!H. JMPSCHLEIFE; NAECHSTES
ZEICHEN.K!R.ENDE RTS.Q!|.;..!..TEXT .BY4
,1,19," ",9,19,20," ".."...BY 4,5,18," "
,20,5,24,20,"!".;"...BY 0 ; ENDMARKIERUN
G DES TEXTES...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL