OBSESS V3.1 ASS

00000000: D8 1F E4 1F 01 00 20 2E  4C 49 31 2C 34 00 13 20  |...... .LI1,4.. |
00000010: 64 00 3B 20 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |d.; ************|
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 2A 00 19 20 6E  |************.. n|
00000040: 00 3B 00 3C 20 78 00 3B  20 20 20 20 20 20 20 20  |.;.< x.;        |
00000050: 20 20 20 20 43 4F 4C 4F  52 50 52 49 4E 54 50 52  |    COLORPRINTPR|
00000060: 4F 47 52 41 4D 00 42 20  82 00 3B 00 71 20 8C 00  |OGRAM.B ..;.q ..|
00000070: 3B 20 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |; **************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 77 20 96 00 3B  |**********.w ..;|
000000A0: 00 94 20 A0 00 3B 20 20  20 20 20 20 20 20 20 20  |.. ..;          |
000000B0: 20 20 20 20 20 20 20 20  20 20 56 4F 4E 00 9A 20  |          VON.. |
000000C0: AA 00 3B 00 C6 20 B4 00  3B 20 47 45 52 48 41 52  |..;.. ..; GERHAR|
000000D0: 44 20 42 4C 49 43 4B 4D  41 4E 4E 20 20 20 26 20  |D BLICKMANN   & |
000000E0: 20 20 52 41 4C 50 48 20  42 45 4E 49 4E 44 45 00  |  RALPH BENINDE.|
000000F0: F5 20 BE 00 3B 20 55 45  52 44 49 4E 47 45 52 53  |. ..; UERDINGERS|
00000100: 54 52 2E 20 31 39 38 20  20 20 20 20 20 20 41 55  |TR. 198       AU|
00000110: 46 20 44 45 4D 20 53 43  48 45 49 44 20 33 00 24  |F DEM SCHEID 3.$|
00000120: 21 C8 00 3B 20 34 30 30  35 20 4D 45 45 52 42 55  |!..; 4005 MEERBU|
00000130: 53 43 48 20 33 20 20 20  20 20 20 20 20 34 30 30  |SCH 3        400|
00000140: 35 20 4D 45 45 52 42 55  53 43 48 20 33 00 52 21  |5 MEERBUSCH 3.R!|
00000150: D2 00 3B 20 54 45 4C 2E  20 30 32 31 35 30 2F 34  |..; TEL. 02150/4|
00000160: 34 30 37 20 20 20 20 20  20 20 20 20 54 45 4C 2E  |407         TEL.|
00000170: 20 30 32 31 35 30 2F 34  30 34 36 00 58 21 DC 00  | 02150/4046.X!..|
00000180: 3B 00 87 21 E6 00 3B 20  2D 2D 2D 2D 2D 2D 2D 2D  |;..!..; --------|
00000190: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000001A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000001B0: 00 8D 21 F0 00 3B 00 B8  21 FA 00 3B 20 20 44 45  |..!..;..!..;  DE|
000001C0: 52 20 44 52 55 43 4B 45  52 54 52 45 49 42 45 52  |R DRUCKERTREIBER|
000001D0: 20 44 49 45 53 45 53 20  50 52 4F 47 52 41 4D 4D  | DIESES PROGRAMM|
000001E0: 53 00 DF 21 04 01 3B 20  20 41 52 42 45 49 54 45  |S..!..;  ARBEITE|
000001F0: 54 20 4D 49 54 20 45 50  53 4F 4E 2D 44 52 55 43  |T MIT EPSON-DRUC|
00000200: 4B 45 52 4E 20 55 4E 44  00 0D 22 0E 01 3B 20 20  |KERN UND.."..;  |
00000210: 4B 4F 4D 50 41 54 49 42  4C 45 4E 20 45 49 4E 53  |KOMPATIBLEN EINS|
00000220: 43 48 4C 49 45 53 53 4C  49 43 48 20 4D 50 53 38  |CHLIESSLICH MPS8|
00000230: 30 32 20 4D 49 54 00 3A  22 18 01 3B 20 20 53 55  |02 MIT.:"..;  SU|
00000240: 50 45 52 2D 52 4F 4D 20  28 36 34 27 45 52 20 41  |PER-ROM (64'ER A|
00000250: 55 53 47 41 42 45 20 4A  41 4E 55 41 52 20 31 39  |USGABE JANUAR 19|
00000260: 38 37 29 00 40 22 22 01  3B 00 6F 22 2C 01 3B 20  |87).@"".;.o",.; |
00000270: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000280: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000290: 2D 2D 2D 2D 2D 2D 2D 2D  00 75 22 36 01 3B 00 7B  |--------.u"6.;.{|
000002A0: 22 40 01 3B 00 A1 22 4A  01 3B 20 20 20 20 20 20  |"@.;.."J.;      |
000002B0: 20 20 20 2E 4F 42 20 22  40 3A 4F 42 53 45 53 53  |   .OB "@:OBSESS|
000002C0: 20 56 33 2E 31 2C 50 2C  57 22 00 CD 22 54 01 2E  | V3.1,P,W".."T..|
000002D0: 42 41 20 24 43 30 30 30  20 3B 20 56 4F 52 20 53  |BA $C000 ; VOR S|
000002E0: 54 41 52 54 20 41 45 4E  44 45 52 4E 20 41 55 46  |TART AENDERN AUF|
000002F0: 20 24 30 38 30 31 00 12  23 59 01 3B 20 20 20 20  | $0801..#Y.;    |
00000300: 20 20 20 20 20 20 20 20  55 4E 44 20 56 4F 4E 20  |        UND VON |
00000310: 33 33 30 20 42 49 53 20  34 30 30 20 4A 45 57 45  |330 BIS 400 JEWE|
00000320: 49 4C 53 20 44 41 53 20  53 45 4D 49 4B 4F 4C 4F  |ILS DAS SEMIKOLO|
00000330: 4E 20 45 4E 54 46 45 52  4E 45 4E 00 2A 23 5E 01  |N ENTFERNEN.*#^.|
00000340: 3B 20 20 20 20 20 20 20  20 20 2E 57 4F 20 24 30  |;         .WO $0|
00000350: 38 30 31 00 40 23 68 01  3B 20 20 20 20 20 20 20  |801.@#h.;       |
00000360: 20 20 2E 57 4F 20 31 30  30 00 56 23 72 01 3B 20  |  .WO 100.V#r.; |
00000370: 20 20 20 20 20 20 20 20  2E 42 59 20 24 39 45 00  |        .BY $9E.|
00000380: 6F 23 7C 01 3B 20 20 20  20 20 20 20 20 20 2E 54  |o#|.;         .T|
00000390: 58 20 22 32 30 36 31 22  00 83 23 86 01 3B 20 20  |X "2061"..#..;  |
000003A0: 20 20 20 20 20 20 20 2E  42 59 20 30 00 97 23 90  |       .BY 0..#.|
000003B0: 01 3B 20 20 20 20 20 20  20 20 20 2E 57 4F 20 30  |.;         .WO 0|
000003C0: 00 9D 23 9A 01 3B 00 A3  23 A4 01 3B 00 A9 23 AE  |..#..;..#..;..#.|
000003D0: 01 3B 00 AF 23 B8 01 3B  00 CE 23 C2 01 3B 20 54  |.;..#..;..#..; T|
000003E0: 41 42 45 4C 4C 45 20 44  45 52 20 52 4F 4D 2D 52  |ABELLE DER ROM-R|
000003F0: 4F 55 54 49 4E 45 4E 00  D4 23 CC 01 3B 00 EB 23  |OUTINEN..#..;..#|
00000400: D6 01 2E 47 4C 20 53 45  54 43 52 53 20 3D 20 24  |...GL SETCRS = $|
00000410: 46 46 46 30 00 02 24 E0  01 2E 47 4C 20 43 48 4B  |FFF0..$...GL CHK|
00000420: 43 4F 4D 20 3D 20 24 41  45 46 44 00 19 24 EA 01  |COM = $AEFD..$..|
00000430: 2E 47 4C 20 47 45 54 42  59 54 20 3D 20 24 42 37  |.GL GETBYT = $B7|
00000440: 39 45 00 30 24 F4 01 2E  47 4C 20 50 52 49 4E 54  |9E.0$...GL PRINT|
00000450: 20 20 3D 20 24 41 41 41  30 00 47 24 FE 01 2E 47  |  = $AAA0.G$...G|
00000460: 4C 20 53 43 52 45 45 4E  31 3D 20 24 32 30 30 30  |L SCREEN1= $2000|
00000470: 00 5E 24 08 02 2E 47 4C  20 53 43 52 45 45 4E 32  |.^$...GL SCREEN2|
00000480: 3D 20 24 34 30 30 30 00  75 24 12 02 2E 47 4C 20  |= $4000.u$...GL |
00000490: 56 49 43 20 20 20 20 3D  20 35 33 32 34 38 00 8C  |VIC    = 53248..|
000004A0: 24 1C 02 2E 47 4C 20 47  45 54 4B 45 59 20 3D 20  |$...GL GETKEY = |
000004B0: 24 45 35 42 34 00 A3 24  26 02 2E 47 4C 20 43 49  |$E5B4..$&..GL CI|
000004C0: 41 32 20 20 20 3D 20 35  36 35 37 36 00 BA 24 30  |A2   = 56576..$0|
000004D0: 02 2E 47 4C 20 43 48 52  4F 55 54 20 3D 20 24 46  |..GL CHROUT = $F|
000004E0: 46 44 32 00 D1 24 3A 02  2E 47 4C 20 43 55 52 53  |FD2..$:..GL CURS|
000004F0: 4F 52 20 3D 20 24 45 35  30 43 00 E8 24 44 02 2E  |OR = $E50C..$D..|
00000500: 47 4C 20 53 45 54 4C 46  53 20 3D 20 24 46 46 42  |GL SETLFS = $FFB|
00000510: 41 00 FF 24 4E 02 2E 47  4C 20 53 45 54 4E 41 4D  |A..$N..GL SETNAM|
00000520: 20 3D 20 24 46 46 42 44  00 16 25 58 02 2E 47 4C  | = $FFBD..%X..GL|
00000530: 20 4C 4F 41 44 20 20 20  3D 20 24 46 46 44 35 00  | LOAD   = $FFD5.|
00000540: 2D 25 62 02 2E 47 4C 20  53 41 56 45 20 20 20 3D  |-%b..GL SAVE   =|
00000550: 20 24 46 46 44 38 00 44  25 6C 02 2E 47 4C 20 4F  | $FFD8.D%l..GL O|
00000560: 50 45 4E 20 20 20 3D 20  24 46 46 43 30 00 5B 25  |PEN   = $FFC0.[%|
00000570: 76 02 2E 47 4C 20 43 48  4B 49 4E 20 20 3D 20 24  |v..GL CHKIN  = $|
00000580: 46 46 43 36 00 72 25 80  02 2E 47 4C 20 43 48 4B  |FFC6.r%...GL CHK|
00000590: 4F 55 54 20 3D 20 24 46  46 43 39 00 89 25 8A 02  |OUT = $FFC9..%..|
000005A0: 2E 47 4C 20 42 41 53 49  4E 20 20 3D 20 24 46 46  |.GL BASIN  = $FF|
000005B0: 43 46 00 A0 25 94 02 2E  47 4C 20 42 53 4F 55 54  |CF..%...GL BSOUT|
000005C0: 20 20 3D 20 24 46 46 44  32 00 B7 25 9E 02 2E 47  |  = $FFD2..%...G|
000005D0: 4C 20 43 4C 52 43 48 4E  20 3D 20 24 46 46 43 43  |L CLRCHN = $FFCC|
000005E0: 00 CE 25 A8 02 2E 47 4C  20 43 4C 4F 53 45 20 20  |..%...GL CLOSE  |
000005F0: 3D 20 24 46 46 43 33 00  E5 25 B2 02 2E 47 4C 20  |= $FFC3..%...GL |
00000600: 4C 49 53 54 45 4E 20 3D  20 24 46 46 42 31 00 FC  |LISTEN = $FFB1..|
00000610: 25 BC 02 2E 47 4C 20 53  41 4C 49 53 54 20 3D 20  |%...GL SALIST = |
00000620: 24 46 46 39 33 00 13 26  C6 02 2E 47 4C 20 49 45  |$FF93..&...GL IE|
00000630: 43 4F 55 54 20 3D 20 24  46 46 41 38 00 2A 26 D0  |COUT = $FFA8.*&.|
00000640: 02 2E 47 4C 20 55 4E 4C  49 53 54 20 3D 20 24 46  |..GL UNLIST = $F|
00000650: 46 41 45 00 41 26 DA 02  2E 47 4C 20 54 41 4C 4B  |FAE.A&...GL TALK|
00000660: 20 20 20 3D 20 24 46 46  42 34 00 58 26 E4 02 2E  |   = $FFB4.X&...|
00000670: 47 4C 20 53 41 54 41 4C  4B 20 3D 20 24 46 46 39  |GL SATALK = $FF9|
00000680: 36 00 6F 26 EE 02 2E 47  4C 20 53 45 4E 44 43 52  |6.o&...GL SENDCR|
00000690: 20 3D 20 24 41 41 44 37  00 86 26 F8 02 2E 47 4C  | = $AAD7..&...GL|
000006A0: 20 50 4F 53 49 4E 54 20  3D 20 24 42 44 43 44 00  | POSINT = $BDCD.|
000006B0: 9D 26 02 03 2E 47 4C 20  49 45 43 49 4E 20 20 3D  |.&...GL IECIN  =|
000006C0: 20 24 46 46 41 35 00 B4  26 0C 03 2E 47 4C 20 55  | $FFA5..&...GL U|
000006D0: 4E 54 41 4C 4B 20 3D 20  24 46 46 41 42 00 BA 26  |NTALK = $FFAB..&|
000006E0: 16 03 3B 00 C7 26 20 03  20 4C 44 41 23 31 32 38  |..;..& . LDA#128|
000006F0: 00 D3 26 2A 03 20 53 54  41 36 35 30 00 F0 26 34  |..&*. STA650..&4|
00000700: 03 20 4A 53 52 42 41 53  49 43 3B 20 50 52 4F 47  |. JSRBASIC; PROG|
00000710: 52 41 4D 4D 53 54 41 52  54 00 FB 26 3E 03 20 4C  |RAMMSTART..&>. L|
00000720: 44 58 23 30 00 1F 27 48  03 4C 4F 4F 50 31 20 4C  |DX#0..'H.LOOP1 L|
00000730: 44 41 54 45 58 54 31 2C  58 3B 20 54 45 58 54 20  |DATEXT1,X; TEXT |
00000740: 41 55 53 47 45 42 45 4E  00 2A 27 52 03 20 43 4D  |AUSGEBEN.*'R. CM|
00000750: 50 23 30 00 38 27 5C 03  20 42 45 51 45 4E 44 4C  |P#0.8'\. BEQENDL|
00000760: 31 00 46 27 66 03 20 4A  53 52 42 53 4F 55 54 00  |1.F'f. JSRBSOUT.|
00000770: 4F 27 70 03 20 49 4E 58  00 5D 27 7A 03 20 4A 4D  |O'p. INX.]'z. JM|
00000780: 50 4C 4F 4F 50 31 00 71  27 84 03 45 4E 44 4C 31  |PLOOP1.q'..ENDL1|
00000790: 20 4A 53 52 46 49 4C 54  45 52 00 7F 27 8E 03 20  | JSRFILTER..'.. |
000007A0: 4A 4D 50 4D 45 4E 55 45  00 85 27 98 03 3B 00 9B  |JMPMENUE..'..;..|
000007B0: 27 A2 03 54 45 58 54 31  20 2E 42 59 31 34 32 2C  |'..TEXT1 .BY142,|
000007C0: 38 2C 33 30 00 AE 27 AC  03 20 2E 54 58 22 93 11  |8,30..'.. .TX"..|
000007D0: 11 11 11 11 11 12 22 00  E1 27 B6 03 20 2E 54 58  |......"..'.. .TX|
000007E0: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
000007F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000800: 20 20 20 20 20 20 20 20  20 22 00 14 28 C0 03 20  |         "..(.. |
00000810: 2E 54 58 22 20 20 20 20  20 20 20 20 20 20 20 43  |.TX"           C|
00000820: 4F 4C 4F 52 50 52 49 4E  54 50 52 4F 47 52 41 4D  |OLORPRINTPROGRAM|
00000830: 20 20 20 20 20 20 20 20  20 20 20 20 22 00 47 28  |            ".G(|
00000840: CA 03 20 2E 54 58 22 20  20 20 20 20 20 20 20 20  |.. .TX"         |
00000850: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000860: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00000870: 00 56 28 D4 03 20 2E 54  58 22 11 11 11 1F 22 00  |.V(.. .TX"....".|
00000880: 8A 28 DE 03 20 2E 54 58  22 20 28 43 29 20 31 39  |.(.. .TX" (C) 19|
00000890: 38 36 2F 38 37 20 42 59  20 47 2E 42 4C 49 43 4B  |86/87 BY G.BLICK|
000008A0: 4D 41 4E 4E 20 26 20 52  2E 42 45 4E 49 4E 44 45  |MANN & R.BENINDE|
000008B0: 20 92 22 00 94 28 E8 03  20 2E 42 59 30 00 9A 28  | ."..(.. .BY0..(|
000008C0: F2 03 3B 00 A0 28 FC 03  3B 00 C9 28 06 04 47 52  |..;..(..;..(..GR|
000008D0: 41 31 20 4C 44 41 23 32  35 35 3B 20 47 52 41 46  |A1 LDA#255; GRAF|
000008E0: 49 4B 42 45 52 45 49 43  48 20 24 32 30 30 30 20  |IKBEREICH $2000 |
000008F0: 41 4E 00 D6 28 10 04 20  53 54 41 43 49 41 32 00  |AN..(.. STACIA2.|
00000900: E5 28 1A 04 20 53 54 41  47 52 41 46 4C 47 00 F1  |.(.. STAGRAFLG..|
00000910: 28 24 04 20 4C 44 41 23  32 34 00 FF 28 2E 04 20  |($. LDA#24..(.. |
00000920: 53 54 41 35 33 32 37 30  00 0B 29 38 04 20 4C 44  |STA53270..)8. LD|
00000930: 41 23 35 39 00 19 29 42  04 20 53 54 41 35 33 32  |A#59..)B. STA532|
00000940: 36 35 00 25 29 4C 04 20  4C 44 41 23 32 34 00 33  |65.%)L. LDA#24.3|
00000950: 29 56 04 20 53 54 41 35  33 32 37 32 00 3C 29 60  |)V. STA53272.<)`|
00000960: 04 20 52 54 53 00 42 29  6A 04 3B 00 48 29 74 04  |. RTS.B)j.;.H)t.|
00000970: 3B 00 71 29 7E 04 47 52  41 32 20 4C 44 41 23 32  |;.q)~.GRA2 LDA#2|
00000980: 35 34 3B 20 47 52 41 46  49 4B 42 45 52 45 49 43  |54; GRAFIKBEREIC|
00000990: 48 20 24 34 30 30 30 20  41 4E 00 7E 29 88 04 20  |H $4000 AN.~).. |
000009A0: 53 54 41 43 49 41 32 00  8D 29 92 04 20 53 54 41  |STACIA2..).. STA|
000009B0: 47 52 41 46 4C 47 00 99  29 9C 04 20 4C 44 41 23  |GRAFLG..).. LDA#|
000009C0: 32 34 00 A7 29 A6 04 20  53 54 41 35 33 32 37 30  |24..).. STA53270|
000009D0: 00 B3 29 B0 04 20 4C 44  41 23 35 39 00 C1 29 BA  |..).. LDA#59..).|
000009E0: 04 20 53 54 41 35 33 32  36 35 00 CD 29 C4 04 20  |. STA53265..).. |
000009F0: 4C 44 41 23 31 36 00 DB  29 CE 04 20 53 54 41 35  |LDA#16..).. STA5|
00000A00: 33 32 37 32 00 E4 29 D8  04 20 52 54 53 00 EA 29  |3272..).. RTS..)|
00000A10: E2 04 3B 00 F0 29 EC 04  3B 00 06 2A F6 04 3B 20  |..;..)..;..*..; |
00000A20: 46 41 52 42 45 20 49 53  4F 4C 49 45 52 45 4E 00  |FARBE ISOLIEREN.|
00000A30: 0C 2A 00 05 3B 00 25 2A  0A 05 42 20 2E 42 59 30  |.*..;.%*..B .BY0|
00000A40: 3B 43 4F 4C 46 49 4C 54  45 52 20 30 2D 33 00 45  |;COLFILTER 0-3.E|
00000A50: 2A 14 05 56 20 2E 42 59  30 3B 56 45 52 47 4C 45  |*..V .BY0;VERGLE|
00000A60: 49 43 48 53 57 45 52 54  20 32 20 42 49 54 00 63  |ICHSWERT 2 BIT.c|
00000A70: 2A 1E 05 50 20 2E 42 59  30 3B 41 55 53 5A 55 47  |*..P .BY0;AUSZUG|
00000A80: 45 42 45 4E 44 45 53 20  42 59 54 45 00 7D 2A 28  |EBENDES BYTE.}*(|
00000A90: 05 41 20 2E 42 59 30 3B  47 45 4C 45 53 45 4E 45  |.A .BY0;GELESENE|
00000AA0: 53 20 42 59 54 45 00 83  2A 32 05 3B 00 96 2A 3C  |S BYTE..*2.;..*<|
00000AB0: 05 46 49 4C 54 45 52 20  4C 44 41 23 24 32 30 00  |.FILTER LDA#$20.|
00000AC0: A5 2A 46 05 20 53 54 41  41 44 52 31 2B 32 00 B0  |.*F. STAADR1+2..|
00000AD0: 2A 50 05 20 4C 44 41 23  30 00 BF 2A 5A 05 20 53  |*P. LDA#0..*Z. S|
00000AE0: 54 41 41 44 52 31 2B 31  00 D1 2A 64 05 41 44 52  |TAADR1+1..*d.ADR|
00000AF0: 31 20 4C 44 41 24 43 43  43 43 00 DB 2A 6E 05 20  |1 LDA$CCCC..*n. |
00000B00: 53 54 41 41 00 E6 2A 78  05 20 4C 44 58 23 34 00  |STAA..*x. LDX#4.|
00000B10: 0F 2B 82 05 4C 4F 4F 50  32 20 4C 44 41 23 30 3B  |.+..LOOP2 LDA#0;|
00000B20: 46 41 52 42 45 20 41 55  53 20 42 59 54 45 20 49  |FARBE AUS BYTE I|
00000B30: 53 4F 4C 49 45 52 45 4E  00 19 2B 8C 05 20 53 54  |SOLIEREN..+.. ST|
00000B40: 41 56 00 23 2B 96 05 20  52 4F 4C 41 00 2D 2B A0  |AV.#+.. ROLA.-+.|
00000B50: 05 20 52 4F 4C 56 00 37  2B AA 05 20 52 4F 4C 41  |. ROLV.7+.. ROLA|
00000B60: 00 41 2B B4 05 20 52 4F  4C 56 00 4B 2B BE 05 20  |.A+.. ROLV.K+.. |
00000B70: 4C 44 41 56 00 55 2B C8  05 20 43 4D 50 42 00 63  |LDAV.U+.. CMPB.c|
00000B80: 2B D2 05 20 42 45 51 4D  41 52 4B 31 00 6C 2B DC  |+.. BEQMARK1.l+.|
00000B90: 05 20 43 4C 43 00 76 2B  E6 05 20 52 4F 4C 50 00  |. CLC.v+.. ROLP.|
00000BA0: 7F 2B F0 05 20 43 4C 43  00 89 2B FA 05 20 52 4F  |.+.. CLC..+.. RO|
00000BB0: 4C 50 00 97 2B 04 06 20  4A 4D 50 45 4E 44 4C 32  |LP..+.. JMPENDL2|
00000BC0: 00 A5 2B 0E 06 4D 41 52  4B 31 20 53 45 43 00 AF  |..+..MARK1 SEC..|
00000BD0: 2B 18 06 20 52 4F 4C 50  00 B8 2B 22 06 20 53 45  |+.. ROLP..+". SE|
00000BE0: 43 00 C2 2B 2C 06 20 52  4F 4C 50 00 D0 2B 36 06  |C..+,. ROLP..+6.|
00000BF0: 45 4E 44 4C 32 20 44 45  58 00 DE 2B 40 06 20 42  |ENDL2 DEX..+@. B|
00000C00: 4E 45 4C 4F 4F 50 32 00  ED 2B 4A 06 20 4C 44 41  |NELOOP2..+J. LDA|
00000C10: 41 44 52 31 2B 31 00 FC  2B 54 06 20 53 54 41 41  |ADR1+1..+T. STAA|
00000C20: 44 52 32 2B 31 00 0B 2C  5E 06 20 4C 44 41 41 44  |DR2+1..,^. LDAAD|
00000C30: 52 31 2B 32 00 14 2C 68  06 20 43 4C 43 00 21 2C  |R1+2..,h. CLC.!,|
00000C40: 72 06 20 41 44 43 23 24  32 30 00 30 2C 7C 06 20  |r. ADC#$20.0,|. |
00000C50: 53 54 41 41 44 52 32 2B  32 00 3A 2C 86 06 20 4C  |STAADR2+2.:,.. L|
00000C60: 44 41 50 00 4C 2C 90 06  41 44 52 32 20 53 54 41  |DAP.L,..ADR2 STA|
00000C70: 24 43 43 43 43 00 5B 2C  9A 06 20 4C 44 41 41 44  |$CCCC.[,.. LDAAD|
00000C80: 52 31 2B 31 00 64 2C A4  06 20 43 4C 43 00 6F 2C  |R1+1.d,.. CLC.o,|
00000C90: AE 06 20 41 44 43 23 31  00 7E 2C B8 06 20 53 54  |.. ADC#1.~,.. ST|
00000CA0: 41 41 44 52 31 2B 31 00  8D 2C C2 06 20 4C 44 41  |AADR1+1..,.. LDA|
00000CB0: 41 44 52 31 2B 32 00 98  2C CC 06 20 41 44 43 23  |ADR1+2..,.. ADC#|
00000CC0: 30 00 A7 2C D6 06 20 53  54 41 41 44 52 31 2B 32  |0..,.. STAADR1+2|
00000CD0: 00 B4 2C E0 06 20 43 4D  50 23 24 34 30 00 C3 2C  |..,.. CMP#$40..,|
00000CE0: EA 06 20 42 45 51 45 4E  44 46 49 4C 00 E0 2C F4  |.. BEQENDFIL..,.|
00000CF0: 06 20 4A 4D 50 41 44 52  31 3B 20 4E 41 45 43 48  |. JMPADR1; NAECH|
00000D00: 53 54 45 53 20 42 59 54  45 00 EF 2C FE 06 45 4E  |STES BYTE..,..EN|
00000D10: 44 46 49 4C 20 52 54 53  00 F5 2C 08 07 3B 00 FB  |DFIL RTS..,..;..|
00000D20: 2C 12 07 3B 00 23 2D 1C  07 3B 20 46 41 52 42 54  |,..;.#-..; FARBT|
00000D30: 41 42 45 4C 4C 45 20 28  24 32 30 30 30 2D 47 52  |ABELLE ($2000-GR|
00000D40: 41 2F 24 34 30 30 30 2D  54 52 41 29 00 29 2D 26  |A/$4000-TRA).)-&|
00000D50: 07 3B 00 3E 2D 30 07 41  4B 54 20 2E 42 59 30 2C  |.;.>-0.AKT .BY0,|
00000D60: 30 2C 30 2C 30 2C 30 00  55 2D 3A 07 47 52 41 20  |0,0,0,0.U-:.GRA |
00000D70: 2E 42 59 30 2C 31 2C 31  31 2C 31 32 2C 30 00 6A  |.BY0,1,11,12,0.j|
00000D80: 2D 44 07 54 52 41 20 2E  42 59 31 2C 36 2C 30 2C  |-D.TRA .BY1,6,0,|
00000D90: 30 2C 31 00 70 2D 4E 07  3B 00 76 2D 58 07 3B 00  |0,1.p-N.;.v-X.;.|
00000DA0: A5 2D 62 07 3B 20 41 4B  54 55 45 4C 4C 45 20 46  |.-b.; AKTUELLE F|
00000DB0: 41 52 42 45 4E 20 41 55  53 20 46 41 52 42 54 41  |ARBEN AUS FARBTA|
00000DC0: 42 45 4C 4C 45 20 4B 4F  50 49 45 52 45 4E 00 AB  |BELLE KOPIEREN..|
00000DD0: 2D 6C 07 3B 00 CF 2D 76  07 47 52 41 43 4F 4C 20  |-l.;..-v.GRACOL |
00000DE0: 4C 44 58 23 35 3B 20 46  55 45 52 20 47 52 41 46  |LDX#5; FUER GRAF|
00000DF0: 49 4B 20 24 32 30 30 30  00 DD 2D 80 07 4C 4F 4F  |IK $2000..-..LOO|
00000E00: 50 33 20 44 45 58 00 EB  2D 8A 07 20 4C 44 41 47  |P3 DEX..-.. LDAG|
00000E10: 52 41 2C 58 00 F9 2D 94  07 20 53 54 41 41 4B 54  |RA,X..-.. STAAKT|
00000E20: 2C 58 00 04 2E 9E 07 20  43 50 58 23 30 00 12 2E  |,X..... CPX#0...|
00000E30: A8 07 20 42 4E 45 4C 4F  4F 50 33 00 21 2E B2 07  |.. BNELOOP3.!...|
00000E40: 20 4A 4D 50 53 45 54 43  4F 4C 00 27 2E BC 07 3B  | JMPSETCOL.'...;|
00000E50: 00 4B 2E C6 07 54 52 41  43 4F 4C 20 4C 44 58 23  |.K...TRACOL LDX#|
00000E60: 35 3B 20 46 55 45 52 20  47 52 41 46 49 4B 20 24  |5; FUER GRAFIK $|
00000E70: 34 30 30 30 00 59 2E D0  07 4C 4F 4F 50 34 20 44  |4000.Y...LOOP4 D|
00000E80: 45 58 00 67 2E DA 07 20  4C 44 41 54 52 41 2C 58  |EX.g... LDATRA,X|
00000E90: 00 75 2E E4 07 20 53 54  41 41 4B 54 2C 58 00 80  |.u... STAAKT,X..|
00000EA0: 2E EE 07 20 43 50 58 23  30 00 8E 2E F8 07 20 42  |... CPX#0..... B|
00000EB0: 4E 45 4C 4F 4F 50 34 00  9D 2E 02 08 20 4A 4D 50  |NELOOP4..... JMP|
00000EC0: 53 45 54 43 4F 4C 00 A3  2E 0C 08 3B 00 C4 2E 16  |SETCOL.....;....|
00000ED0: 08 53 45 54 43 4F 4C 20  4C 44 41 41 4B 54 3B 20  |.SETCOL LDAAKT; |
00000EE0: 46 41 52 42 45 4E 20 53  45 54 5A 45 4E 00 D3 2E  |FARBEN SETZEN...|
00000EF0: 20 08 20 53 54 41 56 49  43 2B 33 33 00 E0 2E 2A  | . STAVIC+33...*|
00000F00: 08 20 4C 44 58 23 32 34  39 00 F3 2E 34 08 4C 4F  |. LDX#249...4.LO|
00000F10: 4F 50 35 20 4C 44 41 41  4B 54 2B 31 00 03 2F 3E  |OP5 LDAAKT+1../>|
00000F20: 08 20 53 54 41 35 35 32  39 36 2C 58 00 13 2F 48  |. STA55296,X../H|
00000F30: 08 20 53 54 41 35 35 35  34 36 2C 58 00 23 2F 52  |. STA55546,X.#/R|
00000F40: 08 20 53 54 41 35 35 37  39 36 2C 58 00 33 2F 5C  |. STA55796,X.3/\|
00000F50: 08 20 53 54 41 35 36 30  34 36 2C 58 00 41 2F 66  |. STA56046,X.A/f|
00000F60: 08 20 4C 44 41 41 4B 54  2B 32 00 4A 2F 70 08 20  |. LDAAKT+2.J/p. |
00000F70: 43 4C 43 00 53 2F 7A 08  20 52 4F 4C 00 5C 2F 84  |CLC.S/z. ROL.\/.|
00000F80: 08 20 43 4C 43 00 65 2F  8E 08 20 52 4F 4C 00 6E  |. CLC.e/.. ROL.n|
00000F90: 2F 98 08 20 43 4C 43 00  77 2F A2 08 20 52 4F 4C  |/.. CLC.w/.. ROL|
00000FA0: 00 80 2F AC 08 20 43 4C  43 00 89 2F B6 08 20 52  |../.. CLC../.. R|
00000FB0: 4F 4C 00 92 2F C0 08 20  43 4C 43 00 A0 2F CA 08  |OL../.. CLC../..|
00000FC0: 20 41 44 43 41 4B 54 2B  33 00 AF 2F D4 08 20 53  | ADCAKT+3../.. S|
00000FD0: 54 41 31 30 32 34 2C 58  00 BE 2F DE 08 20 53 54  |TA1024,X../.. ST|
00000FE0: 41 31 32 37 34 2C 58 00  CD 2F E8 08 20 53 54 41  |A1274,X../.. STA|
00000FF0: 31 35 32 34 2C 58 00 DC  2F F2 08 20 53 54 41 31  |1524,X../.. STA1|
00001000: 37 37 34 2C 58 00 E7 2F  FC 08 20 43 50 58 23 30  |774,X../.. CPX#0|
00001010: 00 F5 2F 06 09 20 42 45  51 45 4E 44 4C 35 00 FE  |../.. BEQENDL5..|
00001020: 2F 10 09 20 44 45 58 00  0C 30 1A 09 20 4A 4D 50  |/.. DEX..0.. JMP|
00001030: 4C 4F 4F 50 35 00 1F 30  24 09 45 4E 44 4C 35 20  |LOOP5..0$.ENDL5 |
00001040: 4C 44 41 41 4B 54 2B 34  00 2D 30 2E 09 20 53 54  |LDAAKT+4.-0.. ST|
00001050: 41 35 33 32 38 30 00 36  30 38 09 20 52 54 53 00  |A53280.608. RTS.|
00001060: 3C 30 42 09 3B 00 42 30  4C 09 3B 00 62 30 56 09  |<0B.;.B0L.;.b0V.|
00001070: 3B 20 4D 45 4E 55 45 20  4D 49 54 20 54 41 53 54  |; MENUE MIT TAST|
00001080: 41 54 55 52 41 42 46 52  41 47 45 00 68 30 60 09  |ATURABFRAGE.h0`.|
00001090: 3B 00 79 30 6A 09 46 20  2E 42 59 30 3B 20 46 4C  |;.y0j.F .BY0; FL|
000010A0: 41 47 00 A2 30 74 09 47  52 41 46 4C 47 20 2E 42  |AG..0t.GRAFLG .B|
000010B0: 59 30 3B 20 46 4C 41 47  20 28 24 32 30 30 30 20  |Y0; FLAG ($2000 |
000010C0: 4F 44 45 52 20 24 34 30  30 30 29 00 A8 30 7E 09  |ODER $4000)..0~.|
000010D0: 3B 00 BA 30 88 09 4D 45  4E 55 45 20 4A 53 52 47  |;..0..MENUE JSRG|
000010E0: 52 41 31 00 C9 30 92 09  20 4A 53 52 47 52 41 43  |RA1..0.. JSRGRAC|
000010F0: 4F 4C 00 D4 30 9C 09 20  4C 44 41 23 30 00 E0 30  |OL..0.. LDA#0..0|
00001100: A6 09 20 53 54 41 31 39  38 00 EE 30 B0 09 20 4A  |.. STA198..0.. J|
00001110: 4D 50 4C 4F 4F 50 36 00  0E 31 BA 09 53 55 42 4D  |MPLOOP6..1..SUBM|
00001120: 45 4E 20 4A 53 52 54 52  41 43 4F 4C 3B 20 45 49  |EN JSRTRACOL; EI|
00001130: 4E 53 50 52 55 4E 47 00  27 31 C4 09 4C 4F 4F 50  |NSPRUNG.'1..LOOP|
00001140: 36 20 4C 44 41 31 39 38  3B 20 54 41 53 54 45 3F  |6 LDA198; TASTE?|
00001150: 00 32 31 CE 09 20 43 4D  50 23 30 00 46 31 D8 09  |.21.. CMP#0.F1..|
00001160: 20 42 45 51 4C 4F 4F 50  36 3B 20 4E 45 49 4E 00  | BEQLOOP6; NEIN.|
00001170: 4C 31 E2 09 3B 00 5B 31  EC 09 20 4A 53 52 47 45  |L1..;.[1.. JSRGE|
00001180: 54 4B 45 59 00 68 31 F6  09 20 43 4D 50 23 22 5F  |TKEY.h1.. CMP#"_|
00001190: 22 00 75 31 00 0A 20 42  45 51 53 55 42 31 00 82  |".u1.. BEQSUB1..|
000011A0: 31 0A 0A 20 43 4D 50 23  22 31 22 00 8F 31 14 0A  |1.. CMP#"1"..1..|
000011B0: 20 42 45 51 53 55 42 32  00 9C 31 1E 0A 20 43 4D  | BEQSUB2..1.. CM|
000011C0: 50 23 22 32 22 00 A9 31  28 0A 20 42 45 51 53 55  |P#"2"..1(. BEQSU|
000011D0: 42 32 00 B6 31 32 0A 20  43 4D 50 23 22 33 22 00  |B2..12. CMP#"3".|
000011E0: C3 31 3C 0A 20 42 45 51  53 55 42 32 00 D0 31 46  |.1<. BEQSUB2..1F|
000011F0: 0A 20 43 4D 50 23 22 34  22 00 DD 31 50 0A 20 42  |. CMP#"4"..1P. B|
00001200: 45 51 53 55 42 32 00 EA  31 5A 0A 20 43 4D 50 23  |EQSUB2..1Z. CMP#|
00001210: 22 50 22 00 F7 31 64 0A  20 42 45 51 53 55 42 35  |"P"..1d. BEQSUB5|
00001220: 00 04 32 6E 0A 20 43 4D  50 23 22 4C 22 00 11 32  |..2n. CMP#"L"..2|
00001230: 78 0A 20 42 45 51 53 55  42 36 00 1E 32 82 0A 20  |x. BEQSUB6..2.. |
00001240: 43 4D 50 23 22 53 22 00  2B 32 8C 0A 20 42 45 51  |CMP#"S".+2.. BEQ|
00001250: 53 55 42 37 00 38 32 96  0A 20 43 4D 50 23 22 51  |SUB7.82.. CMP#"Q|
00001260: 22 00 45 32 A0 0A 20 42  45 51 51 55 49 54 00 52  |".E2.. BEQQUIT.R|
00001270: 32 AA 0A 20 43 4D 50 23  22 44 22 00 5F 32 B4 0A  |2.. CMP#"D"._2..|
00001280: 20 42 45 51 53 55 42 38  00 6C 32 BE 0A 20 43 4D  | BEQSUB8.l2.. CM|
00001290: 50 23 22 43 22 00 79 32  C8 0A 20 42 45 51 53 55  |P#"C".y2.. BEQSU|
000012A0: 42 39 00 86 32 D2 0A 20  43 4D 50 23 22 48 22 00  |B9..2.. CMP#"H".|
000012B0: 94 32 DC 0A 20 42 45 51  53 55 42 31 30 00 AE 32  |.2.. BEQSUB10..2|
000012C0: E6 0A 20 43 4D 50 23 22  AF 22 3B 20 43 4F 4D 4D  |.. CMP#"."; COMM|
000012D0: 4F 44 4F 52 45 2D 50 00  BC 32 F0 0A 20 42 45 51  |ODORE-P..2.. BEQ|
000012E0: 53 55 42 31 31 00 CD 32  FA 0A 20 43 4D 50 23 32  |SUB11..2.. CMP#2|
000012F0: 30 3B 20 44 45 4C 00 DB  32 04 0B 20 42 45 51 53  |0; DEL..2.. BEQS|
00001300: 55 42 31 32 00 E8 32 0E  0B 20 43 4D 50 23 22 2B  |UB12..2.. CMP#"+|
00001310: 22 00 F6 32 18 0B 20 42  45 51 53 55 42 31 33 00  |"..2.. BEQSUB13.|
00001320: 03 33 22 0B 20 43 4D 50  23 22 2D 22 00 11 33 2C  |.3". CMP#"-"..3,|
00001330: 0B 20 42 45 51 53 55 42  31 34 00 17 33 36 0B 3B  |. BEQSUB14..36.;|
00001340: 00 30 33 40 0B 20 4C 44  58 47 52 41 46 4C 47 3B  |.03@. LDXGRAFLG;|
00001350: 20 46 41 52 42 45 4E 20  3F 00 3D 33 4A 0B 20 43  | FARBEN ?.=3J. C|
00001360: 50 58 23 32 35 34 00 4B  33 54 0B 20 42 45 51 4C  |PX#254.K3T. BEQL|
00001370: 4F 4F 50 36 00 5A 33 5E  0B 20 4A 4D 50 4D 45 4E  |OOP6.Z3^. JMPMEN|
00001380: 55 45 32 00 60 33 68 0B  3B 00 66 33 72 0B 3B 00  |UE2.`3h.;.f3r.;.|
00001390: 7A 33 7C 0B 3B 20 53 50  52 55 4E 47 54 41 42 45  |z3|.; SPRUNGTABE|
000013A0: 4C 4C 45 00 80 33 86 0B  3B 00 A8 33 90 0B 53 55  |LLE..3..;..3..SU|
000013B0: 42 31 20 4A 4D 50 47 52  41 46 4F 4E 3B 20 4F 52  |B1 JMPGRAFON; OR|
000013C0: 49 47 49 4E 41 4C 42 49  4C 44 20 5A 45 49 47 45  |IGINALBILD ZEIGE|
000013D0: 4E 00 D3 33 9A 0B 53 55  42 32 20 4A 4D 50 54 52  |N..3..SUB2 JMPTR|
000013E0: 41 4E 53 3B 20 42 49 4C  44 20 46 49 4C 54 45 52  |ANS; BILD FILTER|
000013F0: 4E 20 55 4E 44 20 5A 45  49 47 45 4E 00 F7 33 A4  |N UND ZEIGEN..3.|
00001400: 0B 53 55 42 33 20 4A 4D  50 46 4B 54 55 4E 47 3B  |.SUB3 JMPFKTUNG;|
00001410: 20 46 41 52 42 45 20 3D  20 46 41 52 42 45 2B 31  | FARBE = FARBE+1|
00001420: 00 1B 34 AE 0B 53 55 42  34 20 4A 4D 50 46 4B 54  |..4..SUB4 JMPFKT|
00001430: 47 45 52 3B 20 46 41 52  42 45 20 3D 20 46 41 52  |GER; FARBE = FAR|
00001440: 42 45 2D 31 00 49 34 B8  0B 53 55 42 35 20 4A 53  |BE-1.I4..SUB5 JS|
00001450: 52 44 52 55 43 4B 45 4E  3B 20 47 45 46 49 4C 54  |RDRUCKEN; GEFILT|
00001460: 45 52 54 45 53 20 42 49  4C 44 20 44 52 55 43 4B  |ERTES BILD DRUCK|
00001470: 45 4E 00 58 34 D6 0B 20  4A 4D 50 53 55 42 4D 45  |EN.X4.. JMPSUBME|
00001480: 4E 00 80 34 E0 0B 53 55  42 36 20 4A 4D 50 4C 41  |N..4..SUB6 JMPLA|
00001490: 44 45 4E 3B 20 4E 45 55  45 53 20 4F 52 49 47 49  |DEN; NEUES ORIGI|
000014A0: 4E 41 4C 20 4C 41 44 45  4E 00 B2 34 EA 0B 53 55  |NAL LADEN..4..SU|
000014B0: 42 37 20 4A 4D 50 53 50  45 49 43 48 45 52 4E 3B  |B7 JMPSPEICHERN;|
000014C0: 20 47 45 46 49 4C 54 45  52 54 45 53 20 42 49 4C  | GEFILTERTES BIL|
000014D0: 44 20 53 50 45 49 43 48  45 52 4E 00 D3 34 F4 0B  |D SPEICHERN..4..|
000014E0: 53 55 42 38 20 4A 4D 50  44 49 52 3B 20 44 49 52  |SUB8 JMPDIR; DIR|
000014F0: 45 43 54 4F 52 59 20 4C  41 44 45 4E 00 F7 34 FE  |ECTORY LADEN..4.|
00001500: 0B 53 55 42 39 20 4A 4D  50 46 4C 4F 50 50 59 3B  |.SUB9 JMPFLOPPY;|
00001510: 20 4B 4F 4D 4D 41 4E 44  4F 20 53 45 4E 44 45 4E  | KOMMANDO SENDEN|
00001520: 00 13 35 08 0C 53 55 42  31 30 20 4A 4D 50 48 45  |..5..SUB10 JMPHE|
00001530: 4C 50 3B 20 48 45 4C 50  50 41 47 45 00 27 35 12  |LP; HELPPAGE.'5.|
00001540: 0C 53 55 42 31 31 20 4C  44 41 44 52 4B 46 4C 47  |.SUB11 LDADRKFLG|
00001550: 00 32 35 1C 0C 20 43 4D  50 23 30 00 41 35 26 0C  |.25.. CMP#0.A5&.|
00001560: 20 42 45 51 4D 41 52 4B  31 37 00 50 35 30 0C 20  | BEQMARK17.P50. |
00001570: 4A 4D 50 44 52 4B 50 41  52 00 64 35 3A 0C 4D 41  |JMPDRKPAR.d5:.MA|
00001580: 52 4B 31 37 20 4A 4D 50  4C 4F 4F 50 36 00 7A 35  |RK17 JMPLOOP6.z5|
00001590: 44 0C 53 55 42 31 32 20  4A 4D 50 47 52 41 31 44  |D.SUB12 JMPGRA1D|
000015A0: 4F 57 4E 00 8B 35 4E 0C  53 55 42 31 33 20 4A 4D  |OWN..5N.SUB13 JM|
000015B0: 50 58 55 50 00 9E 35 58  0C 53 55 42 31 34 20 4A  |PXUP..5X.SUB14 J|
000015C0: 4D 50 58 44 4F 57 4E 00  C1 35 62 0C 51 55 49 54  |MPXDOWN..5b.QUIT|
000015D0: 20 4A 53 52 42 41 53 49  43 3B 20 50 52 4F 47 52  | JSRBASIC; PROGR|
000015E0: 41 4D 4D 41 42 42 52 55  43 48 00 CA 35 6C 0C 20  |AMMABBRUCH..5l. |
000015F0: 52 54 53 00 D0 35 76 0C  3B 00 D6 35 80 0C 3B 00  |RTS..5v.;..5..;.|
00001600: ED 35 8A 0C 4D 45 4E 55  45 32 20 43 4D 50 23 22  |.5..MENUE2 CMP#"|
00001610: 85 22 3B 20 46 31 00 FA  35 94 0C 20 42 45 51 53  |."; F1..5.. BEQS|
00001620: 55 42 33 00 0B 36 9E 0C  20 43 4D 50 23 22 86 22  |UB3..6.. CMP#"."|
00001630: 3B 20 46 33 00 18 36 A8  0C 20 42 45 51 53 55 42  |; F3..6.. BEQSUB|
00001640: 33 00 29 36 B2 0C 20 43  4D 50 23 22 87 22 3B 20  |3.)6.. CMP#"."; |
00001650: 46 35 00 36 36 BC 0C 20  42 45 51 53 55 42 33 00  |F5.66.. BEQSUB3.|
00001660: 47 36 C6 0C 20 43 4D 50  23 22 88 22 3B 20 46 37  |G6.. CMP#"."; F7|
00001670: 00 54 36 D0 0C 20 42 45  51 53 55 42 33 00 65 36  |.T6.. BEQSUB3.e6|
00001680: DA 0C 20 43 4D 50 23 22  89 22 3B 20 46 32 00 72  |.. CMP#"."; F2.r|
00001690: 36 E4 0C 20 42 45 51 53  55 42 34 00 83 36 EE 0C  |6.. BEQSUB4..6..|
000016A0: 20 43 4D 50 23 22 8A 22  3B 20 46 34 00 90 36 F8  | CMP#"."; F4..6.|
000016B0: 0C 20 42 45 51 53 55 42  34 00 A1 36 02 0D 20 43  |. BEQSUB4..6.. C|
000016C0: 4D 50 23 22 8B 22 3B 20  46 36 00 AE 36 0C 0D 20  |MP#"."; F6..6.. |
000016D0: 42 45 51 53 55 42 34 00  BF 36 16 0D 20 43 4D 50  |BEQSUB4..6.. CMP|
000016E0: 23 22 8C 22 3B 20 46 38  00 CC 36 20 0D 20 42 45  |#"."; F8..6 . BE|
000016F0: 51 53 55 42 34 00 DA 36  2A 0D 20 4A 4D 50 4C 4F  |QSUB4..6*. JMPLO|
00001700: 4F 50 36 00 E0 36 34 0D  3B 00 E6 36 3E 0D 3B 00  |OP6..64.;..6>.;.|
00001710: 0F 37 48 0D 42 41 53 49  43 20 4A 53 52 24 45 35  |.7H.BASIC JSR$E5|
00001720: 34 34 3B 20 55 4D 53 43  48 41 4C 54 55 4E 47 20  |44; UMSCHALTUNG |
00001730: 41 55 46 20 54 45 58 54  00 1A 37 52 0D 20 4C 44  |AUF TEXT..7R. LD|
00001740: 41 23 30 00 28 37 5C 0D  20 53 54 41 35 33 32 38  |A#0.(7\. STA5328|
00001750: 30 00 36 37 66 0D 20 53  54 41 35 33 32 38 31 00  |0.67f. STA53281.|
00001760: 41 37 70 0D 20 4C 44 41  23 35 00 4D 37 7A 0D 20  |A7p. LDA#5.M7z. |
00001770: 53 54 41 36 34 36 00 5A  37 84 0D 20 4C 44 41 23  |STA646.Z7.. LDA#|
00001780: 32 35 35 00 67 37 8E 0D  20 53 54 41 43 49 41 32  |255.g7.. STACIA2|
00001790: 00 73 37 98 0D 20 4C 44  41 23 32 37 00 82 37 A2  |.s7.. LDA#27..7.|
000017A0: 0D 20 53 54 41 56 49 43  2B 31 37 00 8E 37 AC 0D  |. STAVIC+17..7..|
000017B0: 20 4C 44 41 23 32 31 00  9D 37 B6 0D 20 53 54 41  | LDA#21..7.. STA|
000017C0: 56 49 43 2B 32 34 00 AA  37 C0 0D 20 4C 44 41 23  |VIC+24..7.. LDA#|
000017D0: 32 30 30 00 B9 37 CA 0D  20 53 54 41 56 49 43 2B  |200..7.. STAVIC+|
000017E0: 32 32 00 C2 37 D4 0D 20  52 54 53 00 C8 37 DE 0D  |22..7.. RTS..7..|
000017F0: 3B 00 DD 37 E8 0D 47 52  41 46 4F 4E 20 4A 53 52  |;..7..GRAFON JSR|
00001800: 47 52 41 43 4F 4C 00 EA  37 F2 0D 20 4A 53 52 47  |GRACOL..7.. JSRG|
00001810: 52 41 31 00 F8 37 FC 0D  20 4A 4D 50 4C 4F 4F 50  |RA1..7.. JMPLOOP|
00001820: 36 00 FE 37 06 0E 3B 00  0E 38 10 0E 54 52 41 4E  |6..7..;..8..TRAN|
00001830: 53 20 4C 44 59 23 31 00  17 38 1A 0E 20 53 45 43  |S LDY#1..8.. SEC|
00001840: 00 23 38 24 0E 20 53 42  43 23 34 39 00 2D 38 2E  |.#8$. SBC#49.-8.|
00001850: 0E 20 43 4D 50 42 00 3B  38 38 0E 20 42 45 51 4D  |. CMPB.;88. BEQM|
00001860: 41 52 4B 33 00 45 38 42  0E 20 53 54 41 42 00 59  |ARK3.E8B. STAB.Y|
00001870: 38 4C 0E 4D 41 52 4B 32  20 4A 53 52 54 52 41 43  |8L.MARK2 JSRTRAC|
00001880: 4F 4C 00 66 38 56 0E 20  4A 53 52 47 52 41 32 00  |OL.f8V. JSRGRA2.|
00001890: 71 38 60 0E 20 43 50 59  23 30 00 80 38 6A 0E 20  |q8`. CPY#0..8j. |
000018A0: 42 45 51 45 54 52 41 4E  53 00 8F 38 74 0E 20 4A  |BEQETRANS..8t. J|
000018B0: 53 52 46 49 4C 54 45 52  00 A3 38 7E 0E 45 54 52  |SRFILTER..8~.ETR|
000018C0: 41 4E 53 20 4A 4D 50 4C  4F 4F 50 36 00 A9 38 88  |ANS JMPLOOP6..8.|
000018D0: 0E 3B 00 B9 38 92 0E 4D  41 52 4B 33 20 4C 44 59  |.;..8..MARK3 LDY|
000018E0: 23 30 00 C7 38 9C 0E 20  4A 4D 50 4D 41 52 4B 32  |#0..8.. JMPMARK2|
000018F0: 00 CD 38 A6 0E 3B 00 D3  38 B0 0E 3B 00 E2 38 BA  |..8..;..8..;..8.|
00001900: 0E 46 4B 54 55 4E 47 20  53 45 43 00 EF 38 C4 0E  |.FKTUNG SEC..8..|
00001910: 20 53 42 43 23 31 33 33  00 F8 38 CE 0E 20 54 41  | SBC#133..8.. TA|
00001920: 58 00 06 39 D8 0E 20 4C  44 41 41 4B 54 2C 58 00  |X..9.. LDAAKT,X.|
00001930: 12 39 E2 0E 20 43 4D 50  23 31 35 00 1E 39 EC 0E  |.9.. CMP#15..9..|
00001940: 20 42 4D 49 41 44 44 00  29 39 F6 0E 20 4C 44 41  | BMIADD.)9.. LDA|
00001950: 23 30 00 37 39 00 0F 20  53 54 41 47 52 41 2C 58  |#0.79.. STAGRA,X|
00001960: 00 46 39 0A 0F 20 4A 4D  50 43 4F 50 47 52 41 00  |.F9.. JMPCOPGRA.|
00001970: 52 39 14 0F 41 44 44 20  43 4C 43 00 5D 39 1E 0F  |R9..ADD CLC.]9..|
00001980: 20 41 44 43 23 31 00 6B  39 28 0F 20 53 54 41 47  | ADC#1.k9(. STAG|
00001990: 52 41 2C 58 00 7A 39 32  0F 20 4A 4D 50 43 4F 50  |RA,X.z92. JMPCOP|
000019A0: 47 52 41 00 80 39 3C 0F  3B 00 8F 39 46 0F 46 4B  |GRA..9<.;..9F.FK|
000019B0: 54 47 45 52 20 53 45 43  00 9C 39 50 0F 20 53 42  |TGER SEC..9P. SB|
000019C0: 43 23 31 33 37 00 A5 39  5A 0F 20 54 41 58 00 B3  |C#137..9Z. TAX..|
000019D0: 39 64 0F 20 4C 44 41 47  52 41 2C 58 00 BE 39 6E  |9d. LDAGRA,X..9n|
000019E0: 0F 20 43 4D 50 23 30 00  CA 39 78 0F 20 42 4E 45  |. CMP#0..9x. BNE|
000019F0: 53 55 42 00 D6 39 82 0F  20 4C 44 41 23 31 35 00  |SUB..9.. LDA#15.|
00001A00: E4 39 8C 0F 20 53 54 41  47 52 41 2C 58 00 F3 39  |.9.. STAGRA,X..9|
00001A10: 96 0F 20 4A 4D 50 43 4F  50 47 52 41 00 FF 39 A0  |.. JMPCOPGRA..9.|
00001A20: 0F 53 55 42 20 53 45 43  00 0A 3A AA 0F 20 53 42  |.SUB SEC..:.. SB|
00001A30: 43 23 31 00 18 3A B4 0F  20 53 54 41 47 52 41 2C  |C#1..:.. STAGRA,|
00001A40: 58 00 27 3A BE 0F 20 4A  4D 50 43 4F 50 47 52 41  |X.':.. JMPCOPGRA|
00001A50: 00 2D 3A C8 0F 3B 00 33  3A D2 0F 3B 00 48 3A DC  |.-:..;.3:..;.H:.|
00001A60: 0F 43 4F 50 47 52 41 20  4A 53 52 47 52 41 43 4F  |.COPGRA JSRGRACO|
00001A70: 4C 00 56 3A E6 0F 20 4A  4D 50 4C 4F 4F 50 36 00  |L.V:.. JMPLOOP6.|
00001A80: 5C 3A F0 0F 3B 00 62 3A  FA 0F 3B 00 88 3A 04 10  |\:..;.b:..;..:..|
00001A90: 3B 20 47 52 41 46 49 4B  20 5A 55 4D 20 44 52 55  |; GRAFIK ZUM DRU|
00001AA0: 43 4B 45 4E 20 43 4F 4E  56 45 52 54 49 45 52 45  |CKEN CONVERTIERE|
00001AB0: 4E 00 8E 3A 0E 10 3B 00  A1 3A 18 10 43 53 54 41  |N..:..;..:..CSTA|
00001AC0: 52 54 20 4C 44 41 23 24  30 30 00 AE 3A 22 10 20  |RT LDA#$00..:". |
00001AD0: 4C 44 59 23 24 34 30 00  BE 3A 2C 10 20 53 54 41  |LDY#$40..:,. STA|
00001AE0: 4D 41 52 4B 34 2B 31 00  CE 3A 36 10 20 53 54 41  |MARK4+1..:6. STA|
00001AF0: 4D 41 52 4B 35 2B 31 00  DE 3A 40 10 20 53 54 59  |MARK5+1..:@. STY|
00001B00: 4D 41 52 4B 34 2B 32 00  EE 3A 4A 10 20 53 54 59  |MARK4+2..:J. STY|
00001B10: 4D 41 52 4B 35 2B 32 00  FB 3A 54 10 20 4C 44 59  |MARK5+2..:T. LDY|
00001B20: 23 24 30 37 00 08 3B 5E  10 20 4C 44 58 23 24 30  |#$07..;^. LDX#$0|
00001B30: 37 00 1D 3B 68 10 4D 41  52 4B 34 20 4C 53 52 24  |7..;h.MARK4 LSR$|
00001B40: 34 30 30 38 2C 58 00 26  3B 72 10 20 52 4F 52 00  |4008,X.&;r. ROR.|
00001B50: 2F 3B 7C 10 20 44 45 58  00 3D 3B 86 10 20 42 50  |/;|. DEX.=;.. BP|
00001B60: 4C 4D 41 52 4B 34 00 46  3B 90 10 20 50 48 41 00  |LMARK4.F;.. PHA.|
00001B70: 4F 3B 9A 10 20 44 45 59  00 5F 3B A4 10 20 42 50  |O;.. DEY._;.. BP|
00001B80: 4C 4D 41 52 4B 34 2D 32  00 6C 3B AE 10 20 4C 44  |LMARK4-2.l;.. LD|
00001B90: 58 23 24 30 30 00 75 3B  B8 10 20 50 4C 41 00 8A  |X#$00.u;.. PLA..|
00001BA0: 3B C2 10 4D 41 52 4B 35  20 53 54 41 24 34 30 30  |;..MARK5 STA$400|
00001BB0: 38 2C 58 00 93 3B CC 10  20 49 4E 58 00 A0 3B D6  |8,X..;.. INX..;.|
00001BC0: 10 20 43 50 58 23 24 30  38 00 B0 3B E0 10 20 42  |. CPX#$08..;.. B|
00001BD0: 4E 45 4D 41 52 4B 35 2D  31 00 B9 3B EA 10 20 43  |NEMARK5-1..;.. C|
00001BE0: 4C 43 00 C9 3B F4 10 20  4C 44 41 4D 41 52 4B 34  |LC..;.. LDAMARK4|
00001BF0: 2B 31 00 D6 3B FE 10 20  41 44 43 23 24 30 38 00  |+1..;.. ADC#$08.|
00001C00: E6 3B 08 11 20 53 54 41  4D 41 52 4B 34 2B 31 00  |.;.. STAMARK4+1.|
00001C10: F6 3B 12 11 20 53 54 41  4D 41 52 4B 35 2B 31 00  |.;.. STAMARK5+1.|
00001C20: 06 3C 1C 11 20 4C 44 41  4D 41 52 4B 34 2B 32 00  |.<.. LDAMARK4+2.|
00001C30: 13 3C 26 11 20 41 44 43  23 24 30 30 00 23 3C 30  |.<&. ADC#$00.#<0|
00001C40: 11 20 53 54 41 4D 41 52  4B 34 2B 32 00 33 3C 3A  |. STAMARK4+2.3<:|
00001C50: 11 20 53 54 41 4D 41 52  4B 35 2B 32 00 43 3C 44  |. STAMARK5+2.C<D|
00001C60: 11 20 4C 44 41 4D 41 52  4B 35 2B 32 00 50 3C 4E  |. LDAMARK5+2.P<N|
00001C70: 11 20 43 4D 50 23 24 36  30 00 60 3C 58 11 20 42  |. CMP#$60.`<X. B|
00001C80: 4E 45 4D 41 52 4B 34 2D  34 00 69 3C 62 11 20 52  |NEMARK4-4.i<b. R|
00001C90: 54 53 00 6F 3C 6C 11 3B  00 75 3C 76 11 3B 00 8A  |TS.o<l.;.u<v.;..|
00001CA0: 3C 80 11 3B 20 4F 52 49  47 49 4E 41 4C 20 4C 41  |<..; ORIGINAL LA|
00001CB0: 44 45 4E 00 90 3C 8A 11  3B 00 A3 3C 94 11 4C 41  |DEN..<..;..<..LA|
00001CC0: 44 45 4E 20 4A 53 52 42  41 53 49 43 00 B1 3C 9E  |DEN JSRBASIC..<.|
00001CD0: 11 20 4A 53 52 46 4E 47  45 54 00 BC 3C A8 11 20  |. JSRFNGET..<.. |
00001CE0: 4C 44 58 23 38 00 C7 3C  B2 11 20 4C 44 59 23 30  |LDX#8..<.. LDY#0|
00001CF0: 00 D6 3C BC 11 20 4A 53  52 53 45 54 4C 46 53 00  |..<.. JSRSETLFS.|
00001D00: E4 3C C6 11 20 4C 44 41  24 30 33 33 43 00 F5 3C  |.<.. LDA$033C..<|
00001D10: D0 11 20 4C 44 58 23 3C  28 4E 41 4D 45 29 00 06  |.. LDX#<(NAME)..|
00001D20: 3D DA 11 20 4C 44 59 23  3E 28 4E 41 4D 45 29 00  |=.. LDY#>(NAME).|
00001D30: 15 3D E4 11 20 4A 53 52  53 45 54 4E 41 4D 00 20  |.=.. JSRSETNAM. |
00001D40: 3D EE 11 20 4C 44 58 23  30 00 2D 3D F8 11 20 4C  |=.. LDX#0.-=.. L|
00001D50: 44 59 23 24 32 30 00 38  3D 02 12 20 4C 44 41 23  |DY#$20.8=.. LDA#|
00001D60: 30 00 45 3D 0C 12 20 4A  53 52 4C 4F 41 44 00 52  |0.E=.. JSRLOAD.R|
00001D70: 3D 16 12 20 4A 53 52 57  41 49 54 00 60 3D 20 12  |=.. JSRWAIT.`= .|
00001D80: 20 4A 4D 50 4D 45 4E 55  45 00 66 3D 2A 12 3B 00  | JMPMENUE.f=*.;.|
00001D90: 8F 3D 34 12 4E 41 4D 45  20 2E 54 58 22 20 20 20  |.=4.NAME .TX"   |
00001DA0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 3B  |              ";|
00001DB0: 46 49 4C 45 4E 41 4D 45  00 95 3D 3E 12 3B 00 9B  |FILENAME..=>.;..|
00001DC0: 3D 48 12 3B 00 BD 3D 52  12 3B 20 47 45 46 49 4C  |=H.;..=R.; GEFIL|
00001DD0: 54 45 52 54 45 20 47 52  41 46 49 4B 20 53 50 45  |TERTE GRAFIK SPE|
00001DE0: 49 43 48 45 52 4E 00 C3  3D 5C 12 3B 00 DA 3D 66  |ICHERN..=\.;..=f|
00001DF0: 12 53 50 45 49 43 48 45  52 4E 20 4A 53 52 42 41  |.SPEICHERN JSRBA|
00001E00: 53 49 43 00 E8 3D 70 12  20 4A 53 52 46 4E 47 45  |SIC..=p. JSRFNGE|
00001E10: 54 00 F5 3D 7A 12 20 4C  44 58 23 24 30 38 00 02  |T..=z. LDX#$08..|
00001E20: 3E 84 12 20 4C 44 59 23  24 30 31 00 11 3E 8E 12  |>.. LDY#$01..>..|
00001E30: 20 4A 53 52 53 45 54 4C  46 53 00 1F 3E 98 12 20  | JSRSETLFS..>.. |
00001E40: 4C 44 41 24 30 33 33 43  00 30 3E A2 12 20 4C 44  |LDA$033C.0>.. LD|
00001E50: 58 23 3C 28 4E 41 4D 45  29 00 41 3E AC 12 20 4C  |X#<(NAME).A>.. L|
00001E60: 44 59 23 3E 28 4E 41 4D  45 29 00 50 3E B6 12 20  |DY#>(NAME).P>.. |
00001E70: 4A 53 52 53 45 54 4E 41  4D 00 5D 3E C0 12 20 4C  |JSRSETNAM.]>.. L|
00001E80: 44 58 23 24 30 30 00 6A  3E CA 12 20 4C 44 59 23  |DX#$00.j>.. LDY#|
00001E90: 24 34 30 00 76 3E D4 12  20 53 54 58 24 46 42 00  |$40.v>.. STX$FB.|
00001EA0: 82 3E DE 12 20 53 54 59  24 46 43 00 8F 3E E8 12  |.>.. STY$FC..>..|
00001EB0: 20 4C 44 41 23 24 46 42  00 9C 3E F2 12 20 4C 44  | LDA#$FB..>.. LD|
00001EC0: 58 23 24 30 30 00 A9 3E  FC 12 20 4C 44 59 23 24  |X#$00..>.. LDY#$|
00001ED0: 36 30 00 B6 3E 06 13 20  4A 53 52 53 41 56 45 00  |60..>.. JSRSAVE.|
00001EE0: C3 3E 10 13 20 4A 53 52  57 41 49 54 00 D1 3E 1A  |.>.. JSRWAIT..>.|
00001EF0: 13 20 4A 4D 50 4D 45 4E  55 45 00 D7 3E 24 13 3B  |. JMPMENUE..>$.;|
00001F00: 00 DD 3E 2E 13 3B 00 04  3F 38 13 3B 20 54 45 58  |..>..;..?8.; TEX|
00001F10: 54 20 46 55 45 52 20 46  49 4C 45 4E 41 4D 45 4E  |T FUER FILENAMEN|
00001F20: 45 49 4E 47 41 42 45 20  4C 45 53 45 4E 00 0A 3F  |EINGABE LESEN..?|
00001F30: 42 13 3B 00 1A 3F 4C 13  54 45 58 54 32 20 2E 42  |B.;..?L.TEXT2 .B|
00001F40: 59 33 31 00 31 3F 56 13  20 2E 54 58 22 46 49 4C  |Y31.1?V. .TX"FIL|
00001F50: 45 4E 41 4D 45 4E 20 3A  20 22 00 3E 3F 60 13 20  |ENAMEN : ".>?`. |
00001F60: 2E 42 59 33 30 2C 30 00  44 3F 6A 13 3B 00 54 3F  |.BY30,0.D?j.;.T?|
00001F70: 74 13 46 4E 47 45 54 20  4C 44 58 23 30 00 64 3F  |t.FNGET LDX#0.d?|
00001F80: 7E 13 20 4C 44 41 54 45  58 54 32 2C 58 00 6F 3F  |~. LDATEXT2,X.o?|
00001F90: 88 13 20 43 4D 50 23 30  00 7E 3F 92 13 20 42 45  |.. CMP#0.~?.. BE|
00001FA0: 51 45 4E 44 46 4E 54 00  8C 3F 9C 13 20 4A 53 52  |QENDFNT..?.. JSR|
00001FB0: 42 53 4F 55 54 00 95 3F  A6 13 20 49 4E 58 00 A5  |BSOUT..?.. INX..|
00001FC0: 3F B0 13 20 4A 4D 50 46  4E 47 45 54 2B 32 00 B8  |?.. JMPFNGET+2..|
00001FD0: 3F BA 13 45 4E 44 46 4E  54 20 4C 44 58 23 24 30  |?..ENDFNT LDX#$0|
00001FE0: 30 00 CC 3F C4 13 4C 4F  4F 50 31 31 20 4A 53 52  |0..?..LOOP11 JSR|
00001FF0: 42 41 53 49 4E 00 DB 3F  CE 13 20 53 54 41 4E 41  |BASIN..?.. STANA|
00002000: 4D 45 2C 58 00 E4 3F D8  13 20 49 4E 58 00 F0 3F  |ME,X..?.. INX..?|
00002010: E2 13 20 43 50 58 23 31  37 00 FF 3F EC 13 20 42  |.. CPX#17..?.. B|
00002020: 45 51 45 4E 44 4C 31 31  00 0C 40 F6 13 20 43 4D  |EQENDL11..@.. CM|
00002030: 50 23 24 30 44 00 1B 40  00 14 20 42 4E 45 4C 4F  |P#$0D..@.. BNELO|
00002040: 4F 50 31 31 00 2F 40 0A  14 45 4E 44 4C 31 31 20  |OP11./@..ENDL11 |
00002050: 53 54 58 24 30 33 33 43  00 35 40 14 14 3B 00 4D  |STX$033C.5@..;.M|
00002060: 40 1E 14 20 4C 44 41 23  31 3B 20 46 4C 4F 50 50  |@.. LDA#1; FLOPP|
00002070: 59 52 45 53 45 54 00 58  40 28 14 20 4C 44 58 23  |YRESET.X@(. LDX#|
00002080: 38 00 64 40 32 14 20 4C  44 59 23 31 35 00 73 40  |8.d@2. LDY#15.s@|
00002090: 3C 14 20 4A 53 52 53 45  54 4C 46 53 00 7E 40 46  |<. JSRSETLFS.~@F|
000020A0: 14 20 4C 44 41 23 32 00  90 40 50 14 20 4C 44 58  |. LDA#2..@P. LDX|
000020B0: 23 3C 28 54 45 58 54 33  29 00 A2 40 5A 14 20 4C  |#<(TEXT3)..@Z. L|
000020C0: 44 59 23 3E 28 54 45 58  54 33 29 00 B1 40 64 14  |DY#>(TEXT3)..@d.|
000020D0: 20 4A 53 52 53 45 54 4E  41 4D 00 BE 40 6E 14 20  | JSRSETNAM..@n. |
000020E0: 4A 53 52 4F 50 45 4E 00  C9 40 78 14 20 4C 44 41  |JSROPEN..@x. LDA|
000020F0: 23 31 00 D7 40 82 14 20  4A 53 52 43 4C 4F 53 45  |#1..@.. JSRCLOSE|
00002100: 00 E0 40 8C 14 20 52 54  53 00 E6 40 96 14 3B 00  |..@.. RTS..@..;.|
00002110: 08 41 A0 14 54 45 58 54  33 20 2E 54 58 22 55 3A  |.A..TEXT3 .TX"U:|
00002120: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002130: 22 00 0E 41 AA 14 3B 00  14 41 B4 14 3B 00 2C 41  |"..A..;..A..;.,A|
00002140: BE 14 3B 20 44 49 52 45  43 54 4F 52 59 2D 52 4F  |..; DIRECTORY-RO|
00002150: 55 54 49 4E 45 00 32 41  C8 14 3B 00 43 41 D2 14  |UTINE.2A..;.CA..|
00002160: 54 45 58 54 58 20 2E 54  58 22 24 22 00 52 41 DC  |TEXTX .TX"$".RA.|
00002170: 14 46 4C 47 20 2E 42 59  30 2C 30 00 61 41 E6 14  |.FLG .BY0,0.aA..|
00002180: 44 49 52 4C 4F 20 2E 42  59 30 00 70 41 F0 14 44  |DIRLO .BY0.pA..D|
00002190: 49 52 48 49 20 2E 42 59  30 00 76 41 FA 14 3B 00  |IRHI .BY0.vA..;.|
000021A0: 87 41 04 15 44 49 52 20  4A 53 52 42 41 53 49 43  |.A..DIR JSRBASIC|
000021B0: 00 98 41 0E 15 20 4A 53  52 45 4E 44 4C 31 31 2B  |..A.. JSRENDL11+|
000021C0: 33 00 A3 41 18 15 20 4C  44 58 23 38 00 AE 41 22  |3..A.. LDX#8..A"|
000021D0: 15 20 4C 44 59 23 30 00  BA 41 2C 15 20 53 54 59  |. LDY#0..A,. STY|
000021E0: 36 34 36 00 C8 41 36 15  20 53 54 59 46 4C 47 2B  |646..A6. STYFLG+|
000021F0: 31 00 D4 41 40 15 20 53  54 59 46 4C 47 00 E3 41  |1..A@. STYFLG..A|
00002200: 4A 15 20 4A 53 52 53 45  54 4C 46 53 00 EE 41 54  |J. JSRSETLFS..AT|
00002210: 15 20 4C 44 41 23 31 00  00 42 5E 15 20 4C 44 58  |. LDA#1..B^. LDX|
00002220: 23 3C 28 54 45 58 54 58  29 00 12 42 68 15 20 4C  |#<(TEXTX)..Bh. L|
00002230: 44 59 23 3E 28 54 45 58  54 58 29 00 21 42 72 15  |DY#>(TEXTX).!Br.|
00002240: 20 4A 53 52 53 45 54 4E  41 4D 00 2C 42 7C 15 20  | JSRSETNAM.,B|. |
00002250: 4C 44 41 23 30 00 38 42  86 15 20 53 54 41 46 4C  |LDA#0.8B.. STAFL|
00002260: 47 00 45 42 90 15 20 4C  44 58 23 24 30 30 00 52  |G.EB.. LDX#$00.R|
00002270: 42 9A 15 20 4C 44 59 23  24 36 30 00 5F 42 A4 15  |B.. LDY#$60._B..|
00002280: 20 4A 53 52 4C 4F 41 44  00 6D 42 AE 15 20 53 54  | JSRLOAD.mB.. ST|
00002290: 58 44 49 52 4C 4F 00 7B  42 B8 15 20 53 54 59 44  |XDIRLO.{B.. STYD|
000022A0: 49 52 48 49 00 86 42 C2  15 20 4C 44 41 23 35 00  |IRHI..B.. LDA#5.|
000022B0: 92 42 CC 15 20 53 54 41  36 34 36 00 9F 42 D6 15  |.B.. STA646..B..|
000022C0: 20 4C 44 41 23 31 34 37  00 AD 42 E0 15 20 4A 53  | LDA#147..B.. JS|
000022D0: 52 42 53 4F 55 54 00 BF  42 EA 15 41 55 53 57 45  |RBSOUT..B..AUSWE|
000022E0: 52 54 20 4C 44 58 23 30  00 D0 42 F4 15 20 53 54  |RT LDX#0..B.. ST|
000022F0: 58 4C 4F 4F 50 33 30 2B  31 00 DD 42 FE 15 20 4C  |XLOOP30+1..B.. L|
00002300: 44 58 23 24 36 30 00 EE  42 08 16 20 53 54 58 4C  |DX#$60..B.. STXL|
00002310: 4F 4F 50 33 30 2B 32 00  02 43 12 16 4C 4F 4F 50  |OOP30+2..C..LOOP|
00002320: 33 30 20 4C 44 41 24 43  43 43 43 00 0E 43 1C 16  |30 LDA$CCCC..C..|
00002330: 20 43 4D 50 23 33 34 00  1E 43 26 16 20 42 45 51  | CMP#34..C&. BEQ|
00002340: 46 4C 47 54 45 53 54 00  2A 43 30 16 20 4C 44 58  |FLGTEST.*C0. LDX|
00002350: 46 4C 47 00 35 43 3A 16  20 43 50 58 23 31 00 43  |FLG.5C:. CPX#1.C|
00002360: 43 44 16 20 42 4E 45 41  44 52 55 50 00 49 43 4E  |CD. BNEADRUP.ICN|
00002370: 16 3B 00 57 43 58 16 20  4A 53 52 42 53 4F 55 54  |.;.WCX. JSRBSOUT|
00002380: 00 5D 43 62 16 3B 00 6B  43 6C 16 41 44 52 55 50  |.]Cb.;.kCl.ADRUP|
00002390: 20 43 4C 43 00 7C 43 76  16 20 4C 44 41 4C 4F 4F  | CLC.|Cv. LDALOO|
000023A0: 50 33 30 2B 31 00 87 43  80 16 20 41 44 43 23 31  |P30+1..C.. ADC#1|
000023B0: 00 98 43 8A 16 20 53 54  41 4C 4F 4F 50 33 30 2B  |..C.. STALOOP30+|
000023C0: 31 00 A9 43 94 16 20 4C  44 41 4C 4F 4F 50 33 30  |1..C.. LDALOOP30|
000023D0: 2B 32 00 B4 43 9E 16 20  41 44 43 23 30 00 C5 43  |+2..C.. ADC#0..C|
000023E0: A8 16 20 53 54 41 4C 4F  4F 50 33 30 2B 32 00 D3  |.. STALOOP30+2..|
000023F0: 43 B2 16 20 43 4D 50 44  49 52 48 49 00 E2 43 BC  |C.. CMPDIRHI..C.|
00002400: 16 20 42 4E 45 4C 4F 4F  50 33 30 00 F3 43 C6 16  |. BNELOOP30..C..|
00002410: 20 4C 44 41 4C 4F 4F 50  33 30 2B 31 00 01 44 D0  | LDALOOP30+1..D.|
00002420: 16 20 43 4D 50 44 49 52  4C 4F 00 10 44 DA 16 20  |. CMPDIRLO..D.. |
00002430: 42 4E 45 4C 4F 4F 50 33  30 00 1B 44 E4 16 20 4C  |BNELOOP30..D.. L|
00002440: 44 41 23 30 00 29 44 EE  16 20 53 54 41 44 49 52  |DA#0.)D.. STADIR|
00002450: 4C 4F 00 36 44 F8 16 20  4C 44 41 23 24 36 30 00  |LO.6D.. LDA#$60.|
00002460: 44 44 02 17 20 53 54 41  44 49 52 48 49 00 51 44  |DD.. STADIRHI.QD|
00002470: 0C 17 20 4A 53 52 57 41  49 54 00 5F 44 16 17 20  |.. JSRWAIT._D.. |
00002480: 4A 4D 50 4D 45 4E 55 45  00 65 44 20 17 3B 00 78  |JMPMENUE.eD .;.x|
00002490: 44 2A 17 46 4C 47 54 45  53 54 20 4C 44 58 46 4C  |D*.FLGTEST LDXFL|
000024A0: 47 00 83 44 34 17 20 43  50 58 23 30 00 91 44 3E  |G..D4. CPX#0..D>|
000024B0: 17 20 42 4E 45 57 46 4C  47 54 00 9C 44 48 17 20  |. BNEWFLGT..DH. |
000024C0: 4C 44 58 23 31 00 A8 44  52 17 20 53 54 58 46 4C  |LDX#1..DR. STXFL|
000024D0: 47 00 B6 44 5C 17 20 4A  4D 50 41 44 52 55 50 00  |G..D\. JMPADRUP.|
000024E0: C6 44 66 17 57 46 4C 47  54 20 4C 44 41 23 30 00  |.Df.WFLGT LDA#0.|
000024F0: D2 44 70 17 20 53 54 41  46 4C 47 00 DE 44 7A 17  |.Dp. STAFLG..Dz.|
00002500: 20 4C 44 41 23 31 33 00  EC 44 84 17 20 4A 53 52  | LDA#13..D.. JSR|
00002510: 42 53 4F 55 54 00 FA 44  8E 17 20 49 4E 43 46 4C  |BSOUT..D.. INCFL|
00002520: 47 2B 31 00 08 45 98 17  20 4C 44 58 46 4C 47 2B  |G+1..E.. LDXFLG+|
00002530: 31 00 14 45 A2 17 20 43  50 58 23 32 34 00 24 45  |1..E.. CPX#24.$E|
00002540: AC 17 20 42 45 51 44 49  52 57 41 49 54 00 3A 45  |.. BEQDIRWAIT.:E|
00002550: B6 17 44 49 52 57 41 49  54 42 20 4A 4D 50 41 44  |..DIRWAITB JMPAD|
00002560: 52 55 50 00 47 45 C0 17  20 4A 53 52 57 41 49 54  |RUP.GE.. JSRWAIT|
00002570: 00 55 45 CA 17 20 4A 4D  50 4D 45 4E 55 45 00 5B  |.UE.. JMPMENUE.[|
00002580: 45 D4 17 3B 00 6D 45 DE  17 44 49 52 57 41 49 54  |E..;.mE..DIRWAIT|
00002590: 20 4C 44 58 23 30 00 7B  45 E8 17 20 53 54 58 46  | LDX#0.{E.. STXF|
000025A0: 4C 47 2B 31 00 88 45 F2  17 20 4A 53 52 57 41 49  |LG+1..E.. JSRWAI|
000025B0: 54 00 99 45 FC 17 20 4A  4D 50 44 49 52 57 41 49  |T..E.. JMPDIRWAI|
000025C0: 54 42 00 9F 45 06 18 3B  00 A5 45 10 18 3B 00 C6  |TB..E..;..E..;..|
000025D0: 45 1A 18 3B 20 57 41 52  54 45 4E 20 42 49 53 20  |E..; WARTEN BIS |
000025E0: 54 41 53 54 45 20 47 45  44 52 55 45 43 4B 54 00  |TASTE GEDRUECKT.|
000025F0: CC 45 24 18 3B 00 DB 45  2E 18 57 41 49 54 20 4C  |.E$.;..E..WAIT L|
00002600: 44 41 23 30 00 E7 45 38  18 20 53 54 41 31 39 38  |DA#0..E8. STA198|
00002610: 00 F9 45 42 18 4C 4F 4F  50 31 32 20 4C 44 41 31  |..EB.LOOP12 LDA1|
00002620: 39 38 00 04 46 4C 18 20  43 4D 50 23 30 00 13 46  |98..FL. CMP#0..F|
00002630: 56 18 20 42 45 51 4C 4F  4F 50 31 32 00 1C 46 60  |V. BEQLOOP12..F`|
00002640: 18 20 52 54 53 00 22 46  6A 18 3B 00 28 46 74 18  |. RTS."Fj.;.(Ft.|
00002650: 3B 00 43 46 7E 18 3B 20  46 4C 4F 50 50 59 2D 42  |;.CF~.; FLOPPY-B|
00002660: 45 46 45 48 4C 20 53 45  4E 44 45 4E 00 49 46 88  |EFEHL SENDEN.IF.|
00002670: 18 3B 00 59 46 92 18 54  45 58 54 34 20 2E 42 59  |.;.YF..TEXT4 .BY|
00002680: 33 31 00 74 46 9C 18 20  2E 54 58 22 44 49 53 4B  |31.tF.. .TX"DISK|
00002690: 2D 4B 4F 4D 4D 41 4E 44  4F 20 3A 20 22 00 81 46  |-KOMMANDO : "..F|
000026A0: A6 18 20 2E 42 59 33 30  2C 30 00 87 46 B0 18 3B  |.. .BY30,0..F..;|
000026B0: 00 9B 46 BA 18 46 4C 4F  50 50 59 20 4A 53 52 42  |..F..FLOPPY JSRB|
000026C0: 41 53 49 43 00 AB 46 C4  18 44 4B 47 45 54 20 4C  |ASIC..F..DKGET L|
000026D0: 44 58 23 30 00 BB 46 CE  18 20 4C 44 41 54 45 58  |DX#0..F.. LDATEX|
000026E0: 54 34 2C 58 00 C6 46 D8  18 20 43 4D 50 23 30 00  |T4,X..F.. CMP#0.|
000026F0: D4 46 E2 18 20 42 45 51  45 4E 44 44 4B 00 E2 46  |.F.. BEQENDDK..F|
00002700: EC 18 20 4A 53 52 42 53  4F 55 54 00 EB 46 F6 18  |.. JSRBSOUT..F..|
00002710: 20 49 4E 58 00 FB 46 00  19 20 4A 4D 50 44 4B 47  | INX..F.. JMPDKG|
00002720: 45 54 2B 32 00 0F 47 0A  19 45 4E 44 44 4B 20 4A  |ET+2..G..ENDDK J|
00002730: 53 52 45 4E 44 46 4E 54  00 27 47 14 19 20 4C 44  |SRENDFNT.'G.. LD|
00002740: 41 23 31 3B 20 46 4C 4F  50 50 59 52 45 53 45 54  |A#1; FLOPPYRESET|
00002750: 00 32 47 1E 19 20 4C 44  58 23 38 00 3E 47 28 19  |.2G.. LDX#8.>G(.|
00002760: 20 4C 44 59 23 31 35 00  4D 47 32 19 20 4A 53 52  | LDY#15.MG2. JSR|
00002770: 53 45 54 4C 46 53 00 5B  47 3C 19 20 4C 44 41 24  |SETLFS.[G<. LDA$|
00002780: 30 33 33 43 00 6C 47 46  19 20 4C 44 58 23 3C 28  |033C.lGF. LDX#<(|
00002790: 4E 41 4D 45 29 00 7D 47  50 19 20 4C 44 59 23 3E  |NAME).}GP. LDY#>|
000027A0: 28 4E 41 4D 45 29 00 8C  47 5A 19 20 4A 53 52 53  |(NAME)..GZ. JSRS|
000027B0: 45 54 4E 41 4D 00 99 47  64 19 20 4A 53 52 4F 50  |ETNAM..Gd. JSROP|
000027C0: 45 4E 00 A4 47 6E 19 20  4C 44 41 23 31 00 B2 47  |EN..Gn. LDA#1..G|
000027D0: 78 19 20 4A 53 52 43 4C  4F 53 45 00 BF 47 82 19  |x. JSRCLOSE..G..|
000027E0: 20 4A 53 52 57 41 49 54  00 CD 47 8C 19 20 4A 4D  | JSRWAIT..G.. JM|
000027F0: 50 4D 45 4E 55 45 00 D3  47 96 19 3B 00 D9 47 A0  |PMENUE..G..;..G.|
00002800: 19 3B 00 F5 47 AA 19 3B  20 42 45 46 45 48 4C 53  |.;..G..; BEFEHLS|
00002810: 4C 49 53 54 45 20 41 55  53 47 45 42 45 4E 00 FB  |LISTE AUSGEBEN..|
00002820: 47 B4 19 3B 00 1F 48 BE  19 54 45 58 54 35 20 2E  |G..;..H..TEXT5 .|
00002830: 54 58 22 93 12 1E 20 42  45 46 45 48 4C 53 4C 49  |TX"... BEFEHLSLI|
00002840: 53 54 45 20 92 11 11 22  00 2A 48 C8 19 20 2E 42  |STE ...".*H.. .B|
00002850: 59 31 33 00 53 48 D2 19  20 2E 54 58 22 20 20 20  |Y13.SH.. .TX"   |
00002860: 3C 4C 3E 20 20 20 20 4D  55 4C 54 49 43 4F 4C 4F  |<L>    MULTICOLO|
00002870: 52 42 49 4C 44 20 4C 41  44 45 4E 22 00 5E 48 DC  |RBILD LADEN".^H.|
00002880: 19 20 2E 42 59 31 33 00  8D 48 E6 19 20 2E 54 58  |. .BY13..H.. .TX|
00002890: 22 20 20 20 3C 53 3E 20  20 20 20 47 45 46 49 4C  |"   <S>    GEFIL|
000028A0: 54 45 52 54 45 53 20 42  49 4C 44 20 53 50 45 49  |TERTES BILD SPEI|
000028B0: 43 48 45 52 4E 22 00 98  48 F0 19 20 2E 42 59 31  |CHERN"..H.. .BY1|
000028C0: 33 00 B6 48 FA 19 20 2E  54 58 22 20 20 20 3C 44  |3..H.. .TX"   <D|
000028D0: 3E 20 20 20 20 44 49 52  45 43 54 4F 52 59 22 00  |>    DIRECTORY".|
000028E0: C1 48 04 1A 20 2E 42 59  31 33 00 EB 48 0E 1A 20  |.H.. .BY13..H.. |
000028F0: 2E 54 58 22 20 20 20 3C  43 3E 20 20 20 20 44 49  |.TX"   <C>    DI|
00002900: 53 4B 2D 4B 4F 4D 4D 41  4E 44 4F 20 53 45 4E 44  |SK-KOMMANDO SEND|
00002910: 45 4E 11 22 00 F6 48 18  1A 20 2E 42 59 31 33 00  |EN."..H.. .BY13.|
00002920: 20 49 22 1A 20 2E 54 58  22 20 20 20 3C 5F 3E 20  | I". .TX"   <_> |
00002930: 20 20 20 4F 52 49 47 49  4E 41 4C 47 52 41 46 49  |   ORIGINALGRAFI|
00002940: 4B 20 5A 45 49 47 45 4E  22 00 2B 49 2C 1A 20 2E  |K ZEIGEN".+I,. .|
00002950: 42 59 31 33 00 5D 49 36  1A 20 2E 54 58 22 20 20  |BY13.]I6. .TX"  |
00002960: 3C 31 2D 34 3E 20 20 20  46 41 52 42 45 20 49 53  |<1-4>   FARBE IS|
00002970: 4F 4C 49 45 52 45 4E 20  26 20 42 49 4C 44 20 5A  |OLIEREN & BILD Z|
00002980: 45 49 47 45 4E 22 00 68  49 40 1A 20 2E 42 59 31  |EIGEN".hI@. .BY1|
00002990: 33 00 8C 49 4A 1A 20 2E  54 58 22 20 3C 46 31 2D  |3..IJ. .TX" <F1-|
000029A0: 46 38 3E 20 20 46 41 52  42 45 4E 20 41 45 4E 44  |F8>  FARBEN AEND|
000029B0: 45 52 4E 11 22 00 97 49  54 1A 20 2E 42 59 31 33  |ERN."..IT. .BY13|
000029C0: 00 C6 49 5E 1A 20 2E 54  58 22 20 20 3C 44 45 4C  |..I^. .TX"  <DEL|
000029D0: 3E 20 20 20 4F 52 49 47  49 4E 41 4C 47 52 41 46  |>   ORIGINALGRAF|
000029E0: 49 4B 20 56 45 52 53 43  48 49 45 42 45 4E 22 00  |IK VERSCHIEBEN".|
000029F0: D1 49 68 1A 20 2E 42 59  31 33 00 FD 49 72 1A 20  |.Ih. .BY13..Ir. |
00002A00: 2E 54 58 22 20 20 3C 2B  2F 2D 3E 20 20 20 56 45  |.TX"  <+/->   VE|
00002A10: 52 53 43 48 49 45 42 45  53 43 48 52 49 54 54 57  |RSCHIEBESCHRITTW|
00002A20: 45 49 54 45 11 22 00 08  4A 7C 1A 20 2E 42 59 31  |EITE."..J|. .BY1|
00002A30: 33 00 34 4A 86 1A 20 2E  54 58 22 20 20 20 3C 50  |3.4J.. .TX"   <P|
00002A40: 3E 20 20 20 20 49 53 4F  4C 49 45 52 54 45 20 46  |>    ISOLIERTE F|
00002A50: 41 52 42 45 20 44 52 55  43 4B 45 4E 22 00 3F 4A  |ARBE DRUCKEN".?J|
00002A60: 90 1A 20 2E 42 59 31 33  00 6B 4A 9A 1A 20 2E 54  |.. .BY13.kJ.. .T|
00002A70: 58 22 20 20 3C 43 3D 50  3E 20 20 20 44 52 55 43  |X"  <C=P>   DRUC|
00002A80: 4B 50 41 52 41 4D 45 54  45 52 20 41 45 4E 44 45  |KPARAMETER AENDE|
00002A90: 52 4E 11 22 00 76 4A A4  1A 20 2E 42 59 31 33 00  |RN.".vJ.. .BY13.|
00002AA0: 9B 4A AE 1A 20 2E 54 58  22 20 20 20 3C 51 3E 20  |.J.. .TX"   <Q> |
00002AB0: 20 20 20 50 52 4F 47 52  41 4D 4D 20 42 45 45 4E  |   PROGRAMM BEEN|
00002AC0: 44 45 4E 22 00 A5 4A B8  1A 20 2E 42 59 30 00 AB  |DEN"..J.. .BY0..|
00002AD0: 4A C2 1A 3B 00 BD 4A CC  1A 48 45 4C 50 20 4A 53  |J..;..J..HELP JS|
00002AE0: 52 42 41 53 49 43 00 CF  4A D6 1A 20 4C 44 41 23  |RBASIC..J.. LDA#|
00002AF0: 3C 28 54 45 58 54 35 29  00 E0 4A E0 1A 20 53 54  |<(TEXT5)..J.. ST|
00002B00: 41 4D 41 52 4B 31 36 2B  31 00 F2 4A EA 1A 20 4C  |AMARK16+1..J.. L|
00002B10: 44 41 23 3E 28 54 45 58  54 35 29 00 03 4B F4 1A  |DA#>(TEXT5)..K..|
00002B20: 20 53 54 41 4D 41 52 4B  31 36 2B 32 00 17 4B FE  | STAMARK16+2..K.|
00002B30: 1A 4D 41 52 4B 31 36 20  4C 44 41 24 43 43 43 43  |.MARK16 LDA$CCCC|
00002B40: 00 22 4B 08 1B 20 43 4D  50 23 30 00 31 4B 12 1B  |."K.. CMP#0.1K..|
00002B50: 20 42 45 51 45 4E 44 4D  31 36 00 3F 4B 1C 1B 20  | BEQENDM16.?K.. |
00002B60: 4A 53 52 42 53 4F 55 54  00 48 4B 26 1B 20 43 4C  |JSRBSOUT.HK&. CL|
00002B70: 43 00 59 4B 30 1B 20 4C  44 41 4D 41 52 4B 31 36  |C.YK0. LDAMARK16|
00002B80: 2B 31 00 64 4B 3A 1B 20  41 44 43 23 31 00 75 4B  |+1.dK:. ADC#1.uK|
00002B90: 44 1B 20 53 54 41 4D 41  52 4B 31 36 2B 31 00 86  |D. STAMARK16+1..|
00002BA0: 4B 4E 1B 20 4C 44 41 4D  41 52 4B 31 36 2B 32 00  |KN. LDAMARK16+2.|
00002BB0: 91 4B 58 1B 20 41 44 43  23 30 00 A2 4B 62 1B 20  |.KX. ADC#0..Kb. |
00002BC0: 53 54 41 4D 41 52 4B 31  36 2B 32 00 B1 4B 6C 1B  |STAMARK16+2..Kl.|
00002BD0: 20 4A 4D 50 4D 41 52 4B  31 36 00 C0 4B 76 1B 45  | JMPMARK16..Kv.E|
00002BE0: 4E 44 4D 31 36 20 43 4C  43 00 CC 4B 80 1B 20 4C  |NDM16 CLC..K.. L|
00002BF0: 44 58 23 31 33 00 D8 4B  8A 1B 20 4C 44 59 23 33  |DX#13..K.. LDY#3|
00002C00: 34 00 E7 4B 94 1B 20 4A  53 52 53 45 54 43 52 53  |4..K.. JSRSETCRS|
00002C10: 00 F2 4B 9E 1B 20 4C 44  41 23 30 00 03 4C A8 1B  |..K.. LDA#0..L..|
00002C20: 20 4C 44 58 4C 4F 4F 50  31 37 2B 31 00 12 4C B2  | LDXLOOP17+1..L.|
00002C30: 1B 20 4A 53 52 50 4F 53  49 4E 54 00 1F 4C BC 1B  |. JSRPOSINT..L..|
00002C40: 20 4A 53 52 57 41 49 54  00 2D 4C C6 1B 20 4A 4D  | JSRWAIT.-L.. JM|
00002C50: 50 4D 45 4E 55 45 00 33  4C D0 1B 3B 00 39 4C DA  |PMENUE.3L..;.9L.|
00002C60: 1B 3B 00 6E 4C E4 1B 3B  20 4F 52 49 47 49 4E 41  |.;.nL..; ORIGINA|
00002C70: 4C 47 52 41 46 49 4B 20  55 4D 20 45 49 4E 20 42  |LGRAFIK UM EIN B|
00002C80: 59 54 45 20 4E 41 43 48  20 55 4E 54 45 4E 20 53  |YTE NACH UNTEN S|
00002C90: 43 48 49 45 42 45 4E 00  74 4C EE 1B 3B 00 87 4C  |CHIEBEN.tL..;..L|
00002CA0: F8 1B 47 52 41 31 44 4F  57 4E 20 4C 44 41 23 30  |..GRA1DOWN LDA#0|
00002CB0: 00 98 4C 02 1C 20 53 54  41 4D 41 52 4B 32 34 2B  |..L.. STAMARK24+|
00002CC0: 31 00 A9 4C 0C 1C 20 53  54 41 4D 41 52 4B 32 35  |1..L.. STAMARK25|
00002CD0: 2B 31 00 B6 4C 16 1C 20  4C 44 41 23 24 32 30 00  |+1..L.. LDA#$20.|
00002CE0: C7 4C 20 1C 20 53 54 41  4D 41 52 4B 32 34 2B 32  |.L . STAMARK24+2|
00002CF0: 00 D8 4C 2A 1C 20 53 54  41 4D 41 52 4B 32 35 2B  |..L*. STAMARK25+|
00002D00: 32 00 E9 4C 34 1C 4C 4F  4F 50 31 37 20 4C 44 58  |2..L4.LOOP17 LDX|
00002D10: 23 31 00 FF 4C 3E 1C 4D  41 52 4B 32 34 20 4C 44  |#1..L>.MARK24 LD|
00002D20: 41 24 43 43 43 43 2C 58  00 0A 4D 48 1C 20 4C 44  |A$CCCC,X..MH. LD|
00002D30: 58 23 30 00 20 4D 52 1C  4D 41 52 4B 32 35 20 53  |X#0. MR.MARK25 S|
00002D40: 54 41 24 43 43 43 43 2C  58 00 29 4D 5C 1C 20 43  |TA$CCCC,X.)M\. C|
00002D50: 4C 43 00 3A 4D 66 1C 20  4C 44 41 4D 41 52 4B 32  |LC.:Mf. LDAMARK2|
00002D60: 34 2B 31 00 45 4D 70 1C  20 41 44 43 23 31 00 56  |4+1.EMp. ADC#1.V|
00002D70: 4D 7A 1C 20 53 54 41 4D  41 52 4B 32 34 2B 31 00  |Mz. STAMARK24+1.|
00002D80: 67 4D 84 1C 20 53 54 41  4D 41 52 4B 32 35 2B 31  |gM.. STAMARK25+1|
00002D90: 00 78 4D 8E 1C 20 4C 44  41 4D 41 52 4B 32 34 2B  |.xM.. LDAMARK24+|
00002DA0: 32 00 83 4D 98 1C 20 41  44 43 23 30 00 94 4D A2  |2..M.. ADC#0..M.|
00002DB0: 1C 20 53 54 41 4D 41 52  4B 32 34 2B 32 00 A5 4D  |. STAMARK24+2..M|
00002DC0: AC 1C 20 53 54 41 4D 41  52 4B 32 35 2B 32 00 B2  |.. STAMARK25+2..|
00002DD0: 4D B6 1C 20 43 4D 50 23  24 34 38 00 C1 4D C0 1C  |M.. CMP#$48..M..|
00002DE0: 20 42 4E 45 4C 4F 4F 50  31 37 00 CF 4D CA 1C 20  | BNELOOP17..M.. |
00002DF0: 4A 4D 50 4D 45 4E 55 45  00 D5 4D D4 1C 3B 00 DB  |JMPMENUE..M..;..|
00002E00: 4D DE 1C 3B 00 02 4E E8  1C 3B 20 41 42 53 54 41  |M..;..N..; ABSTA|
00002E10: 4E 44 20 42 45 49 4D 20  56 45 52 53 43 48 49 45  |ND BEIM VERSCHIE|
00002E20: 42 45 4E 20 41 45 4E 44  45 52 4E 00 08 4E F2 1C  |BEN AENDERN..N..|
00002E30: 3B 00 1C 4E FC 1C 58 55  50 20 4C 44 58 4C 4F 4F  |;..N..XUP LDXLOO|
00002E40: 50 31 37 2B 31 00 29 4E  06 1D 20 43 50 58 23 32  |P17+1.)N.. CPX#2|
00002E50: 35 35 00 38 4E 10 1D 20  42 45 51 45 4E 44 58 55  |55.8N.. BEQENDXU|
00002E60: 50 00 49 4E 1A 1D 20 49  4E 43 4C 4F 4F 50 31 37  |P.IN.. INCLOOP17|
00002E70: 2B 31 00 57 4E 24 1D 20  49 4E 43 24 44 30 32 30  |+1.WN$. INC$D020|
00002E80: 00 6B 4E 2E 1D 45 4E 44  58 55 50 20 4A 4D 50 4C  |.kN..ENDXUP JMPL|
00002E90: 4F 4F 50 36 00 71 4E 38  1D 3B 00 87 4E 42 1D 58  |OOP6.qN8.;..NB.X|
00002EA0: 44 4F 57 4E 20 4C 44 58  4C 4F 4F 50 31 37 2B 31  |DOWN LDXLOOP17+1|
00002EB0: 00 92 4E 4C 1D 20 43 50  58 23 31 00 A1 4E 56 1D  |..NL. CPX#1..NV.|
00002EC0: 20 42 45 51 45 4E 44 58  55 50 00 B2 4E 60 1D 20  | BEQENDXUP..N`. |
00002ED0: 44 45 43 4C 4F 4F 50 31  37 2B 31 00 C0 4E 6A 1D  |DECLOOP17+1..Nj.|
00002EE0: 20 49 4E 43 24 44 30 32  30 00 CE 4E 74 1D 20 4A  | INC$D020..Nt. J|
00002EF0: 4D 50 4C 4F 4F 50 36 00  D4 4E 7E 1D 3B 00 DA 4E  |MPLOOP6..N~.;..N|
00002F00: 88 1D 3B 00 E0 4E 92 1D  3B 00 E6 4E 9C 1D 3B 00  |..;..N..;..N..;.|
00002F10: F9 4E A6 1D 3B 20 44 52  55 43 4B 52 4F 55 54 49  |.N..; DRUCKROUTI|
00002F20: 4E 45 00 FF 4E B0 1D 3B  00 35 4F BA 1D 44 52 4B  |NE..N..;.5O..DRK|
00002F30: 46 4C 47 20 2E 42 59 31  3B 20 46 4C 41 47 2C 20  |FLG .BY1; FLAG, |
00002F40: 4F 42 20 50 41 52 41 4D  45 54 45 52 41 45 4E 44  |OB PARAMETERAEND|
00002F50: 45 52 55 4E 47 20 4D 4F  45 47 4C 49 43 48 00 6A  |ERUNG MOEGLICH.j|
00002F60: 4F C4 1D 44 52 4B 50 41  52 20 4A 4D 50 50 41 52  |O..DRKPAR JMPPAR|
00002F70: 41 45 4E 44 3B 20 45 49  4E 53 50 52 55 4E 47 41  |AEND; EINSPRUNGA|
00002F80: 44 52 45 53 53 45 20 46  55 45 52 20 41 45 4E 44  |DRESSE FUER AEND|
00002F90: 45 52 4E 00 80 4F CE 1D  44 52 55 43 4B 45 4E 20  |ERN..O..DRUCKEN |
00002FA0: 4A 53 52 43 53 54 41 52  54 00 A0 4F D8 1D 20 4C  |JSRCSTART..O.. L|
00002FB0: 44 58 23 30 30 3B 20 44  52 55 43 4B 53 45 49 54  |DX#00; DRUCKSEIT|
00002FC0: 45 20 41 42 4C 45 47 45  4E 00 AC 4F E2 1D 20 53  |E ABLEGEN..O.. S|
00002FD0: 54 58 24 46 37 00 B8 4F  EC 1D 20 4C 44 58 23 36  |TX$F7..O.. LDX#6|
00002FE0: 34 00 C4 4F F6 1D 20 53  54 58 24 46 38 00 CA 4F  |4..O.. STX$F8..O|
00002FF0: 00 1E 3B 00 E4 4F 0A 1E  20 4C 44 41 23 31 3B 20  |..;..O.. LDA#1; |
00003000: 4B 41 4E 41 4C 20 4F 45  46 46 4E 45 4E 00 F6 4F  |KANAL OEFFNEN..O|
00003010: 14 1E 20 4C 44 58 23 34  3B 20 4B 41 4E 41 4C 00  |.. LDX#4; KANAL.|
00003020: 19 50 1E 1E 4D 41 52 4B  32 31 20 4C 44 59 23 30  |.P..MARK21 LDY#0|
00003030: 3B 20 53 45 4B 55 4E 44  41 45 52 41 44 52 45 53  |; SEKUNDAERADRES|
00003040: 53 45 00 28 50 28 1E 20  4A 53 52 53 45 54 4C 46  |SE.(P(. JSRSETLF|
00003050: 53 00 33 50 32 1E 20 4C  44 41 23 30 00 42 50 3C  |S.3P2. LDA#0.BP<|
00003060: 1E 20 4A 53 52 53 45 54  4E 41 4D 00 4F 50 46 1E  |. JSRSETNAM.OPF.|
00003070: 20 4A 53 52 4F 50 45 4E  00 55 50 50 1E 3B 00 73  | JSROPEN.UPP.;.s|
00003080: 50 5A 1E 20 4C 44 58 23  31 3B 20 41 55 53 47 41  |PZ. LDX#1; AUSGA|
00003090: 42 45 20 41 55 46 20 44  41 54 45 49 00 82 50 64  |BE AUF DATEI..Pd|
000030A0: 1E 20 4A 53 52 43 48 4B  4F 55 54 00 88 50 6E 1E  |. JSRCHKOUT..Pn.|
000030B0: 3B 00 AC 50 78 1E 20 4C  44 41 23 32 37 3B 5A 45  |;..Px. LDA#27;ZE|
000030C0: 49 4C 45 4E 41 42 53 54  41 4E 44 20 38 2F 37 32  |ILENABSTAND 8/72|
000030D0: 20 5A 4F 4C 4C 00 BA 50  82 1E 20 4A 53 52 42 53  | ZOLL..P.. JSRBS|
000030E0: 4F 55 54 00 C6 50 8C 1E  20 4C 44 41 23 36 35 00  |OUT..P.. LDA#65.|
000030F0: D4 50 96 1E 20 4A 53 52  42 53 4F 55 54 00 DF 50  |.P.. JSRBSOUT..P|
00003100: A0 1E 20 4C 44 41 23 38  00 ED 50 AA 1E 20 4A 53  |.. LDA#8..P.. JS|
00003110: 52 42 53 4F 55 54 00 F8  50 B4 1E 20 4C 44 59 23  |RBSOUT..P.. LDY#|
00003120: 30 00 06 51 BE 1E 20 53  54 59 24 38 30 30 30 00  |0..Q.. STY$8000.|
00003130: 0C 51 C8 1E 3B 00 1D 51  D2 1E 4C 4F 4F 50 37 20  |.Q..;..Q..LOOP7 |
00003140: 4C 44 58 23 32 30 00 29  51 DC 1E 20 4C 44 41 23  |LDX#20.)Q.. LDA#|
00003150: 33 32 00 3A 51 E6 1E 4C  4F 4F 50 31 35 20 43 50  |32.:Q..LOOP15 CP|
00003160: 58 23 30 00 49 51 F0 1E  20 42 45 51 45 4E 44 4C  |X#0.IQ.. BEQENDL|
00003170: 31 35 00 57 51 FA 1E 20  4A 53 52 42 53 4F 55 54  |15.WQ.. JSRBSOUT|
00003180: 00 60 51 04 1F 20 44 45  58 00 6F 51 0E 1F 20 4A  |.`Q.. DEX.oQ.. J|
00003190: 4D 50 4C 4F 4F 50 31 35  00 98 51 18 1F 45 4E 44  |MPLOOP15..Q..END|
000031A0: 4C 31 35 20 4C 44 41 23  32 37 3B 20 50 52 49 4E  |L15 LDA#27; PRIN|
000031B0: 54 23 31 2C 45 53 43 20  2A 2C 4D 2C 4E 31 2C 4E  |T#1,ESC *,M,N1,N|
000031C0: 32 00 A6 51 22 1F 20 4A  53 52 42 53 4F 55 54 00  |2..Q". JSRBSOUT.|
000031D0: B2 51 2C 1F 20 4C 44 41  23 34 32 00 C0 51 36 1F  |.Q,. LDA#42..Q6.|
000031E0: 20 4A 53 52 42 53 4F 55  54 00 D1 51 40 1F 4D 41  | JSRBSOUT..Q@.MA|
000031F0: 52 4B 32 32 20 4C 44 41  23 30 00 DF 51 4A 1F 20  |RK22 LDA#0..QJ. |
00003200: 4A 53 52 42 53 4F 55 54  00 EB 51 54 1F 20 4C 44  |JSRBSOUT..QT. LD|
00003210: 41 23 36 34 00 F9 51 5E  1F 20 4A 53 52 42 53 4F  |A#64..Q^. JSRBSO|
00003220: 55 54 00 04 52 68 1F 20  4C 44 41 23 31 00 12 52  |UT..Rh. LDA#1..R|
00003230: 72 1F 20 4A 53 52 42 53  4F 55 54 00 18 52 7C 1F  |r. JSRBSOUT..R|.|
00003240: 3B 00 24 52 86 1F 20 4C  44 59 23 30 30 00 32 52  |;.$R.. LDY#00.2R|
00003250: 90 1F 20 53 54 59 24 38  30 30 31 00 40 52 9A 1F  |.. STY$8001.@R..|
00003260: 20 53 54 59 24 38 30 30  32 00 46 52 A4 1F 3B 00  | STY$8002.FR..;.|
00003270: 65 52 AE 1F 20 4C 44 58  23 30 3B 20 45 49 4E 45  |eR.. LDX#0; EINE|
00003280: 20 5A 45 49 4C 45 20 44  52 55 43 4B 45 4E 00 73  | ZEILE DRUCKEN.s|
00003290: 52 B8 1F 20 53 54 58 24  38 30 30 31 00 83 52 C2  |R.. STX$8001..R.|
000032A0: 1F 4C 4F 4F 50 38 20 4C  44 58 23 30 00 91 52 CC  |.LOOP8 LDX#0..R.|
000032B0: 1F 20 53 54 58 24 38 30  30 32 00 A6 52 D6 1F 4C  |. STX$8002..R..L|
000032C0: 4F 4F 50 39 20 4C 44 41  28 24 46 37 29 2C 59 00  |OOP9 LDA($F7),Y.|
000032D0: B4 52 E0 1F 20 4A 53 52  42 53 4F 55 54 00 BD 52  |.R.. JSRBSOUT..R|
000032E0: EA 1F 20 43 4C 43 00 C9  52 F4 1F 20 4C 44 41 24  |.. CLC..R.. LDA$|
000032F0: 46 37 00 D4 52 FE 1F 20  41 44 43 23 31 00 E0 52  |F7..R.. ADC#1..R|
00003300: 08 20 20 53 54 41 24 46  37 00 EC 52 12 20 20 4C  |.  STA$F7..R.  L|
00003310: 44 41 24 46 38 00 F7 52  1C 20 20 41 44 43 23 30  |DA$F8..R.  ADC#0|
00003320: 00 03 53 26 20 20 53 54  41 24 46 38 00 09 53 30  |..S&  STA$F8..S0|
00003330: 20 3B 00 17 53 3A 20 20  49 4E 43 24 38 30 30 32  | ;..S:  INC$8002|
00003340: 00 25 53 44 20 20 49 4E  43 24 44 30 32 30 00 33  |.%SD  INC$D020.3|
00003350: 53 4E 20 20 4C 44 58 24  38 30 30 32 00 3F 53 58  |SN  LDX$8002.?SX|
00003360: 20 20 43 50 58 23 34 30  00 4D 53 62 20 20 42 4E  |  CPX#40.MSb  BN|
00003370: 45 4C 4F 4F 50 39 00 5B  53 6C 20 20 49 4E 43 24  |ELOOP9.[Sl  INC$|
00003380: 38 30 30 31 00 69 53 76  20 20 49 4E 43 24 44 30  |8001.iSv  INC$D0|
00003390: 32 31 00 77 53 80 20 20  4C 44 41 24 38 30 30 31  |21.wS.  LDA$8001|
000033A0: 00 82 53 8A 20 20 43 4D  50 23 38 00 90 53 94 20  |..S.  CMP#8..S. |
000033B0: 20 42 4E 45 4C 4F 4F 50  38 00 96 53 9E 20 3B 00  | BNELOOP8..S. ;.|
000033C0: AC 53 A8 20 20 4C 44 41  23 31 30 3B 20 4C 49 4E  |.S.  LDA#10; LIN|
000033D0: 45 46 45 45 44 00 C0 53  B2 20 4D 41 52 4B 31 38  |EFEED..S. MARK18|
000033E0: 20 4A 53 52 42 53 4F 55  54 00 DD 53 BC 20 20 4C  | JSRBSOUT..S.  L|
000033F0: 44 41 23 31 33 3B 20 43  41 52 52 49 41 47 45 20  |DA#13; CARRIAGE |
00003400: 52 45 54 55 52 4E 00 F1  53 C6 20 4D 41 52 4B 31  |RETURN..S. MARK1|
00003410: 39 20 4A 53 52 42 53 4F  55 54 00 F7 53 D0 20 3B  |9 JSRBSOUT..S. ;|
00003420: 00 03 54 DA 20 20 4C 44  58 23 32 35 00 21 54 E4  |..T.  LDX#25.!T.|
00003430: 20 20 49 4E 43 24 38 30  30 30 3B 20 4E 41 45 43  |  INC$8000; NAEC|
00003440: 48 53 54 45 20 5A 45 49  4C 45 00 2F 54 EE 20 20  |HSTE ZEILE./T.  |
00003450: 4C 44 58 24 38 30 30 30  00 3B 54 F8 20 20 43 50  |LDX$8000.;T.  CP|
00003460: 58 23 32 35 00 49 54 02  21 20 42 4E 45 4C 4F 4F  |X#25.IT.! BNELOO|
00003470: 50 37 00 4F 54 0C 21 3B  00 66 54 16 21 4D 41 52  |P7.OT.!;.fT.!MAR|
00003480: 4B 32 30 20 4A 4D 50 45  44 52 55 43 4B 45 4E 00  |K20 JMPEDRUCKEN.|
00003490: 6C 54 20 21 3B 00 99 54  2A 21 4C 4F 4F 50 31 30  |lT !;..T*!LOOP10|
000034A0: 20 4C 44 41 23 32 37 3B  20 50 41 50 49 45 52 20  | LDA#27; PAPIER |
000034B0: 5A 55 52 55 45 43 4B 20  4E 2F 32 31 36 20 5A 4F  |ZURUECK N/216 ZO|
000034C0: 4C 4C 00 A7 54 34 21 20  4A 53 52 42 53 4F 55 54  |LL..T4! JSRBSOUT|
000034D0: 00 B4 54 3E 21 20 4C 44  41 23 31 30 36 00 C2 54  |..T>! LDA#106..T|
000034E0: 48 21 20 4A 53 52 42 53  4F 55 54 00 CE 54 52 21  |H! JSRBSOUT..TR!|
000034F0: 20 4C 44 41 23 32 34 00  DC 54 5C 21 20 4A 53 52  | LDA#24..T\! JSR|
00003500: 42 53 4F 55 54 00 E5 54  66 21 20 44 45 58 00 F4  |BSOUT..Tf! DEX..|
00003510: 54 70 21 20 42 4E 45 4C  4F 4F 50 31 30 00 FA 54  |Tp! BNELOOP10..T|
00003520: 7A 21 3B 00 11 55 84 21  45 44 52 55 43 4B 45 4E  |z!;..U.!EDRUCKEN|
00003530: 20 4A 53 52 43 4C 52 43  48 4E 00 1C 55 8E 21 20  | JSRCLRCHN..U.! |
00003540: 4C 44 41 23 31 00 2A 55  98 21 20 4A 53 52 43 4C  |LDA#1.*U.! JSRCL|
00003550: 4F 53 45 00 39 55 9D 21  20 4A 53 52 43 53 54 41  |OSE.9U.! JSRCSTA|
00003560: 52 54 00 42 55 A2 21 20  52 54 53 00 48 55 AC 21  |RT.BU.! RTS.HU.!|
00003570: 3B 00 4E 55 B6 21 3B 00  6B 55 C0 21 3B 20 44 52  |;.NU.!;.kU.!; DR|
00003580: 55 43 4B 50 41 52 41 4D  45 54 45 52 20 41 45 4E  |UCKPARAMETER AEN|
00003590: 44 45 52 4E 00 71 55 CA  21 3B 00 9F 55 D4 21 54  |DERN.qU.!;..U.!T|
000035A0: 45 58 54 36 20 2E 54 58  22 12 1E 20 20 44 52 55  |EXT6 .TX"..  DRU|
000035B0: 43 4B 50 41 52 41 4D 45  54 45 52 20 41 45 4E 44  |CKPARAMETER AEND|
000035C0: 45 52 4E 20 92 11 11 22  00 AA 55 DE 21 20 2E 42  |ERN ..."..U.! .B|
000035D0: 59 31 33 00 C4 55 E8 21  20 2E 54 58 22 20 20 20  |Y13..U.! .TX"   |
000035E0: 3C 31 3E 20 20 4E 55 52  20 43 52 11 22 00 CF 55  |<1>  NUR CR."..U|
000035F0: F2 21 20 2E 42 59 31 33  00 E9 55 FC 21 20 2E 54  |.! .BY13..U.! .T|
00003600: 58 22 20 20 20 3C 32 3E  20 20 4E 55 52 20 4C 46  |X"   <2>  NUR LF|
00003610: 11 22 00 F4 55 06 22 20  2E 42 59 31 33 00 12 56  |."..U." .BY13..V|
00003620: 10 22 20 2E 54 58 22 20  20 20 3C 33 3E 20 20 4C  |." .TX"   <3>  L|
00003630: 46 20 55 4E 44 20 43 52  11 11 22 00 1D 56 1A 22  |F UND CR.."..V."|
00003640: 20 2E 42 59 31 33 00 49  56 24 22 20 2E 54 58 22  | .BY13.IV$" .TX"|
00003650: 20 20 20 3C 34 3E 20 20  50 41 50 49 45 52 52 55  |   <4>  PAPIERRU|
00003660: 45 43 4B 4C 41 55 46 20  4D 4F 45 47 4C 49 43 48  |ECKLAUF MOEGLICH|
00003670: 11 22 00 54 56 2E 22 20  2E 42 59 31 33 00 87 56  |.".TV." .BY13..V|
00003680: 38 22 20 2E 54 58 22 20  20 20 3C 35 3E 20 20 50  |8" .TX"   <5>  P|
00003690: 41 50 49 45 52 52 55 45  43 4B 4C 41 55 46 20 4E  |APIERRUECKLAUF N|
000036A0: 49 43 48 54 20 4D 4F 45  47 4C 49 43 48 11 11 22  |ICHT MOEGLICH.."|
000036B0: 00 92 56 42 22 20 2E 42  59 31 33 00 AB 56 4C 22  |..VB" .BY13..VL"|
000036C0: 20 2E 54 58 22 20 20 20  3C 51 3E 20 20 51 55 49  | .TX"   <Q>  QUI|
000036D0: 54 11 11 22 00 B6 56 56  22 20 2E 42 59 31 33 00  |T.."..VV" .BY13.|
000036E0: D5 56 60 22 20 2E 54 58  22 20 20 20 3C 54 3E 20  |.V`" .TX"   <T> |
000036F0: 20 4C 49 4E 4B 45 52 20  52 41 4E 44 11 22 00 E0  | LINKER RAND."..|
00003700: 56 6A 22 20 2E 42 59 31  33 00 FF 56 74 22 20 2E  |Vj" .BY13..Vt" .|
00003710: 54 58 22 20 20 20 3C 53  3E 20 20 53 45 4B 2D 41  |TX"   <S>  SEK-A|
00003720: 44 52 45 53 53 45 11 22  00 0A 57 7E 22 20 2E 42  |DRESSE."..W~" .B|
00003730: 59 31 33 00 28 57 88 22  20 2E 54 58 22 20 20 20  |Y13.(W." .TX"   |
00003740: 3C 42 3E 20 20 42 49 4C  44 47 52 4F 45 53 53 45  |<B>  BILDGROESSE|
00003750: 22 00 32 57 92 22 20 2E  42 59 30 00 38 57 9C 22  |".2W." .BY0.8W."|
00003760: 3B 00 4D 57 A6 22 50 41  52 41 45 4E 44 20 4A 53  |;.MW."PARAEND JS|
00003770: 52 42 41 53 49 43 00 58  57 B0 22 20 4C 44 58 23  |RBASIC.XW." LDX#|
00003780: 30 00 6E 57 BA 22 4C 4F  4F 50 31 33 20 4C 44 41  |0.nW."LOOP13 LDA|
00003790: 54 45 58 54 36 2C 58 00  79 57 C4 22 20 43 4D 50  |TEXT6,X.yW." CMP|
000037A0: 23 30 00 88 57 CE 22 20  42 45 51 45 4E 44 4C 31  |#0..W." BEQENDL1|
000037B0: 33 00 96 57 D8 22 20 4A  53 52 42 53 4F 55 54 00  |3..W." JSRBSOUT.|
000037C0: 9F 57 E2 22 20 49 4E 58  00 AE 57 EC 22 20 4A 4D  |.W." INX..W." JM|
000037D0: 50 4C 4F 4F 50 31 33 00  C4 57 F6 22 45 4E 44 4C  |PLOOP13..W."ENDL|
000037E0: 31 33 20 4A 53 52 50 41  52 41 55 53 47 00 D8 57  |13 JSRPARAUSG..W|
000037F0: 00 23 4C 4F 4F 50 31 34  20 53 54 41 24 44 30 32  |.#LOOP14 STA$D02|
00003800: 30 00 E7 57 0A 23 20 4A  53 52 50 46 41 55 53 47  |0..W.# JSRPFAUSG|
00003810: 00 F3 57 14 23 20 4C 44  41 31 39 38 00 FE 57 1E  |..W.# LDA198..W.|
00003820: 23 20 43 4D 50 23 30 00  0D 58 28 23 20 42 45 51  |# CMP#0..X(# BEQ|
00003830: 4C 4F 4F 50 31 34 00 1C  58 32 23 20 4A 53 52 47  |LOOP14..X2# JSRG|
00003840: 45 54 4B 45 59 00 29 58  3C 23 20 43 4D 50 23 22  |ETKEY.)X<# CMP#"|
00003850: 31 22 00 37 58 46 23 20  42 45 51 4E 55 52 43 52  |1".7XF# BEQNURCR|
00003860: 00 44 58 50 23 20 43 4D  50 23 22 32 22 00 52 58  |.DXP# CMP#"2".RX|
00003870: 5A 23 20 42 45 51 4E 55  52 4C 46 00 5F 58 64 23  |Z# BEQNURLF._Xd#|
00003880: 20 43 4D 50 23 22 33 22  00 6F 58 6E 23 20 42 45  | CMP#"3".oXn# BE|
00003890: 51 43 52 55 4E 44 4C 46  00 7C 58 78 23 20 43 4D  |QCRUNDLF.|Xx# CM|
000038A0: 50 23 22 34 22 00 8B 58  82 23 20 42 45 51 52 4D  |P#"4"..X.# BEQRM|
000038B0: 4F 45 47 4C 00 98 58 8C  23 20 43 4D 50 23 22 35  |OEGL..X.# CMP#"5|
000038C0: 22 00 AA 58 96 23 20 42  45 51 52 4E 4F 54 4D 4F  |"..X.# BEQRNOTMO|
000038D0: 45 47 4C 00 B7 58 A0 23  20 43 4D 50 23 22 51 22  |EGL..X.# CMP#"Q"|
000038E0: 00 C8 58 AA 23 20 42 45  51 45 50 41 52 41 45 4E  |..X.# BEQEPARAEN|
000038F0: 44 00 D5 58 B4 23 20 43  4D 50 23 22 54 22 00 E1  |D..X.# CMP#"T"..|
00003900: 58 BE 23 20 42 45 51 54  41 42 00 EE 58 C8 23 20  |X.# BEQTAB..X.# |
00003910: 43 4D 50 23 22 53 22 00  FA 58 D2 23 20 42 45 51  |CMP#"S"..X.# BEQ|
00003920: 53 45 4B 00 07 59 DC 23  20 43 4D 50 23 22 42 22  |SEK..Y.# CMP#"B"|
00003930: 00 14 59 E6 23 20 42 45  51 53 49 5A 45 00 23 59  |..Y.# BEQSIZE.#Y|
00003940: F0 23 20 4A 4D 50 4C 4F  4F 50 31 34 00 29 59 FA  |.# JMPLOOP14.)Y.|
00003950: 23 3B 00 3B 59 04 24 4E  55 52 43 52 20 4A 53 52  |#;.;Y.$NURCR JSR|
00003960: 43 52 4F 4E 00 49 59 0E  24 20 4A 53 52 4C 46 4F  |CRON.IY.$ JSRLFO|
00003970: 46 46 00 58 59 18 24 20  4A 4D 50 4C 4F 4F 50 31  |FF.XY.$ JMPLOOP1|
00003980: 34 00 6A 59 22 24 4E 55  52 4C 46 20 4A 53 52 4C  |4.jY"$NURLF JSRL|
00003990: 46 4F 4E 00 78 59 2C 24  20 4A 53 52 43 52 4F 46  |FON.xY,$ JSRCROF|
000039A0: 46 00 87 59 36 24 20 4A  4D 50 4C 4F 4F 50 31 34  |F..Y6$ JMPLOOP14|
000039B0: 00 9B 59 40 24 43 52 55  4E 44 4C 46 20 4A 53 52  |..Y@$CRUNDLF JSR|
000039C0: 4C 46 4F 4E 00 A8 59 4A  24 20 4A 53 52 43 52 4F  |LFON..YJ$ JSRCRO|
000039D0: 4E 00 B7 59 54 24 20 4A  4D 50 4C 4F 4F 50 31 34  |N..YT$ JMPLOOP14|
000039E0: 00 CD 59 5E 24 52 4D 4F  45 47 4C 20 4A 53 52 52  |..Y^$RMOEGL JSRR|
000039F0: 55 45 43 4B 4F 4E 00 DC  59 68 24 20 4A 4D 50 4C  |UECKON..Yh$ JMPL|
00003A00: 4F 4F 50 31 34 00 F6 59  72 24 52 4E 4F 54 4D 4F  |OOP14..Yr$RNOTMO|
00003A10: 45 47 4C 20 4A 53 52 52  55 45 43 4B 4F 46 46 00  |EGL JSRRUECKOFF.|
00003A20: 05 5A 7C 24 20 4A 4D 50  4C 4F 4F 50 31 34 00 1A  |.Z|$ JMPLOOP14..|
00003A30: 5A 86 24 45 50 41 52 41  45 4E 44 20 4A 53 52 47  |Z.$EPARAEND JSRG|
00003A40: 52 41 32 00 29 5A 90 24  20 4A 4D 50 53 55 42 4D  |RA2.)Z.$ JMPSUBM|
00003A50: 45 4E 00 2F 5A 9A 24 3B  00 42 5A A4 24 54 41 42  |EN./Z.$;.BZ.$TAB|
00003A60: 20 4A 4D 50 54 41 42 41  45 4E 44 00 55 5A AE 24  | JMPTABAEND.UZ.$|
00003A70: 53 45 4B 20 4A 4D 50 53  45 4B 41 45 4E 44 00 6A  |SEK JMPSEKAEND.j|
00003A80: 5A B8 24 53 49 5A 45 20  4A 4D 50 53 49 5A 45 41  |Z.$SIZE JMPSIZEA|
00003A90: 45 4E 44 00 70 5A C2 24  3B 00 8D 5A CC 24 43 52  |END.pZ.$;..Z.$CR|
00003AA0: 4F 4E 20 4C 44 41 23 24  32 30 3B 20 4A 4D 50 2D  |ON LDA#$20; JMP-|
00003AB0: 42 45 46 45 48 4C 00 9C  5A D6 24 20 53 54 41 4D  |BEFEHL..Z.$ STAM|
00003AC0: 41 52 4B 31 39 00 AE 5A  E0 24 20 4C 44 41 23 3C  |ARK19..Z.$ LDA#<|
00003AD0: 28 42 53 4F 55 54 29 00  BF 5A EA 24 20 53 54 41  |(BSOUT)..Z.$ STA|
00003AE0: 4D 41 52 4B 31 39 2B 31  00 D1 5A F4 24 20 4C 44  |MARK19+1..Z.$ LD|
00003AF0: 41 23 3E 28 42 53 4F 55  54 29 00 E2 5A FE 24 20  |A#>(BSOUT)..Z.$ |
00003B00: 53 54 41 4D 41 52 4B 31  39 2B 32 00 EB 5A 08 25  |STAMARK19+2..Z.%|
00003B10: 20 52 54 53 00 F1 5A 12  25 3B 00 0F 5B 1C 25 43  | RTS..Z.%;..[.%C|
00003B20: 52 4F 46 46 20 4C 44 41  23 24 45 41 3B 20 4E 4F  |ROFF LDA#$EA; NO|
00003B30: 50 2D 42 45 46 45 48 4C  00 1E 5B 26 25 20 53 54  |P-BEFEHL..[&% ST|
00003B40: 41 4D 41 52 4B 31 39 00  2F 5B 30 25 20 53 54 41  |AMARK19./[0% STA|
00003B50: 4D 41 52 4B 31 39 2B 31  00 40 5B 3A 25 20 53 54  |MARK19+1.@[:% ST|
00003B60: 41 4D 41 52 4B 31 39 2B  32 00 49 5B 44 25 20 52  |AMARK19+2.I[D% R|
00003B70: 54 53 00 4F 5B 4E 25 3B  00 60 5B 58 25 4C 46 4F  |TS.O[N%;.`[X%LFO|
00003B80: 4E 20 4C 44 41 23 24 32  30 00 6F 5B 62 25 20 53  |N LDA#$20.o[b% S|
00003B90: 54 41 4D 41 52 4B 31 38  00 81 5B 6C 25 20 4C 44  |TAMARK18..[l% LD|
00003BA0: 41 23 3C 28 42 53 4F 55  54 29 00 92 5B 76 25 20  |A#<(BSOUT)..[v% |
00003BB0: 53 54 41 4D 41 52 4B 31  38 2B 31 00 A4 5B 80 25  |STAMARK18+1..[.%|
00003BC0: 20 4C 44 41 23 3E 28 42  53 4F 55 54 29 00 B5 5B  | LDA#>(BSOUT)..[|
00003BD0: 8A 25 20 53 54 41 4D 41  52 4B 31 38 2B 32 00 BE  |.% STAMARK18+2..|
00003BE0: 5B 94 25 20 52 54 53 00  C4 5B 9E 25 3B 00 DB 5B  |[.% RTS..[.%;..[|
00003BF0: A8 25 4C 46 4F 46 46 20  4C 44 41 23 24 45 41 3B  |.%LFOFF LDA#$EA;|
00003C00: 20 4E 4F 50 00 EA 5B B2  25 20 53 54 41 4D 41 52  | NOP..[.% STAMAR|
00003C10: 4B 31 38 00 FB 5B BC 25  20 53 54 41 4D 41 52 4B  |K18..[.% STAMARK|
00003C20: 31 38 2B 31 00 0C 5C C6  25 20 53 54 41 4D 41 52  |18+1..\.% STAMAR|
00003C30: 4B 31 38 2B 32 00 15 5C  D0 25 20 52 54 53 00 1B  |K18+2..\.% RTS..|
00003C40: 5C DA 25 3B 00 3C 5C E4  25 52 55 45 43 4B 4F 46  |\.%;.<\.%RUECKOF|
00003C50: 46 20 4C 44 41 23 24 32  30 3B 20 4A 4D 50 2D 42  |F LDA#$20; JMP-B|
00003C60: 45 46 45 48 4C 00 4B 5C  EE 25 20 53 54 41 4D 41  |EFEHL.K\.% STAMA|
00003C70: 52 4B 32 30 00 60 5C F8  25 20 4C 44 41 23 3C 28  |RK20.`\.% LDA#<(|
00003C80: 45 44 52 55 43 4B 45 4E  29 00 71 5C 02 26 20 53  |EDRUCKEN).q\.& S|
00003C90: 54 41 4D 41 52 4B 32 30  2B 31 00 86 5C 0C 26 20  |TAMARK20+1..\.& |
00003CA0: 4C 44 41 23 3E 28 45 44  52 55 43 4B 45 4E 29 00  |LDA#>(EDRUCKEN).|
00003CB0: 97 5C 16 26 20 53 54 41  4D 41 52 4B 32 30 2B 32  |.\.& STAMARK20+2|
00003CC0: 00 A0 5C 20 26 20 52 54  53 00 A6 5C 2A 26 3B 00  |..\ & RTS..\*&;.|
00003CD0: C6 5C 34 26 52 55 45 43  4B 4F 4E 20 4C 44 41 23  |.\4&RUECKON LDA#|
00003CE0: 24 45 41 3B 20 4E 4F 50  2D 42 45 46 45 48 4C 00  |$EA; NOP-BEFEHL.|
00003CF0: D5 5C 3E 26 20 53 54 41  4D 41 52 4B 32 30 00 E6  |.\>& STAMARK20..|
00003D00: 5C 48 26 20 53 54 41 4D  41 52 4B 32 30 2B 31 00  |\H& STAMARK20+1.|
00003D10: F7 5C 52 26 20 53 54 41  4D 41 52 4B 32 30 2B 32  |.\R& STAMARK20+2|
00003D20: 00 00 5D 5C 26 20 52 54  53 00 06 5D 66 26 3B 00  |..]\& RTS..]f&;.|
00003D30: 0C 5D 70 26 3B 00 1E 5D  7A 26 50 41 52 41 55 53  |.]p&;..]z&PARAUS|
00003D40: 47 20 4C 44 41 23 35 00  2A 5D 84 26 20 53 54 41  |G LDA#5.*].& STA|
00003D50: 36 34 36 00 33 5D 8E 26  20 43 4C 43 00 3F 5D 98  |646.3].& CLC.?].|
00003D60: 26 20 4C 44 58 23 31 38  00 4B 5D A2 26 20 4C 44  |& LDX#18.K].& LD|
00003D70: 59 23 32 32 00 5A 5D AC  26 20 4A 53 52 53 45 54  |Y#22.Z].& JSRSET|
00003D80: 43 52 53 00 65 5D B6 26  20 4C 44 41 23 30 00 75  |CRS.e].& LDA#0.u|
00003D90: 5D C0 26 20 4C 44 58 4C  4F 4F 50 37 2B 31 00 84  |].& LDXLOOP7+1..|
00003DA0: 5D CA 26 20 4A 53 52 50  4F 53 49 4E 54 00 90 5D  |].& JSRPOSINT..]|
00003DB0: D4 26 20 4C 44 41 23 33  32 00 9E 5D DE 26 20 4A  |.& LDA#32..].& J|
00003DC0: 53 52 42 53 4F 55 54 00  A7 5D E8 26 20 43 4C 43  |SRBSOUT..].& CLC|
00003DD0: 00 B3 5D F2 26 20 4C 44  58 23 32 30 00 BF 5D FC  |..].& LDX#20..].|
00003DE0: 26 20 4C 44 59 23 32 32  00 CE 5D 06 27 20 4A 53  |& LDY#22..].' JS|
00003DF0: 52 53 45 54 43 52 53 00  D9 5D 10 27 20 4C 44 41  |RSETCRS..].' LDA|
00003E00: 23 30 00 EA 5D 1A 27 20  4C 44 58 4D 41 52 4B 32  |#0..].' LDXMARK2|
00003E10: 31 2B 31 00 F9 5D 24 27  20 4A 53 52 50 4F 53 49  |1+1..]$' JSRPOSI|
00003E20: 4E 54 00 05 5E 2E 27 20  4C 44 41 23 33 32 00 13  |NT..^.' LDA#32..|
00003E30: 5E 38 27 20 4A 53 52 42  53 4F 55 54 00 21 5E 42  |^8' JSRBSOUT.!^B|
00003E40: 27 20 4A 53 52 42 53 4F  55 54 00 2A 5E 4C 27 20  |' JSRBSOUT.*^L' |
00003E50: 43 4C 43 00 36 5E 56 27  20 4C 44 58 23 32 32 00  |CLC.6^V' LDX#22.|
00003E60: 42 5E 60 27 20 4C 44 59  23 32 32 00 51 5E 6A 27  |B^`' LDY#22.Q^j'|
00003E70: 20 4A 53 52 53 45 54 43  52 53 00 5C 5E 74 27 20  | JSRSETCRS.\^t' |
00003E80: 4C 44 41 23 30 00 6D 5E  7E 27 20 4C 44 58 4D 41  |LDA#0.m^~' LDXMA|
00003E90: 52 4B 32 32 2B 31 00 7C  5E 88 27 20 4A 53 52 50  |RK22+1.|^.' JSRP|
00003EA0: 4F 53 49 4E 54 00 85 5E  92 27 20 52 54 53 00 8B  |OSINT..^.' RTS..|
00003EB0: 5E 9C 27 3B 00 9F 5E A6  27 54 41 42 41 45 4E 44  |^.';..^.'TABAEND|
00003EC0: 20 4C 44 58 23 22 54 22  00 AF 5E B0 27 20 4A 4D  | LDX#"T"..^.' JM|
00003ED0: 50 57 45 52 54 45 50 4D  00 B5 5E BA 27 3B 00 C9  |PWERTEPM..^.';..|
00003EE0: 5E C4 27 53 45 4B 41 45  4E 44 20 4C 44 58 23 22  |^.'SEKAEND LDX#"|
00003EF0: 53 22 00 D9 5E CE 27 20  4A 4D 50 57 45 52 54 45  |S"..^.' JMPWERTE|
00003F00: 50 4D 00 DF 5E D8 27 3B  00 F4 5E E2 27 53 49 5A  |PM..^.';..^.'SIZ|
00003F10: 45 41 45 4E 44 20 4C 44  58 23 22 42 22 00 04 5F  |EAEND LDX#"B".._|
00003F20: EC 27 20 4A 4D 50 57 45  52 54 45 50 4D 00 0A 5F  |.' JMPWERTEPM.._|
00003F30: F6 27 3B 00 32 5F 00 28  57 45 52 54 45 50 4D 20  |.';.2_.(WERTEPM |
00003F40: 53 54 58 50 4C 55 53 2B  31 3B 20 57 45 52 54 45  |STXPLUS+1; WERTE|
00003F50: 20 56 45 52 41 45 4E 44  45 52 4E 00 42 5F 0A 28  | VERAENDERN.B_.(|
00003F60: 20 53 54 58 4D 49 4E 55  53 2B 31 00 4D 5F 14 28  | STXMINUS+1.M_.(|
00003F70: 20 4C 44 41 23 36 00 5B  5F 1E 28 20 53 54 41 24  | LDA#6.[_.( STA$|
00003F80: 44 30 32 30 00 71 5F 28  28 4D 41 52 4B 32 33 20  |D020.q_((MARK23 |
00003F90: 4A 53 52 50 41 52 41 55  53 47 00 83 5F 32 28 4C  |JSRPARAUSG.._2(L|
00003FA0: 4F 4F 50 31 36 20 4C 44  41 31 39 38 00 8E 5F 3C  |OOP16 LDA198.._<|
00003FB0: 28 20 43 4D 50 23 30 00  9D 5F 46 28 20 42 45 51  |( CMP#0.._F( BEQ|
00003FC0: 4C 4F 4F 50 31 36 00 AC  5F 50 28 20 4A 53 52 47  |LOOP16.._P( JSRG|
00003FD0: 45 54 4B 45 59 00 B9 5F  5A 28 20 43 4D 50 23 22  |ETKEY.._Z( CMP#"|
00003FE0: 2B 22 00 C6 5F 64 28 20  42 45 51 50 4C 55 53 00  |+".._d( BEQPLUS.|
00003FF0: D3 5F 6E 28 20 43 4D 50  23 22 2D 22 00 E1 5F 78  |._n( CMP#"-".._x|
00004000: 28 20 42 45 51 4D 49 4E  55 53 00 ED 5F 82 28 20  |( BEQMINUS.._.( |
00004010: 43 4D 50 23 31 33 00 FC  5F 8C 28 20 42 45 51 45  |CMP#13.._.( BEQE|
00004020: 4E 44 57 50 4D 00 0B 60  96 28 20 4A 4D 50 4C 4F  |NDWPM..`.( JMPLO|
00004030: 4F 50 31 36 00 11 60 A0  28 3B 00 20 60 AA 28 50  |OP16..`.(;. `.(P|
00004040: 4C 55 53 20 4C 44 41 23  30 00 2D 60 B4 28 20 43  |LUS LDA#0.-`.( C|
00004050: 4D 50 23 22 54 22 00 3B  60 BE 28 20 42 45 51 50  |MP#"T".;`.( BEQP|
00004060: 4C 55 53 54 00 48 60 C8  28 20 43 4D 50 23 22 53  |LUST.H`.( CMP#"S|
00004070: 22 00 56 60 D2 28 20 42  45 51 50 4C 55 53 53 00  |".V`.( BEQPLUSS.|
00004080: 63 60 DC 28 20 43 4D 50  23 22 42 22 00 71 60 E6  |c`.( CMP#"B".q`.|
00004090: 28 20 42 45 51 50 4C 55  53 42 00 77 60 F0 28 3B  |( BEQPLUSB.w`.(;|
000040A0: 00 87 60 FA 28 4D 49 4E  55 53 20 4C 44 41 23 30  |..`.(MINUS LDA#0|
000040B0: 00 94 60 04 29 20 43 4D  50 23 22 54 22 00 A3 60  |..`.) CMP#"T"..`|
000040C0: 0E 29 20 42 45 51 4D 49  4E 55 53 54 00 B0 60 18  |.) BEQMINUST..`.|
000040D0: 29 20 43 4D 50 23 22 53  22 00 BF 60 22 29 20 42  |) CMP#"S"..`") B|
000040E0: 45 51 4D 49 4E 55 53 53  00 CC 60 2C 29 20 43 4D  |EQMINUSS..`,) CM|
000040F0: 50 23 22 42 22 00 DB 60  36 29 20 42 45 51 4D 49  |P#"B"..`6) BEQMI|
00004100: 4E 55 53 42 00 E1 60 40  29 3B 00 F6 60 4A 29 45  |NUSB..`@);..`J)E|
00004110: 4E 44 57 50 4D 20 4A 4D  50 4C 4F 4F 50 31 34 00  |NDWPM JMPLOOP14.|
00004120: FC 60 54 29 3B 00 11 61  5E 29 50 4C 55 53 54 20  |.`T);..a^)PLUST |
00004130: 4C 44 41 4C 4F 4F 50 37  2B 31 00 1D 61 68 29 20  |LDALOOP7+1..ah) |
00004140: 43 4D 50 23 37 30 00 2B  61 72 29 20 42 45 51 45  |CMP#70.+ar) BEQE|
00004150: 4E 44 50 54 00 3B 61 7C  29 20 49 4E 43 4C 4F 4F  |NDPT.;a|) INCLOO|
00004160: 50 37 2B 31 00 4F 61 86  29 45 4E 44 50 54 20 4A  |P7+1.Oa.)ENDPT J|
00004170: 4D 50 4D 41 52 4B 32 33  00 55 61 90 29 3B 00 6B  |MPMARK23.Ua.);.k|
00004180: 61 9A 29 50 4C 55 53 53  20 4C 44 41 4D 41 52 4B  |a.)PLUSS LDAMARK|
00004190: 32 31 2B 31 00 78 61 A4  29 20 43 4D 50 23 32 35  |21+1.xa.) CMP#25|
000041A0: 35 00 86 61 AE 29 20 42  45 51 45 4E 44 50 53 00  |5..a.) BEQENDPS.|
000041B0: 97 61 B8 29 20 49 4E 43  4D 41 52 4B 32 31 2B 31  |.a.) INCMARK21+1|
000041C0: 00 AB 61 C2 29 45 4E 44  50 53 20 4A 4D 50 4D 41  |..a.)ENDPS JMPMA|
000041D0: 52 4B 32 33 00 B1 61 CC  29 3B 00 C7 61 D6 29 50  |RK23..a.);..a.)P|
000041E0: 4C 55 53 42 20 4C 44 41  4D 41 52 4B 32 32 2B 31  |LUSB LDAMARK22+1|
000041F0: 00 D2 61 E0 29 20 43 4D  50 23 37 00 E0 61 EA 29  |..a.) CMP#7..a.)|
00004200: 20 42 45 51 45 4E 44 50  42 00 F1 61 F4 29 20 49  | BEQENDPB..a.) I|
00004210: 4E 43 4D 41 52 4B 32 32  2B 31 00 05 62 FE 29 45  |NCMARK22+1..b.)E|
00004220: 4E 44 50 42 20 4A 4D 50  4D 41 52 4B 32 33 00 0B  |NDPB JMPMARK23..|
00004230: 62 08 2A 3B 00 21 62 12  2A 4D 49 4E 55 53 54 20  |b.*;.!b.*MINUST |
00004240: 4C 44 41 4C 4F 4F 50 37  2B 31 00 2C 62 1C 2A 20  |LDALOOP7+1.,b.* |
00004250: 43 4D 50 23 30 00 3A 62  26 2A 20 42 45 51 45 4E  |CMP#0.:b&* BEQEN|
00004260: 44 4D 54 00 4A 62 30 2A  20 44 45 43 4C 4F 4F 50  |DMT.Jb0* DECLOOP|
00004270: 37 2B 31 00 5E 62 3A 2A  45 4E 44 4D 54 20 4A 4D  |7+1.^b:*ENDMT JM|
00004280: 50 4D 41 52 4B 32 33 00  64 62 44 2A 3B 00 7B 62  |PMARK23.dbD*;.{b|
00004290: 4E 2A 4D 49 4E 55 53 53  20 4C 44 41 4D 41 52 4B  |N*MINUSS LDAMARK|
000042A0: 32 31 2B 31 00 86 62 58  2A 20 43 4D 50 23 30 00  |21+1..bX* CMP#0.|
000042B0: 94 62 62 2A 20 42 45 51  45 4E 44 4D 53 00 A5 62  |.bb* BEQENDMS..b|
000042C0: 6C 2A 20 44 45 43 4D 41  52 4B 32 31 2B 31 00 B9  |l* DECMARK21+1..|
000042D0: 62 76 2A 45 4E 44 4D 53  20 4A 4D 50 4D 41 52 4B  |bv*ENDMS JMPMARK|
000042E0: 32 33 00 BF 62 80 2A 3B  00 D6 62 8A 2A 4D 49 4E  |23..b.*;..b.*MIN|
000042F0: 55 53 42 20 4C 44 41 4D  41 52 4B 32 32 2B 31 00  |USB LDAMARK22+1.|
00004300: E1 62 94 2A 20 43 4D 50  23 30 00 EF 62 9E 2A 20  |.b.* CMP#0..b.* |
00004310: 42 45 51 45 4E 44 4D 42  00 00 63 A8 2A 20 44 45  |BEQENDMB..c.* DE|
00004320: 43 4D 41 52 4B 32 32 2B  31 00 14 63 B2 2A 45 4E  |CMARK22+1..c.*EN|
00004330: 44 4D 42 20 4A 4D 50 4D  41 52 4B 32 33 00 1A 63  |DMB JMPMARK23..c|
00004340: BC 2A 3B 00 2F 63 C6 2A  50 46 41 55 53 47 20 4C  |.*;./c.*PFAUSG L|
00004350: 44 41 4D 41 52 4B 31 38  00 3A 63 D0 2A 20 4C 44  |DAMARK18.:c.* LD|
00004360: 58 23 35 00 48 63 DA 2A  20 53 54 58 35 35 34 31  |X#5.Hc.* STX5541|
00004370: 36 00 56 63 E4 2A 20 53  54 58 35 35 34 39 36 00  |6.Vc.* STX55496.|
00004380: 64 63 EE 2A 20 53 54 58  35 35 36 39 36 00 72 63  |dc.* STX55696.rc|
00004390: F8 2A 20 53 54 58 35 35  37 37 36 00 7F 63 02 2B  |.* STX55776..c.+|
000043A0: 20 43 4D 50 23 24 45 41  00 8F 63 0C 2B 20 42 4E  | CMP#$EA..c.+ BN|
000043B0: 45 4D 43 52 4F 55 4C 46  00 9F 63 16 2B 4D 43 52  |EMCROULF..c.+MCR|
000043C0: 20 4C 44 41 23 22 3E 22  00 AC 63 20 2B 20 53 54  | LDA#">"..c + ST|
000043D0: 41 31 31 34 34 00 B8 63  2A 2B 20 4C 44 41 23 33  |A1144..c*+ LDA#3|
000043E0: 32 00 C5 63 34 2B 20 53  54 41 31 32 32 34 00 D2  |2..c4+ STA1224..|
000043F0: 63 3E 2B 20 53 54 41 31  33 30 34 00 E0 63 48 2B  |c>+ STA1304..cH+|
00004400: 20 4A 4D 50 4D 52 4F 4E  52 00 F6 63 52 2B 4D 43  | JMPMRONR..cR+MC|
00004410: 52 4F 55 4C 46 20 4C 44  41 4D 41 52 4B 31 39 00  |ROULF LDAMARK19.|
00004420: 03 64 5C 2B 20 43 4D 50  23 24 45 41 00 12 64 66  |.d\+ CMP#$EA..df|
00004430: 2B 20 42 4E 45 4D 43 52  55 4C 46 00 22 64 70 2B  |+ BNEMCRULF."dp+|
00004440: 4D 4C 46 20 4C 44 41 23  22 3E 22 00 2F 64 7A 2B  |MLF LDA#">"./dz+|
00004450: 20 53 54 41 31 32 32 34  00 3B 64 84 2B 20 4C 44  | STA1224.;d.+ LD|
00004460: 41 23 33 32 00 48 64 8E  2B 20 53 54 41 31 31 34  |A#32.Hd.+ STA114|
00004470: 34 00 55 64 98 2B 20 53  54 41 31 33 30 34 00 63  |4.Ud.+ STA1304.c|
00004480: 64 A2 2B 20 4A 4D 50 4D  52 4F 4E 52 00 76 64 AC  |d.+ JMPMRONR.vd.|
00004490: 2B 4D 43 52 55 4C 46 20  4C 44 41 23 22 3E 22 00  |+MCRULF LDA#">".|
000044A0: 83 64 B6 2B 20 53 54 41  31 33 30 34 00 8F 64 C0  |.d.+ STA1304..d.|
000044B0: 2B 20 4C 44 41 23 33 32  00 9C 64 CA 2B 20 53 54  |+ LDA#32..d.+ ST|
000044C0: 41 31 31 34 34 00 A9 64  D4 2B 20 53 54 41 31 32  |A1144..d.+ STA12|
000044D0: 32 34 00 B7 64 DE 2B 20  4A 4D 50 4D 52 4F 4E 52  |24..d.+ JMPMRONR|
000044E0: 00 BD 64 E8 2B 3B 00 D1  64 F2 2B 4D 52 4F 4E 52  |..d.+;..d.+MRONR|
000044F0: 20 4C 44 41 4D 41 52 4B  32 30 00 DE 64 FC 2B 20  | LDAMARK20..d.+ |
00004500: 43 4D 50 23 24 45 41 00  E9 64 06 2C 20 42 45 51  |CMP#$EA..d., BEQ|
00004510: 4D 52 00 F9 64 10 2C 4D  4E 52 20 4C 44 41 23 22  |MR..d.,MNR LDA#"|
00004520: 3E 22 00 06 65 1A 2C 20  53 54 41 31 35 30 34 00  |>"..e., STA1504.|
00004530: 12 65 24 2C 20 4C 44 41  23 33 32 00 1F 65 2E 2C  |.e$, LDA#32..e.,|
00004540: 20 53 54 41 31 34 32 34  00 28 65 38 2C 20 52 54  | STA1424.(e8, RT|
00004550: 53 00 37 65 42 2C 4D 52  20 4C 44 41 23 22 3E 22  |S.7eB,MR LDA#">"|
00004560: 00 44 65 4C 2C 20 53 54  41 31 34 32 34 00 50 65  |.DeL, STA1424.Pe|
00004570: 56 2C 20 4C 44 41 23 33  32 00 5D 65 60 2C 20 53  |V, LDA#32.]e`, S|
00004580: 54 41 31 35 30 34 00 66  65 6A 2C 20 52 54 53 00  |TA1504.fej, RTS.|
00004590: 6C 65 74 2C 3B 00 72 65  7E 2C 3B 00 00 00        |let,;.re~,;...  |

X..... .LI1,4.. D.; ********************
********************.. N.;.< X.;        
    COLORPRINTPROGRAM.B ..;.Q ..; ******
**********************************.W ..;
..  .;                    VON.. ..;.F ..
; GERHARD BLICKMANN   &   RALPH BENINDE.
. ..; UERDINGERSTR. 198       AUF DEM SC
HEID 3.$!H.; 4005 MEERBUSCH 3        400
5 MEERBUSCH 3.R!R.; TEL. 02150/4407     
    TEL. 02150/4046.X!..;..!..; --------
--------------------------------..!..;..
!..;  DER DRUCKERTREIBER DIESES PROGRAMM
S..!..;  ARBEITET MIT EPSON-DRUCKERN UND
.."..;  KOMPATIBLEN EINSCHLIESSLICH MPS8
02 MIT.:"..;  SUPER-ROM (64'ER AUSGABE J
ANUAR 1987).@"".;.O",.; ----------------
------------------------.U"6.;.{"@.;.."J
.;         .OB "@:OBSESS V3.1,P,W".M"T..
BA $C000 ; VOR START AENDERN AUF $0801..
#Y.;            UND VON 330 BIS 400 JEWE
ILS DAS SEMIKOLON ENTFERNEN.*#^.;       
  .WO $0801.@#H.;         .WO 100.V#R.; 
        .BY $9E.O#|.;         .TX "2061"
..#..;         .BY 0..#..;         .WO 0
..#..;..#..;..#..;..#..;.N#B.; TABELLE D
ER ROM-ROUTINEN.T#L.;..#V..GL SETCRS = $
FFF0..$...GL CHKCOM = $AEFD..$...GL GETB
YT = $B79E.0$...GL PRINT  = $AAA0.G$...G
L SCREEN1= $2000.^$...GL SCREEN2= $4000.
U$...GL VIC    = 53248..$...GL GETKEY = 
$E5B4..$&..GL CIA2   = 56576..$0..GL CHR
OUT = $FFD2.Q$:..GL CURSOR = $E50C..$D..
GL SETLFS = $FFBA..$N..GL SETNAM = $FFBD
..%X..GL LOAD   = $FFD5.-%B..GL SAVE   =
 $FFD8.D%L..GL OPEN   = $FFC0.[%V..GL CH
KIN  = $FFC6.R%...GL CHKOUT = $FFC9..%..
.GL BASIN  = $FFCF. %...GL BSOUT  = $FFD
2..%...GL CLRCHN = $FFCC.N%...GL CLOSE  
= $FFC3..%...GL LISTEN = $FFB1..%...GL S
ALIST = $FF93..&F..GL IECOUT = $FFA8.*&P
..GL UNLIST = $FFAE.A&Z..GL TALK   = $FF
B4.X&...GL SATALK = $FF96.O&...GL SENDCR
 = $AAD7..&...GL POSINT = $BDCD..&...GL 
IECIN  = $FFA5..&...GL UNTALK = $FFAB..&
..;.G& . LDA#128.S&*. STA650..&4. JSRBAS
IC; PROGRAMMSTART..&>. LDX#0..'H.LOOP1 L
DATEXT1,X; TEXT AUSGEBEN.*'R. CMP#0.8'\.
 BEQENDL1.F'F. JSRBSOUT.O'P. INX.]'Z. JM
PLOOP1.Q'..ENDL1 JSRFILTER.'.. JMPMENUE
..'..;..'..TEXT1 .BY142,8,30..'.. .TX"..
......"..'.. .TX"                       
                 "..(.. .TX"           C
OLORPRINTPROGRAM            ".G(J. .TX" 
                                       "
.V(T. .TX"...."..(.. .TX" (C) 1986/87 BY
 G.BLICKMANN & R.BENINDE ."..(.. .BY0..(
..;. (..;.I(..GRA1 LDA#255; GRAFIKBEREIC
H $2000 AN.V(.. STACIA2..(.. STAGRAFLG..
($. LDA#24..(.. STA53270..)8. LDA#59..)B
. STA53265.%)L. LDA#24.3)V. STA53272.<)`
. RTS.B)J.;.H)T.;.Q)~.GRA2 LDA#254; GRAF
IKBEREICH $4000 AN.~).. STACIA2..).. STA
GRAFLG..).. LDA#24..).. STA53270..).. LD
A#59.A).. STA53265.M)D. LDA#16..)N. STA5
3272..)X. RTS..)..;..)..;..*..; FARBE IS
OLIEREN..*..;.%*..B .BY0;COLFILTER 0-3.E
*..V .BY0;VERGLEICHSWERT 2 BIT.C*..P .BY
0;AUSZUGEBENDES BYTE.}*(.A .BY0;GELESENE
S BYTE..*2.;..*<.FILTER LDA#$20..*F. STA
ADR1+2..*P. LDA#0..*Z. STAADR1+1.Q*D.ADR
1 LDA$CCCC..*N. STAA..*X. LDX#4..+..LOOP
2 LDA#0;FARBE AUS BYTE ISOLIEREN..+.. ST
AV.#+.. ROLA.-+ . ROLV.7+.. ROLA.A+.. RO
LV.K+.. LDAV.U+H. CMPB.C+R. BEQMARK1.L+.
. CLC.V+.. ROLP.+.. CLC..+.. ROLP..+.. 
JMPENDL2..+..MARK1 SEC..+.. ROLP..+". SE
C.B+,. ROLP.P+6.ENDL2 DEX..+@. BNELOOP2.
.+J. LDAADR1+1..+T. STAADR2+1..,^. LDAAD
R1+2..,H. CLC.!,R. ADC#$20.0,|. STAADR2+
2.:,.. LDAP.L,..ADR2 STA$CCCC.[,.. LDAAD
R1+1.D,.. CLC.O,.. ADC#1.~,.. STAADR1+1.
.,B. LDAADR1+2..,L. ADC#0..,V. STAADR1+2
..,.. CMP#$40.C,.. BEQENDFIL..,.. JMPADR
1; NAECHSTES BYTE..,..ENDFIL RTS..,..;..
,..;.#-..; FARBTABELLE ($2000-GRA/$4000-
TRA).)-&.;.>-0.AKT .BY0,0,0,0,0.U-:.GRA 
.BY0,1,11,12,0.J-D.TRA .BY1,6,0,0,1.P-N.
;.V-X.;..-B.; AKTUELLE FARBEN AUS FARBTA
BELLE KOPIEREN..-L.;.O-V.GRACOL LDX#5; F
UER GRAFIK $2000..-..LOOP3 DEX..-.. LDAG
RA,X..-.. STAAKT,X..... CPX#0..... BNELO
OP3.!... JMPSETCOL.'...;.K.F.TRACOL LDX#
5; FUER GRAFIK $4000.Y.P.LOOP4 DEX.G.Z. 
LDATRA,X.U... STAAKT,X..... CPX#0..... B
NELOOP4..... JMPSETCOL.....;.D...SETCOL 
LDAAKT; FARBEN SETZEN.S. . STAVIC+33...*
. LDX#249...4.LOOP5 LDAAKT+1../>. STA552
96,X../H. STA55546,X.#/R. STA55796,X.3/\
. STA56046,X.A/F. LDAAKT+2.J/P. CLC.S/Z.
 ROL.\/.. CLC.E/.. ROL.N/.. CLC.W/.. ROL
../.. CLC../.. ROL../.. CLC. /J. ADCAKT+
3../T. STA1024,X../.. STA1274,X.M/.. STA
1524,X../.. STA1774,X../.. CPX#0../.. BE
QENDL5../.. DEX..0.. JMPLOOP5..0$.ENDL5 
LDAAKT+4.-0.. STA53280.608. RTS.<0B.;.B0
L.;.B0V.; MENUE MIT TASTATURABFRAGE.H0`.
;.Y0J.F .BY0; FLAG..0T.GRAFLG .BY0; FLAG
 ($2000 ODER $4000)..0~.;..0..MENUE JSRG
RA1.I0.. JSRGRACOL.T0.. LDA#0..0.. STA19
8..0.. JMPLOOP6..1..SUBMEN JSRTRACOL; EI
NSPRUNG.'1D.LOOP6 LDA198; TASTE?.21N. CM
P#0.F1X. BEQLOOP6; NEIN.L1..;.[1.. JSRGE
TKEY.H1.. CMP#"_".U1.. BEQSUB1..1.. CMP#
"1"..1.. BEQSUB2..1.. CMP#"2"..1(. BEQSU
B2..12. CMP#"3".C1<. BEQSUB2.P1F. CMP#"4
"..1P. BEQSUB2..1Z. CMP#"P"..1D. BEQSUB5
..2N. CMP#"L"..2X. BEQSUB6..2.. CMP#"S".
+2.. BEQSUB7.82.. CMP#"Q".E2 . BEQQUIT.R
2.. CMP#"D"._2.. BEQSUB8.L2.. CMP#"C".Y2
H. BEQSUB9..2R. CMP#"H"..2.. BEQSUB10..2
.. CMP#"."; COMMODORE-P..2.. BEQSUB11.M2
.. CMP#20; DEL..2.. BEQSUB12..2.. CMP#"+
"..2.. BEQSUB13..3". CMP#"-"..3,. BEQSUB
14..36.;.03@. LDXGRAFLG; FARBEN ?.=3J. C
PX#254.K3T. BEQLOOP6.Z3^. JMPMENUE2.`3H.
;.F3R.;.Z3|.; SPRUNGTABELLE..3..;..3..SU
B1 JMPGRAFON; ORIGINALBILD ZEIGEN.S3..SU
B2 JMPTRANS; BILD FILTERN UND ZEIGEN..3.
.SUB3 JMPFKTUNG; FARBE = FARBE+1..4..SUB
4 JMPFKTGER; FARBE = FARBE-1.I4..SUB5 JS
RDRUCKEN; GEFILTERTES BILD DRUCKEN.X4V. 
JMPSUBMEN..4..SUB6 JMPLADEN; NEUES ORIGI
NAL LADEN..4..SUB7 JMPSPEICHERN; GEFILTE
RTES BILD SPEICHERN.S4..SUB8 JMPDIR; DIR
ECTORY LADEN..4..SUB9 JMPFLOPPY; KOMMAND
O SENDEN..5..SUB10 JMPHELP; HELPPAGE.'5.
.SUB11 LDADRKFLG.25.. CMP#0.A5&. BEQMARK
17.P50. JMPDRKPAR.D5:.MARK17 JMPLOOP6.Z5
D.SUB12 JMPGRA1DOWN..5N.SUB13 JMPXUP..5X
.SUB14 JMPXDOWN.A5B.QUIT JSRBASIC; PROGR
AMMABBRUCH.J5L. RTS.P5V.;.V5..;..5..MENU
E2 CMP#"."; F1..5.. BEQSUB3..6.. CMP#"."
; F3..6.. BEQSUB3.)6.. CMP#"."; F5.66.. 
BEQSUB3.G6F. CMP#"."; F7.T6P. BEQSUB3.E6
Z. CMP#"."; F2.R6.. BEQSUB4..6.. CMP#"."
; F4..6.. BEQSUB4..6.. CMP#"."; F6..6.. 
BEQSUB4..6.. CMP#"."; F8.L6 . BEQSUB4.Z6
*. JMPLOOP6..64.;..6>.;..7H.BASIC JSR$E5
44; UMSCHALTUNG AUF TEXT..7R. LDA#0.(7\.
 STA53280.67F. STA53281.A7P. LDA#5.M7Z. 
STA646.Z7.. LDA#255.G7.. STACIA2.S7.. LD
A#27..7.. STAVIC+17..7.. LDA#21..7.. STA
VIC+24..7.. LDA#200..7J. STAVIC+22.B7T. 
RTS.H7..;..7..GRAFON JSRGRACOL..7.. JSRG
RA1..7.. JMPLOOP6..7..;..8..TRANS LDY#1.
.8.. SEC.#8$. SBC#49.-8.. CMPB.;88. BEQM
ARK3.E8B. STAB.Y8L.MARK2 JSRTRACOL.F8V. 
JSRGRA2.Q8`. CPY#0..8J. BEQETRANS..8T. J
SRFILTER..8~.ETRANS JMPLOOP6..8..;..8..M
ARK3 LDY#0.G8.. JMPMARK2.M8..;.S8..;..8.
.FKTUNG SEC..8D. SBC#133..8N. TAX..9X. L
DAAKT,X..9.. CMP#15..9.. BMIADD.)9.. LDA
#0.79.. STAGRA,X.F9.. JMPCOPGRA.R9..ADD 
CLC.]9.. ADC#1.K9(. STAGRA,X.Z92. JMPCOP
GRA..9<.;..9F.FKTGER SEC..9P. SBC#137..9
Z. TAX..9D. LDAGRA,X..9N. CMP#0.J9X. BNE
SUB.V9.. LDA#15..9.. STAGRA,X..9.. JMPCO
PGRA..9 .SUB SEC..:.. SBC#1..:.. STAGRA,
X.':.. JMPCOPGRA.-:H.;.3:R.;.H:..COPGRA 
JSRGRACOL.V:.. JMPLOOP6.\:..;.B:..;..:..
; GRAFIK ZUM DRUCKEN CONVERTIEREN..:..;.
.:..CSTART LDA#$00..:". LDY#$40..:,. STA
MARK4+1.N:6. STAMARK5+1..:@. STYMARK4+2.
.:J. STYMARK5+2..:T. LDY#$07..;^. LDX#$0
7..;H.MARK4 LSR$4008,X.&;R. ROR./;|. DEX
.=;.. BPLMARK4.F;.. PHA.O;.. DEY._;.. BP
LMARK4-2.L;.. LDX#$00.U;.. PLA..;B.MARK5
 STA$4008,X..;L. INX. ;V. CPX#$08..;.. B
NEMARK5-1..;.. CLC.I;.. LDAMARK4+1.V;.. 
ADC#$08..;.. STAMARK4+1..;.. STAMARK5+1.
.<.. LDAMARK4+2..<&. ADC#$00.#<0. STAMAR
K4+2.3<:. STAMARK5+2.C<D. LDAMARK5+2.P<N
. CMP#$60.`<X. BNEMARK4-4.I<B. RTS.O<L.;
.U<V.;..<..; ORIGINAL LADEN..<..;..<..LA
DEN JSRBASIC..<.. JSRFNGET..<.. LDX#8.G<
.. LDY#0.V<.. JSRSETLFS..<F. LDA$033C..<
P. LDX#<(NAME)..=Z. LDY#>(NAME)..=.. JSR
SETNAM. =.. LDX#0.-=.. LDY#$20.8=.. LDA#
0.E=.. JSRLOAD.R=.. JSRWAIT.`= . JMPMENU
E.F=*.;..=4.NAME .TX"                 ";
FILENAME..=>.;..=H.;..=R.; GEFILTERTE GR
AFIK SPEICHERN.C=\.;.Z=F.SPEICHERN JSRBA
SIC..=P. JSRFNGET..=Z. LDX#$08..>.. LDY#
$01..>.. JSRSETLFS..>.. LDA$033C.0>.. LD
X#<(NAME).A>.. LDY#>(NAME).P>.. JSRSETNA
M.]>.. LDX#$00.J>J. LDY#$40.V>T. STX$FB.
.>.. STY$FC..>.. LDA#$FB..>.. LDX#$00..>
.. LDY#$60..>.. JSRSAVE.C>.. JSRWAIT.Q>.
. JMPMENUE.W>$.;..>..;..?8.; TEXT FUER F
ILENAMENEINGABE LESEN..?B.;..?L.TEXT2 .B
Y31.1?V. .TX"FILENAMEN : ".>?`. .BY30,0.
D?J.;.T?T.FNGET LDX#0.D?~. LDATEXT2,X.O?
.. CMP#0.~?.. BEQENDFNT..?.. JSRBSOUT..?
.. INX..?.. JMPFNGET+2..?..ENDFNT LDX#$0
0.L?D.LOOP11 JSRBASIN..?N. STANAME,X..?X
. INX..?.. CPX#17..?.. BEQENDL11..@.. CM
P#$0D..@.. BNELOOP11./@..ENDL11 STX$033C
.5@..;.M@.. LDA#1; FLOPPYRESET.X@(. LDX#
8.D@2. LDY#15.S@<. JSRSETLFS.~@F. LDA#2.
.@P. LDX#<(TEXT3)..@Z. LDY#>(TEXT3)..@D.
 JSRSETNAM..@N. JSROPEN.I@X. LDA#1.W@.. 
JSRCLOSE..@.. RTS..@..;..A .TEXT3 .TX"U:
                "..A..;..A..;.,A..; DIRE
CTORY-ROUTINE.2AH.;.CAR.TEXTX .TX"$".RA.
.FLG .BY0,0.AA..DIRLO .BY0.PA..DIRHI .BY
0.VA..;..A..DIR JSRBASIC..A.. JSRENDL11+
3..A.. LDX#8..A". LDY#0..A,. STY646.HA6.
 STYFLG+1.TA@. STYFLG..AJ. JSRSETLFS..AT
. LDA#1..B^. LDX#<(TEXTX)..BH. LDY#>(TEX
TX).!BR. JSRSETNAM.,B|. LDA#0.8B.. STAFL
G.EB.. LDX#$00.RB.. LDY#$60._B.. JSRLOAD
.MB.. STXDIRLO.{B.. STYDIRHI..BB. LDA#5.
.BL. STA646..BV. LDA#147..B.. JSRBSOUT..
B..AUSWERT LDX#0.PB.. STXLOOP30+1..B.. L
DX#$60..B.. STXLOOP30+2..C..LOOP30 LDA$C
CCC..C.. CMP#34..C&. BEQFLGTEST.*C0. LDX
FLG.5C:. CPX#1.CCD. BNEADRUP.ICN.;.WCX. 
JSRBSOUT.]CB.;.KCL.ADRUP CLC.|CV. LDALOO
P30+1..C.. ADC#1..C.. STALOOP30+1..C.. L
DALOOP30+2..C.. ADC#0.EC.. STALOOP30+2.S
C.. CMPDIRHI..C.. BNELOOP30..CF. LDALOOP
30+1..DP. CMPDIRLO..DZ. BNELOOP30..D.. L
DA#0.)D.. STADIRLO.6D.. LDA#$60.DD.. STA
DIRHI.QD.. JSRWAIT._D.. JMPMENUE.ED .;.X
D*.FLGTEST LDXFLG..D4. CPX#0..D>. BNEWFL
GT..DH. LDX#1..DR. STXFLG..D\. JMPADRUP.
FDF.WFLGT LDA#0.RDP. STAFLG..DZ. LDA#13.
.D.. JSRBSOUT..D.. INCFLG+1..E.. LDXFLG+
1..E.. CPX#24.$E.. BEQDIRWAIT.:E..DIRWAI
TB JMPADRUP.GE.. JSRWAIT.UEJ. JMPMENUE.[
ET.;.ME..DIRWAIT LDX#0.{E.. STXFLG+1..E.
. JSRWAIT..E.. JMPDIRWAITB..E..;..E..;.F
E..; WARTEN BIS TASTE GEDRUECKT.LE$.;..E
..WAIT LDA#0..E8. STA198..EB.LOOP12 LDA1
98..FL. CMP#0..FV. BEQLOOP12..F`. RTS."F
J.;.(FT.;.CF~.; FLOPPY-BEFEHL SENDEN.IF.
.;.YF..TEXT4 .BY31.TF.. .TX"DISK-KOMMAND
O : "..F.. .BY30,0..F..;..F..FLOPPY JSRB
ASIC..FD.DKGET LDX#0..FN. LDATEXT4,X.FFX
. CMP#0.TF.. BEQENDDK..F.. JSRBSOUT..F..
 INX..F.. JMPDKGET+2..G..ENDDK JSRENDFNT
.'G.. LDA#1; FLOPPYRESET.2G.. LDX#8.>G(.
 LDY#15.MG2. JSRSETLFS.[G<. LDA$033C.LGF
. LDX#<(NAME).}GP. LDY#>(NAME)..GZ. JSRS
ETNAM..GD. JSROPEN..GN. LDA#1..GX. JSRCL
OSE..G.. JSRWAIT.MG.. JMPMENUE.SG..;.YG 
.;..G..; BEFEHLSLISTE AUSGEBEN..G..;..H.
.TEXT5 .TX"... BEFEHLSLISTE ...".*HH. .B
Y13.SHR. .TX"   <L>    MULTICOLORBILD LA
DEN".^H.. .BY13..H.. .TX"   <S>    GEFIL
TERTES BILD SPEICHERN"..H.. .BY13..H.. .
TX"   <D>    DIRECTORY".AH.. .BY13..H.. 
.TX"   <C>    DISK-KOMMANDO SENDEN."..H.
. .BY13. I". .TX"   <_>    ORIGINALGRAFI
K ZEIGEN".+I,. .BY13.]I6. .TX"  <1-4>   
FARBE ISOLIEREN & BILD ZEIGEN".HI@. .BY1
3..IJ. .TX" <F1-F8>  FARBEN AENDERN."..I
T. .BY13.FI^. .TX"  <DEL>   ORIGINALGRAF
IK VERSCHIEBEN".QIH. .BY13..IR. .TX"  <+
/->   VERSCHIEBESCHRITTWEITE."..J|. .BY1
3.4J.. .TX"   <P>    ISOLIERTE FARBE DRU
CKEN".?J.. .BY13.KJ.. .TX"  <C=P>   DRUC
KPARAMETER AENDERN.".VJ.. .BY13..J.. .TX
"   <Q>    PROGRAMM BEENDEN"..J.. .BY0..
JB.;..JL.HELP JSRBASIC.OJV. LDA#<(TEXT5)
..J.. STAMARK16+1..J.. LDA#>(TEXT5)..K..
 STAMARK16+2..K..MARK16 LDA$CCCC."K.. CM
P#0.1K.. BEQENDM16.?K.. JSRBSOUT.HK&. CL
C.YK0. LDAMARK16+1.DK:. ADC#1.UKD. STAMA
RK16+1..KN. LDAMARK16+2..KX. ADC#0..KB. 
STAMARK16+2..KL. JMPMARK16..KV.ENDM16 CL
C.LK.. LDX#13.XK.. LDY#34..K.. JSRSETCRS
..K.. LDA#0..L.. LDXLOOP17+1..L.. JSRPOS
INT..L.. JSRWAIT.-LF. JMPMENUE.3LP.;.9LZ
.;.NL..; ORIGINALGRAFIK UM EIN BYTE NACH
 UNTEN SCHIEBEN.TL..;..L..GRA1DOWN LDA#0
..L.. STAMARK24+1..L.. STAMARK25+1..L.. 
LDA#$20.GL . STAMARK24+2.XL*. STAMARK25+
2..L4.LOOP17 LDX#1..L>.MARK24 LDA$CCCC,X
..MH. LDX#0. MR.MARK25 STA$CCCC,X.)M\. C
LC.:MF. LDAMARK24+1.EMP. ADC#1.VMZ. STAM
ARK24+1.GM.. STAMARK25+1.XM.. LDAMARK24+
2..M.. ADC#0..M.. STAMARK24+2..M.. STAMA
RK25+2..M.. CMP#$48.AM.. BNELOOP17.OMJ. 
JMPMENUE.UMT.;..M..;..N..; ABSTAND BEIM 
VERSCHIEBEN AENDERN..N..;..N..XUP LDXLOO
P17+1.)N.. CPX#255.8N.. BEQENDXUP.IN.. I
NCLOOP17+1.WN$. INC$D020.KN..ENDXUP JMPL
OOP6.QN8.;..NB.XDOWN LDXLOOP17+1..NL. CP
X#1..NV. BEQENDXUP..N`. DECLOOP17+1..NJ.
 INC$D020.NNT. JMPLOOP6.TN~.;.ZN..;..N..
;..N..;..N..; DRUCKROUTINE..N..;.5O..DRK
FLG .BY1; FLAG, OB PARAMETERAENDERUNG MO
EGLICH.JOD.DRKPAR JMPPARAEND; EINSPRUNGA
DRESSE FUER AENDERN..ON.DRUCKEN JSRCSTAR
T. OX. LDX#00; DRUCKSEITE ABLEGEN..O.. S
TX$F7..O.. LDX#64.DO.. STX$F8.JO..;..O..
 LDA#1; KANAL OEFFNEN..O.. LDX#4; KANAL.
.P..MARK21 LDY#0; SEKUNDAERADRESSE.(P(. 
JSRSETLFS.3P2. LDA#0.BP<. JSRSETNAM.OPF.
 JSROPEN.UPP.;.SPZ. LDX#1; AUSGABE AUF D
ATEI..PD. JSRCHKOUT..PN.;..PX. LDA#27;ZE
ILENABSTAND 8/72 ZOLL..P.. JSRBSOUT.FP..
 LDA#65.TP.. JSRBSOUT..P . LDA#8..P.. JS
RBSOUT..P.. LDY#0..Q.. STY$8000..QH.;..Q
R.LOOP7 LDX#20.)Q.. LDA#32.:Q..LOOP15 CP
X#0.IQ.. BEQENDL15.WQ.. JSRBSOUT.`Q.. DE
X.OQ.. JMPLOOP15..Q..ENDL15 LDA#27; PRIN
T#1,ESC *,M,N1,N2..Q". JSRBSOUT..Q,. LDA
#42..Q6. JSRBSOUT.QQ@.MARK22 LDA#0..QJ. 
JSRBSOUT..QT. LDA#64..Q^. JSRBSOUT..RH. 
LDA#1..RR. JSRBSOUT..R|.;.$R.. LDY#00.2R
.. STY$8001.@R.. STY$8002.FR..;.ER.. LDX
#0; EINE ZEILE DRUCKEN.SR.. STX$8001..RB
.LOOP8 LDX#0..RL. STX$8002..RV.LOOP9 LDA
($F7),Y..R.. JSRBSOUT..R.. CLC.IR.. LDA$
F7.TR.. ADC#1..R.  STA$F7..R.  LDA$F8..R
.  ADC#0..S&  STA$F8..S0 ;..S:  INC$8002
.%SD  INC$D020.3SN  LDX$8002.?SX  CPX#40
.MSB  BNELOOP9.[SL  INC$8001.ISV  INC$D0
21.WS.  LDA$8001..S.  CMP#8..S.  BNELOOP
8..S. ;..S.  LDA#10; LINEFEED..S. MARK18
 JSRBSOUT..S.  LDA#13; CARRIAGE RETURN..
SF MARK19 JSRBSOUT..SP ;..TZ  LDX#25.!T.
  INC$8000; NAECHSTE ZEILE./T.  LDX$8000
.;T.  CPX#25.IT.! BNELOOP7.OT.!;.FT.!MAR
K20 JMPEDRUCKEN.LT !;..T*!LOOP10 LDA#27;
 PAPIER ZURUECK N/216 ZOLL..T4! JSRBSOUT
..T>! LDA#106.BTH! JSRBSOUT.NTR! LDA#24.
.T\! JSRBSOUT..TF! DEX..TP! BNELOOP10..T
Z!;..U.!EDRUCKEN JSRCLRCHN..U.! LDA#1.*U
.! JSRCLOSE.9U.! JSRCSTART.BU.! RTS.HU.!
;.NU.!;.KU.!; DRUCKPARAMETER AENDERN.QUJ
!;..UT!TEXT6 .TX"..  DRUCKPARAMETER AEND
ERN ..."..U.! .BY13.DU.! .TX"   <1>  NUR
 CR.".OU.! .BY13..U.! .TX"   <2>  NUR LF
."..U." .BY13..V." .TX"   <3>  LF UND CR
.."..V." .BY13.IV$" .TX"   <4>  PAPIERRU
ECKLAUF MOEGLICH.".TV." .BY13..V8" .TX" 
  <5>  PAPIERRUECKLAUF NICHT MOEGLICH.."
..VB" .BY13..VL" .TX"   <Q>  QUIT.."..VV
" .BY13.UV`" .TX"   <T>  LINKER RAND."..
VJ" .BY13..VT" .TX"   <S>  SEK-ADRESSE."
..W~" .BY13.(W." .TX"   <B>  BILDGROESSE
".2W." .BY0.8W.";.MW."PARAEND JSRBASIC.X
W." LDX#0.NW."LOOP13 LDATEXT6,X.YWD" CMP
#0..WN" BEQENDL13..WX" JSRBSOUT..W." INX
..W." JMPLOOP13.DW."ENDL13 JSRPARAUSG.XW
.#LOOP14 STA$D020..W.# JSRPFAUSG..W.# LD
A198..W.# CMP#0..X(# BEQLOOP14..X2# JSRG
ETKEY.)X<# CMP#"1".7XF# BEQNURCR.DXP# CM
P#"2".RXZ# BEQNURLF._XD# CMP#"3".OXN# BE
QCRUNDLF.|XX# CMP#"4"..X.# BEQRMOEGL..X.
# CMP#"5"..X.# BEQRNOTMOEGL..X # CMP#"Q"
.HX.# BEQEPARAEND.UX.# CMP#"T"..X.# BEQT
AB..XH# CMP#"S"..XR# BEQSEK..Y.# CMP#"B"
..Y.# BEQSIZE.#Y.# JMPLOOP14.)Y.#;.;Y.$N
URCR JSRCRON.IY.$ JSRLFOFF.XY.$ JMPLOOP1
4.JY"$NURLF JSRLFON.XY,$ JSRCROFF..Y6$ J
MPLOOP14..Y@$CRUNDLF JSRLFON..YJ$ JSRCRO
N..YT$ JMPLOOP14.MY^$RMOEGL JSRRUECKON..
YH$ JMPLOOP14..YR$RNOTMOEGL JSRRUECKOFF.
.Z|$ JMPLOOP14..Z.$EPARAEND JSRGRA2.)Z.$
 JMPSUBMEN./Z.$;.BZ.$TAB JMPTABAEND.UZ.$
SEK JMPSEKAEND.JZ.$SIZE JMPSIZEAEND.PZB$
;..ZL$CRON LDA#$20; JMP-BEFEHL..ZV$ STAM
ARK19..Z.$ LDA#<(BSOUT)..Z.$ STAMARK19+1
.QZ.$ LDA#>(BSOUT)..Z.$ STAMARK19+2..Z.%
 RTS..Z.%;..[.%CROFF LDA#$EA; NOP-BEFEHL
..[&% STAMARK19./[0% STAMARK19+1.@[:% ST
AMARK19+2.I[D% RTS.O[N%;.`[X%LFON LDA#$2
0.O[B% STAMARK18..[L% LDA#<(BSOUT)..[V% 
STAMARK18+1..[.% LDA#>(BSOUT)..[.% STAMA
RK18+2..[.% RTS.D[.%;..[.%LFOFF LDA#$EA;
 NOP..[.% STAMARK18..[.% STAMARK18+1..\F
% STAMARK18+2..\P% RTS..\Z%;.<\.%RUECKOF
F LDA#$20; JMP-BEFEHL.K\.% STAMARK20.`\.
% LDA#<(EDRUCKEN).Q\.& STAMARK20+1..\.& 
LDA#>(EDRUCKEN)..\.& STAMARK20+2. \ & RT
S..\*&;.F\4&RUECKON LDA#$EA; NOP-BEFEHL.
U\>& STAMARK20..\H& STAMARK20+1..\R& STA
MARK20+2..]\& RTS..]F&;..]P&;..]Z&PARAUS
G LDA#5.*].& STA646.3].& CLC.?].& LDX#18
.K].& LDY#22.Z].& JSRSETCRS.E].& LDA#0.U
].& LDXLOOP7+1..]J& JSRPOSINT..]T& LDA#3
2..].& JSRBSOUT..].& CLC..].& LDX#20..].
& LDY#22.N].' JSRSETCRS.Y].' LDA#0..].' 
LDXMARK21+1..]$' JSRPOSINT..^.' LDA#32..
^8' JSRBSOUT.!^B' JSRBSOUT.*^L' CLC.6^V'
 LDX#22.B^`' LDY#22.Q^J' JSRSETCRS.\^T' 
LDA#0.M^~' LDXMARK22+1.|^.' JSRPOSINT..^
.' RTS..^.';..^.'TABAEND LDX#"T"..^.' JM
PWERTEPM..^.';.I^D'SEKAEND LDX#"S".Y^N' 
JMPWERTEPM..^X';..^.'SIZEAEND LDX#"B".._
.' JMPWERTEPM.._.';.2_.(WERTEPM STXPLUS+
1; WERTE VERAENDERN.B_.( STXMINUS+1.M_.(
 LDA#6.[_.( STA$D020.Q_((MARK23 JSRPARAU
SG.._2(LOOP16 LDA198.._<( CMP#0.._F( BEQ
LOOP16.._P( JSRGETKEY.._Z( CMP#"+".F_D( 
BEQPLUS.S_N( CMP#"-".._X( BEQMINUS.._.( 
CMP#13.._.( BEQENDWPM..`.( JMPLOOP16..` 
(;. `.(PLUS LDA#0.-`.( CMP#"T".;`.( BEQP
LUST.H`H( CMP#"S".V`R( BEQPLUSS.C`.( CMP
#"B".Q`.( BEQPLUSB.W`.(;..`.(MINUS LDA#0
..`.) CMP#"T"..`.) BEQMINUST..`.) CMP#"S
"..`") BEQMINUSS.L`,) CMP#"B"..`6) BEQMI
NUSB..`@);..`J)ENDWPM JMPLOOP14..`T);..A
^)PLUST LDALOOP7+1..AH) CMP#70.+AR) BEQE
NDPT.;A|) INCLOOP7+1.OA.)ENDPT JMPMARK23
.UA.);.KA.)PLUSS LDAMARK21+1.XA.) CMP#25
5..A.) BEQENDPS..A.) INCMARK21+1..AB)END
PS JMPMARK23..AL);.GAV)PLUSB LDAMARK22+1
.RA.) CMP#7..A.) BEQENDPB..A.) INCMARK22
+1..B.)ENDPB JMPMARK23..B.*;.!B.*MINUST 
LDALOOP7+1.,B.* CMP#0.:B&* BEQENDMT.JB0*
 DECLOOP7+1.^B:*ENDMT JMPMARK23.DBD*;.{B
N*MINUSS LDAMARK21+1..BX* CMP#0..BB* BEQ
ENDMS..BL* DECMARK21+1..BV*ENDMS JMPMARK
23..B.*;.VB.*MINUSB LDAMARK22+1..B.* CMP
#0..B.* BEQENDMB..C.* DECMARK22+1..C.*EN
DMB JMPMARK23..C.*;./CF*PFAUSG LDAMARK18
.:CP* LDX#5.HCZ* STX55416.VC.* STX55496.
DC.* STX55696.RC.* STX55776.C.+ CMP#$EA
..C.+ BNEMCROULF..C.+MCR LDA#">"..C + ST
A1144..C*+ LDA#32.EC4+ STA1224.RC>+ STA1
304..CH+ JMPMRONR..CR+MCROULF LDAMARK19.
.D\+ CMP#$EA..DF+ BNEMCRULF."DP+MLF LDA#
">"./DZ+ STA1224.;D.+ LDA#32.HD.+ STA114
4.UD.+ STA1304.CD.+ JMPMRONR.VD.+MCRULF 
LDA#">"..D.+ STA1304..D.+ LDA#32..DJ+ ST
A1144..DT+ STA1224..D.+ JMPMRONR..D.+;.Q
D.+MRONR LDAMARK20..D.+ CMP#$EA..D., BEQ
MR..D.,MNR LDA#">"..E., STA1504..E$, LDA
#32..E., STA1424.(E8, RTS.7EB,MR LDA#">"
.DEL, STA1424.PEV, LDA#32.]E`, STA1504.F
EJ, RTS.LET,;.RE~,;...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL