DREIECK.SRC
FILE INFORMATION
FILENAME(S): DREIECK.SRC
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-12-02 00:15:25
APPEARS ON: 1 disk(s)
FILE HASH
a8c16176a50e4cdcc28686e8ac69c7462dc7480971d39facc96caf823be7e170
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AMICA PAINT V1 8 | DREIECK.SRC | PRG | Maestro | 20 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 6E 00 4F 50 54 20 4F 4F 00 19 08 78 |....n.OPT OO...x|
00000010: 00 AC B2 20 24 34 30 30 30 00 1F 08 82 00 3A 00 |... $4000.....:.|
00000020: 25 08 8C 00 3A 00 6B 08 96 00 5A 4F 4F 4D 4D 4F |%...:.k...ZOOMMO|
00000030: 45 47 20 B2 20 32 31 30 20 3B 20 46 4C 41 47 20 |EG . 210 ; FLAG |
00000040: 4F 42 20 5A 4F 4F 4D 20 4D 4F 45 47 4C 49 43 48 |OB ZOOM MOEGLICH|
00000050: 2C 20 4D 55 53 53 20 42 45 49 20 45 52 57 45 49 |, MUSS BEI ERWEI|
00000060: 54 45 8A 47 20 31 20 53 45 49 4E 00 71 08 A0 00 |TE.G 1 SEIN.q...|
00000070: 3A 00 95 08 AA 00 49 4E 31 20 20 20 B2 20 32 31 |:.....IN1 . 21|
00000080: 37 20 20 3B 20 5A 57 49 53 43 48 45 4E 53 50 45 |7 ; ZWISCHENSPE|
00000090: 49 43 48 45 52 00 B7 08 B4 00 49 4E 32 20 20 20 |ICHER.....IN2 |
000000A0: B2 20 32 31 39 20 20 3B 20 5A 55 4D 20 49 4E 44 |. 219 ; ZUM IND|
000000B0: 49 5A 49 45 52 45 4E 00 BD 08 BE 00 3A 00 E1 08 |IZIEREN.....:...|
000000C0: C8 00 4D 52 4B 20 20 20 B2 20 32 32 31 20 20 3B |..MRK . 221 ;|
000000D0: 20 5A 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 | ZWISCHENSPEICHE|
000000E0: 52 00 F4 08 D2 00 49 4E 33 20 20 20 B2 20 32 32 |R.....IN3 . 22|
000000F0: 32 20 20 3B 00 FA 08 DC 00 3A 00 1C 09 E6 00 B9 |2 ;.....:......|
00000100: 49 58 20 B2 20 32 32 35 20 20 3B 20 B9 49 54 49 |IX . 225 ; .ITI|
00000110: 91 20 44 45 53 20 43 55 52 53 B0 53 00 49 09 F0 |. DES CURS.S.I..|
00000120: 00 B9 49 59 20 B2 20 32 32 36 20 20 3B 20 57 49 |..IY . 226 ; WI|
00000130: 52 44 20 49 4E 20 49 52 51 AB 52 4F 55 54 49 4E |RD IN IRQ.ROUTIN|
00000140: 45 20 47 45 53 45 54 5A 54 00 75 09 FA 00 42 55 |E GESETZT.u...BU|
00000150: 54 A4 4E 20 B2 20 32 33 38 20 3B 20 31 B2 4B 4E |T.N . 238 ; 1.KN|
00000160: 4F 50 46 20 47 45 44 52 55 45 43 4B 54 20 30 B2 |OPF GEDRUECKT 0.|
00000170: 4E 49 43 48 54 00 99 09 04 01 4B B0 58 20 20 20 |NICHT.....K.X |
00000180: B2 20 32 33 39 20 3B 20 58 AD 59 20 4B 4F B0 44 |. 239 ; X.Y KO.D|
00000190: 49 4E 41 54 45 20 42 45 49 00 BB 09 0E 01 4B B0 |INATE BEI.....K.|
000001A0: 59 20 20 20 B2 20 32 34 30 20 3B 20 4C 49 4E 49 |Y . 240 ; LINI|
000001B0: 45 4E AD 42 4C 4F 45 43 4B 45 4E 00 C1 09 18 01 |EN.BLOECKEN.....|
000001C0: 3A 00 FF 09 22 01 46 49 52 45 20 20 20 B2 20 32 |:...".FIRE . 2|
000001D0: 35 31 20 3B 20 31 20 4E 41 43 48 44 45 4D 20 4B |51 ; 1 NACHDEM K|
000001E0: 4E 4F 50 46 20 47 45 44 52 55 45 43 4B 54 20 28 |NOPF GEDRUECKT (|
000001F0: 56 91 20 49 52 51 20 47 45 53 45 54 5A 54 29 00 |V. IRQ GESETZT).|
00000200: 05 0A 2C 01 3A 00 27 0A 36 01 4B B0 58 32 20 20 |..,.:.'.6.K.X2 |
00000210: B2 20 32 33 20 20 3B 20 58 AD 59 20 4B 4F B0 44 |. 23 ; X.Y KO.D|
00000220: 49 4E 2E 20 42 45 49 00 44 0A 40 01 4B B0 59 32 |IN. BEI.D.@.K.Y2|
00000230: 20 20 B2 20 32 34 20 20 3B 20 4C 49 4E 49 45 4E | . 24 ; LINIEN|
00000240: 20 2E 2E 2E 00 4A 0A 4A 01 3A 00 70 0A 54 01 58 | ....J.J.:.p.T.X|
00000250: 31 20 B2 20 33 35 20 20 20 3B 20 5A 57 49 53 43 |1 . 35 ; ZWISC|
00000260: 48 45 4E 53 50 45 49 43 48 45 52 20 46 55 45 52 |HENSPEICHER FUER|
00000270: 00 95 0A 5E 01 58 32 20 B2 20 33 36 20 20 20 3B |...^.X2 . 36 ;|
00000280: 20 58 AD 59 20 4B 4F 4F 54 52 44 49 4E 41 54 45 | X.Y KOOTRDINATE|
00000290: 4E 20 42 45 49 00 BA 0A 68 01 58 33 20 B2 20 33 |N BEI...h.X3 . 3|
000002A0: 37 20 20 20 3B 20 56 45 52 53 43 48 49 45 44 45 |7 ; VERSCHIEDE|
000002B0: 4E 45 4E 20 42 45 46 45 48 C3 00 C6 0A 72 01 59 |NEN BEFEH....r.Y|
000002C0: 31 20 B2 20 33 38 00 D2 0A 7C 01 59 32 20 B2 20 |1 . 38...|.Y2 . |
000002D0: 33 39 00 DE 0A 86 01 59 33 20 B2 20 34 30 00 EA |39.....Y3 . 40..|
000002E0: 0A 90 01 58 34 20 B2 20 34 37 00 F6 0A 9A 01 59 |...X4 . 47.....Y|
000002F0: 34 20 B2 20 34 38 00 02 0B A4 01 58 35 20 B2 20 |4 . 48.....X5 . |
00000300: 34 39 00 0E 0B AE 01 58 36 20 B2 20 35 30 00 1A |49.....X6 . 50..|
00000310: 0B B8 01 59 35 20 B2 20 35 31 00 26 0B C2 01 59 |...Y5 . 51.&...Y|
00000320: 36 20 B2 20 35 32 00 33 0B CC 01 49 4E 34 20 B2 |6 . 52.3...IN4 .|
00000330: 20 35 33 00 40 0B D6 01 49 4E 35 20 B2 20 35 35 | 53.@...IN5 . 55|
00000340: 00 4D 0B E0 01 49 4E 36 20 B2 20 35 37 00 5A 0B |.M...IN6 . 57.Z.|
00000350: EA 01 58 37 20 20 B2 20 35 39 00 67 0B F4 01 59 |..X7 . 59.g...Y|
00000360: 37 20 20 B2 20 36 30 00 74 0B FE 01 58 38 20 20 |7 . 60.t...X8 |
00000370: B2 20 36 31 00 81 0B 08 02 59 38 20 20 B2 20 36 |. 61.....Y8 . 6|
00000380: 32 00 87 0B 12 02 3A 00 8D 0B 1C 02 3A 00 AB 0B |2.....:.....:...|
00000390: 26 02 BF 54 41 42 20 20 20 B2 20 24 41 45 30 30 |&..TAB . $AE00|
000003A0: 20 3B 20 BF 55 53 57 45 52 54 45 00 D5 0B 30 02 | ; .USWERTE...0.|
000003B0: 50 52 49 4F 46 45 4C 44 20 B2 20 24 41 46 30 30 |PRIOFELD . $AF00|
000003C0: 20 3B 20 50 52 49 B0 49 54 41 45 54 45 4E 54 41 | ; PRI.ITAETENTA|
000003D0: 42 45 4C 4C 45 00 04 0C 3A 02 53 54 52 49 4D 55 |BELLE...:.STRIMU|
000003E0: 53 54 20 B2 20 24 42 30 30 30 20 3B 20 4C 49 4E |ST . $B000 ; LIN|
000003F0: 49 45 4E 20 53 54 52 49 43 48 45 4C 4E 20 4D 55 |IEN STRICHELN MU|
00000400: 53 54 45 52 00 3A 0C 44 02 53 54 52 49 42 59 54 |STER.:.D.STRIBYT|
00000410: 45 53 20 B2 20 24 42 30 36 30 20 3B 41 4B 54 55 |ES . $B060 ;AKTU|
00000420: 45 4C 4C 45 53 20 4D 55 53 54 45 52 20 28 4C 49 |ELLES MUSTER (LI|
00000430: 4E 49 45 4E 20 53 54 52 2E 29 00 5D 0C 4E 02 50 |NIEN STR.).].N.P|
00000440: 41 54 54 45 52 4E 53 20 B2 20 24 42 30 38 30 20 |ATTERNS . $B080 |
00000450: 3B 20 46 55 45 4C 4C 4D 55 53 54 45 52 00 85 0C |; FUELLMUSTER...|
00000460: 58 02 3B 46 41 50 49 4E 53 45 4C 20 B2 20 24 42 |X.;FAPINSEL . $B|
00000470: 34 38 30 20 3B 20 46 41 52 42 50 49 4E 53 45 4C |480 ; FARBPINSEL|
00000480: 20 56 31 2E 34 00 AC 0C 5D 02 46 41 50 49 4E 53 | V1.4...].FAPINS|
00000490: 45 4C 20 B2 20 24 42 34 30 30 20 3B 20 46 41 52 |EL . $B400 ; FAR|
000004A0: 42 50 49 4E 53 45 4C 20 56 31 2E 38 00 DA 0C 62 |BPINSEL V1.8...b|
000004B0: 02 50 42 52 45 49 20 20 20 20 B2 20 24 42 30 35 |.PBREI . $B05|
000004C0: 45 20 3B 20 47 52 4F 45 53 53 45 20 44 45 53 20 |E ; GROESSE DES |
000004D0: 46 41 52 42 50 49 4E 53 45 4C 00 FE 0C 6C 02 50 |FARBPINSEL...l.P|
000004E0: 48 4F 45 48 20 20 20 20 B2 20 24 42 30 35 46 20 |HOEH . $B05F |
000004F0: 3B 20 48 4F 45 48 45 AD 42 52 45 49 54 45 00 2D |; HOEHE.BREITE.-|
00000500: 0D 76 02 46 52 4F 54 54 41 42 20 20 B2 20 24 42 |.v.FROTTAB . $B|
00000510: 37 30 30 20 3B 20 54 41 42 45 4C 4C 45 20 46 55 |700 ; TABELLE FU|
00000520: 45 52 20 46 41 52 42 54 41 55 53 43 48 00 4A 0D |ER FARBTAUSCH.J.|
00000530: 80 02 4D 41 4B 52 4F 4D 45 4D 20 B2 20 24 30 38 |..MAKROMEM . $08|
00000540: 30 30 20 3B 20 4D 41 4B 52 4F 00 72 0D 8A 02 58 |00 ; MAKRO.r...X|
00000550: 53 50 45 49 20 20 20 20 B2 20 24 30 39 30 30 20 |SPEI . $0900 |
00000560: 3B 20 58 AD 59 20 53 50 45 49 43 48 45 52 20 42 |; X.Y SPEICHER B|
00000570: 45 49 00 92 0D 94 02 59 53 50 45 49 20 20 20 20 |EI.....YSPEI |
00000580: B2 20 24 30 41 30 30 20 3B 20 46 49 4C 4C 20 2E |. $0A00 ; FILL .|
00000590: 2E 2E 00 98 0D 9E 02 3A 00 C8 0D A8 02 4D 45 4E |.......:.....MEN|
000005A0: 55 DD 20 20 20 B2 20 24 31 30 30 30 AA 33 20 20 |U. . $1000.3 |
000005B0: 3B 20 53 50 8A 47 20 49 4E 27 53 20 4D 45 4E 55 |; SP.G IN'S MENU|
000005C0: 45 20 28 B2 42 52 4B 29 00 F2 0D B2 02 50 4C 4D |E (.BRK).....PLM|
000005D0: 55 53 54 20 20 20 20 20 B2 20 24 39 30 30 30 AA |UST . $9000.|
000005E0: 33 30 20 3B 20 50 4C 4F 54 20 52 4F 55 54 49 4E |30 ; PLOT ROUTIN|
000005F0: 45 4E 00 26 0E BC 02 50 4C 4F 54 50 52 20 20 20 |EN.&...PLOTPR |
00000600: 20 20 B2 20 24 39 30 30 30 AA 33 33 20 3B 20 46 | . $9000.33 ; F|
00000610: 55 45 52 20 4D 55 53 54 45 52 2C 50 52 49 B0 49 |UER MUSTER,PRI.I|
00000620: 54 41 45 54 45 4E 00 4B 0E C6 02 50 4C 50 49 4E |TAETEN.K...PLPIN|
00000630: 53 20 20 20 20 20 B2 20 24 39 30 30 30 AA 34 38 |S . $9000.48|
00000640: 20 3B 20 50 49 4E 53 45 4C 81 4D 00 6B 0E D0 02 | ; PINSEL.M.k...|
00000650: 50 4C EB 20 20 20 20 20 B2 20 24 39 30 30 30 AA |PL. . $9000.|
00000660: 37 35 20 3B 20 4C 49 4E 49 45 4E 00 71 0E DA 02 |75 ; LINIEN.q...|
00000670: 3A 00 AB 0E E4 02 A1 54 41 53 20 20 20 B2 20 24 |:......TAS . $|
00000680: 39 30 30 30 AA 37 38 20 3B 20 54 41 53 54 45 20 |9000.78 ; TASTE |
00000690: 45 49 4E 4C 45 53 45 4E 20 55 4E 44 20 22 5F 22 |EINLESEN UND "_"|
000006A0: AD 22 5E 22 20 54 45 53 54 45 4E 00 D2 0E EE 02 |."^" TESTEN.....|
000006B0: 50 4C 4F 54 20 20 20 20 20 B2 20 24 43 30 30 30 |PLOT . $C000|
000006C0: AA 39 20 20 3B 20 50 55 4E 4B 54 20 53 45 54 5A |.9 ; PUNKT SETZ|
000006D0: 45 4E 00 01 0F F8 02 9C 55 4E 54 45 4E 20 B2 20 |EN......UNTEN . |
000006E0: 24 43 30 30 30 AA 33 36 20 3B 20 53 50 52 49 54 |$C000.36 ; SPRIT|
000006F0: 45 53 20 55 4E 54 45 4E 20 4C 4F 45 53 43 48 45 |ES UNTEN LOESCHE|
00000700: 4E 00 34 0F 02 03 54 45 58 54 50 52 20 20 20 B2 |N.4...TEXTPR .|
00000710: 20 24 43 30 30 30 AA 33 39 20 3B 20 54 45 58 54 | $C000.39 ; TEXT|
00000720: 20 49 4E 20 53 50 52 49 54 45 53 20 41 55 53 47 | IN SPRITES AUSG|
00000730: 45 42 45 4E 00 5F 0F 0C 03 45 58 B0 4C 49 4E 45 |EBEN._...EX.LINE|
00000740: 20 B2 20 24 43 30 30 30 AA 35 31 20 3B 20 4C 49 | . $C000.51 ; LI|
00000750: 4E 49 45 20 49 4E 56 45 52 54 49 45 52 45 4E 00 |NIE INVERTIEREN.|
00000760: 8F 0F 16 03 92 4F 55 54 20 20 B2 20 24 43 30 30 |.....OUT . $C00|
00000770: 30 AA 31 32 30 20 3B 20 22 42 49 54 54 45 20 57 |0.120 ; "BITTE W|
00000780: 41 52 54 45 4E 22 20 41 55 53 47 45 42 45 4E 00 |ARTEN" AUSGEBEN.|
00000790: D5 0F 20 03 43 4F 4D 53 55 42 20 20 20 20 20 20 |.. .COMSUB |
000007A0: B2 20 24 41 39 30 30 AA 35 37 20 3B 20 53 54 41 |. $A900.57 ; STA|
000007B0: 54 55 53 5A 45 49 4C 45 20 41 55 53 47 45 42 45 |TUSZEILE AUSGEBE|
000007C0: 4E 20 55 4E 44 20 54 41 53 54 41 54 55 52 41 42 |N UND TASTATURAB|
000007D0: 46 52 41 47 45 00 00 10 2A 03 4C 46 4C 41 53 48 |FRAGE...*.LFLASH|
000007E0: 20 20 20 20 20 20 B2 20 24 41 39 30 30 AA 36 33 | . $A900.63|
000007F0: 20 3B 20 4C 49 4E 49 45 20 42 4C 49 4E 4B 45 4E | ; LINIE BLINKEN|
00000800: 00 28 10 34 03 4C 44 52 41 57 20 20 20 20 20 B2 |.(.4.LDRAW .|
00000810: 20 24 41 39 30 30 AA 36 36 20 3B 20 4C 49 4E 49 | $A900.66 ; LINI|
00000820: 45 20 5A 49 45 48 45 4E 00 5E 10 3E 03 42 45 46 |E ZIEHEN.^.>.BEF|
00000830: 49 4E 49 54 20 20 20 20 20 B2 20 24 41 39 30 30 |INIT . $A900|
00000840: AA 38 37 20 3B 20 41 4C 4C 47 45 4D 45 49 4E 45 |.87 ; ALLGEMEINE|
00000850: 20 49 4E 49 54 49 41 4C 49 53 49 45 8A 47 00 92 | INITIALISIE.G..|
00000860: 10 48 03 4D 41 49 4E 53 55 42 20 20 20 20 20 B2 |.H.MAINSUB .|
00000870: 20 24 37 30 30 30 AA 31 38 20 3B 20 55 4E 44 4F | $7000.18 ; UNDO|
00000880: 20 56 B0 42 45 52 45 49 54 45 4E 20 45 54 43 2E | V.BEREITEN ETC.|
00000890: 2E 2E 00 98 10 52 03 3A 00 E9 10 5C 03 4A 53 52 |.....R.:...\.JSR|
000008A0: 20 4D 41 49 4E 53 55 42 20 20 3B 20 53 4F 4C 4C | MAINSUB ; SOLL|
000008B0: 54 45 20 49 4D 4D 45 52 20 31 2E 20 42 45 46 2E |TE IMMER 1. BEF.|
000008C0: 20 45 49 4E 45 52 20 45 52 57 2E 20 53 45 49 4E | EINER ERW. SEIN|
000008D0: 2E 20 53 43 48 41 4C 54 45 54 20 47 52 41 46 49 |. SCHALTET GRAFI|
000008E0: 4B 20 45 49 4E 20 55 53 57 00 25 11 66 03 49 4E |K EIN USW.%.f.IN|
000008F0: 43 20 5A 4F 4F 4D 4D 4F 45 47 20 3B 20 56 45 52 |C ZOOMMOEG ; VER|
00000900: 48 49 4E 44 45 52 54 20 45 49 4E 53 43 48 41 4C |HINDERT EINSCHAL|
00000910: 54 45 4E 20 44 45 53 20 5A 4F 4F 4D AB 46 45 4E |TEN DES ZOOM.FEN|
00000920: 53 54 45 52 53 00 2B 11 70 03 3A 00 43 11 7A 03 |STERS.+.p.:.C.z.|
00000930: 44 52 45 49 45 43 4B 20 4C 44 58 20 23 B3 54 45 |DREIECK LDX #.TE|
00000940: 58 54 31 00 53 11 84 03 4C 44 59 20 23 B1 54 45 |XT1.S...LDY #.TE|
00000950: 58 54 31 00 8E 11 8E 03 4A 53 52 20 42 45 46 49 |XT1.....JSR BEFI|
00000960: 4E 49 54 20 3B 20 54 45 58 54 41 55 53 47 41 42 |NIT ; TEXTAUSGAB|
00000970: 45 20 49 4E 20 53 50 52 49 54 45 53 20 55 4E 44 |E IN SPRITES UND|
00000980: 20 49 4E 49 54 49 41 4C 49 53 49 45 8A 47 00 94 | INITIALISIE.G..|
00000990: 11 98 03 3A 00 E1 11 A2 03 4C 4F 4F 50 31 20 4A |...:.....LOOP1 J|
000009A0: 53 52 20 43 4F 4D 53 55 42 20 3B 20 43 4F 4D 53 |SR COMSUB ; COMS|
000009B0: 55 42 20 47 49 42 54 20 53 54 41 54 55 53 5A 45 |UB GIBT STATUSZE|
000009C0: 49 4C 45 20 41 55 53 2C 20 46 52 41 47 54 20 45 |ILE AUS, FRAGT E|
000009D0: 44 49 A4 52 54 41 53 54 45 4E 20 41 42 20 55 4E |DI.RTASTEN AB UN|
000009E0: 44 00 21 12 A3 03 3B 50 52 55 45 46 54 20 41 55 |D.!...;PRUEFT AU|
000009F0: 46 20 53 50 8A 47 20 49 4E 20 55 4E 54 45 52 4D |F SP.G IN UNTERM|
00000A00: 45 4E 55 45 53 20 4D 49 54 20 46 AB 54 41 53 54 |ENUES MIT F.TAST|
00000A10: 45 4E 20 4F 44 45 52 20 45 AD 46 AD 4D AD 53 AD |EN ODER E.F.M.S.|
00000A20: 4F 00 57 12 AC 03 4C 44 41 20 46 49 52 45 20 20 |O.W...LDA FIRE |
00000A30: 3B 20 57 55 52 44 45 20 46 45 55 45 52 4B 4E 4F |; WURDE FEUERKNO|
00000A40: 50 46 20 49 4E 5A 57 49 53 43 48 45 4E 20 47 45 |PF INZWISCHEN GE|
00000A50: 44 52 55 45 43 4B 54 00 79 12 B6 03 42 45 51 20 |DRUECKT.y...BEQ |
00000A60: 4C 4F 4F 50 31 20 3B 20 4E 45 49 4E 2C 20 44 41 |LOOP1 ; NEIN, DA|
00000A70: 4E 4E 20 57 45 49 54 45 52 00 7F 12 C0 03 3A 00 |NN WEITER.....:.|
00000A80: 9C 12 CA 03 44 45 43 20 46 49 52 45 20 20 3B 20 |....DEC FIRE ; |
00000A90: 4B 4E 4F 50 46 46 4C 41 47 20 B2 30 00 A8 12 D4 |KNOPFFLAG .0....|
00000AA0: 03 4C 44 58 20 B9 49 58 00 CA 12 DE 03 4C 44 59 |.LDX .IX.....LDY|
00000AB0: 20 B9 49 59 20 3B 20 41 4B 54 55 45 4C 4C 45 20 | .IY ; AKTUELLE |
00000AC0: 50 46 45 49 4C B9 49 54 49 91 00 E0 12 E8 03 53 |PFEIL.ITI......S|
00000AD0: 54 58 20 58 31 20 20 20 3B 20 4D 45 52 4B 45 4E |TX X1 ; MERKEN|
00000AE0: 00 EB 12 F2 03 53 54 59 20 59 31 00 F1 12 FC 03 |.....STY Y1.....|
00000AF0: 3A 00 11 13 06 04 4C 44 58 20 23 B3 54 45 58 54 |:.....LDX #.TEXT|
00000B00: 32 20 3B 20 4E 41 45 43 48 54 45 4E 20 54 45 58 |2 ; NAECHTEN TEX|
00000B10: 54 00 2C 13 10 04 4C 44 59 20 23 B1 54 45 58 54 |T.,...LDY #.TEXT|
00000B20: 32 20 3B 20 41 55 53 47 45 42 45 4E 00 3B 13 1A |2 ; AUSGEBEN.;..|
00000B30: 04 4A 53 52 20 54 45 58 54 50 52 00 41 13 24 04 |.JSR TEXTPR.A.$.|
00000B40: 3A 00 56 13 2E 04 4C 4F 4F 50 32 20 4A 53 52 20 |:.V...LOOP2 JSR |
00000B50: 43 4F 4D 53 55 42 00 62 13 38 04 4C 44 58 20 B9 |COMSUB.b.8.LDX .|
00000B60: 49 58 00 7D 13 42 04 4C 44 59 20 B9 49 59 20 3B |IX.}.B.LDY .IY ;|
00000B70: 20 B9 49 54 49 91 20 4D 45 52 4B 45 4E 00 88 13 | .ITI. MERKEN...|
00000B80: 4C 04 53 54 58 20 58 32 00 93 13 56 04 53 54 59 |L.STX X2...V.STY|
00000B90: 20 59 32 00 CB 13 60 04 4A 53 52 20 4C 46 4C 41 | Y2...`.JSR LFLA|
00000BA0: 53 48 20 3B 20 4C 49 4E 49 45 20 56 91 20 58 31 |SH ; LINIE V. X1|
00000BB0: AD 59 31 20 5A 55 20 58 32 AD 59 32 20 45 49 4E |.Y1 ZU X2.Y2 EIN|
00000BC0: 4D 41 4C 20 42 4C 49 4E 4B 45 4E 00 D8 13 6A 04 |MAL BLINKEN...j.|
00000BD0: 4C 44 41 20 46 49 52 45 00 E6 13 74 04 42 45 51 |LDA FIRE...t.BEQ|
00000BE0: 20 4C 4F 4F 50 32 00 EC 13 7E 04 3A 00 F9 13 88 | LOOP2...~.:....|
00000BF0: 04 44 45 43 20 46 49 52 45 00 2A 14 92 04 4A 53 |.DEC FIRE.*...JS|
00000C00: 52 20 4C 44 52 41 57 20 20 20 3B 20 4C 49 4E 49 |R LDRAW ; LINI|
00000C10: 45 20 56 91 20 58 31 AD 59 31 20 5A 55 20 58 32 |E V. X1.Y1 ZU X2|
00000C20: AD 59 32 20 5A 49 45 48 45 4E 00 3A 14 9C 04 4C |.Y2 ZIEHEN.:...L|
00000C30: 44 58 20 23 B3 54 45 58 54 33 00 4A 14 A6 04 4C |DX #.TEXT3.J...L|
00000C40: 44 59 20 23 B1 54 45 58 54 33 00 59 14 B0 04 4A |DY #.TEXT3.Y...J|
00000C50: 53 52 20 54 45 58 54 50 52 00 5F 14 BA 04 3A 00 |SR TEXTPR._...:.|
00000C60: 74 14 C4 04 4C 4F 4F 50 33 20 4A 53 52 20 43 4F |t...LOOP3 JSR CO|
00000C70: 4D 53 55 42 00 80 14 CE 04 4C 44 58 20 B9 49 58 |MSUB.....LDX .IX|
00000C80: 00 9D 14 D8 04 4C 44 59 20 B9 49 59 20 20 20 3B |.....LDY .IY ;|
00000C90: 20 B9 49 54 49 91 20 4D 45 52 4B 45 4E 00 A8 14 | .ITI. MERKEN...|
00000CA0: E2 04 53 54 58 20 58 33 00 B3 14 EC 04 53 54 59 |..STX X3.....STY|
00000CB0: 20 59 33 00 D1 14 F6 04 4A 53 52 20 46 4C 41 44 | Y3.....JSR FLAD|
00000CC0: 52 45 49 20 3B 20 53 49 45 48 45 20 55 4E 54 45 |REI ; SIEHE UNTE|
00000CD0: 4E 00 E1 14 00 05 4A 53 52 20 46 4C 41 44 52 45 |N.....JSR FLADRE|
00000CE0: 49 00 EE 14 0A 05 4C 44 41 20 46 49 52 45 00 FC |I.....LDA FIRE..|
00000CF0: 14 14 05 42 45 51 20 4C 4F 4F 50 33 00 02 15 1E |...BEQ LOOP3....|
00000D00: 05 3A 00 0F 15 28 05 44 45 43 20 46 49 52 45 00 |.:...(.DEC FIRE.|
00000D10: 1A 15 32 05 4C 44 58 20 58 31 00 39 15 3C 05 4C |..2.LDX X1.9.<.L|
00000D20: 44 59 20 59 31 20 20 20 20 20 20 3B 20 58 31 AD |DY Y1 ; X1.|
00000D30: 59 31 20 4D 45 52 4B 45 4E 00 44 15 46 05 53 54 |Y1 MERKEN.D.F.ST|
00000D40: 58 20 58 34 00 4F 15 50 05 53 54 59 20 59 34 00 |X X4.O.P.STY Y4.|
00000D50: 5A 15 5A 05 4C 44 58 20 58 33 00 65 15 64 05 4C |Z.Z.LDX X3.e.d.L|
00000D60: 44 59 20 59 33 00 70 15 6E 05 53 54 58 20 58 31 |DY Y3.p.n.STX X1|
00000D70: 00 7B 15 78 05 53 54 59 20 59 31 00 99 15 82 05 |.{.x.STY Y1.....|
00000D80: 4A 53 52 20 4C 44 52 41 57 20 20 3B 20 4C 49 4E |JSR LDRAW ; LIN|
00000D90: 49 45 20 5A 49 45 48 45 4E 00 A4 15 8C 05 4C 44 |IE ZIEHEN.....LD|
00000DA0: 58 20 58 34 00 AF 15 96 05 4C 44 59 20 59 34 00 |X X4.....LDY Y4.|
00000DB0: CB 15 A0 05 53 54 58 20 58 32 20 20 20 20 20 20 |....STX X2 |
00000DC0: 3B 20 5A 55 52 55 45 4B 48 4F C3 00 D6 15 AA 05 |; ZURUEKHO......|
00000DD0: 53 54 59 20 59 32 00 FF 15 B4 05 4A 53 52 20 4C |STY Y2.....JSR L|
00000DE0: 44 52 41 57 20 20 3B 20 55 4E 44 20 5A 57 45 49 |DRAW ; UND ZWEI|
00000DF0: 54 45 20 4C 49 4E 49 45 20 5A 49 45 48 45 4E 00 |TE LINIE ZIEHEN.|
00000E00: 2B 16 BE 05 4A 4D 50 20 44 52 45 49 45 43 4B 20 |+...JMP DREIECK |
00000E10: 3B 20 57 45 49 54 45 52 45 20 44 52 45 49 45 43 |; WEITERE DREIEC|
00000E20: 4B 45 20 5A 45 49 43 48 4E 45 4E 00 31 16 C8 05 |KE ZEICHNEN.1...|
00000E30: 3A 00 5E 16 D2 05 46 4C 41 44 52 45 49 20 4C 44 |:.^...FLADREI LD|
00000E40: 58 20 58 31 20 3B 20 5A 57 45 49 20 4C 49 4E 49 |X X1 ; ZWEI LINI|
00000E50: 45 4E 20 49 4E 56 45 52 54 49 45 52 45 4E 00 82 |EN INVERTIEREN..|
00000E60: 16 DC 05 4C 44 59 20 59 31 20 20 20 20 20 20 3B |...LDY Y1 ;|
00000E70: 20 20 20 20 20 58 31 AD 59 31 20 AB 20 58 33 AD | X1.Y1 . X3.|
00000E80: 59 33 00 A5 16 E6 05 53 54 58 20 4B B0 58 20 20 |Y3.....STX K.X |
00000E90: 20 20 3B 20 55 4E 44 20 58 32 AD 59 32 20 AB 20 | ; UND X2.Y2 . |
00000EA0: 58 33 AD 59 33 00 B1 16 F0 05 53 54 59 20 4B B0 |X3.Y3.....STY K.|
00000EB0: 59 00 BC 16 FA 05 4C 44 58 20 58 33 00 C7 16 04 |Y.....LDX X3....|
00000EC0: 06 4C 44 59 20 59 33 00 D4 16 0E 06 53 54 58 20 |.LDY Y3.....STX |
00000ED0: 4B B0 58 32 00 E1 16 18 06 53 54 59 20 4B B0 59 |K.X2.....STY K.Y|
00000EE0: 32 00 F1 16 22 06 4A 53 52 20 45 58 B0 4C 49 4E |2...".JSR EX.LIN|
00000EF0: 45 00 F7 16 2C 06 3A 00 02 17 36 06 4C 44 58 20 |E...,.:...6.LDX |
00000F00: 58 32 00 0D 17 40 06 4C 44 59 20 59 32 00 19 17 |X2...@.LDY Y2...|
00000F10: 4A 06 53 54 58 20 4B B0 58 00 25 17 54 06 53 54 |J.STX K.X.%.T.ST|
00000F20: 59 20 4B B0 59 00 30 17 5E 06 4C 44 58 20 58 33 |Y K.Y.0.^.LDX X3|
00000F30: 00 3B 17 68 06 4C 44 59 20 59 33 00 48 17 72 06 |.;.h.LDY Y3.H.r.|
00000F40: 53 54 58 20 4B B0 58 32 00 55 17 7C 06 53 54 59 |STX K.X2.U.|.STY|
00000F50: 20 4B B0 59 32 00 65 17 86 06 4A 53 52 20 45 58 | K.Y2.e...JSR EX|
00000F60: B0 4C 49 4E 45 00 6D 17 90 06 52 54 53 00 73 17 |.LINE.m...RTS.s.|
00000F70: 9A 06 3A 00 A2 17 A4 06 54 45 58 54 31 20 42 59 |..:.....TEXT1 BY|
00000F80: 54 20 31 2C 34 39 2C 33 3A C6 20 22 44 52 45 49 |T 1,49,3:. "DREI|
00000F90: 45 43 4B 20 50 55 4E 4B 54 20 41 22 3A 42 59 54 |ECK PUNKT A":BYT|
00000FA0: 20 30 00 D1 17 AE 06 54 45 58 54 32 20 42 59 54 | 0.....TEXT2 BYT|
00000FB0: 20 31 2C 34 39 2C 33 3A C6 20 22 44 52 45 49 45 | 1,49,3:. "DREIE|
00000FC0: 43 4B 20 50 55 4E 4B 54 20 42 22 3A 42 59 54 20 |CK PUNKT B":BYT |
00000FD0: 30 00 00 18 B8 06 54 45 58 54 33 20 42 59 54 20 |0.....TEXT3 BYT |
00000FE0: 31 2C 34 39 2C 33 3A C6 20 22 44 52 45 49 45 43 |1,49,3:. "DREIEC|
00000FF0: 4B 20 50 55 4E 4B 54 20 43 22 3A 42 59 54 20 30 |K PUNKT C":BYT 0|
00001000: 00 00 00 |... |
....N.OPT OO...X... $4000.....:.%...:.K.
..ZOOMMOEG . 210 ; FLAG OB ZOOM MOEGLICH
, MUSS BEI ERWEITE.G 1 SEIN.Q. .:.....IN
1 . 217 ; ZWISCHENSPEICHER.....IN2
. 219 ; ZUM INDIZIEREN.....:...H.MRK
. 221 ; ZWISCHENSPEICHER...R.IN3 . 22
2 ;.....:......IX . 225 ; .ITI. DES CU
RS.S.I....IY . 226 ; WIRD IN IRQ.ROUTIN
E GESETZT.U...BUT.N . 238 ; 1.KNOPF GEDR
UECKT 0.NICHT.....K.X . 239 ; X.Y KO.D
INATE BEI.....K.Y . 240 ; LINIEN.BLOEC
KEN.A...:...".FIRE . 251 ; 1 NACHDEM K
NOPF GEDRUECKT (V. IRQ GESETZT)...,.:.'.
6.K.X2 . 23 ; X.Y KO.DIN. BEI.D.@.K.Y2
. 24 ; LINIEN ....J.J.:.P.T.X1 . 35
; ZWISCHENSPEICHER FUER...^.X2 . 36 ;
X.Y KOOTRDINATEN BEI...H.X3 . 37 ; VE
RSCHIEDENEN BEFEHC.F.R.Y1 . 38.R.|.Y2 .
39.....Y3 . 40.....X4 . 47.....Y4 . 48..
...X5 . 49.....X6 . 50.....Y5 . 51.&.B.Y
6 . 52.3.L.IN4 . 53.@.V.IN5 . 55.M...IN6
. 57.Z...X7 . 59.G...Y7 . 60.T...X8
. 61.....Y8 . 62.....:.....:...&..TAB
. $AE00 ; .USWERTE.U.0.PRIOFELD . $AF00
; PRI.ITAETENTABELLE...:.STRIMUST . $B0
00 ; LINIEN STRICHELN MUSTER.:.D.STRIBYT
ES . $B060 ;AKTUELLES MUSTER (LINIEN STR
.).].N.PATTERNS . $B080 ; FUELLMUSTER...
X.;FAPINSEL . $B480 ; FARBPINSEL V1.4...
].FAPINSEL . $B400 ; FARBPINSEL V1.8.Z.B
.PBREI . $B05E ; GROESSE DES FARBPINS
EL...L.PHOEH . $B05F ; HOEHE.BREITE.-
.V.FROTTAB . $B700 ; TABELLE FUER FARBT
AUSCH.J...MAKROMEM . $0800 ; MAKRO.R...X
SPEI . $0900 ; X.Y SPEICHER BEI.....Y
SPEI . $0A00 ; FILL ........:.H...MEN
U. . $1000.3 ; SP.G IN'S MENUE (.BRK)
.....PLMUST . $9000.30 ; PLOT ROUTIN
EN.&...PLOTPR . $9000.33 ; FUER MUST
ER,PRI.ITAETEN.K.F.PLPINS . $9000.48
; PINSEL.M.K.P.PL. . $9000.75 ; LIN
IEN.Q.Z.:......TAS . $9000.78 ; TASTE
EINLESEN UND "_"."^" TESTEN.R...PLOT
. $C000.9 ; PUNKT SETZEN......UNTEN .
$C000.36 ; SPRITES UNTEN LOESCHEN.4...TE
XTPR . $C000.39 ; TEXT IN SPRITES AUSG
EBEN._...EX.LINE . $C000.51 ; LINIE INVE
RTIEREN......OUT . $C000.120 ; "BITTE W
ARTEN" AUSGEBEN.U. .COMSUB . $A900.
57 ; STATUSZEILE AUSGEBEN UND TASTATURAB
FRAGE...*.LFLASH . $A900.63 ; LINIE
BLINKEN.(.4.LDRAW . $A900.66 ; LINI
E ZIEHEN.^.>.BEFINIT . $A900.87 ; AL
LGEMEINE INITIALISIE.G...H.MAINSUB .
$7000.18 ; UNDO V.BEREITEN ETC......R.:
...\.JSR MAINSUB ; SOLLTE IMMER 1. BEF.
EINER ERW. SEIN. SCHALTET GRAFIK EIN US
W.%.F.INC ZOOMMOEG ; VERHINDERT EINSCHAL
TEN DES ZOOM.FENSTERS.+.P.:.C.Z.DREIECK
LDX #.TEXT1.S...LDY #.TEXT1.....JSR BEFI
NIT ; TEXTAUSGABE IN SPRITES UND INITIAL
ISIE.G.....:.....LOOP1 JSR COMSUB ; COMS
UB GIBT STATUSZEILE AUS, FRAGT EDI.RTAST
EN AB UND.!...;PRUEFT AUF SP.G IN UNTERM
ENUES MIT F.TASTEN ODER E.F.M.S.O.W...LD
A FIRE ; WURDE FEUERKNOPF INZWISCHEN GE
DRUECKT.Y...BEQ LOOP1 ; NEIN, DANN WEITE
R....:...J.DEC FIRE ; KNOPFFLAG .0...T
.LDX .IX.J...LDY .IY ; AKTUELLE PFEIL.IT
I......STX X1 ; MERKEN.....STY Y1.....
:.....LDX #.TEXT2 ; NAECHTEN TEXT.,...LD
Y #.TEXT2 ; AUSGEBEN.;...JSR TEXTPR.A.$.
:.V...LOOP2 JSR COMSUB.B.8.LDX .IX.}.B.L
DY .IY ; .ITI. MERKEN...L.STX X2...V.STY
Y2.K.`.JSR LFLASH ; LINIE V. X1.Y1 ZU X
2.Y2 EINMAL BLINKEN.X.J.LDA FIRE...T.BEQ
LOOP2...~.:.....DEC FIRE.*...JSR LDRAW
; LINIE V. X1.Y1 ZU X2.Y2 ZIEHEN.:...L
DX #.TEXT3.J...LDY #.TEXT3.Y...JSR TEXTP
R._...:.T.D.LOOP3 JSR COMSUB...N.LDX .IX
...X.LDY .IY ; .ITI. MERKEN.....STX X3
.....STY Y3.Q...JSR FLADREI ; SIEHE UNTE
N.....JSR FLADREI.....LDA FIRE.....BEQ L
OOP3.....:...(.DEC FIRE...2.LDX X1.9.<.L
DY Y1 ; X1.Y1 MERKEN.D.F.STX X4.O.P
.STY Y4.Z.Z.LDX X3.E.D.LDY Y3.P.N.STX X1
.{.X.STY Y1.....JSR LDRAW ; LINIE ZIEHE
N.....LDX X4.....LDY Y4.K. .STX X2
; ZURUEKHOC.V...STY Y2.....JSR LDRAW ;
UND ZWEITE LINIE ZIEHEN.+...JMP DREIECK
; WEITERE DREIECKE ZEICHNEN.1.H.:.^.R.FL
ADREI LDX X1 ; ZWEI LINIEN INVERTIEREN..
...LDY Y1 ; X1.Y1 . X3.Y3.....S
TX K.X ; UND X2.Y2 . X3.Y3.....STY K.
Y.....LDX X3.G...LDY Y3.T...STX K.X2....
.STY K.Y2...".JSR EX.LINE...,.:...6.LDX
X2...@.LDY Y2...J.STX K.X.%.T.STY K.Y.0.
^.LDX X3.;.H.LDY Y3.H.R.STX K.X2.U.|.STY
K.Y2.E...JSR EX.LINE.M...RTS.S...:.....
TEXT1 BYT 1,49,3:F "DREIECK PUNKT A":BYT
0.Q...TEXT2 BYT 1,49,3:F "DREIECK PUNKT
B":BYT 0.....TEXT3 BYT 1,49,3:F "DREIEC
K PUNKT C":BYT 0...
> CLICK IMAGE PREVIEW FOR FULL MODAL