00000000: D8 1F DE 1F 64 00 3B 00 01 20 6E 00 3B 20 42 45 |....d.;.. n.; BE|
00000010: 49 53 50 49 45 4C 20 46 55 45 52 20 53 54 52 49 |ISPIEL FUER STRI|
00000020: 4E 47 20 28 24 43 31 33 36 29 00 07 20 78 00 3B |NG ($C136).. x.;|
00000030: 00 15 20 82 00 2E 42 41 20 24 30 34 30 32 00 2A |.. ...BA $0402.*|
00000040: 20 8C 00 2E 4F 42 20 22 53 54 52 49 4E 47 2C 50 | ...OB "STRING,P|
00000050: 2C 57 22 00 30 20 96 00 3B 00 47 20 A0 00 2E 47 |,W".0 ..;.G ...G|
00000060: 4C 20 53 54 52 49 4E 47 20 3D 20 24 43 31 33 36 |L STRING = $C136|
00000070: 00 4D 20 AA 00 3B 00 64 20 B4 00 20 4C 44 41 23 |.M ..;.d .. LDA#|
00000080: 3C 28 53 54 52 49 4E 47 41 44 44 52 29 00 7B 20 |<(STRINGADDR).{ |
00000090: BE 00 20 4C 44 59 23 3E 28 53 54 52 49 4E 47 41 |.. LDY#>(STRINGA|
000000A0: 44 44 52 29 00 87 20 C8 00 20 53 54 41 24 30 32 |DDR).. .. STA$02|
000000B0: 00 93 20 D2 00 20 53 54 59 24 30 33 00 B8 20 DC |.. .. STY$03.. .|
000000C0: 00 20 4A 53 52 53 54 52 49 4E 47 3B 20 47 52 41 |. JSRSTRING; GRA|
000000D0: 46 49 4B 2D 42 45 46 45 48 4C 53 53 54 52 49 4E |FIK-BEFEHLSSTRIN|
000000E0: 47 00 CE 20 E6 00 20 4C 44 41 23 3C 28 50 41 52 |G.. .. LDA#<(PAR|
000000F0: 41 4D 45 54 45 52 29 00 E4 20 F0 00 20 4C 44 59 |AMETER).. .. LDY|
00000100: 23 3E 28 50 41 52 41 4D 45 54 45 52 29 00 F0 20 |#>(PARAMETER).. |
00000110: FA 00 20 53 54 41 24 30 32 00 FC 20 04 01 20 53 |.. STA$02.. .. S|
00000120: 54 59 24 30 33 00 16 21 0E 01 20 4A 53 52 24 43 |TY$03..!.. JSR$C|
00000130: 32 35 36 3B 20 44 49 41 4C 4F 47 2D 42 4F 58 00 |256; DIALOG-BOX.|
00000140: 1C 21 18 01 3B 00 39 21 22 01 20 4A 4D 50 24 43 |.!..;.9!". JMP$C|
00000150: 32 32 43 3B 20 44 45 53 4B 54 4F 50 20 4C 41 44 |22C; DESKTOP LAD|
00000160: 45 4E 00 3F 21 2C 01 3B 00 6A 21 36 01 53 54 52 |EN.?!,.;.j!6.STR|
00000170: 49 4E 47 41 44 44 52 20 2E 42 59 24 30 31 3B 20 |INGADDR .BY$01; |
00000180: 50 49 58 45 4C 2D 43 55 52 53 4F 52 20 53 45 54 |PIXEL-CURSOR SET|
00000190: 5A 45 4E 00 82 21 40 01 20 2E 57 4F 30 3B 20 58 |ZEN..!@. .WO0; X|
000001A0: 2D 4B 4F 4F 52 44 49 4E 41 54 45 00 9C 21 4A 01 |-KOORDINATE..!J.|
000001B0: 20 2E 42 59 31 35 30 3B 20 59 2D 4B 4F 4F 52 44 | .BY150; Y-KOORD|
000001C0: 49 4E 41 54 45 00 A2 21 54 01 3B 00 BC 21 5E 01 |INATE..!T.;..!^.|
000001D0: 20 2E 42 59 24 30 32 3B 20 4C 49 4E 49 45 20 5A | .BY$02; LINIE Z|
000001E0: 49 45 48 45 4E 00 D6 21 68 01 20 2E 57 4F 33 30 |IEHEN..!h. .WO30|
000001F0: 30 3B 20 58 2D 4B 4F 4F 52 44 49 4E 41 54 45 00 |0; X-KOORDINATE.|
00000200: EF 21 72 01 20 2E 42 59 38 35 3B 20 59 2D 4B 4F |.!r. .BY85; Y-KO|
00000210: 4F 52 44 49 4E 41 54 45 00 F5 21 7C 01 3B 00 19 |ORDINATE..!|.;..|
00000220: 22 86 01 20 2E 42 59 24 30 33 3B 20 41 55 53 47 |".. .BY$03; AUSG|
00000230: 45 46 55 45 4C 4C 54 45 53 20 52 45 43 48 54 45 |EFUELLTES RECHTE|
00000240: 43 4B 00 33 22 90 01 20 2E 57 4F 33 31 30 3B 20 |CK.3".. .WO310; |
00000250: 58 2D 4B 4F 4F 52 44 49 4E 41 54 45 00 4B 22 9A |X-KOORDINATE.K".|
00000260: 01 20 2E 42 59 30 3B 20 59 2D 4B 4F 4F 52 44 49 |. .BY0; Y-KOORDI|
00000270: 4E 41 54 45 00 51 22 A4 01 3B 00 72 22 AE 01 20 |NATE.Q"..;.r".. |
00000280: 2E 42 59 24 30 31 3B 20 50 49 58 45 4C 2D 43 55 |.BY$01; PIXEL-CU|
00000290: 52 53 4F 52 20 53 45 54 5A 45 4E 00 8B 22 B8 01 |RSOR SETZEN.."..|
000002A0: 20 2E 57 4F 31 30 3B 20 58 2D 4B 4F 4F 52 44 49 | .WO10; X-KOORDI|
000002B0: 4E 41 54 45 00 A4 22 C2 01 20 2E 42 59 31 30 3B |NATE..".. .BY10;|
000002C0: 20 59 2D 4B 4F 4F 52 44 49 4E 41 54 45 00 AA 22 | Y-KOORDINATE.."|
000002D0: CC 01 3B 00 D1 22 D6 01 20 2E 42 59 30 3B 20 45 |..;..".. .BY0; E|
000002E0: 4E 44 4D 41 52 4B 49 45 52 55 4E 47 20 42 45 46 |NDMARKIERUNG BEF|
000002F0: 45 48 4C 53 53 54 52 49 4E 47 00 D7 22 E0 01 3B |EHLSSTRING.."..;|
00000300: 00 DD 22 EA 01 3B 00 FA 22 F4 01 50 41 52 41 4D |.."..;.."..PARAM|
00000310: 45 54 45 52 20 2E 42 59 24 38 32 3B 20 57 49 4E |ETER .BY$82; WIN|
00000320: 44 4F 57 00 0A 23 FE 01 20 2E 42 59 24 30 31 3B |DOW..#.. .BY$01;|
00000330: 20 4F 4B 00 21 23 08 02 20 2E 42 59 31 30 3B 20 | OK.!#.. .BY10; |
00000340: 50 4F 53 49 54 49 4F 4E 20 58 00 38 23 12 02 20 |POSITION X.8#.. |
00000350: 2E 42 59 32 30 3B 20 50 4F 53 49 54 49 4F 4E 20 |.BY20; POSITION |
00000360: 59 00 56 23 1C 02 20 2E 42 59 30 3B 20 45 4E 44 |Y.V#.. .BY0; END|
00000370: 45 20 44 45 52 20 50 41 52 41 4D 45 54 45 52 00 |E DER PARAMETER.|
00000380: 5E 23 26 02 2E 45 4E 00 00 00 |^#&..EN... |
X...D.;.. N.; BEISPIEL FUER STRING ($C13
6).. X.;.. ...BA $0402.* ...OB "STRING,P
,W".0 ..;.G ..GL STRING = $C136.M ..;.D
.. LDA#<(STRINGADDR).{ .. LDY#>(STRINGA
DDR).. H. STA$02.. R. STY$03.. .. JSRSTR
ING; GRAFIK-BEFEHLSSTRING.N .. LDA#<(PAR
AMETER).. .. LDY#>(PARAMETER).. .. STA$0
2.. .. STY$03..!.. JSR$C256; DIALOG-BOX.
.!..;.9!". JMP$C22C; DESKTOP LADEN.?!,.;
.J!6.STRINGADDR .BY$01; PIXEL-CURSOR SET
ZEN..!@. .WO0; X-KOORDINATE..!J. .BY150;
Y-KOORDINATE..!T.;..!^. .BY$02; LINIE Z
IEHEN.V!H. .WO300; X-KOORDINATE..!R. .BY
85; Y-KOORDINATE..!|.;..".. .BY$03; AUSG
EFUELLTES RECHTECK.3".. .WO310; X-KOORDI
NATE.K".. .BY0; Y-KOORDINATE.Q"..;.R"..
.BY$01; PIXEL-CURSOR SETZEN..".. .WO10;
X-KOORDINATE.."B. .BY10; Y-KOORDINATE.."
L.;.Q"V. .BY0; ENDMARKIERUNG BEFEHLSSTRI
NG.W"..;.."..;.."..PARAMETER .BY$82; WIN
DOW..#.. .BY$01; OK.!#.. .BY10; POSITION
X.8#.. .BY20; POSITION Y.V#.. .BY0; END
E DER PARAMETER.^#&..EN...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL