TEXT-GR.....SRC

00000000: 4B 2A 70 2A 64 00 3B 3D  3D 3D 3D 3D 3D 3D 3D 3D  |K*p*d.;=========|
00000010: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000020: 3D 3D 3D 3D 3D 3D 00 87  2A 6E 00 3B D0 49 58 45  |======..*n.;.IXE|
00000030: 4C 2D 4F 52 49 45 4E 54  49 45 52 54 45 00 AA 2A  |L-ORIENTIERTE..*|
00000040: 78 00 3B D4 45 58 54 41  55 53 47 41 42 45 20 41  |x.;.EXTAUSGABE A|
00000050: 55 46 20 C7 52 41 46 49  4B 2D D3 43 48 49 52 4D  |UF .RAFIK-.CHIRM|
00000060: 00 BE 2A 82 00 3B 46 55  45 52 20 C3 31 36 2F D0  |..*..;FUER .16/.|
00000070: 4C 55 53 34 00 E3 2A 8C  00 3B 2D 2D 2D 2D 2D 2D  |LUS4..*..;------|
00000080: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000090: 2D 2D 2D 2D 2D 2D 2D 2D  2D 00 E9 2A 96 00 3B 00  |---------..*..;.|
000000A0: F6 2A A0 00 3B D3 59 4E  54 41 58 3A 00 FC 2A AA  |.*..;.YNTAX:..*.|
000000B0: 00 3B 00 21 2B B4 00 3B  53 59 53 28 41 29 5B C6  |.;.!+..;SYS(A)[.|
000000C0: 42 5D 2C 58 50 2C 59 50  2C D3 54 52 C1 55 53 44  |B],XP,YP,.TR.USD|
000000D0: 52 5B 2C D2 56 53 5D 00  27 2B BE 00 3B 00 4C 2B  |R[,.VS].'+..;.L+|
000000E0: C8 00 3B 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |..;-------------|
000000F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000100: 2D 2D 00 65 2B D2 00 3B  C8 59 50 52 41 2D C1 53  |--.e+..;.YPRA-.S|
00000110: 53 20 D1 55 45 4C 4C 54  45 58 54 00 6B 2B DC 00  |S .UELLTEXT.k+..|
00000120: 3B 00 8F 2B E6 00 3B CA  4F 41 43 48 49 4D 20 D2  |;..+..;.OACHIM .|
00000130: 49 45 47 45 52 2C 20 34  37 39 30 20 D0 41 44 45  |IEGER, 4790 .ADE|
00000140: 52 42 4F 52 4E 00 9E 2B  F0 00 3B 28 D0 29 20 30  |RBORN..+..;(.) 0|
00000150: 37 2E 38 38 00 A4 2B FA  00 3B 00 C9 2B 04 01 3B  |7.88..+..;..+..;|
00000160: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000170: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 00  |===============.|
00000180: DA 2B 0E 01 2E 42 41 24  30 36 36 30 3B 28 41 29  |.+...BA$0660;(A)|
00000190: 00 E0 2B 18 01 3B 00 F4  2B 22 01 2E 45 51 43 48  |..+..;..+"..EQCH|
000001A0: 4B 43 4F 4D 3D 24 39 34  39 31 00 08 2C 2C 01 2E  |KCOM=$9491..,,..|
000001B0: 45 51 47 45 54 41 44 52  3D 24 39 44 44 45 00 1C  |EQGETADR=$9DDE..|
000001C0: 2C 36 01 2E 45 51 47 45  54 53 54 52 3D 24 39 43  |,6..EQGETSTR=$9C|
000001D0: 34 38 00 30 2C 40 01 2E  45 51 47 45 54 52 56 53  |48.0,@..EQGETRVS|
000001E0: 3D 24 43 33 41 35 00 44  2C 4A 01 2E 45 51 47 45  |=$C3A5.D,J..EQGE|
000001F0: 54 43 4F 4C 3D 24 43 33  42 36 00 58 2C 54 01 2E  |TCOL=$C3B6.X,T..|
00000200: 45 51 53 45 54 50 4E 54  3D 24 43 31 43 33 00 6C  |EQSETPNT=$C1C3.l|
00000210: 2C 5E 01 2E 45 51 4C 44  41 33 34 59 3D 24 30 34  |,^..EQLDA34Y=$04|
00000220: 42 30 00 7E 2C 68 01 2E  45 51 46 41 52 42 5A 4E  |B0.~,h..EQFARBZN|
00000230: 3D 24 44 30 00 90 2C 72  01 2E 45 51 58 4B 4F 4F  |=$D0..,r..EQXKOO|
00000240: 52 44 3D 24 44 31 00 A2  2C 7C 01 2E 45 51 59 4B  |RD=$D1..,|..EQYK|
00000250: 4F 4F 52 44 3D 24 44 33  00 B4 2C 86 01 2E 45 51  |OORD=$D3..,...EQ|
00000260: 43 48 52 41 44 52 3D 24  44 35 00 C6 2C 90 01 2E  |CHRADR=$D5..,...|
00000270: 45 51 52 45 49 48 5A 4C  3D 24 44 37 00 D8 2C 9A  |EQREIHZL=$D7..,.|
00000280: 01 2E 45 51 46 49 4C 54  45 52 3D 24 44 38 00 EA  |..EQFILTER=$D8..|
00000290: 2C A4 01 2E 45 51 42 49  54 53 54 52 3D 24 44 39  |,...EQBITSTR=$D9|
000002A0: 00 FC 2C AE 01 2E 45 51  53 54 52 4C 45 4E 3D 24  |..,...EQSTRLEN=$|
000002B0: 44 41 00 0E 2D B8 01 2E  45 51 43 48 41 52 5A 4C  |DA..-...EQCHARZL|
000002C0: 3D 24 44 42 00 20 2D C2  01 2E 45 51 52 56 53 46  |=$DB. -...EQRVSF|
000002D0: 4C 47 3D 24 44 43 00 31  2D CC 01 2E 45 51 49 4E  |LG=$DC.1-...EQIN|
000002E0: 44 45 58 3D 24 32 32 00  42 2D D6 01 2E 45 51 43  |DEX=$22.B-...EQC|
000002F0: 4F 4C 4F 52 3D 24 38 34  00 55 2D E0 01 2E 45 51  |OLOR=$84.U-...EQ|
00000300: 50 43 58 4C 4F 3D 24 30  32 41 44 00 68 2D EA 01  |PCXLO=$02AD.h-..|
00000310: 2E 45 51 50 43 58 48 49  3D 24 30 32 41 45 00 7B  |.EQPCXHI=$02AE.{|
00000320: 2D F4 01 2E 45 51 50 43  59 4C 4F 3D 24 30 32 41  |-...EQPCYLO=$02A|
00000330: 46 00 8E 2D FE 01 2E 45  51 50 43 59 48 49 3D 24  |F..-...EQPCYHI=$|
00000340: 30 32 42 30 00 B3 2D 08  02 3B 2D 2D 2D 2D 2D 2D  |02B0..-..;------|
00000350: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000360: 2D 2D 2D 2D 2D 2D 2D 2D  2D 00 CE 2D 12 02 3B D0  |---------..-..;.|
00000370: 41 52 41 4D 45 54 45 52  20 55 45 42 45 52 4E 45  |ARAMETER UEBERNE|
00000380: 48 4D 45 4E 00 F3 2D 1C  02 3B 2D 2D 2D 2D 2D 2D  |HMEN..-..;------|
00000390: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000003A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 00 07 2E 26 02 53 54  |---------...&.ST|
000003B0: 41 52 54 20 4A 53 52 47  45 54 43 4F 4C 00 16 2E  |ART JSRGETCOL...|
000003C0: 30 02 20 53 54 58 46 41  52 42 5A 4E 00 25 2E 3A  |0. STXFARBZN.%.:|
000003D0: 02 20 4A 53 52 47 45 54  41 44 52 00 34 2E 44 02  |. JSRGETADR.4.D.|
000003E0: 20 53 54 59 58 4B 4F 4F  52 44 00 45 2E 4E 02 20  | STYXKOORD.E.N. |
000003F0: 53 54 41 58 4B 4F 4F 52  44 2B 31 00 54 2E 58 02  |STAXKOORD+1.T.X.|
00000400: 20 4A 53 52 47 45 54 41  44 52 00 63 2E 62 02 20  | JSRGETADR.c.b. |
00000410: 53 54 59 59 4B 4F 4F 52  44 00 74 2E 6C 02 20 53  |STYYKOORD.t.l. S|
00000420: 54 41 59 4B 4F 4F 52 44  2B 31 00 83 2E 76 02 20  |TAYKOORD+1...v. |
00000430: 4A 53 52 43 48 4B 43 4F  4D 00 92 2E 80 02 20 4A  |JSRCHKCOM..... J|
00000440: 53 52 47 45 54 53 54 52  00 A1 2E 8A 02 20 53 54  |SRGETSTR..... ST|
00000450: 41 53 54 52 4C 45 4E 00  AA 2E 94 02 20 54 58 41  |ASTRLEN..... TXA|
00000460: 00 B3 2E 9E 02 20 50 48  41 00 BC 2E A8 02 20 54  |..... PHA..... T|
00000470: 59 41 00 C5 2E B2 02 20  50 48 41 00 D4 2E BC 02  |YA..... PHA.....|
00000480: 20 4A 53 52 47 45 54 52  56 53 00 DD 2E C6 02 20  | JSRGETRVS..... |
00000490: 54 58 41 00 E9 2E D0 02  20 42 45 51 57 54 30 00  |TXA..... BEQWT0.|
000004A0: FC 2E DA 02 20 4C 44 41  23 25 31 31 31 31 31 31  |.... LDA#%111111|
000004B0: 31 31 00 0E 2F E4 02 57  54 30 20 53 54 41 52 56  |11../..WT0 STARV|
000004C0: 53 46 4C 47 00 17 2F EE  02 20 50 4C 41 00 27 2F  |SFLG../.. PLA.'/|
000004D0: F8 02 20 53 54 41 49 4E  44 45 58 2B 31 00 30 2F  |.. STAINDEX+1.0/|
000004E0: 02 03 20 50 4C 41 00 3E  2F 0C 03 20 53 54 41 49  |.. PLA.>/.. STAI|
000004F0: 4E 44 45 58 00 44 2F 16  03 3B 00 4F 2F 20 03 20  |NDEX.D/..;.O/ . |
00000500: 4C 44 59 23 30 00 5E 2F  2A 03 20 53 54 59 43 48  |LDY#0.^/*. STYCH|
00000510: 41 52 5A 4C 00 6D 2F 34  03 20 43 50 59 53 54 52  |ARZL.m/4. CPYSTR|
00000520: 4C 45 4E 00 7A 2F 3E 03  20 42 45 51 45 4E 44 45  |LEN.z/>. BEQENDE|
00000530: 00 9F 2F 48 03 3B 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |../H.;----------|
00000540: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000550: 2D 2D 2D 2D 2D 00 B2 2F  52 03 3B C8 41 55 50 54  |-----../R.;.AUPT|
00000560: 53 43 48 4C 45 49 46 45  00 D7 2F 5C 03 3B 2D 2D  |SCHLEIFE../\.;--|
00000570: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000580: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 00 E6 2F  |-------------../|
00000590: 66 03 4C 4F 4F 50 20 4C  44 41 23 30 00 F5 2F 70  |f.LOOP LDA#0../p|
000005A0: 03 20 53 54 41 52 45 49  48 5A 4C 00 06 30 7A 03  |. STAREIHZL..0z.|
000005B0: 20 53 54 41 43 48 52 41  44 52 2B 31 00 0C 30 84  | STACHRADR+1..0.|
000005C0: 03 3B 00 29 30 8E 03 3B  CB 4F 4F 52 44 49 4E 41  |.;.)0..;.OORDINA|
000005D0: 54 45 4E 20 55 4D 53 50  45 49 43 48 45 52 4E 00  |TEN UMSPEICHERN.|
000005E0: 2F 30 98 03 3B 00 3E 30  A2 03 20 4C 44 41 59 4B  |/0..;.>0.. LDAYK|
000005F0: 4F 4F 52 44 00 4C 30 AC  03 20 53 54 41 50 43 59  |OORD.L0.. STAPCY|
00000600: 4C 4F 00 5D 30 B6 03 20  4C 44 41 59 4B 4F 4F 52  |LO.]0.. LDAYKOOR|
00000610: 44 2B 31 00 6B 30 C0 03  20 53 54 41 50 43 59 48  |D+1.k0.. STAPCYH|
00000620: 49 00 71 30 CA 03 3B 00  97 30 D4 03 3B C1 44 52  |I.q0..;..0..;.DR|
00000630: 45 53 53 45 20 49 4D 20  DA 45 49 43 48 45 4E 53  |ESSE IM .EICHENS|
00000640: 41 54 5A 20 45 52 4D 49  54 54 45 4C 4E 00 9D 30  |ATZ ERMITTELN..0|
00000650: DE 03 3B 00 AC 30 E8 03  20 4C 44 59 43 48 41 52  |..;..0.. LDYCHAR|
00000660: 5A 4C 00 BB 30 F2 03 20  4A 53 52 4C 44 41 33 34  |ZL..0.. JSRLDA34|
00000670: 59 00 C4 30 FC 03 20 41  53 4C 00 D5 30 06 04 20  |Y..0.. ASL..0.. |
00000680: 52 4F 4C 43 48 52 41 44  52 2B 31 00 DE 30 10 04  |ROLCHRADR+1..0..|
00000690: 20 41 53 4C 00 E7 30 1A  04 20 41 53 4C 00 F8 30  | ASL..0.. ASL..0|
000006A0: 24 04 20 52 4F 4C 43 48  52 41 44 52 2B 31 00 07  |$. ROLCHRADR+1..|
000006B0: 31 2E 04 20 53 54 41 43  48 52 41 44 52 00 15 31  |1.. STACHRADR..1|
000006C0: 38 04 20 4C 44 41 24 30  32 45 34 00 28 31 42 04  |8. LDA$02E4.(1B.|
000006D0: 20 41 4E 44 23 25 31 31  31 31 31 31 30 30 00 39  | AND#%11111100.9|
000006E0: 31 4C 04 20 41 44 43 43  48 52 41 44 52 2B 31 00  |1L. ADCCHRADR+1.|
000006F0: 4A 31 56 04 20 53 54 41  43 48 52 41 44 52 2B 31  |J1V. STACHRADR+1|
00000700: 00 50 31 60 04 3B 00 75  31 6A 04 3B C2 49 54 4D  |.P1`.;.u1j.;.ITM|
00000710: 55 53 54 45 52 20 41 55  53 20 DA 45 49 43 48 45  |USTER AUS .EICHE|
00000720: 4E 53 41 54 5A 20 4C 45  53 45 4E 00 7B 31 74 04  |NSATZ LESEN.{1t.|
00000730: 3B 00 93 31 7E 04 52 45  49 48 45 20 4C 44 41 23  |;..1~.REIHE LDA#|
00000740: 25 31 30 30 30 30 30 30  30 00 A2 31 88 04 20 53  |%10000000..1.. S|
00000750: 54 41 46 49 4C 54 45 52  00 B1 31 92 04 20 4C 44  |TAFILTER..1.. LD|
00000760: 59 52 45 49 48 5A 4C 00  C4 31 9C 04 20 4C 44 41  |YREIHZL..1.. LDA|
00000770: 28 43 48 52 41 44 52 29  2C 59 00 D3 31 A6 04 20  |(CHRADR),Y..1.. |
00000780: 45 4F 52 52 56 53 46 4C  47 00 E2 31 B0 04 20 53  |EORRVSFLG..1.. S|
00000790: 54 41 42 49 54 53 54 52  00 F1 31 BA 04 20 4C 44  |TABITSTR..1.. LD|
000007A0: 41 58 4B 4F 4F 52 44 00  FF 31 C4 04 20 53 54 41  |AXKOORD..1.. STA|
000007B0: 50 43 58 4C 4F 00 10 32  CE 04 20 4C 44 41 58 4B  |PCXLO..2.. LDAXK|
000007C0: 4F 4F 52 44 2B 31 00 1E  32 D8 04 20 53 54 41 50  |OORD+1..2.. STAP|
000007D0: 43 58 48 49 00 24 32 E2  04 3B 00 43 32 EC 04 3B  |CXHI.$2..;.C2..;|
000007E0: C2 49 54 57 45 49 53 45  20 D0 55 4E 4B 54 20 41  |.ITWEISE .UNKT A|
000007F0: 55 53 46 49 4C 54 45 52  4E 00 66 32 F6 04 3B 55  |USFILTERN.f2..;U|
00000800: 4E 44 20 49 4E 20 C7 52  41 46 49 4B 20 53 45 54  |ND IN .RAFIK SET|
00000810: 5A 45 4E 2F 4C 4F 45 53  43 48 45 4E 00 6C 32 00  |ZEN/LOESCHEN.l2.|
00000820: 05 3B 00 81 32 0A 05 53  50 41 4C 54 45 20 4C 44  |.;..2..SPALTE LD|
00000830: 41 46 49 4C 54 45 52 00  90 32 14 05 20 41 4E 44  |AFILTER..2.. AND|
00000840: 42 49 54 53 54 52 00 9C  32 1E 05 20 42 45 51 57  |BITSTR..2.. BEQW|
00000850: 54 31 00 AB 32 28 05 20  4C 44 41 46 41 52 42 5A  |T1..2(. LDAFARBZ|
00000860: 4E 00 BC 32 32 05 57 54  31 20 53 54 41 43 4F 4C  |N..22.WT1 STACOL|
00000870: 4F 52 00 CB 32 3C 05 20  4A 53 52 53 45 54 50 4E  |OR..2<. JSRSETPN|
00000880: 54 00 D9 32 46 05 20 49  4E 43 50 43 58 4C 4F 00  |T..2F. INCPCXLO.|
00000890: E5 32 50 05 20 42 4E 45  57 54 32 00 F3 32 5A 05  |.2P. BNEWT2..2Z.|
000008A0: 20 49 4E 43 50 43 58 48  49 00 05 33 64 05 57 54  | INCPCXHI..3d.WT|
000008B0: 32 20 4C 53 52 46 49 4C  54 45 52 00 14 33 6E 05  |2 LSRFILTER..3n.|
000008C0: 20 42 4E 45 53 50 41 4C  54 45 00 1A 33 78 05 3B  | BNESPALTE..3x.;|
000008D0: 00 38 33 82 05 3B C1 43  48 54 20 D0 49 58 45 4C  |.83..;.CHT .IXEL|
000008E0: 52 45 49 48 45 4E 20 46  45 52 54 49 47 3F 00 3E  |REIHEN FERTIG?.>|
000008F0: 33 8C 05 3B 00 4C 33 96  05 20 49 4E 43 50 43 59  |3..;.L3.. INCPCY|
00000900: 4C 4F 00 58 33 A0 05 20  42 4E 45 57 54 33 00 66  |LO.X3.. BNEWT3.f|
00000910: 33 AA 05 20 49 4E 43 50  43 59 48 49 00 78 33 B4  |3.. INCPCYHI.x3.|
00000920: 05 57 54 33 20 49 4E 43  52 45 49 48 5A 4C 00 83  |.WT3 INCREIHZL..|
00000930: 33 BE 05 20 4C 44 41 23  38 00 92 33 C8 05 20 43  |3.. LDA#8..3.. C|
00000940: 4D 50 52 45 49 48 5A 4C  00 A0 33 D2 05 20 42 4E  |MPREIHZL..3.. BN|
00000950: 45 52 45 49 48 45 00 A6  33 DC 05 3B 00 C8 33 E6  |EREIHE..3..;..3.|
00000960: 05 3B CB 4F 4F 52 44 2E  46 55 45 52 20 4E 41 45  |.;.OORD.FUER NAE|
00000970: 43 48 53 54 45 53 20 DA  45 49 43 48 45 4E 00 CE  |CHSTES .EICHEN..|
00000980: 33 F0 05 3B 00 D7 33 FA  05 20 43 4C 43 00 E6 33  |3..;..3.. CLC..3|
00000990: 04 06 20 41 44 43 58 4B  4F 4F 52 44 00 F5 33 0E  |.. ADCXKOORD..3.|
000009A0: 06 20 53 54 41 58 4B 4F  4F 52 44 00 01 34 18 06  |. STAXKOORD..4..|
000009B0: 20 42 43 43 57 54 34 00  12 34 22 06 20 49 4E 43  | BCCWT4..4". INC|
000009C0: 58 4B 4F 4F 52 44 2B 31  00 18 34 2C 06 3B 00 36  |XKOORD+1..4,.;.6|
000009D0: 34 36 06 3B C1 4E 5A 41  48 4C 20 DA 45 49 43 48  |46.;.NZAHL .EICH|
000009E0: 45 4E 20 45 52 52 45 49  43 48 54 3F 00 3C 34 40  |EN ERREICHT?.<4@|
000009F0: 06 3B 00 4E 34 4A 06 57  54 34 20 49 4E 43 43 48  |.;.N4J.WT4 INCCH|
00000A00: 41 52 5A 4C 00 5D 34 54  06 20 4C 44 41 43 48 41  |ARZL.]4T. LDACHA|
00000A10: 52 5A 4C 00 6C 34 5E 06  20 43 4D 50 53 54 52 4C  |RZL.l4^. CMPSTRL|
00000A20: 45 4E 00 79 34 68 06 20  42 43 43 4C 4F 4F 50 00  |EN.y4h. BCCLOOP.|
00000A30: 9F 34 72 06 3B 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.4r.;-----------|
00000A40: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000A50: 2D 2D 2D 2D 2D 00 AC 34  7C 06 45 4E 44 45 20 52  |-----..4|.ENDE R|
00000A60: 54 53 00 D2 34 86 06 3B  2D 2D 2D 2D 2D 2D 2D 2D  |TS..4..;--------|
00000A70: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000A80: 2D 2D 2D 2D 2D 2D 2D 2D  00 00 00                 |--------...     |

K*P*D.;===============================..
*N.;PIXEL-ORIENTIERTE..*X.;TEXTAUSGABE A
UF GRAFIK-SCHIRM..*..;FUER C16/PLUS4..*.
.;-------------------------------..*..;.
.* .;SYNTAX:..*..;.!+..;SYS(A)[FB],XP,YP
,STRAUSDR[,RVS].'+..;.L+H.;-------------
------------------.E+R.;HYPRA-ASS QUELLT
EXT.K+..;..+..;JOACHIM RIEGER, 4790 PADE
RBORN..+..;(P) 07.88..+..;.I+..;========
=======================.Z+...BA$0660;(A)
..+..;..+"..EQCHKCOM=$9491..,,..EQGETADR
=$9DDE..,6..EQGETSTR=$9C48.0,@..EQGETRVS
=$C3A5.D,J..EQGETCOL=$C3B6.X,T..EQSETPNT
=$C1C3.L,^..EQLDA34Y=$04B0.~,H..EQFARBZN
=$D0..,R..EQXKOORD=$D1..,|..EQYKOORD=$D3
..,...EQCHRADR=$D5.F,...EQREIHZL=$D7.X,.
..EQFILTER=$D8..,...EQBITSTR=$D9..,...EQ
STRLEN=$DA..-...EQCHARZL=$DB. -B..EQRVSF
LG=$DC.1-L..EQINDEX=$22.B-V..EQCOLOR=$84
.U-...EQPCXLO=$02AD.H-...EQPCXHI=$02AE.{
-...EQPCYLO=$02AF..-...EQPCYHI=$02B0..-.
.;-------------------------------.N-..;P
ARAMETER UEBERNEHMEN..-..;--------------
-----------------...&.START JSRGETCOL...
0. STXFARBZN.%.:. JSRGETADR.4.D. STYXKOO
RD.E.N. STAXKOORD+1.T.X. JSRGETADR.C.B. 
STYYKOORD.T.L. STAYKOORD+1...V. JSRCHKCO
M..... JSRGETSTR..... STASTRLEN..... TXA
..... PHA..... TYA.E... PHA.T... JSRGETR
VS...F. TXA...P. BEQWT0...Z. LDA#%111111
11../..WT0 STARVSFLG../.. PLA.'/.. STAIN
DEX+1.0/.. PLA.>/.. STAINDEX.D/..;.O/ . 
LDY#0.^/*. STYCHARZL.M/4. CPYSTRLEN.Z/>.
 BEQENDE../H.;--------------------------
-----../R.;HAUPTSCHLEIFE.W/\.;----------
---------------------../F.LOOP LDA#0../P
. STAREIHZL..0Z. STACHRADR+1..0..;.)0..;
KOORDINATEN UMSPEICHERN./0..;.>0.. LDAYK
OORD.L0.. STAPCYLO.]0.. LDAYKOORD+1.K0..
 STAPCYHI.Q0J.;..0T.;ADRESSE IM ZEICHENS
ATZ ERMITTELN..0..;..0.. LDYCHARZL..0.. 
JSRLDA34Y.D0.. ASL.U0.. ROLCHRADR+1..0..
 ASL..0.. ASL..0$. ROLCHRADR+1..1.. STAC
HRADR..18. LDA$02E4.(1B. AND#%11111100.9
1L. ADCCHRADR+1.J1V. STACHRADR+1.P1`.;.U
1J.;BITMUSTER AUS ZEICHENSATZ LESEN.{1T.
;..1~.REIHE LDA#%10000000..1.. STAFILTER
..1.. LDYREIHZL.D1.. LDA(CHRADR),Y.S1.. 
EORRVSFLG..1.. STABITSTR..1.. LDAXKOORD.
.1D. STAPCXLO..2N. LDAXKOORD+1..2X. STAP
CXHI.$2..;.C2..;BITWEISE PUNKT AUSFILTER
N.F2..;UND IN GRAFIK SETZEN/LOESCHEN.L2.
.;..2..SPALTE LDAFILTER..2.. ANDBITSTR..
2.. BEQWT1..2(. LDAFARBZN..22.WT1 STACOL
OR.K2<. JSRSETPNT.Y2F. INCPCXLO..2P. BNE
WT2..2Z. INCPCXHI..3D.WT2 LSRFILTER..3N.
 BNESPALTE..3X.;.83..;ACHT PIXELREIHEN F
ERTIG?.>3..;.L3.. INCPCYLO.X3 . BNEWT3.F
3.. INCPCYHI.X3..WT3 INCREIHZL..3.. LDA#
8..3H. CMPREIHZL. 3R. BNEREIHE..3..;.H3.
.;KOORD.FUER NAECHSTES ZEICHEN.N3..;.W3.
. CLC..3.. ADCXKOORD..3.. STAXKOORD..4..
 BCCWT4..4". INCXKOORD+1..4,.;.646.;ANZA
HL ZEICHEN ERREICHT?.<4@.;.N4J.WT4 INCCH
ARZL.]4T. LDACHARZL.L4^. CMPSTRLEN.Y4H. 
BCCLOOP..4R.;---------------------------
-----..4|.ENDE RTS.R4..;----------------
----------------...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL