CONVERT.SRC
FILE INFORMATION
FILENAME(S): CONVERT.SRC
FILE TYPE(S): SEQ
FILE SIZE: 26.4K
FIRST SEEN: 2025-11-30 01:13:13
APPEARS ON: 2 disk(s)
FILE HASH
78a41f694cb33657dd88bf51f755b9099648bd81ad8f16419412331f9e522b38
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15828 SEITE B | CONVERT.SRC | SEQ | C64er | 21 | 12 | DOWNLOAD FILE |
| 15828 SEITE B | CONVERT.SRC | SEQ | DuncanTwain | 21 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 0D 3B 20 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |;.; ..........| 00000010: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000020: C0 C0 C0 C0 C0 C0 AE 0D 3B 20 20 20 DD 20 20 20 |........; . | 00000030: 20 20 C2 49 54 4D 41 50 C3 4F 4E 56 45 52 54 45 | .ITMAP.ONVERTE| 00000040: 52 20 D6 31 2E 34 34 20 20 20 20 20 DD 0D 3B 20 |R .1.44 ..; | 00000050: 20 20 DD 20 20 28 C3 29 20 31 39 38 37 20 42 59 | . (.) 1987 BY| 00000060: 20 C3 41 52 53 54 45 4E 20 C3 4C 41 53 4F 48 4D | .ARSTEN .LASOHM| 00000070: 20 20 DD 0D 3B 20 20 20 AB C0 C0 C0 C0 C0 C0 C0 | ..; ........| 00000080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000090: C0 C0 C0 C0 C0 C0 C0 C0 B3 0D 3B 20 20 20 DD 20 |..........; . | 000000A0: D6 20 31 2E 30 20 57 52 49 54 54 45 4E 20 46 52 |. 1.0 WRITTEN FR| 000000B0: 4F 4D 20 32 38 2E 31 32 2E 31 39 38 37 20 DD 0D |OM 28.12.1987 ..| 000000C0: 3B 20 20 20 DD 20 20 20 20 20 20 20 20 20 20 20 |; . | 000000D0: 20 20 20 20 20 20 54 4F 20 20 34 2E 20 31 2E 31 | TO 4. 1.1| 000000E0: 39 38 38 20 DD 0D 3B 20 20 20 DD 20 20 20 4C 41 |988 ..; . LA| 000000F0: 53 54 20 4D 4F 44 49 46 49 45 44 20 4F 4E 20 32 |ST MODIFIED ON 2| 00000100: 30 2E 20 31 2E 31 39 38 38 20 DD 0D 3B 20 20 20 |0. 1.1988 ..; | 00000110: AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000120: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000130: BD 0D 3B 0D 3B 20 2A 2A 2A 20 C7 45 4F 53 2D CC |..;.; *** .EOS-.| 00000140: 49 42 52 41 52 49 41 4E 20 D6 31 2E 34 2C 20 28 |IBRARIAN .1.4, (| 00000150: C3 29 20 31 39 38 37 20 42 59 20 C3 41 52 53 54 |.) 1987 BY .ARST| 00000160: 45 4E 20 C3 4C 41 53 4F 48 4D 20 2A 2A 2A 0D 3B |EN .LASOHM ***.;| 00000170: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 | ** | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001A0: 20 2A 2A 0D 3B 20 20 2A 2A 20 20 20 20 20 20 20 | **.; ** | 000001B0: 20 20 20 20 20 20 20 D3 54 41 4E 44 3A 20 32 30 | .TAND: 20| 000001C0: 2E 31 2E 31 39 38 37 20 20 20 20 20 20 20 20 20 |.1.1987 | 000001D0: 20 20 20 20 20 20 20 2A 2A 0D 4F 52 47 20 24 30 | **.ORG $0| 000001E0: 34 30 32 0D 4A 4D 50 20 45 4E 44 45 0D 3B 0D 3B |402.JMP ENDE.;.;| 000001F0: 20 2A 2A 2A 20 CC 41 42 45 4C 53 2C 41 4C 4C 47 | *** .ABELS,ALLG| 00000200: 45 4D 45 49 4E 45 20 2A 2A 2A 0D 3B 0D 3A 52 30 |EMEINE ***.;.:R0| 00000210: 3D 24 30 32 20 20 20 20 20 20 3B C1 52 42 45 49 |=$02 ;.RBEI| 00000220: 54 53 52 45 47 49 53 54 45 52 0D 3A 52 31 3D 24 |TSREGISTER.:R1=$| 00000230: 30 34 20 20 20 20 20 20 3B 44 45 52 20 C7 45 4F |04 ;DER .EO| 00000240: 53 2D D2 4F 55 54 49 4E 45 4E 0D 3A 52 32 3D 24 |S-.OUTINEN.:R2=$| 00000250: 30 36 0D 3A 52 33 3D 24 30 38 0D 3A 52 34 3D 24 |06.:R3=$08.:R4=$| 00000260: 30 41 0D 3A 52 35 3D 24 30 43 0D 3A 52 36 3D 24 |0A.:R5=$0C.:R6=$| 00000270: 30 45 0D 3A 52 37 3D 24 31 30 0D 3A 52 39 3D 24 |0E.:R7=$10.:R9=$| 00000280: 31 34 0D 3A 52 31 30 3D 24 31 36 0D 3A 5A 50 31 |14.:R10=$16.:ZP1| 00000290: 3D 24 34 36 20 20 20 20 20 3B DA 45 52 4F 50 41 |=$46 ;.EROPA| 000002A0: 47 45 2D DA 45 49 47 45 52 20 46 55 45 52 0D 3A |GE-.EIGER FUER.:| 000002B0: 5A 50 32 3D 24 34 38 20 20 20 20 20 3B C1 50 50 |ZP2=$48 ;.PP| 000002C0: 4C 49 4B 41 54 49 4F 45 4E 0D 3A 5A 50 33 3D 24 |LIKATIOEN.:ZP3=$| 000002D0: 34 41 0D 3A 5A 50 34 3D 24 34 43 0D 3A 5A 50 35 |4A.:ZP4=$4C.:ZP5| 000002E0: 3D 24 34 45 0D 3A 5A 50 38 3D 24 35 34 0D 3A 5A |=$4E.:ZP8=$54.:Z| 000002F0: 50 39 3D 24 35 36 0D 3A 5A 50 31 30 3D 24 35 38 |P9=$56.:ZP10=$58| 00000300: 0D 3A 5A 50 32 38 3D 24 37 43 0D 3A 5A 50 32 39 |.:ZP28=$7C.:ZP29| 00000310: 3D 24 37 45 0D 3A 4E 55 4C 4C 3D 30 0D 3A 43 49 |=$7E.:NULL=0.:CI| 00000320: 41 31 3D 35 36 33 32 30 20 20 20 20 20 3B C2 41 |A1=56320 ;.A| 00000330: 53 49 53 41 44 52 2E 20 44 45 52 20 C3 49 41 31 |SISADR. DER .IA1| 00000340: 0D 3A 4D 4F 55 53 45 58 3D 24 33 41 20 20 20 20 |.:MOUSEX=$3A | 00000350: 20 3B D8 2D CB 4F 4F 52 44 2E 20 44 45 52 20 CD | ;.-.OORD. DER .| 00000360: 41 55 53 0D 3A 4D 4F 55 53 45 59 3D 24 33 43 20 |AUS.:MOUSEY=$3C | 00000370: 20 20 20 20 3B D9 2D CB 4F 4F 52 44 2E 20 44 45 | ;.-.OORD. DE| 00000380: 52 20 CD 41 55 53 0D 3A 42 4F 52 44 4F 3D 24 38 |R .AUS.:BORDO=$8| 00000390: 34 42 38 0D 3A 42 4F 52 44 55 3D 24 38 34 42 39 |4B8.:BORDU=$84B9| 000003A0: 20 20 20 20 3B C7 52 45 4E 5A 45 4E 0D 3A 42 4F | ;.RENZEN.:BO| 000003B0: 52 44 4C 3D 24 38 34 42 41 20 20 20 20 3B 46 55 |RDL=$84BA ;FU| 000003C0: 45 52 20 CD 41 55 53 0D 3A 42 4F 52 44 52 3D 24 |ER .AUS.:BORDR=$| 000003D0: 38 34 42 43 0D 3A 52 45 43 56 42 4F 58 52 3D 24 |84BC.:RECVBOXR=$| 000003E0: 43 31 32 44 20 3B D2 4F 55 54 49 4E 45 4E 41 44 |C12D ;.OUTINENAD| 000003F0: 52 2E 0D 3A 53 45 54 3D 24 46 46 20 20 20 20 20 |R..:SET=$FF | 00000400: 20 20 20 3B C6 4C 41 47 20 53 45 54 5A 45 4E 0D | ;.LAG SETZEN.| 00000410: 3A 43 4C 45 41 52 3D 30 20 20 20 20 20 20 20 20 |:CLEAR=0 | 00000420: 3B C6 4C 41 47 20 4C 4F 45 53 43 48 45 4E 0D 3B |;.LAG LOESCHEN.;| 00000430: 0D 3B 20 2A 2A 2A 20 CC 41 42 45 4C 53 2C D0 D5 |.; *** .ABELS,..| 00000440: D4 C3 C8 C1 D2 20 2A 2A 2A 0D 3B 0D 3A 43 52 3D |..... ***.;.:CR=| 00000450: 31 33 0D 3A 42 4F 4C 44 4F 4E 3D 32 34 0D 3A 49 |13.:BOLDON=24.:I| 00000460: 54 41 4C 49 43 4F 4E 3D 32 35 0D 3A 4F 55 54 4C |TALICON=25.:OUTL| 00000470: 49 4E 45 3D 32 36 0D 3A 50 4C 41 49 4E 54 45 58 |INE=26.:PLAINTEX| 00000480: 54 3D 32 37 0D 3B 0D 3B 20 2A 2A 2A 20 CC 41 42 |T=27.;.; *** .AB| 00000490: 45 4C 53 2C C4 C9 C1 CC C2 CF D8 20 2A 2A 2A 0D |ELS,....... ***.| 000004A0: 3B 0D 3A 4F 4B 3D 24 30 31 0D 3A 43 41 4E 43 45 |;.:OK=$01.:CANCE| 000004B0: 4C 3D 24 30 32 0D 3A 59 45 53 3D 24 30 33 0D 3A |L=$02.:YES=$03.:| 000004C0: 4E 4F 3D 24 30 34 0D 3B 0D 3B 20 2A 2A 2A 20 CD |NO=$04.;.; *** .| 000004D0: 41 4B 52 4F 53 20 2A 2A 2A 0D 3B 0D 3B 0D 3B 20 |AKROS ***.;.;.; | 000004E0: 2A 2A 2A 20 C2 D9 D4 C5 D3 20 2B 20 D7 CF D2 D4 |*** ..... + ....| 000004F0: C5 20 CB CF D0 C9 C5 D2 C5 CE 20 2B 20 D6 C5 D2 |. ........ + ...| 00000500: D3 C3 C8 C9 C5 C2 C5 CE 20 2A 2A 2A 0D 3B 0D 3B |........ ***.;.;| 00000510: 20 2A 20 D7 45 52 54 20 49 4E 20 D3 50 45 49 43 | * .ERT IN .PEIC| 00000520: 48 45 52 53 54 45 4C 4C 45 20 53 43 48 52 45 49 |HERSTELLE SCHREI| 00000530: 42 45 4E 20 2A 0D 3A 50 4F 4B 45 20 4D 20 32 20 |BEN *.:POKE M 2 | 00000540: 20 20 20 20 20 20 20 20 20 3B 28 C1 44 52 45 53 | ;(.DRES| 00000550: 53 45 3B D7 45 52 54 29 0D 4C 44 41 20 23 40 31 |SE;.ERT).LDA #@1| 00000560: 0D 53 54 41 20 40 30 0D 2F 0D 3B 20 2A 20 D7 4F |.STA @0./.; * .O| 00000570: 52 54 20 27 57 45 52 54 27 20 49 4E 20 27 52 45 |RT 'WERT' IN 'RE| 00000580: 47 49 53 54 45 52 27 20 4C 41 44 45 4E 20 2A 0D |GISTER' LADEN *.| 00000590: 3A 4C 4F 41 44 57 20 4D 20 32 20 20 20 20 20 3B |:LOADW M 2 ;| 000005A0: 28 57 45 52 54 3B 52 45 47 49 53 54 45 52 29 0D |(WERT;REGISTER).| 000005B0: 50 4F 4B 45 20 40 31 2C 3C 40 30 0D 50 4F 4B 45 |POKE @1,<@0.POKE| 000005C0: 20 40 31 2B 31 2C 3E 40 30 0D 2F 0D 3B 20 2A 20 | @1+1,>@0./.; * | 000005D0: C2 59 54 45 20 4B 4F 50 49 45 52 45 4E 20 2A 0D |.YTE KOPIEREN *.| 000005E0: 3A 43 4F 50 20 4D 20 32 20 20 20 20 20 20 20 20 |:COP M 2 | 000005F0: 3B 28 D3 52 43 42 59 54 45 3B C4 45 53 54 42 59 |;(.RCBYTE;.ESTBY| 00000600: 54 45 29 0D 4C 44 41 20 40 30 0D 53 54 41 20 40 |TE).LDA @0.STA @| 00000610: 31 0D 2F 0D 3B 20 2A 20 D7 4F 52 54 20 4B 4F 50 |1./.; * .ORT KOP| 00000620: 49 45 52 45 4E 20 2A 0D 3A 54 52 41 4E 53 57 20 |IEREN *.:TRANSW | 00000630: 4D 20 32 20 20 20 20 20 20 3B 28 53 52 43 52 45 |M 2 ;(SRCRE| 00000640: 47 3B 44 45 53 54 52 45 47 29 0D 43 4F 50 20 40 |G;DESTREG).COP @| 00000650: 30 2C 40 31 0D 43 4F 50 20 40 30 2B 31 2C 40 31 |0,@1.COP @0+1,@1| 00000660: 2B 31 0D 2F 0D 3B 0D 3B 20 2A 2A 2A 20 C7 D2 C1 |+1./.;.; *** ...| 00000670: C6 C9 CB 20 2A 2A 2A 0D 3B 0D 3B 20 2A 20 C2 49 |... ***.;.; * .I| 00000680: 4C 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 |LDSCHIRM LOESCHE| 00000690: 4E 20 2A 0D 3A 43 4C 53 20 4D 20 30 20 20 20 20 |N *.:CLS M 0 | 000006A0: 20 20 20 20 3B 28 29 0D 4A 53 52 20 43 4C 53 52 | ;().JSR CLSR| 000006B0: 4F 55 54 0D 2F 0D 3B 20 2A 20 CD 55 53 54 45 52 |OUT./.; * .USTER| 000006C0: 20 53 45 54 5A 45 4E 20 2A 0D 3A 50 41 54 54 45 | SETZEN *.:PATTE| 000006D0: 52 4E 20 4D 20 31 20 20 20 3B 28 CD 55 53 54 45 |RN M 1 ;(.USTE| 000006E0: 52 29 0D 4C 44 41 20 23 40 30 0D 4A 53 52 20 24 |R).LDA #@0.JSR $| 000006F0: 43 31 33 39 0D 2F 0D 3B 20 2A 20 C1 55 53 47 45 |C139./.; * .USGE| 00000700: 46 55 45 4C 4C 54 45 53 20 D2 45 43 48 54 45 43 |FUELLTES .ECHTEC| 00000710: 4B 20 5A 45 49 43 48 4E 45 4E 20 2A 0D 3A 42 4F |K ZEICHNEN *.:BO| 00000720: 58 20 4D 20 35 20 20 20 20 20 20 20 3B 28 D9 2D |X M 5 ;(.-| 00000730: 4C 2E 4F 2E 3B D9 2D 52 2E 55 2E 3B D8 2D 4C 2E |L.O.;.-R.U.;.-L.| 00000740: 4F 2E 3B D8 2D 52 2E 55 2E 3B CD 55 53 54 45 52 |O.;.-R.U.;.USTER| 00000750: 29 0D 50 41 54 54 45 52 4E 20 40 34 0D 4A 53 52 |).PATTERN @4.JSR| 00000760: 20 24 43 31 39 46 0D 42 20 40 30 2C 40 31 0D 57 | $C19F.B @0,@1.W| 00000770: 20 40 32 2C 40 33 0D 2F 0D 3B 20 2A 20 D2 45 43 | @2,@3./.; * .EC| 00000780: 48 54 45 43 4B 20 5A 45 49 43 48 4E 45 4E 20 2A |HTECK ZEICHNEN *| 00000790: 0D 3A 46 52 41 4D 45 20 4D 20 30 20 20 20 20 20 |.:FRAME M 0 | 000007A0: 20 3B 28 29 0D 4A 53 52 20 24 43 31 32 37 0D 2F | ;().JSR $C127./| 000007B0: 0D 3B 20 2A 20 D2 45 43 48 54 45 43 4B 49 47 45 |.; * .ECHTECKIGE| 000007C0: 4E 20 C2 45 52 45 49 43 48 20 49 4E 56 45 52 54 |N .EREICH INVERT| 000007D0: 49 45 52 45 4E 20 2A 0D 3A 49 4E 56 42 4F 58 20 |IEREN *.:INVBOX | 000007E0: 4D 20 30 20 20 20 20 20 3B 28 29 0D 4A 53 52 20 |M 0 ;().JSR | 000007F0: 24 43 31 32 41 0D 2F 0D 3B 20 2A 20 4B 4F 4D 50 |$C12A./.; * KOMP| 00000800: 52 49 4D 49 45 52 54 45 20 C2 49 54 4D 41 50 20 |RIMIERTE .ITMAP | 00000810: 41 4E 5A 45 49 47 45 4E 20 2A 0D 3A 42 49 54 4D |ANZEIGEN *.:BITM| 00000820: 41 50 20 4D 20 35 20 20 20 20 20 3B 28 C1 44 52 |AP M 5 ;(.DR| 00000830: 2E 44 2E C2 49 54 4D 41 50 3B D8 2D CB 4F 4F 52 |.D..ITMAP;.-.OOR| 00000840: 44 2E 3B D9 2D CB 4F 4F 52 44 2E 3B C2 52 45 49 |D.;.-.OORD.;.REI| 00000850: 54 41 44 52 2E 3B C8 4F 45 48 41 44 52 2E 29 0D |TADR.;.OEHADR.).| 00000860: 4C 4F 41 44 57 20 40 30 2C 52 30 0D 50 4F 4B 45 |LOADW @0,R0.POKE| 00000870: 20 34 2C 40 31 0D 50 4F 4B 45 20 35 2C 40 32 0D | 4,@1.POKE 5,@2.| 00000880: 43 4F 50 20 40 33 2C 36 0D 43 4F 50 20 40 34 2C |COP @3,6.COP @4,| 00000890: 37 0D 4A 53 52 20 24 43 31 34 32 0D 2F 0D 3B 20 |7.JSR $C142./.; | 000008A0: 2A 20 C4 49 41 4C 42 4F 58 20 45 52 5A 45 55 47 |* .IALBOX ERZEUG| 000008B0: 45 4E 20 2A 0D 3A 44 49 41 4C 42 4F 58 20 4D 20 |EN *.:DIALBOX M | 000008C0: 31 20 20 20 20 3B 28 C1 44 52 45 53 53 45 29 0D |1 ;(.DRESSE).| 000008D0: 4C 4F 41 44 57 20 40 30 2C 52 30 0D 4A 53 52 20 |LOADW @0,R0.JSR | 000008E0: 24 43 32 35 36 0D 2F 0D 3B 20 2A 20 CD 41 4B 52 |$C256./.; * .AKR| 000008F0: 4F 53 20 46 55 45 52 20 C4 C9 C1 CC C2 CF D8 20 |OS FUER ....... | 00000900: 2A 0D 3B 0D 3B 20 2A 20 D7 45 52 54 45 20 46 55 |*.;.; * .ERTE FU| 00000910: 45 52 20 C4 49 41 4C 42 4F 58 20 46 45 53 54 4C |ER .IALBOX FESTL| 00000920: 45 47 45 4E 20 2A 0D 3A 49 4E 49 54 44 49 41 4C |EGEN *.:INITDIAL| 00000930: 42 4F 58 20 4D 20 35 20 20 3B 28 CD 55 53 54 45 |BOX M 5 ;(.USTE| 00000940: 52 3B D9 4F 3B D9 55 3B D8 4C 3B D8 52 29 0D 42 |R;.O;.U;.L;.R).B| 00000950: 20 40 30 2C 40 31 2C 40 32 0D 57 20 40 33 2C 40 | @0,@1,@2.W @3,@| 00000960: 34 0D 2F 0D 3B 20 2A 20 D3 54 41 4E 44 41 52 44 |4./.; * .TANDARD| 00000970: 44 49 41 4C 42 4F 58 20 45 52 5A 45 55 47 45 4E |DIALBOX ERZEUGEN| 00000980: 20 2A 0D 3A 53 54 44 44 49 41 4C 42 4F 58 20 4D | *.:STDDIALBOX M| 00000990: 20 31 20 3B 28 CD 55 53 54 45 52 29 0D 42 20 24 | 1 ;(.USTER).B $| 000009A0: 38 30 2B 40 30 0D 3B 45 53 20 46 4F 4C 47 45 4E |80+@0.;ES FOLGEN| 000009B0: 20 44 49 45 20 CB 4F 4D 4D 41 4E 44 4F 53 0D 2F | DIE .OMMANDOS./| 000009C0: 0D 3B 0D 3B 20 2A 20 C6 45 4C 44 20 49 4E 20 C4 |.;.; * .ELD IN .| 000009D0: 49 41 4C 42 4F 58 20 42 52 49 4E 47 45 4E 20 2A |IALBOX BRINGEN *| 000009E0: 0D 3A 46 45 4C 44 20 4D 20 33 20 20 20 20 20 3B |.:FELD M 3 ;| 000009F0: 28 C6 45 4C 44 4F 50 43 4F 44 45 3B D8 3B D9 29 |(.ELDOPCODE;.;.)| 00000A00: 0D 42 20 40 30 2C 40 31 2F 38 2C 40 32 0D 2F 0D |.B @0,@1/8,@2./.| 00000A10: 3B 20 2A 20 46 45 53 54 45 4E 20 D4 45 58 54 20 |; * FESTEN .EXT | 00000A20: 49 4E 20 C4 49 41 4C 42 4F 58 20 41 4E 5A 45 49 |IN .IALBOX ANZEI| 00000A30: 47 45 4E 20 2A 0D 3A 54 45 58 54 41 55 53 20 4D |GEN *.:TEXTAUS M| 00000A40: 20 33 20 20 20 20 20 3B 28 D8 3B D9 3B D4 45 58 | 3 ;(.;.;.EX| 00000A50: 54 41 44 52 45 53 53 45 29 0D 42 20 24 30 42 2C |TADRESSE).B $0B,| 00000A60: 40 30 2C 40 31 0D 57 20 40 32 0D 2F 0D 3B 20 2A |@0,@1.W @2./.; *| 00000A70: 20 56 41 52 49 41 42 4C 45 4E 20 D4 45 58 54 20 | VARIABLEN .EXT | 00000A80: 41 4E 5A 45 49 47 45 4E 20 2A 0D 3A 56 41 52 54 |ANZEIGEN *.:VART| 00000A90: 45 58 54 41 55 53 20 4D 20 33 20 20 3B 28 D8 3B |EXTAUS M 3 ;(.;| 00000AA0: D9 3B D2 45 47 49 53 54 45 52 29 0D 42 20 24 30 |.;.EGISTER).B $0| 00000AB0: 43 2C 40 30 2C 40 31 2C 40 32 0D 2F 0D 3B 20 2A |C,@0,@1,@2./.; *| 00000AC0: 20 C6 49 4C 45 53 20 41 55 53 57 41 45 48 4C 45 | .ILES AUSWAEHLE| 00000AD0: 4E 20 28 C6 49 4E 44 54 59 50 45 2D D0 41 52 41 |N (.INDTYPE-.ARA| 00000AE0: 4D 2E 4E 49 43 48 54 20 56 45 52 47 45 53 53 45 |M.NICHT VERGESSE| 00000AF0: 4E 21 29 20 2A 0D 3A 47 45 54 46 49 4C 45 53 20 |N!) *.:GETFILES | 00000B00: 4D 20 32 20 20 20 20 3B 28 D8 3B D9 29 0D 42 20 |M 2 ;(.;.).B | 00000B10: 24 31 30 2C 40 30 2C 40 31 0D 2F 0D 3B 20 2A 20 |$10,@0,@1./.; * | 00000B20: 41 55 46 20 C7 C5 D4 C6 C9 CC C5 D3 20 56 4F 52 |AUF ........ VOR| 00000B30: 42 45 52 45 49 54 45 4E 20 2A 0D 3A 49 4E 49 54 |BEREITEN *.:INIT| 00000B40: 47 45 54 46 49 4C 45 53 20 4D 20 33 20 20 20 3B |GETFILES M 3 ;| 00000B50: 28 C6 49 4C 45 54 59 50 3B C1 42 4C 41 47 45 41 |(.ILETYP;.BLAGEA| 00000B60: 44 52 2E 3B 43 4C 41 53 53 29 0D 50 4F 4B 45 20 |DR.;CLASS).POKE | 00000B70: 24 31 30 2C 40 30 0D 4C 4F 41 44 57 20 40 31 2C |$10,@0.LOADW @1,| 00000B80: 52 35 0D 4C 4F 41 44 57 20 40 31 2C 52 36 0D 4C |R5.LOADW @1,R6.L| 00000B90: 4F 41 44 57 20 40 32 2C 52 31 30 0D 2F 0D 3B 20 |OADW @2,R10./.; | 00000BA0: 2A 20 C9 43 4F 4E 20 49 4E 20 C4 C2 2D C2 4F 58 |* .CON IN ..-.OX| 00000BB0: 20 47 45 4E 45 52 49 45 52 45 4E 20 2A 0D 3A 55 | GENERIEREN *.:U| 00000BC0: 53 52 49 43 4F 4E 20 4D 20 33 20 20 20 20 20 3B |SRICON M 3 ;| 00000BD0: 28 D8 3B D9 3B C9 43 4F 4E 54 41 42 45 4C 4C 45 |(.;.;.CONTABELLE| 00000BE0: 4E 41 44 52 2E 29 0D 42 20 24 31 32 2C 40 30 2F |NADR.).B $12,@0/| 00000BF0: 38 2C 40 31 0D 57 20 40 32 0D 2F 0D 3B 20 2A 20 |8,@1.W @2./.; * | 00000C00: C9 43 4F 4E 54 41 42 45 4C 4C 45 20 2A 0D 3A 49 |.CONTABELLE *.:I| 00000C10: 43 4F 4E 20 4D 20 36 20 20 20 20 20 20 20 20 3B |CON M 6 ;| 00000C20: 28 DA 47 2E 41 55 46 20 C2 49 54 4D 41 50 3B D8 |(.G.AUF .ITMAP;.| 00000C30: 3B D9 3B C2 52 45 49 54 45 3B C8 4F 45 48 45 3B |;.;.REITE;.OEHE;| 00000C40: D2 4F 55 54 41 44 52 2E 29 0D 57 20 40 30 0D 42 |.OUTADR.).W @0.B| 00000C50: 20 40 31 2C 40 32 2C 40 33 2C 40 34 0D 57 20 40 | @1,@2,@3,@4.W @| 00000C60: 35 0D 2F 0D 3B 20 2A 20 D6 4F 4E 20 45 49 47 45 |5./.; * .ON EIGE| 00000C70: 4E 45 52 20 D2 4F 55 54 49 4E 45 20 5A 55 52 55 |NER .OUTINE ZURU| 00000C80: 45 43 4B 20 5A 55 52 20 C4 C2 20 2A 0D 3A 52 53 |ECK ZUR .. *.:RS| 00000C90: 54 44 49 41 4C 20 4D 20 31 20 20 20 20 20 3B 28 |TDIAL M 1 ;(| 00000CA0: C3 4F 44 45 20 46 55 45 52 20 24 38 35 31 44 29 |.ODE FUER $851D)| 00000CB0: 0D 50 4F 4B 45 20 24 38 35 31 44 2C 40 30 0D 4A |.POKE $851D,@0.J| 00000CC0: 4D 50 20 24 43 32 42 46 0D 2F 0D 3B 20 2A 2A 2A |MP $C2BF./.; ***| 00000CD0: 20 C5 4E 44 45 20 C4 C9 C1 CC C2 CF D8 2D CD 41 | .NDE .......-.A| 00000CE0: 4B 52 4F 53 20 2A 2A 2A 0D 3B 0D 3B 20 2A 20 C6 |KROS ***.;.; * .| 00000CF0: 4C 41 45 43 48 45 20 41 55 53 20 32 2E 20 49 4E |LAECHE AUS 2. IN| 00000D00: 20 31 2E C2 49 54 4D 41 50 20 48 4F 4C 45 4E 20 | 1..ITMAP HOLEN | 00000D10: 2A 0D 3A 52 45 43 56 42 4F 58 20 4D 20 34 20 20 |*.:RECVBOX M 4 | 00000D20: 3B 28 D8 4C 2E 4F 3B D9 4C 2E 4F 2E 3B D8 52 2E |;(.L.O;.L.O.;.R.| 00000D30: 55 2E 3B D9 52 2E 55 2E 29 0D 4A 53 52 20 24 43 |U.;.R.U.).JSR $C| 00000D40: 31 41 35 0D 42 20 40 31 2C 40 33 0D 57 20 40 30 |1A5.B @1,@3.W @0| 00000D50: 2C 40 32 0D 2F 0D 3B 20 2A 20 C1 44 52 45 53 53 |,@2./.; * .DRESS| 00000D60: 45 20 45 49 4E 45 52 20 DA 45 49 4C 45 20 49 4E |E EINER .EILE IN| 00000D70: 20 C2 49 54 4D 41 50 20 42 45 52 45 43 48 4E 45 | .ITMAP BERECHNE| 00000D80: 4E 20 2A 0D 3A 53 43 41 4E 20 4D 20 30 20 20 20 |N *.:SCAN M 0 | 00000D90: 20 20 20 20 20 3B 28 29 0D 4A 53 52 20 24 43 31 | ;().JSR $C1| 00000DA0: 33 43 0D 2F 0D 3B 0D 3B 20 2A 2A 2A 20 D4 C5 D8 |3C./.;.; *** ...| 00000DB0: D4 20 2A 2A 2A 0D 3B 0D 3B 20 2A 20 D4 45 58 54 |. ***.;.; * .EXT| 00000DC0: 20 49 4E 20 C7 45 4F 53 46 4F 52 4D 41 54 20 4B | IN .EOSFORMAT K| 00000DD0: 4F 4E 56 45 52 54 49 45 52 45 4E 20 2A 0D 3A 54 |ONVERTIEREN *.:T| 00000DE0: 58 54 43 4F 4E 56 20 4D 20 31 20 20 20 3B 28 C1 |XTCONV M 1 ;(.| 00000DF0: 44 52 45 53 53 45 29 0D 4C 4F 41 44 57 20 40 30 |DRESSE).LOADW @0| 00000E00: 2C 24 46 42 0D 4A 53 52 20 43 4F 4E 56 45 52 54 |,$FB.JSR CONVERT| 00000E10: 0D 2F 0D 3B 20 2A 20 56 41 52 49 41 42 4C 45 4E |./.; * VARIABLEN| 00000E20: 20 D4 45 58 54 20 4B 4F 4E 56 45 52 54 49 45 52 | .EXT KONVERTIER| 00000E30: 45 4E 20 2A 0D 3A 56 54 58 54 43 4F 4E 56 20 4D |EN *.:VTXTCONV M| 00000E40: 20 31 20 20 3B 28 DA 45 49 47 45 52 41 44 52 2E | 1 ;(.EIGERADR.| 00000E50: 29 0D 54 52 41 4E 53 57 20 40 30 2C 24 46 42 0D |).TRANSW @0,$FB.| 00000E60: 4A 53 52 20 43 4F 4E 56 45 52 54 0D 2F 0D 3B 20 |JSR CONVERT./.; | 00000E70: 2A 20 D5 4E 54 45 52 4D 41 4B 52 4F 53 20 5A 55 |* .NTERMAKROS ZU| 00000E80: 20 C9 D0 D5 D4 D3 D4 D2 20 55 4E 44 20 D0 D5 D4 | ....... UND ...| 00000E90: C3 C8 C1 D2 20 2A 0D 3A 47 4F 54 4F 58 20 4D 20 |.... *.:GOTOX M | 00000EA0: 31 20 20 20 20 20 20 20 3B 28 D8 2D CB 4F 4F 52 |1 ;(.-.OOR| 00000EB0: 44 2E 29 0D 42 20 24 31 34 0D 57 20 40 30 0D 2F |D.).B $14.W @0./| 00000EC0: 0D 3B 20 2A 20 C5 4E 44 45 20 D0 D5 D4 C3 C8 C1 |.; * .NDE ......| 00000ED0: D2 2D CD 41 4B 52 4F 53 20 2A 0D 3B 0D 3B 20 2A |.-.AKROS *.;.; *| 00000EE0: 20 D3 54 52 49 4E 47 53 20 42 45 4B 41 4E 4E 54 | .TRINGS BEKANNT| 00000EF0: 45 52 20 C7 52 4F 45 53 53 45 20 56 45 52 47 4C |ER .ROESSE VERGL| 00000F00: 45 49 43 48 45 4E 20 2A 0D 3A 43 4D 50 46 53 54 |EICHEN *.:CMPFST| 00000F10: 52 20 4D 20 33 20 20 3B 28 C1 44 52 2E 31 3B C1 |R M 3 ;(.DR.1;.| 00000F20: 44 52 2E 32 3B CC 41 45 4E 47 45 29 0D 4C 44 58 |DR.2;.AENGE).LDX| 00000F30: 20 23 40 30 0D 4C 44 59 20 23 40 31 0D 4C 44 41 | #@0.LDY #@1.LDA| 00000F40: 20 23 40 32 0D 4A 53 52 20 24 43 32 36 45 0D 2F | #@2.JSR $C26E./| 00000F50: 0D 3B 0D 3B 20 2A 2A 2A 20 D3 CF CE D3 D4 C9 C7 |.;.; *** .......| 00000F60: C5 D3 20 2A 2A 2A 0D 3B 0D 3B 20 2A 20 C4 45 53 |.. ***.;.; * .ES| 00000F70: 4B 54 4F 50 20 4C 41 44 45 4E 20 55 4E 44 20 53 |KTOP LADEN UND S| 00000F80: 54 41 52 54 45 4E 20 2A 0D 3A 44 45 53 4B 54 4F |TARTEN *.:DESKTO| 00000F90: 50 20 4D 20 30 0D 4A 4D 50 20 24 43 32 32 43 0D |P M 0.JMP $C22C.| 00000FA0: 2F 0D 3B 20 2A 20 43 50 55 20 C9 4E 48 41 4C 54 |/.; * CPU .NHALT| 00000FB0: 45 20 53 49 43 48 45 52 4E 20 2A 0D 3A 50 55 53 |E SICHERN *.:PUS| 00000FC0: 48 43 50 55 20 4D 20 30 0D 53 54 41 20 24 46 44 |HCPU M 0.STA $FD| 00000FD0: 0D 53 54 58 20 24 46 45 0D 53 54 59 20 24 46 46 |.STX $FE.STY $FF| 00000FE0: 0D 50 48 50 0D 2F 0D 3B 20 2A 20 43 50 55 20 C9 |.PHP./.; * CPU .| 00000FF0: 4E 48 41 4C 54 45 20 5A 55 52 55 45 43 4B 4C 41 |NHALTE ZURUECKLA| 00001000: 44 45 4E 20 2A 0D 3A 50 4F 50 43 50 55 20 4D 20 |DEN *.:POPCPU M | 00001010: 30 0D 4C 44 41 20 24 46 44 0D 4C 44 58 20 24 46 |0.LDA $FD.LDX $F| 00001020: 45 0D 4C 44 59 20 24 46 46 0D 50 4C 50 0D 2F 0D |E.LDY $FF.PLP./.| 00001030: 3B 20 2A 20 D8 20 D3 45 4B 55 4E 44 45 4E 20 57 |; * . .EKUNDEN W| 00001040: 41 52 54 45 4E 20 2A 0D 3A 57 41 49 54 20 4D 20 |ARTEN *.:WAIT M | 00001050: 31 20 20 20 20 20 20 3B 28 D3 45 4B 55 4E 44 45 |1 ;(.EKUNDE| 00001060: 4E 29 0D 4C 4F 41 44 57 20 40 30 2C 5A 50 31 0D |N).LOADW @0,ZP1.| 00001070: 4A 53 52 20 57 41 49 54 52 4F 55 54 0D 2F 0D 3B |JSR WAITROUT./.;| 00001080: 20 2A 20 CD C1 C9 CE 20 41 55 46 52 55 46 45 4E | * .... AUFRUFEN| 00001090: 20 2A 0D 3A 4D 41 49 4E 20 4D 20 31 20 20 20 20 | *.:MAIN M 1 | 000010A0: 20 20 3B 28 D2 45 54 55 52 4E 41 44 52 2E 29 0D | ;(.ETURNADR.).| 000010B0: 4C 4F 41 44 57 20 40 30 2C 24 38 34 39 42 0D 4A |LOADW @0,$849B.J| 000010C0: 4D 50 20 24 43 31 43 33 0D 2F 0D 3B 20 2A 20 C5 |MP $C1C3./.; * .| 000010D0: 49 4E 2F C1 55 53 47 41 42 45 20 55 45 42 45 52 |IN/.USGABE UEBER| 000010E0: 20 41 4C 54 45 20 D2 4F 55 54 49 4E 45 4E 20 56 | ALTE .OUTINEN V| 000010F0: 4F 52 42 45 52 45 49 54 45 4E 20 2A 0D 3A 49 4E |ORBEREITEN *.:IN| 00001100: 49 54 49 4F 20 4D 20 30 20 20 20 3B 28 29 0D 4A |ITIO M 0 ;().J| 00001110: 53 52 20 24 43 32 35 43 0D 2F 0D 3B 20 2A 20 C5 |SR $C25C./.; * .| 00001120: 49 4E 2F C1 55 53 47 41 42 45 20 55 45 42 45 52 |IN/.USGABE UEBER| 00001130: 20 41 4C 54 45 20 D2 4F 55 54 49 4E 45 4E 20 42 | ALTE .OUTINEN B| 00001140: 45 45 4E 44 45 4E 20 2A 0D 3A 44 4F 4E 45 49 4F |EENDEN *.:DONEIO| 00001150: 20 4D 20 30 20 20 20 3B 28 29 0D 4A 53 52 20 24 | M 0 ;().JSR $| 00001160: 43 32 35 46 0D 2F 0D 3B 20 2A 20 C9 2F CF 2D C6 |C25F./.; * ./.-.| 00001170: 45 48 4C 45 52 20 41 4E 5A 45 49 47 45 4E 20 2A |EHLER ANZEIGEN *| 00001180: 0D 3A 45 52 52 4F 52 20 4D 20 31 20 20 20 20 3B |.:ERROR M 1 ;| 00001190: 28 D2 55 45 43 4B 53 50 52 55 4E 47 41 44 52 2E |(.UECKSPRUNGADR.| 000011A0: 29 0D 4C 4F 41 44 57 20 40 30 2C 5A 50 32 38 0D |).LOADW @0,ZP28.| 000011B0: 4A 4D 50 20 45 52 52 4F 52 52 4F 55 54 0D 2F 0D |JMP ERRORROUT./.| 000011C0: 3B 0D 3B 20 2A 2A 2A 20 CD C1 D5 D3 20 2A 2A 2A |;.; *** .... ***| 000011D0: 0D 3B 0D 3B 20 2A 20 CD 41 55 53 5A 45 49 47 45 |.;.; * .AUSZEIGE| 000011E0: 52 20 41 4E 53 43 48 41 4C 54 45 4E 20 2A 0D 3A |R ANSCHALTEN *.:| 000011F0: 4D 4F 55 53 45 4F 4E 20 4D 20 30 20 20 20 20 20 |MOUSEON M 0 | 00001200: 20 20 3B 28 29 0D 4A 53 52 20 24 43 31 38 41 0D | ;().JSR $C18A.| 00001210: 2F 0D 3B 20 2A 20 CD 41 55 53 5A 45 49 47 45 52 |/.; * .AUSZEIGER| 00001220: 20 41 55 53 53 43 48 41 4C 54 45 4E 20 2A 0D 3A | AUSSCHALTEN *.:| 00001230: 4D 4F 55 53 45 4F 46 46 20 4D 20 30 20 20 20 20 |MOUSEOFF M 0 | 00001240: 20 20 3B 28 29 0D 4A 53 52 20 24 43 31 38 44 0D | ;().JSR $C18D.| 00001250: 2F 0D 3B 20 2A 20 CD 41 55 53 22 53 50 49 45 4C |/.; * .AUS"SPIEL| 00001260: 57 49 45 53 45 22 20 45 49 4E 53 54 45 4C 4C 45 |WIESE" EINSTELLE| 00001270: 4E 20 2A 0D 3A 4D 4F 55 53 45 42 4F 52 44 45 52 |N *.:MOUSEBORDER| 00001280: 20 4D 20 34 20 3B 28 4F 42 45 52 45 3B 55 4E 54 | M 4 ;(OBERE;UNT| 00001290: 45 52 45 3B 4C 49 4E 4B 45 3B 52 45 43 48 54 45 |ERE;LINKE;RECHTE| 000012A0: 20 C7 52 45 4E 5A 45 29 0D 50 4F 4B 45 20 42 4F | .RENZE).POKE BO| 000012B0: 52 44 4F 2C 40 30 0D 50 4F 4B 45 20 42 4F 52 44 |RDO,@0.POKE BORD| 000012C0: 55 2C 40 31 0D 4C 4F 41 44 57 20 40 32 2C 42 4F |U,@1.LOADW @2,BO| 000012D0: 52 44 4C 0D 4C 4F 41 44 57 20 40 33 2C 42 4F 52 |RDL.LOADW @3,BOR| 000012E0: 44 52 0D 2F 0D 3B 0D 3B 20 2A 2A 2A 20 C4 C9 D3 |DR./.;.; *** ...| 000012F0: CB 20 2A 2A 2A 0D 3B 0D 3B 20 2A 20 C6 49 4C 45 |. ***.;.; * .ILE| 00001300: 20 4C 41 44 45 4E 20 28 57 45 49 54 45 52 45 20 | LADEN (WEITERE | 00001310: D0 41 52 41 4D 45 54 45 52 29 20 2A 0D 3A 52 45 |.ARAMETER) *.:RE| 00001320: 41 44 20 4D 20 32 20 20 20 20 20 20 3B 28 CC 41 |AD M 2 ;(.A| 00001330: 44 45 41 44 52 2E 3B CD 41 58 4C 41 45 4E 47 45 |DEADR.;.AXLAENGE| 00001340: 29 0D 4C 4F 41 44 57 20 40 30 2C 52 37 0D 4C 4F |).LOADW @0,R7.LO| 00001350: 41 44 57 20 40 31 2C 52 32 0D 4A 53 52 20 24 43 |ADW @1,R2.JSR $C| 00001360: 31 46 46 0D 2F 0D 3B 20 2A 20 C4 49 53 4B 45 54 |1FF./.; * .ISKET| 00001370: 54 45 20 4F 45 46 46 4E 45 4E 20 2A 0D 3A 4F 50 |TE OEFFNEN *.:OP| 00001380: 45 4E 44 49 53 4B 20 4D 20 30 20 20 3B 28 29 0D |ENDISK M 0 ;().| 00001390: 4A 53 52 20 24 43 32 41 31 0D 2F 0D 3B 20 2A 20 |JSR $C2A1./.; * | 000013A0: C6 49 4C 45 45 49 4E 54 52 41 47 20 49 4D 20 C4 |.ILEEINTRAG IM .| 000013B0: 49 52 2E 20 53 55 43 48 45 4E 20 2A 0D 3A 46 49 |IR. SUCHEN *.:FI| 000013C0: 4E 44 46 49 4C 45 20 4D 20 31 20 20 3B 28 C6 49 |NDFILE M 1 ;(.I| 000013D0: 4C 45 4E 41 4D 45 4E 41 44 52 2E 29 0D 4C 4F 41 |LENAMENADR.).LOA| 000013E0: 44 57 20 40 30 2C 52 36 0D 4A 53 52 20 24 43 32 |DW @0,R6.JSR $C2| 000013F0: 30 42 0D 2F 0D 3B 20 2A 20 C6 49 4C 45 20 55 4D |0B./.; * .ILE UM| 00001400: 42 45 4E 45 4E 4E 45 4E 20 2A 0D 3A 52 45 4E 41 |BENENNEN *.:RENA| 00001410: 4D 45 20 4D 20 32 20 20 20 20 3B 28 4E 45 55 45 |ME M 2 ;(NEUE| 00001420: 52 20 CE 41 4D 45 3B 41 4C 54 45 52 20 CE 41 4D |R .AME;ALTER .AM| 00001430: 45 29 0D 4C 4F 41 44 57 20 40 30 2C 52 30 0D 4C |E).LOADW @0,R0.L| 00001440: 4F 41 44 57 20 40 31 2C 52 36 0D 4A 53 52 20 24 |OADW @1,R6.JSR $| 00001450: 43 32 35 39 0D 2F 0D 3B 20 2A 20 C2 4C 4F 43 4B |C259./.; * .LOCK| 00001460: 20 56 4F 4E 20 C4 49 53 4B 20 45 49 4E 4C 45 53 | VON .ISK EINLES| 00001470: 45 4E 20 28 57 45 49 54 45 52 45 20 D0 41 52 41 |EN (WEITERE .ARA| 00001480: 4D 45 54 45 52 21 29 20 2A 0D 3A 47 45 54 42 4C |METER!) *.:GETBL| 00001490: 4B 20 4D 20 31 20 20 20 20 3B 28 D3 50 45 49 43 |K M 1 ;(.PEIC| 000014A0: 48 45 52 41 44 52 2E 29 0D 4C 4F 41 44 57 20 40 |HERADR.).LOADW @| 000014B0: 30 2C 52 34 0D 4A 53 52 20 24 43 31 45 34 0D 2F |0,R4.JSR $C1E4./| 000014C0: 0D 3B 20 2A 20 D3 50 45 49 43 48 45 52 42 45 52 |.; * .PEICHERBER| 000014D0: 45 49 43 48 20 53 50 45 49 43 48 45 52 4E 20 2A |EICH SPEICHERN *| 000014E0: 0D 3A 53 41 56 45 20 4D 20 32 20 20 20 20 20 20 |.:SAVE M 2 | 000014F0: 3B 28 C9 4E 46 4F 42 4C 4F 43 4B 41 44 52 2E 3B |;(.NFOBLOCKADR.;| 00001500: C4 49 52 53 45 49 54 45 29 0D 4C 4F 41 44 57 20 |.IRSEITE).LOADW | 00001510: 40 30 2C 52 39 0D 50 4F 4B 45 20 24 31 36 2C 40 |@0,R9.POKE $16,@| 00001520: 31 0D 4A 53 52 20 24 43 31 45 44 0D 2F 0D 3B 0D |1.JSR $C1ED./.;.| 00001530: 3B 20 2A 2A 2A 20 D2 C5 C3 C8 CE C5 CE 20 2A 2A |; *** ....... **| 00001540: 2A 0D 3B 0D 3B 20 2A 20 D7 4F 52 54 20 44 45 4B |*.;.; * .ORT DEK| 00001550: 52 45 4D 45 4E 54 49 45 52 45 4E 20 2A 0D 3A 44 |REMENTIEREN *.:D| 00001560: 44 45 43 20 4D 20 31 20 20 20 20 20 20 3B 28 DA |DEC M 1 ;(.| 00001570: 50 41 44 52 2E 29 0D 4C 44 58 20 23 40 30 0D 4A |PADR.).LDX #@0.J| 00001580: 53 52 20 24 43 31 37 35 0D 2F 0D 3B 20 2A 20 D7 |SR $C175./.; * .| 00001590: 4F 52 54 20 49 4E 4B 52 45 4D 45 4E 54 49 45 52 |ORT INKREMENTIER| 000015A0: 45 4E 20 2A 0D 3A 44 49 4E 43 20 4D 20 31 20 20 |EN *.:DINC M 1 | 000015B0: 20 20 20 20 3B 28 C1 44 52 2E 29 0D 4C 4F 41 44 | ;(.DR.).LOAD| 000015C0: 57 20 40 30 2C 5A 50 32 39 0D 4A 53 52 20 44 49 |W @0,ZP29.JSR DI| 000015D0: 4E 43 52 4F 55 54 0D 2F 0D 3B 20 2A 20 D1 55 4F |NCROUT./.; * .UO| 000015E0: 54 49 45 4E 54 20 5A 57 45 49 45 52 20 D7 4F 52 |TIENT ZWEIER .OR| 000015F0: 54 45 20 42 49 4C 44 45 4E 20 2A 0D 3A 44 44 49 |TE BILDEN *.:DDI| 00001600: 56 20 4D 20 32 20 20 20 20 20 20 20 20 3B 28 C4 |V M 2 ;(.| 00001610: 49 56 49 44 2E 41 44 52 3B C4 49 56 49 53 4F 52 |IVID.ADR;.IVISOR| 00001620: 41 44 52 29 0D 4C 44 58 20 23 40 30 0D 4C 44 59 |ADR).LDX #@0.LDY| 00001630: 20 23 40 31 0D 4A 53 52 20 24 43 31 36 39 0D 2F | #@1.JSR $C169./| 00001640: 0D 3B 20 2A 20 DA 57 45 49 20 C2 59 54 45 53 20 |.; * .WEI .YTES | 00001650: 4D 55 4C 54 49 50 4C 49 5A 49 45 52 45 4E 20 2A |MULTIPLIZIEREN *| 00001660: 0D 3A 42 42 4D 55 4C 54 20 4D 20 32 20 20 20 20 |.:BBMULT M 2 | 00001670: 20 20 3B 28 D0 52 4F 44 55 4B 54 45 41 44 52 3B | ;(.RODUKTEADR;| 00001680: C5 52 47 45 42 4E 49 53 41 44 52 29 0D 4C 44 59 |.RGEBNISADR).LDY| 00001690: 20 23 40 30 0D 4C 44 58 20 23 40 31 0D 4A 53 52 | #@0.LDX #@1.JSR| 000016A0: 20 24 43 31 36 30 0D 2F 0D 3B 20 2A 20 C2 59 54 | $C160./.; * .YT| 000016B0: 45 20 4D 49 54 20 D7 4F 52 54 20 4D 55 4C 54 49 |E MIT .ORT MULTI| 000016C0: 50 4C 49 5A 49 45 52 45 4E 20 2A 0D 3A 42 4D 55 |PLIZIEREN *.:BMU| 000016D0: 4C 54 20 4D 20 32 20 20 20 20 20 20 20 3B 28 C2 |LT M 2 ;(.| 000016E0: 59 54 45 41 44 52 3B D7 4F 52 54 41 44 52 29 0D |YTEADR;.ORTADR).| 000016F0: 4C 44 59 20 23 40 30 0D 4C 44 58 20 23 40 31 0D |LDY #@0.LDX #@1.| 00001700: 4A 53 52 20 24 43 31 36 33 0D 2F 0D 3B 20 2A 20 |JSR $C163./.; * | 00001710: DA 57 45 49 20 D7 4F 52 54 45 20 53 55 42 54 52 |.WEI .ORTE SUBTR| 00001720: 41 48 49 45 52 45 4E 20 2A 0D 3A 44 53 55 42 54 |AHIEREN *.:DSUBT| 00001730: 52 20 4D 20 33 20 20 20 20 20 20 3B 28 CD 49 4E |R M 3 ;(.IN| 00001740: 55 45 4E 44 41 44 52 3B D3 55 42 54 52 41 48 45 |UENDADR;.UBTRAHE| 00001750: 4E 44 3B C4 49 46 46 45 52 45 4E 5A 29 0D 53 45 |ND;.IFFERENZ).SE| 00001760: 43 0D 4C 44 41 20 40 30 0D 53 42 43 20 40 31 0D |C.LDA @0.SBC @1.| 00001770: 53 54 41 20 40 32 0D 4C 44 41 20 40 30 2B 31 0D |STA @2.LDA @0+1.| 00001780: 53 42 43 20 40 31 2B 31 0D 53 54 41 20 40 32 2B |SBC @1+1.STA @2+| 00001790: 31 0D 2F 0D 3B 0D 3B 20 2A 2A 2A 20 D3 D0 C5 C9 |1./.;.; *** ....| 000017A0: C3 C8 C5 D2 20 D6 C5 D2 D3 C3 C8 C9 C5 C2 C5 CE |.... ...........| 000017B0: 20 2B 20 CB CF D0 C9 C5 D2 C5 CE 20 2A 2A 2A 0D | + ........ ***.| 000017C0: 3B 0D 3B 20 2A 20 D3 50 45 49 43 48 45 52 42 4C |;.; * .PEICHERBL| 000017D0: 4F 45 43 4B 45 20 56 45 52 53 43 48 49 45 42 45 |OECKE VERSCHIEBE| 000017E0: 4E 20 2A 0D 3A 4D 4F 56 45 52 41 4D 20 4D 20 33 |N *.:MOVERAM M 3| 000017F0: 20 20 20 20 20 20 20 3B 28 C1 4E 46 41 44 52 2E | ;(.NFADR.| 00001800: D1 55 45 4C 4C 45 2C C1 4E 46 41 44 52 2E DA 49 |.UELLE,.NFADR..I| 00001810: 45 4C 2C CC 41 45 4E 47 45 29 0D 4A 53 52 20 24 |EL,.AENGE).JSR $| 00001820: 43 31 42 37 0D 57 20 40 30 2C 40 31 2C 40 32 0D |C1B7.W @0,@1,@2.| 00001830: 2F 0D 3B 20 2A 20 D3 50 45 49 43 48 45 52 42 45 |/.; * .PEICHERBE| 00001840: 52 45 49 43 48 20 4D 49 54 20 24 30 30 20 46 55 |REICH MIT $00 FU| 00001850: 45 4C 4C 45 4E 20 2A 0D 3A 43 4C 45 41 52 41 4D |ELLEN *.:CLEARAM| 00001860: 20 4D 20 32 20 20 20 20 20 3B 28 C1 4E 46 41 4E | M 2 ;(.NFAN| 00001870: 47 53 41 44 52 2E 3B C1 4E 5A 41 48 4C 29 0D 4C |GSADR.;.NZAHL).L| 00001880: 4F 41 44 57 20 40 30 2C 52 31 0D 4C 4F 41 44 57 |OADW @0,R1.LOADW| 00001890: 20 40 31 2C 52 30 0D 4A 53 52 20 24 43 31 37 38 | @1,R0.JSR $C178| 000018A0: 0D 2F 0D 3B 20 2A 20 C6 49 4C 45 20 4C 4F 45 53 |./.; * .ILE LOES| 000018B0: 43 48 45 4E 20 2A 0D 3A 44 45 4C 45 54 45 20 4D |CHEN *.:DELETE M| 000018C0: 20 31 20 20 20 20 20 20 3B 28 CE 41 4D 45 4E 41 | 1 ;(.AMENA| 000018D0: 44 52 2E 29 0D 4C 4F 41 44 57 20 40 30 2C 52 30 |DR.).LOADW @0,R0| 000018E0: 0D 4A 53 52 20 24 43 32 33 38 0D 2F 0D 3B 0D 3B |.JSR $C238./.;.;| 000018F0: 2A 2A 2A 20 D2 4F 55 54 49 4E 45 4E 20 2A 2A 2A |*** .OUTINEN ***| 00001900: 0D 3B 0D 3B 20 20 2A 20 CB 4F 4E 56 45 52 54 49 |.;.; * .ONVERTI| 00001910: 45 52 55 4E 47 20 56 4F 4E 20 D4 45 58 54 20 49 |ERUNG VON .EXT I| 00001920: 4E 53 20 2A 0D 3B 20 20 20 20 20 20 20 20 20 2A |NS *.; *| 00001930: 20 C7 45 4F 53 2D C6 4F 52 4D 41 54 20 2A 0D 3A | .EOS-.ORMAT *.:| 00001940: 43 4F 4E 56 45 52 54 0D 4C 44 59 20 23 30 0D 3A |CONVERT.LDY #0.:| 00001950: 43 4E 56 54 0D 4C 44 41 20 28 24 46 42 29 2C 59 |CNVT.LDA ($FB),Y| 00001960: 0D 42 45 51 20 45 4E 44 43 4E 56 0D 43 4D 50 20 |.BEQ ENDCNV.CMP | 00001970: 23 24 31 30 0D 42 45 51 20 45 4E 44 43 4E 56 0D |#$10.BEQ ENDCNV.| 00001980: 43 4D 50 20 23 24 31 34 0D 42 45 51 20 5A 57 45 |CMP #$14.BEQ ZWE| 00001990: 49 0D 43 4D 50 20 23 24 31 35 0D 42 45 51 20 45 |I.CMP #$15.BEQ E| 000019A0: 49 4E 53 0D 43 4D 50 20 23 24 31 36 0D 42 45 51 |INS.CMP #$16.BEQ| 000019B0: 20 44 52 45 49 0D 43 4D 50 20 23 24 31 37 0D 42 | DREI.CMP #$17.B| 000019C0: 45 51 20 44 52 45 49 0D 43 4D 50 20 23 36 35 0D |EQ DREI.CMP #65.| 000019D0: 42 43 43 20 4E 45 58 54 0D 43 4D 50 20 23 39 31 |BCC NEXT.CMP #91| 000019E0: 0D 42 43 53 20 4E 45 58 54 0D 45 4F 52 20 23 24 |.BCS NEXT.EOR #$| 000019F0: 32 30 0D 3A 4E 45 58 54 0D 53 54 41 20 28 24 46 |20.:NEXT.STA ($F| 00001A00: 42 29 2C 59 0D 49 4E 59 0D 4A 4D 50 20 43 4E 56 |B),Y.INY.JMP CNV| 00001A10: 54 0D 3A 45 4E 44 43 4E 56 0D 52 54 53 0D 3A 45 |T.:ENDCNV.RTS.:E| 00001A20: 49 4E 53 0D 49 4E 59 0D 49 4E 59 0D 4A 4D 50 20 |INS.INY.INY.JMP | 00001A30: 43 4E 56 54 0D 3A 5A 57 45 49 0D 49 4E 59 0D 4A |CNVT.:ZWEI.INY.J| 00001A40: 4D 50 20 45 49 4E 53 0D 3A 44 52 45 49 0D 49 4E |MP EINS.:DREI.IN| 00001A50: 59 0D 4A 4D 50 20 5A 57 45 49 0D 3B 0D 3B 20 2A |Y.JMP ZWEI.;.; *| 00001A60: 20 D7 41 52 54 45 4E 20 2A 0D 3B 0D 3A 57 41 49 | .ARTEN *.;.:WAI| 00001A70: 54 52 4F 55 54 0D 49 4E 49 54 49 4F 0D 43 4F 50 |TROUT.INITIO.COP| 00001A80: 20 43 49 41 31 2B 39 2C 5A 50 32 0D 3A 57 41 52 | CIA1+9,ZP2.:WAR| 00001A90: 54 45 0D 4C 44 41 20 43 49 41 31 2B 39 0D 43 4D |TE.LDA CIA1+9.CM| 00001AA0: 50 20 5A 50 32 0D 42 45 51 20 57 41 52 54 45 0D |P ZP2.BEQ WARTE.| 00001AB0: 53 54 41 20 5A 50 32 0D 44 4F 4E 45 49 4F 0D 44 |STA ZP2.DONEIO.D| 00001AC0: 44 45 43 20 5A 50 31 0D 42 4E 45 20 57 41 52 54 |DEC ZP1.BNE WART| 00001AD0: 45 57 45 49 54 45 52 0D 52 54 53 0D 3A 57 41 52 |EWEITER.RTS.:WAR| 00001AE0: 54 45 57 45 49 54 45 52 0D 49 4E 49 54 49 4F 0D |TEWEITER.INITIO.| 00001AF0: 4A 4D 50 20 57 41 52 54 45 0D 3B 0D 3B 20 2A 20 |JMP WARTE.;.; * | 00001B00: C9 2F CF 2D C6 45 48 4C 45 52 4D 45 4C 44 55 4E |./.-.EHLERMELDUN| 00001B10: 47 20 41 55 53 47 45 42 45 4E 20 2A 0D 3B 0D 3A |G AUSGEBEN *.;.:| 00001B20: 45 52 52 4F 52 52 4F 55 54 0D 54 58 41 0D 43 4D |ERRORROUT.TXA.CM| 00001B30: 50 20 23 31 30 20 20 20 20 20 20 20 20 3B 4B 4C |P #10 ;KL| 00001B40: 45 49 4E 45 52 20 41 4C 53 20 31 30 20 3F 0D 42 |EINER ALS 10 ?.B| 00001B50: 43 43 20 4B 4C 45 49 4E 45 52 31 30 20 20 3B 3C |CC KLEINER10 ;<| 00001B60: 2D 4A 41 0D 50 4F 4B 45 20 5A 50 32 39 2C 24 46 |-JA.POKE ZP29,$F| 00001B70: 46 20 20 3B 3C 2D 4E 45 49 4E 0D 3A 41 42 5A 49 |F ;<-NEIN.:ABZI| 00001B80: 45 48 45 4E 0D 49 4E 43 20 5A 50 32 39 20 20 20 |EHEN.INC ZP29 | 00001B90: 20 20 20 20 3B DA 45 48 4E 45 52 53 54 45 4C 4C | ;.EHNERSTELL| 00001BA0: 45 20 4D 45 52 4B 45 4E 0D 53 45 43 0D 53 42 43 |E MERKEN.SEC.SBC| 00001BB0: 20 23 31 30 20 20 20 20 20 20 20 20 3B 4B 4C 45 | #10 ;KLE| 00001BC0: 49 4E 45 52 20 31 30 20 4D 41 43 48 45 4E 0D 42 |INER 10 MACHEN.B| 00001BD0: 43 53 20 41 42 5A 49 45 48 45 4E 0D 43 4C 43 20 |CS ABZIEHEN.CLC | 00001BE0: 20 20 20 20 20 20 20 20 20 20 20 3B 4B 4C 45 49 | ;KLEI| 00001BF0: 4E 45 52 20 30 21 0D 41 44 43 20 23 31 30 2B 34 |NER 0!.ADC #10+4| 00001C00: 38 20 20 20 20 20 3B 57 49 45 44 45 52 20 2D 31 |8 ;WIEDER -1| 00001C10: 3E C1 4B 4B 55 3C 31 30 20 55 4E 44 0D 20 20 20 |>.KKU<10 UND. | 00001C20: 20 20 20 20 20 20 20 20 20 20 20 20 3B 49 4E 20 | ;IN | 00001C30: DA 45 49 43 48 45 4E 43 4F 44 45 20 57 41 4E 44 |.EICHENCODE WAND| 00001C40: 45 4C 4E 0D 53 54 41 20 46 45 48 4C 45 52 4E 52 |ELN.STA FEHLERNR| 00001C50: 2B 33 20 3B 55 4E 44 20 41 4C 53 20 C5 49 4E 45 |+3 ;UND ALS .INE| 00001C60: 52 53 54 45 4C 4C 45 20 53 50 2E 0D 4C 44 41 20 |RSTELLE SP..LDA | 00001C70: 5A 50 32 39 0D 43 4C 43 20 20 20 20 20 20 20 20 |ZP29.CLC | 00001C80: 20 20 20 20 3B 55 4E 44 20 44 41 53 20 47 4C 45 | ;UND DAS GLE| 00001C90: 49 43 48 45 20 4D 49 54 20 44 45 52 0D 41 44 43 |ICHE MIT DER.ADC| 00001CA0: 20 23 34 38 20 20 20 20 20 20 20 20 3B DA 45 48 | #48 ;.EH| 00001CB0: 4E 45 52 53 54 45 4C 4C 45 0D 53 54 41 20 46 45 |NERSTELLE.STA FE| 00001CC0: 48 4C 45 52 4E 52 2B 32 0D 4A 4D 50 20 41 55 53 |HLERNR+2.JMP AUS| 00001CD0: 47 45 42 45 4E 0D 3A 4B 4C 45 49 4E 45 52 31 30 |GEBEN.:KLEINER10| 00001CE0: 0D 43 4C 43 0D 41 44 43 20 23 34 38 20 20 20 20 |.CLC.ADC #48 | 00001CF0: 20 20 20 20 3B 31 53 54 45 4C 4C 49 47 45 20 DA | ;1STELLIGE .| 00001D00: 41 48 4C 20 55 4D 52 45 43 48 4E 45 4E 0D 53 54 |AHL UMRECHNEN.ST| 00001D10: 41 20 46 45 48 4C 45 52 4E 52 2B 33 20 20 20 20 |A FEHLERNR+3 | 00001D20: 20 3B 55 4E 44 0D 50 4F 4B 45 20 46 45 48 4C 45 | ;UND.POKE FEHLE| 00001D30: 52 4E 52 2B 32 2C 33 32 20 3B CC 45 45 52 5A 45 |RNR+2,32 ;.EERZE| 00001D40: 49 43 48 45 4E 20 41 4C 53 20 31 2E D3 54 45 4C |ICHEN ALS 1..TEL| 00001D50: 4C 45 0D 3A 41 55 53 47 45 42 45 4E 0D 44 49 41 |LE.:AUSGEBEN.DIA| 00001D60: 4C 42 4F 58 20 49 4F 46 45 48 4C 45 52 0D 4A 4D |LBOX IOFEHLER.JM| 00001D70: 50 20 28 5A 50 32 38 29 0D 3B 0D 3B 20 2A 2A 20 |P (ZP28).;.; ** | 00001D80: D7 4F 52 54 20 49 4E 4B 52 45 4D 45 4E 54 49 45 |.ORT INKREMENTIE| 00001D90: 52 45 4E 20 2A 2A 0D 3B 0D 3A 44 49 4E 43 52 4F |REN **.;.:DINCRO| 00001DA0: 55 54 0D 4C 44 59 20 23 30 0D 4C 44 41 20 28 5A |UT.LDY #0.LDA (Z| 00001DB0: 50 32 39 29 2C 59 20 20 20 20 20 20 3B CC 4F 57 |P29),Y ;.OW| 00001DC0: 42 59 54 45 0D 54 41 58 0D 49 4E 58 20 20 20 20 |BYTE.TAX.INX | 00001DD0: 20 20 20 20 20 20 20 20 20 20 20 3B 45 52 48 4F | ;ERHO| 00001DE0: 45 48 45 4E 0D 54 58 41 0D 53 54 41 20 28 5A 50 |EHEN.TXA.STA (ZP| 00001DF0: 32 39 29 2C 59 0D 42 4E 45 20 4B 45 49 4E 55 45 |29),Y.BNE KEINUE| 00001E00: 42 45 52 4C 41 55 46 0D 49 4E 59 0D 4C 44 41 20 |BERLAUF.INY.LDA | 00001E10: 28 5A 50 32 39 29 2C 59 20 20 20 20 20 20 3B C8 |(ZP29),Y ;.| 00001E20: 49 47 48 42 59 54 45 0D 54 41 58 0D 49 4E 58 20 |IGHBYTE.TAX.INX | 00001E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 45 | ;E| 00001E40: 52 48 4F 45 48 45 4E 0D 54 58 41 0D 53 54 41 20 |RHOEHEN.TXA.STA | 00001E50: 28 5A 50 32 39 29 2C 59 0D 3A 4B 45 49 4E 55 45 |(ZP29),Y.:KEINUE| 00001E60: 42 45 52 4C 41 55 46 0D 52 54 53 0D 3B 0D 3B 20 |BERLAUF.RTS.;.; | 00001E70: 2A 2A 20 C2 49 4C 44 53 43 48 49 52 4D 20 4C 4F |** .ILDSCHIRM LO| 00001E80: 45 53 43 48 45 4E 20 2A 2A 0D 3B 0D 3A 43 4C 53 |ESCHEN **.;.:CLS| 00001E90: 52 4F 55 54 0D 42 4F 58 20 30 2C 31 39 39 2C 30 |ROUT.BOX 0,199,0| 00001EA0: 2C 33 31 39 2C 32 0D 52 54 53 0D 3B 0D 3B 20 2A |,319,2.RTS.;.; *| 00001EB0: 2A 2A 20 C4 41 54 45 4E 2C 20 D4 45 58 54 45 2C |** .ATEN, .EXTE,| 00001EC0: 20 2E 2E 2E 20 2A 2A 2A 0D 3B 0D 3A 46 45 48 4C | ... ***.;.:FEHL| 00001ED0: 45 52 4E 52 0D 42 20 22 C9 3A 30 30 22 0D 42 20 |ERNR.B ".:00".B | 00001EE0: 4E 55 4C 4C 0D 3A 45 4E 44 45 0D 3B 0D 3B 2A 2A |NULL.:ENDE.;.;**| 00001EF0: 2A 3E 20 20 20 C5 CE C4 C5 20 C7 C5 CF D3 2D CC |*> .... ....-.| 00001F00: C9 C2 D2 C1 D2 C9 C1 CE 20 20 3C 2A 2A 2A 0D 3B |........ <***.;| 00001F10: 0D 3B 2A 2A 2A 3E 20 C1 CE C6 C1 CE C7 20 C2 C9 |.;***> ...... ..| 00001F20: D4 CD C1 D0 C3 CF CE D6 C5 D2 D4 C5 D2 20 3C 2A |............. <*| 00001F30: 2A 2A 0D 3B 0D 3B 20 2A 2A 20 D0 52 4F 47 52 41 |**.;.; ** .ROGRA| 00001F40: 4D 4D 53 50 45 5A 49 46 49 53 43 48 45 20 CC 41 |MMSPEZIFISCHE .A| 00001F50: 42 45 4C 53 20 2A 2A 0D 3B 0D 3A 4B 4F 50 46 3D |BELS **.;.:KOPF=| 00001F60: 5A 50 31 0D 3A 42 59 54 45 53 3D 5A 50 32 0D 3A |ZP1.:BYTES=ZP2.:| 00001F70: 4C 45 53 45 3D 5A 50 33 0D 3A 57 52 49 54 45 3D |LESE=ZP3.:WRITE=| 00001F80: 5A 50 34 0D 3A 4B 41 43 48 45 4C 4E 3D 5A 50 35 |ZP4.:KACHELN=ZP5| 00001F90: 0D 3A 54 49 54 45 4C 54 58 54 3D 24 35 41 0D 3A |.:TITELTXT=$5A.:| 00001FA0: 49 4E 53 45 52 54 44 49 53 4B 54 58 54 3D 24 35 |INSERTDISKTXT=$5| 00001FB0: 43 0D 3A 46 45 48 4C 45 52 4D 45 4C 44 55 4E 47 |C.:FEHLERMELDUNG| 00001FC0: 3D 24 35 45 0D 3A 46 49 4C 45 54 59 50 3D 24 36 |=$5E.:FILETYP=$6| 00001FD0: 30 0D 3A 42 49 4C 44 4F 4B 54 58 54 3D 24 36 32 |0.:BILDOKTXT=$62| 00001FE0: 0D 3A 53 43 48 4E 49 54 54 4F 4B 54 58 54 3D 24 |.:SCHNITTOKTXT=$| 00001FF0: 36 34 0D 3A 4E 45 57 44 49 53 4B 54 58 54 3D 24 |64.:NEWDISKTXT=$| 00002000: 36 36 0D 3A 53 54 4F 50 54 58 54 3D 24 36 38 0D |66.:STOPTXT=$68.| 00002010: 3B 0D 3B 20 2A 2A 2A 20 D3 50 52 41 43 48 45 20 |;.; *** .PRACHE | 00002020: 41 55 53 57 41 45 48 4C 45 4E 20 2A 2A 2A 0D 3B |AUSWAEHLEN ***.;| 00002030: 0D 54 58 54 43 4F 4E 56 20 53 50 52 54 58 54 20 |.TXTCONV SPRTXT | 00002040: 20 20 3B D4 45 58 54 45 20 46 55 45 52 20 45 52 | ;.EXTE FUER ER| 00002050: 53 54 45 0D 54 58 54 43 4F 4E 56 20 4C 41 4E 47 |STE.TXTCONV LANG| 00002060: 54 58 20 20 20 3B C2 4F 58 20 4B 4F 4E 56 45 52 |TX ;.OX KONVER| 00002070: 54 49 45 52 45 4E 0D 54 58 54 43 4F 4E 56 20 51 |TIEREN.TXTCONV Q| 00002080: 55 49 54 54 58 0D 43 4C 53 0D 3A 4C 41 4E 47 55 |UITTX.CLS.:LANGU| 00002090: 0D 44 49 41 4C 42 4F 58 20 53 50 52 41 43 48 45 |.DIALBOX SPRACHE| 000020A0: 20 20 3B D3 50 52 41 43 48 45 20 57 41 45 48 4C | ;.PRACHE WAEHL| 000020B0: 45 4E 0D 4A 4D 50 20 4B 4F 4E 56 45 52 54 49 45 |EN.JMP KONVERTIE| 000020C0: 52 45 4E 20 3B D2 4F 55 54 49 4E 45 4E 20 55 45 |REN ;.OUTINEN UE| 000020D0: 42 45 52 53 50 52 49 4E 47 45 4E 0D 3B 0D 3B 20 |BERSPRINGEN.;.; | 000020E0: 2A 2A 2A 20 DA 45 49 47 45 52 20 41 55 46 20 D4 |*** .EIGER AUF .| 000020F0: 45 58 54 45 20 53 45 54 5A 45 4E 20 2A 2A 2A 0D |EXTE SETZEN ***.| 00002100: 3B 0D 3A 45 4E 47 4C 52 54 0D 4C 4F 41 44 57 20 |;.:ENGLRT.LOADW | 00002110: 54 49 54 45 4C 54 58 54 45 2C 54 49 54 45 4C 54 |TITELTXTE,TITELT| 00002120: 58 54 0D 4C 4F 41 44 57 20 49 4E 53 45 52 54 58 |XT.LOADW INSERTX| 00002130: 54 45 2C 49 4E 53 45 52 54 44 49 53 4B 54 58 54 |TE,INSERTDISKTXT| 00002140: 0D 4C 4F 41 44 57 20 46 45 48 4C 45 52 4D 45 4C |.LOADW FEHLERMEL| 00002150: 44 55 4E 47 45 2C 46 45 48 4C 45 52 4D 45 4C 44 |DUNGE,FEHLERMELD| 00002160: 55 4E 47 0D 4C 4F 41 44 57 20 46 49 4C 45 54 59 |UNG.LOADW FILETY| 00002170: 50 45 2C 46 49 4C 45 54 59 50 0D 4C 4F 41 44 57 |PE,FILETYP.LOADW| 00002180: 20 42 49 4C 44 4F 4B 54 58 54 45 2C 42 49 4C 44 | BILDOKTXTE,BILD| 00002190: 4F 4B 54 58 54 0D 4C 4F 41 44 57 20 53 43 48 4E |OKTXT.LOADW SCHN| 000021A0: 49 54 54 4F 4B 54 58 54 45 2C 53 43 48 4E 49 54 |ITTOKTXTE,SCHNIT| 000021B0: 54 4F 4B 54 58 54 0D 4C 4F 41 44 57 20 4E 45 57 |TOKTXT.LOADW NEW| 000021C0: 44 49 53 4B 54 58 54 45 2C 4E 45 57 44 49 53 4B |DISKTXTE,NEWDISK| 000021D0: 54 58 54 0D 4C 4F 41 44 57 20 53 54 4F 50 54 58 |TXT.LOADW STOPTX| 000021E0: 54 45 2C 53 54 4F 50 54 58 54 0D 52 53 54 44 49 |TE,STOPTXT.RSTDI| 000021F0: 41 4C 20 24 30 45 0D 3B 0D 3A 47 45 52 4D 52 54 |AL $0E.;.:GERMRT| 00002200: 0D 4C 4F 41 44 57 20 54 49 54 45 4C 54 58 54 44 |.LOADW TITELTXTD| 00002210: 2C 54 49 54 45 4C 54 58 54 0D 4C 4F 41 44 57 20 |,TITELTXT.LOADW | 00002220: 49 4E 53 45 52 54 58 54 44 2C 49 4E 53 45 52 54 |INSERTXTD,INSERT| 00002230: 44 49 53 4B 54 58 54 0D 4C 4F 41 44 57 20 46 45 |DISKTXT.LOADW FE| 00002240: 48 4C 45 52 4D 45 4C 44 55 4E 47 44 2C 46 45 48 |HLERMELDUNGD,FEH| 00002250: 4C 45 52 4D 45 4C 44 55 4E 47 0D 4C 4F 41 44 57 |LERMELDUNG.LOADW| 00002260: 20 46 49 4C 45 54 59 50 44 2C 46 49 4C 45 54 59 | FILETYPD,FILETY| 00002270: 50 0D 4C 4F 41 44 57 20 42 49 4C 44 4F 4B 54 58 |P.LOADW BILDOKTX| 00002280: 54 44 2C 42 49 4C 44 4F 4B 54 58 54 0D 4C 4F 41 |TD,BILDOKTXT.LOA| 00002290: 44 57 20 53 43 48 4E 49 54 54 4F 4B 54 58 54 44 |DW SCHNITTOKTXTD| 000022A0: 2C 53 43 48 4E 49 54 54 4F 4B 54 58 54 0D 4C 4F |,SCHNITTOKTXT.LO| 000022B0: 41 44 57 20 4E 45 57 44 49 53 4B 54 58 54 44 2C |ADW NEWDISKTXTD,| 000022C0: 4E 45 57 44 49 53 4B 54 58 54 0D 4C 4F 41 44 57 |NEWDISKTXT.LOADW| 000022D0: 20 53 54 4F 50 54 58 54 44 2C 53 54 4F 50 54 58 | STOPTXTD,STOPTX| 000022E0: 54 0D 52 53 54 44 49 41 4C 20 24 30 45 0D 3B 0D |T.RSTDIAL $0E.;.| 000022F0: 3A 51 55 49 54 52 54 0D 44 45 53 4B 54 4F 50 0D |:QUITRT.DESKTOP.| 00002300: 3B 0D 3B 20 2A 2A 2A 20 D4 49 54 45 4C 20 2B 20 |;.; *** .ITEL + | 00002310: C6 49 4C 45 20 41 55 53 57 41 45 48 4C 45 4E 20 |.ILE AUSWAEHLEN | 00002320: 2A 2A 2A 0D 3B 0D 3A 4B 4F 4E 56 45 52 54 49 45 |***.;.:KONVERTIE| 00002330: 52 45 4E 0D 56 54 58 54 43 4F 4E 56 20 54 49 54 |REN.VTXTCONV TIT| 00002340: 45 4C 54 58 54 0D 56 54 58 54 43 4F 4E 56 20 49 |ELTXT.VTXTCONV I| 00002350: 4E 53 45 52 54 44 49 53 4B 54 58 54 0D 56 54 58 |NSERTDISKTXT.VTX| 00002360: 54 43 4F 4E 56 20 46 45 48 4C 45 52 4D 45 4C 44 |TCONV FEHLERMELD| 00002370: 55 4E 47 0D 56 54 58 54 43 4F 4E 56 20 46 49 4C |UNG.VTXTCONV FIL| 00002380: 45 54 59 50 0D 54 58 54 43 4F 4E 56 20 46 45 48 |ETYP.TXTCONV FEH| 00002390: 4C 45 52 4E 52 0D 56 54 58 54 43 4F 4E 56 20 42 |LERNR.VTXTCONV B| 000023A0: 49 4C 44 4F 4B 54 58 54 0D 56 54 58 54 43 4F 4E |ILDOKTXT.VTXTCON| 000023B0: 56 20 53 43 48 4E 49 54 54 4F 4B 54 58 54 0D 56 |V SCHNITTOKTXT.V| 000023C0: 54 58 54 43 4F 4E 56 20 4E 45 57 44 49 53 4B 54 |TXTCONV NEWDISKT| 000023D0: 58 54 0D 56 54 58 54 43 4F 4E 56 20 53 54 4F 50 |XT.VTXTCONV STOP| 000023E0: 54 58 54 0D 43 4F 50 20 24 38 35 31 45 2C 46 41 |TXT.COP $851E,FA| 000023F0: 52 42 45 4E 0D 43 4C 53 0D 44 49 41 4C 42 4F 58 |RBEN.CLS.DIALBOX| 00002400: 20 54 49 54 45 4C 20 20 20 20 20 20 3B D4 49 54 | TITEL ;.IT| 00002410: 45 4C 42 4F 58 20 41 4E 5A 45 49 47 45 4E 0D 3A |ELBOX ANZEIGEN.:| 00002420: 4E 45 55 45 44 49 53 4B 0D 44 49 41 4C 42 4F 58 |NEUEDISK.DIALBOX| 00002430: 20 49 4E 53 45 52 54 44 49 53 4B 20 3B C4 49 53 | INSERTDISK ;.IS| 00002440: 4B 20 45 49 4E 4C 45 47 45 4E 21 0D 4C 44 41 20 |K EINLEGEN!.LDA | 00002450: 52 30 0D 43 4D 50 20 23 43 41 4E 43 45 4C 20 20 |R0.CMP #CANCEL | 00002460: 20 20 20 20 20 20 3B 5A 55 52 55 45 43 4B 20 5A | ;ZURUECK Z| 00002470: 55 52 20 31 2E 20 C2 4F 58 20 3F 0D 42 4E 45 20 |UR 1. .OX ?.BNE | 00002480: 57 45 49 54 45 52 0D 4A 4D 50 20 4C 41 4E 47 55 |WEITER.JMP LANGU| 00002490: 0D 3A 57 45 49 54 45 52 0D 4F 50 45 4E 44 49 53 |.:WEITER.OPENDIS| 000024A0: 4B 0D 54 58 41 0D 42 45 51 20 4F 4B 31 0D 45 52 |K.TXA.BEQ OK1.ER| 000024B0: 52 4F 52 20 4E 45 55 45 44 49 53 4B 0D 3A 4F 4B |ROR NEUEDISK.:OK| 000024C0: 31 0D 49 4E 49 54 47 45 54 46 49 4C 45 53 20 30 |1.INITGETFILES 0| 000024D0: 2C 50 55 46 46 45 52 2C 30 0D 44 49 41 4C 42 4F |,PUFFER,0.DIALBO| 000024E0: 58 20 43 48 4F 4F 53 45 46 49 4C 45 53 20 20 3B |X CHOOSEFILES ;| 000024F0: C6 49 4C 45 20 41 55 53 57 41 45 48 4C 45 4E 0D |.ILE AUSWAEHLEN.| 00002500: 4C 44 41 20 52 30 0D 43 4D 50 20 23 43 41 4E 43 |LDA R0.CMP #CANC| 00002510: 45 4C 20 20 20 20 20 20 20 20 20 20 3B 41 4E 44 |EL ;AND| 00002520: 45 52 45 20 C4 49 53 4B 3F 0D 42 4E 45 20 4E 49 |ERE .ISK?.BNE NI| 00002530: 43 48 54 5A 55 52 55 45 43 4B 0D 4A 4D 50 20 4E |CHTZURUECK.JMP N| 00002540: 45 55 45 44 49 53 4B 0D 3A 4E 49 43 48 54 5A 55 |EUEDISK.:NICHTZU| 00002550: 52 55 45 43 4B 0D 3B 0D 3B 20 2A 2A 2A 20 31 2E |RUECK.;.; *** 1.| 00002560: D4 52 41 43 4B 2F C2 4C 4F 43 4B 20 53 55 43 48 |.RACK/.LOCK SUCH| 00002570: 45 4E 20 2A 2A 2A 0D 3B 0D 46 49 4E 44 46 49 4C |EN ***.;.FINDFIL| 00002580: 45 20 50 55 46 46 45 52 0D 54 58 41 0D 42 45 51 |E PUFFER.TXA.BEQ| 00002590: 20 4F 4B 31 41 0D 45 52 52 4F 52 20 4E 45 55 45 | OK1A.ERROR NEUE| 000025A0: 44 49 53 4B 0D 3A 4F 4B 31 41 0D 43 4F 50 20 24 |DISK.:OK1A.COP $| 000025B0: 38 34 30 30 2B 31 2C 54 52 41 43 4B 0D 43 4F 50 |8400+1,TRACK.COP| 000025C0: 20 24 38 34 30 30 2B 32 2C 42 4C 4F 43 4B 0D 4C | $8400+2,BLOCK.L| 000025D0: 44 41 20 24 38 34 30 30 20 20 20 20 20 20 20 3B |DA $8400 ;| 000025E0: 41 55 46 20 C6 49 4C 45 54 59 50 20 28 D0 52 47 |AUF .ILETYP (.RG| 000025F0: 2E 29 0D 43 4D 50 20 23 31 33 30 20 20 20 20 20 |.).CMP #130 | 00002600: 20 20 20 3B 50 52 55 45 46 45 4E 0D 42 45 51 20 | ;PRUEFEN.BEQ | 00002610: 54 59 50 52 49 43 48 54 49 47 0D 44 49 41 4C 42 |TYPRICHTIG.DIALB| 00002620: 4F 58 20 46 49 4C 45 54 59 50 45 42 4F 58 0D 4A |OX FILETYPEBOX.J| 00002630: 4D 50 20 57 45 49 54 45 52 20 20 20 20 20 20 3B |MP WEITER ;| 00002640: 4E 45 55 45 53 20 C6 49 4C 45 20 57 41 45 48 4C |NEUES .ILE WAEHL| 00002650: 45 4E 0D 3A 54 59 50 52 49 43 48 54 49 47 0D 3B |EN.:TYPRICHTIG.;| 00002660: 0D 3B 20 2A 2A 20 C2 49 4C 44 20 4C 41 44 45 4E |.; ** .ILD LADEN| 00002670: 20 55 4E 44 20 41 4E 5A 45 49 47 45 4E 20 2A 2A | UND ANZEIGEN **| 00002680: 0D 3B 0D 43 4F 50 20 54 52 41 43 4B 2C 34 0D 43 |.;.COP TRACK,4.C| 00002690: 4F 50 20 42 4C 4F 43 4B 2C 35 0D 52 45 41 44 20 |OP BLOCK,5.READ | 000026A0: 24 36 30 30 30 2D 32 2C 38 31 39 34 20 20 3B C2 |$6000-2,8194 ;.| 000026B0: 49 4C 44 20 22 5A 57 49 53 43 48 45 4E 22 4C 41 |ILD "ZWISCHEN"LA| 000026C0: 44 45 4E 0D 4D 4F 56 45 52 41 4D 20 24 36 30 30 |DEN.MOVERAM $600| 000026D0: 30 2C 24 41 30 30 30 2C 38 30 30 30 20 3B 55 4E |0,$A000,8000 ;UN| 000026E0: 44 20 41 4E 5A 45 49 47 45 4E 0D 57 41 49 54 20 |D ANZEIGEN.WAIT | 000026F0: 34 0D 3A 4E 45 55 45 52 53 43 52 41 50 0D 44 49 |4.:NEUERSCRAP.DI| 00002700: 41 4C 42 4F 58 20 42 49 4C 44 4F 4B 0D 4C 44 41 |ALBOX BILDOK.LDA| 00002710: 20 52 30 0D 43 4D 50 20 23 59 45 53 0D 42 45 51 | R0.CMP #YES.BEQ| 00002720: 20 42 49 4C 44 52 49 43 48 54 49 47 0D 4A 4D 50 | BILDRICHTIG.JMP| 00002730: 20 57 45 49 54 45 52 20 20 20 20 20 20 20 20 20 | WEITER | 00002740: 3B 41 4E 44 45 52 45 53 20 C6 49 4C 45 20 57 41 |;ANDERES .ILE WA| 00002750: 45 48 4C 45 4E 0D 3A 42 49 4C 44 52 49 43 48 54 |EHLEN.:BILDRICHT| 00002760: 49 47 0D 44 49 41 4C 42 4F 58 20 41 55 54 4F 53 |IG.DIALBOX AUTOS| 00002770: 54 4F 50 0D 4C 44 41 20 52 30 0D 43 4D 50 20 23 |TOP.LDA R0.CMP #| 00002780: 59 45 53 0D 42 4E 45 20 4E 4F 53 54 4F 50 0D 50 |YES.BNE NOSTOP.P| 00002790: 4F 4B 45 20 46 4C 41 47 31 2C 53 45 54 20 20 20 |OKE FLAG1,SET | 000027A0: 20 20 3B C6 4C 41 47 20 53 45 54 5A 45 4E 0D 4A | ;.LAG SETZEN.J| 000027B0: 4D 50 20 56 4F 52 42 45 52 45 49 54 0D 3A 4E 4F |MP VORBEREIT.:NO| 000027C0: 53 54 4F 50 0D 50 4F 4B 45 20 46 4C 41 47 31 2C |STOP.POKE FLAG1,| 000027D0: 43 4C 45 41 52 20 20 20 3B C6 4C 41 47 20 4C 4F |CLEAR ;.LAG LO| 000027E0: 45 53 43 48 45 4E 0D 3A 56 4F 52 42 45 52 45 49 |ESCHEN.:VORBEREI| 000027F0: 54 0D 49 4E 49 54 49 4F 0D 50 4F 4B 45 20 35 33 |T.INITIO.POKE 53| 00002800: 32 38 30 2C 30 20 20 20 20 20 20 20 3B D2 41 48 |280,0 ;.AH| 00002810: 4D 45 4E 20 53 43 48 57 41 52 5A 0D 44 4F 4E 45 |MEN SCHWARZ.DONE| 00002820: 49 4F 0D 4D 4F 55 53 45 4F 4E 0D 4D 4F 55 53 45 |IO.MOUSEON.MOUSE| 00002830: 42 4F 52 44 45 52 20 30 2C 31 39 39 2C 30 2C 33 |BORDER 0,199,0,3| 00002840: 31 39 0D 4C 4F 41 44 57 20 4B 4E 4F 50 46 31 2C |19.LOADW KNOPF1,| 00002850: 24 38 34 41 31 20 3B D6 45 4B 54 4F 52 20 46 55 |$84A1 ;.EKTOR FU| 00002860: 45 52 20 C6 45 55 45 52 4B 4E 4F 50 46 0D 3A 4E |ER .EUERKNOPF.:N| 00002870: 49 43 48 54 53 54 55 4E 0D 4D 41 49 4E 20 4E 49 |ICHTSTUN.MAIN NI| 00002880: 43 48 54 53 54 55 4E 20 20 20 20 20 3B 41 55 46 |CHTSTUN ;AUF| 00002890: 20 CB 4E 4F 50 46 20 57 41 52 54 45 4E 0D 3A 4B | .NOPF WARTEN.:K| 000028A0: 4E 4F 50 46 31 0D 50 4F 4B 45 20 24 32 46 2C 25 |NOPF1.POKE $2F,%| 000028B0: 31 30 30 30 30 30 30 30 20 3B 4E 55 52 20 49 4E |10000000 ;NUR IN| 000028C0: 20 53 49 43 48 54 42 41 52 45 20 C2 49 54 4D 41 | SICHTBARE .ITMA| 000028D0: 50 20 53 43 48 52 45 49 42 45 4E 0D 54 52 41 4E |P SCHREIBEN.TRAN| 000028E0: 53 57 20 4D 4F 55 53 45 58 2C 58 31 0D 54 52 41 |SW MOUSEX,X1.TRA| 000028F0: 4E 53 57 20 58 31 2C 58 32 0D 54 52 41 4E 53 57 |NSW X1,X2.TRANSW| 00002900: 20 58 31 2C 41 4B 54 58 0D 54 52 41 4E 53 57 20 | X1,AKTX.TRANSW | 00002910: 58 31 2C 41 4C 54 58 0D 4C 44 41 20 4D 4F 55 53 |X1,ALTX.LDA MOUS| 00002920: 45 59 20 20 20 20 20 20 20 20 20 3B CB 4F 4F 52 |EY ;.OOR| 00002930: 44 2E 20 46 55 45 52 20 C2 45 52 45 49 43 48 0D |D. FUER .EREICH.| 00002940: 53 54 41 20 59 31 20 20 20 20 20 20 20 20 20 20 |STA Y1 | 00002950: 20 20 20 3B 4B 4F 50 49 45 52 45 4E 0D 53 54 41 | ;KOPIEREN.STA| 00002960: 20 59 32 0D 53 54 41 20 41 4B 54 59 0D 53 54 41 | Y2.STA AKTY.STA| 00002970: 20 41 4C 54 59 0D 53 54 41 20 36 0D 53 54 41 20 | ALTY.STA 6.STA | 00002980: 37 0D 54 52 41 4E 53 57 20 58 31 2C 52 33 0D 54 |7.TRANSW X1,R3.T| 00002990: 52 41 4E 53 57 20 58 31 2C 52 34 0D 49 4E 56 42 |RANSW X1,R4.INVB| 000029A0: 4F 58 0D 4C 4F 41 44 57 20 54 52 49 43 4B 31 2C |OX.LOADW TRICK1,| 000029B0: 24 38 34 39 42 20 3B D2 55 45 43 4B 53 50 52 55 |$849B ;.UECKSPRU| 000029C0: 4E 47 41 44 52 2E 20 46 55 45 52 20 CD C1 C9 CE |NGADR. FUER ....| 000029D0: 0D 52 54 53 20 20 20 20 20 20 20 20 20 20 20 20 |.RTS | 000029E0: 20 20 20 20 3B 5A 55 52 55 45 43 4B 20 5A 55 20 | ;ZURUECK ZU | 000029F0: CD C1 C9 CE 0D 3A 54 52 49 43 4B 31 0D 4C 4F 41 |.....:TRICK1.LOA| 00002A00: 44 57 20 54 52 49 43 4B 32 2C 24 38 34 41 31 20 |DW TRICK2,$84A1 | 00002A10: 3B D4 52 49 43 4B 0D 4D 41 49 4E 20 54 52 49 43 |;.RICK.MAIN TRIC| 00002A20: 4B 31 20 20 20 20 20 20 20 20 3B 28 C7 45 4F 53 |K1 ;(.EOS| 00002A30: 20 57 45 52 54 45 54 20 22 CB 4E 4F 50 46 20 4C | WERTET ".NOPF L| 00002A40: 4F 53 2D 0D 3A 54 52 49 43 4B 32 20 20 20 20 20 |OS-.:TRICK2 | 00002A50: 20 20 20 20 20 20 20 3B 20 4C 41 53 53 45 4E 22 | ; LASSEN"| 00002A60: 20 41 55 43 48 20 41 4C 53 20 41 4B 54 49 2D 0D | AUCH ALS AKTI-.| 00002A70: 4C 4F 41 44 57 20 56 45 4B 54 4F 52 2C 24 38 34 |LOADW VEKTOR,$84| 00002A80: 39 42 20 3B 20 56 49 45 52 54 45 4E 20 C6 45 55 |9B ; VIERTEN .EU| 00002A90: 45 52 4B 4E 4F 50 46 29 0D 52 54 53 0D 3B 0D 3B |ERKNOPF).RTS.;.;| 00002AA0: 20 2A 2A 20 C2 45 52 45 49 43 48 20 49 4E 56 45 | ** .EREICH INVE| 00002AB0: 52 54 49 45 52 45 4E 20 2A 2A 0D 3B 0D 3A 56 45 |RTIEREN **.;.:VE| 00002AC0: 4B 54 4F 52 0D 4C 4F 41 44 57 20 4B 4E 4F 50 46 |KTOR.LOADW KNOPF| 00002AD0: 32 2C 24 38 34 41 31 0D 50 4F 4B 45 20 50 55 46 |2,$84A1.POKE PUF| 00002AE0: 46 45 52 2B 31 30 2C 30 20 3B C6 41 52 42 45 20 |FER+10,0 ;.ARBE | 00002AF0: 53 45 54 5A 45 4E 0D 50 4F 4B 45 20 46 4C 41 47 |SETZEN.POKE FLAG| 00002B00: 32 2C 43 4C 45 41 52 0D 50 4F 4B 45 20 46 4C 41 |2,CLEAR.POKE FLA| 00002B10: 47 35 2C 43 4C 45 41 52 0D 4C 44 41 20 46 4C 41 |G5,CLEAR.LDA FLA| 00002B20: 47 31 20 20 20 20 20 20 20 20 20 3B C1 55 54 4F |G1 ;.UTO| 00002B30: 53 54 4F 50 20 3F 0D 42 45 51 20 57 41 52 54 45 |STOP ?.BEQ WARTE| 00002B40: 53 43 48 4C 45 49 46 45 20 3B 4E 45 49 4E 0D 3B |SCHLEIFE ;NEIN.;| 00002B50: 0D 3B 20 2A 2A 20 C7 52 45 4E 5A 45 20 46 55 45 |.; ** .RENZE FUE| 00002B60: 52 20 CD 41 55 53 20 46 45 53 54 4C 45 47 45 4E |R .AUS FESTLEGEN| 00002B70: 20 2A 2A 0D 53 45 43 0D 4C 44 41 20 41 4C 54 59 | **.SEC.LDA ALTY| 00002B80: 0D 53 42 43 20 23 31 34 33 20 20 20 20 20 20 20 |.SBC #143 | 00002B90: 20 20 20 3B 4F 42 45 52 45 20 C7 52 45 4E 5A 45 | ;OBERE .RENZE| 00002BA0: 0D 42 43 53 20 47 52 4F 45 53 53 45 52 31 0D 4C |.BCS GROESSER1.L| 00002BB0: 44 41 20 23 30 0D 3A 47 52 4F 45 53 53 45 52 31 |DA #0.:GROESSER1| 00002BC0: 0D 53 54 41 20 42 4F 52 44 4F 0D 43 4C 43 0D 4C |.STA BORDO.CLC.L| 00002BD0: 44 41 20 41 4C 54 59 0D 41 44 43 20 23 31 34 33 |DA ALTY.ADC #143| 00002BE0: 20 20 20 20 20 20 20 20 20 20 3B 55 4E 54 45 52 | ;UNTER| 00002BF0: 45 20 C7 52 45 4E 5A 45 0D 53 54 41 20 42 4F 52 |E .RENZE.STA BOR| 00002C00: 44 55 0D 42 43 53 20 55 45 42 45 52 4C 0D 43 4D |DU.BCS UEBERL.CM| 00002C10: 50 20 23 31 39 39 0D 42 43 43 20 4B 4C 45 49 4E |P #199.BCC KLEIN| 00002C20: 45 52 31 0D 3A 55 45 42 45 52 4C 0D 50 4F 4B 45 |ER1.:UEBERL.POKE| 00002C30: 20 42 4F 52 44 55 2C 31 39 39 0D 3A 4B 4C 45 49 | BORDU,199.:KLEI| 00002C40: 4E 45 52 31 0D 4C 4F 41 44 57 20 32 36 33 2C 5A |NER1.LOADW 263,Z| 00002C50: 50 31 0D 44 53 55 42 54 52 20 41 4C 54 58 2C 5A |P1.DSUBTR ALTX,Z| 00002C60: 50 31 2C 42 4F 52 44 4C 0D 42 43 53 20 47 52 4F |P1,BORDL.BCS GRO| 00002C70: 45 53 53 45 52 32 0D 4C 4F 41 44 57 20 30 2C 42 |ESSER2.LOADW 0,B| 00002C80: 4F 52 44 4C 0D 3A 47 52 4F 45 53 53 45 52 32 0D |ORDL.:GROESSER2.| 00002C90: 43 4C 43 0D 4C 44 41 20 41 4C 54 58 0D 41 44 43 |CLC.LDA ALTX.ADC| 00002CA0: 20 23 3C 32 36 33 0D 53 54 41 20 42 4F 52 44 52 | #<263.STA BORDR| 00002CB0: 0D 4C 44 41 20 41 4C 54 58 2B 31 0D 41 44 43 20 |.LDA ALTX+1.ADC | 00002CC0: 23 3E 32 36 33 0D 53 54 41 20 42 4F 52 44 52 2B |#>263.STA BORDR+| 00002CD0: 31 0D 4C 4F 41 44 57 20 33 31 39 2C 5A 50 31 0D |1.LOADW 319,ZP1.| 00002CE0: 44 53 55 42 54 52 20 42 4F 52 44 52 2C 5A 50 31 |DSUBTR BORDR,ZP1| 00002CF0: 2C 5A 50 31 0D 42 43 43 20 57 41 52 54 45 53 43 |,ZP1.BCC WARTESC| 00002D00: 48 4C 45 49 46 45 0D 4C 4F 41 44 57 20 33 31 39 |HLEIFE.LOADW 319| 00002D10: 2C 42 4F 52 44 52 0D 3B 0D 3B 20 2A 2A 2A 20 41 |,BORDR.;.; *** A| 00002D20: 55 46 20 C2 45 57 45 47 55 4E 47 20 52 45 41 47 |UF .EWEGUNG REAG| 00002D30: 49 45 52 45 4E 20 2A 2A 2A 0D 3A 57 41 52 54 45 |IEREN ***.:WARTE| 00002D40: 53 43 48 4C 45 49 46 45 0D 50 4F 4B 45 20 46 4C |SCHLEIFE.POKE FL| 00002D50: 41 47 33 2C 43 4C 45 41 52 20 3B C6 4C 41 47 20 |AG3,CLEAR ;.LAG | 00002D60: 46 55 45 52 20 D9 47 4C 45 49 43 48 20 4C 4F 45 |FUER .GLEICH LOE| 00002D70: 53 43 48 45 4E 0D 43 4F 50 20 59 31 2C 5A 50 31 |SCHEN.COP Y1,ZP1| 00002D80: 20 20 20 20 20 20 20 3B CB 4F 4F 52 44 2E 20 53 | ;.OORD. S| 00002D90: 49 43 48 45 52 4E 0D 43 4F 50 20 59 32 2C 5A 50 |ICHERN.COP Y2,ZP| 00002DA0: 31 2B 31 20 20 20 20 20 3B 28 46 55 45 52 20 22 |1+1 ;(FUER "| 00002DB0: CA D3 D2 20 D2 C5 C3 D6 C2 CF D8 D2 22 29 0D 54 |... ........").T| 00002DC0: 52 41 4E 53 57 20 58 31 2C 5A 50 32 0D 54 52 41 |RANSW X1,ZP2.TRA| 00002DD0: 4E 53 57 20 58 32 2C 5A 50 33 0D 4C 44 41 20 4D |NSW X2,ZP3.LDA M| 00002DE0: 4F 55 53 45 59 0D 43 4D 50 20 41 4B 54 59 20 20 |OUSEY.CMP AKTY | 00002DF0: 20 20 20 20 20 20 20 3B D9 20 47 4C 45 49 43 48 | ;. GLEICH| 00002E00: 47 45 42 4C 49 45 42 45 4E 20 3F 0D 42 4E 45 20 |GEBLIEBEN ?.BNE | 00002E10: 59 4E 47 4C 45 49 43 48 0D 4A 4D 50 20 59 47 4C |YNGLEICH.JMP YGL| 00002E20: 45 49 43 48 0D 3A 59 4E 47 4C 45 49 43 48 0D 53 |EICH.:YNGLEICH.S| 00002E30: 54 41 20 41 4B 54 59 20 20 20 20 20 20 20 20 20 |TA AKTY | 00002E40: 3B 4E 45 49 4E 2C 0D 3A 52 55 4C 4F 0D 4C 44 41 |;NEIN,.:RULO.LDA| 00002E50: 20 41 4B 54 59 20 20 20 20 20 20 20 20 20 3B 55 | AKTY ;U| 00002E60: 4E 44 20 4F 42 45 4E 20 42 5A 57 2E 0D 43 4D 50 |ND OBEN BZW..CMP| 00002E70: 20 41 4C 54 59 20 20 20 20 20 20 20 20 20 3B 55 | ALTY ;U| 00002E80: 4E 54 45 4E 20 46 45 53 54 4C 45 47 45 4E 0D 42 |NTEN FESTLEGEN.B| 00002E90: 43 53 20 59 47 52 4F 45 53 53 45 52 0D 43 4F 50 |CS YGROESSER.COP| 00002EA0: 20 41 4C 54 59 2C 59 32 0D 43 4F 50 20 41 4B 54 | ALTY,Y2.COP AKT| 00002EB0: 59 2C 59 31 0D 4A 4D 50 20 58 50 52 55 45 46 45 |Y,Y1.JMP XPRUEFE| 00002EC0: 4E 0D 3A 59 47 52 4F 45 53 53 45 52 0D 43 4F 50 |N.:YGROESSER.COP| 00002ED0: 20 41 4C 54 59 2C 59 31 0D 43 4F 50 20 41 4B 54 | ALTY,Y1.COP AKT| 00002EE0: 59 2C 59 32 0D 4A 4D 50 20 58 50 52 55 45 46 45 |Y,Y2.JMP XPRUEFE| 00002EF0: 4E 0D 3A 59 47 4C 45 49 43 48 0D 50 4F 4B 45 20 |N.:YGLEICH.POKE | 00002F00: 46 4C 41 47 33 2C 53 45 54 20 20 20 3B C6 4C 41 |FLAG3,SET ;.LA| 00002F10: 47 20 46 55 45 52 20 D9 47 4C 45 49 43 48 0D 3A |G FUER .GLEICH.:| 00002F20: 58 50 52 55 45 46 45 4E 0D 4C 44 41 20 4D 4F 55 |XPRUEFEN.LDA MOU| 00002F30: 53 45 58 0D 43 4D 50 20 41 4B 54 58 20 20 20 20 |SEX.CMP AKTX | 00002F40: 20 20 20 20 20 3B D8 20 56 45 52 41 45 4E 44 45 | ;. VERAENDE| 00002F50: 52 54 3F 0D 42 4E 45 20 4E 49 43 48 54 47 4C 45 |RT?.BNE NICHTGLE| 00002F60: 49 43 48 20 20 3B 4A 41 0D 4C 44 41 20 4D 4F 55 |ICH ;JA.LDA MOU| 00002F70: 53 45 58 2B 31 0D 43 4D 50 20 41 4B 54 58 2B 31 |SEX+1.CMP AKTX+1| 00002F80: 0D 42 4E 45 20 4E 49 43 48 54 47 4C 45 49 43 48 |.BNE NICHTGLEICH| 00002F90: 20 20 3B 4A 41 0D 3A 58 47 4C 45 49 43 48 0D 4C | ;JA.:XGLEICH.L| 00002FA0: 44 41 20 46 4C 41 47 33 0D 42 4E 45 20 4E 49 4E |DA FLAG3.BNE NIN| 00002FB0: 56 45 52 54 49 45 52 45 4E 20 3B 57 45 4E 4E 20 |VERTIEREN ;WENN | 00002FC0: 4E 55 52 20 D8 20 47 4C 45 49 43 48 2C 4E 45 55 |NUR . GLEICH,NEU| 00002FD0: 45 4E 20 C2 2E 49 4E 56 45 52 54 49 45 52 45 4E |EN ..INVERTIEREN| 00002FE0: 0D 4A 4D 50 20 49 4E 56 45 52 54 49 45 52 45 4E |.JMP INVERTIEREN| 00002FF0: 0D 3A 4E 49 4E 56 45 52 54 49 45 52 45 4E 0D 4D |.:NINVERTIEREN.M| 00003000: 41 49 4E 20 57 41 52 54 45 53 43 48 4C 45 49 46 |AIN WARTESCHLEIF| 00003010: 45 0D 3A 4E 49 43 48 54 47 4C 45 49 43 48 0D 54 |E.:NICHTGLEICH.T| 00003020: 52 41 4E 53 57 20 4D 4F 55 53 45 58 2C 41 4B 54 |RANSW MOUSEX,AKT| 00003030: 58 0D 53 45 43 0D 4C 44 41 20 41 4B 54 58 0D 53 |X.SEC.LDA AKTX.S| 00003040: 42 43 20 41 4C 54 58 20 20 20 20 20 20 20 20 20 |BC ALTX | 00003050: 20 3B 4C 49 4E 4B 53 20 55 4E 44 20 52 45 43 48 | ;LINKS UND RECH| 00003060: 54 53 0D 4C 44 41 20 41 4B 54 58 2B 31 20 20 20 |TS.LDA AKTX+1 | 00003070: 20 20 20 20 20 3B 46 45 53 54 4C 45 47 45 4E 0D | ;FESTLEGEN.| 00003080: 53 42 43 20 41 4C 54 58 2B 31 0D 42 43 53 20 58 |SBC ALTX+1.BCS X| 00003090: 47 52 4F 45 53 53 45 52 0D 54 52 41 4E 53 57 20 |GROESSER.TRANSW | 000030A0: 41 4C 54 58 2C 58 32 0D 54 52 41 4E 53 57 20 41 |ALTX,X2.TRANSW A| 000030B0: 4B 54 58 2C 58 31 0D 50 4F 4B 45 20 46 4C 41 47 |KTX,X1.POKE FLAG| 000030C0: 36 2C 43 4C 45 41 52 20 20 3B C1 4B 54 59 2D 4C |6,CLEAR ;.KTY-L| 000030D0: 49 4E 4B 53 2D C6 4C 41 47 0D 4A 4D 50 20 49 4E |INKS-.LAG.JMP IN| 000030E0: 56 45 52 54 49 45 52 45 4E 0D 3A 58 47 52 4F 45 |VERTIEREN.:XGROE| 000030F0: 53 53 45 52 0D 54 52 41 4E 53 57 20 41 4C 54 58 |SSER.TRANSW ALTX| 00003100: 2C 58 31 0D 54 52 41 4E 53 57 20 41 4B 54 58 2C |,X1.TRANSW AKTX,| 00003110: 58 32 0D 50 4F 4B 45 20 46 4C 41 47 36 2C 53 45 |X2.POKE FLAG6,SE| 00003120: 54 20 20 20 20 3B C1 4B 54 59 2D 52 45 43 48 54 |T ;.KTY-RECHT| 00003130: 53 2D C6 4C 41 47 0D 3A 49 4E 56 45 52 54 49 45 |S-.LAG.:INVERTIE| 00003140: 52 45 4E 0D 50 4F 4B 45 20 46 41 52 42 45 2C 30 |REN.POKE FARBE,0| 00003150: 0D 4C 44 41 20 46 4C 41 47 31 20 20 20 20 20 20 |.LDA FLAG1 | 00003160: 20 3B 57 45 4E 4E 20 C1 55 54 4F 53 54 4F 50 2C | ;WENN .UTOSTOP,| 00003170: 0D 42 4E 45 20 41 55 46 52 55 46 20 20 20 20 20 |.BNE AUFRUF | 00003180: 20 3B 44 41 4E 4E 20 55 45 42 45 52 53 50 52 49 | ;DANN UEBERSPRI| 00003190: 4E 47 45 4E 0D 53 45 43 20 20 20 20 20 20 20 20 |NGEN.SEC | 000031A0: 20 20 20 20 20 3B C6 41 52 42 45 20 44 45 53 20 | ;.ARBE DES | 000031B0: C2 49 4C 44 2D 0D 4C 44 41 20 59 32 20 20 20 20 |.ILD-.LDA Y2 | 000031C0: 20 20 20 20 20 20 3B 53 43 48 49 52 4D 52 41 4E | ;SCHIRMRAN| 000031D0: 44 45 53 0D 53 42 43 20 59 31 20 20 20 20 20 20 |DES.SBC Y1 | 000031E0: 20 20 20 20 3B 42 45 52 45 43 48 4E 45 4E 0D 43 | ;BERECHNEN.C| 000031F0: 4D 50 20 23 31 34 34 0D 42 43 43 20 53 43 48 57 |MP #144.BCC SCHW| 00003200: 41 52 5A 0D 50 4F 4B 45 20 46 41 52 42 45 2C 32 |ARZ.POKE FARBE,2| 00003210: 0D 4A 4D 50 20 58 46 41 52 42 45 0D 3A 53 43 48 |.JMP XFARBE.:SCH| 00003220: 57 41 52 5A 0D 50 4F 4B 45 20 46 41 52 42 45 2C |WARZ.POKE FARBE,| 00003230: 30 0D 3A 58 46 41 52 42 45 0D 53 45 43 0D 4C 44 |0.:XFARBE.SEC.LD| 00003240: 41 20 58 32 0D 53 42 43 20 58 31 0D 53 54 41 20 |A X2.SBC X1.STA | 00003250: 50 55 46 46 45 52 2B 31 0D 4C 44 41 20 58 32 2B |PUFFER+1.LDA X2+| 00003260: 31 0D 53 42 43 20 58 31 2B 31 0D 53 54 41 20 50 |1.SBC X1+1.STA P| 00003270: 55 46 46 45 52 2B 32 0D 4C 44 41 20 50 55 46 46 |UFFER+2.LDA PUFF| 00003280: 45 52 2B 32 0D 42 45 51 20 58 53 43 48 57 41 52 |ER+2.BEQ XSCHWAR| 00003290: 5A 0D 4C 44 41 20 50 55 46 46 45 52 2B 31 0D 43 |Z.LDA PUFFER+1.C| 000032A0: 4D 50 20 23 39 0D 42 43 43 20 58 53 43 48 57 41 |MP #9.BCC XSCHWA| 000032B0: 52 5A 0D 50 4F 4B 45 20 46 41 52 42 45 2C 32 0D |RZ.POKE FARBE,2.| 000032C0: 4A 4D 50 20 41 55 46 52 55 46 0D 3A 58 53 43 48 |JMP AUFRUF.:XSCH| 000032D0: 57 41 52 5A 0D 4C 44 41 20 46 41 52 42 45 0D 42 |WARZ.LDA FARBE.B| 000032E0: 4E 45 20 41 55 46 52 55 46 0D 50 4F 4B 45 20 46 |NE AUFRUF.POKE F| 000032F0: 41 52 42 45 2C 30 0D 3A 41 55 46 52 55 46 0D 4C |ARBE,0.:AUFRUF.L| 00003300: 44 41 20 46 4C 41 47 35 0D 42 45 51 20 4E 4B 4E |DA FLAG5.BEQ NKN| 00003310: 4F 50 46 32 0D 52 54 53 0D 3A 4E 4B 4E 4F 50 46 |OPF2.RTS.:NKNOPF| 00003320: 32 0D 4C 44 41 20 46 41 52 42 45 0D 43 4D 50 20 |2.LDA FARBE.CMP | 00003330: 50 55 46 46 45 52 2B 31 30 0D 42 45 51 20 41 4C |PUFFER+10.BEQ AL| 00003340: 54 45 46 41 52 42 45 0D 53 54 41 20 50 55 46 46 |TEFARBE.STA PUFF| 00003350: 45 52 2B 31 30 0D 49 4E 49 54 49 4F 0D 43 4F 50 |ER+10.INITIO.COP| 00003360: 20 46 41 52 42 45 2C 35 33 32 38 30 20 20 20 3B | FARBE,53280 ;| 00003370: C6 41 52 42 45 20 53 45 54 5A 45 4E 0D 44 4F 4E |.ARBE SETZEN.DON| 00003380: 45 49 4F 0D 3A 41 4C 54 45 46 41 52 42 45 0D 54 |EIO.:ALTEFARBE.T| 00003390: 52 41 4E 53 57 20 5A 50 32 2C 52 33 20 20 20 20 |RANSW ZP2,R3 | 000033A0: 20 3B 41 4C 54 45 4E 20 C2 45 52 45 49 43 48 0D | ;ALTEN .EREICH.| 000033B0: 54 52 41 4E 53 57 20 5A 50 33 2C 52 34 20 20 20 |TRANSW ZP3,R4 | 000033C0: 20 20 3B 57 49 45 44 45 52 48 45 52 53 54 45 4C | ;WIEDERHERSTEL| 000033D0: 4C 45 4E 2C 0D 43 4F 50 20 5A 50 31 2C 36 0D 43 |LEN,.COP ZP1,6.C| 000033E0: 4F 50 20 5A 50 31 2B 31 2C 37 0D 4A 53 52 20 52 |OP ZP1+1,7.JSR R| 000033F0: 45 43 56 42 4F 58 52 0D 54 52 41 4E 53 57 20 58 |ECVBOXR.TRANSW X| 00003400: 31 2C 52 33 0D 54 52 41 4E 53 57 20 58 32 2C 52 |1,R3.TRANSW X2,R| 00003410: 34 20 20 20 20 20 20 3B 4E 45 55 45 4E 20 C2 45 |4 ;NEUEN .E| 00003420: 52 45 49 43 48 0D 43 4F 50 20 59 31 2C 36 20 20 |REICH.COP Y1,6 | 00003430: 20 20 20 20 20 20 20 20 3B 49 4E 56 45 52 54 49 | ;INVERTI| 00003440: 45 52 45 4E 0D 43 4F 50 20 59 32 2C 37 0D 49 4E |EREN.COP Y2,7.IN| 00003450: 56 42 4F 58 0D 54 52 41 4E 53 57 20 58 31 2C 52 |VBOX.TRANSW X1,R| 00003460: 33 0D 54 52 41 4E 53 57 20 58 32 2C 52 34 20 20 |3.TRANSW X2,R4 | 00003470: 20 20 20 20 3B 55 4E 44 20 D2 45 43 48 54 45 43 | ;UND .ECHTEC| 00003480: 4B 20 5A 45 49 43 48 4E 45 4E 0D 43 4F 50 20 59 |K ZEICHNEN.COP Y| 00003490: 31 2C 36 0D 43 4F 50 20 59 32 2C 37 0D 4C 44 41 |1,6.COP Y2,7.LDA| 000034A0: 20 23 25 31 31 31 31 30 30 30 30 20 20 20 20 3B | #%11110000 ;| 000034B0: DA 45 49 43 48 45 4E 4D 55 53 54 45 52 0D 46 52 |.EICHENMUSTER.FR| 000034C0: 41 4D 45 0D 4D 41 49 4E 20 57 41 52 54 45 53 43 |AME.MAIN WARTESC| 000034D0: 48 4C 45 49 46 45 20 3B 55 4E 44 20 57 45 49 54 |HLEIFE ;UND WEIT| 000034E0: 45 52 20 57 41 52 54 45 4E 0D 3B 0D 3B 20 2A 2A |ER WARTEN.;.; **| 000034F0: 20 41 55 46 20 32 2E 20 CB 4E 4F 50 46 44 52 55 | AUF 2. .NOPFDRU| 00003500: 43 4B 20 52 45 41 47 49 45 52 45 4E 20 2A 2A 0D |CK REAGIEREN **.| 00003510: 3B 0D 3A 4B 4E 4F 50 46 32 0D 4C 4F 41 44 57 20 |;.:KNOPF2.LOADW | 00003520: 45 52 57 45 49 54 45 52 4E 2C 24 38 34 39 42 20 |ERWEITERN,$849B | 00003530: 3B D2 55 45 43 4B 53 50 52 55 4E 47 41 44 52 2E |;.UECKSPRUNGADR.| 00003540: 20 46 55 45 52 20 CD C1 C9 CE 0D 52 54 53 20 20 | FUER .....RTS | 00003550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003560: 20 3B 5A 55 52 55 45 43 4B 20 5A 55 20 CD C1 C9 | ;ZURUECK ZU ...| 00003570: CE 0D 3A 45 52 57 45 49 54 45 52 4E 0D 4C 4F 41 |..:ERWEITERN.LOA| 00003580: 44 57 20 24 45 36 42 39 2C 24 38 34 41 31 20 20 |DW $E6B9,$84A1 | 00003590: 3B 41 4C 54 45 4E 20 D6 45 4B 54 4F 52 20 48 45 |;ALTEN .EKTOR HE| 000035A0: 52 53 54 45 4C 4C 45 4E 0D 3B 0D 3B 20 2A 2A 20 |RSTELLEN.;.; ** | 000035B0: D8 2D CB 4F 4F 52 44 2E 20 41 55 46 20 22 D8 2F |.-.OORD. AUF "./| 000035C0: 38 22 20 45 52 57 45 49 54 45 52 4E 20 2A 2A 0D |8" ERWEITERN **.| 000035D0: 3B 0D 54 52 41 4E 53 57 20 58 31 2C 52 33 20 20 |;.TRANSW X1,R3 | 000035E0: 20 20 20 3B C2 49 4C 44 0D 54 52 41 4E 53 57 20 | ;.ILD.TRANSW | 000035F0: 58 32 2C 52 34 20 20 20 20 20 3B 57 49 45 44 45 |X2,R4 ;WIEDE| 00003600: 52 48 45 52 53 54 45 4C 4C 45 4E 0D 43 4F 50 20 |RHERSTELLEN.COP | 00003610: 59 31 2C 36 0D 43 4F 50 20 59 32 2C 37 0D 4A 53 |Y1,6.COP Y2,7.JS| 00003620: 52 20 52 45 43 56 42 4F 58 52 0D 4C 44 41 20 58 |R RECVBOXR.LDA X| 00003630: 31 20 20 20 20 20 20 20 20 20 20 20 3B 42 45 49 |1 ;BEI| 00003640: 20 D8 31 3D 30 0D 42 4E 45 20 4B 45 49 4E 45 4E | .1=0.BNE KEINEN| 00003650: 55 4C 4C 20 20 20 20 3B 55 45 42 45 52 53 50 52 |ULL ;UEBERSPR| 00003660: 49 4E 47 45 4E 0D 4C 44 41 20 58 31 2B 31 0D 42 |INGEN.LDA X1+1.B| 00003670: 45 51 20 58 32 45 52 57 45 49 54 0D 3A 4B 45 49 |EQ X2ERWEIT.:KEI| 00003680: 4E 45 4E 55 4C 4C 0D 54 52 41 4E 53 57 20 58 31 |NENULL.TRANSW X1| 00003690: 2C 52 30 0D 4C 4F 41 44 57 20 38 2C 52 31 0D 44 |,R0.LOADW 8,R1.D| 000036A0: 44 49 56 20 52 30 2C 52 31 20 20 20 20 20 20 20 |DIV R0,R1 | 000036B0: 3B D8 31 2F 38 20 53 54 45 48 54 20 49 4E 20 52 |;.1/8 STEHT IN R| 000036C0: 30 20 28 CC 4F 57 42 59 54 45 29 0D 50 4F 4B 45 |0 (.OWBYTE).POKE| 000036D0: 20 52 30 2B 31 2C 38 0D 42 42 4D 55 4C 54 20 52 | R0+1,8.BBMULT R| 000036E0: 30 2C 52 31 20 20 20 20 20 3B D8 31 2A 38 2C C5 |0,R1 ;.1*8,.| 000036F0: 52 47 45 42 4E 49 53 20 49 4E 20 52 31 0D 54 52 |RGEBNIS IN R1.TR| 00003700: 41 4E 53 57 20 52 31 2C 58 31 20 20 20 20 20 3B |ANSW R1,X1 ;| 00003710: 58 31 20 4A 45 54 5A 54 20 44 55 52 43 48 20 38 |X1 JETZT DURCH 8| 00003720: 20 54 45 49 4C 42 41 52 0D 3A 58 32 45 52 57 45 | TEILBAR.:X2ERWE| 00003730: 49 54 0D 4C 44 41 20 58 32 20 20 20 20 20 20 20 |IT.LDA X2 | 00003740: 20 20 20 20 3B 42 45 49 20 D8 32 3D 30 0D 42 4E | ;BEI .2=0.BN| 00003750: 45 20 4E 4F 4E 55 4C 4C 20 20 20 20 20 20 20 3B |E NONULL ;| 00003760: 55 45 42 45 52 53 50 52 49 4E 47 45 4E 0D 4C 44 |UEBERSPRINGEN.LD| 00003770: 41 20 58 32 2B 31 0D 42 4E 45 20 4E 4F 4E 55 4C |A X2+1.BNE NONUL| 00003780: 4C 0D 4A 4D 50 20 44 41 52 53 54 45 4C 4C 45 4E |L.JMP DARSTELLEN| 00003790: 0D 3A 4E 4F 4E 55 4C 4C 0D 54 52 41 4E 53 57 20 |.:NONULL.TRANSW | 000037A0: 58 32 2C 52 30 0D 44 49 4E 43 20 52 30 20 20 20 |X2,R0.DINC R0 | 000037B0: 20 20 20 20 20 20 20 3B D8 32 20 45 52 48 4F 45 | ;.2 ERHOE| 000037C0: 48 45 4E 20 28 30 3D 31 2C 37 3D 38 2C 2E 2E 2E |HEN (0=1,7=8,...| 000037D0: 29 0D 4C 4F 41 44 57 20 38 2C 52 31 0D 44 44 49 |).LOADW 8,R1.DDI| 000037E0: 56 20 52 30 2C 52 31 20 20 20 20 20 20 20 3B D8 |V R0,R1 ;.| 000037F0: 32 2F 38 20 53 54 45 48 54 20 49 4E 20 52 30 20 |2/8 STEHT IN R0 | 00003800: 28 CC 4F 57 42 59 54 45 29 0D 50 4F 4B 45 20 52 |(.OWBYTE).POKE R| 00003810: 30 2B 31 2C 38 0D 42 42 4D 55 4C 54 20 52 30 2C |0+1,8.BBMULT R0,| 00003820: 52 31 20 20 20 20 20 3B D8 32 2A 38 2C C5 52 47 |R1 ;.2*8,.RG| 00003830: 45 42 4E 49 53 20 49 4E 20 52 31 0D 44 44 45 43 |EBNIS IN R1.DDEC| 00003840: 20 52 31 20 20 20 20 20 20 20 20 20 20 3B D8 32 | R1 ;.2| 00003850: 20 57 49 45 44 45 52 20 2D 31 20 28 38 3D 37 2C | WIEDER -1 (8=7,| 00003860: 2E 2E 2E 29 0D 54 52 41 4E 53 57 20 52 31 2C 50 |...).TRANSW R1,P| 00003870: 55 46 46 45 52 20 3B 58 32 20 4A 45 54 5A 54 20 |UFFER ;X2 JETZT | 00003880: 44 55 52 43 48 20 38 20 54 45 49 4C 42 41 52 0D |DURCH 8 TEILBAR.| 00003890: 4C 44 41 20 50 55 46 46 45 52 0D 43 4D 50 20 58 |LDA PUFFER.CMP X| 000038A0: 32 0D 42 45 51 20 4B 45 49 4E 52 45 53 54 0D 43 |2.BEQ KEINREST.C| 000038B0: 4C 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |LC | 000038C0: 3B 41 55 46 52 55 4E 44 45 4E 0D 4C 44 41 20 50 |;AUFRUNDEN.LDA P| 000038D0: 55 46 46 45 52 20 20 20 20 20 20 20 3B 28 50 4C |UFFER ;(PL| 000038E0: 55 53 20 38 29 0D 41 44 43 20 23 38 0D 53 54 41 |US 8).ADC #8.STA| 000038F0: 20 50 55 46 46 45 52 0D 4C 44 41 20 50 55 46 46 | PUFFER.LDA PUFF| 00003900: 45 52 2B 31 0D 41 44 43 20 23 30 0D 53 54 41 20 |ER+1.ADC #0.STA | 00003910: 50 55 46 46 45 52 2B 31 0D 3A 4B 45 49 4E 52 45 |PUFFER+1.:KEINRE| 00003920: 53 54 0D 54 52 41 4E 53 57 20 50 55 46 46 45 52 |ST.TRANSW PUFFER| 00003930: 2C 58 32 0D 4C 44 41 20 46 4C 41 47 31 20 20 20 |,X2.LDA FLAG1 | 00003940: 20 20 20 20 20 3B C1 55 54 4F 53 54 4F 50 20 3F | ;.UTOSTOP ?| 00003950: 0D 42 45 51 20 44 41 52 53 54 45 4C 4C 45 4E 0D |.BEQ DARSTELLEN.| 00003960: 44 53 55 42 54 52 20 58 32 2C 58 31 2C 5A 50 31 |DSUBTR X2,X1,ZP1| 00003970: 30 0D 4C 4F 41 44 57 20 32 36 34 2C 5A 50 39 0D |0.LOADW 264,ZP9.| 00003980: 44 53 55 42 54 52 20 5A 50 31 30 2C 5A 50 39 2C |DSUBTR ZP10,ZP9,| 00003990: 5A 50 38 0D 42 43 43 20 44 41 52 53 54 45 4C 4C |ZP8.BCC DARSTELL| 000039A0: 45 4E 0D 4C 44 41 20 46 4C 41 47 36 0D 42 4E 45 |EN.LDA FLAG6.BNE| 000039B0: 20 41 4B 54 58 32 0D 43 4C 43 20 20 20 20 20 20 | AKTX2.CLC | 000039C0: 20 20 20 20 20 20 20 20 3B C2 52 45 49 54 45 20 | ;.REITE | 000039D0: 48 45 52 55 4E 54 45 52 2D 0D 4C 44 41 20 58 31 |HERUNTER-.LDA X1| 000039E0: 20 20 20 20 20 20 20 20 20 20 20 3B 53 45 54 5A | ;SETZ| 000039F0: 45 4E 0D 41 44 43 20 23 38 20 20 20 20 20 20 20 |EN.ADC #8 | 00003A00: 20 20 20 20 3B 28 D8 31 20 2B 20 38 29 0D 53 54 | ;(.1 + 8).ST| 00003A10: 41 20 58 31 0D 4C 44 41 20 58 31 2B 31 0D 41 44 |A X1.LDA X1+1.AD| 00003A20: 43 20 23 30 0D 53 54 41 20 58 31 2B 31 0D 4A 4D |C #0.STA X1+1.JM| 00003A30: 50 20 44 41 52 53 54 45 4C 4C 45 4E 0D 3A 41 4B |P DARSTELLEN.:AK| 00003A40: 54 58 32 0D 4C 4F 41 44 57 20 38 2C 5A 50 31 30 |TX2.LOADW 8,ZP10| 00003A50: 20 20 20 20 20 20 3B D8 32 20 2D 20 38 0D 44 53 | ;.2 - 8.DS| 00003A60: 55 42 54 52 20 58 32 2C 5A 50 31 30 2C 58 32 20 |UBTR X2,ZP10,X2 | 00003A70: 3B 28 C2 52 45 49 54 45 20 48 45 52 55 4E 54 45 |;(.REITE HERUNTE| 00003A80: 52 53 45 54 5A 45 4E 29 0D 3B 0D 3B 20 2A 2A 20 |RSETZEN).;.; ** | 00003A90: 4E 45 55 45 4E 20 C2 45 52 45 49 43 48 20 44 41 |NEUEN .EREICH DA| 00003AA0: 52 53 54 45 4C 4C 45 4E 20 2A 2A 0D 3B 0D 3A 44 |RSTELLEN **.;.:D| 00003AB0: 41 52 53 54 45 4C 4C 45 4E 0D 54 52 41 4E 53 57 |ARSTELLEN.TRANSW| 00003AC0: 20 58 31 2C 52 33 0D 54 52 41 4E 53 57 20 58 32 | X1,R3.TRANSW X2| 00003AD0: 2C 52 34 20 20 20 20 20 20 3B 4E 45 55 45 4E 20 |,R4 ;NEUEN | 00003AE0: C2 45 52 45 49 43 48 0D 43 4F 50 20 59 31 2C 36 |.EREICH.COP Y1,6| 00003AF0: 20 20 20 20 20 20 20 20 20 20 3B 49 4E 56 45 52 | ;INVER| 00003B00: 54 49 45 52 45 4E 0D 43 4F 50 20 59 32 2C 37 0D |TIEREN.COP Y2,7.| 00003B10: 49 4E 56 42 4F 58 0D 54 52 41 4E 53 57 20 58 31 |INVBOX.TRANSW X1| 00003B20: 2C 52 33 0D 54 52 41 4E 53 57 20 58 32 2C 52 34 |,R3.TRANSW X2,R4| 00003B30: 20 20 20 20 20 20 3B 55 4E 44 20 D2 45 43 48 54 | ;UND .ECHT| 00003B40: 45 43 4B 20 5A 45 49 43 48 4E 45 4E 0D 43 4F 50 |ECK ZEICHNEN.COP| 00003B50: 20 59 31 2C 36 0D 43 4F 50 20 59 32 2C 37 0D 4C | Y1,6.COP Y2,7.L| 00003B60: 44 41 20 23 25 31 31 31 31 30 30 30 30 20 20 20 |DA #%11110000 | 00003B70: 20 3B DA 45 49 43 48 45 4E 4D 55 53 54 45 52 0D | ;.EICHENMUSTER.| 00003B80: 46 52 41 4D 45 0D 3B 0D 3B 20 2A 2A 20 C6 41 52 |FRAME.;.; ** .AR| 00003B90: 42 45 4E 20 46 55 45 52 20 C2 45 52 45 49 43 48 |BEN FUER .EREICH| 00003BA0: 53 55 45 42 45 52 53 43 48 52 45 49 54 55 4E 47 |SUEBERSCHREITUNG| 00003BB0: 20 53 45 54 5A 45 4E 20 2A 2A 0D 3B 0D 50 4F 4B | SETZEN **.;.POK| 00003BC0: 45 20 46 4C 41 47 35 2C 53 45 54 0D 50 4F 4B 45 |E FLAG5,SET.POKE| 00003BD0: 20 46 4C 41 47 31 2C 43 4C 45 41 52 0D 4A 53 52 | FLAG1,CLEAR.JSR| 00003BE0: 20 49 4E 56 45 52 54 49 45 52 45 4E 0D 49 4E 49 | INVERTIEREN.INI| 00003BF0: 54 49 4F 0D 43 4F 50 20 46 41 52 42 45 2C 35 33 |TIO.COP FARBE,53| 00003C00: 32 38 30 20 20 3B C6 41 52 42 45 20 53 45 54 5A |280 ;.ARBE SETZ| 00003C10: 45 4E 0D 44 4F 4E 45 49 4F 0D 57 41 49 54 20 34 |EN.DONEIO.WAIT 4| 00003C20: 0D 44 49 41 4C 42 4F 58 20 41 55 53 53 43 48 4E |.DIALBOX AUSSCHN| 00003C30: 49 54 54 4F 4B 0D 4C 44 41 20 52 30 0D 43 4D 50 |ITTOK.LDA R0.CMP| 00003C40: 20 23 59 45 53 0D 42 45 51 20 49 4E 4F 52 44 4E | #YES.BEQ INORDN| 00003C50: 55 4E 47 0D 52 45 43 56 42 4F 58 20 30 2C 30 2C |UNG.RECVBOX 0,0,| 00003C60: 33 31 39 2C 31 39 39 0D 4A 4D 50 20 42 49 4C 44 |319,199.JMP BILD| 00003C70: 52 49 43 48 54 49 47 20 20 20 3B 4E 45 55 45 4E |RICHTIG ;NEUEN| 00003C80: 20 C1 55 53 53 43 48 4E 49 54 54 20 57 41 45 48 | .USSCHNITT WAEH| 00003C90: 4C 45 4E 0D 3A 49 4E 4F 52 44 4E 55 4E 47 0D 49 |LEN.:INORDNUNG.I| 00003CA0: 4E 49 54 49 4F 0D 50 4F 4B 45 20 35 33 32 38 30 |NITIO.POKE 53280| 00003CB0: 2C 30 0D 44 4F 4E 45 49 4F 0D 3B 0D 3B 20 2A 2A |,0.DONEIO.;.; **| 00003CC0: 20 C2 49 54 4D 41 50 46 4F 52 4D 41 54 20 4B 4F | .ITMAPFORMAT KO| 00003CD0: 4E 56 45 52 54 49 45 52 45 4E 20 2A 2A 0D 3B 0D |NVERTIEREN **.;.| 00003CE0: 4D 4F 55 53 45 4F 46 46 0D 43 4C 45 41 52 41 4D |MOUSEOFF.CLEARAM| 00003CF0: 20 24 41 30 30 30 2C 38 30 30 30 20 3B C2 49 54 | $A000,8000 ;.IT| 00003D00: 4D 41 50 20 31 20 4C 4F 45 53 43 48 45 4E 0D 50 |MAP 1 LOESCHEN.P| 00003D10: 4F 4B 45 20 24 32 46 2C 25 30 31 30 30 30 30 30 |OKE $2F,%0100000| 00003D20: 30 20 3B C2 49 54 4D 41 50 20 32 20 41 55 53 4C |0 ;.ITMAP 2 AUSL| 00003D30: 45 53 45 4E 0D 4C 4F 41 44 57 20 24 41 30 30 30 |ESEN.LOADW $A000| 00003D40: 2C 5A 50 31 20 20 20 20 3B DA 45 49 47 45 52 20 |,ZP1 ;.EIGER | 00003D50: 46 45 53 54 4C 45 47 45 4E 0D 50 4F 4B 45 20 50 |FESTLEGEN.POKE P| 00003D60: 55 46 46 45 52 2C 30 20 20 20 20 20 20 3B 20 20 |UFFER,0 ; | 00003D70: 27 27 20 20 20 20 20 20 27 27 0D 4C 44 41 20 58 |'' ''.LDA X| 00003D80: 32 20 20 20 20 20 20 20 20 20 20 20 3B D8 32 20 |2 ;.2 | 00003D90: 45 52 48 4F 45 48 45 4E 0D 42 4E 45 20 58 32 4E |ERHOEHEN.BNE X2N| 00003DA0: 49 43 48 54 4E 55 4C 4C 20 20 3B 28 44 55 52 43 |ICHTNULL ;(DURC| 00003DB0: 48 20 38 20 54 45 49 4C 2D 0D 4C 44 41 20 58 32 |H 8 TEIL-.LDA X2| 00003DC0: 2B 31 20 20 20 20 20 20 20 20 20 3B 20 42 41 52 |+1 ; BAR| 00003DD0: 20 4D 41 43 48 45 4E 29 0D 42 45 51 20 47 4C 45 | MACHEN).BEQ GLE| 00003DE0: 49 43 48 4E 55 4C 4C 0D 3A 58 32 4E 49 43 48 54 |ICHNULL.:X2NICHT| 00003DF0: 4E 55 4C 4C 0D 44 49 4E 43 20 58 32 0D 3B 20 2A |NULL.DINC X2.; *| 00003E00: 2A 20 C2 52 45 49 54 45 20 55 4E 44 20 C8 4F 45 |* .REITE UND .OE| 00003E10: 48 45 20 46 45 53 54 48 41 4C 54 45 4E 20 2A 2A |HE FESTHALTEN **| 00003E20: 0D 3A 47 4C 45 49 43 48 4E 55 4C 4C 0D 53 45 43 |.:GLEICHNULL.SEC| 00003E30: 0D 4C 44 41 20 59 32 0D 53 42 43 20 59 31 0D 53 |.LDA Y2.SBC Y1.S| 00003E40: 54 41 20 48 4F 45 48 45 20 20 20 20 20 20 20 20 |TA HOEHE | 00003E50: 3B 57 45 49 4C 20 4B 4C 45 49 4E 53 54 45 53 20 |;WEIL KLEINSTES | 00003E60: D9 3D 30 0D 49 4E 43 20 48 4F 45 48 45 20 20 20 |.=0.INC HOEHE | 00003E70: 20 20 20 20 20 3B 4D 55 53 53 20 C8 4F 45 48 45 | ;MUSS .OEHE| 00003E80: 20 49 4E 43 52 45 4D 45 4E 54 49 45 52 54 20 57 | INCREMENTIERT W| 00003E90: 45 52 44 45 4E 0D 53 45 43 0D 4C 44 41 20 58 32 |ERDEN.SEC.LDA X2| 00003EA0: 0D 53 42 43 20 58 31 0D 53 54 41 20 52 30 0D 4C |.SBC X1.STA R0.L| 00003EB0: 44 41 20 58 32 2B 31 0D 53 42 43 20 58 31 2B 31 |DA X2+1.SBC X1+1| 00003EC0: 0D 53 54 41 20 52 30 2B 31 0D 4C 4F 41 44 57 20 |.STA R0+1.LOADW | 00003ED0: 38 2C 52 31 0D 44 44 49 56 20 52 30 2C 52 31 20 |8,R1.DDIV R0,R1 | 00003EE0: 20 20 20 20 20 20 3B C2 52 45 49 54 45 2F 38 20 | ;.REITE/8 | 00003EF0: 53 54 45 48 54 20 49 4E 20 52 30 20 28 CC 4F 57 |STEHT IN R0 (.OW| 00003F00: 42 59 54 45 29 0D 43 4F 50 20 52 30 2C 42 52 45 |BYTE).COP R0,BRE| 00003F10: 49 54 45 0D 54 52 41 4E 53 57 20 58 31 2C 41 4C |ITE.TRANSW X1,AL| 00003F20: 54 58 20 20 20 3B 52 45 54 54 45 4E 0D 3B 20 2A |TX ;RETTEN.; *| 00003F30: 2A 20 55 4E 44 20 4A 45 54 5A 54 20 47 45 48 54 |* UND JETZT GEHT| 00003F40: 27 53 20 4C 4F 53 20 2A 2A 0D 3A 43 4F 50 59 4C |'S LOS **.:COPYL| 00003F50: 4F 4F 50 0D 4C 44 58 20 59 31 0D 53 43 41 4E 0D |OOP.LDX Y1.SCAN.| 00003F60: 43 4C 43 0D 4C 44 41 20 52 35 0D 41 44 43 20 58 |CLC.LDA R5.ADC X| 00003F70: 31 0D 53 54 41 20 52 35 0D 4C 44 41 20 52 35 2B |1.STA R5.LDA R5+| 00003F80: 31 0D 41 44 43 20 58 31 2B 31 0D 53 54 41 20 52 |1.ADC X1+1.STA R| 00003F90: 35 2B 31 0D 4C 44 59 20 23 30 0D 4C 44 41 20 28 |5+1.LDY #0.LDA (| 00003FA0: 52 35 29 2C 59 0D 53 54 41 20 28 5A 50 31 29 2C |R5),Y.STA (ZP1),| 00003FB0: 59 0D 44 49 4E 43 20 5A 50 31 20 20 20 20 20 20 |Y.DINC ZP1 | 00003FC0: 20 20 20 3B DA 49 45 4C 5A 45 49 47 45 52 20 45 | ;.IELZEIGER E| 00003FD0: 52 48 4F 45 48 45 4E 0D 43 4C 43 20 20 20 20 20 |RHOEHEN.CLC | 00003FE0: 20 20 20 20 20 20 20 20 20 3B D8 2D CB 4F 4F 52 | ;.-.OOR| 00003FF0: 44 2E 20 45 52 48 4F 45 48 45 4E 0D 4C 44 41 20 |D. ERHOEHEN.LDA | 00004000: 58 31 20 20 20 20 20 20 20 20 20 20 20 3B 28 55 |X1 ;(U| 00004010: 4D 20 38 29 0D 41 44 43 20 23 38 0D 53 54 41 20 |M 8).ADC #8.STA | 00004020: 58 31 0D 4C 44 41 20 58 31 2B 31 0D 41 44 43 20 |X1.LDA X1+1.ADC | 00004030: 23 30 0D 53 54 41 20 58 31 2B 31 0D 4C 44 41 20 |#0.STA X1+1.LDA | 00004040: 58 32 20 20 20 20 20 20 20 20 20 20 20 3B 50 52 |X2 ;PR| 00004050: 55 45 46 45 4E 2C 4F 42 20 D8 31 3D D8 32 0D 43 |UEFEN,OB .1=.2.C| 00004060: 4D 50 20 58 31 0D 42 4E 45 20 43 4F 50 59 4C 4F |MP X1.BNE COPYLO| 00004070: 4F 50 0D 4C 44 41 20 58 32 2B 31 0D 43 4D 50 20 |OP.LDA X2+1.CMP | 00004080: 58 31 2B 31 0D 42 4E 45 20 43 4F 50 59 4C 4F 4F |X1+1.BNE COPYLOO| 00004090: 50 0D 4C 44 41 20 59 31 20 20 20 20 20 20 20 20 |P.LDA Y1 | 000040A0: 20 20 20 3B 50 52 55 45 46 45 4E 2C 4F 42 20 4C | ;PRUEFEN,OB L| 000040B0: 45 54 5A 54 45 20 DA 45 49 4C 45 0D 43 4D 50 20 |ETZTE .EILE.CMP | 000040C0: 59 32 0D 42 45 51 20 46 45 52 54 49 47 0D 49 4E |Y2.BEQ FERTIG.IN| 000040D0: 43 20 59 31 20 20 20 20 20 20 20 20 20 20 20 3B |C Y1 ;| 000040E0: D9 20 45 52 48 4F 45 48 45 4E 0D 54 52 41 4E 53 |. ERHOEHEN.TRANS| 000040F0: 57 20 41 4C 54 58 2C 58 31 20 20 20 3B C1 4E 46 |W ALTX,X1 ;.NF| 00004100: 41 4E 47 53 57 45 52 54 20 5A 55 52 55 45 43 4B |ANGSWERT ZURUECK| 00004110: 0D 4A 4D 50 20 43 4F 50 59 4C 4F 4F 50 0D 3B 0D |.JMP COPYLOOP.;.| 00004120: 3B 20 2A 2A 20 C2 49 54 4D 41 50 20 50 41 43 4B |; ** .ITMAP PACK| 00004130: 45 4E 20 2A 2A 0D 3B 0D 3A 46 45 52 54 49 47 0D |EN **.;.:FERTIG.| 00004140: 4C 4F 41 44 57 20 24 41 30 30 30 2D 31 2C 4C 45 |LOADW $A000-1,LE| 00004150: 53 45 20 20 20 3B CC 45 53 45 5A 45 49 47 45 52 |SE ;.ESEZEIGER| 00004160: 0D 4C 4F 41 44 57 20 50 55 46 46 45 52 2B 33 2C |.LOADW PUFFER+3,| 00004170: 57 52 49 54 45 20 3B D3 43 48 52 45 49 42 5A 45 |WRITE ;.CHREIBZE| 00004180: 49 47 45 52 0D 4C 44 41 20 48 4F 45 48 45 0D 53 |IGER.LDA HOEHE.S| 00004190: 54 41 20 52 31 0D 53 54 41 20 50 55 46 46 45 52 |TA R1.STA PUFFER| 000041A0: 2B 31 20 20 20 20 20 20 20 20 20 3B D6 4F 52 42 |+1 ;.ORB| 000041B0: 45 52 45 49 54 55 4E 47 20 46 55 45 52 20 53 50 |EREITUNG FUER SP| 000041C0: 45 49 43 48 45 52 4E 0D 4C 44 41 20 42 52 45 49 |EICHERN.LDA BREI| 000041D0: 54 45 0D 53 54 41 20 52 32 0D 53 54 41 20 50 55 |TE.STA R2.STA PU| 000041E0: 46 46 45 52 20 20 20 20 20 20 20 20 20 20 20 3B |FFER ;| 000041F0: 20 20 20 20 27 27 20 20 20 20 20 20 20 20 27 27 | '' ''| 00004200: 20 20 20 20 20 27 27 0D 50 4F 4B 45 20 50 55 46 | ''.POKE PUF| 00004210: 46 45 52 2B 32 2C 30 20 20 20 20 20 20 3B 20 20 |FER+2,0 ; | 00004220: 20 20 27 27 20 20 20 20 20 20 20 20 27 27 20 20 | '' '' | 00004230: 20 20 20 27 27 0D 50 4F 4B 45 20 52 32 2B 31 2C | ''.POKE R2+1,| 00004240: 30 0D 42 4D 55 4C 54 20 52 31 2C 52 32 0D 54 52 |0.BMULT R1,R2.TR| 00004250: 41 4E 53 57 20 52 32 2C 42 59 54 45 53 20 20 20 |ANSW R2,BYTES | 00004260: 3B C2 59 54 45 5A 41 48 4C 0D 3B 20 2A 2A 20 4E |;.YTEZAHL.; ** N| 00004270: 45 55 45 53 20 CB 4F 50 46 42 59 54 45 20 2B 20 |EUES .OPFBYTE + | 00004280: 31 2E C2 59 54 45 20 53 43 48 52 45 49 42 45 4E |1..YTE SCHREIBEN| 00004290: 20 2A 2A 0D 3A 4E 45 55 45 52 4B 4F 50 46 0D 4C | **.:NEUERKOPF.L| 000042A0: 44 41 20 23 31 20 20 20 20 20 20 20 20 20 20 20 |DA #1 | 000042B0: 20 3B CB 4F 50 46 42 59 54 45 0D 4C 44 59 20 23 | ;.OPFBYTE.LDY #| 000042C0: 30 20 20 20 20 20 20 20 20 20 20 20 20 3B C4 41 |0 ;.A| 000042D0: 54 45 4E 42 59 54 45 41 4E 5A 41 48 4C 0D 4C 44 |TENBYTEANZAHL.LD| 000042E0: 58 20 23 30 20 20 20 20 20 20 20 20 20 20 20 20 |X #0 | 000042F0: 3B C4 55 4D 4D 59 0D 53 54 41 20 28 57 52 49 54 |;.UMMY.STA (WRIT| 00004300: 45 29 2C 59 20 20 20 20 20 3B CB 4F 50 46 42 59 |E),Y ;.OPFBY| 00004310: 54 45 20 53 50 45 49 43 48 45 52 4E 0D 54 52 41 |TE SPEICHERN.TRA| 00004320: 4E 53 57 20 57 52 49 54 45 2C 4B 4F 50 46 20 3B |NSW WRITE,KOPF ;| 00004330: DA 45 49 47 45 52 20 41 55 46 20 CB 4F 50 46 42 |.EIGER AUF .OPFB| 00004340: 59 54 45 0D 49 4E 59 20 20 20 20 20 20 20 20 20 |YTE.INY | 00004350: 20 20 20 20 20 20 3B D9 3D 31 0D 4C 44 41 20 28 | ;.=1.LDA (| 00004360: 4C 45 53 45 29 2C 59 20 20 20 20 20 20 3B 45 52 |LESE),Y ;ER| 00004370: 53 54 45 53 20 C4 41 54 45 4E 42 59 54 45 0D 53 |STES .ATENBYTE.S| 00004380: 54 41 20 28 57 52 49 54 45 29 2C 59 0D 50 55 53 |TA (WRITE),Y.PUS| 00004390: 48 43 50 55 0D 44 44 45 43 20 42 59 54 45 53 0D |HCPU.DDEC BYTES.| 000043A0: 43 4D 50 20 23 30 20 20 20 20 20 20 20 20 20 20 |CMP #0 | 000043B0: 20 20 3B 4C 45 54 5A 54 45 53 20 C2 59 54 45 20 | ;LETZTES .YTE | 000043C0: 3F 0D 42 45 51 20 41 4E 5A 45 49 47 45 4E 31 0D |?.BEQ ANZEIGEN1.| 000043D0: 50 4F 50 43 50 55 0D 49 4E 59 20 20 20 20 20 20 |POPCPU.INY | 000043E0: 20 20 20 20 20 20 20 20 20 3B D9 3D 32 0D 4C 44 | ;.=2.LD| 000043F0: 41 20 28 4C 45 53 45 29 2C 59 20 20 20 20 20 20 |A (LESE),Y | 00004400: 3B 4E 41 45 43 48 53 54 45 53 20 4C 45 53 45 4E |;NAECHSTES LESEN| 00004410: 0D 44 45 59 20 20 20 20 20 20 20 20 20 20 20 20 |.DEY | 00004420: 20 20 20 3B D9 3D 31 20 28 56 4F 52 48 45 52 49 | ;.=1 (VORHERI| 00004430: 47 45 53 20 C2 59 54 45 29 0D 43 4D 50 20 28 4C |GES .YTE).CMP (L| 00004440: 45 53 45 29 2C 59 20 20 20 20 20 20 3B 47 4C 45 |ESE),Y ;GLE| 00004450: 49 43 48 20 3F 0D 42 4E 45 20 47 52 55 50 50 45 |ICH ?.BNE GRUPPE| 00004460: 32 0D 4C 44 59 20 23 33 0D 43 4D 50 20 28 4C 45 |2.LDY #3.CMP (LE| 00004470: 53 45 29 2C 59 20 20 20 20 20 20 3B 33 20 47 4C |SE),Y ;3 GL| 00004480: 45 49 43 48 45 20 C2 59 54 45 53 20 3F 0D 42 4E |EICHE .YTES ?.BN| 00004490: 45 20 47 52 55 50 50 45 32 0D 4C 44 59 20 23 31 |E GRUPPE2.LDY #1| 000044A0: 0D 3B 20 2A 2A 20 D7 49 45 44 45 52 48 4F 4C 55 |.; ** .IEDERHOLU| 000044B0: 4E 47 20 2A 2A 0D 3A 47 52 55 50 50 45 31 0D 49 |NG **.:GRUPPE1.I| 000044C0: 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |NY | 000044D0: 20 3B D9 20 57 49 45 44 45 52 48 45 52 53 54 45 | ;. WIEDERHERSTE| 000044E0: 4C 4C 45 4E 0D 54 59 41 0D 53 54 41 20 28 4B 4F |LLEN.TYA.STA (KO| 000044F0: 50 46 29 2C 58 20 20 20 20 20 20 3B CB 4F 50 46 |PF),X ;.OPF| 00004500: 42 59 54 45 3D C4 41 54 45 4E 42 59 54 45 5A 41 |BYTE=.ATENBYTEZA| 00004510: 48 4C 0D 50 55 53 48 43 50 55 0D 44 44 45 43 20 |HL.PUSHCPU.DDEC | 00004520: 42 59 54 45 53 0D 43 4D 50 20 23 30 20 20 20 20 |BYTES.CMP #0 | 00004530: 20 20 20 20 20 20 20 20 3B 4C 45 54 5A 54 45 53 | ;LETZTES| 00004540: 20 C2 59 54 45 20 3F 0D 42 45 51 20 41 4E 5A 45 | .YTE ?.BEQ ANZE| 00004550: 49 47 45 4E 31 0D 50 4F 50 43 50 55 0D 49 4E 59 |IGEN1.POPCPU.INY| 00004560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00004570: 4E 41 45 43 48 53 54 45 53 20 C2 59 54 45 20 4C |NAECHSTES .YTE L| 00004580: 45 53 45 4E 0D 4C 44 41 20 28 4C 45 53 45 29 2C |ESEN.LDA (LESE),| 00004590: 59 0D 44 45 59 20 20 20 20 20 20 20 20 20 20 20 |Y.DEY | 000045A0: 20 20 20 20 3B DA 45 49 47 45 52 20 31 20 5A 55 | ;.EIGER 1 ZU| 000045B0: 52 55 45 43 4B 0D 43 4D 50 20 28 4C 45 53 45 29 |RUECK.CMP (LESE)| 000045C0: 2C 59 20 20 20 20 20 20 3B 47 4C 45 49 43 48 20 |,Y ;GLEICH | 000045D0: 56 4F 52 48 45 52 49 47 45 4D 20 3F 0D 42 4E 45 |VORHERIGEM ?.BNE| 000045E0: 20 55 4E 47 4C 45 49 43 48 31 0D 43 50 59 20 23 | UNGLEICH1.CPY #| 000045F0: 24 37 46 20 20 20 20 20 20 20 20 20 20 3B 4D 41 |$7F ;MA| 00004600: 58 49 4D 41 4C 45 20 C1 4E 5A 41 48 4C 20 56 4F |XIMALE .NZAHL VO| 00004610: 4E 0D 42 4E 45 20 47 52 55 50 50 45 31 20 20 20 |N.BNE GRUPPE1 | 00004620: 20 20 20 20 3B D7 49 45 44 45 52 48 4F 4C 55 4E | ;.IEDERHOLUN| 00004630: 47 45 4E 20 3F 0D 3B 20 2A 2A 20 D7 49 45 44 45 |GEN ?.; ** .IEDE| 00004640: 52 48 4F 4C 55 4E 47 20 5A 55 45 4E 44 45 20 2A |RHOLUNG ZUENDE *| 00004650: 2A 0D 3A 55 4E 47 4C 45 49 43 48 31 0D 54 59 41 |*.:UNGLEICH1.TYA| 00004660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00004670: DA 45 49 47 45 52 20 49 4E 20 C1 4B 4B 55 0D 43 |.EIGER IN .KKU.C| 00004680: 4C 43 0D 41 44 43 20 4C 45 53 45 20 20 20 20 20 |LC.ADC LESE | 00004690: 20 20 20 20 20 3B CC 45 53 45 5A 47 2E 3D 0D 53 | ;.ESEZG.=.S| 000046A0: 54 41 20 4C 45 53 45 20 20 20 20 20 20 20 20 20 |TA LESE | 000046B0: 20 3B CC 45 53 45 5A 47 2E 2B C2 59 54 45 5A 41 | ;.ESEZG.+.YTEZA| 000046C0: 48 4C 0D 4C 44 41 20 4C 45 53 45 2B 31 0D 41 44 |HL.LDA LESE+1.AD| 000046D0: 43 20 23 30 0D 53 54 41 20 4C 45 53 45 2B 31 0D |C #0.STA LESE+1.| 000046E0: 44 49 4E 43 20 57 52 49 54 45 20 20 20 20 20 20 |DINC WRITE | 000046F0: 20 20 3B D7 52 49 54 45 5A 47 2E 3D 0D 44 49 4E | ;.RITEZG.=.DIN| 00004700: 43 20 57 52 49 54 45 20 20 20 20 20 20 20 20 3B |C WRITE ;| 00004710: D7 52 49 54 45 5A 47 2E 2B 32 20 28 CB 4F 50 46 |.RITEZG.+2 (.OPF| 00004720: 42 59 54 45 2B 31 20 C4 41 54 45 4E 42 2E 29 0D |BYTE+1 .ATENB.).| 00004730: 4A 4D 50 20 4E 45 55 45 52 4B 4F 50 46 0D 3B 20 |JMP NEUERKOPF.; | 00004740: 2A 2A 20 41 4C 4C 45 20 C2 59 54 45 53 20 47 45 |** ALLE .YTES GE| 00004750: 50 41 43 4B 54 20 2A 2A 0D 3A 41 4E 5A 45 49 47 |PACKT **.:ANZEIG| 00004760: 45 4E 31 0D 44 49 4E 43 20 57 52 49 54 45 0D 44 |EN1.DINC WRITE.D| 00004770: 49 4E 43 20 57 52 49 54 45 0D 4A 4D 50 20 41 4E |INC WRITE.JMP AN| 00004780: 5A 47 0D 3B 20 2A 2A 20 4B 45 49 4E 45 20 D0 41 |ZG.; ** KEINE .A| 00004790: 43 4B 4D 4F 45 47 4C 49 43 48 4B 45 49 54 20 2A |CKMOEGLICHKEIT *| 000047A0: 2A 0D 3A 47 52 55 50 50 45 32 0D 4C 44 59 20 23 |*.:GRUPPE2.LDY #| 000047B0: 31 0D 4C 44 41 20 23 24 38 31 20 20 20 20 20 20 |1.LDA #$81 | 000047C0: 20 20 20 20 3B CB 4F 50 46 42 59 54 45 20 28 D9 | ;.OPFBYTE (.| 000047D0: 3D 31 29 0D 53 54 41 20 28 4B 4F 50 46 29 2C 58 |=1).STA (KOPF),X| 000047E0: 20 20 20 20 20 20 3B 53 50 45 49 43 48 45 52 4E | ;SPEICHERN| 000047F0: 0D 49 4E 59 0D 4C 44 41 20 28 4C 45 53 45 29 2C |.INY.LDA (LESE),| 00004800: 59 20 20 20 20 20 20 3B 5A 57 45 49 54 45 53 0D |Y ;ZWEITES.| 00004810: 53 54 41 20 28 57 52 49 54 45 29 2C 59 20 20 20 |STA (WRITE),Y | 00004820: 20 20 3B C4 41 54 45 4E 42 59 54 45 0D 54 59 41 | ;.ATENBYTE.TYA| 00004830: 0D 4F 52 41 20 23 24 38 30 0D 53 54 41 20 28 4B |.ORA #$80.STA (K| 00004840: 4F 50 46 29 2C 58 20 20 20 20 20 20 3B CB 4F 50 |OPF),X ;.OP| 00004850: 46 42 59 45 20 2B 31 20 28 C2 49 54 20 37 20 47 |FBYE +1 (.IT 7 G| 00004860: 45 53 45 54 5A 54 29 0D 50 55 53 48 43 50 55 0D |ESETZT).PUSHCPU.| 00004870: 44 44 45 43 20 42 59 54 45 53 0D 43 4D 50 20 23 |DDEC BYTES.CMP #| 00004880: 30 0D 42 45 51 20 41 4E 5A 45 49 47 45 4E 32 0D |0.BEQ ANZEIGEN2.| 00004890: 50 4F 50 43 50 55 0D 3A 57 45 49 54 45 52 4C 45 |POPCPU.:WEITERLE| 000048A0: 53 45 4E 0D 49 4E 59 20 20 20 20 20 20 20 20 20 |SEN.INY | 000048B0: 20 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 53 | ;NAECHSTES| 000048C0: 20 C2 59 54 45 0D 4C 44 41 20 28 4C 45 53 45 29 | .YTE.LDA (LESE)| 000048D0: 2C 59 20 20 20 20 20 20 3B 4C 45 53 45 4E 0D 44 |,Y ;LESEN.D| 000048E0: 45 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |EY | 000048F0: 20 3B 55 4E 44 20 4D 49 54 0D 43 4D 50 20 28 4C | ;UND MIT.CMP (L| 00004900: 45 53 45 29 2C 59 20 20 20 20 20 20 3B 56 4F 52 |ESE),Y ;VOR| 00004910: 48 45 52 49 47 45 4D 20 56 45 52 47 4C 2E 0D 42 |HERIGEM VERGL..B| 00004920: 4E 45 20 55 4E 47 4C 45 49 43 48 0D 49 4E 59 0D |NE UNGLEICH.INY.| 00004930: 49 4E 59 0D 43 4D 50 20 28 4C 45 53 45 29 2C 59 |INY.CMP (LESE),Y| 00004940: 20 20 20 20 20 20 3B 33 20 47 4C 45 49 43 48 45 | ;3 GLEICHE| 00004950: 20 3F 0D 50 48 50 20 20 20 20 20 20 20 20 20 20 | ?.PHP | 00004960: 20 20 20 20 20 3B C6 4C 41 47 53 20 52 45 54 54 | ;.LAGS RETT| 00004970: 45 4E 0D 44 45 59 0D 44 45 59 0D 50 4C 50 20 20 |EN.DEY.DEY.PLP | 00004980: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B C6 4C | ;.L| 00004990: 41 47 53 20 5A 55 52 55 45 43 4B 0D 42 45 51 20 |AGS ZURUECK.BEQ | 000049A0: 47 4C 45 49 43 48 32 0D 3A 55 4E 47 4C 45 49 43 |GLEICH2.:UNGLEIC| 000049B0: 48 0D 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 |H.INY | 000049C0: 20 20 20 20 3B 46 41 4C 4C 53 20 4E 49 43 48 54 | ;FALLS NICHT| 000049D0: 20 47 4C 45 49 43 48 2C 0D 53 54 41 20 28 57 52 | GLEICH,.STA (WR| 000049E0: 49 54 45 29 2C 59 20 20 20 20 20 3B 53 50 45 49 |ITE),Y ;SPEI| 000049F0: 43 48 45 52 4E 0D 50 55 53 48 43 50 55 0D 44 44 |CHERN.PUSHCPU.DD| 00004A00: 45 43 20 42 59 54 45 53 0D 43 4D 50 20 23 30 20 |EC BYTES.CMP #0 | 00004A10: 20 20 20 20 20 20 20 20 20 20 20 3B 41 4C 4C 45 | ;ALLE| 00004A20: 20 C2 59 54 45 53 20 3F 0D 42 45 51 20 41 4E 5A | .YTES ?.BEQ ANZ| 00004A30: 45 49 47 45 4E 32 0D 50 4F 50 43 50 55 0D 54 59 |EIGEN2.POPCPU.TY| 00004A40: 41 0D 4F 52 41 20 23 24 38 30 20 20 20 20 20 20 |A.ORA #$80 | 00004A50: 20 20 20 20 3B C2 49 54 20 37 20 53 45 54 5A 45 | ;.IT 7 SETZE| 00004A60: 4E 0D 53 54 41 20 28 4B 4F 50 46 29 2C 58 20 20 |N.STA (KOPF),X | 00004A70: 20 20 20 20 3B 4E 45 55 45 53 20 CB 4F 50 46 42 | ;NEUES .OPFB| 00004A80: 59 54 45 20 53 50 45 49 43 48 45 52 4E 0D 43 4D |YTE SPEICHERN.CM| 00004A90: 50 20 23 24 44 42 20 20 20 20 20 20 20 20 20 20 |P #$DB | 00004AA0: 3B 4D 41 58 49 4D 41 4C 20 4D 4F 45 47 4C 49 43 |;MAXIMAL MOEGLIC| 00004AB0: 48 45 20 C1 4E 5A 41 48 4C 20 3F 0D 42 4E 45 20 |HE .NZAHL ?.BNE | 00004AC0: 57 45 49 54 45 52 4C 45 53 45 4E 0D 50 55 53 48 |WEITERLESEN.PUSH| 00004AD0: 43 50 55 0D 44 44 45 43 20 42 59 54 45 53 0D 50 |CPU.DDEC BYTES.P| 00004AE0: 4F 50 43 50 55 0D 4A 4D 50 20 4D 41 58 5A 41 48 |OPCPU.JMP MAXZAH| 00004AF0: 4C 0D 3B 20 2A 2A 20 4E 45 55 45 20 D7 49 45 44 |L.; ** NEUE .IED| 00004B00: 45 52 48 4F 4C 55 4E 47 20 47 45 46 55 4E 44 45 |ERHOLUNG GEFUNDE| 00004B10: 4E 20 2A 2A 0D 3A 47 4C 45 49 43 48 32 0D 44 45 |N **.:GLEICH2.DE| 00004B20: 59 0D 54 59 41 0D 4F 52 41 20 23 24 38 30 0D 53 |Y.TYA.ORA #$80.S| 00004B30: 54 41 20 28 4B 4F 50 46 29 2C 58 20 20 20 20 20 |TA (KOPF),X | 00004B40: 20 3B CB 4F 50 46 42 59 54 45 20 2D 31 0D 3A 4D | ;.OPFBYTE -1.:M| 00004B50: 41 58 5A 41 48 4C 0D 54 59 41 20 20 20 20 20 20 |AXZAHL.TYA | 00004B60: 20 20 20 20 20 20 20 20 20 3B DA 45 49 47 45 52 | ;.EIGER| 00004B70: 20 49 4E 20 C1 4B 4B 55 0D 43 4C 43 0D 41 44 43 | IN .KKU.CLC.ADC| 00004B80: 20 4C 45 53 45 20 20 20 20 20 20 20 20 20 20 3B | LESE ;| 00004B90: CC 45 53 45 5A 47 2E 3D 0D 53 54 41 20 4C 45 53 |.ESEZG.=.STA LES| 00004BA0: 45 20 20 20 20 20 20 20 20 20 20 3B CC 45 53 45 |E ;.ESE| 00004BB0: 5A 47 2E 2B C2 59 54 45 5A 41 48 4C 0D 4C 44 41 |ZG.+.YTEZAHL.LDA| 00004BC0: 20 4C 45 53 45 2B 31 0D 41 44 43 20 23 30 0D 53 | LESE+1.ADC #0.S| 00004BD0: 54 41 20 4C 45 53 45 2B 31 0D 49 4E 59 20 20 20 |TA LESE+1.INY | 00004BE0: 20 20 20 20 20 20 20 20 20 20 20 20 3B C4 41 54 | ;.AT| 00004BF0: 45 4E 42 59 54 45 53 20 2B 31 20 CB 4F 50 46 42 |ENBYTES +1 .OPFB| 00004C00: 59 54 45 0D 54 59 41 0D 43 4C 43 0D 41 44 43 20 |YTE.TYA.CLC.ADC | 00004C10: 57 52 49 54 45 20 20 20 20 20 20 20 20 20 3B D7 |WRITE ;.| 00004C20: 52 49 54 45 20 50 4C 55 53 0D 53 54 41 20 57 52 |RITE PLUS.STA WR| 00004C30: 49 54 45 20 20 20 20 20 20 20 20 20 3B C4 41 54 |ITE ;.AT| 00004C40: 45 4E 42 59 54 45 5A 41 48 4C 0D 4C 44 41 20 57 |ENBYTEZAHL.LDA W| 00004C50: 52 49 54 45 2B 31 0D 41 44 43 20 23 30 0D 53 54 |RITE+1.ADC #0.ST| 00004C60: 41 20 57 52 49 54 45 2B 31 0D 44 49 4E 43 20 42 |A WRITE+1.DINC B| 00004C70: 59 54 45 53 20 20 20 20 20 20 20 20 3B C2 59 54 |YTES ;.YT| 00004C80: 45 20 57 49 45 44 45 52 20 2B 31 0D 4A 4D 50 20 |E WIEDER +1.JMP | 00004C90: 4E 45 55 45 52 4B 4F 50 46 20 20 20 20 20 3B 4E |NEUERKOPF ;N| 00004CA0: 45 55 45 53 20 CB 4F 50 46 42 59 54 45 0D 3B 20 |EUES .OPFBYTE.; | 00004CB0: 2A 2A 20 41 4C 4C 45 20 C2 59 54 45 53 20 47 45 |** ALLE .YTES GE| 00004CC0: 50 41 43 4B 54 20 2A 2A 0D 3A 41 4E 5A 45 49 47 |PACKT **.:ANZEIG| 00004CD0: 45 4E 32 0D 50 4F 50 43 50 55 0D 54 59 41 0D 43 |EN2.POPCPU.TYA.C| 00004CE0: 4C 43 0D 41 44 43 20 57 52 49 54 45 20 20 20 20 |LC.ADC WRITE | 00004CF0: 20 20 20 20 20 3B D7 52 49 54 45 20 50 4C 55 53 | ;.RITE PLUS| 00004D00: 0D 53 54 41 20 57 52 49 54 45 20 20 20 20 20 20 |.STA WRITE | 00004D10: 20 20 20 3B C4 41 54 45 4E 42 59 54 45 5A 41 48 | ;.ATENBYTEZAH| 00004D20: 4C 0D 4C 44 41 20 57 52 49 54 45 2B 31 0D 41 44 |L.LDA WRITE+1.AD| 00004D30: 43 20 23 30 0D 53 54 41 20 57 52 49 54 45 2B 31 |C #0.STA WRITE+1| 00004D40: 0D 4A 4D 50 20 41 4E 5A 47 0D 3B 0D 3B 20 2A 2A |.JMP ANZG.;.; **| 00004D50: 20 D0 52 4F 42 45 41 4E 5A 45 49 47 45 4E 20 2A | .ROBEANZEIGEN *| 00004D60: 2A 0D 3B 0D 3A 41 4E 5A 47 0D 50 4F 4B 45 20 24 |*.;.:ANZG.POKE $| 00004D70: 32 46 2C 25 31 30 30 30 30 30 30 30 0D 43 4C 45 |2F,%10000000.CLE| 00004D80: 41 52 41 4D 20 24 41 30 30 30 2C 38 30 30 30 0D |ARAM $A000,8000.| 00004D90: 42 49 54 4D 41 50 20 50 55 46 46 45 52 2B 33 2C |BITMAP PUFFER+3,| 00004DA0: 30 2C 30 2C 42 52 45 49 54 45 2C 48 4F 45 48 45 |0,0,BREITE,HOEHE| 00004DB0: 0D 57 41 49 54 20 33 0D 3B 0D 3B 20 2A 2A 20 C6 |.WAIT 3.;.; ** .| 00004DC0: 41 52 42 43 4F 44 45 53 20 48 49 4E 54 45 52 20 |ARBCODES HINTER | 00004DD0: C2 49 54 4D 41 50 20 53 50 45 49 43 48 45 52 4E |.ITMAP SPEICHERN| 00004DE0: 20 2A 2A 0D 3B 0D 3B 0D 3B 20 2A 20 D0 52 45 46 | **.;.;.; * .REF| 00004DF0: 45 52 45 4E 43 45 53 20 4C 41 44 45 4E 20 2A 0D |ERENCES LADEN *.| 00004E00: 3B 0D 3A 4E 45 55 44 49 53 4B 0D 44 49 41 4C 42 |;.:NEUDISK.DIALB| 00004E10: 4F 58 20 4E 45 57 44 49 53 4B 20 20 20 20 20 3B |OX NEWDISK ;| 00004E20: DA 49 45 4C 44 49 53 4B 20 45 49 4E 4C 45 47 45 |.IELDISK EINLEGE| 00004E30: 4E 0D 4C 44 41 20 52 30 0D 43 4D 50 20 23 4F 4B |N.LDA R0.CMP #OK| 00004E40: 0D 42 45 51 20 44 49 53 4B 4F 45 46 46 0D 52 45 |.BEQ DISKOEFF.RE| 00004E50: 43 56 42 4F 58 20 30 2C 30 2C 33 31 39 2C 31 39 |CVBOX 0,0,319,19| 00004E60: 39 20 3B C2 49 4C 44 20 57 49 45 44 45 52 48 45 |9 ;.ILD WIEDERHE| 00004E70: 52 53 54 45 4C 4C 45 4E 0D 4A 4D 50 20 4E 45 55 |RSTELLEN.JMP NEU| 00004E80: 45 52 53 43 52 41 50 20 20 20 20 20 20 3B 55 4E |ERSCRAP ;UN| 00004E90: 44 20 4E 45 55 45 4E 20 D3 43 52 41 50 20 57 41 |D NEUEN .CRAP WA| 00004EA0: 45 48 4C 45 4E 0D 3A 44 49 53 4B 4F 45 46 46 0D |EHLEN.:DISKOEFF.| 00004EB0: 4F 50 45 4E 44 49 53 4B 0D 54 58 41 0D 42 45 51 |OPENDISK.TXA.BEQ| 00004EC0: 20 4F 4B 33 0D 45 52 52 4F 52 20 4E 45 55 44 49 | OK3.ERROR NEUDI| 00004ED0: 53 4B 0D 3A 4F 4B 33 0D 46 49 4E 44 46 49 4C 45 |SK.:OK3.FINDFILE| 00004EE0: 20 50 52 45 46 0D 54 58 41 0D 42 4E 45 20 41 4E | PREF.TXA.BNE AN| 00004EF0: 5A 41 48 4C 20 20 20 20 20 20 20 20 20 20 3B D0 |ZAHL ;.| 00004F00: 52 45 46 45 52 45 4E 43 45 53 20 4E 49 43 48 54 |REFERENCES NICHT| 00004F10: 20 44 41 0D 43 4F 50 20 24 38 34 30 30 2B 31 2C | DA.COP $8400+1,| 00004F20: 34 20 20 20 20 20 20 20 3B D4 52 41 43 4B 0D 43 |4 ;.RACK.C| 00004F30: 4F 50 20 24 38 34 30 30 2B 32 2C 35 20 20 20 20 |OP $8400+2,5 | 00004F40: 20 20 20 3B 2B C2 4C 4F 43 4B 0D 47 45 54 42 4C | ;+.LOCK.GETBL| 00004F50: 4B 20 24 38 30 30 30 20 20 20 20 20 20 20 20 3B |K $8000 ;| 00004F60: D0 52 45 46 2E 20 4E 41 43 48 20 24 38 30 30 30 |.REF. NACH $8000| 00004F70: 20 45 49 4E 4C 45 53 45 4E 0D 54 58 41 0D 42 45 | EINLESEN.TXA.BE| 00004F80: 51 20 4F 4B 33 41 0D 45 52 52 4F 52 20 4E 45 55 |Q OK3A.ERROR NEU| 00004F90: 44 49 53 4B 0D 3A 4F 4B 33 41 0D 4C 44 41 20 24 |DISK.:OK3A.LDA $| 00004FA0: 38 30 30 30 2B 35 20 20 20 20 20 20 20 20 20 3B |8000+5 ;| 00004FB0: C6 41 52 42 45 4E 20 5A 55 20 45 49 4E 45 4D 20 |.ARBEN ZU EINEM | 00004FC0: C2 59 54 45 20 5A 55 53 41 4D 4D 45 4E 46 41 53 |.YTE ZUSAMMENFAS| 00004FD0: 53 45 4E 0D 4F 52 41 20 24 38 30 30 30 2B 36 0D |SEN.ORA $8000+6.| 00004FE0: 53 54 41 20 46 41 52 42 45 4E 0D 3B 0D 3B 20 2A |STA FARBEN.;.; *| 00004FF0: 20 C1 4E 5A 41 48 4C 20 44 45 52 20 C6 41 52 42 | .NZAHL DER .ARB| 00005000: 4B 41 43 48 45 4C 4E 20 42 45 52 45 43 48 4E 45 |KACHELN BERECHNE| 00005010: 4E 20 2A 0D 3B 0D 3A 41 4E 5A 41 48 4C 0D 4C 53 |N *.;.:ANZAHL.LS| 00005020: 52 20 48 4F 45 48 45 0D 4C 53 52 20 48 4F 45 48 |R HOEHE.LSR HOEH| 00005030: 45 20 20 20 20 20 20 20 20 20 20 3B C8 4F 45 48 |E ;.OEH| 00005040: 45 3D C8 4F 45 48 45 2F 38 0D 4C 53 52 20 48 4F |E=.OEHE/8.LSR HO| 00005050: 45 48 45 0D 43 4F 50 20 48 4F 45 48 45 2C 5A 50 |EHE.COP HOEHE,ZP| 00005060: 31 0D 43 4F 50 20 42 52 45 49 54 45 2C 5A 50 32 |1.COP BREITE,ZP2| 00005070: 0D 50 4F 4B 45 20 5A 50 32 2B 31 2C 30 0D 42 4D |.POKE ZP2+1,0.BM| 00005080: 55 4C 54 20 5A 50 31 2C 5A 50 32 0D 54 52 41 4E |ULT ZP1,ZP2.TRAN| 00005090: 53 57 20 5A 50 32 2C 4B 41 43 48 45 4C 4E 20 3B |SW ZP2,KACHELN ;| 000050A0: C1 4E 5A 41 48 4C 20 44 45 52 20 C6 41 52 42 42 |.NZAHL DER .ARBB| 000050B0: 59 54 45 53 0D 44 49 4E 43 20 4B 41 43 48 45 4C |YTES.DINC KACHEL| 000050C0: 4E 20 20 20 20 20 20 20 20 20 20 20 3B 53 49 43 |N ;SIC| 000050D0: 48 45 52 48 45 49 54 53 48 41 4C 42 45 52 2B 31 |HERHEITSHALBER+1| 000050E0: 0D 3A 46 41 52 42 4B 4F 50 46 0D 4C 44 41 20 23 |.:FARBKOPF.LDA #| 000050F0: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3B CB |0 ;.| 00005100: 4F 50 46 42 59 54 45 0D 4C 44 59 20 23 30 0D 53 |OPFBYTE.LDY #0.S| 00005110: 54 41 20 28 57 52 49 54 45 29 2C 59 0D 4C 44 59 |TA (WRITE),Y.LDY| 00005120: 20 23 31 0D 4C 44 41 20 46 41 52 42 45 4E 0D 53 | #1.LDA FARBEN.S| 00005130: 54 41 20 28 57 52 49 54 45 29 2C 59 20 20 20 20 |TA (WRITE),Y | 00005140: 20 20 3B C4 41 54 45 4E 42 59 54 45 0D 4C 44 59 | ;.ATENBYTE.LDY| 00005150: 20 23 30 0D 3A 46 41 52 42 4C 4F 4F 50 0D 4C 44 | #0.:FARBLOOP.LD| 00005160: 41 20 28 57 52 49 54 45 29 2C 59 0D 54 41 58 0D |A (WRITE),Y.TAX.| 00005170: 49 4E 58 0D 54 58 41 0D 53 54 41 20 28 57 52 49 |INX.TXA.STA (WRI| 00005180: 54 45 29 2C 59 0D 44 44 45 43 20 4B 41 43 48 45 |TE),Y.DDEC KACHE| 00005190: 4C 4E 0D 43 4D 50 20 23 30 0D 42 45 51 20 46 41 |LN.CMP #0.BEQ FA| 000051A0: 52 42 46 45 52 54 0D 4C 44 59 20 23 30 0D 4C 44 |RBFERT.LDY #0.LD| 000051B0: 41 20 28 57 52 49 54 45 29 2C 59 0D 43 4D 50 20 |A (WRITE),Y.CMP | 000051C0: 23 24 37 46 0D 42 4E 45 20 46 41 52 42 4C 4F 4F |#$7F.BNE FARBLOO| 000051D0: 50 0D 44 49 4E 43 20 57 52 49 54 45 20 20 20 20 |P.DINC WRITE | 000051E0: 20 20 20 20 20 3B DA 45 49 47 45 52 20 41 55 46 | ;.EIGER AUF| 000051F0: 20 C4 41 54 45 4E 42 59 54 45 0D 44 49 4E 43 20 | .ATENBYTE.DINC | 00005200: 57 52 49 54 45 20 20 20 20 20 20 20 20 20 3B 20 |WRITE ; | 00005210: 20 27 27 20 20 20 41 55 46 20 4E 41 45 43 48 53 | '' AUF NAECHS| 00005220: 54 45 4E 20 CB 4F 50 46 0D 4A 4D 50 20 46 41 52 |TEN .OPF.JMP FAR| 00005230: 42 4B 4F 50 46 0D 3A 46 41 52 42 46 45 52 54 0D |BKOPF.:FARBFERT.| 00005240: 44 49 4E 43 20 57 52 49 54 45 20 20 20 20 20 20 |DINC WRITE | 00005250: 20 20 20 3B DA 45 49 47 45 52 20 41 55 46 20 4C | ;.EIGER AUF L| 00005260: 45 54 5A 54 45 53 20 C2 59 54 45 0D 44 49 4E 43 |ETZTES .YTE.DINC| 00005270: 20 57 52 49 54 45 0D 3B 0D 3B 20 2A 2A 20 D3 50 | WRITE.;.; ** .P| 00005280: 45 49 43 48 45 52 4E 20 2A 2A 0D 3B 0D 3A 53 50 |EICHERN **.;.:SP| 00005290: 45 49 43 48 45 52 4E 0D 44 45 4C 45 54 45 20 4E |EICHERN.DELETE N| 000052A0: 45 55 4E 41 4D 0D 4C 4F 41 44 57 20 50 55 46 46 |EUNAM.LOADW PUFF| 000052B0: 45 52 2C 4C 41 44 45 41 44 52 0D 54 52 41 4E 53 |ER,LADEADR.TRANS| 000052C0: 57 20 57 52 49 54 45 2C 45 4E 44 41 44 52 0D 53 |W WRITE,ENDADR.S| 000052D0: 41 56 45 20 49 4E 46 4F 42 4C 4F 43 4B 2C 31 0D |AVE INFOBLOCK,1.| 000052E0: 52 45 4E 41 4D 45 20 4E 45 55 4E 41 4D 2C 41 4C |RENAME NEUNAM,AL| 000052F0: 54 4E 41 4D 0D 44 45 53 4B 54 4F 50 0D 3B 0D 3B |TNAM.DESKTOP.;.;| 00005300: 20 2A 2A 20 C4 49 41 4C 4F 47 42 4F 58 50 41 52 | ** .IALOGBOXPAR| 00005310: 41 4D 45 54 45 52 20 2A 2A 0D 3B 0D 3A 53 50 52 |AMETER **.;.:SPR| 00005320: 41 43 48 45 0D 53 54 44 44 49 41 4C 42 4F 58 20 |ACHE.STDDIALBOX | 00005330: 31 0D 54 45 58 54 41 55 53 20 31 36 2C 31 36 2C |1.TEXTAUS 16,16,| 00005340: 53 50 52 54 58 54 0D 54 45 58 54 41 55 53 20 38 |SPRTXT.TEXTAUS 8| 00005350: 30 2C 33 34 2C 4C 41 4E 47 54 58 0D 54 45 58 54 |0,34,LANGTX.TEXT| 00005360: 41 55 53 20 38 30 2C 35 38 2C 4C 41 4E 47 54 58 |AUS 80,58,LANGTX| 00005370: 0D 54 45 58 54 41 55 53 20 38 30 2C 38 32 2C 51 |.TEXTAUS 80,82,Q| 00005380: 55 49 54 54 58 0D 55 53 52 49 43 4F 4E 20 31 36 |UITTX.USRICON 16| 00005390: 2C 32 34 2C 45 4E 47 4C 49 43 0D 55 53 52 49 43 |,24,ENGLIC.USRIC| 000053A0: 4F 4E 20 31 36 2C 34 38 2C 47 45 52 4D 49 43 0D |ON 16,48,GERMIC.| 000053B0: 55 53 52 49 43 4F 4E 20 31 36 2C 37 32 2C 51 55 |USRICON 16,72,QU| 000053C0: 49 54 49 43 0D 42 20 4E 55 4C 4C 0D 3B 0D 3A 54 |ITIC.B NULL.;.:T| 000053D0: 49 54 45 4C 0D 49 4E 49 54 44 49 41 4C 42 4F 58 |ITEL.INITDIALBOX| 000053E0: 20 31 2C 32 30 2C 31 37 30 2C 36 34 2C 32 35 35 | 1,20,170,64,255| 000053F0: 0D 56 41 52 54 45 58 54 41 55 53 20 31 36 2C 31 |.VARTEXTAUS 16,1| 00005400: 36 2C 54 49 54 45 4C 54 58 54 0D 46 45 4C 44 20 |6,TITELTXT.FELD | 00005410: 4F 4B 2C 31 33 36 2C 31 32 37 0D 42 20 4E 55 4C |OK,136,127.B NUL| 00005420: 4C 0D 3B 0D 3A 49 4E 53 45 52 54 44 49 53 4B 0D |L.;.:INSERTDISK.| 00005430: 53 54 44 44 49 41 4C 42 4F 58 20 31 0D 56 41 52 |STDDIALBOX 1.VAR| 00005440: 54 45 58 54 41 55 53 20 31 36 2C 31 36 2C 49 4E |TEXTAUS 16,16,IN| 00005450: 53 45 52 54 44 49 53 4B 54 58 54 0D 46 45 4C 44 |SERTDISKTXT.FELD| 00005460: 20 4F 4B 2C 38 2C 37 32 0D 46 45 4C 44 20 43 41 | OK,8,72.FELD CA| 00005470: 4E 43 45 4C 2C 31 33 36 2C 37 32 0D 42 20 4E 55 |NCEL,136,72.B NU| 00005480: 4C 4C 0D 3B 0D 3A 49 4F 46 45 48 4C 45 52 0D 53 |LL.;.:IOFEHLER.S| 00005490: 54 44 44 49 41 4C 42 4F 58 20 31 0D 56 41 52 54 |TDDIALBOX 1.VART| 000054A0: 45 58 54 41 55 53 20 31 36 2C 31 36 2C 46 45 48 |EXTAUS 16,16,FEH| 000054B0: 4C 45 52 4D 45 4C 44 55 4E 47 0D 54 45 58 54 41 |LERMELDUNG.TEXTA| 000054C0: 55 53 20 31 36 2C 35 32 2C 46 45 48 4C 45 52 4E |US 16,52,FEHLERN| 000054D0: 52 0D 46 45 4C 44 20 4F 4B 2C 31 33 36 2C 37 32 |R.FELD OK,136,72| 000054E0: 0D 42 20 4E 55 4C 4C 0D 3B 0D 3A 43 48 4F 4F 53 |.B NULL.;.:CHOOS| 000054F0: 45 46 49 4C 45 53 0D 53 54 44 44 49 41 4C 42 4F |EFILES.STDDIALBO| 00005500: 58 20 31 0D 47 45 54 46 49 4C 45 53 20 32 2C 32 |X 1.GETFILES 2,2| 00005510: 0D 46 45 4C 44 20 4F 4B 2C 31 33 36 2C 38 0D 46 |.FELD OK,136,8.F| 00005520: 45 4C 44 20 43 41 4E 43 45 4C 2C 31 33 36 2C 37 |ELD CANCEL,136,7| 00005530: 32 0D 42 20 4E 55 4C 4C 0D 3B 0D 3A 46 49 4C 45 |2.B NULL.;.:FILE| 00005540: 54 59 50 45 42 4F 58 0D 53 54 44 44 49 41 4C 42 |TYPEBOX.STDDIALB| 00005550: 4F 58 20 31 0D 56 41 52 54 45 58 54 41 55 53 20 |OX 1.VARTEXTAUS | 00005560: 31 36 2C 31 36 2C 46 45 48 4C 45 52 4D 45 4C 44 |16,16,FEHLERMELD| 00005570: 55 4E 47 0D 56 41 52 54 45 58 54 41 55 53 20 31 |UNG.VARTEXTAUS 1| 00005580: 36 2C 35 32 2C 46 49 4C 45 54 59 50 0D 46 45 4C |6,52,FILETYP.FEL| 00005590: 44 20 4F 4B 2C 31 33 36 2C 37 32 0D 42 20 4E 55 |D OK,136,72.B NU| 000055A0: 4C 4C 0D 3B 0D 3A 42 49 4C 44 4F 4B 0D 53 54 44 |LL.;.:BILDOK.STD| 000055B0: 44 49 41 4C 42 4F 58 20 31 0D 56 41 52 54 45 58 |DIALBOX 1.VARTEX| 000055C0: 54 41 55 53 20 31 36 2C 31 36 2C 42 49 4C 44 4F |TAUS 16,16,BILDO| 000055D0: 4B 54 58 54 0D 46 45 4C 44 20 59 45 53 2C 38 2C |KTXT.FELD YES,8,| 000055E0: 37 32 0D 46 45 4C 44 20 4E 4F 2C 31 33 36 2C 37 |72.FELD NO,136,7| 000055F0: 32 0D 42 20 4E 55 4C 4C 0D 3B 0D 3A 41 55 54 4F |2.B NULL.;.:AUTO| 00005600: 53 54 4F 50 0D 53 54 44 44 49 41 4C 42 4F 58 20 |STOP.STDDIALBOX | 00005610: 31 0D 56 41 52 54 45 58 54 41 55 53 20 31 36 2C |1.VARTEXTAUS 16,| 00005620: 31 36 2C 53 54 4F 50 54 58 54 0D 46 45 4C 44 20 |16,STOPTXT.FELD | 00005630: 59 45 53 2C 38 2C 37 32 0D 46 45 4C 44 20 4E 4F |YES,8,72.FELD NO| 00005640: 2C 31 33 36 2C 37 32 0D 42 20 4E 55 4C 4C 0D 3B |,136,72.B NULL.;| 00005650: 0D 3A 41 55 53 53 43 48 4E 49 54 54 4F 4B 0D 53 |.:AUSSCHNITTOK.S| 00005660: 54 44 44 49 41 4C 42 4F 58 20 31 0D 56 41 52 54 |TDDIALBOX 1.VART| 00005670: 45 58 54 41 55 53 20 31 36 2C 31 36 2C 53 43 48 |EXTAUS 16,16,SCH| 00005680: 4E 49 54 54 4F 4B 54 58 54 0D 46 45 4C 44 20 59 |NITTOKTXT.FELD Y| 00005690: 45 53 2C 38 2C 37 32 0D 46 45 4C 44 20 4E 4F 2C |ES,8,72.FELD NO,| 000056A0: 31 33 36 2C 37 32 0D 42 20 4E 55 4C 4C 0D 3B 0D |136,72.B NULL.;.| 000056B0: 3A 4E 45 57 44 49 53 4B 0D 53 54 44 44 49 41 4C |:NEWDISK.STDDIAL| 000056C0: 42 4F 58 20 31 0D 56 41 52 54 45 58 54 41 55 53 |BOX 1.VARTEXTAUS| 000056D0: 20 31 36 2C 31 36 2C 4E 45 57 44 49 53 4B 54 58 | 16,16,NEWDISKTX| 000056E0: 54 0D 46 45 4C 44 20 4F 4B 2C 38 2C 37 32 0D 46 |T.FELD OK,8,72.F| 000056F0: 45 4C 44 20 43 41 4E 43 45 4C 2C 31 33 36 2C 37 |ELD CANCEL,136,7| 00005700: 32 0D 42 20 4E 55 4C 4C 0D 3B 0D 3B 20 2A 2A 2A |2.B NULL.;.; ***| 00005710: 20 D4 45 58 54 45 2C 20 41 4C 4C 47 45 4D 45 49 | .EXTE, ALLGEMEI| 00005720: 4E 45 20 2A 2A 2A 0D 3B 0D 3A 53 50 52 54 58 54 |NE ***.;.:SPRTXT| 00005730: 0D 42 20 42 4F 4C 44 4F 4E 2C 22 D0 4C 45 41 53 |.B BOLDON,".LEAS| 00005740: 45 20 D3 45 4C 45 43 54 20 CF 50 54 49 4F 4E 3A |E .ELECT .PTION:| 00005750: 22 0D 42 20 4E 55 4C 4C 0D 3B 0D 3A 4C 41 4E 47 |".B NULL.;.:LANG| 00005760: 54 58 0D 42 20 50 4C 41 49 4E 54 45 58 54 2C 22 |TX.B PLAINTEXT,"| 00005770: 4C 41 4E 47 55 41 47 45 22 0D 42 20 4E 55 4C 4C |LANGUAGE".B NULL| 00005780: 0D 3B 0D 3A 51 55 49 54 54 58 0D 42 20 22 54 4F |.;.:QUITTX.B "TO| 00005790: 20 44 45 53 4B D4 4F 50 22 0D 42 20 4E 55 4C 4C | DESK.OP".B NULL| 000057A0: 0D 3B 0D 3B 20 2A 2A 2A 20 D4 45 58 54 45 2C 20 |.;.; *** .EXTE, | 000057B0: 45 4E 47 4C 49 53 43 48 45 20 2A 2A 2A 0D 3B 0D |ENGLISCHE ***.;.| 000057C0: 3A 54 49 54 45 4C 54 58 54 45 0D 42 20 49 54 41 |:TITELTXTE.B ITA| 000057D0: 4C 49 43 4F 4E 2C 42 4F 4C 44 4F 4E 2C 22 C7 C5 |LICON,BOLDON,"..| 000057E0: CF D3 20 C2 49 54 4D 41 50 C3 4F 4E 56 45 52 54 |.. .ITMAP.ONVERT| 000057F0: 45 52 20 D6 20 31 2E 34 34 22 2C 43 52 2C 43 52 |ER . 1.44",CR,CR| 00005800: 0D 47 4F 54 4F 58 20 38 30 0D 42 20 50 4C 41 49 |.GOTOX 80.B PLAI| 00005810: 4E 54 45 58 54 2C 42 4F 4C 44 4F 4E 2C 22 44 45 |NTEXT,BOLDON,"DE| 00005820: 53 49 47 4E 45 44 20 42 59 3A 22 0D 47 4F 54 4F |SIGNED BY:".GOTO| 00005830: 58 20 31 36 30 0D 42 20 50 4C 41 49 4E 54 45 58 |X 160.B PLAINTEX| 00005840: 54 2C 4F 55 54 4C 49 4E 45 2C 22 C3 41 52 53 54 |T,OUTLINE,".ARST| 00005850: 45 4E 22 2C 43 52 0D 47 4F 54 4F 58 20 31 36 30 |EN",CR.GOTOX 160| 00005860: 0D 42 20 22 C3 4C 41 53 4F 48 4D 22 2C 43 52 2C |.B ".LASOHM",CR,| 00005870: 43 52 0D 47 4F 54 4F 58 20 38 30 0D 42 20 50 4C |CR.GOTOX 80.B PL| 00005880: 41 49 4E 54 45 58 54 2C 22 CD 41 4E 59 20 54 48 |AINTEXT,".ANY TH| 00005890: 41 4E 4B 53 20 54 4F 20 C6 4C 4F 52 49 41 4E 20 |ANKS TO .LORIAN | 000058A0: CD 55 45 4C 4C 45 52 20 46 4F 52 22 2C 43 52 0D |.UELLER FOR",CR.| 000058B0: 47 4F 54 4F 58 20 38 30 0D 42 20 22 53 45 4E 44 |GOTOX 80.B "SEND| 000058C0: 49 4E 47 20 4D 45 20 54 48 45 20 49 44 45 41 20 |ING ME THE IDEA | 000058D0: 46 4F 52 20 54 48 49 53 20 50 52 4F 47 52 41 4D |FOR THIS PROGRAM| 000058E0: 22 2C 43 52 0D 47 4F 54 4F 58 20 38 30 0D 42 20 |",CR.GOTOX 80.B | 000058F0: 22 41 4E 44 20 46 4F 52 20 57 52 49 54 49 4E 47 |"AND FOR WRITING| 00005900: 20 54 48 45 20 42 4F 4F 4B 22 2C 43 52 0D 47 4F | THE BOOK",CR.GO| 00005910: 54 4F 58 20 38 30 0D 42 20 33 34 2C 22 C1 4C 4C |TOX 80.B 34,".LL| 00005920: 45 53 20 55 45 42 45 52 20 C7 45 4F 53 22 2C 33 |ES UEBER .EOS",3| 00005930: 34 2C 22 2E 22 2C 43 52 2C 43 52 0D 47 4F 54 4F |4,".",CR,CR.GOTO| 00005940: 58 20 38 30 0D 42 20 42 4F 4C 44 4F 4E 2C 22 28 |X 80.B BOLDON,"(| 00005950: C3 29 20 49 4E 20 31 39 38 37 20 42 59 20 C3 41 |.) IN 1987 BY .A| 00005960: 52 53 54 45 4E 20 C3 4C 41 53 4F 48 4D 22 2C 43 |RSTEN .LASOHM",C| 00005970: 52 2C 43 52 0D 42 20 4E 55 4C 4C 0D 3B 0D 3A 49 |R,CR.B NULL.;.:I| 00005980: 4E 53 45 52 54 58 54 45 0D 42 20 42 4F 4C 44 4F |NSERTXTE.B BOLDO| 00005990: 4E 2C 22 D0 4C 45 41 53 45 20 49 4E 53 45 52 54 |N,".LEASE INSERT| 000059A0: 20 54 48 45 20 44 49 53 4B 22 2C 43 52 2C 43 52 | THE DISK",CR,CR| 000059B0: 0D 47 4F 54 4F 58 20 38 30 0D 42 20 22 43 4F 4E |.GOTOX 80.B "CON| 000059C0: 54 41 49 4E 49 4E 47 20 54 48 45 20 42 49 54 4D |TAINING THE BITM| 000059D0: 41 50 22 2C 43 52 2C 43 52 0D 47 4F 54 4F 58 20 |AP",CR,CR.GOTOX | 000059E0: 38 30 0D 42 20 22 54 4F 20 43 4F 4E 56 45 52 54 |80.B "TO CONVERT| 000059F0: 2E 22 0D 42 20 4E 55 4C 4C 0D 3B 0D 3A 46 45 48 |.".B NULL.;.:FEH| 00005A00: 4C 45 52 4D 45 4C 44 55 4E 47 45 0D 42 20 42 4F |LERMELDUNGE.B BO| 00005A10: 4C 44 4F 4E 2C 22 CF 50 45 52 41 54 49 4F 4E 20 |LDON,".PERATION | 00005A20: 43 41 4E 43 45 4C 45 44 20 44 55 45 20 54 4F 22 |CANCELED DUE TO"| 00005A30: 2C 43 52 2C 43 52 0D 47 4F 54 4F 58 20 38 30 0D |,CR,CR.GOTOX 80.| 00005A40: 42 20 22 44 49 53 4B 20 45 52 52 4F 52 3A 22 0D |B "DISK ERROR:".| 00005A50: 42 20 4E 55 4C 4C 0D 3B 0D 3A 46 49 4C 45 54 59 |B NULL.;.:FILETY| 00005A60: 50 45 0D 42 20 22 C6 49 4C 45 20 54 59 50 45 20 |PE.B ".ILE TYPE | 00005A70: 4D 49 53 4D 41 54 43 48 22 0D 42 20 4E 55 4C 4C |MISMATCH".B NULL| 00005A80: 0D 3B 0D 3A 42 49 4C 44 4F 4B 54 58 54 45 0D 42 |.;.:BILDOKTXTE.B| 00005A90: 20 42 4F 4C 44 4F 4E 2C 22 C9 53 20 54 48 49 53 | BOLDON,".S THIS| 00005AA0: 20 54 48 45 20 52 49 47 48 54 20 50 49 43 54 55 | THE RIGHT PICTU| 00005AB0: 52 45 20 3F 22 0D 42 20 4E 55 4C 4C 0D 3B 0D 3A |RE ?".B NULL.;.:| 00005AC0: 53 54 4F 50 54 58 54 45 0D 42 20 42 4F 4C 44 4F |STOPTXTE.B BOLDO| 00005AD0: 4E 2C 22 C4 4F 20 59 4F 55 20 57 41 4E 54 20 27 |N,".O YOU WANT '| 00005AE0: C1 55 54 4F 53 54 4F 50 27 20 3F 22 0D 42 20 4E |.UTOSTOP' ?".B N| 00005AF0: 55 4C 4C 0D 3B 0D 3A 53 43 48 4E 49 54 54 4F 4B |ULL.;.:SCHNITTOK| 00005B00: 54 58 54 45 0D 42 20 42 4F 4C 44 4F 4E 2C 22 C9 |TXTE.B BOLDON,".| 00005B10: 53 20 54 48 49 53 20 54 48 45 20 52 49 47 48 54 |S THIS THE RIGHT| 00005B20: 20 53 43 52 41 50 20 3F 22 0D 42 20 4E 55 4C 4C | SCRAP ?".B NULL| 00005B30: 0D 3B 0D 3A 4E 45 57 44 49 53 4B 54 58 54 45 0D |.;.:NEWDISKTXTE.| 00005B40: 42 20 42 4F 4C 44 4F 4E 2C 22 D0 4C 45 41 53 45 |B BOLDON,".LEASE| 00005B50: 20 49 4E 53 45 52 54 20 41 20 44 49 53 4B 22 2C | INSERT A DISK",| 00005B60: 43 52 2C 43 52 0D 47 4F 54 4F 58 20 38 30 0D 42 |CR,CR.GOTOX 80.B| 00005B70: 20 22 4F 4E 20 57 48 49 43 48 20 C9 20 43 41 4E | "ON WHICH . CAN| 00005B80: 20 53 41 56 45 22 2C 43 52 2C 43 52 0D 47 4F 54 | SAVE",CR,CR.GOT| 00005B90: 4F 58 20 38 30 0D 42 20 22 54 48 45 20 50 48 4F |OX 80.B "THE PHO| 00005BA0: 54 4F 53 43 52 41 50 2E 22 0D 42 20 4E 55 4C 4C |TOSCRAP.".B NULL| 00005BB0: 0D 3B 0D 3B 20 2A 2A 2A 20 D4 45 58 54 45 2C 20 |.;.; *** .EXTE, | 00005BC0: 44 45 55 54 53 43 48 45 20 2A 2A 2A 0D 3B 0D 3A |DEUTSCHE ***.;.:| 00005BD0: 54 49 54 45 4C 54 58 54 44 0D 42 20 49 54 41 4C |TITELTXTD.B ITAL| 00005BE0: 49 43 4F 4E 2C 42 4F 4C 44 4F 4E 2C 22 C7 C5 CF |ICON,BOLDON,"...| 00005BF0: D3 20 C2 49 54 4D 41 50 C3 4F 4E 56 45 52 54 45 |. .ITMAP.ONVERTE| 00005C00: 52 20 D6 20 31 2E 34 34 22 2C 43 52 2C 43 52 0D |R . 1.44",CR,CR.| 00005C10: 47 4F 54 4F 58 20 38 30 0D 42 20 50 4C 41 49 4E |GOTOX 80.B PLAIN| 00005C20: 54 45 58 54 2C 42 4F 4C 44 4F 4E 2C 22 47 45 53 |TEXT,BOLDON,"GES| 00005C30: 43 48 52 49 45 42 45 4E 20 56 4F 4E 3A 22 0D 47 |CHRIEBEN VON:".G| 00005C40: 4F 54 4F 58 20 31 37 35 0D 42 20 50 4C 41 49 4E |OTOX 175.B PLAIN| 00005C50: 54 45 58 54 2C 4F 55 54 4C 49 4E 45 2C 22 C3 41 |TEXT,OUTLINE,".A| 00005C60: 52 53 54 45 4E 22 2C 43 52 0D 47 4F 54 4F 58 20 |RSTEN",CR.GOTOX | 00005C70: 31 37 35 0D 42 20 22 C3 4C 41 53 4F 48 4D 22 2C |175.B ".LASOHM",| 00005C80: 43 52 2C 43 52 0D 47 4F 54 4F 58 20 38 30 0D 42 |CR,CR.GOTOX 80.B| 00005C90: 20 50 4C 41 49 4E 54 45 58 54 2C 22 D6 49 45 4C | PLAINTEXT,".IEL| 00005CA0: 45 4E 20 C4 41 4E 4B 20 41 4E 20 C6 4C 4F 52 49 |EN .ANK AN .LORI| 00005CB0: 41 4E 20 CD 55 45 4C 4C 45 52 22 2C 43 52 0D 47 |AN .UELLER",CR.G| 00005CC0: 4F 54 4F 58 20 38 30 0D 42 20 22 46 55 45 52 20 |OTOX 80.B "FUER | 00005CD0: 44 49 45 20 C9 44 45 45 20 5A 55 20 44 49 45 53 |DIE .DEE ZU DIES| 00005CE0: 45 4D 20 D0 52 4F 47 52 41 4D 4D 22 2C 43 52 0D |EM .ROGRAMM",CR.| 00005CF0: 47 4F 54 4F 58 20 38 30 0D 42 20 22 55 4E 44 20 |GOTOX 80.B "UND | 00005D00: 46 55 45 52 20 44 41 53 20 D3 43 48 52 45 49 42 |FUER DAS .CHREIB| 00005D10: 45 4E 20 44 45 53 20 C2 55 43 48 45 53 22 2C 43 |EN DES .UCHES",C| 00005D20: 52 0D 47 4F 54 4F 58 20 38 30 0D 42 20 33 34 2C |R.GOTOX 80.B 34,| 00005D30: 22 C1 4C 4C 45 53 20 55 45 42 45 52 20 C7 45 4F |".LLES UEBER .EO| 00005D40: 53 22 2C 33 34 2C 22 2E 22 2C 43 52 2C 43 52 0D |S",34,".",CR,CR.| 00005D50: 47 4F 54 4F 58 20 38 30 0D 42 20 42 4F 4C 44 4F |GOTOX 80.B BOLDO| 00005D60: 4E 2C 22 28 C3 29 20 49 4E 20 31 39 38 37 20 42 |N,"(.) IN 1987 B| 00005D70: 59 20 C3 41 52 53 54 45 4E 20 C3 4C 41 53 4F 48 |Y .ARSTEN .LASOH| 00005D80: 4D 22 2C 43 52 2C 43 52 0D 42 20 4E 55 4C 4C 0D |M",CR,CR.B NULL.| 00005D90: 3B 0D 3A 49 4E 53 45 52 54 58 54 44 0D 42 20 42 |;.:INSERTXTD.B B| 00005DA0: 4F 4C 44 4F 4E 2C 22 C2 49 54 54 45 20 44 49 45 |OLDON,".ITTE DIE| 00005DB0: 20 C4 49 53 4B 20 4D 49 54 20 44 45 52 20 5A 55 | .ISK MIT DER ZU| 00005DC0: 22 2C 43 52 2C 43 52 0D 47 4F 54 4F 58 20 38 30 |",CR,CR.GOTOX 80| 00005DD0: 0D 42 20 22 4B 4F 4E 56 45 52 54 49 45 52 45 4E |.B "KONVERTIEREN| 00005DE0: 44 45 4E 20 C2 49 54 4D 41 50 22 2C 43 52 2C 43 |DEN .ITMAP",CR,C| 00005DF0: 52 0D 47 4F 54 4F 58 20 38 30 0D 42 20 22 45 49 |R.GOTOX 80.B "EI| 00005E00: 4E 4C 45 47 45 4E 2E 22 0D 42 20 4E 55 4C 4C 0D |NLEGEN.".B NULL.| 00005E10: 3B 0D 3A 46 45 48 4C 45 52 4D 45 4C 44 55 4E 47 |;.:FEHLERMELDUNG| 00005E20: 44 0D 42 20 42 4F 4C 44 4F 4E 2C 22 CF 50 45 52 |D.B BOLDON,".PER| 00005E30: 41 54 49 4F 4E 20 41 42 47 45 42 52 4F 43 48 45 |ATION ABGEBROCHE| 00005E40: 4E 22 2C 43 52 2C 43 52 0D 47 4F 54 4F 58 20 38 |N",CR,CR.GOTOX 8| 00005E50: 30 0D 42 20 22 57 45 47 45 4E 20 C4 49 53 4B 46 |0.B "WEGEN .ISKF| 00005E60: 45 48 4C 45 52 3A 22 0D 42 20 4E 55 4C 4C 0D 3B |EHLER:".B NULL.;| 00005E70: 0D 3A 46 49 4C 45 54 59 50 44 0D 42 20 22 C6 41 |.:FILETYPD.B ".A| 00005E80: 4C 53 43 48 45 52 20 C6 49 4C 45 54 59 50 22 0D |LSCHER .ILETYP".| 00005E90: 42 20 4E 55 4C 4C 0D 3B 0D 3A 42 49 4C 44 4F 4B |B NULL.;.:BILDOK| 00005EA0: 54 58 54 44 0D 42 20 42 4F 4C 44 4F 4E 2C 22 C9 |TXTD.B BOLDON,".| 00005EB0: 53 54 20 44 49 45 53 20 44 41 53 20 52 49 43 48 |ST DIES DAS RICH| 00005EC0: 54 49 47 45 20 C2 49 4C 44 20 3F 22 0D 42 20 4E |TIGE .ILD ?".B N| 00005ED0: 55 4C 4C 0D 3B 0D 3A 53 54 4F 50 54 58 54 44 0D |ULL.;.:STOPTXTD.| 00005EE0: 42 20 42 4F 4C 44 4F 4E 2C 22 CD 4F 45 43 48 54 |B BOLDON,".OECHT| 00005EF0: 45 4E 20 D3 49 45 20 27 C1 55 54 4F 53 54 4F 50 |EN .IE '.UTOSTOP| 00005F00: 27 20 3F 22 0D 42 20 4E 55 4C 4C 0D 3B 0D 3A 53 |' ?".B NULL.;.:S| 00005F10: 43 48 4E 49 54 54 4F 4B 54 58 54 44 0D 47 4F 54 |CHNITTOKTXTD.GOT| 00005F20: 4F 58 20 37 32 0D 42 20 42 4F 4C 44 4F 4E 2C 22 |OX 72.B BOLDON,"| 00005F30: C9 53 54 20 44 49 45 53 20 44 45 52 20 52 49 43 |.ST DIES DER RIC| 00005F40: 48 54 49 47 45 20 C1 55 53 53 43 48 4E 49 54 54 |HTIGE .USSCHNITT| 00005F50: 20 3F 22 0D 42 20 4E 55 4C 4C 0D 3B 0D 3A 4E 45 | ?".B NULL.;.:NE| 00005F60: 57 44 49 53 4B 54 58 54 44 0D 42 20 42 4F 4C 44 |WDISKTXTD.B BOLD| 00005F70: 4F 4E 2C 22 C2 49 54 54 45 20 44 49 45 20 C4 49 |ON,".ITTE DIE .I| 00005F80: 53 4B 20 45 49 4E 4C 45 47 45 4E 2C 22 2C 43 52 |SK EINLEGEN,",CR| 00005F90: 2C 43 52 0D 47 4F 54 4F 58 20 38 30 0D 42 20 22 |,CR.GOTOX 80.B "| 00005FA0: 41 55 46 20 44 49 45 20 44 45 52 20 C1 55 53 53 |AUF DIE DER .USS| 00005FB0: 43 48 4E 49 54 54 22 2C 43 52 2C 43 52 0D 47 4F |CHNITT",CR,CR.GO| 00005FC0: 54 4F 58 20 38 30 0D 42 20 22 47 45 53 50 45 49 |TOX 80.B "GESPEI| 00005FD0: 43 48 45 52 54 20 57 45 52 44 45 4E 20 53 4F 4C |CHERT WERDEN SOL| 00005FE0: 4C 2E 22 0D 42 20 4E 55 4C 4C 0D 3B 0D 3B 20 2A |L.".B NULL.;.; *| 00005FF0: 2A 2A 20 C6 49 4C 45 4E 41 4D 45 4E 20 2A 2A 2A |** .ILENAMEN ***| 00006000: 0D 3B 0D 3A 41 4C 54 4E 41 4D 0D 42 20 31 33 33 |.;.:ALTNAM.B 133| 00006010: 2C 31 37 36 2C 31 38 2C 31 37 33 2C 31 33 39 2C |,176,18,173,139,| 00006020: 32 35 34 2C 35 36 2C 32 33 37 2C 33 2C 31 33 33 |254,56,237,3,133| 00006030: 2C 31 34 31 2C 31 33 39 2C 32 35 34 2C 31 37 36 |,141,139,254,176| 00006040: 2C 39 2C 32 30 36 2C 4E 55 4C 4C 0D 3B 0D 3A 4E |,9,206,NULL.;.:N| 00006050: 45 55 4E 41 4D 0D 42 20 38 30 2C 31 30 34 2C 31 |EUNAM.B 80,104,1| 00006060: 31 31 2C 31 31 36 2C 31 31 31 2C 33 32 2C 38 33 |11,116,111,32,83| 00006070: 2C 39 39 2C 31 31 34 2C 39 37 2C 31 31 32 2C 4E |,99,114,97,112,N| 00006080: 55 4C 4C 0D 3B 0D 3A 50 52 45 46 0D 42 20 38 30 |ULL.;.:PREF.B 80| 00006090: 2C 31 31 34 2C 31 30 31 2C 31 30 32 2C 31 30 31 |,114,101,102,101| 000060A0: 2C 31 31 34 2C 31 30 31 2C 31 31 30 2C 39 39 2C |,114,101,110,99,| 000060B0: 31 30 31 2C 31 31 35 2C 4E 55 4C 4C 0D 3B 0D 3B |101,115,NULL.;.;| 000060C0: 20 2A 2A 2A 20 C9 43 4F 4E 54 41 42 45 4C 4C 45 | *** .CONTABELLE| 000060D0: 4E 20 2A 2A 2A 0D 3B 0D 3A 45 4E 47 4C 49 43 0D |N ***.;.:ENGLIC.| 000060E0: 49 43 4F 4E 20 45 4E 47 4C 42 4D 2C 30 2C 30 2C |ICON ENGLBM,0,0,| 000060F0: 36 2C 31 36 2C 45 4E 47 4C 52 54 0D 42 20 4E 55 |6,16,ENGLRT.B NU| 00006100: 4C 4C 0D 3B 0D 3A 47 45 52 4D 49 43 0D 49 43 4F |LL.;.:GERMIC.ICO| 00006110: 4E 20 47 45 52 4D 42 4D 2C 30 2C 30 2C 37 2C 31 |N GERMBM,0,0,7,1| 00006120: 36 2C 47 45 52 4D 52 54 0D 42 20 4E 55 4C 4C 0D |6,GERMRT.B NULL.| 00006130: 3B 0D 3A 51 55 49 54 49 43 0D 49 43 4F 4E 20 51 |;.:QUITIC.ICON Q| 00006140: 55 49 54 42 4D 2C 30 2C 30 2C 36 2C 31 36 2C 51 |UITBM,0,0,6,16,Q| 00006150: 55 49 54 52 54 0D 42 20 4E 55 4C 4C 0D 3B 0D 3B |UITRT.B NULL.;.;| 00006160: 20 2A 2A 2A 20 C2 49 54 4D 41 50 53 20 44 45 52 | *** .ITMAPS DER| 00006170: 20 C9 43 4F 4E 53 20 2A 2A 2A 0D 3B 0D 3A 45 4E | .CONS ***.;.:EN| 00006180: 47 4C 42 4D 0D 42 20 24 30 35 2C 24 46 46 2C 24 |GLBM.B $05,$FF,$| 00006190: 38 32 0D 42 20 24 46 45 2C 24 38 30 2C 24 30 34 |82.B $FE,$80,$04| 000061A0: 2C 24 30 30 2C 24 43 39 2C 24 30 32 2C 24 42 46 |,$00,$C9,$02,$BF| 000061B0: 2C 24 30 30 0D 42 20 24 30 31 2C 24 43 43 2C 24 |,$00.B $01,$CC,$| 000061C0: 30 33 2C 24 30 33 2C 24 42 30 2C 24 30 30 2C 24 |03,$03,$B0,$00,$| 000061D0: 30 30 2C 24 43 30 0D 42 20 24 30 33 2C 24 30 33 |00,$C0.B $03,$03| 000061E0: 2C 24 42 30 2C 24 37 43 2C 24 37 43 2C 24 44 43 |,$B0,$7C,$7C,$DC| 000061F0: 2C 24 46 33 2C 24 45 33 0D 42 20 24 42 30 2C 24 |,$F3,$E3.B $B0,$| 00006200: 37 36 2C 24 43 43 2C 24 43 44 2C 24 39 42 2C 24 |76,$CC,$CD,$9B,$| 00006210: 42 33 2C 24 42 45 2C 24 36 36 0D 42 20 24 43 43 |B3,$BE,$66.B $CC| 00006220: 2C 24 43 44 2C 24 38 33 2C 24 33 33 2C 24 42 30 |,$CD,$83,$33,$B0| 00006230: 2C 24 36 36 2C 24 43 43 2C 24 43 43 0D 42 20 24 |,$66,$CC,$CC.B $| 00006240: 46 33 2C 24 33 33 2C 24 42 30 2C 24 36 36 2C 24 |F3,$33,$B0,$66,$| 00006250: 43 43 2C 24 43 43 2C 24 31 42 2C 24 33 33 0D 42 |CC,$CC,$1B,$33.B| 00006260: 20 24 42 30 2C 24 36 36 2C 24 43 43 2C 24 43 44 | $B0,$66,$CC,$CD| 00006270: 2C 24 39 42 2C 24 33 33 2C 24 42 46 2C 24 36 36 |,$9B,$33,$BF,$66| 00006280: 0D 42 20 24 37 43 2C 24 43 43 2C 24 46 33 2C 24 |.B $7C,$CC,$F3,$| 00006290: 33 33 2C 24 38 30 2C 24 30 30 2C 24 30 43 2C 24 |33,$80,$00,$0C,$| 000062A0: 30 30 0D 42 20 24 30 30 2C 24 30 33 2C 24 38 30 |00.B $00,$03,$80| 000062B0: 2C 24 30 30 2C 24 43 43 2C 24 30 30 2C 24 30 30 |,$00,$CC,$00,$00| 000062C0: 2C 24 30 33 0D 42 20 24 38 30 2C 24 30 30 2C 24 |,$03.B $80,$00,$| 000062D0: 37 38 2C 24 30 30 2C 24 30 30 2C 24 30 33 2C 24 |78,$00,$00,$03,$| 000062E0: 30 36 2C 24 46 46 0D 42 20 24 38 31 2C 24 33 46 |06,$FF.B $81,$3F| 000062F0: 2C 24 30 35 2C 24 46 46 0D 3B 0D 3A 47 45 52 4D |,$05,$FF.;.:GERM| 00006300: 42 4D 0D 42 20 24 30 36 2C 24 46 46 2C 24 38 32 |BM.B $06,$FF,$82| 00006310: 0D 42 20 24 46 45 2C 24 38 30 2C 24 30 35 2C 24 |.B $FE,$80,$05,$| 00006320: 30 30 2C 24 38 33 2C 24 30 32 2C 24 38 37 2C 24 |00,$83,$02,$87,$| 00006330: 43 30 0D 42 20 24 30 34 2C 24 30 30 2C 24 38 33 |C0.B $04,$00,$83| 00006340: 2C 24 30 33 2C 24 38 43 2C 24 36 30 2C 24 30 34 |,$03,$8C,$60,$04| 00006350: 2C 24 30 30 0D 42 20 24 42 33 2C 24 30 33 2C 24 |,$00.B $B3,$03,$| 00006360: 38 43 2C 24 30 37 2C 24 39 46 2C 24 42 45 2C 24 |8C,$07,$9F,$BE,$| 00006370: 45 33 2C 24 43 46 0D 42 20 24 38 33 2C 24 38 43 |E3,$CF.B $83,$8C| 00006380: 2C 24 30 43 2C 24 44 43 2C 24 33 42 2C 24 42 36 |,$0C,$DC,$3B,$B6| 00006390: 2C 24 36 45 2C 24 43 33 0D 42 20 24 38 44 2C 24 |,$6E,$C3.B $8D,$| 000063A0: 45 43 2C 24 44 38 2C 24 33 33 2C 24 33 33 2C 24 |EC,$D8,$33,$33,$| 000063B0: 45 43 2C 24 43 33 2C 24 38 43 0D 42 20 24 36 46 |EC,$C3,$8C.B $6F| 000063C0: 2C 24 44 38 2C 24 33 33 2C 24 33 36 2C 24 36 43 |,$D8,$33,$36,$6C| 000063D0: 2C 24 43 33 2C 24 38 43 2C 24 36 43 0D 42 20 24 |,$C3,$8C,$6C.B $| 000063E0: 31 38 2C 24 33 33 2C 24 33 36 2C 24 36 43 2C 24 |18,$33,$36,$6C,$| 000063F0: 43 33 2C 24 38 43 2C 24 36 43 2C 24 44 38 0D 42 |C3,$8C,$6C,$D8.B| 00006400: 20 24 33 33 2C 24 33 36 2C 24 36 43 2C 24 43 33 | $33,$36,$6C,$C3| 00006410: 2C 24 38 37 2C 24 43 37 2C 24 39 38 2C 24 33 33 |,$87,$C7,$98,$33| 00006420: 0D 42 20 24 33 33 2C 24 45 43 2C 24 43 33 2C 24 |.B $33,$EC,$C3,$| 00006430: 38 30 2C 24 30 35 2C 24 30 30 2C 24 38 32 2C 24 |80,$05,$00,$82,$| 00006440: 30 33 0D 42 20 24 38 30 2C 24 30 35 2C 24 30 30 |03.B $80,$05,$00| 00006450: 2C 24 38 32 2C 24 30 33 2C 24 38 30 2C 24 30 35 |,$82,$03,$80,$05| 00006460: 2C 24 30 30 0D 42 20 24 38 31 2C 24 30 33 2C 24 |,$00.B $81,$03,$| 00006470: 30 37 2C 24 46 46 2C 24 38 31 2C 24 33 46 2C 24 |07,$FF,$81,$3F,$| 00006480: 30 36 2C 24 46 46 0D 3B 0D 3A 51 55 49 54 42 4D |06,$FF.;.:QUITBM| 00006490: 0D 42 20 24 30 35 2C 24 46 46 2C 24 38 32 0D 42 |.B $05,$FF,$82.B| 000064A0: 20 24 46 45 2C 24 38 30 2C 24 30 34 2C 24 30 30 | $FE,$80,$04,$00| 000064B0: 2C 24 42 45 2C 24 30 32 2C 24 38 30 2C 24 30 46 |,$BE,$02,$80,$0F| 000064C0: 0D 42 20 24 38 30 2C 24 31 39 2C 24 38 30 2C 24 |.B $80,$19,$80,$| 000064D0: 30 33 2C 24 38 30 2C 24 31 38 2C 24 43 30 2C 24 |03,$80,$18,$C0,$| 000064E0: 30 31 0D 42 20 24 38 30 2C 24 30 33 2C 24 38 30 |01.B $80,$03,$80| 000064F0: 2C 24 31 38 2C 24 44 39 2C 24 42 42 2C 24 43 30 |,$18,$D9,$BB,$C0| 00006500: 2C 24 30 33 0D 42 20 24 38 30 2C 24 31 38 2C 24 |,$03.B $80,$18,$| 00006510: 44 39 2C 24 39 39 2C 24 38 30 2C 24 30 33 2C 24 |D9,$99,$80,$03,$| 00006520: 38 30 2C 24 31 38 0D 42 20 24 44 39 2C 24 39 39 |80,$18.B $D9,$99| 00006530: 2C 24 38 30 2C 24 30 33 2C 24 38 30 2C 24 31 38 |,$80,$03,$80,$18| 00006540: 2C 24 44 39 2C 24 39 39 0D 42 20 24 38 30 2C 24 |,$D9,$99.B $80,$| 00006550: 30 33 2C 24 38 30 2C 24 31 38 2C 24 44 39 2C 24 |03,$80,$18,$D9,$| 00006560: 39 39 2C 24 38 30 2C 24 30 33 0D 42 20 24 38 30 |99,$80,$03.B $80| 00006570: 2C 24 31 42 2C 24 44 42 2C 24 39 39 2C 24 38 30 |,$1B,$DB,$99,$80| 00006580: 2C 24 30 33 2C 24 38 30 2C 24 30 46 0D 42 20 24 |,$03,$80,$0F.B $| 00006590: 38 46 2C 24 39 38 2C 24 45 30 2C 24 30 33 2C 24 |8F,$98,$E0,$03,$| 000065A0: 38 30 2C 24 30 30 2C 24 43 30 2C 24 30 30 0D 42 |80,$00,$C0,$00.B| 000065B0: 20 24 30 30 2C 24 30 33 2C 24 38 30 2C 24 30 34 | $00,$03,$80,$04| 000065C0: 2C 24 30 30 2C 24 38 32 2C 24 30 33 2C 24 38 30 |,$00,$82,$03,$80| 000065D0: 0D 42 20 24 30 34 2C 24 30 30 2C 24 38 31 2C 24 |.B $04,$00,$81,$| 000065E0: 30 33 2C 24 30 36 2C 24 46 46 2C 24 38 31 2C 24 |03,$06,$FF,$81,$| 000065F0: 33 46 0D 42 20 24 30 35 2C 24 46 46 0D 3B 0D 3B |3F.B $05,$FF.;.;| 00006600: 20 2A 2A 20 C4 41 54 45 4E 20 2A 2A 0D 3B 0D 3A | ** .ATEN **.;.:| 00006610: 46 41 52 42 45 4E 0D 42 20 30 0D 3A 54 52 41 43 |FARBEN.B 0.:TRAC| 00006620: 4B 0D 3A 42 52 45 49 54 45 0D 42 20 30 0D 3A 42 |K.:BREITE.B 0.:B| 00006630: 4C 4F 43 4B 0D 3A 48 4F 45 48 45 0D 42 20 30 0D |LOCK.:HOEHE.B 0.| 00006640: 3A 58 31 0D 42 20 30 2C 30 0D 3A 59 31 0D 42 20 |:X1.B 0,0.:Y1.B | 00006650: 30 0D 3A 58 32 0D 42 20 30 2C 30 0D 3A 59 32 0D |0.:X2.B 0,0.:Y2.| 00006660: 42 20 30 0D 3A 41 4B 54 58 0D 42 20 30 2C 30 0D |B 0.:AKTX.B 0,0.| 00006670: 3A 41 4B 54 59 0D 42 20 30 0D 3A 41 4C 54 58 0D |:AKTY.B 0.:ALTX.| 00006680: 42 20 30 2C 30 0D 3A 41 4C 54 59 0D 42 20 30 0D |B 0,0.:ALTY.B 0.| 00006690: 3A 46 41 52 42 45 0D 42 20 30 0D 3A 4E 41 4D 45 |:FARBE.B 0.:NAME| 000066A0: 0D 3A 46 4C 41 47 31 20 20 20 20 3B C1 55 54 4F |.:FLAG1 ;.UTO| 000066B0: 53 54 4F 50 20 3F 0D 42 20 30 0D 3A 46 4C 41 47 |STOP ?.B 0.:FLAG| 000066C0: 32 20 20 20 20 3B D9 2D C2 45 52 45 49 43 48 53 |2 ;.-.EREICHS| 000066D0: 55 45 42 45 52 53 43 48 52 45 49 54 55 4E 47 20 |UEBERSCHREITUNG | 000066E0: 47 45 42 4C 49 45 42 45 4E 20 3F 0D 42 20 30 0D |GEBLIEBEN ?.B 0.| 000066F0: 3A 46 4C 41 47 33 20 20 20 20 3B D9 20 47 4C 45 |:FLAG3 ;. GLE| 00006700: 49 43 48 20 47 45 42 4C 49 45 42 45 4E 20 3F 0D |ICH GEBLIEBEN ?.| 00006710: 42 20 30 0D 3A 46 4C 41 47 34 20 20 20 20 3B D8 |B 0.:FLAG4 ;.| 00006720: 2D C2 45 52 45 49 43 48 53 55 45 42 45 52 53 43 |-.EREICHSUEBERSC| 00006730: 48 52 45 49 54 55 4E 47 20 47 45 42 4C 49 45 42 |HREITUNG GEBLIEB| 00006740: 45 4E 20 3F 0D 42 20 30 0D 3A 46 4C 41 47 35 20 |EN ?.B 0.:FLAG5 | 00006750: 20 20 20 3B C6 52 45 4D 44 41 55 46 52 55 46 20 | ;.REMDAUFRUF | 00006760: 44 45 52 20 D7 C1 D2 D4 C5 D3 C3 C8 CC C5 C9 C6 |DER ............| 00006770: C5 20 3F 0D 42 20 30 0D 3A 46 4C 41 47 36 20 20 |. ?.B 0.:FLAG6 | 00006780: 20 20 3B C1 4B 54 59 20 4C 49 4E 4B 53 20 28 30 | ;.KTY LINKS (0| 00006790: 29 20 4F 44 45 52 20 52 45 43 48 54 53 20 28 24 |) ODER RECHTS ($| 000067A0: 46 46 29 20 3F 0D 53 20 31 31 0D 3A 49 4E 46 4F |FF) ?.S 11.:INFO| 000067B0: 42 4C 4F 43 4B 0D 42 20 30 2C 32 35 35 2C 33 2C |BLOCK.B 0,255,3,| 000067C0: 32 31 2C 31 39 31 2C 32 35 35 2C 32 35 35 2C 32 |21,191,255,255,2| 000067D0: 35 35 0D 42 20 31 32 38 2C 36 34 2C 31 2C 31 32 |55.B 128,64,1,12| 000067E0: 38 2C 39 36 2C 31 2C 31 32 38 2C 39 36 0D 42 20 |8,96,1,128,96.B | 000067F0: 31 2C 31 32 38 2C 39 36 2C 31 33 2C 31 32 38 2C |1,128,96,13,128,| 00006800: 38 30 2C 35 33 2C 31 32 38 0D 42 20 38 30 2C 32 |80,53,128.B 80,2| 00006810: 31 37 2C 31 32 38 2C 38 33 2C 33 33 2C 31 32 38 |17,128,83,33,128| 00006820: 2C 39 32 2C 31 39 33 0D 42 20 31 32 38 2C 38 39 |,92,193.B 128,89| 00006830: 2C 31 2C 31 33 35 2C 32 30 36 2C 31 2C 31 35 39 |,1,135,206,1,159| 00006840: 2C 32 30 30 0D 42 20 31 2C 31 38 34 2C 32 34 38 |,200.B 1,184,248| 00006850: 2C 31 2C 31 37 37 2C 32 35 32 2C 31 2C 31 39 31 |,1,177,252,1,191| 00006860: 0D 42 20 31 31 30 2C 31 2C 31 35 36 2C 31 30 32 |.B 110,1,156,102| 00006870: 2C 31 2C 31 32 38 2C 31 30 32 2C 31 0D 42 20 31 |,1,128,102,1.B 1| 00006880: 32 38 2C 31 30 38 2C 31 2C 31 32 38 2C 35 36 2C |28,108,1,128,56,| 00006890: 31 2C 31 32 38 2C 30 0D 42 20 31 2C 32 35 35 2C |1,128,0.B 1,255,| 000068A0: 32 35 35 2C 32 35 35 2C 31 33 31 2C 34 2C 30 0D |255,255,131,4,0.| 000068B0: 3A 4C 41 44 45 41 44 52 0D 42 20 30 2C 30 0D 3A |:LADEADR.B 0,0.:| 000068C0: 45 4E 44 41 44 52 0D 42 20 30 2C 30 0D 42 20 30 |ENDADR.B 0,0.B 0| 000068D0: 2C 30 2C 38 30 2C 31 30 34 2C 31 31 31 0D 42 20 |,0,80,104,111.B | 000068E0: 31 31 36 2C 31 31 31 2C 33 32 2C 38 33 2C 39 39 |116,111,32,83,99| 000068F0: 2C 31 31 34 2C 39 37 2C 31 31 32 0D 42 20 33 32 |,114,97,112.B 32| 00006900: 2C 38 36 2C 34 39 2C 34 36 2C 34 38 0D 53 20 34 |,86,49,46,48.S 4| 00006910: 32 0D 42 20 38 30 0D 42 20 31 30 34 2C 31 31 31 |2.B 80.B 104,111| 00006920: 2C 31 31 36 2C 31 31 31 2C 33 32 2C 38 33 2C 39 |,116,111,32,83,9| 00006930: 39 2C 31 31 34 0D 42 20 39 37 2C 31 31 32 2C 30 |9,114.B 97,112,0| 00006940: 2C 33 32 2C 31 31 39 2C 31 39 34 2C 39 36 2C 31 |,32,119,194,96,1| 00006950: 36 39 0D 42 20 36 36 2C 31 33 33 2C 33 2C 31 36 |69.B 66,133,3,16| 00006960: 39 2C 31 38 32 2C 31 33 33 2C 32 2C 33 32 0D 42 |9,182,133,2,32.B| 00006970: 20 30 0D 3A 50 55 46 46 45 52 0D | 0.:PUFFER. |
;.; ..................................
; . BITMAPCONVERTER V1.44 ..;
. (C) 1987 BY CARSTEN CLASOHM ..;
..................................; .
V 1.0 WRITTEN FROM 28.12.1987 ..; .
TO 4. 1.1988 ..; . LA
ST MODIFIED ON 20. 1.1988 ..; ........
..........................;.; *** GEOS-L
IBRARIAN V1.4, (C) 1987 BY CARSTEN CLASO
HM ***.; **
**.; ** S
TAND: 20.1.1987 **.ORG $0
402.JMP ENDE.;.; *** LABELS,ALLGEMEINE *
**.;.:R0=$02 ;ARBEITSREGISTER.:R1=$
04 ;DER GEOS-ROUTINEN.:R2=$06.:R3=$
08.:R4=$0A.:R5=$0C.:R6=$0E.:R7=$10.:R9=$
14.:R10=$16.:ZP1=$46 ;ZEROPAGE-ZEIGE
R FUER.:ZP2=$48 ;APPLIKATIOEN.:ZP3=$
4A.:ZP4=$4C.:ZP5=$4E.:ZP8=$54.:ZP9=$56.:
ZP10=$58.:ZP28=$7C.:ZP29=$7E.:NULL=0.:CI
A1=56320 ;BASISADR. DER CIA1.:MOUSEX
=$3A ;X-KOORD. DER MAUS.:MOUSEY=$3C
;Y-KOORD. DER MAUS.:BORDO=$84B8.:BOR
DU=$84B9 ;GRENZEN.:BORDL=$84BA ;FU
ER MAUS.:BORDR=$84BC.:RECVBOXR=$C12D ;RO
UTINENADR..:SET=$FF ;FLAG SETZEN.
:CLEAR=0 ;FLAG LOESCHEN.;.; *** L
ABELS,PUTCHAR ***.;.:CR=13.:BOLDON=24.:I
TALICON=25.:OUTLINE=26.:PLAINTEXT=27.;.;
*** LABELS,DIALBOX ***.;.:OK=$01.:CANCE
L=$02.:YES=$03.:NO=$04.;.; *** MAKROS **
*.;.;.; *** BYTES + WORTE KOPIEREN + VER
SCHIEBEN ***.;.; * WERT IN SPEICHERSTELL
E SCHREIBEN *.:POKE M 2 ;(ADRES
SE;WERT).LDA #@1.STA @0./.; * WORT 'WERT
' IN 'REGISTER' LADEN *.:LOADW M 2 ;
(WERT;REGISTER).POKE @1,<@0.POKE @1+1,>@
0./.; * BYTE KOPIEREN *.:COP M 2
;(SRCBYTE;DESTBYTE).LDA @0.STA @1./.; *
WORT KOPIEREN *.:TRANSW M 2 ;(SRCRE
G;DESTREG).COP @0,@1.COP @0+1,@1+1./.;.;
*** GRAFIK ***.;.; * BILDSCHIRM LOESCHE
N *.:CLS M 0 ;().JSR CLSROUT./.;
* MUSTER SETZEN *.:PATTERN M 1 ;(MUSTE
R).LDA #@0.JSR $C139./.; * AUSGEFUELLTES
RECHTECK ZEICHNEN *.:BOX M 5 ;(Y-
L.O.;Y-R.U.;X-L.O.;X-R.U.;MUSTER).PATTER
N @4.JSR $C19F.B @0,@1.W @2,@3./.; * REC
HTECK ZEICHNEN *.:FRAME M 0 ;().JSR
$C127./.; * RECHTECKIGEN BEREICH INVERT
IEREN *.:INVBOX M 0 ;().JSR $C12A./.
; * KOMPRIMIERTE BITMAP ANZEIGEN *.:BITM
AP M 5 ;(ADR.D.BITMAP;X-KOORD.;Y-KOO
RD.;BREITADR.;HOEHADR.).LOADW @0,R0.POKE
4,@1.POKE 5,@2.COP @3,6.COP @4,7.JSR $C
142./.; * DIALBOX ERZEUGEN *.:DIALBOX M
1 ;(ADRESSE).LOADW @0,R0.JSR $C256./.
; * MAKROS FUER DIALBOX *.;.; * WERTE FU
ER DIALBOX FESTLEGEN *.:INITDIALBOX M 5
;(MUSTER;YO;YU;XL;XR).B @0,@1,@2.W @3,@
4./.; * STANDARDDIALBOX ERZEUGEN *.:STDD
IALBOX M 1 ;(MUSTER).B $80+@0.;ES FOLGEN
DIE KOMMANDOS./.;.; * FELD IN DIALBOX B
RINGEN *.:FELD M 3 ;(FELDOPCODE;X;Y)
.B @0,@1/8,@2./.; * FESTEN TEXT IN DIALB
OX ANZEIGEN *.:TEXTAUS M 3 ;(X;Y;TEX
TADRESSE).B $0B,@0,@1.W @2./.; * VARIABL
EN TEXT ANZEIGEN *.:VARTEXTAUS M 3 ;(X;
Y;REGISTER).B $0C,@0,@1,@2./.; * FILES A
USWAEHLEN (FINDTYPE-PARAM.NICHT VERGESSE
N!) *.:GETFILES M 2 ;(X;Y).B $10,@0,@
1./.; * AUF GETFILES VORBEREITEN *.:INIT
GETFILES M 3 ;(FILETYP;ABLAGEADR.;CLAS
S).POKE $10,@0.LOADW @1,R5.LOADW @1,R6.L
OADW @2,R10./.; * ICON IN DB-BOX GENERIE
REN *.:USRICON M 3 ;(X;Y;ICONTABELLE
NADR.).B $12,@0/8,@1.W @2./.; * ICONTABE
LLE *.:ICON M 6 ;(ZG.AUF BITMAP;X
;Y;BREITE;HOEHE;ROUTADR.).W @0.B @1,@2,@
3,@4.W @5./.; * VON EIGENER ROUTINE ZURU
ECK ZUR DB *.:RSTDIAL M 1 ;(CODE FUE
R $851D).POKE $851D,@0.JMP $C2BF./.; ***
ENDE DIALBOX-MAKROS ***.;.; * FLAECHE A
US 2. IN 1.BITMAP HOLEN *.:RECVBOX M 4
;(XL.O;YL.O.;XR.U.;YR.U.).JSR $C1A5.B @1
,@3.W @0,@2./.; * ADRESSE EINER ZEILE IN
BITMAP BERECHNEN *.:SCAN M 0 ;()
.JSR $C13C./.;.; *** TEXT ***.;.; * TEXT
IN GEOSFORMAT KONVERTIEREN *.:TXTCONV M
1 ;(ADRESSE).LOADW @0,$FB.JSR CONVERT
./.; * VARIABLEN TEXT KONVERTIEREN *.:VT
XTCONV M 1 ;(ZEIGERADR.).TRANSW @0,$FB.
JSR CONVERT./.; * UNTERMAKROS ZU IPUTSTR
UND PUTCHAR *.:GOTOX M 1 ;(X-KOOR
D.).B $14.W @0./.; * ENDE PUTCHAR-MAKROS
*.;.; * STRINGS BEKANNTER GROESSE VERGL
EICHEN *.:CMPFSTR M 3 ;(ADR.1;ADR.2;LAE
NGE).LDX #@0.LDY #@1.LDA #@2.JSR $C26E./
.;.; *** SONSTIGES ***.;.; * DESKTOP LAD
EN UND STARTEN *.:DESKTOP M 0.JMP $C22C.
/.; * CPU INHALTE SICHERN *.:PUSHCPU M 0
.STA $FD.STX $FE.STY $FF.PHP./.; * CPU I
NHALTE ZURUECKLADEN *.:POPCPU M 0.LDA $F
D.LDX $FE.LDY $FF.PLP./.; * X SEKUNDEN W
ARTEN *.:WAIT M 1 ;(SEKUNDEN).LOADW
@0,ZP1.JSR WAITROUT./.; * MAIN AUFRUFEN
*.:MAIN M 1 ;(RETURNADR.).LOADW @0
,$849B.JMP $C1C3./.; * EIN/AUSGABE UEBER
ALTE ROUTINEN VORBEREITEN *.:INITIO M 0
;().JSR $C25C./.; * EIN/AUSGABE UEBER
ALTE ROUTINEN BEENDEN *.:DONEIO M 0 ;
().JSR $C25F./.; * I/O-FEHLER ANZEIGEN *
.:ERROR M 1 ;(RUECKSPRUNGADR.).LOADW
@0,ZP28.JMP ERRORROUT./.;.; *** MAUS ***
.;.; * MAUSZEIGER ANSCHALTEN *.:MOUSEON
M 0 ;().JSR $C18A./.; * MAUSZEIGER
AUSSCHALTEN *.:MOUSEOFF M 0 ;().JS
R $C18D./.; * MAUS"SPIELWIESE" EINSTELLE
N *.:MOUSEBORDER M 4 ;(OBERE;UNTERE;LINK
E;RECHTE GRENZE).POKE BORDO,@0.POKE BORD
U,@1.LOADW @2,BORDL.LOADW @3,BORDR./.;.;
*** DISK ***.;.; * FILE LADEN (WEITERE
PARAMETER) *.:READ M 2 ;(LADEADR.;M
AXLAENGE).LOADW @0,R7.LOADW @1,R2.JSR $C
1FF./.; * DISKETTE OEFFNEN *.:OPENDISK M
0 ;().JSR $C2A1./.; * FILEEINTRAG IM D
IR. SUCHEN *.:FINDFILE M 1 ;(FILENAMENA
DR.).LOADW @0,R6.JSR $C20B./.; * FILE UM
BENENNEN *.:RENAME M 2 ;(NEUER NAME;A
LTER NAME).LOADW @0,R0.LOADW @1,R6.JSR $
C259./.; * BLOCK VON DISK EINLESEN (WEIT
ERE PARAMETER!) *.:GETBLK M 1 ;(SPEIC
HERADR.).LOADW @0,R4.JSR $C1E4./.; * SPE
ICHERBEREICH SPEICHERN *.:SAVE M 2
;(INFOBLOCKADR.;DIRSEITE).LOADW @0,R9.PO
KE $16,@1.JSR $C1ED./.;.; *** RECHNEN **
*.;.; * WORT DEKREMENTIEREN *.:DDEC M 1
;(ZPADR.).LDX #@0.JSR $C175./.; * W
ORT INKREMENTIEREN *.:DINC M 1 ;(AD
R.).LOADW @0,ZP29.JSR DINCROUT./.; * QUO
TIENT ZWEIER WORTE BILDEN *.:DDIV M 2
;(DIVID.ADR;DIVISORADR).LDX #@0.LDY
#@1.JSR $C169./.; * ZWEI BYTES MULTIPLI
ZIEREN *.:BBMULT M 2 ;(PRODUKTEADR;
ERGEBNISADR).LDY #@0.LDX #@1.JSR $C160./
.; * BYTE MIT WORT MULTIPLIZIEREN *.:BMU
LT M 2 ;(BYTEADR;WORTADR).LDY #@0.
LDX #@1.JSR $C163./.; * ZWEI WORTE SUBTR
AHIEREN *.:DSUBTR M 3 ;(MINUENDADR;
SUBTRAHEND;DIFFERENZ).SEC.LDA @0.SBC @1.
STA @2.LDA @0+1.SBC @1+1.STA @2+1./.;.;
*** SPEICHER VERSCHIEBEN + KOPIEREN ***.
;.; * SPEICHERBLOECKE VERSCHIEBEN *.:MOV
ERAM M 3 ;(ANFADR.QUELLE,ANFADR.ZI
EL,LAENGE).JSR $C1B7.W @0,@1,@2./.; * SP
EICHERBEREICH MIT $00 FUELLEN *.:CLEARAM
M 2 ;(ANFANGSADR.;ANZAHL).LOADW @0,
R1.LOADW @1,R0.JSR $C178./.; * FILE LOES
CHEN *.:DELETE M 1 ;(NAMENADR.).LOA
DW @0,R0.JSR $C238./.;.;*** ROUTINEN ***
.;.; * KONVERTIERUNG VON TEXT INS *.;
* GEOS-FORMAT *.:CONVERT.LDY #0.:
CNVT.LDA ($FB),Y.BEQ ENDCNV.CMP #$10.BEQ
ENDCNV.CMP #$14.BEQ ZWEI.CMP #$15.BEQ E
INS.CMP #$16.BEQ DREI.CMP #$17.BEQ DREI.
CMP #65.BCC NEXT.CMP #91.BCS NEXT.EOR #$
20.:NEXT.STA ($FB),Y.INY.JMP CNVT.:ENDCN
V.RTS.:EINS.INY.INY.JMP CNVT.:ZWEI.INY.J
MP EINS.:DREI.INY.JMP ZWEI.;.; * WARTEN
*.;.:WAITROUT.INITIO.COP CIA1+9,ZP2.:WAR
TE.LDA CIA1+9.CMP ZP2.BEQ WARTE.STA ZP2.
DONEIO.DDEC ZP1.BNE WARTEWEITER.RTS.:WAR
TEWEITER.INITIO.JMP WARTE.;.; * I/O-FEHL
ERMELDUNG AUSGEBEN *.;.:ERRORROUT.TXA.CM
P #10 ;KLEINER ALS 10 ?.BCC KLEIN
ER10 ;<-JA.POKE ZP29,$FF ;<-NEIN.:ABZI
EHEN.INC ZP29 ;ZEHNERSTELLE MERKEN
.SEC.SBC #10 ;KLEINER 10 MACHEN.B
CS ABZIEHEN.CLC ;KLEINER 0!.A
DC #10+48 ;WIEDER -1>AKKU<10 UND.
;IN ZEICHENCODE WANDELN.STA
FEHLERNR+3 ;UND ALS EINERSTELLE SP..LDA
ZP29.CLC ;UND DAS GLEICHE MIT
DER.ADC #48 ;ZEHNERSTELLE.STA FE
HLERNR+2.JMP AUSGEBEN.:KLEINER10.CLC.ADC
#48 ;1STELLIGE ZAHL UMRECHNEN.ST
A FEHLERNR+3 ;UND.POKE FEHLERNR+2,32
;LEERZEICHEN ALS 1.STELLE.:AUSGEBEN.DIA
LBOX IOFEHLER.JMP (ZP28).;.; ** WORT INK
REMENTIEREN **.;.:DINCROUT.LDY #0.LDA (Z
P29),Y ;LOWBYTE.TAX.INX
;ERHOEHEN.TXA.STA (ZP29),Y.BNE KEINUE
BERLAUF.INY.LDA (ZP29),Y ;HIGHBYTE.
TAX.INX ;ERHOEHEN.TXA.STA
(ZP29),Y.:KEINUEBERLAUF.RTS.;.; ** BILDS
CHIRM LOESCHEN **.;.:CLSROUT.BOX 0,199,0
,319,2.RTS.;.; *** DATEN, TEXTE, ... ***
.;.:FEHLERNR.B "I:00".B NULL.:ENDE.;.;**
*> ENDE GEOS-LIBRARIAN <***.;.;***> A
NFANG BITMAPCONVERTER <***.;.; ** PROGRA
MMSPEZIFISCHE LABELS **.;.:KOPF=ZP1.:BYT
ES=ZP2.:LESE=ZP3.:WRITE=ZP4.:KACHELN=ZP5
.:TITELTXT=$5A.:INSERTDISKTXT=$5C.:FEHLE
RMELDUNG=$5E.:FILETYP=$60.:BILDOKTXT=$62
.:SCHNITTOKTXT=$64.:NEWDISKTXT=$66.:STOP
TXT=$68.;.; *** SPRACHE AUSWAEHLEN ***.;
.TXTCONV SPRTXT ;TEXTE FUER ERSTE.TXTC
ONV LANGTX ;BOX KONVERTIEREN.TXTCONV Q
UITTX.CLS.:LANGU.DIALBOX SPRACHE ;SPRAC
HE WAEHLEN.JMP KONVERTIEREN ;ROUTINEN UE
BERSPRINGEN.;.; *** ZEIGER AUF TEXTE SET
ZEN ***.;.:ENGLRT.LOADW TITELTXTE,TITELT
XT.LOADW INSERTXTE,INSERTDISKTXT.LOADW F
EHLERMELDUNGE,FEHLERMELDUNG.LOADW FILETY
PE,FILETYP.LOADW BILDOKTXTE,BILDOKTXT.LO
ADW SCHNITTOKTXTE,SCHNITTOKTXT.LOADW NEW
DISKTXTE,NEWDISKTXT.LOADW STOPTXTE,STOPT
XT.RSTDIAL $0E.;.:GERMRT.LOADW TITELTXTD
,TITELTXT.LOADW INSERTXTD,INSERTDISKTXT.
LOADW FEHLERMELDUNGD,FEHLERMELDUNG.LOADW
FILETYPD,FILETYP.LOADW BILDOKTXTD,BILDO
KTXT.LOADW SCHNITTOKTXTD,SCHNITTOKTXT.LO
ADW NEWDISKTXTD,NEWDISKTXT.LOADW STOPTXT
D,STOPTXT.RSTDIAL $0E.;.:QUITRT.DESKTOP.
;.; *** TITEL + FILE AUSWAEHLEN ***.;.:K
ONVERTIEREN.VTXTCONV TITELTXT.VTXTCONV I
NSERTDISKTXT.VTXTCONV FEHLERMELDUNG.VTXT
CONV FILETYP.TXTCONV FEHLERNR.VTXTCONV B
ILDOKTXT.VTXTCONV SCHNITTOKTXT.VTXTCONV
NEWDISKTXT.VTXTCONV STOPTXT.COP $851E,FA
RBEN.CLS.DIALBOX TITEL ;TITELBOX AN
ZEIGEN.:NEUEDISK.DIALBOX INSERTDISK ;DIS
K EINLEGEN!.LDA R0.CMP #CANCEL ;Z
URUECK ZUR 1. BOX ?.BNE WEITER.JMP LANGU
.:WEITER.OPENDISK.TXA.BEQ OK1.ERROR NEUE
DISK.:OK1.INITGETFILES 0,PUFFER,0.DIALBO
X CHOOSEFILES ;FILE AUSWAEHLEN.LDA R0.C
MP #CANCEL ;ANDERE DISK?.BNE NI
CHTZURUECK.JMP NEUEDISK.:NICHTZURUECK.;.
; *** 1.TRACK/BLOCK SUCHEN ***.;.FINDFIL
E PUFFER.TXA.BEQ OK1A.ERROR NEUEDISK.:OK
1A.COP $8400+1,TRACK.COP $8400+2,BLOCK.L
DA $8400 ;AUF FILETYP (PRG.).CMP #
130 ;PRUEFEN.BEQ TYPRICHTIG.DIALB
OX FILETYPEBOX.JMP WEITER ;NEUES FI
LE WAEHLEN.:TYPRICHTIG.;.; ** BILD LADEN
UND ANZEIGEN **.;.COP TRACK,4.COP BLOCK
,5.READ $6000-2,8194 ;BILD "ZWISCHEN"LA
DEN.MOVERAM $6000,$A000,8000 ;UND ANZEIG
EN.WAIT 4.:NEUERSCRAP.DIALBOX BILDOK.LDA
R0.CMP #YES.BEQ BILDRICHTIG.JMP WEITER
;ANDERES FILE WAEHLEN.:BILDRICHT
IG.DIALBOX AUTOSTOP.LDA R0.CMP #YES.BNE
NOSTOP.POKE FLAG1,SET ;FLAG SETZEN.J
MP VORBEREIT.:NOSTOP.POKE FLAG1,CLEAR
;FLAG LOESCHEN.:VORBEREIT.INITIO.POKE 53
280,0 ;RAHMEN SCHWARZ.DONEIO.MOUSE
ON.MOUSEBORDER 0,199,0,319.LOADW KNOPF1,
$84A1 ;VEKTOR FUER FEUERKNOPF.:NICHTSTUN
.MAIN NICHTSTUN ;AUF KNOPF WARTEN.:K
NOPF1.POKE $2F,%10000000 ;NUR IN SICHTBA
RE BITMAP SCHREIBEN.TRANSW MOUSEX,X1.TRA
NSW X1,X2.TRANSW X1,AKTX.TRANSW X1,ALTX.
LDA MOUSEY ;KOORD. FUER BEREICH.
STA Y1 ;KOPIEREN.STA Y2.STA
AKTY.STA ALTY.STA 6.STA 7.TRANSW X1,R3.T
RANSW X1,R4.INVBOX.LOADW TRICK1,$849B ;R
UECKSPRUNGADR. FUER MAIN.RTS
;ZURUECK ZU MAIN.:TRICK1.LOADW TRICK
2,$84A1 ;TRICK.MAIN TRICK1 ;(GEOS
WERTET "KNOPF LOS-.:TRICK2 ;
LASSEN" AUCH ALS AKTI-.LOADW VEKTOR,$84
9B ; VIERTEN FEUERKNOPF).RTS.;.; ** BERE
ICH INVERTIEREN **.;.:VEKTOR.LOADW KNOPF
2,$84A1.POKE PUFFER+10,0 ;FARBE SETZEN.P
OKE FLAG2,CLEAR.POKE FLAG5,CLEAR.LDA FLA
G1 ;AUTOSTOP ?.BEQ WARTESCHLEIFE
;NEIN.;.; ** GRENZE FUER MAUS FESTLEGEN
**.SEC.LDA ALTY.SBC #143 ;OBER
E GRENZE.BCS GROESSER1.LDA #0.:GROESSER1
.STA BORDO.CLC.LDA ALTY.ADC #143
;UNTERE GRENZE.STA BORDU.BCS UEBERL.CM
P #199.BCC KLEINER1.:UEBERL.POKE BORDU,1
99.:KLEINER1.LOADW 263,ZP1.DSUBTR ALTX,Z
P1,BORDL.BCS GROESSER2.LOADW 0,BORDL.:GR
OESSER2.CLC.LDA ALTX.ADC #<263.STA BORDR
.LDA ALTX+1.ADC #>263.STA BORDR+1.LOADW
319,ZP1.DSUBTR BORDR,ZP1,ZP1.BCC WARTESC
HLEIFE.LOADW 319,BORDR.;.; *** AUF BEWEG
UNG REAGIEREN ***.:WARTESCHLEIFE.POKE FL
AG3,CLEAR ;FLAG FUER YGLEICH LOESCHEN.CO
P Y1,ZP1 ;KOORD. SICHERN.COP Y2,ZP
1+1 ;(FUER "JSR RECVBOXR").TRANSW X1
,ZP2.TRANSW X2,ZP3.LDA MOUSEY.CMP AKTY
;Y GLEICHGEBLIEBEN ?.BNE YNGLEICH
.JMP YGLEICH.:YNGLEICH.STA AKTY
;NEIN,.:RULO.LDA AKTY ;UND OBEN
BZW..CMP ALTY ;UNTEN FESTLEGEN.B
CS YGROESSER.COP ALTY,Y2.COP AKTY,Y1.JMP
XPRUEFEN.:YGROESSER.COP ALTY,Y1.COP AKT
Y,Y2.JMP XPRUEFEN.:YGLEICH.POKE FLAG3,SE
T ;FLAG FUER YGLEICH.:XPRUEFEN.LDA MOU
SEX.CMP AKTX ;X VERAENDERT?.BNE
NICHTGLEICH ;JA.LDA MOUSEX+1.CMP AKTX+1
.BNE NICHTGLEICH ;JA.:XGLEICH.LDA FLAG3
.BNE NINVERTIEREN ;WENN NUR X GLEICH,NEU
EN B.INVERTIEREN.JMP INVERTIEREN.:NINVER
TIEREN.MAIN WARTESCHLEIFE.:NICHTGLEICH.T
RANSW MOUSEX,AKTX.SEC.LDA AKTX.SBC ALTX
;LINKS UND RECHTS.LDA AKTX+1
;FESTLEGEN.SBC ALTX+1.BCS XGROESSER
.TRANSW ALTX,X2.TRANSW AKTX,X1.POKE FLAG
6,CLEAR ;AKTY-LINKS-FLAG.JMP INVERTIERE
N.:XGROESSER.TRANSW ALTX,X1.TRANSW AKTX,
X2.POKE FLAG6,SET ;AKTY-RECHTS-FLAG.:
INVERTIEREN.POKE FARBE,0.LDA FLAG1
;WENN AUTOSTOP,.BNE AUFRUF ;DANN U
EBERSPRINGEN.SEC ;FARBE DES
BILD-.LDA Y2 ;SCHIRMRANDES.SBC
Y1 ;BERECHNEN.CMP #144.BCC SCHW
ARZ.POKE FARBE,2.JMP XFARBE.:SCHWARZ.POK
E FARBE,0.:XFARBE.SEC.LDA X2.SBC X1.STA
PUFFER+1.LDA X2+1.SBC X1+1.STA PUFFER+2.
LDA PUFFER+2.BEQ XSCHWARZ.LDA PUFFER+1.C
MP #9.BCC XSCHWARZ.POKE FARBE,2.JMP AUFR
UF.:XSCHWARZ.LDA FARBE.BNE AUFRUF.POKE F
ARBE,0.:AUFRUF.LDA FLAG5.BEQ NKNOPF2.RTS
.:NKNOPF2.LDA FARBE.CMP PUFFER+10.BEQ AL
TEFARBE.STA PUFFER+10.INITIO.COP FARBE,5
3280 ;FARBE SETZEN.DONEIO.:ALTEFARBE.T
RANSW ZP2,R3 ;ALTEN BEREICH.TRANSW Z
P3,R4 ;WIEDERHERSTELLEN,.COP ZP1,6.C
OP ZP1+1,7.JSR RECVBOXR.TRANSW X1,R3.TRA
NSW X2,R4 ;NEUEN BEREICH.COP Y1,6
;INVERTIEREN.COP Y2,7.INVBOX.TRA
NSW X1,R3.TRANSW X2,R4 ;UND RECHTEC
K ZEICHNEN.COP Y1,6.COP Y2,7.LDA #%11110
000 ;ZEICHENMUSTER.FRAME.MAIN WARTESC
HLEIFE ;UND WEITER WARTEN.;.; ** AUF 2.
KNOPFDRUCK REAGIEREN **.;.:KNOPF2.LOADW
ERWEITERN,$849B ;RUECKSPRUNGADR. FUER MA
IN.RTS ;ZURUECK ZU MAI
N.:ERWEITERN.LOADW $E6B9,$84A1 ;ALTEN V
EKTOR HERSTELLEN.;.; ** X-KOORD. AUF "X/
8" ERWEITERN **.;.TRANSW X1,R3 ;BILD
.TRANSW X2,R4 ;WIEDERHERSTELLEN.COP
Y1,6.COP Y2,7.JSR RECVBOXR.LDA X1
;BEI X1=0.BNE KEINENULL ;UEBERSPR
INGEN.LDA X1+1.BEQ X2ERWEIT.:KEINENULL.T
RANSW X1,R0.LOADW 8,R1.DDIV R0,R1
;X1/8 STEHT IN R0 (LOWBYTE).POKE R0+1,8.
BBMULT R0,R1 ;X1*8,ERGEBNIS IN R1.TR
ANSW R1,X1 ;X1 JETZT DURCH 8 TEILBAR
.:X2ERWEIT.LDA X2 ;BEI X2=0.BN
E NONULL ;UEBERSPRINGEN.LDA X2+1.B
NE NONULL.JMP DARSTELLEN.:NONULL.TRANSW
X2,R0.DINC R0 ;X2 ERHOEHEN (0=1
,7=8,...).LOADW 8,R1.DDIV R0,R1 ;X
2/8 STEHT IN R0 (LOWBYTE).POKE R0+1,8.BB
MULT R0,R1 ;X2*8,ERGEBNIS IN R1.DDEC
R1 ;X2 WIEDER -1 (8=7,...).TRA
NSW R1,PUFFER ;X2 JETZT DURCH 8 TEILBAR.
LDA PUFFER.CMP X2.BEQ KEINREST.CLC
;AUFRUNDEN.LDA PUFFER ;(PL
US 8).ADC #8.STA PUFFER.LDA PUFFER+1.ADC
#0.STA PUFFER+1.:KEINREST.TRANSW PUFFER
,X2.LDA FLAG1 ;AUTOSTOP ?.BEQ DAR
STELLEN.DSUBTR X2,X1,ZP10.LOADW 264,ZP9.
DSUBTR ZP10,ZP9,ZP8.BCC DARSTELLEN.LDA F
LAG6.BNE AKTX2.CLC ;BREITE
HERUNTER-.LDA X1 ;SETZEN.ADC #
8 ;(X1 + 8).STA X1.LDA X1+1.AD
C #0.STA X1+1.JMP DARSTELLEN.:AKTX2.LOAD
W 8,ZP10 ;X2 - 8.DSUBTR X2,ZP10,X2
;(BREITE HERUNTERSETZEN).;.; ** NEUEN BE
REICH DARSTELLEN **.;.:DARSTELLEN.TRANSW
X1,R3.TRANSW X2,R4 ;NEUEN BEREICH.
COP Y1,6 ;INVERTIEREN.COP Y2,7.
INVBOX.TRANSW X1,R3.TRANSW X2,R4 ;U
ND RECHTECK ZEICHNEN.COP Y1,6.COP Y2,7.L
DA #%11110000 ;ZEICHENMUSTER.FRAME.;.
; ** FARBEN FUER BEREICHSUEBERSCHREITUNG
SETZEN **.;.POKE FLAG5,SET.POKE FLAG1,C
LEAR.JSR INVERTIEREN.INITIO.COP FARBE,53
280 ;FARBE SETZEN.DONEIO.WAIT 4.DIALBOX
AUSSCHNITTOK.LDA R0.CMP #YES.BEQ INORDN
UNG.RECVBOX 0,0,319,199.JMP BILDRICHTIG
;NEUEN AUSSCHNITT WAEHLEN.:INORDNUNG.I
NITIO.POKE 53280,0.DONEIO.;.; ** BITMAPF
ORMAT KONVERTIEREN **.;.MOUSEOFF.CLEARAM
$A000,8000 ;BITMAP 1 LOESCHEN.POKE $2F,
%01000000 ;BITMAP 2 AUSLESEN.LOADW $A000
,ZP1 ;ZEIGER FESTLEGEN.POKE PUFFER,0
; '' ''.LDA X2 ;X2
ERHOEHEN.BNE X2NICHTNULL ;(DURCH 8 TEIL
-.LDA X2+1 ; BAR MACHEN).BEQ GLE
ICHNULL.:X2NICHTNULL.DINC X2.; ** BREITE
UND HOEHE FESTHALTEN **.:GLEICHNULL.SEC
.LDA Y2.SBC Y1.STA HOEHE ;WEIL KL
EINSTES Y=0.INC HOEHE ;MUSS HOEHE
INCREMENTIERT WERDEN.SEC.LDA X2.SBC X1.
STA R0.LDA X2+1.SBC X1+1.STA R0+1.LOADW
8,R1.DDIV R0,R1 ;BREITE/8 STEHT IN
R0 (LOWBYTE).COP R0,BREITE.TRANSW X1,AL
TX ;RETTEN.; ** UND JETZT GEHT'S LOS *
*.:COPYLOOP.LDX Y1.SCAN.CLC.LDA R5.ADC X
1.STA R5.LDA R5+1.ADC X1+1.STA R5+1.LDY
#0.LDA (R5),Y.STA (ZP1),Y.DINC ZP1
;ZIELZEIGER ERHOEHEN.CLC
;X-KOORD. ERHOEHEN.LDA X1 ;(U
M 8).ADC #8.STA X1.LDA X1+1.ADC #0.STA X
1+1.LDA X2 ;PRUEFEN,OB X1=X2.C
MP X1.BNE COPYLOOP.LDA X2+1.CMP X1+1.BNE
COPYLOOP.LDA Y1 ;PRUEFEN,OB L
ETZTE ZEILE.CMP Y2.BEQ FERTIG.INC Y1
;Y ERHOEHEN.TRANSW ALTX,X1 ;ANF
ANGSWERT ZURUECK.JMP COPYLOOP.;.; ** BIT
MAP PACKEN **.;.:FERTIG.LOADW $A000-1,LE
SE ;LESEZEIGER.LOADW PUFFER+3,WRITE ;S
CHREIBZEIGER.LDA HOEHE.STA R1.STA PUFFER
+1 ;VORBEREITUNG FUER SPEICHERN.
LDA BREITE.STA R2.STA PUFFER ;
'' '' ''.POKE PUFFER+2,0
; '' '' ''.POKE R2+1,
0.BMULT R1,R2.TRANSW R2,BYTES ;BYTEZAH
L.; ** NEUES KOPFBYTE + 1.BYTE SCHREIBEN
**.:NEUERKOPF.LDA #1 ;KOPFBY
TE.LDY #0 ;DATENBYTEANZAHL.LD
X #0 ;DUMMY.STA (WRITE),Y
;KOPFBYTE SPEICHERN.TRANSW WRITE,KOPF ;
ZEIGER AUF KOPFBYTE.INY ;Y
=1.LDA (LESE),Y ;ERSTES DATENBYTE.S
TA (WRITE),Y.PUSHCPU.DDEC BYTES.CMP #0
;LETZTES BYTE ?.BEQ ANZEIGEN1.
POPCPU.INY ;Y=2.LDA (LESE)
,Y ;NAECHSTES LESEN.DEY
;Y=1 (VORHERIGES BYTE).CMP (LESE),Y
;GLEICH ?.BNE GRUPPE2.LDY #3.CMP (LE
SE),Y ;3 GLEICHE BYTES ?.BNE GRUPPE
2.LDY #1.; ** WIEDERHOLUNG **.:GRUPPE1.I
NY ;Y WIEDERHERSTELLEN.TYA
.STA (KOPF),X ;KOPFBYTE=DATENBYTEZA
HL.PUSHCPU.DDEC BYTES.CMP #0
;LETZTES BYTE ?.BEQ ANZEIGEN1.POPCPU.INY
;NAECHSTES BYTE LESEN.LDA
(LESE),Y.DEY ;ZEIGER 1 ZU
RUECK.CMP (LESE),Y ;GLEICH VORHERIG
EM ?.BNE UNGLEICH1.CPY #$7F ;MA
XIMALE ANZAHL VON.BNE GRUPPE1 ;WIE
DERHOLUNGEN ?.; ** WIEDERHOLUNG ZUENDE *
*.:UNGLEICH1.TYA ;ZEIGER I
N AKKU.CLC.ADC LESE ;LESEZG.=.S
TA LESE ;LESEZG.+BYTEZAHL.LDA L
ESE+1.ADC #0.STA LESE+1.DINC WRITE
;WRITEZG.=.DINC WRITE ;WRITEZG.
+2 (KOPFBYTE+1 DATENB.).JMP NEUERKOPF.;
** ALLE BYTES GEPACKT **.:ANZEIGEN1.DINC
WRITE.DINC WRITE.JMP ANZG.; ** KEINE PA
CKMOEGLICHKEIT **.:GRUPPE2.LDY #1.LDA #$
81 ;KOPFBYTE (Y=1).STA (KOPF),X
;SPEICHERN.INY.LDA (LESE),Y ;
ZWEITES.STA (WRITE),Y ;DATENBYTE.TYA
.ORA #$80.STA (KOPF),X ;KOPFBYE +1
(BIT 7 GESETZT).PUSHCPU.DDEC BYTES.CMP #
0.BEQ ANZEIGEN2.POPCPU.:WEITERLESEN.INY
;NAECHSTES BYTE.LDA (LESE)
,Y ;LESEN.DEY ;UND MI
T.CMP (LESE),Y ;VORHERIGEM VERGL..B
NE UNGLEICH.INY.INY.CMP (LESE),Y ;3
GLEICHE ?.PHP ;FLAGS RETT
EN.DEY.DEY.PLP ;FLAGS ZURU
ECK.BEQ GLEICH2.:UNGLEICH.INY
;FALLS NICHT GLEICH,.STA (WRITE),Y
;SPEICHERN.PUSHCPU.DDEC BYTES.CMP #0
;ALLE BYTES ?.BEQ ANZEIGEN2.P
OPCPU.TYA.ORA #$80 ;BIT 7 SETZE
N.STA (KOPF),X ;NEUES KOPFBYTE SPEI
CHERN.CMP #$DB ;MAXIMAL MOEGLIC
HE ANZAHL ?.BNE WEITERLESEN.PUSHCPU.DDEC
BYTES.POPCPU.JMP MAXZAHL.; ** NEUE WIED
ERHOLUNG GEFUNDEN **.:GLEICH2.DEY.TYA.OR
A #$80.STA (KOPF),X ;KOPFBYTE -1.:M
AXZAHL.TYA ;ZEIGER IN AKKU
.CLC.ADC LESE ;LESEZG.=.STA LES
E ;LESEZG.+BYTEZAHL.LDA LESE+1.
ADC #0.STA LESE+1.INY ;DAT
ENBYTES +1 KOPFBYTE.TYA.CLC.ADC WRITE
;WRITE PLUS.STA WRITE ;DAT
ENBYTEZAHL.LDA WRITE+1.ADC #0.STA WRITE+
1.DINC BYTES ;BYTE WIEDER +1.JMP
NEUERKOPF ;NEUES KOPFBYTE.; ** ALLE
BYTES GEPACKT **.:ANZEIGEN2.POPCPU.TYA.C
LC.ADC WRITE ;WRITE PLUS.STA WRI
TE ;DATENBYTEZAHL.LDA WRITE+1.AD
C #0.STA WRITE+1.JMP ANZG.;.; ** PROBEAN
ZEIGEN **.;.:ANZG.POKE $2F,%10000000.CLE
ARAM $A000,8000.BITMAP PUFFER+3,0,0,BREI
TE,HOEHE.WAIT 3.;.; ** FARBCODES HINTER
BITMAP SPEICHERN **.;.;.; * PREFERENCES
LADEN *.;.:NEUDISK.DIALBOX NEWDISK ;
ZIELDISK EINLEGEN.LDA R0.CMP #OK.BEQ DIS
KOEFF.RECVBOX 0,0,319,199 ;BILD WIEDERHE
RSTELLEN.JMP NEUERSCRAP ;UND NEUEN
SCRAP WAEHLEN.:DISKOEFF.OPENDISK.TXA.BEQ
OK3.ERROR NEUDISK.:OK3.FINDFILE PREF.TX
A.BNE ANZAHL ;PREFERENCES NICHT
DA.COP $8400+1,4 ;TRACK.COP $8400
+2,5 ;+BLOCK.GETBLK $8000 ;
PREF. NACH $8000 EINLESEN.TXA.BEQ OK3A.E
RROR NEUDISK.:OK3A.LDA $8000+5 ;
FARBEN ZU EINEM BYTE ZUSAMMENFASSEN.ORA
$8000+6.STA FARBEN.;.; * ANZAHL DER FARB
KACHELN BERECHNEN *.;.:ANZAHL.LSR HOEHE.
LSR HOEHE ;HOEHE=HOEHE/8.LSR HO
EHE.COP HOEHE,ZP1.COP BREITE,ZP2.POKE ZP
2+1,0.BMULT ZP1,ZP2.TRANSW ZP2,KACHELN ;
ANZAHL DER FARBBYTES.DINC KACHELN
;SICHERHEITSHALBER+1.:FARBKOPF.LDA #
0 ;KOPFBYTE.LDY #0.STA (WRIT
E),Y.LDY #1.LDA FARBEN.STA (WRITE),Y
;DATENBYTE.LDY #0.:FARBLOOP.LDA (WRITE
),Y.TAX.INX.TXA.STA (WRITE),Y.DDEC KACHE
LN.CMP #0.BEQ FARBFERT.LDY #0.LDA (WRITE
),Y.CMP #$7F.BNE FARBLOOP.DINC WRITE
;ZEIGER AUF DATENBYTE.DINC WRITE
; '' AUF NAECHSTEN KOPF.JMP FAR
BKOPF.:FARBFERT.DINC WRITE ;ZEIG
ER AUF LETZTES BYTE.DINC WRITE.;.; ** SP
EICHERN **.;.:SPEICHERN.DELETE NEUNAM.LO
ADW PUFFER,LADEADR.TRANSW WRITE,ENDADR.S
AVE INFOBLOCK,1.RENAME NEUNAM,ALTNAM.DES
KTOP.;.; ** DIALOGBOXPARAMETER **.;.:SPR
ACHE.STDDIALBOX 1.TEXTAUS 16,16,SPRTXT.T
EXTAUS 80,34,LANGTX.TEXTAUS 80,58,LANGTX
.TEXTAUS 80,82,QUITTX.USRICON 16,24,ENGL
IC.USRICON 16,48,GERMIC.USRICON 16,72,QU
ITIC.B NULL.;.:TITEL.INITDIALBOX 1,20,17
0,64,255.VARTEXTAUS 16,16,TITELTXT.FELD
OK,136,127.B NULL.;.:INSERTDISK.STDDIALB
OX 1.VARTEXTAUS 16,16,INSERTDISKTXT.FELD
OK,8,72.FELD CANCEL,136,72.B NULL.;.:IO
FEHLER.STDDIALBOX 1.VARTEXTAUS 16,16,FEH
LERMELDUNG.TEXTAUS 16,52,FEHLERNR.FELD O
K,136,72.B NULL.;.:CHOOSEFILES.STDDIALBO
X 1.GETFILES 2,2.FELD OK,136,8.FELD CANC
EL,136,72.B NULL.;.:FILETYPEBOX.STDDIALB
OX 1.VARTEXTAUS 16,16,FEHLERMELDUNG.VART
EXTAUS 16,52,FILETYP.FELD OK,136,72.B NU
LL.;.:BILDOK.STDDIALBOX 1.VARTEXTAUS 16,
16,BILDOKTXT.FELD YES,8,72.FELD NO,136,7
2.B NULL.;.:AUTOSTOP.STDDIALBOX 1.VARTEX
TAUS 16,16,STOPTXT.FELD YES,8,72.FELD NO
,136,72.B NULL.;.:AUSSCHNITTOK.STDDIALBO
X 1.VARTEXTAUS 16,16,SCHNITTOKTXT.FELD Y
ES,8,72.FELD NO,136,72.B NULL.;.:NEWDISK
.STDDIALBOX 1.VARTEXTAUS 16,16,NEWDISKTX
T.FELD OK,8,72.FELD CANCEL,136,72.B NULL
.;.; *** TEXTE, ALLGEMEINE ***.;.:SPRTXT
.B BOLDON,"PLEASE SELECT OPTION:".B NULL
.;.:LANGTX.B PLAINTEXT,"LANGUAGE".B NULL
.;.:QUITTX.B "TO DESKTOP".B NULL.;.; ***
TEXTE, ENGLISCHE ***.;.:TITELTXTE.B ITA
LICON,BOLDON,"GEOS BITMAPCONVERTER V 1.4
4",CR,CR.GOTOX 80.B PLAINTEXT,BOLDON,"DE
SIGNED BY:".GOTOX 160.B PLAINTEXT,OUTLIN
E,"CARSTEN",CR.GOTOX 160.B "CLASOHM",CR,
CR.GOTOX 80.B PLAINTEXT,"MANY THANKS TO
FLORIAN MUELLER FOR",CR.GOTOX 80.B "SEND
ING ME THE IDEA FOR THIS PROGRAM",CR.GOT
OX 80.B "AND FOR WRITING THE BOOK",CR.GO
TOX 80.B 34,"ALLES UEBER GEOS",34,".",CR
,CR.GOTOX 80.B BOLDON,"(C) IN 1987 BY CA
RSTEN CLASOHM",CR,CR.B NULL.;.:INSERTXTE
.B BOLDON,"PLEASE INSERT THE DISK",CR,CR
.GOTOX 80.B "CONTAINING THE BITMAP",CR,C
R.GOTOX 80.B "TO CONVERT.".B NULL.;.:FEH
LERMELDUNGE.B BOLDON,"OPERATION CANCELED
DUE TO",CR,CR.GOTOX 80.B "DISK ERROR:".
B NULL.;.:FILETYPE.B "FILE TYPE MISMATCH
".B NULL.;.:BILDOKTXTE.B BOLDON,"IS THIS
THE RIGHT PICTURE ?".B NULL.;.:STOPTXTE
.B BOLDON,"DO YOU WANT 'AUTOSTOP' ?".B N
ULL.;.:SCHNITTOKTXTE.B BOLDON,"IS THIS T
HE RIGHT SCRAP ?".B NULL.;.:NEWDISKTXTE.
B BOLDON,"PLEASE INSERT A DISK",CR,CR.GO
TOX 80.B "ON WHICH I CAN SAVE",CR,CR.GOT
OX 80.B "THE PHOTOSCRAP.".B NULL.;.; ***
TEXTE, DEUTSCHE ***.;.:TITELTXTD.B ITAL
ICON,BOLDON,"GEOS BITMAPCONVERTER V 1.44
",CR,CR.GOTOX 80.B PLAINTEXT,BOLDON,"GES
CHRIEBEN VON:".GOTOX 175.B PLAINTEXT,OUT
LINE,"CARSTEN",CR.GOTOX 175.B "CLASOHM",
CR,CR.GOTOX 80.B PLAINTEXT,"VIELEN DANK
AN FLORIAN MUELLER",CR.GOTOX 80.B "FUER
DIE IDEE ZU DIESEM PROGRAMM",CR.GOTOX 80
.B "UND FUER DAS SCHREIBEN DES BUCHES",C
R.GOTOX 80.B 34,"ALLES UEBER GEOS",34,".
",CR,CR.GOTOX 80.B BOLDON,"(C) IN 1987 B
Y CARSTEN CLASOHM",CR,CR.B NULL.;.:INSER
TXTD.B BOLDON,"BITTE DIE DISK MIT DER ZU
",CR,CR.GOTOX 80.B "KONVERTIERENDEN BITM
AP",CR,CR.GOTOX 80.B "EINLEGEN.".B NULL.
;.:FEHLERMELDUNGD.B BOLDON,"OPERATION AB
GEBROCHEN",CR,CR.GOTOX 80.B "WEGEN DISKF
EHLER:".B NULL.;.:FILETYPD.B "FALSCHER F
ILETYP".B NULL.;.:BILDOKTXTD.B BOLDON,"I
ST DIES DAS RICHTIGE BILD ?".B NULL.;.:S
TOPTXTD.B BOLDON,"MOECHTEN SIE 'AUTOSTOP
' ?".B NULL.;.:SCHNITTOKTXTD.GOTOX 72.B
BOLDON,"IST DIES DER RICHTIGE AUSSCHNITT
?".B NULL.;.:NEWDISKTXTD.B BOLDON,"BITT
E DIE DISK EINLEGEN,",CR,CR.GOTOX 80.B "
AUF DIE DER AUSSCHNITT",CR,CR.GOTOX 80.B
"GESPEICHERT WERDEN SOLL.".B NULL.;.; *
** FILENAMEN ***.;.:ALTNAM.B 133,176,18,
173,139,254,56,237,3,133,141,139,254,176
,9,206,NULL.;.:NEUNAM.B 80,104,111,116,1
11,32,83,99,114,97,112,NULL.;.:PREF.B 80
,114,101,102,101,114,101,110,99,101,115,
NULL.;.; *** ICONTABELLEN ***.;.:ENGLIC.
ICON ENGLBM,0,0,6,16,ENGLRT.B NULL.;.:GE
RMIC.ICON GERMBM,0,0,7,16,GERMRT.B NULL.
;.:QUITIC.ICON QUITBM,0,0,6,16,QUITRT.B
NULL.;.; *** BITMAPS DER ICONS ***.;.:EN
GLBM.B $05,$FF,$82.B $FE,$80,$04,$00,$C9
,$02,$BF,$00.B $01,$CC,$03,$03,$B0,$00,$
00,$C0.B $03,$03,$B0,$7C,$7C,$DC,$F3,$E3
.B $B0,$76,$CC,$CD,$9B,$B3,$BE,$66.B $CC
,$CD,$83,$33,$B0,$66,$CC,$CC.B $F3,$33,$
B0,$66,$CC,$CC,$1B,$33.B $B0,$66,$CC,$CD
,$9B,$33,$BF,$66.B $7C,$CC,$F3,$33,$80,$
00,$0C,$00.B $00,$03,$80,$00,$CC,$00,$00
,$03.B $80,$00,$78,$00,$00,$03,$06,$FF.B
$81,$3F,$05,$FF.;.:GERMBM.B $06,$FF,$82
.B $FE,$80,$05,$00,$83,$02,$87,$C0.B $04
,$00,$83,$03,$8C,$60,$04,$00.B $B3,$03,$
8C,$07,$9F,$BE,$E3,$CF.B $83,$8C,$0C,$DC
,$3B,$B6,$6E,$C3.B $8D,$EC,$D8,$33,$33,$
EC,$C3,$8C.B $6F,$D8,$33,$36,$6C,$C3,$8C
,$6C.B $18,$33,$36,$6C,$C3,$8C,$6C,$D8.B
$33,$36,$6C,$C3,$87,$C7,$98,$33.B $33,$
EC,$C3,$80,$05,$00,$82,$03.B $80,$05,$00
,$82,$03,$80,$05,$00.B $81,$03,$07,$FF,$
81,$3F,$06,$FF.;.:QUITBM.B $05,$FF,$82.B
$FE,$80,$04,$00,$BE,$02,$80,$0F.B $80,$
19,$80,$03,$80,$18,$C0,$01.B $80,$03,$80
,$18,$D9,$BB,$C0,$03.B $80,$18,$D9,$99,$
80,$03,$80,$18.B $D9,$99,$80,$03,$80,$18
,$D9,$99.B $80,$03,$80,$18,$D9,$99,$80,$
03.B $80,$1B,$DB,$99,$80,$03,$80,$0F.B $
8F,$98,$E0,$03,$80,$00,$C0,$00.B $00,$03
,$80,$04,$00,$82,$03,$80.B $04,$00,$81,$
03,$06,$FF,$81,$3F.B $05,$FF.;.; ** DATE
N **.;.:FARBEN.B 0.:TRACK.:BREITE.B 0.:B
LOCK.:HOEHE.B 0.:X1.B 0,0.:Y1.B 0.:X2.B
0,0.:Y2.B 0.:AKTX.B 0,0.:AKTY.B 0.:ALTX.
B 0,0.:ALTY.B 0.:FARBE.B 0.:NAME.:FLAG1
;AUTOSTOP ?.B 0.:FLAG2 ;Y-BEREICHS
UEBERSCHREITUNG GEBLIEBEN ?.B 0.:FLAG3
;Y GLEICH GEBLIEBEN ?.B 0.:FLAG4 ;X
-BEREICHSUEBERSCHREITUNG GEBLIEBEN ?.B 0
.:FLAG5 ;FREMDAUFRUF DER WARTESCHLEIF
E ?.B 0.:FLAG6 ;AKTY LINKS (0) ODER R
ECHTS ($FF) ?.S 11.:INFOBLOCK.B 0,255,3,
21,191,255,255,255.B 128,64,1,128,96,1,1
28,96.B 1,128,96,13,128,80,53,128.B 80,2
17,128,83,33,128,92,193.B 128,89,1,135,2
06,1,159,200.B 1,184,248,1,177,252,1,191
.B 110,1,156,102,1,128,102,1.B 128,108,1
,128,56,1,128,0.B 1,255,255,255,131,4,0.
:LADEADR.B 0,0.:ENDADR.B 0,0.B 0,0,80,10
4,111.B 116,111,32,83,99,114,97,112.B 32
,86,49,46,48.S 42.B 80.B 104,111,116,111
,32,83,99,114.B 97,112,0,32,119,194,96,1
69.B 66,133,3,169,182,133,2,32.B 0.:PUFF
ER.
> CLICK IMAGE PREVIEW FOR FULL MODAL