> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 64 00 9F 20 31 2C 38 2C 31 35 3A 20 |..&.d.. 1,8,15: |
00000010: 8F 20 42 45 46 45 48 4C 53 4B 41 4E 41 4C 20 4F |. BEFEHLSKANAL O|
00000020: 45 46 46 4E 45 4E 00 57 08 6E 00 9F 20 32 2C 38 |EFFNEN.W.n.. 2,8|
00000030: 2C 32 2C 22 49 4E 46 4F 44 41 54 45 49 2C 53 2C |,2,"INFODATEI,S,|
00000040: 52 22 3A 20 8F 20 53 45 51 2E 44 41 54 45 49 20 |R": . SEQ.DATEI |
00000050: 4F 45 46 46 4E 45 4E 00 77 08 78 00 84 31 2C 41 |OEFFNEN.w.x..1,A|
00000060: 3A 20 8F 20 46 45 48 4C 45 52 20 41 55 46 47 45 |: . FEHLER AUFGE|
00000070: 54 52 45 54 45 4E 3F 00 AB 08 82 00 8B 20 41 B2 |TRETEN?...... A.|
00000080: 30 20 A7 20 84 32 2C 41 44 3A 20 8F 20 4E 45 49 |0 . .2,AD: . NEI|
00000090: 4E 2C 20 44 41 4E 4E 20 41 44 52 45 53 53 2D 41 |N, DANN ADRESS-A|
000000A0: 4E 5A 41 48 4C 20 4C 45 53 45 4E 00 D4 08 8C 00 |NZAHL LESEN.....|
000000B0: A0 20 32 3A 20 8F 20 53 45 51 55 45 4E 54 49 45 |. 2: . SEQUENTIE|
000000C0: 4C 4C 45 20 44 41 54 45 49 20 53 43 48 4C 49 45 |LLE DATEI SCHLIE|
000000D0: 53 53 45 4E 00 DA 08 96 00 3A 00 10 09 A0 00 9F |SSEN.....:......|
000000E0: 20 32 2C 38 2C 32 2C 22 41 44 52 45 53 53 45 4E | 2,8,2,"ADRESSEN|
000000F0: 2C 4C 2C 22 AA C7 28 31 30 30 29 3A 20 8F 20 52 |,L,"..(100): . R|
00000100: 45 4C 2D 44 41 54 45 49 20 4F 45 46 46 4E 45 4E |EL-DATEI OEFFNEN|
00000110: 00 16 09 AA 00 3A 00 1C 09 B4 00 3A 00 30 09 BE |.....:.....:.0..|
00000120: 00 8F 20 2A 2A 2A 20 4D 45 4E 55 45 20 2A 2A 2A |.. *** MENUE ***|
00000130: 00 65 09 C8 00 99 3A 99 20 22 31 3D 45 49 4E 54 |.e....:. "1=EINT|
00000140: 52 41 47 45 4E 2F 32 3D 42 4C 41 45 54 54 45 52 |RAGEN/2=BLAETTER|
00000150: 4E 2F 33 3D 41 45 4E 44 45 52 4E 2F 34 3D 45 4E |N/3=AENDERN/4=EN|
00000160: 44 45 22 3A 99 00 7F 09 D2 00 A1 20 41 24 3A 20 |DE":....... A$: |
00000170: 8B 20 41 24 B2 22 22 20 A7 20 89 20 32 31 30 00 |. A$."" . . 210.|
00000180: 85 09 DC 00 3A 00 B2 09 E6 00 8B 20 41 24 B3 B1 |....:...... A$..|
00000190: 22 34 22 20 A7 20 91 20 C5 28 41 24 29 20 8D 20 |"4" . . .(A$) . |
000001A0: 33 34 30 2C 34 33 30 2C 35 35 30 3A 20 89 20 32 |340,430,550: . 2|
000001B0: 30 30 00 B8 09 F0 00 3A 00 DD 09 FA 00 A0 20 32 |00.....:...... 2|
000001C0: 3A 20 8F 20 52 45 4C 41 54 49 56 45 20 44 41 54 |: . RELATIVE DAT|
000001D0: 45 49 20 53 43 48 4C 49 45 53 53 45 4E 00 08 0A |EI SCHLIESSEN...|
000001E0: 04 01 98 31 2C 22 53 3A 49 4E 46 4F 44 41 54 45 |...1,"S:INFODATE|
000001F0: 49 22 3A 20 8F 20 53 45 51 2E 44 41 54 45 49 20 |I": . SEQ.DATEI |
00000200: 4C 4F 45 53 43 48 45 4E 00 39 0A 0E 01 9F 20 32 |LOESCHEN.9.... 2|
00000210: 2C 38 2C 32 2C 22 49 4E 46 4F 44 41 54 45 49 2C |,8,2,"INFODATEI,|
00000220: 53 2C 57 22 3A 20 8F 20 53 45 51 2E 44 41 54 45 |S,W": . SEQ.DATE|
00000230: 49 20 4F 45 46 46 4E 45 4E 00 5D 0A 18 01 98 32 |I OEFFNEN.]....2|
00000240: 2C 41 44 3A 20 8F 20 41 44 52 45 53 53 41 4E 5A |,AD: . ADRESSANZ|
00000250: 41 48 4C 20 53 50 45 49 43 48 45 52 4E 00 84 0A |AHL SPEICHERN...|
00000260: 22 01 A0 20 32 3A 20 A0 20 31 3A 20 8F 20 41 4C |".. 2: . 1: . AL|
00000270: 4C 45 20 44 41 54 45 49 45 4E 20 53 43 48 4C 49 |LE DATEIEN SCHLI|
00000280: 45 53 45 4E 00 8A 0A 2C 01 80 00 90 0A 36 01 3A |ESEN...,.....6.:|
00000290: 00 96 0A 40 01 3A 00 BB 0A 4A 01 8F 20 2A 2A 2A |...@.:...J.. ***|
000002A0: 20 4E 45 55 45 20 41 44 52 45 53 53 45 20 45 49 | NEUE ADRESSE EI|
000002B0: 4E 54 52 41 47 45 4E 20 2A 2A 2A 00 CF 0A 54 01 |NTRAGEN ***...T.|
000002C0: 99 20 22 2A 45 49 4E 54 52 41 47 45 4E 2A 22 00 |. "*EINTRAGEN*".|
000002D0: ED 0A 5E 01 8D 20 36 35 30 3A 20 8F 20 41 44 52 |..^.. 650: . ADR|
000002E0: 45 53 53 45 20 41 42 46 52 41 47 45 4E 00 F9 0A |ESSE ABFRAGEN...|
000002F0: 68 01 41 44 B2 41 44 AA 31 00 1C 0B 72 01 52 45 |h.AD.AD.1...r.RE|
00000300: 43 B2 41 44 3A 20 8D 20 38 38 30 3A 20 8F 20 50 |C.AD: . 880: . P|
00000310: 4F 53 49 54 49 4F 4E 49 45 52 45 4E 00 38 0B 7C |OSITIONIEREN.8.||
00000320: 01 8D 20 37 34 30 3A 20 8F 20 53 41 54 5A 20 53 |.. 740: . SATZ S|
00000330: 43 48 52 45 49 42 45 4E 00 3E 0B 86 01 8E 00 44 |CHREIBEN.>.....D|
00000340: 0B 90 01 3A 00 4A 0B 9A 01 3A 00 62 0B A4 01 8F |...:.J...:.b....|
00000350: 20 2A 2A 2A 20 42 4C 41 45 54 54 45 52 4E 20 2A | *** BLAETTERN *|
00000360: 2A 2A 00 76 0B AE 01 99 20 22 2A 42 4C 41 45 54 |**.v.... "*BLAET|
00000370: 54 45 52 4E 2A 22 00 90 0B B8 01 A1 20 41 24 3A |TERN*"...... A$:|
00000380: 20 8B 20 41 24 B2 22 22 20 A7 20 89 20 34 34 30 | . A$."" . . 440|
00000390: 00 B1 0B C2 01 8B 20 41 24 B3 B1 C7 28 32 39 29 |...... A$...(29)|
000003A0: 20 AF 20 41 24 B3 B1 C7 28 31 35 37 29 20 A7 20 | . A$...(157) . |
000003B0: 8E 00 D5 0B CC 01 8B 20 41 24 B2 C7 28 32 39 29 |....... A$..(29)|
000003C0: 20 AF 20 52 45 43 B3 41 44 20 A7 20 52 45 43 B2 | . REC.AD . REC.|
000003D0: 52 45 43 AA 31 00 F9 0B D6 01 8B 20 41 24 B2 C7 |REC.1...... A$..|
000003E0: 28 31 35 37 29 20 AF 20 52 45 43 B1 31 20 A7 20 |(157) . REC.1 . |
000003F0: 52 45 43 B2 52 45 43 AB 31 00 14 0C E0 01 8D 20 |REC.REC.1...... |
00000400: 38 38 30 3A 20 8F 20 50 4F 53 49 54 49 4F 4E 49 |880: . POSITIONI|
00000410: 45 52 45 4E 00 2F 0C EA 01 8D 20 38 31 30 3A 20 |EREN./.... 810: |
00000420: 8F 20 41 44 52 45 53 53 45 20 4C 45 53 45 4E 00 |. ADRESSE LESEN.|
00000430: 4A 0C F4 01 99 3A 20 99 20 4E 24 3A 20 99 20 57 |J....: . N$: . W|
00000440: 24 3A 20 99 20 54 24 3A 20 99 00 54 0C FE 01 89 |$: . T$: ..T....|
00000450: 20 34 34 30 00 5A 0C 08 02 3A 00 60 0C 12 02 3A | 440.Z...:.`...:|
00000460: 00 76 0C 1C 02 8F 20 2A 2A 2A 20 41 45 4E 44 45 |.v.... *** AENDE|
00000470: 52 4E 20 2A 2A 2A 00 88 0C 26 02 99 20 22 2A 41 |RN ***...&.. "*A|
00000480: 45 4E 44 45 52 4E 2A 22 00 A6 0C 30 02 8D 20 36 |ENDERN*"...0.. 6|
00000490: 35 30 3A 20 8F 20 41 44 52 45 53 53 45 20 41 42 |50: . ADRESSE AB|
000004A0: 46 52 41 47 45 4E 00 C1 0C 3A 02 8D 20 38 38 30 |FRAGEN...:.. 880|
000004B0: 3A 20 8F 20 50 4F 53 49 54 49 4F 4E 49 45 52 45 |: . POSITIONIERE|
000004C0: 4E 00 DD 0C 44 02 8D 20 37 33 30 3A 20 8F 20 53 |N...D.. 730: . S|
000004D0: 41 54 5A 20 53 43 48 52 45 49 42 45 4E 00 E3 0C |ATZ SCHREIBEN...|
000004E0: 4E 02 8E 00 E9 0C 58 02 3A 00 EF 0C 62 02 3A 00 |N.....X.:...b.:.|
000004F0: 0E 0D 80 02 8F 20 2A 2A 2A 20 41 44 52 45 53 53 |..... *** ADRESS|
00000500: 45 20 41 42 46 52 41 47 45 4E 20 2A 2A 2A 00 26 |E ABFRAGEN ***.&|
00000510: 0D 8A 02 4E 24 B2 22 22 3A 20 57 24 B2 22 22 3A |...N$."": W$."":|
00000520: 20 54 24 B2 22 22 00 36 0D 94 02 85 20 22 4E 41 | T$."".6.... "NA|
00000530: 4D 45 22 3B 4E 24 00 49 0D 9E 02 85 20 22 57 4F |ME";N$.I.... "WO|
00000540: 48 4E 4F 52 54 22 3B 57 24 00 5C 0D A8 02 85 20 |HNORT";W$.\.... |
00000550: 22 54 45 4C 45 46 4F 4E 22 3B 54 24 00 62 0D B2 |"TELEFON";T$.b..|
00000560: 02 8E 00 68 0D BC 02 3A 00 6E 0D C6 02 3A 00 90 |...h...:.n...:..|
00000570: 0D D0 02 8F 20 2A 2A 2A 20 44 41 54 45 4E 53 41 |.... *** DATENSA|
00000580: 54 5A 20 53 43 48 52 45 49 42 45 4E 20 2A 2A 2A |TZ SCHREIBEN ***|
00000590: 00 C3 0D DA 02 8B 20 4E 24 B2 22 22 20 A7 20 4E |...... N$."" . N|
000005A0: 24 B2 22 2A 22 3A 20 8F 20 41 43 48 54 55 4E 47 |$."*": . ACHTUNG|
000005B0: 3A 20 44 41 53 20 53 43 48 52 45 49 42 45 4E 20 |: DAS SCHREIBEN |
000005C0: 56 4F 4E 00 F3 0D E4 02 8B 20 57 24 B2 22 22 20 |VON...... W$."" |
000005D0: A7 20 57 24 B2 22 2A 22 3A 20 8F 20 27 4C 45 45 |. W$."*": . 'LEE|
000005E0: 52 53 54 52 49 4E 47 53 27 20 4D 55 53 53 20 56 |RSTRINGS' MUSS V|
000005F0: 45 52 2D 00 1D 0E EE 02 8B 20 54 24 B2 22 22 20 |ER-...... T$."" |
00000600: A7 20 54 24 B2 22 2A 22 3A 20 8F 20 4D 49 45 44 |. T$."*": . MIED|
00000610: 45 4E 20 57 45 52 44 45 4E 20 21 21 21 00 50 0E |EN WERDEN !!!.P.|
00000620: F8 02 98 32 2C 4E 24 20 C7 28 31 33 29 20 57 24 |...2,N$ .(13) W$|
00000630: 20 C7 28 31 33 29 20 54 24 3A 20 8F 20 31 20 50 | .(13) T$: . 1 P|
00000640: 52 49 4E 54 23 2D 42 45 46 45 48 4C 20 21 21 21 |RINT#-BEFEHL !!!|
00000650: 00 56 0E 02 03 8E 00 5C 0E 0C 03 3A 00 62 0E 16 |.V.....\...:.b..|
00000660: 03 3A 00 80 0E 20 03 8F 20 2A 2A 2A 20 44 41 54 |.:... .. *** DAT|
00000670: 45 4E 53 41 54 5A 20 4C 45 53 45 4E 20 2A 2A 2A |ENSATZ LESEN ***|
00000680: 00 9C 0E 2A 03 84 32 2C 4E 24 3A 20 8B 20 4E 24 |...*..2,N$: . N$|
00000690: B2 22 2A 22 20 A7 20 4E 24 B2 22 22 00 B8 0E 34 |."*" . N$.""...4|
000006A0: 03 84 32 2C 57 24 3A 20 8B 20 57 24 B2 22 2A 22 |..2,W$: . W$."*"|
000006B0: 20 A7 20 57 24 B2 22 22 00 D4 0E 3E 03 84 32 2C | . W$.""...>..2,|
000006C0: 54 24 3A 20 8B 20 54 24 B2 22 2A 22 20 A7 20 54 |T$: . T$."*" . T|
000006D0: 24 B2 22 22 00 DA 0E 48 03 8E 00 E0 0E 52 03 3A |$.""...H.....R.:|
000006E0: 00 E6 0E 5C 03 3A 00 02 0F 66 03 8F 20 2A 2A 2A |...\.:...f.. ***|
000006F0: 20 50 4F 53 49 54 49 4F 4E 49 45 52 45 4E 20 2A | POSITIONIEREN *|
00000700: 2A 2A 00 14 0F 70 03 48 42 B2 B5 28 52 45 43 AD |**...p.HB..(REC.|
00000710: 32 35 36 29 00 26 0F 7A 03 4C 42 B2 52 45 43 AB |256).&.z.LB.REC.|
00000720: 48 42 AC 32 35 36 00 47 0F 84 03 98 31 2C 22 50 |HB.256.G....1,"P|
00000730: 22 AA C7 28 32 29 AA C7 28 4C 42 29 AA C7 28 48 |"..(2)..(LB)..(H|
00000740: 42 29 AA C7 28 31 29 00 4D 0F 8E 03 8E 00 53 0F |B)..(1).M.....S.|
00000750: 98 03 3A 00 59 0F A2 03 3A 00 00 00 |..:.Y...:... |
..&.D.. 1,8,15: . BEFEHLSKANAL OEFFNEN.W
.N.. 2,8,2,"INFODATEI,S,R": . SEQ.DATEI
OEFFNEN.W.X..1,A: . FEHLER AUFGETRETEN?.
..... A.0 . .2,AD: . NEIN, DANN ADRESS-A
NZAHL LESEN.T... 2: . SEQUENTIELLE DATE
I SCHLIESSEN.Z...:... .. 2,8,2,"ADRESSEN
,L,".G(100): . REL-DATEI OEFFNEN.....:..
...:.0.... *** MENUE ***.E.H..:. "1=EINT
RAGEN/2=BLAETTERN/3=AENDERN/4=ENDE":...
R.. A$: . A$."" . . 210.....:...... A$..
"4" . . E(A$) . 340,430,550: . 200.....:
..... 2: . RELATIVE DATEI SCHLIESSEN...
...1,"S:INFODATEI": . SEQ.DATEI LOESCHEN
.9.... 2,8,2,"INFODATEI,S,W": . SEQ.DATE
I OEFFNEN.]....2,AD: . ADRESSANZAHL SPEI
CHERN...". 2: 1: . ALLE DATEIEN SCHLI
ESEN...,.....6.:...@.:...J.. *** NEUE AD
RESSE EINTRAGEN ***.O.T.. "*EINTRAGEN*".
..^.. 650: . ADRESSE ABFRAGEN...H.AD.AD.
1...R.REC.AD: . 880: . POSITIONIEREN.8.|
.. 740: . SATZ SCHREIBEN.>.....D...:.J..
.:.B.... *** BLAETTERN ***.V.... "*BLAET
TERN*"...... A$: . A$."" . . 440...B.. A
$..G(29) . A$..G(157) . ..U.L.. A$.G(29)
. REC.AD . REC.REC.1...V.. A$.G(157) .
REC.1 . REC.REC.1...... 880: . POSITIONI
EREN./.... 810: . ADRESSE LESEN.J....: .
N$: . W$: . T$: ..T.... 440.Z...:.`...:
.V.... *** AENDERN ***...&.. "*AENDERN*"
...0.. 650: . ADRESSE ABFRAGEN.A.:.. 880
: . POSITIONIEREN...D.. 730: . SATZ SCHR
EIBEN...N.....X.:...B.:...... *** ADRESS
E ABFRAGEN ***.&...N$."": W$."": T$."".6
.... "NAME";N$.I.... "WOHNORT";W$.\....
"TELEFON";T$.B.....H...:.N.F.:...P.. ***
DATENSATZ SCHREIBEN ***.C.Z.. N$."" . N
$."*": . ACHTUNG: DAS SCHREIBEN VON.....
. W$."" . W$."*": . 'LEERSTRINGS' MUSS V
ER-...... T$."" . T$."*": . MIEDEN WERDE
N !!!.P....2,N$ G(13) W$ G(13) T$: . 1 P
RINT#-BEFEHL !!!.V.....\...:.B...:... ..
*** DATENSATZ LESEN ***...*..2,N$: . N$
."*" . N$.""...4..2,W$: . W$."*" . W$.""
.T.>..2,T$: . T$."*" . T$."".Z.H.....R.:
...\.:...F.. *** POSITIONIEREN ***...P.H
B..(REC.256).&.Z.LB.REC.HB.256.G....1,"P
".G(2).G(LB).G(HB).G(1).M.....S...:.Y...
:...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL