> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 14 00 9F 31 35 2C 38 2C 31 35 3A 97 |..!....15,8,15:.|
00000010: 35 33 32 38 30 2C 36 3A 97 35 33 32 38 31 2C 36 |53280,6:.53281,6|
00000020: 3A 00 46 08 1E 00 99 22 93 05 20 20 20 2A 2A 2A |:.F....".. ***|
00000030: 2A 20 20 20 12 44 41 54 45 49 20 36 34 92 20 20 |* .DATEI 64. |
00000040: 20 2A 2A 2A 2A 22 00 68 08 23 00 99 22 11 20 20 | ****".h.#..". |
00000050: 20 20 28 43 29 20 31 39 38 35 20 4B 4C 41 55 53 | (C) 1985 KLAUS|
00000060: 20 52 41 43 5A 45 4B 22 00 84 08 24 00 99 22 11 | RACZEK"...$..".|
00000070: 20 20 20 20 2A 2A 2A 20 12 4D 45 4E 55 45 92 20 | *** .MENUE. |
00000080: 2A 2A 2A 22 00 A1 08 28 00 99 22 11 20 20 20 12 |***"...(..". .|
00000090: 31 92 2D 20 4B 41 52 54 45 49 20 4C 41 44 45 4E |1.- KARTEI LADEN|
000000A0: 22 00 C2 08 32 00 99 22 11 20 20 20 12 32 92 2D |"...2..". .2.-|
000000B0: 20 4B 41 52 54 45 49 20 53 50 45 49 43 48 45 52 | KARTEI SPEICHER|
000000C0: 4E 22 00 E1 08 3C 00 99 22 11 20 20 20 12 33 92 |N"...<..". .3.|
000000D0: 2D 20 44 41 54 45 4E 20 45 49 4E 47 45 42 45 4E |- DATEN EINGEBEN|
000000E0: 22 00 FE 08 46 00 99 22 11 20 20 20 12 34 92 2D |"...F..". .4.-|
000000F0: 20 44 41 54 45 4E 20 53 55 43 48 45 4E 22 00 1C | DATEN SUCHEN"..|
00000100: 09 50 00 99 22 11 20 20 20 12 35 92 2D 20 44 41 |.P..". .5.- DA|
00000110: 54 45 4E 20 41 45 4E 44 45 52 4E 22 00 3B 09 5A |TEN AENDERN".;.Z|
00000120: 00 99 22 11 20 20 20 12 36 92 2D 20 44 41 54 45 |..". .6.- DATE|
00000130: 4E 20 4C 4F 45 53 43 48 45 4E 22 00 5B 09 64 00 |N LOESCHEN".[.d.|
00000140: 99 22 11 20 20 20 12 37 92 2D 20 4D 41 53 4B 45 |.". .7.- MASKE|
00000150: 20 45 52 53 54 45 4C 4C 45 4E 22 00 7C 09 6E 00 | ERSTELLEN".|.n.|
00000160: 99 22 11 20 20 20 12 38 92 2D 20 50 52 4F 47 52 |.". .8.- PROGR|
00000170: 41 4D 4D 20 42 45 45 4E 44 45 4E 22 00 B9 09 78 |AMM BEENDEN"...x|
00000180: 00 99 22 11 11 20 20 20 20 57 45 4C 43 48 45 20 |..".. WELCHE |
00000190: 4E 55 4D 4D 45 52 20 22 3B 3A 43 48 B2 30 3A 85 |NUMMER ";:CH.0:.|
000001A0: 43 48 3A 43 48 B2 B5 28 43 48 29 3A 97 32 2C 43 |CH:CH..(CH):.2,C|
000001B0: 48 3A 8B 43 48 B2 38 A7 80 00 CB 09 82 00 8B 43 |H:.CH.8........C|
000001C0: 48 B3 31 B0 43 48 B1 37 A7 33 30 00 ED 09 87 00 |H.1.CH.7.30.....|
000001D0: 8B 43 48 B2 31 B0 43 48 B2 37 A7 9C 3A 43 48 B2 |.CH.1.CH.7..:CH.|
000001E0: C2 28 32 29 3A 9F 31 35 2C 38 2C 31 35 00 11 0A |.(2):.15,8,15...|
000001F0: 8C 00 91 43 48 8D 32 30 30 2C 33 30 30 2C 34 30 |...CH.200,300,40|
00000200: 30 2C 35 30 30 2C 36 30 30 2C 37 30 30 2C 39 30 |0,500,600,700,90|
00000210: 30 00 3B 0A 96 00 99 22 11 11 54 41 53 54 45 20 |0.;...."..TASTE |
00000220: 44 52 55 45 43 4B 45 4E 22 3A 97 31 39 38 2C 30 |DRUECKEN":.198,0|
00000230: 3A 92 31 39 38 2C 31 3A 89 33 30 00 59 0A C8 00 |:.198,1:.30.Y...|
00000240: 99 22 93 11 4E 41 4D 45 20 44 45 52 20 4B 41 52 |."..NAME DER KAR|
00000250: 54 45 49 22 3B 3A 85 41 24 00 73 0A CD 00 9F 31 |TEI";:.A$.s....1|
00000260: 2C 38 2C 32 2C 41 24 AA 22 2C 53 2C 52 22 3A 8D |,8,2,A$.",S,R":.|
00000270: 38 30 30 00 9D 0A D2 00 84 31 2C 46 45 2C 4E 2C |800......1,FE,N,|
00000280: 4C 45 3A 86 46 45 24 28 46 45 29 2C 53 24 28 46 |LE:.FE$(FE),S$(F|
00000290: 45 29 2C 44 41 24 28 4C 45 2C 46 45 29 00 B5 0A |E),DA$(LE,FE)...|
000002A0: D7 00 81 58 B2 31 A4 46 45 3A 84 31 2C 46 45 24 |...X.1.FE:.1,FE$|
000002B0: 28 58 29 3A 82 00 CA 0A DC 00 81 49 B2 30 A4 4E |(X):.......I.0.N|
000002C0: AB 31 3A 81 58 B2 31 A4 46 45 00 E8 0A E6 00 84 |.1:.X.1.FE......|
000002D0: 31 2C 44 41 24 28 49 2C 58 29 3A 82 3A 82 3A A0 |1,DA$(I,X):.:.:.|
000002E0: 31 3A 8D 38 30 30 3A 8E 00 06 0B 2C 01 99 22 93 |1:.800:....,..".|
000002F0: 11 4E 41 4D 45 20 44 45 52 20 4B 41 52 54 45 49 |.NAME DER KARTEI|
00000300: 22 3B 3A 85 41 24 00 20 0B 31 01 9F 31 2C 38 2C |";:.A$. .1..1,8,|
00000310: 32 2C 41 24 AA 22 2C 53 2C 57 22 3A 8D 38 30 30 |2,A$.",S,W":.800|
00000320: 00 35 0B 36 01 98 31 2C 46 45 3A 98 31 2C 4E 3A |.5.6..1,FE:.1,N:|
00000330: 98 31 2C 4C 45 00 50 0B 3B 01 81 58 B2 31 A4 46 |.1,LE.P.;..X.1.F|
00000340: 45 3A 98 31 2C 46 45 24 28 58 29 22 20 22 3A 82 |E:.1,FE$(X)" ":.|
00000350: 00 65 0B 40 01 81 49 B2 30 A4 4E AB 31 3A 81 58 |.e.@..I.0.N.1:.X|
00000360: B2 31 A4 46 45 00 7C 0B 4A 01 98 31 2C 44 41 24 |.1.FE.|.J..1,DA$|
00000370: 28 49 2C 58 29 22 20 22 3A 82 3A 82 00 8A 0B 54 |(I,X)" ":.:....T|
00000380: 01 A0 31 3A 8D 38 30 30 3A 8E 00 AE 0B 90 01 99 |..1:.800:.......|
00000390: 22 93 44 41 54 45 4E 20 45 49 4E 47 45 42 45 4E |".DATEN EINGEBEN|
000003A0: 11 22 3A 4C B2 30 3A 81 58 B2 31 A4 46 45 00 E0 |.":L.0:.X.1.FE..|
000003B0: 0B 9A 01 99 22 11 12 22 46 45 24 28 58 29 22 92 |....".."FE$(X)".|
000003C0: 3A 20 22 3B 3A 85 44 41 24 28 4E 2C 58 29 3A 4C |: ";:.DA$(N,X):L|
000003D0: B2 4C AA C3 28 44 41 24 28 4E 2C 58 29 29 3A 82 |.L..(DA$(N,X)):.|
000003E0: 00 EF 0B A4 01 8B 4C B2 30 A7 4E B2 4E AB 31 00 |......L.0.N.N.1.|
000003F0: FB 0B AE 01 4E B2 4E AA 31 3A 8E 00 0C 0C F4 01 |....N.N.1:......|
00000400: 99 22 93 53 55 43 48 45 4E 3A 11 22 00 4A 0C F9 |.".SUCHEN:.".J..|
00000410: 01 81 49 B2 31 A4 46 45 3A 99 22 11 12 22 46 45 |..I.1.FE:.".."FE|
00000420: 24 28 49 29 22 92 3A 20 22 3B 3A 53 24 28 49 29 |$(I)".: ";:S$(I)|
00000430: B2 22 22 3A 85 53 24 28 49 29 3A 53 28 49 29 B2 |."":.S$(I):S(I).|
00000440: C3 28 53 24 28 49 29 29 3A 82 00 69 0C 03 02 45 |.(S$(I)):..i...E|
00000450: 49 B2 30 3A 81 58 B2 30 A4 4E AB 31 3A 46 46 B2 |I.0:.X.0.N.1:FF.|
00000460: 30 3A 81 49 B2 31 A4 46 45 00 8B 0C 08 02 8B C8 |0:.I.1.FE.......|
00000470: 28 44 41 24 28 58 2C 49 29 2C 53 28 49 29 29 B3 |(DA$(X,I),S(I)).|
00000480: B1 53 24 28 49 29 A7 46 46 B2 31 00 9B 0C 12 02 |.S$(I).FF.1.....|
00000490: 82 3A 8B 46 46 B2 30 89 35 36 30 00 A9 0C 17 02 |.:.FF.0.560.....|
000004A0: 82 3A 8B 45 49 B2 31 A7 8E 00 CB 0C 1C 02 99 22 |.:.EI.1........"|
000004B0: 11 45 49 4E 54 52 41 47 20 4E 49 43 48 54 20 47 |.EINTRAG NICHT G|
000004C0: 45 46 55 4E 44 45 4E 11 22 3A 8E 00 D7 0C 30 02 |EFUNDEN.":....0.|
000004D0: 8B 46 4C B2 31 A7 8E 00 F2 0C 35 02 99 22 93 45 |.FL.1.....5..".E|
000004E0: 49 4E 54 52 41 47 20 47 45 46 55 4E 44 45 4E 3A |INTRAG GEFUNDEN:|
000004F0: 11 22 00 21 0D 3A 02 81 4A B2 31 A4 46 45 3A 99 |.".!.:..J.1.FE:.|
00000500: 22 12 22 46 45 24 28 4A 29 22 92 3A 20 22 A3 31 |"."FE$(J)".: ".1|
00000510: 35 29 44 41 24 28 58 2C 4A 29 3A 82 3A 45 49 B2 |5)DA$(X,J):.:EI.|
00000520: 31 00 51 0D 4E 02 99 22 11 11 12 54 41 53 54 45 |1.Q.N.."...TASTE|
00000530: 20 44 52 55 45 43 4B 45 4E 22 3A 97 31 39 38 2C | DRUECKEN":.198,|
00000540: 30 3A 92 31 39 38 2C 31 3A 8B 58 B3 4E 89 35 33 |0:.198,1:.X.N.53|
00000550: 35 00 57 0D 53 02 8E 00 82 0D 58 02 99 22 93 41 |5.W.S.....X..".A|
00000560: 45 4E 44 45 52 4E 3A 11 22 3A 99 22 53 55 43 48 |ENDERN:.":."SUCH|
00000570: 45 4E 22 3A 46 4C B2 31 3A 8D 35 30 35 3A 46 4C |EN":FL.1:.505:FL|
00000580: B2 30 00 8D 0D 62 02 8B 58 B1 4E A7 8E 00 C8 0D |.0...b..X.N.....|
00000590: 76 02 81 49 B2 31 A4 46 45 3A 99 22 12 22 46 45 |v..I.1.FE:."."FE|
000005A0: 24 28 49 29 22 92 3A 22 3A 99 22 20 20 22 44 41 |$(I)".:":." "DA|
000005B0: 24 28 58 2C 49 29 3A 85 22 91 22 3B 44 41 24 28 |$(X,I):.".";DA$(|
000005C0: 58 2C 49 29 3A 82 3A 8E 00 F1 0D BC 02 99 22 93 |X,I):.:.......".|
000005D0: 45 49 4E 54 52 41 47 20 4C 4F 45 53 43 48 45 4E |EINTRAG LOESCHEN|
000005E0: 11 22 3A 99 22 53 55 43 48 45 4E 22 3A 8D 35 30 |.":."SUCHEN":.50|
000005F0: 35 00 08 0E C6 02 99 22 11 4C 4F 45 53 43 48 45 |5......".LOESCHE|
00000600: 4E 20 28 4A 2F 4E 29 22 00 1B 0E D0 02 A1 41 24 |N (J/N)"......A$|
00000610: 3A 8B 41 24 B2 22 22 A7 37 32 30 00 2B 0E DA 02 |:.A$."".720.+...|
00000620: 8B 41 24 B2 22 4A 22 A7 37 39 30 00 3C 0E E4 02 |.A$."J".790.<...|
00000630: 8B 41 24 B3 B1 22 4E 22 A7 37 32 30 00 42 0E EE |.A$.."N".720.B..|
00000640: 02 8E 00 7A 0E 16 03 81 49 B2 31 A4 46 45 3A 44 |...z....I.1.FE:D|
00000650: 41 24 28 58 2C 49 29 B2 44 41 24 28 4E AB 31 2C |A$(X,I).DA$(N.1,|
00000660: 49 29 3A 44 41 24 28 4E AB 31 2C 49 29 B2 22 22 |I):DA$(N.1,I).""|
00000670: 3A 82 3A 4E B2 4E AB 31 3A 8E 00 8E 0E 20 03 84 |:.:N.N.1:.... ..|
00000680: 31 35 2C 41 2C 41 24 3A 8B 41 B2 30 A7 8E 00 98 |15,A,A$:.A.0....|
00000690: 0E 2A 03 99 41 24 3A 8E 00 C3 0E 84 03 9C 3A 9F |.*..A$:.......:.|
000006A0: 31 35 2C 38 2C 31 35 3A 99 22 93 45 49 4E 47 41 |15,8,15:.".EINGA|
000006B0: 42 45 4D 41 53 4B 45 20 45 52 53 54 45 4C 4C 45 |BEMASKE ERSTELLE|
000006C0: 4E 3A 22 00 DE 0E 8E 03 85 22 11 57 49 45 56 49 |N:"......".WIEVI|
000006D0: 45 4C 45 20 46 45 4C 44 45 52 22 3B 46 45 00 29 |ELE FELDER";FE.)|
000006E0: 0F 98 03 86 46 45 24 28 46 45 29 2C 53 24 28 46 |....FE$(FE),S$(F|
000006F0: 45 29 3A 99 22 11 4E 41 4D 45 4E 20 55 4E 44 20 |E):.".NAMEN UND |
00000700: 4D 49 54 54 4C 45 52 45 20 4C 41 45 4E 47 45 4E |MITTLERE LAENGEN|
00000710: 20 44 45 52 20 46 45 4C 44 45 52 20 20 20 45 49 | DER FELDER EI|
00000720: 4E 47 45 42 45 4E 3A 11 22 00 52 0F A2 03 4C 45 |NGEBEN:.".R...LE|
00000730: B2 30 3A 81 49 B2 31 A4 46 45 3A 99 49 3B 3A 85 |.0:.I.1.FE:.I;:.|
00000740: 46 45 24 28 49 29 2C 58 3A 4C 45 B2 4C 45 AA 58 |FE$(I),X:LE.LE.X|
00000750: 3A 82 00 80 0F AC 03 4C 45 B2 28 28 B8 28 58 29 |:......LE.((.(X)|
00000760: AA 36 35 35 33 36 29 AD 28 4C 45 AA 46 45 AC 33 |.65536).(LE.FE.3|
00000770: AA 33 29 29 3A 86 44 41 24 28 4C 45 2C 46 45 29 |.3)):.DA$(LE,FE)|
00000780: 00 B3 0F B6 03 99 22 11 11 45 53 20 49 53 54 20 |......"..ES IST |
00000790: 50 4C 41 54 5A 20 46 55 45 52 22 B5 28 4C 45 29 |PLATZ FUER".(LE)|
000007A0: 22 44 41 54 45 4E 53 41 45 54 5A 45 2E 22 3A 89 |"DATENSAETZE.":.|
000007B0: 31 35 30 00 00 00 |150... |
..!....15,8,15:.53280,6:.53281,6:.F...."
.. **** .DATEI 64. ****".H.#..".
(C) 1985 KLAUS RACZEK"...$..". ***
.MENUE. ***"...(..". .1.- KARTEI LADEN
".B.2..". .2.- KARTEI SPEICHERN"...<..
". .3.- DATEN EINGEBEN"...F..". .4.-
DATEN SUCHEN"...P..". .5.- DATEN AEND
ERN".;.Z..". .6.- DATEN LOESCHEN".[.D.
.". .7.- MASKE ERSTELLEN".|.N..". .8
.- PROGRAMM BEENDEN"...X..".. WELCHE
NUMMER ";:CH.0:.CH:CH..(CH):.2,CH:.CH.8.
..K....CH.1.CH.7.30......CH.1.CH.7..:CH.
B(2):.15,8,15......CH.200,300,400,500,60
0,700,900.;...."..TASTE DRUECKEN":.198,0
:.198,1:.30.Y.H.."..NAME DER KARTEI";:.A
$.S.M..1,8,2,A$.",S,R":.800...R..1,FE,N,
LE:.FE$(FE),S$(FE),DA$(LE,FE)...W..X.1.F
E:.1,FE$(X):..J....I.0.N.1:.X.1.FE......
1,DA$(I,X):.:.: 1:.800:....,.."..NAME DE
R KARTEI";:.A$. .1..1,8,2,A$.",S,W":.800
.5.6..1,FE:.1,N:.1,LE.P.;..X.1.FE:.1,FE$
(X)" ":..E.@..I.0.N.1:.X.1.FE.|.J..1,DA$
(I,X)" ":.:....T. 1:.800:.......".DATEN
EINGEBEN.":L.0:.X.1.FE......".."FE$(X)".
: ";:.DA$(N,X):L.L.C(DA$(N,X)):.......L.
0.N.N.1.....N.N.1:.......".SUCHEN:.".J..
..I.1.FE:.".."FE$(I)".: ";:S$(I)."":.S$(
I):S(I).C(S$(I)):..I...EI.0:.X.0.N.1:FF.
0:.I.1.FE......H(DA$(X,I),S(I))..S$(I).F
F.1......:.FF.0.560......:.EI.1...K...."
.EINTRAG NICHT GEFUNDEN.":..W.0..FL.1...
..5..".EINTRAG GEFUNDEN:.".!.:..J.1.FE:.
"."FE$(J)".: ".15)DA$(X,J):.:EI.1.Q.N.."
...TASTE DRUECKEN":.198,0:.198,1:.X.N.53
5.W.S.....X..".AENDERN:.":."SUCHEN":FL.1
:.505:FL.0...B..X.N...H.V..I.1.FE:."."FE
$(I)".:":." "DA$(X,I):.".";DA$(X,I):.:.
......".EINTRAG LOESCHEN.":."SUCHEN":.50
5...F..".LOESCHEN (J/N)"...P..A$:.A$."".
720.+.Z..A$."J".790.<....A$.."N".720.B..
...Z....I.1.FE:DA$(X,I).DA$(N.1,I):DA$(N
.1,I)."":.:N.N.1:.... ..15,A,A$:.A.0....
.*..A$:..C....:.15,8,15:.".EINGABEMASKE
ERSTELLEN:"......".WIEVIELE FELDER";FE.)
....FE$(FE),S$(FE):.".NAMEN UND MITTLERE
LAENGEN DER FELDER EINGEBEN:.".R...LE
.0:.I.1.FE:.I;:.FE$(I),X:LE.LE.X:......L
E.((.(X).65536).(LE.FE.3.3)):.DA$(LE,FE)
......"..ES IST PLATZ FUER".(LE)"DATENSA
ETZE.":.150...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL