Multiple names: WINDOW-BSP. 4SRC, LISTING 7
FILE INFORMATION
FILENAME(S):
• WINDOW-BSP. 4SRC<br>• LISTING 7
FILE TYPE(S): PRG
FILE SIZE: 9.3K
FIRST SEEN: 2025-10-20 14:31:28
APPEARS ON: 2 disk(s)
FILE HASH
2cfdfb06fb0cdf174ab51e3b81f19d3e78a594f589748fe2cb18414caeb2aa43
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90499 SEITE 2 | WINDOW-BSP. 4SRC | PRG | Treasure Chest - Klaus Der Suhler | 19 | 0 | DOWNLOAD FILE |
| SONDERHEFT 7 86 | LISTING 7 | PRG | C64er | 21 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E6 1F 64 00 2E 42 41 20 24 43 30 30 30 00 |....d..BA $C000.|
00000010: EC 1F 6E 00 3B 00 12 20 78 00 3B 20 2A 2A 2A 2A |..n.;.. x.; ****|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 38 20 82 00 |***********.8 ..|
00000040: 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |; * |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 2A 00 5E 20 8C 00 3B 20 2A 20 20 4D 41 53 43 48 |*.^ ..; * MASCH|
00000070: 49 4E 45 4E 53 50 52 41 43 48 45 2D 50 52 4F 47 |INENSPRACHE-PROG|
00000080: 52 41 4D 4D 20 20 2A 00 84 20 96 00 3B 20 2A 20 |RAMM *.. ..; * |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 AA 20 | *.. |
000000B0: A0 00 3B 20 2A 20 20 20 20 20 20 4D 49 54 20 57 |..; * MIT W|
000000C0: 49 4E 44 4F 57 2D 54 45 43 48 4E 49 4B 20 20 20 |INDOW-TECHNIK |
000000D0: 20 20 2A 00 D0 20 AA 00 3B 20 2A 20 20 20 20 20 | *.. ..; * |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 20 2A 00 F6 20 B4 00 3B 20 | *.. ..; |
00000100: 2A 20 20 20 20 20 20 20 20 20 20 20 20 43 20 36 |* C 6|
00000110: 34 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 |4 *.|
00000120: 1C 21 BE 00 3B 20 2A 20 20 20 20 20 20 20 20 20 |.!..; * |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 2A 00 42 21 C8 00 3B 20 2A 2A 2A 2A | *.B!..; ****|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 68 21 D2 00 |***********.h!..|
00000170: 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |; * |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 2A 00 8E 21 DC 00 3B 20 2A 20 28 43 29 20 31 39 |*..!..; * (C) 19|
000001A0: 38 36 20 42 59 20 46 4C 4F 52 49 41 4E 20 4D 55 |86 BY FLORIAN MU|
000001B0: 45 4C 4C 45 52 20 2A 00 B4 21 E6 00 3B 20 2A 20 |ELLER *..!..; * |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 DA 21 | *..!|
000001E0: F0 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..; ************|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000200: 2A 2A 2A 00 E0 21 FA 00 3B 00 0A 22 04 01 20 4A |***..!..;..".. J|
00000210: 4D 50 4D 41 49 4E 3B 20 55 4E 54 45 52 52 4F 55 |MPMAIN; UNTERROU|
00000220: 54 49 4E 45 4E 20 55 45 42 45 52 53 50 52 49 4E |TINEN UEBERSPRIN|
00000230: 47 45 4E 00 10 22 0E 01 3B 00 29 22 18 01 3B 20 |GEN.."..;.)"..; |
00000240: 53 59 4D 42 4F 4C 44 45 46 49 4E 49 54 49 4F 4E |SYMBOLDEFINITION|
00000250: 45 4E 00 2F 22 22 01 3B 00 5C 22 2C 01 2E 47 4C |EN./"".;.\",..GL|
00000260: 20 5A 45 49 4C 45 20 20 20 3D 20 24 44 36 20 3B | ZEILE = $D6 ;|
00000270: 20 41 4B 54 55 45 4C 4C 45 20 43 55 52 53 4F 52 | AKTUELLE CURSOR|
00000280: 5A 45 49 4C 45 00 8A 22 36 01 2E 47 4C 20 53 50 |ZEILE.."6..GL SP|
00000290: 41 4C 54 45 20 20 3D 20 24 44 33 20 3B 20 41 4B |ALTE = $D3 ; AK|
000002A0: 54 55 45 4C 4C 45 20 43 55 52 53 4F 52 53 50 41 |TUELLE CURSORSPA|
000002B0: 4C 54 45 00 AE 22 40 01 5A 45 49 4C 45 31 20 2E |LTE.."@.ZEILE1 .|
000002C0: 42 59 30 3B 20 5A 45 49 4C 45 20 49 4E 20 57 49 |BY0; ZEILE IN WI|
000002D0: 4E 44 4F 57 20 23 31 00 D3 22 4A 01 53 50 41 4C |NDOW #1.."J.SPAL|
000002E0: 54 45 31 20 2E 42 59 30 3B 20 53 50 41 4C 54 45 |TE1 .BY0; SPALTE|
000002F0: 20 49 2E 57 49 4E 44 4F 57 20 23 31 00 F7 22 54 | I.WINDOW #1.."T|
00000300: 01 5A 45 49 4C 45 32 20 2E 42 59 30 3B 20 5A 45 |.ZEILE2 .BY0; ZE|
00000310: 49 4C 45 20 49 4E 20 57 49 4E 44 4F 57 20 23 32 |ILE IN WINDOW #2|
00000320: 00 1C 23 5E 01 53 50 41 4C 54 45 32 20 2E 42 59 |..#^.SPALTE2 .BY|
00000330: 30 3B 20 53 50 41 4C 54 45 20 49 2E 57 49 4E 44 |0; SPALTE I.WIND|
00000340: 4F 57 20 23 32 00 22 23 68 01 3B 00 4F 23 72 01 |OW #2."#h.;.O#r.|
00000350: 2E 47 4C 20 53 45 54 43 55 52 20 20 3D 20 24 45 |.GL SETCUR = $E|
00000360: 35 30 43 20 20 20 20 20 20 3B 20 43 55 52 53 4F |50C ; CURSO|
00000370: 52 20 53 45 54 5A 45 4E 00 55 23 7C 01 3B 00 85 |R SETZEN.U#|.;..|
00000380: 23 86 01 2E 47 4C 20 42 41 53 4F 55 54 20 3D 20 |#...GL BASOUT = |
00000390: 24 46 46 44 32 20 20 20 20 20 20 20 3B 20 5A 45 |$FFD2 ; ZE|
000003A0: 49 43 48 45 4E 20 41 55 53 47 45 42 45 4E 00 B5 |ICHEN AUSGEBEN..|
000003B0: 23 90 01 2E 47 4C 20 47 45 54 20 20 20 20 3D 20 |#...GL GET = |
000003C0: 24 46 46 45 34 20 20 20 20 20 20 20 3B 20 5A 45 |$FFE4 ; ZE|
000003D0: 49 43 48 45 4E 20 45 49 4E 47 45 42 45 4E 00 BB |ICHEN EINGEBEN..|
000003E0: 23 9A 01 3B 00 E3 23 A4 01 54 45 4D 50 31 20 2E |#..;..#..TEMP1 .|
000003F0: 57 4F 30 3B 20 31 36 2D 42 49 54 2D 5A 57 49 53 |WO0; 16-BIT-ZWIS|
00000400: 43 48 45 4E 53 50 45 49 43 48 45 52 00 0B 24 AE |CHENSPEICHER..$.|
00000410: 01 45 52 4B 4C 46 4C 41 47 20 2E 42 59 30 3B 20 |.ERKLFLAG .BY0; |
00000420: 46 4C 41 47 20 46 55 45 52 20 45 52 4B 4C 41 45 |FLAG FUER ERKLAE|
00000430: 52 55 4E 47 00 11 24 B8 01 3B 00 46 24 C2 01 2E |RUNG..$..;.F$...|
00000440: 47 4C 20 43 4C 45 41 52 20 3D 20 24 39 33 20 20 |GL CLEAR = $93 |
00000450: 20 20 20 20 20 20 20 20 3B 20 41 53 43 49 49 2D | ; ASCII-|
00000460: 43 4F 44 45 20 46 55 45 52 20 43 4C 45 41 52 00 |CODE FUER CLEAR.|
00000470: 7A 24 CC 01 2E 47 4C 20 48 4F 4D 45 20 20 3D 20 |z$...GL HOME = |
00000480: 24 31 33 20 20 20 20 20 20 20 20 20 20 3B 20 41 |$13 ; A|
00000490: 53 43 49 49 2D 43 4F 44 45 20 46 55 45 52 20 48 |SCII-CODE FUER H|
000004A0: 4F 4D 45 00 B0 24 D6 01 2E 47 4C 20 43 52 20 20 |OME..$...GL CR |
000004B0: 20 20 3D 20 24 30 44 20 20 20 20 20 20 20 20 20 | = $0D |
000004C0: 20 3B 20 41 53 43 49 49 2D 43 4F 44 45 20 46 55 | ; ASCII-CODE FU|
000004D0: 45 52 20 52 45 54 55 52 4E 00 B6 24 E0 01 3B 00 |ER RETURN..$..;.|
000004E0: DF 24 EA 01 2E 47 4C 20 4C 49 4E 4B 53 31 20 20 |.$...GL LINKS1 |
000004F0: 3D 20 32 20 20 20 20 20 20 20 20 20 20 3B 20 50 |= 2 ; P|
00000500: 41 52 41 4D 45 54 45 52 00 02 25 F4 01 2E 47 4C |ARAMETER..%...GL|
00000510: 20 52 45 43 48 54 53 31 20 3D 20 39 2B 31 20 20 | RECHTS1 = 9+1 |
00000520: 20 20 20 20 20 20 3B 20 56 4F 4E 00 28 25 FE 01 | ; VON.(%..|
00000530: 2E 47 4C 20 4F 42 45 4E 31 20 20 20 3D 20 32 20 |.GL OBEN1 = 2 |
00000540: 20 20 20 20 20 20 20 20 20 3B 20 57 49 4E 44 4F | ; WINDO|
00000550: 57 00 4D 25 08 02 2E 47 4C 20 55 4E 54 45 4E 31 |W.M%...GL UNTEN1|
00000560: 20 20 3D 20 31 30 2B 31 20 20 20 20 20 20 20 3B | = 10+1 ;|
00000570: 20 4E 52 2E 20 31 00 53 25 12 02 3B 00 7C 25 1C | NR. 1.S%..;.|%.|
00000580: 02 2E 47 4C 20 4C 49 4E 4B 53 32 20 20 3D 20 31 |..GL LINKS2 = 1|
00000590: 32 20 20 20 20 20 20 20 20 20 3B 20 50 41 52 41 |2 ; PARA|
000005A0: 4D 45 54 45 52 00 9F 25 26 02 2E 47 4C 20 52 45 |METER..%&..GL RE|
000005B0: 43 48 54 53 32 20 3D 20 32 39 2B 31 20 20 20 20 |CHTS2 = 29+1 |
000005C0: 20 20 20 3B 20 56 4F 4E 00 C5 25 30 02 2E 47 4C | ; VON..%0..GL|
000005D0: 20 4F 42 45 4E 32 20 20 20 3D 20 36 20 20 20 20 | OBEN2 = 6 |
000005E0: 20 20 20 20 20 20 3B 20 57 49 4E 44 4F 57 00 EA | ; WINDOW..|
000005F0: 25 3A 02 2E 47 4C 20 55 4E 54 45 4E 32 20 20 3D |%:..GL UNTEN2 =|
00000600: 20 31 38 2B 31 20 20 20 20 20 20 20 3B 20 4E 52 | 18+1 ; NR|
00000610: 2E 20 32 00 F0 25 44 02 3B 00 22 26 4E 02 2E 47 |. 2..%D.;."&N..G|
00000620: 4C 20 4C 41 45 4E 47 45 31 20 3D 20 28 52 45 43 |L LAENGE1 = (REC|
00000630: 48 54 53 31 2D 4C 49 4E 4B 53 31 29 2A 28 55 4E |HTS1-LINKS1)*(UN|
00000640: 54 45 4E 31 2D 4F 42 45 4E 31 29 00 54 26 58 02 |TEN1-OBEN1).T&X.|
00000650: 2E 47 4C 20 4C 41 45 4E 47 45 32 20 3D 20 28 52 |.GL LAENGE2 = (R|
00000660: 45 43 48 54 53 32 2D 4C 49 4E 4B 53 32 29 2A 28 |ECHTS2-LINKS2)*(|
00000670: 55 4E 54 45 4E 32 2D 4F 42 45 4E 32 29 00 5A 26 |UNTEN2-OBEN2).Z&|
00000680: 62 02 3B 00 80 26 6C 02 4F 55 54 50 55 54 42 59 |b.;..&l.OUTPUTBY|
00000690: 54 45 20 2E 42 59 30 3B 20 5A 57 49 53 43 48 45 |TE .BY0; ZWISCHE|
000006A0: 4E 53 50 45 49 43 48 45 52 00 86 26 76 02 3B 00 |NSPEICHER..&v.;.|
000006B0: BB 26 80 02 2E 47 4C 20 54 45 58 54 50 54 52 20 |.&...GL TEXTPTR |
000006C0: 3D 20 24 32 32 20 20 20 20 20 20 20 20 3B 20 5A |= $22 ; Z|
000006D0: 45 49 47 45 52 20 41 55 46 20 54 45 58 54 53 54 |EIGER AUF TEXTST|
000006E0: 45 4C 4C 45 00 C1 26 8A 02 3B 00 D5 26 94 02 3B |ELLE..&..;..&..;|
000006F0: 20 50 52 4F 47 52 41 4D 4D 54 45 58 54 3A 00 E9 | PROGRAMMTEXT:..|
00000700: 26 9E 02 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |&..; ===========|
00000710: 3D 3D 00 EF 26 A8 02 3B 00 F5 26 B2 02 3B 00 FB |==..&..;..&..;..|
00000720: 26 BC 02 3B 00 1D 27 C6 02 3B 20 55 4E 54 45 52 |&..;..'..; UNTER|
00000730: 52 4F 55 54 49 4E 45 4E 20 46 55 45 52 20 57 49 |ROUTINEN FUER WI|
00000740: 4E 44 4F 57 53 3A 00 3F 27 D0 02 3B 20 3D 3D 3D |NDOWS:.?'..; ===|
00000750: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000760: 3D 3D 3D 3D 3D 3D 3D 3D 00 45 27 DA 02 3B 00 6D |========.E'..;.m|
00000770: 27 E4 02 4F 55 54 57 31 20 53 54 41 4F 55 54 50 |'..OUTW1 STAOUTP|
00000780: 55 54 42 59 54 45 3B 20 5A 45 49 43 48 45 4E 20 |UTBYTE; ZEICHEN |
00000790: 4D 45 52 4B 45 4E 00 82 27 EE 02 20 54 58 41 3B |MERKEN..'.. TXA;|
000007A0: 20 58 2D 52 45 47 49 53 54 45 52 00 93 27 F8 02 | X-REGISTER..'..|
000007B0: 20 50 48 41 3B 20 52 45 54 54 45 4E 00 A8 27 02 | PHA; RETTEN..'.|
000007C0: 03 20 54 59 41 3B 20 59 2D 52 45 47 49 53 54 45 |. TYA; Y-REGISTE|
000007D0: 52 00 B9 27 0C 03 20 50 48 41 3B 20 52 45 54 54 |R..'.. PHA; RETT|
000007E0: 45 4E 00 BF 27 16 03 3B 00 DC 27 20 03 20 4C 44 |EN..'..;..' . LD|
000007F0: 41 53 50 41 4C 54 45 3B 20 43 55 52 53 4F 52 53 |ASPALTE; CURSORS|
00000800: 50 41 4C 54 45 00 ED 27 2A 03 20 50 48 41 3B 20 |PALTE..'*. PHA; |
00000810: 52 45 54 54 45 4E 00 08 28 34 03 20 4C 44 41 5A |RETTEN..(4. LDAZ|
00000820: 45 49 4C 45 3B 20 43 55 52 53 4F 52 5A 45 49 4C |EILE; CURSORZEIL|
00000830: 45 00 19 28 3E 03 20 50 48 41 3B 20 52 45 54 54 |E..(>. PHA; RETT|
00000840: 45 4E 00 1F 28 48 03 3B 00 48 28 52 03 20 4C 44 |EN..(H.;.H(R. LD|
00000850: 41 4F 55 54 50 55 54 42 59 54 45 3B 20 5A 45 49 |AOUTPUTBYTE; ZEI|
00000860: 43 48 45 4E 20 57 49 45 44 45 52 20 48 4F 4C 45 |CHEN WIEDER HOLE|
00000870: 4E 00 5D 28 5C 03 20 43 4D 50 23 43 52 3B 20 52 |N.](\. CMP#CR; R|
00000880: 45 54 55 52 4E 3F 00 82 28 66 03 20 42 4E 45 54 |ETURN?..(f. BNET|
00000890: 45 53 54 48 4F 4D 45 31 3B 20 4E 45 49 4E 2C 20 |ESTHOME1; NEIN, |
000008A0: 44 41 4E 4E 20 57 45 49 54 45 52 00 9E 28 70 03 |DANN WEITER..(p.|
000008B0: 20 4C 44 41 5A 45 49 4C 45 31 3B 20 5A 45 49 4C | LDAZEILE1; ZEIL|
000008C0: 45 20 48 4F 4C 45 4E 00 BF 28 7A 03 20 43 4D 50 |E HOLEN..(z. CMP|
000008D0: 23 55 4E 54 45 4E 31 3B 20 55 4E 54 45 52 53 54 |#UNTEN1; UNTERST|
000008E0: 45 20 5A 45 49 4C 45 3F 00 E0 28 84 03 20 42 43 |E ZEILE?..(.. BC|
000008F0: 53 45 4E 44 43 52 31 3B 20 4A 41 2C 20 44 41 4E |SENDCR1; JA, DAN|
00000900: 4E 20 42 45 45 4E 44 45 4E 00 07 29 8E 03 20 49 |N BEENDEN..).. I|
00000910: 4E 43 5A 45 49 4C 45 31 3B 20 53 4F 4E 53 54 20 |NCZEILE1; SONST |
00000920: 5A 45 49 4C 45 20 4E 41 43 48 20 55 4E 54 45 4E |ZEILE NACH UNTEN|
00000930: 00 28 29 98 03 20 4C 44 41 23 4C 49 4E 4B 53 31 |.().. LDA#LINKS1|
00000940: 3B 20 4C 49 4E 4B 45 4E 20 52 41 4E 44 20 41 4C |; LINKEN RAND AL|
00000950: 53 00 47 29 A2 03 20 53 54 41 53 50 41 4C 54 45 |S.G).. STASPALTE|
00000960: 31 3B 20 53 50 41 4C 54 45 20 53 45 54 5A 45 4E |1; SPALTE SETZEN|
00000970: 00 4D 29 AC 03 3B 00 81 29 B6 03 45 4E 44 43 52 |.M)..;..)..ENDCR|
00000980: 31 20 4A 4D 50 45 4E 44 4F 55 54 57 3B 20 57 45 |1 JMPENDOUTW; WE|
00000990: 52 54 45 20 56 4F 4D 20 53 54 41 43 4B 20 48 4F |RTE VOM STACK HO|
000009A0: 4C 45 4E 20 26 20 45 4E 44 45 00 87 29 C0 03 3B |LEN & ENDE..)..;|
000009B0: 00 A5 29 CA 03 54 45 53 54 48 4F 4D 45 31 20 43 |..)..TESTHOME1 C|
000009C0: 4D 50 23 48 4F 4D 45 3B 20 48 4F 4D 45 3F 00 C9 |MP#HOME; HOME?..|
000009D0: 29 D4 03 20 42 4E 45 54 45 53 54 43 4C 52 31 3B |).. BNETESTCLR1;|
000009E0: 20 4E 45 49 4E 2C 20 44 41 4E 4E 20 57 45 49 54 | NEIN, DANN WEIT|
000009F0: 45 52 00 EA 29 DE 03 48 4F 4D 45 31 20 4C 44 41 |ER..)..HOME1 LDA|
00000A00: 23 4F 42 45 4E 31 3B 20 4F 42 45 52 45 4E 20 52 |#OBEN1; OBEREN R|
00000A10: 41 4E 44 00 0B 2A E8 03 20 53 54 41 5A 45 49 4C |AND..*.. STAZEIL|
00000A20: 45 31 3B 20 41 4C 53 20 5A 45 49 4C 45 20 53 45 |E1; ALS ZEILE SE|
00000A30: 54 5A 45 4E 00 28 2A F2 03 20 4C 44 41 23 4C 49 |TZEN.(*.. LDA#LI|
00000A40: 4E 4B 53 31 3B 20 4C 49 4E 4B 45 4E 20 52 41 4E |NKS1; LINKEN RAN|
00000A50: 44 00 4B 2A FC 03 20 53 54 41 53 50 41 4C 54 45 |D.K*.. STASPALTE|
00000A60: 31 3B 20 41 4C 53 20 53 50 41 4C 54 45 20 53 45 |1; ALS SPALTE SE|
00000A70: 54 5A 45 4E 00 61 2A 06 04 20 4A 4D 50 45 4E 44 |TZEN.a*.. JMPEND|
00000A80: 4F 55 54 57 3B 20 45 4E 44 45 00 67 2A 10 04 3B |OUTW; ENDE.g*..;|
00000A90: 00 86 2A 1A 04 54 45 53 54 43 4C 52 31 20 43 4D |..*..TESTCLR1 CM|
00000AA0: 50 23 43 4C 45 41 52 3B 20 43 4C 45 41 52 3F 00 |P#CLEAR; CLEAR?.|
00000AB0: B2 2A 24 04 20 42 4E 45 50 52 49 4E 54 31 3B 20 |.*$. BNEPRINT1; |
00000AC0: 4E 45 49 4E 2C 20 44 41 4E 4E 20 5A 45 49 43 48 |NEIN, DANN ZEICH|
00000AD0: 45 4E 20 41 55 53 47 45 42 45 4E 00 B8 2A 2E 04 |EN AUSGEBEN..*..|
00000AE0: 3B 00 CF 2A 38 04 3B 20 57 49 4E 44 4F 57 20 4C |;..*8.; WINDOW L|
00000AF0: 4F 45 53 43 48 45 4E 3A 00 D5 2A 42 04 3B 00 EE |OESCHEN:..*B.;..|
00000B00: 2A 4C 04 20 4C 44 41 23 31 34 36 3B 20 52 45 56 |*L. LDA#146; REV|
00000B10: 45 52 53 20 4F 46 46 00 07 2B 56 04 20 4A 53 52 |ERS OFF..+V. JSR|
00000B20: 42 41 53 4F 55 54 3B 20 41 55 53 47 45 42 45 4E |BASOUT; AUSGEBEN|
00000B30: 00 0D 2B 60 04 3B 00 24 2B 6A 04 20 4C 44 41 23 |..+`.;.$+j. LDA#|
00000B40: 4C 49 4E 4B 53 31 3B 20 4C 49 4E 4B 45 00 3B 2B |LINKS1; LINKE.;+|
00000B50: 74 04 20 53 54 41 53 50 41 4C 54 45 31 3B 20 4F |t. STASPALTE1; O|
00000B60: 42 45 52 45 00 54 2B 7E 04 20 4C 44 41 23 4F 42 |BERE.T+~. LDA#OB|
00000B70: 45 4E 31 3B 20 45 43 4B 45 20 41 4C 53 00 73 2B |EN1; ECKE ALS.s+|
00000B80: 88 04 20 53 54 41 5A 45 49 4C 45 31 3B 20 43 55 |.. STAZEILE1; CU|
00000B90: 52 53 4F 52 50 4F 53 49 54 49 4F 4E 00 79 2B 92 |RSORPOSITION.y+.|
00000BA0: 04 3B 00 A2 2B 9C 04 53 43 48 4C 45 49 46 45 31 |.;..+..SCHLEIFE1|
00000BB0: 20 4A 53 52 43 4C 45 41 52 31 43 3B 20 53 50 41 | JSRCLEAR1C; SPA|
00000BC0: 43 45 20 41 55 53 47 45 42 45 4E 00 BF 2B A6 04 |CE AUSGEBEN..+..|
00000BD0: 20 4C 44 41 53 50 41 4C 54 45 31 3B 53 50 41 4C | LDASPALTE1;SPAL|
00000BE0: 54 45 20 48 4F 4C 45 4E 00 EC 2B B0 04 20 43 4D |TE HOLEN..+.. CM|
00000BF0: 50 23 28 52 45 43 48 54 53 31 2D 31 29 3B 20 53 |P#(RECHTS1-1); S|
00000C00: 43 48 4F 4E 20 41 4D 20 52 45 43 48 54 45 4E 20 |CHON AM RECHTEN |
00000C10: 52 41 4E 44 3F 00 18 2C BA 04 20 42 43 43 43 4C |RAND?..,.. BCCCL|
00000C20: 45 41 52 31 41 3B 20 4E 45 49 4E 2C 20 44 41 4E |EAR1A; NEIN, DAN|
00000C30: 4E 20 53 50 41 4C 54 45 20 45 52 48 4F 45 48 45 |N SPALTE ERHOEHE|
00000C40: 4E 00 34 2C C4 04 20 4C 44 41 5A 45 49 4C 45 31 |N.4,.. LDAZEILE1|
00000C50: 3B 20 5A 45 49 4C 45 20 48 4F 4C 45 4E 00 57 2C |; ZEILE HOLEN.W,|
00000C60: CE 04 20 43 4D 50 23 28 55 4E 54 45 4E 31 2D 31 |.. CMP#(UNTEN1-1|
00000C70: 29 3B 20 55 4E 54 45 52 45 52 20 52 41 4E 44 3F |); UNTERER RAND?|
00000C80: 00 7B 2C D8 04 20 42 45 51 45 4E 44 43 4C 45 41 |.{,.. BEQENDCLEA|
00000C90: 52 31 3B 20 4A 41 2C 20 44 41 4E 4E 20 42 45 45 |R1; JA, DANN BEE|
00000CA0: 4E 44 45 4E 00 B0 2C E2 04 20 42 4E 45 43 4C 45 |NDEN..,.. BNECLE|
00000CB0: 41 52 31 42 3B 20 53 4F 4E 53 54 20 41 4E 20 42 |AR1B; SONST AN B|
00000CC0: 45 47 49 4E 4E 20 44 45 52 20 4E 41 45 43 48 53 |EGINN DER NAECHS|
00000CD0: 54 45 4E 20 5A 45 49 4C 45 00 B6 2C EC 04 3B 00 |TEN ZEILE..,..;.|
00000CE0: DE 2C F6 04 43 4C 45 41 52 31 41 20 49 4E 43 53 |.,..CLEAR1A INCS|
00000CF0: 50 41 4C 54 45 31 3B 20 53 50 41 4C 54 45 20 45 |PALTE1; SPALTE E|
00000D00: 52 48 4F 45 48 45 4E 00 FE 2C 00 05 20 4A 4D 50 |RHOEHEN..,.. JMP|
00000D10: 53 43 48 4C 45 49 46 45 31 3B 20 57 45 49 54 45 |SCHLEIFE1; WEITE|
00000D20: 52 4D 41 43 48 45 4E 00 04 2D 0A 05 3B 00 2A 2D |RMACHEN..-..;.*-|
00000D30: 14 05 43 4C 45 41 52 31 42 20 49 4E 43 5A 45 49 |..CLEAR1B INCZEI|
00000D40: 4C 45 31 3B 20 5A 45 49 4C 45 20 45 52 48 4F 45 |LE1; ZEILE ERHOE|
00000D50: 48 45 4E 00 47 2D 1E 05 20 4C 44 41 23 4C 49 4E |HEN.G-.. LDA#LIN|
00000D60: 4B 53 31 3B 20 4C 49 4E 4B 45 4E 20 52 41 4E 44 |KS1; LINKEN RAND|
00000D70: 00 6A 2D 28 05 20 53 54 41 53 50 41 4C 54 45 31 |.j-(. STASPALTE1|
00000D80: 3B 20 41 4C 53 20 53 50 41 4C 54 45 20 53 45 54 |; ALS SPALTE SET|
00000D90: 5A 45 4E 00 91 2D 32 05 20 4A 4D 50 53 43 48 4C |ZEN..-2. JMPSCHL|
00000DA0: 45 49 46 45 31 3B 20 55 4E 44 20 57 45 49 54 45 |EIFE1; UND WEITE|
00000DB0: 52 20 4C 4F 45 53 43 48 45 4E 00 97 2D 3C 05 3B |R LOESCHEN..-<.;|
00000DC0: 00 B4 2D 46 05 43 4C 45 41 52 31 43 20 4C 44 58 |..-F.CLEAR1C LDX|
00000DD0: 5A 45 49 4C 45 31 3B 20 5A 45 49 4C 45 00 D0 2D |ZEILE1; ZEILE..-|
00000DE0: 50 05 20 4C 44 59 53 50 41 4C 54 45 31 3B 20 55 |P. LDYSPALTE1; U|
00000DF0: 4E 44 20 53 50 41 4C 54 45 00 E7 2D 5A 05 20 4A |ND SPALTE..-Z. J|
00000E00: 53 52 53 45 54 43 55 52 3B 20 53 45 54 5A 45 4E |SRSETCUR; SETZEN|
00000E10: 00 01 2E 64 05 20 4C 44 41 23 22 20 22 3B 20 4C |...d. LDA#" "; L|
00000E20: 45 45 52 5A 45 49 43 48 45 4E 00 2C 2E 6E 05 20 |EERZEICHEN.,.n. |
00000E30: 4A 4D 50 42 41 53 4F 55 54 3B 20 41 4E 20 4C 4F |JMPBASOUT; AN LO|
00000E40: 45 53 43 48 50 4F 53 49 54 49 4F 4E 20 41 55 53 |ESCHPOSITION AUS|
00000E50: 47 45 42 45 4E 00 32 2E 78 05 3B 00 38 2E 82 05 |GEBEN.2.x.;.8...|
00000E60: 3B 00 72 2E 8C 05 45 4E 44 43 4C 45 41 52 31 20 |;.r...ENDCLEAR1 |
00000E70: 4A 4D 50 48 4F 4D 45 31 3B 20 43 55 52 53 4F 52 |JMPHOME1; CURSOR|
00000E80: 20 49 4E 20 4C 49 4E 4B 45 20 4F 42 45 52 45 20 | IN LINKE OBERE |
00000E90: 57 49 4E 44 4F 57 2D 45 43 4B 45 00 78 2E 96 05 |WINDOW-ECKE.x...|
00000EA0: 3B 00 7E 2E A0 05 3B 00 84 2E AA 05 3B 00 A0 2E |;.~...;.....;...|
00000EB0: B4 05 50 52 49 4E 54 31 20 4C 44 58 5A 45 49 4C |..PRINT1 LDXZEIL|
00000EC0: 45 31 3B 20 5A 45 49 4C 45 00 BC 2E BE 05 20 4C |E1; ZEILE..... L|
00000ED0: 44 59 53 50 41 4C 54 45 31 3B 20 55 4E 44 20 53 |DYSPALTE1; UND S|
00000EE0: 50 41 4C 54 45 00 DD 2E C8 05 20 4A 53 52 53 45 |PALTE..... JSRSE|
00000EF0: 54 43 55 52 3B 20 49 4D 20 57 49 4E 44 4F 57 20 |TCUR; IM WINDOW |
00000F00: 53 45 54 5A 45 4E 00 FF 2E D2 05 20 4C 44 41 4F |SETZEN..... LDAO|
00000F10: 55 54 50 55 54 42 59 54 45 3B 20 5A 45 49 43 48 |UTPUTBYTE; ZEICH|
00000F20: 45 4E 20 48 4F 4C 45 4E 00 32 2F DC 05 20 4A 53 |EN HOLEN.2/.. JS|
00000F30: 52 42 41 53 4F 55 54 3B 20 55 4E 44 20 41 4E 20 |RBASOUT; UND AN |
00000F40: 47 45 53 45 54 5A 54 45 52 20 50 4F 53 49 54 49 |GESETZTER POSITI|
00000F50: 4F 4E 20 41 55 53 47 45 42 45 4E 00 38 2F E6 05 |ON AUSGEBEN.8/..|
00000F60: 3B 00 59 2F F0 05 20 49 4E 43 53 50 41 4C 54 45 |;.Y/.. INCSPALTE|
00000F70: 31 3B 20 53 50 41 4C 54 45 20 45 52 48 4F 45 48 |1; SPALTE ERHOEH|
00000F80: 45 4E 00 77 2F FA 05 20 4C 44 41 53 50 41 4C 54 |EN.w/.. LDASPALT|
00000F90: 45 31 3B 20 53 50 41 4C 54 45 20 48 4F 4C 45 4E |E1; SPALTE HOLEN|
00000FA0: 00 A5 2F 04 06 20 43 4D 50 23 52 45 43 48 54 53 |../.. CMP#RECHTS|
00000FB0: 31 3B 20 55 45 42 45 52 20 52 45 43 48 54 45 20 |1; UEBER RECHTE |
00000FC0: 47 52 45 4E 5A 45 20 48 49 4E 41 55 53 3F 00 C9 |GRENZE HINAUS?..|
00000FD0: 2F 0E 06 20 42 43 43 45 4E 44 4F 55 54 57 3B 20 |/.. BCCENDOUTW; |
00000FE0: 4E 45 49 4E 2C 20 44 41 4E 4E 20 42 45 45 4E 44 |NEIN, DANN BEEND|
00000FF0: 45 4E 00 EC 2F 18 06 20 4C 44 41 23 4C 49 4E 4B |EN../.. LDA#LINK|
00001000: 53 31 3B 20 53 4F 4E 53 54 20 4C 49 4E 4B 45 4E |S1; SONST LINKEN|
00001010: 20 52 41 4E 44 00 0F 30 22 06 20 53 54 41 53 50 | RAND..0". STASP|
00001020: 41 4C 54 45 31 3B 20 41 4C 53 20 53 50 41 4C 54 |ALTE1; ALS SPALT|
00001030: 45 20 53 45 54 5A 45 4E 00 35 30 2C 06 20 49 4E |E SETZEN.50,. IN|
00001040: 43 5A 45 49 4C 45 31 3B 20 45 49 4E 45 20 5A 45 |CZEILE1; EINE ZE|
00001050: 49 4C 45 20 4E 41 43 48 20 55 4E 54 45 4E 00 51 |ILE NACH UNTEN.Q|
00001060: 30 36 06 20 4C 44 41 5A 45 49 4C 45 31 3B 20 5A |06. LDAZEILE1; Z|
00001070: 45 49 4C 45 20 48 4F 4C 45 4E 00 77 30 40 06 20 |EILE HOLEN.w0@. |
00001080: 43 4D 50 23 55 4E 54 45 4E 31 3B 20 53 43 48 4F |CMP#UNTEN1; SCHO|
00001090: 4E 20 55 4E 54 45 52 53 54 45 20 5A 45 49 4C 45 |N UNTERSTE ZEILE|
000010A0: 00 98 30 4A 06 20 42 43 43 45 4E 44 4F 55 54 57 |..0J. BCCENDOUTW|
000010B0: 3B 20 4E 45 49 4E 2C 20 44 41 4E 4E 20 45 4E 44 |; NEIN, DANN END|
000010C0: 45 00 BF 30 54 06 20 4C 44 41 23 4F 42 45 4E 31 |E..0T. LDA#OBEN1|
000010D0: 3B 20 53 4F 4E 53 54 20 43 55 52 53 4F 52 20 49 |; SONST CURSOR I|
000010E0: 4D 20 57 49 4E 44 4F 57 00 E0 30 5E 06 20 53 54 |M WINDOW..0^. ST|
000010F0: 41 5A 45 49 4C 45 31 3B 20 49 4E 20 4F 42 45 52 |AZEILE1; IN OBER|
00001100: 53 54 45 20 5A 45 49 4C 45 00 E6 30 68 06 3B 00 |STE ZEILE..0h.;.|
00001110: FD 30 72 06 45 4E 44 4F 55 54 57 20 50 4C 41 3B |.0r.ENDOUTW PLA;|
00001120: 20 5A 45 49 4C 45 00 12 31 7C 06 20 53 54 41 5A | ZEILE..1|. STAZ|
00001130: 45 49 4C 45 3B 20 48 4F 4C 45 4E 00 23 31 86 06 |EILE; HOLEN.#1..|
00001140: 20 50 4C 41 3B 20 53 50 41 4C 54 45 00 39 31 90 | PLA; SPALTE.91.|
00001150: 06 20 53 54 41 53 50 41 4C 54 45 3B 20 48 4F 4C |. STASPALTE; HOL|
00001160: 45 4E 00 3F 31 9A 06 3B 00 54 31 A4 06 20 50 4C |EN.?1..;.T1.. PL|
00001170: 41 3B 20 59 2D 52 45 47 49 53 54 45 52 00 64 31 |A; Y-REGISTER.d1|
00001180: AE 06 20 54 41 59 3B 20 48 4F 4C 45 4E 00 79 31 |.. TAY; HOLEN.y1|
00001190: B8 06 20 50 4C 41 3B 20 58 2D 52 45 47 49 53 54 |.. PLA; X-REGIST|
000011A0: 45 52 00 89 31 C2 06 20 54 41 58 3B 20 48 4F 4C |ER..1.. TAX; HOL|
000011B0: 45 4E 00 AD 31 CC 06 20 4C 44 41 4F 55 54 50 55 |EN..1.. LDAOUTPU|
000011C0: 54 42 59 54 45 3B 20 5A 45 49 43 48 45 4E 20 49 |TBYTE; ZEICHEN I|
000011D0: 4E 20 41 4B 4B 55 00 C7 31 D6 06 20 52 54 53 3B |N AKKU..1.. RTS;|
000011E0: 20 52 4F 55 54 49 4E 45 20 42 45 45 4E 44 45 4E | ROUTINE BEENDEN|
000011F0: 00 CD 31 E0 06 3B 00 D3 31 EA 06 3B 00 F2 31 F4 |..1..;..1..;..1.|
00001200: 06 3B 20 44 49 45 20 47 4C 45 49 43 48 45 20 52 |.; DIE GLEICHE R|
00001210: 4F 55 54 49 4E 45 20 46 55 45 52 00 03 32 FE 06 |OUTINE FUER..2..|
00001220: 3B 20 57 49 4E 44 4F 57 20 23 32 3A 00 09 32 08 |; WINDOW #2:..2.|
00001230: 07 3B 00 21 32 12 07 4F 55 54 57 32 20 53 54 41 |.;.!2..OUTW2 STA|
00001240: 4F 55 54 50 55 54 42 59 54 45 00 2A 32 1C 07 20 |OUTPUTBYTE.*2.. |
00001250: 54 58 41 00 33 32 26 07 20 50 48 41 00 3C 32 30 |TXA.32&. PHA.<20|
00001260: 07 20 54 59 41 00 45 32 3A 07 20 50 48 41 00 4B |. TYA.E2:. PHA.K|
00001270: 32 44 07 3B 00 5A 32 4E 07 20 4C 44 41 53 50 41 |2D.;.Z2N. LDASPA|
00001280: 4C 54 45 00 63 32 58 07 20 50 48 41 00 71 32 62 |LTE.c2X. PHA.q2b|
00001290: 07 20 4C 44 41 5A 45 49 4C 45 00 7A 32 6C 07 20 |. LDAZEILE.z2l. |
000012A0: 50 48 41 00 80 32 76 07 3B 00 93 32 80 07 20 4C |PHA..2v.;..2.. L|
000012B0: 44 41 4F 55 54 50 55 54 42 59 54 45 00 9F 32 8A |DAOUTPUTBYTE..2.|
000012C0: 07 20 43 4D 50 23 43 52 00 B1 32 94 07 20 42 4E |. CMP#CR..2.. BN|
000012D0: 45 54 45 53 54 48 4F 4D 45 32 00 C0 32 9E 07 20 |ETESTHOME2..2.. |
000012E0: 4C 44 41 5A 45 49 4C 45 32 00 D0 32 A8 07 20 43 |LDAZEILE2..2.. C|
000012F0: 4D 50 23 55 4E 54 45 4E 32 00 DF 32 B2 07 20 42 |MP#UNTEN2..2.. B|
00001300: 43 53 45 4E 44 43 52 32 00 EE 32 BC 07 20 49 4E |CSENDCR2..2.. IN|
00001310: 43 5A 45 49 4C 45 32 00 FE 32 C6 07 20 4C 44 41 |CZEILE2..2.. LDA|
00001320: 23 4C 49 4E 4B 53 32 00 0E 33 D0 07 20 53 54 41 |#LINKS2..3.. STA|
00001330: 53 50 41 4C 54 45 32 00 14 33 DA 07 3B 00 2A 33 |SPALTE2..3..;.*3|
00001340: E4 07 45 4E 44 43 52 32 20 4A 4D 50 45 4E 44 4F |..ENDCR2 JMPENDO|
00001350: 55 54 57 00 30 33 EE 07 3B 00 47 33 F8 07 54 45 |UTW.03..;.G3..TE|
00001360: 53 54 48 4F 4D 45 32 20 43 4D 50 23 48 4F 4D 45 |STHOME2 CMP#HOME|
00001370: 00 58 33 02 08 20 42 4E 45 54 45 53 54 43 4C 52 |.X3.. BNETESTCLR|
00001380: 32 00 6C 33 0C 08 48 4F 4D 45 32 20 4C 44 41 23 |2.l3..HOME2 LDA#|
00001390: 4F 42 45 4E 32 00 7B 33 16 08 20 53 54 41 5A 45 |OBEN2.{3.. STAZE|
000013A0: 49 4C 45 32 00 8B 33 20 08 20 4C 44 41 23 4C 49 |ILE2..3 . LDA#LI|
000013B0: 4E 4B 53 32 00 9B 33 2A 08 20 53 54 41 53 50 41 |NKS2..3*. STASPA|
000013C0: 4C 54 45 32 00 AB 33 34 08 20 4A 4D 50 45 4E 44 |LTE2..34. JMPEND|
000013D0: 4F 55 54 57 00 B1 33 3E 08 3B 00 C8 33 48 08 54 |OUTW..3>.;..3H.T|
000013E0: 45 53 54 43 4C 52 32 20 43 4D 50 23 43 4C 45 41 |ESTCLR2 CMP#CLEA|
000013F0: 52 00 D7 33 52 08 20 42 4E 45 50 52 49 4E 54 32 |R..3R. BNEPRINT2|
00001400: 00 DD 33 5C 08 3B 00 F4 33 66 08 3B 20 57 49 4E |..3\.;..3f.; WIN|
00001410: 44 4F 57 20 4C 4F 45 53 43 48 45 4E 3A 00 FA 33 |DOW LOESCHEN:..3|
00001420: 70 08 3B 00 13 34 7A 08 20 4C 44 41 23 31 34 36 |p.;..4z. LDA#146|
00001430: 3B 20 52 45 56 45 52 53 20 4F 46 46 00 2C 34 84 |; REVERS OFF.,4.|
00001440: 08 20 4A 53 52 42 41 53 4F 55 54 3B 20 41 55 53 |. JSRBASOUT; AUS|
00001450: 47 45 42 45 4E 00 32 34 8E 08 3B 00 42 34 98 08 |GEBEN.24..;.B4..|
00001460: 20 4C 44 41 23 4C 49 4E 4B 53 32 00 52 34 A2 08 | LDA#LINKS2.R4..|
00001470: 20 53 54 41 53 50 41 4C 54 45 32 00 61 34 AC 08 | STASPALTE2.a4..|
00001480: 20 4C 44 41 23 4F 42 45 4E 32 00 70 34 B6 08 20 | LDA#OBEN2.p4.. |
00001490: 53 54 41 5A 45 49 4C 45 32 00 76 34 C0 08 3B 00 |STAZEILE2.v4..;.|
000014A0: 8F 34 CA 08 53 43 48 4C 45 49 46 45 32 20 4A 53 |.4..SCHLEIFE2 JS|
000014B0: 52 43 4C 45 41 52 32 43 00 9F 34 D4 08 20 4C 44 |RCLEAR2C..4.. LD|
000014C0: 41 53 50 41 4C 54 45 32 00 B4 34 DE 08 20 43 4D |ASPALTE2..4.. CM|
000014D0: 50 23 28 52 45 43 48 54 53 32 2D 31 29 00 C4 34 |P#(RECHTS2-1)..4|
000014E0: E8 08 20 42 43 43 43 4C 45 41 52 32 41 00 D3 34 |.. BCCCLEAR2A..4|
000014F0: F2 08 20 4C 44 41 5A 45 49 4C 45 32 00 E7 34 FC |.. LDAZEILE2..4.|
00001500: 08 20 43 4D 50 23 28 55 4E 54 45 4E 32 2D 31 29 |. CMP#(UNTEN2-1)|
00001510: 00 F9 34 06 09 20 42 45 51 45 4E 44 43 4C 45 41 |..4.. BEQENDCLEA|
00001520: 52 32 00 09 35 10 09 20 42 4E 45 43 4C 45 41 52 |R2..5.. BNECLEAR|
00001530: 32 42 00 0F 35 1A 09 3B 00 26 35 24 09 43 4C 45 |2B..5..;.&5$.CLE|
00001540: 41 52 32 41 20 49 4E 43 53 50 41 4C 54 45 32 00 |AR2A INCSPALTE2.|
00001550: 38 35 2E 09 20 4A 4D 50 53 43 48 4C 45 49 46 45 |85.. JMPSCHLEIFE|
00001560: 32 00 3E 35 38 09 3B 00 54 35 42 09 43 4C 45 41 |2.>58.;.T5B.CLEA|
00001570: 52 32 42 20 49 4E 43 5A 45 49 4C 45 32 00 64 35 |R2B INCZEILE2.d5|
00001580: 4C 09 20 4C 44 41 23 4C 49 4E 4B 53 32 00 74 35 |L. LDA#LINKS2.t5|
00001590: 56 09 20 53 54 41 53 50 41 4C 54 45 32 00 86 35 |V. STASPALTE2..5|
000015A0: 60 09 20 4A 4D 50 53 43 48 4C 45 49 46 45 32 00 |`. JMPSCHLEIFE2.|
000015B0: 8C 35 6A 09 3B 00 A2 35 74 09 43 4C 45 41 52 32 |.5j.;..5t.CLEAR2|
000015C0: 43 20 4C 44 58 5A 45 49 4C 45 32 00 B2 35 7E 09 |C LDXZEILE2..5~.|
000015D0: 20 4C 44 59 53 50 41 4C 54 45 32 00 C1 35 88 09 | LDYSPALTE2..5..|
000015E0: 20 4A 53 52 53 45 54 43 55 52 00 CE 35 92 09 20 | JSRSETCUR..5.. |
000015F0: 4C 44 41 23 22 20 22 00 DD 35 9C 09 20 4A 4D 50 |LDA#" "..5.. JMP|
00001600: 42 41 53 4F 55 54 00 E3 35 A6 09 3B 00 E9 35 B0 |BASOUT..5..;..5.|
00001610: 09 3B 00 00 36 BA 09 45 4E 44 43 4C 45 41 52 32 |.;..6..ENDCLEAR2|
00001620: 20 4A 4D 50 48 4F 4D 45 32 00 06 36 C4 09 3B 00 | JMPHOME2..6..;.|
00001630: 0C 36 CE 09 3B 00 12 36 D8 09 3B 00 27 36 E2 09 |.6..;..6..;.'6..|
00001640: 50 52 49 4E 54 32 20 4C 44 58 5A 45 49 4C 45 32 |PRINT2 LDXZEILE2|
00001650: 00 37 36 EC 09 20 4C 44 59 53 50 41 4C 54 45 32 |.76.. LDYSPALTE2|
00001660: 00 46 36 F6 09 20 4A 53 52 53 45 54 43 55 52 00 |.F6.. JSRSETCUR.|
00001670: 59 36 00 0A 20 4C 44 41 4F 55 54 50 55 54 42 59 |Y6.. LDAOUTPUTBY|
00001680: 54 45 00 68 36 0A 0A 20 4A 53 52 42 41 53 4F 55 |TE.h6.. JSRBASOU|
00001690: 54 00 6E 36 14 0A 3B 00 7E 36 1E 0A 20 49 4E 43 |T.n6..;.~6.. INC|
000016A0: 53 50 41 4C 54 45 32 00 8E 36 28 0A 20 4C 44 41 |SPALTE2..6(. LDA|
000016B0: 53 50 41 4C 54 45 32 00 9F 36 32 0A 20 43 4D 50 |SPALTE2..62. CMP|
000016C0: 23 52 45 43 48 54 53 32 00 B0 36 3C 0A 20 42 43 |#RECHTS2..6<. BC|
000016D0: 43 45 4E 44 4F 55 54 57 32 00 C0 36 46 0A 20 4C |CENDOUTW2..6F. L|
000016E0: 44 41 23 4C 49 4E 4B 53 32 00 D0 36 50 0A 20 53 |DA#LINKS2..6P. S|
000016F0: 54 41 53 50 41 4C 54 45 32 00 DF 36 5A 0A 20 49 |TASPALTE2..6Z. I|
00001700: 4E 43 5A 45 49 4C 45 32 00 EE 36 64 0A 20 4C 44 |NCZEILE2..6d. LD|
00001710: 41 5A 45 49 4C 45 32 00 FE 36 6E 0A 20 43 4D 50 |AZEILE2..6n. CMP|
00001720: 23 55 4E 54 45 4E 32 00 0F 37 78 0A 20 42 43 43 |#UNTEN2..7x. BCC|
00001730: 45 4E 44 4F 55 54 57 32 00 1E 37 82 0A 20 4C 44 |ENDOUTW2..7.. LD|
00001740: 41 23 4F 42 45 4E 32 00 2D 37 8C 0A 20 53 54 41 |A#OBEN2.-7.. STA|
00001750: 5A 45 49 4C 45 32 00 33 37 96 0A 3B 00 61 37 A0 |ZEILE2.37..;.a7.|
00001760: 0A 45 4E 44 4F 55 54 57 32 20 4A 4D 50 45 4E 44 |.ENDOUTW2 JMPEND|
00001770: 4F 55 54 57 3B 20 57 45 49 54 45 52 20 57 49 45 |OUTW; WEITER WIE|
00001780: 20 42 45 49 20 4F 55 54 57 31 00 67 37 AA 0A 3B | BEI OUTW1.g7..;|
00001790: 00 6D 37 B4 0A 3B 00 73 37 BE 0A 3B 00 79 37 C8 |.m7..;.s7..;.y7.|
000017A0: 0A 3B 00 99 37 D2 0A 3B 20 52 4F 55 54 49 4E 45 |.;..7..; ROUTINE|
000017B0: 20 5A 55 4D 20 44 52 55 43 4B 45 4E 20 45 49 4E | ZUM DRUCKEN EIN|
000017C0: 45 53 00 AE 37 DC 0A 3B 20 47 41 4E 5A 45 4E 20 |ES..7..; GANZEN |
000017D0: 57 49 4E 44 4F 57 53 00 B4 37 E6 0A 3B 00 D9 37 |WINDOWS..7..;..7|
000017E0: F0 0A 3B 20 41 44 52 45 53 53 45 20 57 49 52 44 |..; ADRESSE WIRD|
000017F0: 20 49 4E 20 41 2F 59 20 55 45 42 45 52 47 45 42 | IN A/Y UEBERGEB|
00001800: 45 4E 00 DF 37 FA 0A 3B 00 05 38 04 0B 50 52 57 |EN..7..;..8..PRW|
00001810: 49 4E 31 20 53 54 41 54 45 58 54 50 54 52 3B 20 |IN1 STATEXTPTR; |
00001820: 4C 4F 2D 42 59 54 45 20 53 45 54 5A 45 4E 00 27 |LO-BYTE SETZEN.'|
00001830: 38 0E 0B 20 53 54 59 54 45 58 54 50 54 52 2B 31 |8.. STYTEXTPTR+1|
00001840: 3B 20 48 49 2D 42 59 54 45 20 53 45 54 5A 45 4E |; HI-BYTE SETZEN|
00001850: 00 2D 38 18 0B 3B 00 54 38 22 0B 20 4C 44 41 23 |.-8..;.T8". LDA#|
00001860: 48 4F 4D 45 3B 20 4C 49 4E 4B 45 20 4F 42 45 52 |HOME; LINKE OBER|
00001870: 45 20 57 49 4E 44 4F 57 2D 45 43 4B 45 00 6E 38 |E WINDOW-ECKE.n8|
00001880: 2C 0B 20 4A 53 52 4F 55 54 57 31 3B 20 41 4E 53 |,. JSROUTW1; ANS|
00001890: 50 52 49 4E 47 45 4E 00 94 38 36 0B 20 43 4C 43 |PRINGEN..86. CLC|
000018A0: 3B 20 43 41 52 52 59 20 56 4F 52 20 41 44 44 49 |; CARRY VOR ADDI|
000018B0: 54 49 4F 4E 20 4C 4F 45 53 43 48 45 4E 00 B2 38 |TION LOESCHEN..8|
000018C0: 40 0B 20 4C 44 41 54 45 58 54 50 54 52 3B 20 5A |@. LDATEXTPTR; Z|
000018D0: 55 52 20 41 4E 46 41 4E 47 53 2D 00 D3 38 4A 0B |UR ANFANGS-..8J.|
000018E0: 20 41 44 43 23 3C 28 4C 41 45 4E 47 45 31 29 3B | ADC#<(LAENGE1);|
000018F0: 20 41 44 52 45 53 53 45 20 44 45 53 00 E9 38 54 | ADRESSE DES..8T|
00001900: 0B 20 53 54 41 54 45 4D 50 31 3B 20 54 45 58 54 |. STATEMP1; TEXT|
00001910: 45 53 00 0C 39 5E 0B 20 4C 44 41 54 45 58 54 50 |ES..9^. LDATEXTP|
00001920: 54 52 2B 31 3B 20 57 49 52 44 20 4C 41 45 4E 47 |TR+1; WIRD LAENG|
00001930: 45 20 44 45 53 00 31 39 68 0B 20 41 44 43 23 3E |E DES.19h. ADC#>|
00001940: 28 4C 41 45 4E 47 45 31 29 3B 20 54 45 58 54 45 |(LAENGE1); TEXTE|
00001950: 53 20 41 44 44 49 45 52 54 2E 00 60 39 72 0B 20 |S ADDIERT..`9r. |
00001960: 53 54 41 54 45 4D 50 31 2B 31 3B 20 45 52 47 45 |STATEMP1+1; ERGE|
00001970: 42 4E 49 53 20 49 4E 20 28 54 45 4D 50 31 29 2F |BNIS IN (TEMP1)/|
00001980: 28 54 45 4D 50 31 2B 31 29 00 66 39 7C 0B 3B 00 |(TEMP1+1).f9|.;.|
00001990: 7D 39 86 0B 20 4C 44 59 23 30 3B 20 4F 46 46 53 |}9.. LDY#0; OFFS|
000019A0: 45 54 20 3D 20 30 00 B2 39 90 0B 53 43 48 4C 45 |ET = 0..9..SCHLE|
000019B0: 49 46 45 33 20 4C 44 41 28 54 45 58 54 50 54 52 |IFE3 LDA(TEXTPTR|
000019C0: 29 2C 59 3B 20 5A 45 49 43 48 45 4E 20 41 55 53 |),Y; ZEICHEN AUS|
000019D0: 20 54 45 58 54 20 48 4F 4C 45 4E 00 CE 39 9A 0B | TEXT HOLEN..9..|
000019E0: 20 4A 53 52 4F 55 54 57 31 3B 20 55 4E 44 20 41 | JSROUTW1; UND A|
000019F0: 55 53 47 45 42 45 4E 00 EA 39 A4 0B 20 49 4E 43 |USGEBEN..9.. INC|
00001A00: 54 45 58 54 50 54 52 3B 20 5A 45 49 47 45 52 20 |TEXTPTR; ZEIGER |
00001A10: 41 55 46 00 06 3A AE 0B 20 42 4E 45 50 52 57 49 |AUF..:.. BNEPRWI|
00001A20: 4E 31 41 3B 20 54 45 58 54 53 54 45 4C 4C 45 00 |N1A; TEXTSTELLE.|
00001A30: 27 3A B8 0B 20 49 4E 43 54 45 58 54 50 54 52 2B |':.. INCTEXTPTR+|
00001A40: 31 3B 20 55 4D 20 31 20 45 52 48 4F 45 48 45 4E |1; UM 1 ERHOEHEN|
00001A50: 00 2D 3A C2 0B 3B 00 4E 3A CC 0B 50 52 57 49 4E |.-:..;.N:..PRWIN|
00001A60: 31 41 20 4C 44 41 54 45 58 54 50 54 52 3B 20 50 |1A LDATEXTPTR; P|
00001A70: 52 55 45 46 45 4E 2C 00 66 3A D6 0B 20 43 4D 50 |RUEFEN,.f:.. CMP|
00001A80: 54 45 4D 50 31 3B 20 4F 42 20 53 43 48 4F 4E 00 |TEMP1; OB SCHON.|
00001A90: 83 3A E0 0B 20 4C 44 41 54 45 58 54 50 54 52 2B |.:.. LDATEXTPTR+|
00001AA0: 31 3B 20 44 45 52 20 47 41 4E 5A 45 00 AA 3A EA |1; DER GANZE..:.|
00001AB0: 0B 20 53 42 43 54 45 4D 50 31 2B 31 3B 20 54 45 |. SBCTEMP1+1; TE|
00001AC0: 58 54 20 41 55 53 47 45 47 45 42 45 4E 20 57 55 |XT AUSGEGEBEN WU|
00001AD0: 52 44 45 00 D0 3A F4 0B 20 42 43 43 53 43 48 4C |RDE..:.. BCCSCHL|
00001AE0: 45 49 46 45 33 3B 20 4E 45 49 4E 20 28 43 3D 30 |EIFE3; NEIN (C=0|
00001AF0: 29 3A 20 57 45 49 54 45 52 00 D6 3A FE 0B 3B 00 |): WEITER..:..;.|
00001B00: EB 3A 08 0C 20 52 54 53 3B 20 53 4F 4E 53 54 20 |.:.. RTS; SONST |
00001B10: 45 4E 44 45 00 F1 3A 12 0C 3B 00 F7 3A 1C 0C 3B |ENDE..:..;..:..;|
00001B20: 00 1A 3B 26 0C 3B 20 45 52 4B 4C 41 45 52 55 4E |..;&.; ERKLAERUN|
00001B30: 47 53 54 45 58 54 20 49 4E 20 57 49 4E 44 4F 57 |GSTEXT IN WINDOW|
00001B40: 20 23 31 00 2A 3B 30 0C 3B 20 53 43 48 52 45 49 | #1.*;0.; SCHREI|
00001B50: 42 45 4E 00 30 3B 3A 0C 3B 00 36 3B 44 0C 3B 00 |BEN.0;:.;.6;D.;.|
00001B60: 55 3B 4E 0C 45 52 4B 4C 41 45 52 47 20 4C 44 41 |U;N.ERKLAERG LDA|
00001B70: 23 31 38 3B 20 52 45 56 45 52 53 20 4F 4E 00 6E |#18; REVERS ON.n|
00001B80: 3B 58 0C 20 4A 53 52 42 41 53 4F 55 54 3B 20 41 |;X. JSRBASOUT; A|
00001B90: 55 53 47 45 42 45 4E 00 8F 3B 62 0C 20 4C 44 41 |USGEBEN..;b. LDA|
00001BA0: 23 3C 28 45 52 4B 4C 54 58 29 3B 20 45 52 4B 4C |#<(ERKLTX); ERKL|
00001BB0: 41 45 52 55 4E 47 53 2D 00 A8 3B 6C 0C 20 4C 44 |AERUNGS-..;l. LD|
00001BC0: 59 23 3E 28 45 52 4B 4C 54 58 29 3B 20 54 45 58 |Y#>(ERKLTX); TEX|
00001BD0: 54 00 C1 3B 76 0C 20 4A 4D 50 50 52 57 49 4E 31 |T..;v. JMPPRWIN1|
00001BE0: 3B 20 41 55 53 47 45 42 45 4E 00 C7 3B 80 0C 3B |; AUSGEBEN..;..;|
00001BF0: 00 E0 3B 8A 0C 45 52 4B 4C 54 58 20 2E 54 58 22 |..;..ERKLTX .TX"|
00001C00: 20 20 20 20 20 20 20 20 22 00 F3 3B 94 0C 20 2E | "..;.. .|
00001C10: 54 58 22 20 44 49 45 53 20 20 20 22 00 06 3C 9E |TX" DIES "..<.|
00001C20: 0C 20 2E 54 58 22 20 20 20 20 20 20 20 20 22 00 |. .TX" ".|
00001C30: 19 3C A8 0C 20 2E 54 58 22 20 49 53 54 20 20 20 |.<.. .TX" IST |
00001C40: 20 22 00 2C 3C B2 0C 20 2E 54 58 22 20 20 20 20 | ".,<.. .TX" |
00001C50: 20 20 20 20 22 00 3F 3C BC 0C 20 2E 54 58 22 20 | ".?<.. .TX" |
00001C60: 57 49 4E 44 4F 57 20 22 00 52 3C C6 0C 20 2E 54 |WINDOW ".R<.. .T|
00001C70: 58 22 20 20 20 20 20 20 20 20 22 00 65 3C D0 0C |X" ".e<..|
00001C80: 20 2E 54 58 22 20 4E 52 2E 20 31 20 20 22 00 78 | .TX" NR. 1 ".x|
00001C90: 3C DA 0C 20 2E 54 58 22 20 20 20 20 20 20 20 20 |<.. .TX" |
00001CA0: 22 00 7E 3C E4 0C 3B 00 84 3C EE 0C 3B 00 A4 3C |".~<..;..<..;..<|
00001CB0: F8 0C 3B 20 52 4F 55 54 49 4E 45 20 5A 55 4D 20 |..; ROUTINE ZUM |
00001CC0: 44 52 55 43 4B 45 4E 20 45 49 4E 45 53 00 C8 3C |DRUCKEN EINES..<|
00001CD0: 02 0D 3B 20 47 41 4E 5A 45 4E 20 57 49 4E 44 4F |..; GANZEN WINDO|
00001CE0: 57 53 20 46 55 45 52 20 57 49 4E 44 4F 57 20 23 |WS FUER WINDOW #|
00001CF0: 32 00 CE 3C 0C 0D 3B 00 E4 3C 16 0D 50 52 57 49 |2..<..;..<..PRWI|
00001D00: 4E 32 20 53 54 41 54 45 58 54 50 54 52 00 F6 3C |N2 STATEXTPTR..<|
00001D10: 20 0D 20 53 54 59 54 45 58 54 50 54 52 2B 31 00 | . STYTEXTPTR+1.|
00001D20: FC 3C 2A 0D 3B 00 0A 3D 34 0D 20 4C 44 41 23 48 |.<*.;..=4. LDA#H|
00001D30: 4F 4D 45 00 18 3D 3E 0D 20 4A 53 52 4F 55 54 57 |OME..=>. JSROUTW|
00001D40: 32 00 21 3D 48 0D 20 43 4C 43 00 31 3D 52 0D 20 |2.!=H. CLC.1=R. |
00001D50: 4C 44 41 54 45 58 54 50 54 52 00 45 3D 5C 0D 20 |LDATEXTPTR.E=\. |
00001D60: 41 44 43 23 3C 28 4C 41 45 4E 47 45 32 29 00 53 |ADC#<(LAENGE2).S|
00001D70: 3D 66 0D 20 53 54 41 54 45 4D 50 31 00 65 3D 70 |=f. STATEMP1.e=p|
00001D80: 0D 20 4C 44 41 54 45 58 54 50 54 52 2B 31 00 79 |. LDATEXTPTR+1.y|
00001D90: 3D 7A 0D 20 41 44 43 23 3E 28 4C 41 45 4E 47 45 |=z. ADC#>(LAENGE|
00001DA0: 32 29 00 89 3D 84 0D 20 53 54 41 54 45 4D 50 31 |2)..=.. STATEMP1|
00001DB0: 2B 31 00 8F 3D 8E 0D 3B 00 9A 3D 98 0D 20 4C 44 |+1..=..;..=.. LD|
00001DC0: 59 23 30 00 B7 3D A2 0D 53 43 48 4C 45 49 46 45 |Y#0..=..SCHLEIFE|
00001DD0: 34 20 4C 44 41 28 54 45 58 54 50 54 52 29 2C 59 |4 LDA(TEXTPTR),Y|
00001DE0: 00 C5 3D AC 0D 20 4A 53 52 4F 55 54 57 32 00 D5 |..=.. JSROUTW2..|
00001DF0: 3D B6 0D 20 49 4E 43 54 45 58 54 50 54 52 00 E5 |=.. INCTEXTPTR..|
00001E00: 3D C0 0D 20 42 4E 45 50 52 57 49 4E 32 41 00 F7 |=.. BNEPRWIN2A..|
00001E10: 3D CA 0D 20 49 4E 43 54 45 58 54 50 54 52 2B 31 |=.. INCTEXTPTR+1|
00001E20: 00 FD 3D D4 0D 3B 00 14 3E DE 0D 50 52 57 49 4E |..=..;..>..PRWIN|
00001E30: 32 41 20 4C 44 41 54 45 58 54 50 54 52 00 22 3E |2A LDATEXTPTR.">|
00001E40: E8 0D 20 43 4D 50 54 45 4D 50 31 00 34 3E F2 0D |.. CMPTEMP1.4>..|
00001E50: 20 4C 44 41 54 45 58 54 50 54 52 2B 31 00 44 3E | LDATEXTPTR+1.D>|
00001E60: FC 0D 20 53 42 43 54 45 4D 50 31 2B 31 00 56 3E |.. SBCTEMP1+1.V>|
00001E70: 06 0E 20 42 43 43 53 43 48 4C 45 49 46 45 34 00 |.. BCCSCHLEIFE4.|
00001E80: 5C 3E 10 0E 3B 00 65 3E 1A 0E 20 52 54 53 00 6B |\>..;.e>.. RTS.k|
00001E90: 3E 24 0E 3B 00 71 3E 2E 0E 3B 00 94 3E 38 0E 3B |>$.;.q>..;..>8.;|
00001EA0: 20 4D 45 4E 55 45 20 49 4E 20 57 49 4E 44 4F 57 | MENUE IN WINDOW|
00001EB0: 20 23 32 20 53 43 48 52 45 49 42 45 4E 00 9A 3E | #2 SCHREIBEN..>|
00001EC0: 42 0E 3B 00 A0 3E 4C 0E 3B 00 C2 3E 56 0E 53 43 |B.;..>L.;..>V.SC|
00001ED0: 48 52 4D 45 4E 55 45 20 4C 44 41 23 31 34 36 3B |HRMENUE LDA#146;|
00001EE0: 20 52 45 56 45 52 53 20 4F 46 46 00 DB 3E 60 0E | REVERS OFF..>`.|
00001EF0: 20 4A 53 52 42 41 53 4F 55 54 3B 20 41 55 53 47 | JSRBASOUT; AUSG|
00001F00: 45 42 45 4E 00 F7 3E 6A 0E 20 4C 44 41 23 3C 28 |EBEN..>j. LDA#<(|
00001F10: 4D 45 4E 55 45 54 58 29 3B 20 4D 45 4E 55 45 2D |MENUETX); MENUE-|
00001F20: 00 11 3F 74 0E 20 4C 44 59 23 3E 28 4D 45 4E 55 |..?t. LDY#>(MENU|
00001F30: 45 54 58 29 3B 20 54 45 58 54 00 2A 3F 7E 0E 20 |ETX); TEXT.*?~. |
00001F40: 4A 4D 50 50 52 57 49 4E 32 3B 20 41 55 53 47 45 |JMPPRWIN2; AUSGE|
00001F50: 42 45 4E 00 30 3F 88 0E 3B 00 54 3F 92 0E 4D 45 |BEN.0?..;.T?..ME|
00001F60: 4E 55 45 54 58 20 2E 54 58 22 2A 2A 2A 2A 2A 2A |NUETX .TX"******|
00001F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 71 3F |************".q?|
00001F80: 9C 0E 20 2E 54 58 22 2A 20 20 20 20 20 20 20 20 |.. .TX"* |
00001F90: 20 20 20 20 20 20 20 20 2A 22 00 8E 3F A6 0E 20 | *"..?.. |
00001FA0: 2E 54 58 22 2A 20 20 20 20 20 4D 45 4E 55 45 20 |.TX"* MENUE |
00001FB0: 20 20 20 20 20 2A 22 00 AB 3F B0 0E 20 2E 54 58 | *"..?.. .TX|
00001FC0: 22 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |"* |
00001FD0: 20 20 2A 22 00 C8 3F BA 0E 20 2E 54 58 22 2A 2A | *"..?.. .TX"**|
00001FE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001FF0: 22 00 E5 3F C4 0E 20 2E 54 58 22 2A 20 20 20 20 |"..?.. .TX"* |
00002000: 20 20 20 20 20 20 20 20 20 20 20 20 2A 22 00 02 | *"..|
00002010: 40 CE 0E 20 2E 54 58 22 2A 20 28 31 29 20 45 52 |@.. .TX"* (1) ER|
00002020: 4B 4C 41 45 52 55 4E 47 20 2A 22 00 1F 40 D8 0E |KLAERUNG *"..@..|
00002030: 20 2E 54 58 22 2A 20 20 20 20 20 20 20 20 20 20 | .TX"* |
00002040: 20 20 20 20 20 20 2A 22 00 3C 40 E2 0E 20 2E 54 | *".<@.. .T|
00002050: 58 22 2A 20 28 32 29 20 46 41 52 42 45 20 20 20 |X"* (2) FARBE |
00002060: 20 20 20 2A 22 00 59 40 EC 0E 20 2E 54 58 22 2A | *".Y@.. .TX"*|
00002070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002080: 2A 22 00 76 40 F6 0E 20 2E 54 58 22 2A 20 28 33 |*".v@.. .TX"* (3|
00002090: 29 20 42 45 45 4E 44 45 4E 20 20 20 20 2A 22 00 |) BEENDEN *".|
000020A0: 93 40 00 0F 20 2E 54 58 22 2A 20 20 20 20 20 20 |.@.. .TX"* |
000020B0: 20 20 20 20 20 20 20 20 20 20 2A 22 00 B0 40 0A | *"..@.|
000020C0: 0F 20 2E 54 58 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. .TX"**********|
000020D0: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 B6 40 14 0F 3B 00 |********"..@..;.|
000020E0: BC 40 1E 0F 3B 00 C2 40 28 0F 3B 00 D6 40 32 0F |.@..;..@(.;..@2.|
000020F0: 3B 20 48 41 55 50 54 50 52 4F 47 52 41 4D 4D 00 |; HAUPTPROGRAMM.|
00002100: EA 40 3C 0F 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.@<.; ==========|
00002110: 3D 3D 3D 00 F0 40 46 0F 3B 00 12 41 50 0F 4D 41 |===..@F.;..AP.MA|
00002120: 49 4E 20 4C 44 41 23 30 3B 20 43 4F 44 45 20 46 |IN LDA#0; CODE F|
00002130: 55 45 52 20 53 43 48 57 41 52 5A 00 30 41 5A 0F |UER SCHWARZ.0AZ.|
00002140: 20 53 54 41 24 44 30 32 30 3B 20 52 41 48 4D 45 | STA$D020; RAHME|
00002150: 4E 20 53 43 48 57 41 52 5A 00 53 41 64 0F 20 53 |N SCHWARZ.SAd. S|
00002160: 54 41 24 44 30 32 31 3B 20 48 49 4E 54 45 52 47 |TA$D021; HINTERG|
00002170: 52 55 4E 44 20 53 43 48 57 41 52 5A 00 75 41 6E |RUND SCHWARZ.uAn|
00002180: 0F 20 4C 44 41 23 35 3B 20 41 53 43 49 49 2D 43 |. LDA#5; ASCII-C|
00002190: 4F 44 45 20 46 55 45 52 20 57 45 49 53 53 00 9D |ODE FUER WEISS..|
000021A0: 41 78 0F 20 4A 53 52 42 41 53 4F 55 54 3B 20 41 |Ax. JSRBASOUT; A|
000021B0: 4C 53 20 53 43 48 52 49 46 54 46 41 52 42 45 20 |LS SCHRIFTFARBE |
000021C0: 53 45 54 5A 45 4E 00 B9 41 82 0F 20 4C 44 41 23 |SETZEN..A.. LDA#|
000021D0: 30 3B 20 45 52 4B 4C 41 45 52 55 4E 47 53 46 4C |0; ERKLAERUNGSFL|
000021E0: 41 47 00 D9 41 8C 0F 20 53 54 41 45 52 4B 4C 46 |AG..A.. STAERKLF|
000021F0: 4C 41 47 3B 20 5A 55 52 55 45 43 4B 53 45 54 5A |LAG; ZURUECKSETZ|
00002200: 45 4E 00 DF 41 96 0F 3B 00 01 42 A0 0F 20 4A 53 |EN..A..;..B.. JS|
00002210: 52 53 43 48 52 4D 45 4E 55 45 3B 20 4D 45 4E 55 |RSCHRMENUE; MENU|
00002220: 45 20 41 55 53 47 45 42 45 4E 00 07 42 AA 0F 3B |E AUSGEBEN..B..;|
00002230: 00 2B 42 B4 0F 54 41 53 54 45 20 4A 53 52 47 45 |.+B..TASTE JSRGE|
00002240: 54 3B 20 54 41 53 54 45 4E 44 52 55 43 4B 20 48 |T; TASTENDRUCK H|
00002250: 4F 4C 45 4E 00 3E 42 BE 0F 20 43 4D 50 23 22 31 |OLEN.>B.. CMP#"1|
00002260: 22 3B 20 22 31 22 3F 00 72 42 C8 0F 20 42 45 51 |"; "1"?.rB.. BEQ|
00002270: 50 55 4E 4B 54 31 3B 20 4A 41 3A 20 52 4F 55 54 |PUNKT1; JA: ROUT|
00002280: 49 4E 45 20 46 55 45 52 20 50 55 4E 4B 54 20 31 |INE FUER PUNKT 1|
00002290: 20 41 4E 53 50 52 49 4E 47 45 4E 00 85 42 D2 0F | ANSPRINGEN..B..|
000022A0: 20 43 4D 50 23 22 32 22 3B 20 22 32 22 3F 00 B9 | CMP#"2"; "2"?..|
000022B0: 42 DC 0F 20 42 45 51 50 55 4E 4B 54 32 3B 20 4A |B.. BEQPUNKT2; J|
000022C0: 41 3A 20 52 4F 55 54 49 4E 45 20 46 55 45 52 20 |A: ROUTINE FUER |
000022D0: 50 55 4E 4B 54 20 32 20 41 4E 53 50 52 49 4E 47 |PUNKT 2 ANSPRING|
000022E0: 45 4E 00 CC 42 E6 0F 20 43 4D 50 23 22 33 22 3B |EN..B.. CMP#"3";|
000022F0: 20 22 33 22 3F 00 F7 42 F0 0F 20 42 4E 45 54 41 | "3"?..B.. BNETA|
00002300: 53 54 45 3B 20 4E 45 49 4E 2C 20 44 41 4E 4E 20 |STE; NEIN, DANN |
00002310: 41 55 46 20 54 41 53 54 45 20 57 41 52 54 45 4E |AUF TASTE WARTEN|
00002320: 00 FD 42 FA 0F 3B 00 16 43 04 10 3B 20 50 55 4E |..B..;..C..; PUN|
00002330: 4B 54 20 33 20 28 42 45 45 4E 44 45 4E 29 3A 00 |KT 3 (BEENDEN):.|
00002340: 1C 43 0E 10 3B 00 2E 43 18 10 20 52 54 53 3B 20 |.C..;..C.. RTS; |
00002350: 42 45 45 4E 44 45 4E 00 34 43 22 10 3B 00 3A 43 |BEENDEN.4C".;.:C|
00002360: 2C 10 3B 00 51 43 36 10 3B 20 50 55 4E 4B 54 20 |,.;.QC6.; PUNKT |
00002370: 32 20 28 46 41 52 42 45 29 3A 00 57 43 40 10 3B |2 (FARBE):.WC@.;|
00002380: 00 81 43 4A 10 50 55 4E 4B 54 32 20 49 4E 43 24 |..CJ.PUNKT2 INC$|
00002390: 44 30 32 30 3B 20 52 41 48 4D 45 4E 46 41 52 42 |D020; RAHMENFARB|
000023A0: 45 20 45 52 48 4F 45 48 45 4E 00 A6 43 54 10 20 |E ERHOEHEN..CT. |
000023B0: 49 4E 43 24 44 30 32 31 3B 20 41 55 43 48 20 48 |INC$D021; AUCH H|
000023C0: 49 4E 54 45 52 47 52 55 4E 44 46 41 52 42 45 00 |INTERGRUNDFARBE.|
000023D0: C7 43 5E 10 20 4A 4D 50 54 41 53 54 45 3B 20 5A |.C^. JMPTASTE; Z|
000023E0: 55 52 55 45 43 4B 20 5A 55 4D 20 4D 45 4E 55 45 |URUECK ZUM MENUE|
000023F0: 00 CD 43 68 10 3B 00 D3 43 72 10 3B 00 FB 43 7C |..Ch.;..Cr.;..C||
00002400: 10 50 55 4E 4B 54 31 20 4C 44 41 45 52 4B 4C 46 |.PUNKT1 LDAERKLF|
00002410: 4C 41 47 3B 20 45 52 4B 4C 41 45 52 55 4E 47 53 |LAG; ERKLAERUNGS|
00002420: 46 4C 41 47 00 11 44 86 10 20 45 4F 52 23 31 3B |FLAG..D.. EOR#1;|
00002430: 20 22 53 4B 49 50 50 45 4E 22 00 38 44 90 10 20 | "SKIPPEN".8D.. |
00002440: 53 54 41 45 52 4B 4C 46 4C 41 47 3B 20 55 4E 44 |STAERKLFLAG; UND|
00002450: 20 5A 55 52 55 45 43 4B 53 43 48 52 45 49 42 45 | ZURUECKSCHREIBE|
00002460: 4E 00 3E 44 9A 10 3B 00 6D 44 A4 10 20 42 45 51 |N.>D..;.mD.. BEQ|
00002470: 4C 4F 45 53 43 48 45 52 4B 3B 20 3D 30 2C 20 44 |LOESCHERK; =0, D|
00002480: 41 4E 4E 20 57 49 4E 44 4F 57 20 23 31 20 4C 4F |ANN WINDOW #1 LO|
00002490: 45 53 43 48 45 4E 00 73 44 AE 10 3B 00 9F 44 B8 |ESCHEN.sD..;..D.|
000024A0: 10 20 4A 53 52 45 52 4B 4C 41 45 52 47 3B 20 53 |. JSRERKLAERG; S|
000024B0: 4F 4E 53 54 20 45 52 4B 4C 41 45 52 55 4E 47 20 |ONST ERKLAERUNG |
000024C0: 41 55 53 47 45 42 45 4E 00 C4 44 C2 10 20 4A 4D |AUSGEBEN..D.. JM|
000024D0: 50 54 41 53 54 45 3B 20 55 4E 44 20 5A 55 52 55 |PTASTE; UND ZURU|
000024E0: 45 43 4B 20 5A 55 4D 20 4D 45 4E 55 45 00 CA 44 |ECK ZUM MENUE..D|
000024F0: CC 10 3B 00 ED 44 D6 10 4C 4F 45 53 43 48 45 52 |..;..D..LOESCHER|
00002500: 4B 20 4C 44 41 23 43 4C 45 41 52 3B 20 57 49 4E |K LDA#CLEAR; WIN|
00002510: 44 4F 57 20 23 31 00 05 45 E0 10 20 4A 53 52 4F |DOW #1..E.. JSRO|
00002520: 55 54 57 31 3B 20 4C 4F 45 53 43 48 45 4E 00 26 |UTW1; LOESCHEN.&|
00002530: 45 EA 10 20 4A 4D 50 54 41 53 54 45 3B 20 5A 55 |E.. JMPTASTE; ZU|
00002540: 52 55 45 43 4B 20 5A 55 4D 20 4D 45 4E 55 45 00 |RUECK ZUM MENUE.|
00002550: 00 00 |.. |
X...D..BA $C000...N.;.. X.; ************
*******************.8 ..; *
*.^ ..; * MASCHINENSPRA
CHE-PROGRAMM *.. ..; *
*.. .; * MIT WINDOW-TE
CHNIK *.P ..; *
*.. ..; * C 64
*..!..; *
*.B!H.; ****************************
***.H!R.; *
*..!..; * (C) 1986 BY FLORIAN MUELLER *.
.!..; * *.Z!
..; *******************************..!..
;..".. JMPMAIN; UNTERROUTINEN UEBERSPRIN
GEN.."..;.)"..; SYMBOLDEFINITIONEN./"".;
.\",..GL ZEILE = $D6 ; AKTUELLE CURSOR
ZEILE.."6..GL SPALTE = $D3 ; AKTUELLE C
URSORSPALTE.."@.ZEILE1 .BY0; ZEILE IN WI
NDOW #1.S"J.SPALTE1 .BY0; SPALTE I.WINDO
W #1.."T.ZEILE2 .BY0; ZEILE IN WINDOW #2
..#^.SPALTE2 .BY0; SPALTE I.WINDOW #2."#
H.;.O#R..GL SETCUR = $E50C ; CURSO
R SETZEN.U#|.;..#...GL BASOUT = $FFD2
; ZEICHEN AUSGEBEN..#...GL GET =
$FFE4 ; ZEICHEN EINGEBEN..#..;..#.
.TEMP1 .WO0; 16-BIT-ZWISCHENSPEICHER..$.
.ERKLFLAG .BY0; FLAG FUER ERKLAERUNG..$.
.;.F$B..GL CLEAR = $93 ; ASCII-
CODE FUER CLEAR.Z$L..GL HOME = $13
; ASCII-CODE FUER HOME..$V..GL CR
= $0D ; ASCII-CODE FUER RETUR
N..$..;..$...GL LINKS1 = 2 ; P
ARAMETER..%...GL RECHTS1 = 9+1 ;
VON.(%...GL OBEN1 = 2 ; WINDO
W.M%...GL UNTEN1 = 10+1 ; NR. 1.S
%..;.|%...GL LINKS2 = 12 ; PARA
METER..%&..GL RECHTS2 = 29+1 ; VON
.E%0..GL OBEN2 = 6 ; WINDOW..
%:..GL UNTEN2 = 18+1 ; NR. 2..%D.
;."&N..GL LAENGE1 = (RECHTS1-LINKS1)*(UN
TEN1-OBEN1).T&X..GL LAENGE2 = (RECHTS2-L
INKS2)*(UNTEN2-OBEN2).Z&B.;..&L.OUTPUTBY
TE .BY0; ZWISCHENSPEICHER..&V.;..&...GL
TEXTPTR = $22 ; ZEIGER AUF TEXTST
ELLE.A&..;.U&..; PROGRAMMTEXT:..&..; ===
==========..&..;..&..;..&..;..'F.; UNTER
ROUTINEN FUER WINDOWS:.?'P.; ===========
================.E'Z.;.M'..OUTW1 STAOUTP
UTBYTE; ZEICHEN MERKEN..'.. TXA; X-REGIS
TER..'.. PHA; RETTEN..'.. TYA; Y-REGISTE
R..'.. PHA; RETTEN..'..;..' . LDASPALTE;
CURSORSPALTE..'*. PHA; RETTEN..(4. LDAZ
EILE; CURSORZEILE..(>. PHA; RETTEN..(H.;
.H(R. LDAOUTPUTBYTE; ZEICHEN WIEDER HOLE
N.](\. CMP#CR; RETURN?..(F. BNETESTHOME1
; NEIN, DANN WEITER..(P. LDAZEILE1; ZEIL
E HOLEN..(Z. CMP#UNTEN1; UNTERSTE ZEILE?
..(.. BCSENDCR1; JA, DANN BEENDEN..).. I
NCZEILE1; SONST ZEILE NACH UNTEN.().. LD
A#LINKS1; LINKEN RAND ALS.G).. STASPALTE
1; SPALTE SETZEN.M)..;..)..ENDCR1 JMPEND
OUTW; WERTE VOM STACK HOLEN & ENDE..)..;
..)J.TESTHOME1 CMP#HOME; HOME?.I)T. BNET
ESTCLR1; NEIN, DANN WEITER..)..HOME1 LDA
#OBEN1; OBEREN RAND..*.. STAZEILE1; ALS
ZEILE SETZEN.(*.. LDA#LINKS1; LINKEN RAN
D.K*.. STASPALTE1; ALS SPALTE SETZEN.A*.
. JMPENDOUTW; ENDE.G*..;..*..TESTCLR1 CM
P#CLEAR; CLEAR?..*$. BNEPRINT1; NEIN, DA
NN ZEICHEN AUSGEBEN..*..;.O*8.; WINDOW L
OESCHEN:.U*B.;..*L. LDA#146; REVERS OFF.
.+V. JSRBASOUT; AUSGEBEN..+`.;.$+J. LDA#
LINKS1; LINKE.;+T. STASPALTE1; OBERE.T+~
. LDA#OBEN1; ECKE ALS.S+.. STAZEILE1; CU
RSORPOSITION.Y+..;..+..SCHLEIFE1 JSRCLEA
R1C; SPACE AUSGEBEN..+.. LDASPALTE1;SPAL
TE HOLEN..+.. CMP#(RECHTS1-1); SCHON AM
RECHTEN RAND?..,.. BCCCLEAR1A; NEIN, DAN
N SPALTE ERHOEHEN.4,D. LDAZEILE1; ZEILE
HOLEN.W,N. CMP#(UNTEN1-1); UNTERER RAND?
.{,X. BEQENDCLEAR1; JA, DANN BEENDEN..,.
. BNECLEAR1B; SONST AN BEGINN DER NAECHS
TEN ZEILE..,..;..,..CLEAR1A INCSPALTE1;
SPALTE ERHOEHEN..,.. JMPSCHLEIFE1; WEITE
RMACHEN..-..;.*-..CLEAR1B INCZEILE1; ZEI
LE ERHOEHEN.G-.. LDA#LINKS1; LINKEN RAND
.J-(. STASPALTE1; ALS SPALTE SETZEN..-2.
JMPSCHLEIFE1; UND WEITER LOESCHEN..-<.;
..-F.CLEAR1C LDXZEILE1; ZEILE.P-P. LDYSP
ALTE1; UND SPALTE..-Z. JSRSETCUR; SETZEN
...D. LDA#" "; LEERZEICHEN.,.N. JMPBASOU
T; AN LOESCHPOSITION AUSGEBEN.2.X.;.8...
;.R...ENDCLEAR1 JMPHOME1; CURSOR IN LINK
E OBERE WINDOW-ECKE.X...;.~. .;.....;. .
..PRINT1 LDXZEILE1; ZEILE..... LDYSPALTE
1; UND SPALTE...H. JSRSETCUR; IM WINDOW
SETZEN...R. LDAOUTPUTBYTE; ZEICHEN HOLEN
.2/.. JSRBASOUT; UND AN GESETZTER POSITI
ON AUSGEBEN.8/..;.Y/.. INCSPALTE1; SPALT
E ERHOEHEN.W/.. LDASPALTE1; SPALTE HOLEN
../.. CMP#RECHTS1; UEBER RECHTE GRENZE H
INAUS?.I/.. BCCENDOUTW; NEIN, DANN BEEND
EN../.. LDA#LINKS1; SONST LINKEN RAND..0
". STASPALTE1; ALS SPALTE SETZEN.50,. IN
CZEILE1; EINE ZEILE NACH UNTEN.Q06. LDAZ
EILE1; ZEILE HOLEN.W0@. CMP#UNTEN1; SCHO
N UNTERSTE ZEILE..0J. BCCENDOUTW; NEIN,
DANN ENDE..0T. LDA#OBEN1; SONST CURSOR I
M WINDOW..0^. STAZEILE1; IN OBERSTE ZEIL
E..0H.;..0R.ENDOUTW PLA; ZEILE..1|. STAZ
EILE; HOLEN.#1.. PLA; SPALTE.91.. STASPA
LTE; HOLEN.?1..;.T1.. PLA; Y-REGISTER.D1
.. TAY; HOLEN.Y1.. PLA; X-REGISTER..1B.
TAX; HOLEN..1L. LDAOUTPUTBYTE; ZEICHEN I
N AKKU.G1V. RTS; ROUTINE BEENDEN.M1..;.S
1..;..1..; DIE GLEICHE ROUTINE FUER..2..
; WINDOW #2:..2..;.!2..OUTW2 STAOUTPUTBY
TE.*2.. TXA.32&. PHA.<20. TYA.E2:. PHA.K
2D.;.Z2N. LDASPALTE.C2X. PHA.Q2B. LDAZEI
LE.Z2L. PHA..2V.;..2.. LDAOUTPUTBYTE..2.
. CMP#CR..2.. BNETESTHOME2..2.. LDAZEILE
2.P2.. CMP#UNTEN2..2.. BCSENDCR2..2.. IN
CZEILE2..2F. LDA#LINKS2..3P. STASPALTE2.
.3Z.;.*3..ENDCR2 JMPENDOUTW.03..;.G3..TE
STHOME2 CMP#HOME.X3.. BNETESTCLR2.L3..HO
ME2 LDA#OBEN2.{3.. STAZEILE2..3 . LDA#LI
NKS2..3*. STASPALTE2..34. JMPENDOUTW..3>
.;.H3H.TESTCLR2 CMP#CLEAR.W3R. BNEPRINT2
..3\.;..3F.; WINDOW LOESCHEN:..3P.;..4Z.
LDA#146; REVERS OFF.,4.. JSRBASOUT; AUS
GEBEN.24..;.B4.. LDA#LINKS2.R4.. STASPAL
TE2.A4.. LDA#OBEN2.P4.. STAZEILE2.V4..;.
.4J.SCHLEIFE2 JSRCLEAR2C..4T. LDASPALTE2
..4.. CMP#(RECHTS2-1).D4.. BCCCLEAR2A.S4
.. LDAZEILE2..4.. CMP#(UNTEN2-1)..4.. BE
QENDCLEAR2..5.. BNECLEAR2B..5..;.&5$.CLE
AR2A INCSPALTE2.85.. JMPSCHLEIFE2.>58.;.
T5B.CLEAR2B INCZEILE2.D5L. LDA#LINKS2.T5
V. STASPALTE2..5`. JMPSCHLEIFE2..5J.;..5
T.CLEAR2C LDXZEILE2..5~. LDYSPALTE2.A5..
JSRSETCUR.N5.. LDA#" "..5.. JMPBASOUT..
5..;..5..;..6..ENDCLEAR2 JMPHOME2..6D.;.
.6N.;..6X.;.'6..PRINT2 LDXZEILE2.76.. LD
YSPALTE2.F6.. JSRSETCUR.Y6.. LDAOUTPUTBY
TE.H6.. JSRBASOUT.N6..;.~6.. INCSPALTE2.
.6(. LDASPALTE2..62. CMP#RECHTS2..6<. BC
CENDOUTW2..6F. LDA#LINKS2.P6P. STASPALTE
2..6Z. INCZEILE2..6D. LDAZEILE2..6N. CMP
#UNTEN2..7X. BCCENDOUTW2..7.. LDA#OBEN2.
-7.. STAZEILE2.37..;.A7 .ENDOUTW2 JMPEND
OUTW; WEITER WIE BEI OUTW1.G7..;.M7..;.S
7..;.Y7H.;..7R.; ROUTINE ZUM DRUCKEN EIN
ES..7..; GANZEN WINDOWS..7..;.Y7..; ADRE
SSE WIRD IN A/Y UEBERGEBEN..7..;..8..PRW
IN1 STATEXTPTR; LO-BYTE SETZEN.'8.. STYT
EXTPTR+1; HI-BYTE SETZEN.-8..;.T8". LDA#
HOME; LINKE OBERE WINDOW-ECKE.N8,. JSROU
TW1; ANSPRINGEN..86. CLC; CARRY VOR ADDI
TION LOESCHEN..8@. LDATEXTPTR; ZUR ANFAN
GS-.S8J. ADC#<(LAENGE1); ADRESSE DES..8T
. STATEMP1; TEXTES..9^. LDATEXTPTR+1; WI
RD LAENGE DES.19H. ADC#>(LAENGE1); TEXTE
S ADDIERT..`9R. STATEMP1+1; ERGEBNIS IN
(TEMP1)/(TEMP1+1).F9|.;.}9.. LDY#0; OFFS
ET = 0..9..SCHLEIFE3 LDA(TEXTPTR),Y; ZEI
CHEN AUS TEXT HOLEN.N9.. JSROUTW1; UND A
USGEBEN..9.. INCTEXTPTR; ZEIGER AUF..:..
BNEPRWIN1A; TEXTSTELLE.':.. INCTEXTPTR+
1; UM 1 ERHOEHEN.-:B.;.N:L.PRWIN1A LDATE
XTPTR; PRUEFEN,.F:V. CMPTEMP1; OB SCHON.
.:.. LDATEXTPTR+1; DER GANZE..:.. SBCTEM
P1+1; TEXT AUSGEGEBEN WURDE.P:.. BCCSCHL
EIFE3; NEIN (C=0): WEITER.V:..;..:.. RTS
; SONST ENDE..:..;..:..;..;&.; ERKLAERUN
GSTEXT IN WINDOW #1.*;0.; SCHREIBEN.0;:.
;.6;D.;.U;N.ERKLAERG LDA#18; REVERS ON.N
;X. JSRBASOUT; AUSGEBEN..;B. LDA#<(ERKLT
X); ERKLAERUNGS-..;L. LDY#>(ERKLTX); TEX
T.A;V. JMPPRWIN1; AUSGEBEN.G;..;..;..ERK
LTX .TX" "..;.. .TX" DIES "..<.
. .TX" "..<.. .TX" IST ".,<..
.TX" ".?<.. .TX" WINDOW ".R<F. .T
X" ".E<P. .TX" NR. 1 ".X<Z. .TX"
".~<..;..<..;..<..; ROUTINE ZUM
DRUCKEN EINES.H<..; GANZEN WINDOWS FUER
WINDOW #2.N<..;..<..PRWIN2 STATEXTPTR..<
. STYTEXTPTR+1..<*.;..=4. LDA#HOME..=>.
JSROUTW2.!=H. CLC.1=R. LDATEXTPTR.E=\.
ADC#<(LAENGE2).S=F. STATEMP1.E=P. LDATEX
TPTR+1.Y=Z. ADC#>(LAENGE2)..=.. STATEMP1
+1..=..;..=.. LDY#0..=..SCHLEIFE4 LDA(TE
XTPTR),Y.E=.. JSROUTW2.U=.. INCTEXTPTR..
=.. BNEPRWIN2A..=J. INCTEXTPTR+1..=T.;..
>..PRWIN2A LDATEXTPTR.">.. CMPTEMP1.4>..
LDATEXTPTR+1.D>.. SBCTEMP1+1.V>.. BCCSC
HLEIFE4.\>..;.E>.. RTS.K>$.;.Q>..;..>8.;
MENUE IN WINDOW #2 SCHREIBEN..>B.;. >L.
;.B>V.SCHRMENUE LDA#146; REVERS OFF..>`.
JSRBASOUT; AUSGEBEN..>J. LDA#<(MENUETX)
; MENUE-..?T. LDY#>(MENUETX); TEXT.*?~.
JMPPRWIN2; AUSGEBEN.0?..;.T?..MENUETX .T
X"******************".Q?.. .TX"*
*"..?.. .TX"* MENUE *".
.?.. .TX"* *".H?.. .TX"**
****************"..?D. .TX"*
*"..@N. .TX"* (1) ERKLAERUNG *"..@X.
.TX"* *".<@.. .TX"* (2)
FARBE *".Y@.. .TX"*
*".V@.. .TX"* (3) BEENDEN *"..@.. .TX
"* *"..@.. .TX"**********
********"..@..;..@..;.B@(.;.V@2.; HAUPTP
ROGRAMM..@<.; =============..@F.;..AP.MA
IN LDA#0; CODE FUER SCHWARZ.0AZ. STA$D02
0; RAHMEN SCHWARZ.SAD. STA$D021; HINTERG
RUND SCHWARZ.UAN. LDA#5; ASCII-CODE FUER
WEISS..AX. JSRBASOUT; ALS SCHRIFTFARBE
SETZEN..A.. LDA#0; ERKLAERUNGSFLAG.YA..
STAERKLFLAG; ZURUECKSETZEN..A..;..B . JS
RSCHRMENUE; MENUE AUSGEBEN..B..;.+B..TAS
TE JSRGET; TASTENDRUCK HOLEN.>B.. CMP#"1
"; "1"?.RBH. BEQPUNKT1; JA: ROUTINE FUER
PUNKT 1 ANSPRINGEN..BR. CMP#"2"; "2"?..
B.. BEQPUNKT2; JA: ROUTINE FUER PUNKT 2
ANSPRINGEN.LB.. CMP#"3"; "3"?..B.. BNETA
STE; NEIN, DANN AUF TASTE WARTEN..B..;..
C..; PUNKT 3 (BEENDEN):..C..;..C.. RTS;
BEENDEN.4C".;.:C,.;.QC6.; PUNKT 2 (FARBE
):.WC@.;..CJ.PUNKT2 INC$D020; RAHMENFARB
E ERHOEHEN..CT. INC$D021; AUCH HINTERGRU
NDFARBE.GC^. JMPTASTE; ZURUECK ZUM MENUE
.MCH.;.SCR.;..C|.PUNKT1 LDAERKLFLAG; ERK
LAERUNGSFLAG..D.. EOR#1; "SKIPPEN".8D..
STAERKLFLAG; UND ZURUECKSCHREIBEN.>D..;.
MD.. BEQLOESCHERK; =0, DANN WINDOW #1 LO
ESCHEN.SD..;..D.. JSRERKLAERG; SONST ERK
LAERUNG AUSGEBEN.DDB. JMPTASTE; UND ZURU
ECK ZUM MENUE.JDL.;..DV.LOESCHERK LDA#CL
EAR; WINDOW #1..E.. JSROUTW1; LOESCHEN.&
E.. JMPTASTE; ZURUECK ZUM MENUE...
> CLICK IMAGE PREVIEW FOR FULL MODAL