> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 E8 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..).... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 F2 03 8F 20 |*********.Q.... |
00000030: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 2A 00 79 08 FC 03 8F 20 2A 20 20 20 50 45 44 20 |*.y.... * PED |
00000060: 44 41 54 45 4E 20 4B 4F 4D 50 52 45 53 53 4F 52 |DATEN KOMPRESSOR|
00000070: 20 46 55 45 52 20 20 20 2A 00 A1 08 06 04 8F 20 | FUER *...... |
00000080: 2A 20 20 20 20 46 49 4C 45 53 20 44 49 45 20 5A |* FILES DIE Z|
00000090: 55 20 47 52 4F 53 53 20 53 49 4E 44 20 20 20 20 |U GROSS SIND |
000000A0: 2A 00 C9 08 10 04 8F 20 2A 20 20 55 4E 44 20 4E |*...... * UND N|
000000B0: 49 43 48 54 20 4D 45 48 52 20 49 4E 20 50 45 44 |ICHT MEHR IN PED|
000000C0: 20 53 45 4C 42 53 54 20 2A 00 F1 08 1A 04 8F 20 | SELBST *...... |
000000D0: 2A 20 20 20 4B 4F 4D 50 52 49 4D 49 45 52 54 20 |* KOMPRIMIERT |
000000E0: 57 45 52 44 45 4E 20 4B 4F 45 4E 4E 45 4E 20 20 |WERDEN KOENNEN |
000000F0: 2A 00 19 09 24 04 8F 20 2A 20 20 20 20 20 20 20 |*...$.. * |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 20 20 2A 00 41 09 2E 04 8F 20 | *.A.... |
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 00 4E 09 38 04 9F 31 34 2C 38 2C 31 35 00 85 |*.N.8..14,8,15..|
00000150: 09 42 04 85 22 93 11 11 11 11 11 11 11 11 11 4E |.B.."..........N|
00000160: 41 4D 45 20 44 45 53 20 5A 55 20 4B 4F 4D 50 52 |AME DES ZU KOMPR|
00000170: 49 4D 49 45 52 45 4E 44 45 4E 20 46 49 4C 45 53 |IMIERENDEN FILES|
00000180: 20 22 3B 4E 24 00 9A 09 4C 04 9F 31 2C 38 2C 32 | ";N$...L..1,8,2|
00000190: 2C 4E 24 AA 22 2C 53 2C 52 22 00 AF 09 56 04 8D |,N$.",S,R"...V..|
000001A0: 31 37 38 30 3A 8B 46 B3 B1 30 A7 31 30 39 30 00 |1780:.F..0.1090.|
000001B0: BD 09 60 04 84 31 2C 4B 3A 84 31 2C 45 00 D7 09 |..`..1,K:.1,E...|
000001C0: 6A 04 86 58 28 45 AA 32 29 2C 59 28 45 AA 32 29 |j..X(E.2),Y(E.2)|
000001D0: 2C 5A 28 45 AA 32 29 00 F4 09 74 04 86 58 4E 28 |,Z(E.2)...t..XN(|
000001E0: 45 AA 32 29 2C 59 4E 28 45 AA 32 29 2C 5A 4E 28 |E.2),YN(E.2),ZN(|
000001F0: 45 AA 32 29 00 0B 0A 7E 04 86 50 31 25 28 4B AA |E.2)...~..P1%(K.|
00000200: 31 29 2C 50 32 25 28 4B AA 31 29 00 18 0A 88 04 |1),P2%(K.1).....|
00000210: 81 4E B2 31 A4 4B AA 31 00 30 0A 92 04 84 31 2C |.N.1.K.1.0....1,|
00000220: 50 31 25 28 4E 29 3A 84 31 2C 50 32 25 28 4E 29 |P1%(N):.1,P2%(N)|
00000230: 00 36 0A 9C 04 82 00 43 0A A6 04 81 49 B2 31 A4 |.6.....C....I.1.|
00000240: 45 AA 31 00 64 0A B0 04 84 31 2C 58 28 49 29 3A |E.1.d....1,X(I):|
00000250: 84 31 2C 59 28 49 29 3A 84 31 2C 5A 28 49 29 3A |.1,Y(I):.1,Z(I):|
00000260: 84 31 2C 4E 00 6A 0A BA 04 82 00 71 0A C4 04 A0 |.1,N.j.....q....|
00000270: 31 00 86 0A CE 04 8D 31 37 38 30 3A 8B 46 B3 B1 |1......1780:.F..|
00000280: 30 A7 31 30 39 30 00 97 0A D8 04 99 22 93 22 3B |0.1090......".";|
00000290: 45 AA 31 3B 4B AA 31 00 AB 0A E2 04 99 22 44 4F |E.1;K.1......"DO|
000002A0: 50 50 45 4C 50 55 4E 4B 54 45 22 00 B8 0A EC 04 |PPELPUNKTE".....|
000002B0: 81 4E B2 31 A4 45 AA 31 00 C5 0A F6 04 99 22 13 |.N.1.E.1......".|
000002C0: 11 11 22 3B 4E 00 EA 0A 00 05 58 4E 28 4E 29 B2 |..";N.....XN(N).|
000002D0: 58 28 4E 29 3A 59 4E 28 4E 29 B2 59 28 4E 29 3A |X(N):YN(N).Y(N):|
000002E0: 5A 4E 28 4E 29 B2 5A 28 4E 29 00 FC 0A 0A 05 8B |ZN(N).Z(N)......|
000002F0: 58 B2 AB 39 39 39 39 A7 31 33 33 30 00 0B 0B 14 |X..9999.1330....|
00000300: 05 81 53 B2 4E AA 31 A4 45 AA 31 00 4F 0B 1E 05 |..S.N.1.E.1.O...|
00000310: 8B 28 58 28 4E 29 B2 58 28 53 29 29 A7 8B 28 59 |.(X(N).X(S))..(Y|
00000320: 28 4E 29 B2 59 28 53 29 29 A7 8B 28 5A 28 4E 29 |(N).Y(S))..(Z(N)|
00000330: B2 5A 28 53 29 29 A7 58 28 53 29 B2 AB 39 39 39 |.Z(S)).X(S)..999|
00000340: 39 3A 59 28 53 29 B2 4E 3A 5A 28 53 29 B2 30 00 |9:Y(S).N:Z(S).0.|
00000350: 56 0B 28 05 82 53 00 5D 0B 32 05 82 4E 00 6A 0B |V.(..S.].2..N.j.|
00000360: 3C 05 81 4E B2 31 A4 4B AA 31 00 94 0B 46 05 8B |<..N.1.K.1...F..|
00000370: 58 28 50 31 25 28 4E 29 29 B2 AB 39 39 39 39 A7 |X(P1%(N))..9999.|
00000380: 50 31 25 28 4E 29 B2 B5 28 59 4E 28 50 31 25 28 |P1%(N)..(YN(P1%(|
00000390: 4E 29 29 29 00 BE 0B 50 05 8B 58 28 50 32 25 28 |N)))...P..X(P2%(|
000003A0: 4E 29 29 B2 AB 39 39 39 39 A7 50 32 25 28 4E 29 |N))..9999.P2%(N)|
000003B0: B2 B5 28 59 4E 28 50 32 25 28 4E 29 29 29 00 C4 |..(YN(P2%(N)))..|
000003C0: 0B 5A 05 82 00 DA 0B 64 05 99 22 93 11 44 4F 50 |.Z.....d.."..DOP|
000003D0: 50 45 4C 4C 49 4E 49 45 4E 22 00 E5 0B 6E 05 81 |PELLINIEN"...n..|
000003E0: 4E B2 31 A4 4B 00 F2 0B 78 05 99 22 13 11 11 22 |N.1.K...x.."..."|
000003F0: 3B 4E 00 01 0C 82 05 81 53 B2 4E AA 31 A4 4B AA |;N......S.N.1.K.|
00000400: 31 00 3A 0C 8C 05 8B 28 50 31 25 28 4E 29 B2 50 |1.:....(P1%(N).P|
00000410: 31 25 28 53 29 29 AF 28 50 32 25 28 4E 29 B2 50 |1%(S)).(P2%(N).P|
00000420: 32 25 28 53 29 29 A7 50 31 25 28 53 29 B2 AB 31 |2%(S)).P1%(S)..1|
00000430: 3A 50 32 25 28 53 29 B2 AB 31 00 73 0C 96 05 8B |:P2%(S)..1.s....|
00000440: 28 50 31 25 28 4E 29 B2 50 32 25 28 53 29 29 AF |(P1%(N).P2%(S)).|
00000450: 28 50 32 25 28 4E 29 B2 50 31 25 28 53 29 29 A7 |(P2%(N).P1%(S)).|
00000460: 50 31 25 28 53 29 B2 AB 31 3A 50 32 25 28 53 29 |P1%(S)..1:P2%(S)|
00000470: B2 AB 31 00 79 0C A0 05 82 00 7F 0C AA 05 82 00 |..1.y...........|
00000480: AF 0C B4 05 99 22 93 11 4E 45 55 45 20 50 55 4E |....."..NEUE PUN|
00000490: 4B 54 45 20 55 4E 44 20 4B 41 4E 54 45 4E 41 4E |KTE UND KANTENAN|
000004A0: 5A 41 48 4C 20 45 52 4D 49 54 54 45 4C 4E 22 00 |ZAHL ERMITTELN".|
000004B0: B9 0C BE 05 45 4E B2 AB 31 00 C6 0C C8 05 81 49 |....EN..1......I|
000004C0: B2 31 A4 45 AA 31 00 E0 0C D2 05 8B 58 4E 28 49 |.1.E.1......XN(I|
000004D0: 29 B3 B1 AB 39 39 39 39 A7 45 4E B2 45 4E AA 31 |)...9999.EN.EN.1|
000004E0: 00 E6 0C DC 05 82 00 F0 0C E6 05 4B 4E B2 AB 31 |...........KN..1|
000004F0: 00 FD 0C F0 05 81 49 B2 31 A4 4B AA 31 00 15 0D |......I.1.K.1...|
00000500: FA 05 8B 50 31 25 28 49 29 B3 B1 AB 31 A7 4B 4E |...P1%(I)...1.KN|
00000510: B2 4B 4E AA 31 00 1B 0D 04 06 82 00 3B 0D 0E 06 |.KN.1.......;...|
00000520: 99 22 93 11 4E 45 55 45 53 20 46 49 4C 45 20 53 |."..NEUES FILE S|
00000530: 50 45 49 43 48 45 52 4E 22 3A 99 00 69 0D 18 06 |PEICHERN":..i...|
00000540: 99 3A 99 22 4E 45 55 45 20 45 43 4B 45 4E 20 55 |.:."NEUE ECKEN U|
00000550: 4E 44 20 4B 41 4E 54 45 4E 20 41 4E 5A 41 48 4C |ND KANTEN ANZAHL|
00000560: 20 3A 22 3B 45 4E 3B 4B 4E 00 83 0D 22 06 8B 45 | :";EN;KN..."..E|
00000570: 4E B3 B2 33 32 30 B0 4B 4E B3 B2 36 34 30 A7 31 |N..320.KN..640.1|
00000580: 36 33 30 00 A6 0D 2C 06 99 22 46 49 4C 45 20 4E |630...,.."FILE N|
00000590: 4F 43 48 20 5A 55 20 47 52 4F 53 53 20 46 55 45 |OCH ZU GROSS FUE|
000005A0: 52 20 50 45 44 22 00 D2 0D 36 06 99 22 12 41 92 |R PED"...6..".A.|
000005B0: 42 52 45 43 48 45 4E 20 4F 44 45 52 20 12 54 92 |BRECHEN ODER .T.|
000005C0: 52 4F 54 5A 44 45 4D 20 53 50 45 49 43 48 45 52 |ROTZDEM SPEICHER|
000005D0: 4E 22 00 E8 0D 40 06 97 31 39 38 2C 30 3A 92 31 |N"...@..198,0:.1|
000005E0: 39 38 2C 31 3A A1 47 24 00 FF 0D 4A 06 8B 47 24 |98,1:.G$...J..G$|
000005F0: B2 22 41 22 A7 A0 31 34 3A 99 22 93 22 3A 80 00 |."A"..14:.".":..|
00000600: 11 0E 54 06 8B 47 24 B3 B1 22 54 22 A7 31 36 30 |..T..G$.."T".160|
00000610: 30 00 45 0E 5E 06 99 3A 99 22 47 4C 45 49 43 48 |0.E.^..:."GLEICH|
00000620: 4E 41 4D 49 47 45 53 20 46 49 4C 45 20 57 49 52 |NAMIGES FILE WIR|
00000630: 44 20 55 45 42 45 52 53 43 48 52 49 45 42 45 4E |D UEBERSCHRIEBEN|
00000640: 22 3A 99 3A 99 00 58 0E 68 06 85 22 46 49 4C 45 |":.:..X.h.."FILE|
00000650: 4E 41 4D 45 22 3B 4E 24 00 72 0E 72 06 9F 31 2C |NAME";N$.r.r..1,|
00000660: 38 2C 32 2C 22 40 3A 22 AA 4E 24 AA 22 2C 53 2C |8,2,"@:".N$.",S,|
00000670: 57 22 00 87 0E 7C 06 8D 31 37 38 30 3A 8B 46 B3 |W"...|..1780:.F.|
00000680: B1 30 A7 31 36 35 30 00 97 0E 86 06 98 31 2C 4B |.0.1650......1,K|
00000690: 4E 3A 98 31 2C 45 4E 00 A4 0E 90 06 81 49 B2 31 |N:.1,EN......I.1|
000006A0: A4 4B AA 31 00 C8 0E 9A 06 8B 50 31 25 28 49 29 |.K.1......P1%(I)|
000006B0: B3 B1 AB 31 A7 98 31 2C 50 31 25 28 49 29 3A 98 |...1..1,P1%(I):.|
000006C0: 31 2C 50 32 25 28 49 29 00 CE 0E A4 06 82 00 DB |1,P2%(I)........|
000006D0: 0E AE 06 81 49 B2 31 A4 45 AA 31 00 0D 0F B8 06 |....I.1.E.1.....|
000006E0: 8B 58 4E 28 49 29 B3 B1 AB 39 39 39 39 A7 98 31 |.XN(I)...9999..1|
000006F0: 2C 58 4E 28 49 29 3A 98 31 2C 59 4E 28 49 29 3A |,XN(I):.1,YN(I):|
00000700: 98 31 2C 5A 4E 28 49 29 3A 98 31 2C 49 00 13 0F |.1,ZN(I):.1,I...|
00000710: C2 06 82 00 1A 0F CC 06 A0 31 00 2F 0F D6 06 8D |.........1./....|
00000720: 31 37 38 30 3A 8B 46 B3 B1 30 A7 31 36 35 30 00 |1780:.F..0.1650.|
00000730: 39 0F E0 06 A0 31 34 3A 80 00 51 0F EA 06 8F 20 |9....14:..Q.... |
00000740: 46 4C 4F 50 50 59 46 45 48 4C 45 52 4B 41 4E 41 |FLOPPYFEHLERKANA|
00000750: 4C 00 64 0F F4 06 84 31 34 2C 46 2C 46 24 2C 46 |L.d....14,F,F$,F|
00000760: 31 2C 46 32 00 6F 0F FE 06 8B 46 B2 30 A7 8E 00 |1,F2.o....F.0...|
00000770: 76 0F 08 07 A0 31 00 90 0F 12 07 99 22 93 11 11 |v....1......"...|
00000780: 1D 1D 46 4C 4F 50 50 59 46 45 48 4C 45 52 3A 22 |..FLOPPYFEHLER:"|
00000790: 00 A3 0F 1C 07 99 22 1D 22 46 3B 46 24 3B 46 31 |......"."F;F$;F1|
000007A0: 3B 46 32 00 BA 0F 26 07 99 22 4E 4F 43 48 4D 41 |;F2...&.."NOCHMA|
000007B0: 4C 20 3F 20 28 4A 2F 4E 29 22 00 D0 0F 30 07 97 |L ? (J/N)"...0..|
000007C0: 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 47 24 |198,0:.198,1:.G$|
000007D0: 00 DE 0F 3A 07 8B 47 24 B2 22 4A 22 A7 8E 00 F0 |...:..G$."J"....|
000007E0: 0F 44 07 8B 47 24 B3 B1 22 4E 22 A7 31 38 34 30 |.D..G$.."N".1840|
000007F0: 00 FF 0F 4E 07 99 22 93 22 3A A0 31 34 3A 80 00 |...N..".":.14:..|
00000800: 00 00 |.. |
..).... ********************************
*.Q.... *
*.Y.... * PED DATEN KOMPRESSOR FUER
*...... * FILES DIE ZU GROSS SIND
*.I.... * UND NICHT MEHR IN PED SELBST
*...... * KOMPRIMIERT WERDEN KOENNEN
*...$.. *
*.A.... ********************************
*.N.8..14,8,15...B.."..........NAME DES
ZU KOMPRIMIERENDEN FILES ";N$...L..1,8,2
,N$.",S,R"...V..1780:.F..0.1090...`..1,K
:.1,E.W.J..X(E.2),Y(E.2),Z(E.2)...T..XN(
E.2),YN(E.2),ZN(E.2)...~..P1%(K.1),P2%(K
.1)......N.1.K.1.0....1,P1%(N):.1,P2%(N)
.6.....C....I.1.E.1.D....1,X(I):.1,Y(I):
.1,Z(I):.1,N.J.....Q.D. 1...N..1780:.F..
0.1090...X..".";E.1;K.1......"DOPPELPUNK
TE"......N.1.E.1.E...."...";N.....XN(N).
X(N):YN(N).Y(N):ZN(N).Z(N)......X..9999.
1330......S.N.1.E.1.O....(X(N).X(S))..(Y
(N).Y(S))..(Z(N).Z(S)).X(S)..9999:Y(S).N
:Z(S).0.V.(..S.].2..N.J.<..N.1.K.1...F..
X(P1%(N))..9999.P1%(N)..(YN(P1%(N)))...P
..X(P2%(N))..9999.P2%(N)..(YN(P2%(N))).D
.Z...Z.D.."..DOPPELLINIEN"...N..N.1.K...
X.."...";N......S.N.1.K.1.:....(P1%(N).P
1%(S)).(P2%(N).P2%(S)).P1%(S)..1:P2%(S).
.1.S....(P1%(N).P2%(S)).(P2%(N).P1%(S)).
P1%(S)..1:P2%(S)..1.Y. ............."..
NEUE PUNKTE UND KANTENANZAHL ERMITTELN".
....EN..1.F.H..I.1.E.1...R..XN(I)...9999
.EN.EN.1...........KN..1......I.1.K.1...
...P1%(I)...1.KN.KN.1.......;...."..NEUE
S FILE SPEICHERN":..I....:."NEUE ECKEN U
ND KANTEN ANZAHL :";EN;KN..."..EN..320.K
N..640.1630...,.."FILE NOCH ZU GROSS FUE
R PED".R.6..".A.BRECHEN ODER .T.ROTZDEM
SPEICHERN"...@..198,0:.198,1:.G$...J..G$
."A". 14:.".":....T..G$.."T".1600.E.^..:
."GLEICHNAMIGES FILE WIRD UEBERSCHRIEBEN
":.:..X.H.."FILENAME";N$.R.R..1,8,2,"@:"
.N$.",S,W"...|..1780:.F..0.1650......1,K
N:.1,EN......I.1.K.1.H....P1%(I)...1..1,
P1%(I):.1,P2%(I).N..........I.1.E.1.....
.XN(I)...9999..1,XN(I):.1,YN(I):.1,ZN(I)
:.1,I...B.....L. 1./.V..1780:.F..0.1650.
9... 14:..Q.... FLOPPYFEHLERKANAL.D....1
4,F,F$,F1,F2.O....F.0...V... 1......"...
..FLOPPYFEHLER:"......"."F;F$;F1;F2...&.
."NOCHMAL ? (J/N)".P.0..198,0:.198,1:.G$
...:..G$."J".....D..G$.."N".1840...N..".
": 14:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL