00000000: 01 1C 17 1C E8 03 E7 30 2C 31 36 3A E7 34 2C 31 |.......0,16:.4,1|
00000010: 36 3A E7 35 2C 31 32 00 44 1C F2 03 54 41 24 B2 |6:.5,12.D...TA$.|
00000020: 22 20 20 20 20 20 20 20 20 20 20 22 3A 54 41 24 |" ":TA$|
00000030: B2 54 41 24 AA 54 41 24 3A 54 41 24 B2 54 41 24 |.TA$.TA$:TA$.TA$|
00000040: AA 54 41 24 00 7C 1C FC 03 47 4E B2 38 20 20 20 |.TA$.|...GN.8 |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 22 20 | :." |
00000070: C7 45 52 BB 54 45 4E 55 4D 4D 45 52 00 86 1C 06 |.ER.TENUMMER....|
00000080: 04 8D 31 34 34 30 00 90 1C 10 04 8C 31 35 33 30 |..1440......1530|
00000090: 00 A3 1C 1A 04 99 C7 28 31 34 29 C7 28 37 29 C7 |.......(14).(7).|
000000A0: 28 38 29 00 D3 1C 24 04 99 22 11 11 20 20 C4 49 |(8)...$..".. .I|
000000B0: 45 53 45 53 20 D0 52 4F 47 52 41 4D 4D 20 47 45 |ESES .ROGRAMM GE|
000000C0: 4E 45 52 49 45 52 54 20 45 49 4E 45 4E 20 C2 4F |NERIERT EINEN .O|
000000D0: 4F 54 2D 00 05 1D 2E 04 99 22 20 20 D3 45 43 54 |OT-......" .ECT|
000000E0: 4F 52 20 41 55 46 20 D4 52 41 43 4B 20 12 31 92 |OR AUF .RACK .1.|
000000F0: 20 D3 45 43 54 4F 52 20 12 30 92 20 2C 20 44 45 | .ECTOR .0. , DE|
00000100: 52 20 44 45 4E 00 33 1D 38 04 99 22 20 20 C3 3D |R DEN.3.8.." .=|
00000110: 20 31 32 38 20 42 45 49 4D 20 C5 49 4E 53 43 48 | 128 BEIM .INSCH|
00000120: 41 4C 54 45 4E 20 56 45 52 41 4E 4C 41 BE 54 20 |ALTEN VERANLA.T |
00000130: 45 49 4E 00 79 1D 42 04 99 22 20 20 42 45 53 54 |EIN.y.B.." BEST|
00000140: 49 4D 4D 54 45 53 20 C2 C1 D3 C9 C3 20 2D 20 D0 |IMMTES ..... - .|
00000150: 52 4F 47 52 41 4D 4D 20 20 5A 55 20 4C 41 44 45 |ROGRAMM ZU LADE|
00000160: 4E 22 3A 99 22 20 20 55 4E 44 20 5A 55 20 53 54 |N":." UND ZU ST|
00000170: 41 52 54 45 4E 2E 11 11 11 00 B1 1D 4C 04 41 24 |ARTEN.......L.A$|
00000180: B2 22 28 C3 29 4F 50 59 52 49 47 48 54 20 20 42 |."(.)OPYRIGHT B|
00000190: 59 22 3A 8D 31 34 37 30 3A 41 24 B2 22 C4 49 52 |Y":.1470:A$.".IR|
000001A0: 4B 20 D0 41 45 53 53 4C 45 52 22 3A 8D 31 34 37 |K .AESSLER":.147|
000001B0: 30 00 CE 1D 56 04 41 24 B2 22 CC BB 52 43 48 45 |0...V.A$."..RCHE|
000001C0: 4E 57 45 47 20 20 38 22 3A 8D 31 34 37 30 00 F3 |NWEG 8":.1470..|
000001D0: 1D 60 04 41 24 B2 22 38 35 32 30 20 C5 52 4C 41 |.`.A$."8520 .RLA|
000001E0: 4E 47 45 4E 22 3A 8D 31 34 37 30 3A 99 3A 99 3A |NGEN":.1470:.:.:|
000001F0: 99 3A 99 00 FD 1D 6A 04 8D 31 35 30 30 00 07 1E |.:....j..1500...|
00000200: 74 04 8D 31 34 34 30 00 52 1E 7E 04 9F 31 35 2C |t..1440.R.~..15,|
00000210: 47 4E 2C 31 35 2C 22 49 22 20 20 20 20 20 20 20 |GN,15,"I" |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 22 20 | :." |
00000230: C2 45 46 45 48 4C 53 4B 41 4E 41 4C 20 45 52 BC |.EFEHLSKANAL ER.|
00000240: 46 4E 45 4E 20 55 4E 44 20 C4 49 53 4B 2D C9 4E |FNEN UND .ISK-.N|
00000250: 49 54 00 8F 1E 88 04 9F 20 31 2C 47 4E 2C 20 36 |IT...... 1,GN, 6|
00000260: 2C 22 23 22 20 20 20 20 20 20 20 20 20 20 20 20 |,"#" |
00000270: 20 20 20 20 20 20 20 3A 8F 22 20 C4 49 52 45 4B | :." .IREK|
00000280: 54 4B 41 4E 41 4C 20 45 52 BC 46 46 4E 45 4E 00 |TKANAL ER.FFNEN.|
00000290: CF 1E 92 04 98 31 35 2C 22 42 2D 41 3A 30 20 31 |.....15,"B-A:0 1|
000002A0: 20 30 22 3A 8B 44 53 B3 B1 36 35 A7 31 32 34 30 | 0":.DS..65.1240|
000002B0: 3A 8F 22 20 49 53 54 20 44 45 52 20 C2 4C 4F 43 |:." IST DER .LOC|
000002C0: 4B 20 4E 4F 43 48 20 46 52 45 49 20 3F 3F 3F 00 |K NOCH FREI ???.|
000002D0: F3 1E 9C 04 41 24 B2 22 C2 4C 4F 43 4B 20 31 3A |....A$.".LOCK 1:|
000002E0: 30 20 49 53 54 20 42 45 4C 45 47 54 22 3A 8D 31 |0 IST BELEGT":.1|
000002F0: 34 37 30 00 14 1F A6 04 99 22 07 11 20 3C 46 3E |470......".. <F>|
00000300: 20 2E 2E 2E 20 C2 4C 4F 43 4B 20 46 52 45 49 47 | ... .LOCK FREIG|
00000310: 45 42 45 4E 00 39 1F B0 04 99 22 11 20 3C 4E 3E |EBEN.9....". <N>|
00000320: 20 2E 2E 2E 20 4E 4F 43 48 45 49 4E 4D 41 4C 20 | ... NOCHEINMAL |
00000330: 56 45 52 53 55 43 48 45 4E 00 5D 1F BA 04 99 22 |VERSUCHEN.]...."|
00000340: 11 20 3C 41 3E 20 2E 2E 2E 20 D6 4F 52 47 41 4E |. <A> ... .ORGAN|
00000350: 47 20 41 42 42 52 45 43 48 45 4E 11 11 00 83 1F |G ABBRECHEN.....|
00000360: C4 04 8D 31 35 30 30 3A 8B 41 24 B2 22 41 22 A7 |...1500:.A$."A".|
00000370: 31 34 30 30 3A D5 3A 8B 41 24 B2 22 4E 22 A7 31 |1400:.:.A$."N".1|
00000380: 31 37 30 00 9D 1F CE 04 8B 41 24 B3 B1 22 46 22 |170......A$.."F"|
00000390: A7 99 22 07 91 22 3B 3A 89 31 32 32 30 00 DA 1F |.."..";:.1220...|
000003A0: D8 04 98 31 35 2C 22 42 2D 46 3A 30 20 31 20 30 |...15,"B-F:0 1 0|
000003B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000003C0: 3A 8F 22 20 C2 4C 4F 43 4B 20 57 49 45 44 45 52 |:." .LOCK WIEDER|
000003D0: 20 46 52 45 49 47 45 42 45 4E 00 FB 1F E2 04 99 | FREIGEBEN......|
000003E0: 22 11 11 07 12 C2 4F 4F 54 4E 41 43 48 52 49 43 |".....OOTNACHRIC|
000003F0: 48 54 20 3A 11 22 3A 85 41 31 24 00 1B 20 EC 04 |HT :.":.A1$.. ..|
00000400: 99 22 11 11 07 12 D0 52 4F 47 52 41 4D 4D 4E 41 |.".....ROGRAMMNA|
00000410: 4D 45 20 3A 11 22 3A 85 50 52 24 00 47 20 F6 04 |ME :.":.PR$.G ..|
00000420: 98 31 35 2C 22 42 2D 50 20 36 20 30 22 3A 98 31 |.15,"B-P 6 0":.1|
00000430: 2C 22 43 42 4D 22 C7 28 30 29 C7 28 30 29 C7 28 |,"CBM".(0).(0).(|
00000440: 30 29 C7 28 30 29 3B 00 61 20 00 05 98 31 2C 41 |0).(0);.a ...1,A|
00000450: 31 24 3B C7 28 30 29 3B 50 52 24 3B C7 28 30 29 |1$;.(0);PR$;.(0)|
00000460: 3B 00 89 20 0A 05 87 41 24 3A EB FD 41 24 B3 B1 |;.. ...A$:..A$..|
00000470: 22 45 4E 44 45 22 3A 98 31 2C C7 28 D1 28 41 24 |"ENDE":.1,.(.(A$|
00000480: 29 29 3B 3A 87 41 24 3A EC 00 9E 20 14 05 98 31 |));:.A$:... ...1|
00000490: 35 2C 22 55 32 20 36 20 30 20 31 20 30 22 00 AD |5,"U2 6 0 1 0"..|
000004A0: 20 1E 05 8B 44 53 B2 30 A7 31 33 33 30 00 D7 20 | ...DS.0.1330.. |
000004B0: 28 05 99 22 07 12 D3 43 48 52 45 49 42 46 45 48 |(.."...CHREIBFEH|
000004C0: 4C 45 52 92 20 3A 20 22 44 53 24 3A 8D 31 35 30 |LER. : "DS$:.150|
000004D0: 30 3A 89 31 34 30 30 00 0B 21 32 05 98 31 35 2C |0:.1400..!2..15,|
000004E0: 22 42 2D 41 3A 30 20 31 20 30 22 20 20 20 20 20 |"B-A:0 1 0" |
000004F0: 20 20 20 20 20 20 20 20 20 20 3A 8F 22 20 C2 4C | :." .L|
00000500: 4F 43 4B 20 42 45 4C 45 47 45 4E 00 2F 21 3C 05 |OCK BELEGEN./!<.|
00000510: A0 31 3A 9F 31 2C 38 2C 36 2C 50 52 24 AA 22 2C |.1:.1,8,6,PR$.",|
00000520: 50 2C 52 22 3A 8B 44 53 B2 30 A7 31 33 36 30 00 |P,R":.DS.0.1360.|
00000530: 56 21 46 05 99 22 07 12 C4 49 53 4B 46 45 48 4C |V!F.."...ISKFEHL|
00000540: 45 52 92 20 3A 20 22 44 53 24 3A 8D 31 35 30 30 |ER. : "DS$:.1500|
00000550: 3A 89 31 34 30 30 00 80 21 50 05 A1 23 31 2C 41 |:.1400..!P..#1,A|
00000560: 24 2C 42 24 3A 41 B2 C6 28 41 24 AA C7 28 30 29 |$,B$:A..(A$..(0)|
00000570: 29 AA C6 28 42 24 AA C7 28 30 29 29 AC 32 35 36 |)..(B$..(0)).256|
00000580: 00 96 21 5A 05 8B 41 B2 D1 28 22 31 43 30 31 22 |..!Z..A..("1C01"|
00000590: 29 A7 31 33 39 30 00 D0 21 64 05 99 22 D3 54 41 |).1390..!d..".TA|
000005A0: 52 54 41 44 52 45 53 53 45 20 44 45 53 20 D0 52 |RTADRESSE DES .R|
000005B0: 4F 47 52 41 4D 4D 53 20 4E 49 43 48 54 20 52 49 |OGRAMMS NICHT RI|
000005C0: 43 48 54 49 47 22 3A 99 3A 99 3A 8D 31 35 30 30 |CHTIG":.:.:.1500|
000005D0: 00 06 22 6E 05 99 22 07 22 3A 99 3A 99 3A 41 24 |.."n..".":.:.:A$|
000005E0: B2 22 C1 55 46 54 52 41 47 20 56 4F 4C 4C 45 4E |.".UFTRAG VOLLEN|
000005F0: 44 45 54 22 3A 8D 31 34 37 30 3A 99 3A 99 3A 99 |DET":.1470:.:.:.|
00000600: 3A 8D 31 35 30 30 00 15 22 78 05 8F 22 D0 D2 C7 |:.1500.."x.."...|
00000610: 20 C5 4E 44 45 00 26 22 82 05 A0 31 3A A0 31 35 | .NDE.&"...1:.15|
00000620: 3A 89 31 30 33 30 00 2C 22 8C 05 80 00 32 22 96 |:.1030.,"....2".|
00000630: 05 3A 00 42 22 A0 05 8F 22 CB 4F 50 46 5A 45 49 |.:.B"...".OPFZEI|
00000640: 4C 45 00 74 22 AA 05 99 22 13 13 93 12 22 54 41 |LE.t"..."...."TA|
00000650: 24 22 13 22 3B 3A 41 24 B2 22 C1 55 54 4F 53 54 |$".";:A$.".UTOST|
00000660: 41 52 54 20 31 32 38 22 3A 8D 31 34 37 30 3A 99 |ART 128":.1470:.|
00000670: 3A 99 3A 8E 00 7A 22 B4 05 3A 00 A0 22 BE 05 8F |:.:..z"..:.."...|
00000680: 22 DA 45 49 4C 45 20 41 55 46 20 34 30 20 DA 45 |".EILE AUF 40 .E|
00000690: 49 43 48 45 4E 20 5A 45 4E 54 52 49 45 52 45 4E |ICHEN ZENTRIEREN|
000006A0: 00 C2 22 C8 05 41 24 B2 C8 28 54 41 24 2C 28 34 |.."..A$..(TA$,(4|
000006B0: 30 AB C3 28 41 24 29 29 AD 32 29 AA 41 24 3A 99 |0..(A$)).2).A$:.|
000006C0: 41 24 00 C8 22 D2 05 8E 00 EA 22 DC 05 8F 22 20 |A$.."....."..." |
000006D0: 5A 55 4D 20 D4 41 53 54 45 4E 44 52 55 43 4B 20 |ZUM .ASTENDRUCK |
000006E0: 41 55 46 46 4F 52 44 45 52 4E 00 19 23 E6 05 41 |AUFFORDERN..#..A|
000006F0: 24 B2 22 C2 49 54 54 45 20 45 49 4E 45 20 D4 41 |$.".ITTE EINE .A|
00000700: 53 54 45 20 44 52 BD 43 4B 45 4E 22 3A 8D 31 34 |STE DR.CKEN":.14|
00000710: 37 30 3A A1 F9 41 24 3A 8E 00 1F 23 F0 05 3A 00 |70:..A$:...#..:.|
00000720: 25 23 FA 05 3A 00 66 23 04 06 8F 22 CD 41 53 43 |%#..:.f#...".ASC|
00000730: 48 49 4E 45 4E 50 52 4F 47 52 41 4D 4D 20 53 50 |HINENPROGRAMM SP|
00000740: 45 49 43 48 45 52 54 20 D2 D5 CE 20 3C 43 52 3E |EICHERT ... <CR>|
00000750: 20 49 4E 20 44 45 52 20 D4 41 53 54 41 54 55 52 | IN DER .ASTATUR|
00000760: 50 55 46 46 45 52 00 9B 23 0E 06 83 20 41 32 2C |PUFFER..#... A2,|
00000770: 30 34 20 20 20 20 3A 20 8F 22 4C 44 58 20 23 24 |04 : ."LDX #$|
00000780: 30 34 20 20 20 20 20 20 20 C1 4E 5A 41 48 4C 20 |04 .NZAHL |
00000790: 44 45 52 20 DA 45 49 43 48 45 4E 00 DE 23 18 06 |DER .EICHEN..#..|
000007A0: 83 20 42 44 2C 32 44 2C 31 30 20 3A 20 8F 22 4C |. BD,2D,10 : ."L|
000007B0: 44 41 20 24 31 30 32 44 2C 58 5F AE 20 20 41 55 |DA $102D,X_. AU|
000007C0: 53 20 C6 55 4E 4B 54 49 4F 4E 53 54 41 53 54 45 |S .UNKTIONSTASTE|
000007D0: 4E 54 41 42 45 4C 4C 45 20 4C 45 53 45 4E 00 20 |NTABELLE LESEN. |
000007E0: 24 22 06 83 20 39 44 2C 34 39 2C 30 33 20 3A 20 |$".. 9D,49,03 : |
000007F0: 8F 22 53 54 41 20 24 30 33 34 39 2C 58 20 DD 20 |."STA $0349,X . |
00000800: 20 55 4E 44 20 49 4E 20 D4 41 53 54 41 54 55 52 | UND IN .ASTATUR|
00000810: 50 55 46 46 45 52 20 53 50 45 49 43 48 45 52 4E |PUFFER SPEICHERN|
00000820: 00 41 24 2C 06 83 20 43 41 20 20 20 20 20 20 20 |.A$,.. CA |
00000830: 3A 20 8F 22 44 45 58 20 20 20 20 20 20 20 20 20 |: ."DEX |
00000840: DD 00 74 24 36 06 83 20 44 30 2C 46 37 20 20 20 |..t$6.. D0,F7 |
00000850: 20 3A 20 8F 22 42 4E 45 20 C0 C0 C0 C0 C0 C0 C0 | : ."BNE .......|
00000860: C0 BD 20 20 D3 43 48 4C 45 49 46 45 20 5A 55 20 |.. .CHLEIFE ZU |
00000870: 45 4E 44 45 00 A9 24 40 06 83 20 41 39 2C 30 34 |ENDE..$@.. A9,04|
00000880: 20 20 20 20 3A 20 8F 22 4C 44 41 20 23 24 30 34 | : ."LDA #$04|
00000890: 20 20 20 20 20 20 20 C1 4E 5A 41 48 4C 20 44 45 | .NZAHL DE|
000008A0: 52 20 DA 45 49 43 48 45 4E 00 E9 24 4A 06 83 20 |R .EICHEN..$J.. |
000008B0: 38 35 2C 44 30 20 20 20 20 3A 20 8F 22 53 54 41 |85,D0 : ."STA|
000008C0: 20 24 44 30 20 20 20 20 20 20 20 20 49 4E 20 DA | $D0 IN .|
000008D0: 41 48 4C 20 44 45 52 20 DA 45 49 43 48 45 4E 20 |AHL DER .EICHEN |
000008E0: 49 4D 20 D0 55 46 46 45 52 00 14 25 54 06 83 20 |IM .UFFER..%T.. |
000008F0: 36 30 20 20 20 20 20 20 20 3A 20 8F 22 52 54 53 |60 : ."RTS|
00000900: 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 44 20 | UND |
00000910: 45 4E 44 45 00 1F 25 5E 06 83 20 45 4E 44 45 00 |ENDE..%^.. ENDE.|
00000920: 00 00 |.. |
.......0,16:.4,16:.5,12.D...TA$."
":TA$.TA$.TA$:TA$.TA$.TA$.|...GN.8
:." GER.TENU
MMER......1440......1530......G(14)G(7)G
(8).S.$..".. DIESES PROGRAMM GENERIERT
EINEN BOOT-......" SECTOR AUF TRACK .1.
SECTOR .0. , DER DEN.3.8.." C= 128 BEI
M EINSCHALTEN VERANLA.T EIN.Y.B.." BEST
IMMTES BASIC - PROGRAMM ZU LADEN":." U
ND ZU STARTEN.......L.A$."(C)OPYRIGHT B
Y":.1470:A$."DIRK PAESSLER":.1470.N.V.A$
."L.RCHENWEG 8":.1470...`.A$."8520 ERLA
NGEN":.1470:.:.:.:....J..1500...T..1440.
R.~..15,GN,15,"I" :."
BEFEHLSKANAL ER.FNEN UND DISK-INIT......
1,GN, 6,"#" :." DIREK
TKANAL ER.FFNEN.O....15,"B-A:0 1 0":.DS.
.65.1240:." IST DER BLOCK NOCH FREI ???.
....A$."BLOCK 1:0 IST BELEGT":.1470.....
.".. <F> ... BLOCK FREIGEBEN.9....". <N>
... NOCHEINMAL VERSUCHEN.]....". <A> ..
. VORGANG ABBRECHEN.....D..1500:.A$."A".
1400:U:.A$."N".1170...N..A$.."F".."..";:
.1220.Z.X..15,"B-F:0 1 0"
:." BLOCK WIEDER FREIGEBEN......"....BOO
TNACHRICHT :.":.A1$.. ..."....PROGRAMMNA
ME :.":.PR$.G ...15,"B-P 6 0":.1,"CBM"G(
0)G(0)G(0)G(0);.A ...1,A1$;G(0);PR$;G(0)
;.. ...A$:..A$.."ENDE":.1,G(Q(A$));:.A$:
... ...15,"U2 6 0 1 0".. ...DS.0.1330.W
(.."..SCHREIBFEHLER. : "DS$:.1500:.1400.
.!2..15,"B-A:0 1 0" :." BL
OCK BELEGEN./!<. 1:.1,8,6,PR$.",P,R":.DS
.0.1360.V!F.."..DISKFEHLER. : "DS$:.1500
:.1400..!P..#1,A$,B$:A.F(A$.G(0)).F(B$.G
(0)).256..!Z..A.Q("1C01").1390.P!D.."STA
RTADRESSE DES PROGRAMMS NICHT RICHTIG":.
:.:.1500.."N..".":.:.:A$."AUFTRAG VOLLEN
DET":.1470:.:.:.:.1500.."X.."PRG ENDE.&"
.. 1: 15:.1030.,"....2"..:.B" .."KOPFZEI
LE.T"..."...."TA$".";:A$."AUTOSTART 128"
:.1470:.:.:..Z"..:. "..."ZEILE AUF 40 ZE
ICHEN ZENTRIEREN.B"H.A$.H(TA$,(40.C(A$))
.2).A$:.A$.H"R...."..." ZUM TASTENDRUCK
AUFFORDERN..#..A$."BITTE EINE TASTE DR.C
KEN":.1470:..A$:...#..:.%#..:.F#..."MASC
HINENPROGRAMM SPEICHERT RUN <CR> IN DER
TASTATURPUFFER..#... A2,04 : ."LDX #$
04 ANZAHL DER ZEICHEN..#... BD,2D,
10 : ."LDA $102D,X_. AUS FUNKTIONSTASTE
NTABELLE LESEN. $".. 9D,49,03 : ."STA $0
349,X . UND IN TASTATURPUFFER SPEICHERN
.A$,.. CA : ."DEX ..T$6..
D0,F7 : ."BNE ......... SCHLEIFE ZU
ENDE..$@.. A9,04 : ."LDA #$04 A
NZAHL DER ZEICHEN..$J.. 85,D0 : ."STA
$D0 IN ZAHL DER ZEICHEN IM PUFFE
R..%T.. 60 : ."RTS UND
ENDE..%^.. ENDE...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL