64K APFEL

00000000: 01 1C 3B 1C 0A 00 8B C2  28 31 29 B2 35 31 A7 99  |..;.....(1).51..|
00000010: 22 93 0E C2 49 54 54 45  20 C1 53 43 49 49 2F C4  |"...ITTE .SCII/.|
00000020: 49 4E 20 D4 41 53 54 45  20 44 52 BD 43 4B 45 4E  |IN .ASTE DR.CKEN|
00000030: 22 3A 92 31 2C 31 31 35  2C 35 31 00 80 1C 14 00  |":.1,115,51.....|
00000040: 8B CC 28 30 29 B3 B1 30  A7 99 22 93 0E C2 49 54  |..(0)..0.."...IT|
00000050: 54 45 20 49 4E 20 44 45  4E 20 34 30 2D DA 45 49  |TE IN DEN 40-.EI|
00000060: 43 48 45 4E 20 CD 4F 44  55 53 20 53 43 48 41 4C  |CHEN .ODUS SCHAL|
00000070: 54 45 4E 20 21 22 3A 99  C7 28 32 37 29 22 58 22  |TEN !":..(27)"X"|
00000080: 00 DC 1C 1E 00 FE 26 3A  FE 11 22 36 34 4B 20 47  |......&:.."64K G|
00000090: 52 41 50 48 49 43 2E 54  41 42 22 3A FE 11 22 36  |RAPHIC.TAB":.."6|
000000A0: 34 4B 20 47 52 41 50 48  49 43 2E 4F 42 4A 22 3A  |4K GRAPHIC.OBJ":|
000000B0: 9E D1 28 22 31 33 30 33  22 29 3A FE 11 22 43 52  |..("1303"):.."CR|
000000C0: 55 4E 43 48 20 38 30 20  56 34 2E 31 22 3A FE 02  |UNCH 80 V4.1":..|
000000D0: 30 3A 9E D1 28 22 46 30  30 39 22 29 00 09 1D 28  |0:..("F009")...(|
000000E0: 00 FE 02 31 35 3A 99 C7  28 32 37 29 22 58 22 3A  |...15:..(27)"X":|
000000F0: DE 36 2C 31 3A 9E 35 36  30 30 2C 31 35 2C 30 3A  |.6,1:.5600,15,0:|
00000100: 99 C7 28 32 37 29 22 58  22 00 1F 1D 32 00 E7 30  |..(27)"X"...2..0|
00000110: 2C 31 32 3A E7 34 2C 31  34 3A E7 35 2C 31 34 00  |,12:.4,14:.5,14.|
00000120: 53 1D 3C 00 99 22 93 0B  0E 12 C1 50 46 45 4C 4D  |S.<..".....PFELM|
00000130: 41 45 4E 4E 43 48 45 4E  20 49 4E 20 45 49 4E 45  |AENNCHEN IN EINE|
00000140: 52 20 C1 55 46 4C 4F 45  53 55 4E 47 20 56 4F 4E  |R .UFLOESUNG VON|
00000150: 20 20 22 00 84 1D 46 00  99 22 12 37 32 30 20 2A  |  "...F..".720 *|
00000160: 20 37 30 30 20 D0 55 4E  4B 54 45 4E 20 56 4F 4E  | 700 .UNKTEN VON|
00000170: 20 D4 4F 52 53 54 45 4E  20 CB 52 41 43 4B 45 20  | .ORSTEN .RACKE |
00000180: 20 20 20 22 00 A4 1D 50  00 99 22 11 1D 28 CE 29  |   "...P.."..(.)|
00000190: 45 55 45 53 20 C2 49 4C  44 20 42 45 52 45 43 48  |EUES .ILD BERECH|
000001A0: 4E 45 4E 22 00 C9 1D 5A  00 99 22 1D 28 C1 29 4C  |NEN"...Z..".(.)L|
000001B0: 54 45 53 20 C2 49 4C 44  20 57 45 49 54 45 52 42  |TES .ILD WEITERB|
000001C0: 45 52 45 43 48 4E 45 4E  22 00 E2 1D 64 00 99 22  |ERECHNEN"...d.."|
000001D0: 1D 28 C6 29 41 52 42 45  4E 20 41 45 4E 44 45 52  |.(.)ARBEN AENDER|
000001E0: 4E 22 00 F4 1D 6E 00 99  22 1D 28 C4 29 49 41 53  |N"...n..".(.)IAS|
000001F0: 48 4F 57 22 00 04 1E 78  00 99 22 11 1D 28 C5 29  |HOW"...x.."..(.)|
00000200: 4E 44 45 22 00 0D 1E 82  00 A1 F9 41 24 00 1D 1E  |NDE".......A$...|
00000210: 8C 00 8B 41 24 B2 22 41  22 A7 34 36 30 00 2D 1E  |...A$."A".460.-.|
00000220: 96 00 8B 41 24 B2 22 46  22 A7 35 32 30 00 3D 1E  |...A$."F".520.=.|
00000230: A0 00 8B 41 24 B2 22 44  22 A7 36 34 30 00 58 1E  |...A$."D".640.X.|
00000240: AA 00 8B 41 24 B2 22 45  22 A7 99 C7 28 32 37 29  |...A$."E"...(27)|
00000250: 22 58 22 3A DE 35 3A 80  00 69 1E B4 00 8B 41 24  |"X":.5:..i....A$|
00000260: B3 B1 22 4E 22 A7 31 33  30 00 8C 1E BE 00 85 22  |.."N".130......"|
00000270: 11 1D CC 49 4E 4B 45 52  20 20 D2 41 4E 44 20 22  |...INKER  .AND "|
00000280: 3B 4C 49 3A 52 4F B2 4C  49 AC AB 31 00 AE 1E C8  |;LI:RO.LI..1....|
00000290: 00 85 22 1D D2 45 43 48  54 45 52 20 D2 41 4E 44  |.."..ECHTER .AND|
000002A0: 20 22 3B 52 45 3A 52 55  B2 52 45 AC AB 31 00 C7  | ";RE:RU.RE..1..|
000002B0: 1E D2 00 85 22 1D D5 4E  54 45 52 45 52 20 D2 41  |...."..NTERER .A|
000002C0: 4E 44 20 22 3B 49 55 00  E0 1E DC 00 85 22 1D CF  |ND ";IU......"..|
000002D0: 42 45 52 45 52 20 20 D2  41 4E 44 20 22 3B 49 4F  |BERER  .AND ";IO|
000002E0: 00 1C 1F E6 00 85 22 11  1D C9 54 45 52 41 54 49  |......"...TERATI|
000002F0: 4F 4E 45 4E 20 28 3E 34  2C 3C 32 35 35 29 20 22  |ONEN (>4,<255) "|
00000300: 3B 4E 4D 3A 8B 4E 4D B3  35 B0 4E 4D B1 32 35 34  |;NM:.NM.5.NM.254|
00000310: A7 99 22 91 91 22 3B 3A  89 32 33 30 00 35 1F F0  |.."..";:.230.5..|
00000320: 00 99 22 11 1D C5 49 4E  47 41 42 45 4E 20 CF 2E  |.."...INGABEN ..|
00000330: CB 2E 20 3F 22 00 57 1F  FA 00 A1 F9 41 24 3A 8B  |.. ?".W.....A$:.|
00000340: 41 24 B2 22 4E 22 A7 36  30 3A D5 8B 41 24 B3 B1  |A$."N".60:..A$..|
00000350: 22 4A 22 A7 32 35 30 00  C3 1F 04 01 99 22 11 CF  |"J".250......"..|
00000360: 2E CB 2E 20 D7 41 45 48  52 45 4E 44 20 44 45 53  |... .AEHREND DES|
00000370: 20 D2 45 43 48 45 4E 56  4F 52 47 41 4E 47 53 20  | .ECHENVORGANGS |
00000380: 4B 4F 45 4E 4E 45 4E D3  49 45 20 4D 49 54 20 5F  |KOENNEN.IE MIT _|
00000390: 20 53 50 45 49 43 48 45  52 4E 2E 12 C2 49 54 54  | SPEICHERN...ITT|
000003A0: 45 20 D4 41 53 54 45 20  44 52 55 45 43 4B 45 4E  |E .ASTE DRUECKEN|
000003B0: 22 3A A1 F9 41 24 3A 99  C7 28 32 37 29 22 58 22  |":..A$:..(27)"X"|
000003C0: 3A FE 25 00 ED 1F 0E 01  44 41 B2 28 52 4F AB 52  |:.%.....DA.(RO.R|
000003D0: 55 29 AD 37 32 30 3A 44  42 B2 28 49 4F AB 49 55  |U).720:DB.(IO.IU|
000003E0: 29 AD 37 30 30 3A 42 B2  49 55 AB 44 42 00 2A 20  |).700:B.IU.DB.* |
000003F0: 18 01 81 55 B2 55 53 A4  36 39 39 3A 42 B2 42 AA  |...U.US.699:B.B.|
00000400: 44 42 3A 41 B2 52 55 AB  44 41 3A 81 56 B2 30 A4  |DB:A.RU.DA:.V.0.|
00000410: 37 31 39 3A 41 B2 41 AA  44 41 3A 4E B2 30 3A 52  |719:A.A.DA:N.0:R|
00000420: B2 30 3A 49 B2 30 3A 44  B2 30 00 38 20 22 01 8B  |.0:I.0:D.0.8 "..|
00000430: 44 B1 B2 34 A7 33 33 30  00 6A 20 2C 01 58 B2 52  |D..4.330.j ,.X.R|
00000440: 3A 59 B2 49 3A 52 B2 58  AC 58 AB 59 AC 59 AA 41  |:Y.I:R.X.X.Y.Y.A|
00000450: 3A 49 B2 32 AC 58 AC 59  AA 42 3A 44 B2 52 AC 52  |:I.2.X.Y.B:D.R.R|
00000460: AA 49 AC 49 3A 4E B2 4E  AA 31 00 78 20 36 01 8B  |.I.I:N.N.1.x 6..|
00000470: 4E B2 4E 4D A7 33 36 30  00 81 20 40 01 89 32 39  |N.NM.360.. @..29|
00000480: 30 00 9A 20 4A 01 8B 4E  AB B5 28 4E AD 32 29 AC  |0.. J..N..(N.2).|
00000490: 32 B2 31 A7 3A E5 2C 56  2C 55 00 A1 20 68 01 82  |2.1.:.,V,U.. h..|
000004A0: 56 00 B5 20 72 01 A1 41  24 3A 8B 41 24 B2 22 5F  |V.. r..A$:.A$."_|
000004B0: 22 A7 34 31 30 00 BC 20  7C 01 82 55 00 06 21 86  |".410.. |..U..!.|
000004C0: 01 99 C7 28 32 37 29 22  58 22 3B 3A FE 26 3A 85  |...(27)"X";:.&:.|
000004D0: 22 93 CE 55 4D 4D 45 52  20 44 45 53 20 C2 49 4C  |"..UMMER DES .IL|
000004E0: 44 45 53 20 22 3B 4E 41  24 3A F2 22 42 49 4C 44  |DES ";NA$:."BILD|
000004F0: 2E 41 50 46 45 4C 22 3A  F2 22 44 41 54 45 4E 2E  |.APFEL":."DATEN.|
00000500: 41 50 46 45 4C 22 00 3A  21 90 01 FE 02 30 3A 9E  |APFEL".:!....0:.|
00000510: D1 28 22 46 30 30 30 22  29 2C 38 2C 30 2C 32 35  |.("F000"),8,0,25|
00000520: 35 2C 2C 22 36 34 41 50  46 45 4C 20 22 AA 4E 41  |5,,"64APFEL ".NA|
00000530: 24 3A FE 02 31 35 3A 89  34 30 00 90 21 9A 01 99  |$:..15:.40..!...|
00000540: C7 28 32 37 29 22 58 22  3B 3A FE 26 3A 99 22 93  |.(27)"X";:.&:.".|
00000550: C4 41 53 20 C2 49 4C 44  20 57 49 52 44 20 5A 57  |.AS .ILD WIRD ZW|
00000560: 49 53 43 48 45 4E 47 45  53 50 45 49 43 48 45 52  |ISCHENGESPEICHER|
00000570: 54 2E 22 3A F2 22 42 49  4C 44 2E 41 50 46 45 4C  |T.":."BILD.APFEL|
00000580: 22 3A F2 22 44 41 54 45  4E 2E 41 50 46 45 4C 22  |":."DATEN.APFEL"|
00000590: 00 B9 21 A4 01 FE 02 30  3A 9E D1 28 22 46 30 30  |..!....0:..("F00|
000005A0: 30 22 29 2C 38 2C 30 2C  32 35 35 2C 2C 22 42 49  |0"),8,0,255,,"BI|
000005B0: 4C 44 2E 41 50 46 45 4C  22 00 D6 21 AE 01 9F 31  |LD.APFEL"..!...1|
000005C0: 2C 38 2C 32 2C 22 44 41  54 45 4E 2E 41 50 46 45  |,8,2,"DATEN.APFE|
000005D0: 4C 2C 50 2C 57 22 00 30  22 B8 01 98 31 2C C4 28  |L,P,W".0"...1,.(|
000005E0: 55 AA 31 29 3B C7 28 31  33 29 3B C4 28 42 29 3B  |U.1);.(13);.(B);|
000005F0: C7 28 31 33 29 3B C4 28  44 42 29 3B C7 28 31 33  |.(13);.(DB);.(13|
00000600: 29 3B C4 28 41 29 3B C7  28 31 33 29 3B C4 28 52  |);.(A);.(13);.(R|
00000610: 55 29 3B C7 28 31 33 29  3B C4 28 44 41 29 3B C7  |U);.(13);.(DA);.|
00000620: 28 31 33 29 3B C4 28 4E  4D 29 3B C7 28 31 33 29  |(13);.(NM);.(13)|
00000630: 00 40 22 C2 01 A0 31 3A  FE 02 31 35 3A 89 34 30  |.@"...1:..15:.40|
00000640: 00 6B 22 CC 01 FE 02 30  3A 9E D1 28 22 46 30 30  |.k"....0:..("F00|
00000650: 33 22 29 2C 38 2C 31 2C  2C 2C 22 42 49 4C 44 2E  |3"),8,1,,,"BILD.|
00000660: 41 50 46 45 4C 22 3A FE  02 31 35 00 88 22 D6 01  |APFEL":..15.."..|
00000670: 9F 31 2C 38 2C 32 2C 22  44 41 54 45 4E 2E 41 50  |.1,8,2,"DATEN.AP|
00000680: 46 45 4C 2C 50 2C 52 22  00 AB 22 E0 01 84 31 2C  |FEL,P,R".."...1,|
00000690: 41 31 24 2C 41 32 24 2C  41 33 24 2C 41 34 24 2C  |A1$,A2$,A3$,A4$,|
000006A0: 41 35 24 2C 41 36 24 2C  41 37 24 00 B2 22 EA 01  |A5$,A6$,A7$.."..|
000006B0: A0 31 00 FA 22 F4 01 55  53 B2 C5 28 41 31 24 29  |.1.."..US..(A1$)|
000006C0: 3A 42 B2 C5 28 41 32 24  29 3A 44 42 B2 C5 28 41  |:B..(A2$):DB..(A|
000006D0: 33 24 29 3A 41 B2 C5 28  41 34 24 29 3A 52 55 B2  |3$):A..(A4$):RU.|
000006E0: C5 28 41 35 24 29 3A 44  41 B2 C5 28 41 36 24 29  |.(A5$):DA..(A6$)|
000006F0: 3A 4E 4D B2 C5 28 41 37  24 29 00 10 23 FE 01 99  |:NM..(A7$)..#...|
00000700: C7 28 32 37 29 22 58 22  3A FE 25 3A 89 32 38 30  |.(27)"X":.%:.280|
00000710: 00 41 23 08 02 85 22 93  CE 55 4D 4D 45 52 20 44  |.A#..."..UMMER D|
00000720: 45 53 20 C2 49 4C 44 45  53 20 28 24 3D C2 49 4C  |ES .ILDES ($=.IL|
00000730: 44 44 49 52 45 43 54 4F  52 59 29 20 22 3B 4E 41  |DDIRECTORY) ";NA|
00000740: 24 00 67 23 12 02 8B 4E  41 24 B2 22 24 22 A7 99  |$.g#...NA$."$"..|
00000750: 3A EE 22 36 34 41 50 46  45 4C 20 2A 22 3A A1 F9  |:."64APFEL *":..|
00000760: 41 24 3A 89 35 32 30 00  AE 23 1C 02 FE 25 3A FE  |A$:.520..#...%:.|
00000770: 02 30 3A 9E D1 28 22 46  30 30 33 22 29 2C 38 2C  |.0:..("F003"),8,|
00000780: 31 2C 2C 2C 22 36 34 41  50 46 45 4C 20 22 AA 4E  |1,,,"64APFEL ".N|
00000790: 41 24 3A FE 26 3A FE 02  31 35 3A 9E D1 28 22 43  |A$:.&:..15:..("C|
000007A0: 44 44 41 22 29 2C 2C 32  36 3A FE 09 48 56 00 C8  |DDA"),,26:..HV..|
000007B0: 23 26 02 99 22 11 1D 12  31 20 3D 20 C8 49 4E 54  |#&.."...1 = .INT|
000007C0: 45 52 47 52 55 4E 44 22  00 E1 23 30 02 99 22 1D  |ERGRUND"..#0..".|
000007D0: 12 32 20 3D 20 D6 4F 52  44 45 52 47 52 55 4E 44  |.2 = .ORDERGRUND|
000007E0: 22 00 F9 23 3A 02 99 22  11 1D 12 33 20 3D 20 D3  |"..#:.."...3 = .|
000007F0: 50 45 49 43 48 45 52 4E  22 00 15 24 44 02 56 46  |PEICHERN"..$D.VF|
00000800: B2 B5 28 48 56 AD 31 36  29 3A 48 46 B2 48 56 AB  |..(HV.16):HF.HV.|
00000810: 56 46 AC 31 36 00 2A 24  4E 02 9E 35 36 30 30 2C  |VF.16.*$N..5600,|
00000820: 56 46 2C 48 46 3A A1 F9  41 24 00 41 24 58 02 8B  |VF,HF:..A$.A$X..|
00000830: 41 24 B2 22 31 22 A7 48  46 B2 48 46 AA 31 AF 31  |A$."1".HF.HF.1.1|
00000840: 35 00 58 24 62 02 8B 41  24 B2 22 32 22 A7 56 46  |5.X$b..A$."2".VF|
00000850: B2 56 46 AA 31 AF 31 35  00 79 24 6C 02 8B 41 24  |.VF.1.15.y$l..A$|
00000860: B2 22 33 22 A7 F2 22 36  34 41 50 46 45 4C 20 22  |."3".."64APFEL "|
00000870: AA 4E 41 24 3A 89 34 30  30 00 82 24 76 02 89 35  |.NA$:.400..$v..5|
00000880: 39 30 00 B1 24 80 02 85  22 93 D7 49 45 56 49 45  |90..$..."..IEVIE|
00000890: 4C 45 20 C2 49 4C 44 45  52 20 28 24 3D C2 49 4C  |LE .ILDER ($=.IL|
000008A0: 44 44 49 52 45 43 54 4F  52 59 29 20 22 3B 4E 41  |DDIRECTORY) ";NA|
000008B0: 24 00 E2 24 8A 02 8B 4E  41 24 B2 22 24 22 A7 99  |$..$...NA$."$"..|
000008C0: 3A EE 22 36 34 41 50 46  45 4C 20 2A 22 3A A1 F9  |:."64APFEL *":..|
000008D0: 41 24 3A 89 36 34 30 3A  D5 4E 41 B2 C5 28 4E 41  |A$:.640:.NA..(NA|
000008E0: 24 29 00 2B 25 94 02 FE  25 3A FE 02 30 3A 81 49  |$).+%...%:..0:.I|
000008F0: B2 31 A4 4E 41 3A 4E 41  24 B2 C4 28 49 29 3A 9E  |.1.NA:NA$..(I):.|
00000900: D1 28 22 46 30 30 33 22  29 2C 38 2C 31 2C 2C 2C  |.("F003"),8,1,,,|
00000910: 22 36 34 41 50 46 45 4C  22 AA 4E 41 24 3A A1 F9  |"64APFEL".NA$:..|
00000920: 41 24 3A 82 3A FE 26 3A  89 34 30 00 00 00        |A$:.:.&:.40...  |

..;....B(1).51.."..BITTE ASCII/DIN TASTE
 DR.CKEN":.1,115,51......L(0)..0.."..BIT
TE IN DEN 40-ZEICHEN MODUS SCHALTEN !":.
G(27)"X"......&:.."64K GRAPHIC.TAB":.."6
4K GRAPHIC.OBJ":.Q("1303"):.."CRUNCH 80 
V4.1":..0:.Q("F009")...(...15:.G(27)"X":
.6,1:.5600,15,0:.G(27)"X"...2..0,12:.4,1
4:.5,14.S.<.."....APFELMAENNCHEN IN EINE
R AUFLOESUNG VON  "...F..".720 * 700 PUN
KTEN VON TORSTEN KRACKE    "...P.."..(N)
EUES BILD BERECHNEN".I.Z..".(A)LTES BILD
 WEITERBERECHNEN"...D..".(F)ARBEN AENDER
N"...N..".(D)IASHOW"...X.."..(E)NDE"....
...A$......A$."A".460.-....A$."F".520.=.
 ..A$."D".640.X....A$."E"..G(27)"X":.5:.
.I....A$.."N".130......"..LINKER  RAND "
;LI:RO.LI..1...H..".RECHTER RAND ";RE:RU
.RE..1.G.R..".UNTERER RAND ";IU......".O
BERER  RAND ";IO......"..ITERATIONEN (>4
,<255) ";NM:.NM.5.NM.254.."..";:.230.5..
.."..EINGABEN O.K. ?".W.....A$:.A$."N".6
0:U.A$.."J".250.C....".O.K. WAEHREND DES
 RECHENVORGANGS KOENNENSIE MIT _ SPEICHE
RN..BITTE TASTE DRUECKEN":..A$:.G(27)"X"
:.%.....DA.(RO.RU).720:DB.(IO.IU).700:B.
IU.DB.* ...U.US.699:B.B.DB:A.RU.DA:.V.0.
719:A.A.DA:N.0:R.0:I.0:D.0.8 "..D..4.330
.J ,.X.R:Y.I:R.X.X.Y.Y.A:I.2.X.Y.B:D.R.R
.I.I:N.N.1.X 6..N.NM.360.. @..290.. J..N
..(N.2).2.1.:.,V,U.. H..V.. R..A$:.A$."_
".410.. |..U..!...G(27)"X";:.&:.".NUMMER
 DES BILDES ";NA$:."BILD.APFEL":."DATEN.
APFEL".:!....0:.Q("F000"),8,0,255,,"64AP
FEL ".NA$:..15:.40..!...G(27)"X";:.&:.".
DAS BILD WIRD ZWISCHENGESPEICHERT.":."BI
LD.APFEL":."DATEN.APFEL"..!....0:.Q("F00
0"),8,0,255,,"BILD.APFEL".V!...1,8,2,"DA
TEN.APFEL,P,W".0"...1,D(U.1);G(13);D(B);
G(13);D(DB);G(13);D(A);G(13);D(RU);G(13)
;D(DA);G(13);D(NM);G(13).@"B. 1:..15:.40
.K"L...0:.Q("F003"),8,1,,,"BILD.APFEL":.
.15.."V..1,8,2,"DATEN.APFEL,P,R".."...1,
A1$,A2$,A3$,A4$,A5$,A6$,A7$..".. 1.."..U
S.E(A1$):B.E(A2$):DB.E(A3$):A.E(A4$):RU.
E(A5$):DA.E(A6$):NM.E(A7$)..#...G(27)"X"
:.%:.280.A#...".NUMMER DES BILDES ($=BIL
DDIRECTORY) ";NA$.G#...NA$."$"..:."64APF
EL *":..A$:.520..#...%:..0:.Q("F003"),8,
1,,,"64APFEL ".NA$:.&:..15:.Q("CDDA"),,2
6:..HV.H#&.."...1 = HINTERGRUND"..#0..".
.2 = VORDERGRUND"..#:.."...3 = SPEICHERN
"..$D.VF..(HV.16):HF.HV.VF.16.*$N..5600,
VF,HF:..A$.A$X..A$."1".HF.HF.1.15.X$B..A
$."2".VF.VF.1.15.Y$L..A$."3".."64APFEL "
.NA$:.400..$V..590..$...".WIEVIELE BILDE
R ($=BILDDIRECTORY) ";NA$..$...NA$."$"..
:."64APFEL *":..A$:.640:UNA.E(NA$).+%...
%:..0:.I.1.NA:NA$.D(I):.Q("F003"),8,1,,,
"64APFEL".NA$:..A$:.:.&:.40...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL