DREIECK.SRC

FILE INFORMATION

FILENAME(S): DREIECK.SRC

FILE TYPE(S): PRG

FILE SIZE: 4K

FIRST SEEN: 2025-11-02 16:39:01

APPEARS ON: 27 disk(s)

FILE HASH

b1008e1df305a89ee840ef0327506197e598fe0f48406d60a755ae11df602c82

FOUND ON DISKS (27 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15827 SEITE A	DREIECK.SRC	PRG	Treasure Chest - Plattfuss	13	1	DOWNLOAD FILE
15827 SEITE A	DREIECK.SRC	PRG	Treasure Chest - Plattfuss	13	1	DOWNLOAD FILE
15827 SEITE A	DREIECK.SRC	PRG	Treasure Chest - Plattfuss	13	1	DOWNLOAD FILE
RAMBO SOFT	DREIECK.SRC	PRG	Treasure Chest - ralf	27	5	DOWNLOAD FILE
15827 SEITE A	DREIECK.SRC	PRG	Treasure Chest - ralf	13	1	DOWNLOAD FILE
GRAPHX17	DREIECK.SRC	PRG	Treasure Chest - Spook	26	9	DOWNLOAD FILE
64 ER SONDERH 55	DREIECK.SRC	PRG	C64er	22	4	DOWNLOAD FILE
15837 SEITE A	DREIECK.SRC	PRG	C64er, DuncanTwain	13	1	DOWNLOAD FILE
15827 SEITE A	DREIECK.SRC	PRG	C64er, DuncanTwain	13	1	DOWNLOAD FILE
20 A AMICA PAINT	DREIECK.SRC	PRG	Belgium	13	1	DOWNLOAD FILE
RED WOLFGANG 237	DREIECK.SRC	PRG	BrainSkull, Wolfgang Red	27	5	DOWNLOAD FILE
DOLT PRESENTS	DREIECK.SRC	PRG	Sailor, Sensei	27	5	DOWNLOAD FILE
THE BUZZARD	DREIECK.SRC	PRG	Curtcool, Malcom	22	5	DOWNLOAD FILE
D A P A SOFT A	DREIECK.SRC	PRG	DuncanTwain	27	5	DOWNLOAD FILE
A PAINT	DREIECK.SRC	PRG	DuncanTwain	26	11	DOWNLOAD FILE
AMICA PAINT	DREIECK.SRC	PRG	DuncanTwain	13	4	DOWNLOAD FILE
A PAINT	DREIECK.SRC	PRG	DuncanTwain	26	11	DOWNLOAD FILE
D F FUTUREVISION	DREIECK.SRC	PRG	DuncanTwain	27	5	DOWNLOAD FILE
DOLT PRESENTS	DREIECK.SRC	PRG	hedning, pewp	27	5	DOWNLOAD FILE
15827 SEITE A	DREIECK.SRC	PRG	Shine	13	1	DOWNLOAD FILE
64 ER PRG B	DREIECK.SRC	PRG	Shine	13	6	DOWNLOAD FILE
15827 SEITE A	DREIECK.SRC	PRG	Shine	13	1	DOWNLOAD FILE
KORAZ COLLECTION	DREIECK.SRC	PRG	hedning, The Viking	10	0	DOWNLOAD FILE
NO LIMITS DISK	DREIECK.SRC	PRG	HOL2001, OUG	13	1	DOWNLOAD FILE
15827 SEITE A	DREIECK.SRC	PRG	mace	13	1	DOWNLOAD FILE
FROM WOLF IN 88	DREIECK.SRC	PRG	The BAM Archive	27	5	DOWNLOAD FILE
15827 SEITE A	DREIECK.SRC	PRG	The BAM Archive	13	1	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 7F 0C  |; FUELLMUSTER...|
00000460: 58 02 46 41 50 49 4E 53  45 4C 20 B2 20 24 42 34  |X.FAPINSEL . $B4|
00000470: 38 30 20 3B 20 46 41 52  42 50 49 4E 53 45 4C 00  |80 ; FARBPINSEL.|
00000480: AD 0C 62 02 50 42 52 45  49 20 20 20 20 B2 20 24  |..b.PBREI    . $|
00000490: 42 30 35 45 20 3B 20 47  52 4F 45 53 53 45 20 44  |B05E ; GROESSE D|
000004A0: 45 53 20 46 41 52 42 50  49 4E 53 45 4C 00 D1 0C  |ES FARBPINSEL...|
000004B0: 6C 02 50 48 4F 45 48 20  20 20 20 B2 20 24 42 30  |l.PHOEH    . $B0|
000004C0: 35 46 20 3B 20 48 4F 45  48 45 AD 42 52 45 49 54  |5F ; HOEHE.BREIT|
000004D0: 45 00 00 0D 76 02 46 52  4F 54 54 41 42 20 20 B2  |E...v.FROTTAB  .|
000004E0: 20 24 42 37 30 30 20 3B  20 54 41 42 45 4C 4C 45  | $B700 ; TABELLE|
000004F0: 20 46 55 45 52 20 46 41  52 42 54 41 55 53 43 48  | FUER FARBTAUSCH|
00000500: 00 1D 0D 80 02 4D 41 4B  52 4F 4D 45 4D 20 B2 20  |.....MAKROMEM . |
00000510: 24 30 38 30 30 20 3B 20  4D 41 4B 52 4F 00 45 0D  |$0800 ; MAKRO.E.|
00000520: 8A 02 58 53 50 45 49 20  20 20 20 B2 20 24 30 39  |..XSPEI    . $09|
00000530: 30 30 20 3B 20 58 AD 59  20 53 50 45 49 43 48 45  |00 ; X.Y SPEICHE|
00000540: 52 20 42 45 49 00 65 0D  94 02 59 53 50 45 49 20  |R BEI.e...YSPEI |
00000550: 20 20 20 B2 20 24 30 41  30 30 20 3B 20 46 49 4C  |   . $0A00 ; FIL|
00000560: 4C 20 2E 2E 2E 00 6B 0D  9E 02 3A 00 9B 0D A8 02  |L ....k...:.....|
00000570: 4D 45 4E 55 DD 20 20 20  B2 20 24 31 30 30 30 AA  |MENU.   . $1000.|
00000580: 33 20 20 3B 20 53 50 8A  47 20 49 4E 27 53 20 4D  |3  ; SP.G IN'S M|
00000590: 45 4E 55 45 20 28 B2 42  52 4B 29 00 C5 0D B2 02  |ENUE (.BRK).....|
000005A0: 50 4C 4D 55 53 54 20 20  20 20 20 B2 20 24 39 30  |PLMUST     . $90|
000005B0: 30 30 AA 33 30 20 3B 20  50 4C 4F 54 20 52 4F 55  |00.30 ; PLOT ROU|
000005C0: 54 49 4E 45 4E 00 F9 0D  BC 02 50 4C 4F 54 50 52  |TINEN.....PLOTPR|
000005D0: 20 20 20 20 20 B2 20 24  39 30 30 30 AA 33 33 20  |     . $9000.33 |
000005E0: 3B 20 46 55 45 52 20 4D  55 53 54 45 52 2C 50 52  |; FUER MUSTER,PR|
000005F0: 49 B0 49 54 41 45 54 45  4E 00 1E 0E C6 02 50 4C  |I.ITAETEN.....PL|
00000600: 50 49 4E 53 20 20 20 20  20 B2 20 24 39 30 30 30  |PINS     . $9000|
00000610: AA 34 38 20 3B 20 50 49  4E 53 45 4C 81 4D 00 3E  |.48 ; PINSEL.M.>|
00000620: 0E D0 02 50 4C EB 20 20  20 20 20 B2 20 24 39 30  |...PL.     . $90|
00000630: 30 30 AA 37 35 20 3B 20  4C 49 4E 49 45 4E 00 44  |00.75 ; LINIEN.D|
00000640: 0E DA 02 3A 00 7E 0E E4  02 A1 54 41 53 20 20 20  |...:.~....TAS   |
00000650: B2 20 24 39 30 30 30 AA  37 38 20 3B 20 54 41 53  |. $9000.78 ; TAS|
00000660: 54 45 20 45 49 4E 4C 45  53 45 4E 20 55 4E 44 20  |TE EINLESEN UND |
00000670: 22 5F 22 AD 22 5E 22 20  54 45 53 54 45 4E 00 A5  |"_"."^" TESTEN..|
00000680: 0E EE 02 50 4C 4F 54 20  20 20 20 20 B2 20 24 43  |...PLOT     . $C|
00000690: 30 30 30 AA 39 20 20 3B  20 50 55 4E 4B 54 20 53  |000.9  ; PUNKT S|
000006A0: 45 54 5A 45 4E 00 D4 0E  F8 02 9C 55 4E 54 45 4E  |ETZEN......UNTEN|
000006B0: 20 B2 20 24 43 30 30 30  AA 33 36 20 3B 20 53 50  | . $C000.36 ; SP|
000006C0: 52 49 54 45 53 20 55 4E  54 45 4E 20 4C 4F 45 53  |RITES UNTEN LOES|
000006D0: 43 48 45 4E 00 07 0F 02  03 54 45 58 54 50 52 20  |CHEN.....TEXTPR |
000006E0: 20 20 B2 20 24 43 30 30  30 AA 33 39 20 3B 20 54  |  . $C000.39 ; T|
000006F0: 45 58 54 20 49 4E 20 53  50 52 49 54 45 53 20 41  |EXT IN SPRITES A|
00000700: 55 53 47 45 42 45 4E 00  32 0F 0C 03 45 58 B0 4C  |USGEBEN.2...EX.L|
00000710: 49 4E 45 20 B2 20 24 43  30 30 30 AA 35 31 20 3B  |INE . $C000.51 ;|
00000720: 20 4C 49 4E 49 45 20 49  4E 56 45 52 54 49 45 52  | LINIE INVERTIER|
00000730: 45 4E 00 62 0F 16 03 92  4F 55 54 20 20 B2 20 24  |EN.b....OUT  . $|
00000740: 43 30 30 30 AA 31 32 30  20 3B 20 22 42 49 54 54  |C000.120 ; "BITT|
00000750: 45 20 57 41 52 54 45 4E  22 20 41 55 53 47 45 42  |E WARTEN" AUSGEB|
00000760: 45 4E 00 A8 0F 20 03 43  4F 4D 53 55 42 20 20 20  |EN... .COMSUB   |
00000770: 20 20 20 B2 20 24 41 39  30 30 AA 35 37 20 3B 20  |   . $A900.57 ; |
00000780: 53 54 41 54 55 53 5A 45  49 4C 45 20 41 55 53 47  |STATUSZEILE AUSG|
00000790: 45 42 45 4E 20 55 4E 44  20 54 41 53 54 41 54 55  |EBEN UND TASTATU|
000007A0: 52 41 42 46 52 41 47 45  00 D3 0F 2A 03 4C 46 4C  |RABFRAGE...*.LFL|
000007B0: 41 53 48 20 20 20 20 20  20 B2 20 24 41 39 30 30  |ASH      . $A900|
000007C0: AA 36 33 20 3B 20 4C 49  4E 49 45 20 42 4C 49 4E  |.63 ; LINIE BLIN|
000007D0: 4B 45 4E 00 FB 0F 34 03  4C 44 52 41 57 20 20 20  |KEN...4.LDRAW   |
000007E0: 20 20 B2 20 24 41 39 30  30 AA 36 36 20 3B 20 4C  |  . $A900.66 ; L|
000007F0: 49 4E 49 45 20 5A 49 45  48 45 4E 00 31 10 3E 03  |INIE ZIEHEN.1.>.|
00000800: 42 45 46 49 4E 49 54 20  20 20 20 20 B2 20 24 41  |BEFINIT     . $A|
00000810: 39 30 30 AA 38 37 20 3B  20 41 4C 4C 47 45 4D 45  |900.87 ; ALLGEME|
00000820: 49 4E 45 20 49 4E 49 54  49 41 4C 49 53 49 45 8A  |INE INITIALISIE.|
00000830: 47 00 65 10 48 03 4D 41  49 4E 53 55 42 20 20 20  |G.e.H.MAINSUB   |
00000840: 20 20 B2 20 24 37 30 30  30 AA 31 38 20 3B 20 55  |  . $7000.18 ; U|
00000850: 4E 44 4F 20 56 B0 42 45  52 45 49 54 45 4E 20 45  |NDO V.BEREITEN E|
00000860: 54 43 2E 2E 2E 00 6B 10  52 03 3A 00 BC 10 5C 03  |TC....k.R.:...\.|
00000870: 4A 53 52 20 4D 41 49 4E  53 55 42 20 20 3B 20 53  |JSR MAINSUB  ; S|
00000880: 4F 4C 4C 54 45 20 49 4D  4D 45 52 20 31 2E 20 42  |OLLTE IMMER 1. B|
00000890: 45 46 2E 20 45 49 4E 45  52 20 45 52 57 2E 20 53  |EF. EINER ERW. S|
000008A0: 45 49 4E 2E 20 53 43 48  41 4C 54 45 54 20 47 52  |EIN. SCHALTET GR|
000008B0: 41 46 49 4B 20 45 49 4E  20 55 53 57 00 F8 10 66  |AFIK EIN USW...f|
000008C0: 03 49 4E 43 20 5A 4F 4F  4D 4D 4F 45 47 20 3B 20  |.INC ZOOMMOEG ; |
000008D0: 56 45 52 48 49 4E 44 45  52 54 20 45 49 4E 53 43  |VERHINDERT EINSC|
000008E0: 48 41 4C 54 45 4E 20 44  45 53 20 5A 4F 4F 4D AB  |HALTEN DES ZOOM.|
000008F0: 46 45 4E 53 54 45 52 53  00 FE 10 70 03 3A 00 16  |FENSTERS...p.:..|
00000900: 11 7A 03 44 52 45 49 45  43 4B 20 4C 44 58 20 23  |.z.DREIECK LDX #|
00000910: B3 54 45 58 54 31 00 26  11 84 03 4C 44 59 20 23  |.TEXT1.&...LDY #|
00000920: B1 54 45 58 54 31 00 61  11 8E 03 4A 53 52 20 42  |.TEXT1.a...JSR B|
00000930: 45 46 49 4E 49 54 20 3B  20 54 45 58 54 41 55 53  |EFINIT ; TEXTAUS|
00000940: 47 41 42 45 20 49 4E 20  53 50 52 49 54 45 53 20  |GABE IN SPRITES |
00000950: 55 4E 44 20 49 4E 49 54  49 41 4C 49 53 49 45 8A  |UND INITIALISIE.|
00000960: 47 00 67 11 98 03 3A 00  B4 11 A2 03 4C 4F 4F 50  |G.g...:.....LOOP|
00000970: 31 20 4A 53 52 20 43 4F  4D 53 55 42 20 3B 20 43  |1 JSR COMSUB ; C|
00000980: 4F 4D 53 55 42 20 47 49  42 54 20 53 54 41 54 55  |OMSUB GIBT STATU|
00000990: 53 5A 45 49 4C 45 20 41  55 53 2C 20 46 52 41 47  |SZEILE AUS, FRAG|
000009A0: 54 20 45 44 49 A4 52 54  41 53 54 45 4E 20 41 42  |T EDI.RTASTEN AB|
000009B0: 20 55 4E 44 00 F4 11 A3  03 3B 50 52 55 45 46 54  | UND.....;PRUEFT|
000009C0: 20 41 55 46 20 53 50 8A  47 20 49 4E 20 55 4E 54  | AUF SP.G IN UNT|
000009D0: 45 52 4D 45 4E 55 45 53  20 4D 49 54 20 46 AB 54  |ERMENUES MIT F.T|
000009E0: 41 53 54 45 4E 20 4F 44  45 52 20 45 AD 46 AD 4D  |ASTEN ODER E.F.M|
000009F0: AD 53 AD 4F 00 2A 12 AC  03 4C 44 41 20 46 49 52  |.S.O.*...LDA FIR|
00000A00: 45 20 20 3B 20 57 55 52  44 45 20 46 45 55 45 52  |E  ; WURDE FEUER|
00000A10: 4B 4E 4F 50 46 20 49 4E  5A 57 49 53 43 48 45 4E  |KNOPF INZWISCHEN|
00000A20: 20 47 45 44 52 55 45 43  4B 54 00 4C 12 B6 03 42  | GEDRUECKT.L...B|
00000A30: 45 51 20 4C 4F 4F 50 31  20 3B 20 4E 45 49 4E 2C  |EQ LOOP1 ; NEIN,|
00000A40: 20 44 41 4E 4E 20 57 45  49 54 45 52 00 52 12 C0  | DANN WEITER.R..|
00000A50: 03 3A 00 6F 12 CA 03 44  45 43 20 46 49 52 45 20  |.:.o...DEC FIRE |
00000A60: 20 3B 20 4B 4E 4F 50 46  46 4C 41 47 20 B2 30 00  | ; KNOPFFLAG .0.|
00000A70: 7B 12 D4 03 4C 44 58 20  B9 49 58 00 9D 12 DE 03  |{...LDX .IX.....|
00000A80: 4C 44 59 20 B9 49 59 20  3B 20 41 4B 54 55 45 4C  |LDY .IY ; AKTUEL|
00000A90: 4C 45 20 50 46 45 49 4C  B9 49 54 49 91 00 B3 12  |LE PFEIL.ITI....|
00000AA0: E8 03 53 54 58 20 58 31  20 20 20 3B 20 4D 45 52  |..STX X1   ; MER|
00000AB0: 4B 45 4E 00 BE 12 F2 03  53 54 59 20 59 31 00 C4  |KEN.....STY Y1..|
00000AC0: 12 FC 03 3A 00 E4 12 06  04 4C 44 58 20 23 B3 54  |...:.....LDX #.T|
00000AD0: 45 58 54 32 20 3B 20 4E  41 45 43 48 54 45 4E 20  |EXT2 ; NAECHTEN |
00000AE0: 54 45 58 54 00 FF 12 10  04 4C 44 59 20 23 B1 54  |TEXT.....LDY #.T|
00000AF0: 45 58 54 32 20 3B 20 41  55 53 47 45 42 45 4E 00  |EXT2 ; AUSGEBEN.|
00000B00: 0E 13 1A 04 4A 53 52 20  54 45 58 54 50 52 00 14  |....JSR TEXTPR..|
00000B10: 13 24 04 3A 00 29 13 2E  04 4C 4F 4F 50 32 20 4A  |.$.:.)...LOOP2 J|
00000B20: 53 52 20 43 4F 4D 53 55  42 00 35 13 38 04 4C 44  |SR COMSUB.5.8.LD|
00000B30: 58 20 B9 49 58 00 50 13  42 04 4C 44 59 20 B9 49  |X .IX.P.B.LDY .I|
00000B40: 59 20 3B 20 B9 49 54 49  91 20 4D 45 52 4B 45 4E  |Y ; .ITI. MERKEN|
00000B50: 00 5B 13 4C 04 53 54 58  20 58 32 00 66 13 56 04  |.[.L.STX X2.f.V.|
00000B60: 53 54 59 20 59 32 00 9E  13 60 04 4A 53 52 20 4C  |STY Y2...`.JSR L|
00000B70: 46 4C 41 53 48 20 3B 20  4C 49 4E 49 45 20 56 91  |FLASH ; LINIE V.|
00000B80: 20 58 31 AD 59 31 20 5A  55 20 58 32 AD 59 32 20  | X1.Y1 ZU X2.Y2 |
00000B90: 45 49 4E 4D 41 4C 20 42  4C 49 4E 4B 45 4E 00 AB  |EINMAL BLINKEN..|
00000BA0: 13 6A 04 4C 44 41 20 46  49 52 45 00 B9 13 74 04  |.j.LDA FIRE...t.|
00000BB0: 42 45 51 20 4C 4F 4F 50  32 00 BF 13 7E 04 3A 00  |BEQ LOOP2...~.:.|
00000BC0: CC 13 88 04 44 45 43 20  46 49 52 45 00 FD 13 92  |....DEC FIRE....|
00000BD0: 04 4A 53 52 20 4C 44 52  41 57 20 20 20 3B 20 4C  |.JSR LDRAW   ; L|
00000BE0: 49 4E 49 45 20 56 91 20  58 31 AD 59 31 20 5A 55  |INIE V. X1.Y1 ZU|
00000BF0: 20 58 32 AD 59 32 20 5A  49 45 48 45 4E 00 0D 14  | X2.Y2 ZIEHEN...|
00000C00: 9C 04 4C 44 58 20 23 B3  54 45 58 54 33 00 1D 14  |..LDX #.TEXT3...|
00000C10: A6 04 4C 44 59 20 23 B1  54 45 58 54 33 00 2C 14  |..LDY #.TEXT3.,.|
00000C20: B0 04 4A 53 52 20 54 45  58 54 50 52 00 32 14 BA  |..JSR TEXTPR.2..|
00000C30: 04 3A 00 47 14 C4 04 4C  4F 4F 50 33 20 4A 53 52  |.:.G...LOOP3 JSR|
00000C40: 20 43 4F 4D 53 55 42 00  53 14 CE 04 4C 44 58 20  | COMSUB.S...LDX |
00000C50: B9 49 58 00 70 14 D8 04  4C 44 59 20 B9 49 59 20  |.IX.p...LDY .IY |
00000C60: 20 20 3B 20 B9 49 54 49  91 20 4D 45 52 4B 45 4E  |  ; .ITI. MERKEN|
00000C70: 00 7B 14 E2 04 53 54 58  20 58 33 00 86 14 EC 04  |.{...STX X3.....|
00000C80: 53 54 59 20 59 33 00 A4  14 F6 04 4A 53 52 20 46  |STY Y3.....JSR F|
00000C90: 4C 41 44 52 45 49 20 3B  20 53 49 45 48 45 20 55  |LADREI ; SIEHE U|
00000CA0: 4E 54 45 4E 00 B4 14 00  05 4A 53 52 20 46 4C 41  |NTEN.....JSR FLA|
00000CB0: 44 52 45 49 00 C1 14 0A  05 4C 44 41 20 46 49 52  |DREI.....LDA FIR|
00000CC0: 45 00 CF 14 14 05 42 45  51 20 4C 4F 4F 50 33 00  |E.....BEQ LOOP3.|
00000CD0: D5 14 1E 05 3A 00 E2 14  28 05 44 45 43 20 46 49  |....:...(.DEC FI|
00000CE0: 52 45 00 ED 14 32 05 4C  44 58 20 58 31 00 0C 15  |RE...2.LDX X1...|
00000CF0: 3C 05 4C 44 59 20 59 31  20 20 20 20 20 20 3B 20  |<.LDY Y1      ; |
00000D00: 58 31 AD 59 31 20 4D 45  52 4B 45 4E 00 17 15 46  |X1.Y1 MERKEN...F|
00000D10: 05 53 54 58 20 58 34 00  22 15 50 05 53 54 59 20  |.STX X4.".P.STY |
00000D20: 59 34 00 2D 15 5A 05 4C  44 58 20 58 33 00 38 15  |Y4.-.Z.LDX X3.8.|
00000D30: 64 05 4C 44 59 20 59 33  00 43 15 6E 05 53 54 58  |d.LDY Y3.C.n.STX|
00000D40: 20 58 31 00 4E 15 78 05  53 54 59 20 59 31 00 6C  | X1.N.x.STY Y1.l|
00000D50: 15 82 05 4A 53 52 20 4C  44 52 41 57 20 20 3B 20  |...JSR LDRAW  ; |
00000D60: 4C 49 4E 49 45 20 5A 49  45 48 45 4E 00 77 15 8C  |LINIE ZIEHEN.w..|
00000D70: 05 4C 44 58 20 58 34 00  82 15 96 05 4C 44 59 20  |.LDX X4.....LDY |
00000D80: 59 34 00 9E 15 A0 05 53  54 58 20 58 32 20 20 20  |Y4.....STX X2   |
00000D90: 20 20 20 3B 20 5A 55 52  55 45 4B 48 4F C3 00 A9  |   ; ZURUEKHO...|
00000DA0: 15 AA 05 53 54 59 20 59  32 00 D2 15 B4 05 4A 53  |...STY Y2.....JS|
00000DB0: 52 20 4C 44 52 41 57 20  20 3B 20 55 4E 44 20 5A  |R LDRAW  ; UND Z|
00000DC0: 57 45 49 54 45 20 4C 49  4E 49 45 20 5A 49 45 48  |WEITE LINIE ZIEH|
00000DD0: 45 4E 00 FE 15 BE 05 4A  4D 50 20 44 52 45 49 45  |EN.....JMP DREIE|
00000DE0: 43 4B 20 3B 20 57 45 49  54 45 52 45 20 44 52 45  |CK ; WEITERE DRE|
00000DF0: 49 45 43 4B 45 20 5A 45  49 43 48 4E 45 4E 00 04  |IECKE ZEICHNEN..|
00000E00: 16 C8 05 3A 00 31 16 D2  05 46 4C 41 44 52 45 49  |...:.1...FLADREI|
00000E10: 20 4C 44 58 20 58 31 20  3B 20 5A 57 45 49 20 4C  | LDX X1 ; ZWEI L|
00000E20: 49 4E 49 45 4E 20 49 4E  56 45 52 54 49 45 52 45  |INIEN INVERTIERE|
00000E30: 4E 00 55 16 DC 05 4C 44  59 20 59 31 20 20 20 20  |N.U...LDY Y1    |
00000E40: 20 20 3B 20 20 20 20 20  58 31 AD 59 31 20 AB 20  |  ;     X1.Y1 . |
00000E50: 58 33 AD 59 33 00 78 16  E6 05 53 54 58 20 4B B0  |X3.Y3.x...STX K.|
00000E60: 58 20 20 20 20 3B 20 55  4E 44 20 58 32 AD 59 32  |X    ; UND X2.Y2|
00000E70: 20 AB 20 58 33 AD 59 33  00 84 16 F0 05 53 54 59  | . X3.Y3.....STY|
00000E80: 20 4B B0 59 00 8F 16 FA  05 4C 44 58 20 58 33 00  | K.Y.....LDX X3.|
00000E90: 9A 16 04 06 4C 44 59 20  59 33 00 A7 16 0E 06 53  |....LDY Y3.....S|
00000EA0: 54 58 20 4B B0 58 32 00  B4 16 18 06 53 54 59 20  |TX K.X2.....STY |
00000EB0: 4B B0 59 32 00 C4 16 22  06 4A 53 52 20 45 58 B0  |K.Y2...".JSR EX.|
00000EC0: 4C 49 4E 45 00 CA 16 2C  06 3A 00 D5 16 36 06 4C  |LINE...,.:...6.L|
00000ED0: 44 58 20 58 32 00 E0 16  40 06 4C 44 59 20 59 32  |DX X2...@.LDY Y2|
00000EE0: 00 EC 16 4A 06 53 54 58  20 4B B0 58 00 F8 16 54  |...J.STX K.X...T|
00000EF0: 06 53 54 59 20 4B B0 59  00 03 17 5E 06 4C 44 58  |.STY K.Y...^.LDX|
00000F00: 20 58 33 00 0E 17 68 06  4C 44 59 20 59 33 00 1B  | X3...h.LDY Y3..|
00000F10: 17 72 06 53 54 58 20 4B  B0 58 32 00 28 17 7C 06  |.r.STX K.X2.(.|.|
00000F20: 53 54 59 20 4B B0 59 32  00 38 17 86 06 4A 53 52  |STY K.Y2.8...JSR|
00000F30: 20 45 58 B0 4C 49 4E 45  00 40 17 90 06 52 54 53  | EX.LINE.@...RTS|
00000F40: 00 46 17 9A 06 3A 00 75  17 A4 06 54 45 58 54 31  |.F...:.u...TEXT1|
00000F50: 20 42 59 54 20 31 2C 34  39 2C 33 3A C6 20 22 44  | BYT 1,49,3:. "D|
00000F60: 52 45 49 45 43 4B 20 50  55 4E 4B 54 20 41 22 3A  |REIECK PUNKT A":|
00000F70: 42 59 54 20 30 00 A4 17  AE 06 54 45 58 54 32 20  |BYT 0.....TEXT2 |
00000F80: 42 59 54 20 31 2C 34 39  2C 33 3A C6 20 22 44 52  |BYT 1,49,3:. "DR|
00000F90: 45 49 45 43 4B 20 50 55  4E 4B 54 20 42 22 3A 42  |EIECK PUNKT B":B|
00000FA0: 59 54 20 30 00 D3 17 B8  06 54 45 58 54 33 20 42  |YT 0.....TEXT3 B|
00000FB0: 59 54 20 31 2C 34 39 2C  33 3A C6 20 22 44 52 45  |YT 1,49,3:. "DRE|
00000FC0: 49 45 43 4B 20 50 55 4E  4B 54 20 43 22 3A 42 59  |IECK PUNKT C":BY|
00000FD0: 54 20 30 00 00 00                                 |T 0...          |

....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...B.PBRE
I    . $B05E ; GROESSE DES FARBPINSEL.Q.
L.PHOEH    . $B05F ; HOEHE.BREITE...V.FR
OTTAB  . $B700 ; TABELLE FUER FARBTAUSCH
.....MAKROMEM . $0800 ; MAKRO.E...XSPEI 
   . $0900 ; X.Y SPEICHER BEI.E...YSPEI 
   . $0A00 ; FILL ....K...:.....MENU.   
. $1000.3  ; SP.G IN'S MENUE (.BRK).E...
PLMUST     . $9000.30 ; PLOT ROUTINEN...
..PLOTPR     . $9000.33 ; FUER MUSTER,PR
I.ITAETEN...F.PLPINS     . $9000.48 ; PI
NSEL.M.>.P.PL.     . $9000.75 ; LINIEN.D
.Z.:.~....TAS   . $9000.78 ; TASTE EINLE
SEN UND "_"."^" TESTEN.....PLOT     . $C
000.9  ; PUNKT SETZEN.T....UNTEN . $C000
.36 ; SPRITES UNTEN LOESCHEN.....TEXTPR 
  . $C000.39 ; TEXT IN SPRITES AUSGEBEN.
2...EX.LINE . $C000.51 ; LINIE INVERTIER
EN.B....OUT  . $C000.120 ; "BITTE WARTEN
" AUSGEBEN... .COMSUB      . $A900.57 ; 
STATUSZEILE AUSGEBEN UND TASTATURABFRAGE
.S.*.LFLASH      . $A900.63 ; LINIE BLIN
KEN...4.LDRAW     . $A900.66 ; LINIE ZIE
HEN.1.>.BEFINIT     . $A900.87 ; ALLGEME
INE INITIALISIE.G.E.H.MAINSUB     . $700
0.18 ; UNDO V.BEREITEN ETC....K.R.:...\.
JSR MAINSUB  ; SOLLTE IMMER 1. BEF. EINE
R ERW. SEIN. SCHALTET GRAFIK EIN USW...F
.INC ZOOMMOEG ; VERHINDERT EINSCHALTEN D
ES ZOOM.FENSTERS...P.:...Z.DREIECK LDX #
.TEXT1.&...LDY #.TEXT1.A...JSR BEFINIT ;
 TEXTAUSGABE IN SPRITES UND INITIALISIE.
G.G...:.....LOOP1 JSR COMSUB ; COMSUB GI
BT STATUSZEILE AUS, FRAGT EDI.RTASTEN AB
 UND.....;PRUEFT AUF SP.G IN UNTERMENUES
 MIT F.TASTEN ODER E.F.M.S.O.*...LDA FIR
E  ; WURDE FEUERKNOPF INZWISCHEN GEDRUEC
KT.L...BEQ LOOP1 ; NEIN, DANN WEITER.R..
.:.O.J.DEC FIRE  ; KNOPFFLAG .0.{.T.LDX 
.IX.....LDY .IY ; AKTUELLE PFEIL.ITI....
..STX X1   ; MERKEN.....STY Y1.D...:....
.LDX #.TEXT2 ; NAECHTEN TEXT.....LDY #.T
EXT2 ; AUSGEBEN.....JSR TEXTPR...$.:.)..
.LOOP2 JSR COMSUB.5.8.LDX .IX.P.B.LDY .I
Y ; .ITI. MERKEN.[.L.STX X2.F.V.STY Y2..
.`.JSR LFLASH ; LINIE V. X1.Y1 ZU X2.Y2 
EINMAL BLINKEN...J.LDA FIRE...T.BEQ LOOP
2...~.:.L...DEC FIRE.....JSR LDRAW   ; L
INIE V. X1.Y1 ZU X2.Y2 ZIEHEN.....LDX #.
TEXT3.....LDY #.TEXT3.,...JSR TEXTPR.2..
.:.G.D.LOOP3 JSR COMSUB.S.N.LDX .IX.P.X.
LDY .IY   ; .ITI. MERKEN.{...STX X3.....
STY Y3.....JSR FLADREI ; SIEHE UNTEN....
.JSR FLADREI.A...LDA FIRE.O...BEQ LOOP3.
U...:...(.DEC FIRE...2.LDX X1...<.LDY Y1
      ; X1.Y1 MERKEN...F.STX X4.".P.STY 
Y4.-.Z.LDX X3.8.D.LDY Y3.C.N.STX X1.N.X.
STY Y1.L...JSR LDRAW  ; LINIE ZIEHEN.W..
.LDX X4.....LDY Y4... .STX X2      ; ZUR
UEKHOC.....STY Y2.R...JSR LDRAW  ; UND Z
WEITE LINIE ZIEHEN.....JMP DREIECK ; WEI
TERE DREIECKE ZEICHNEN...H.:.1.R.FLADREI
 LDX X1 ; ZWEI LINIEN INVERTIEREN.U...LD
Y Y1      ;     X1.Y1 . X3.Y3.X...STX K.
X    ; UND X2.Y2 . X3.Y3.....STY K.Y....
.LDX X3.....LDY Y3.....STX K.X2.....STY 
K.Y2.D.".JSR EX.LINE.J.,.:.U.6.LDX X2...
@.LDY Y2...J.STX K.X...T.STY K.Y...^.LDX
 X3...H.LDY Y3...R.STX K.X2.(.|.STY K.Y2
.8...JSR EX.LINE.@...RTS.F...:.U...TEXT1
 BYT 1,49,3:F "DREIECK PUNKT A":BYT 0...
..TEXT2 BYT 1,49,3:F "DREIECK PUNKT B":B
YT 0.S...TEXT3 BYT 1,49,3:F "DREIECK PUN
KT C":BYT 0...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL