> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 5A 00 86 20 4E 41 4D 45 24 28 31 30 |....Z.. NAME$(10|
00000010: 30 29 2C 20 52 45 43 25 28 31 30 30 29 00 42 08 |0), REC%(100).B.|
00000020: 64 00 9F 20 31 2C 38 2C 31 35 3A 20 8F 20 42 45 |d.. 1,8,15: . BE|
00000030: 46 45 48 4C 53 4B 41 4E 41 4C 20 4F 45 46 46 4E |FEHLSKANAL OEFFN|
00000040: 45 4E 00 73 08 6E 00 9F 20 32 2C 38 2C 32 2C 22 |EN.s.n.. 2,8,2,"|
00000050: 49 4E 46 4F 44 41 54 45 49 2C 53 2C 52 22 3A 20 |INFODATEI,S,R": |
00000060: 8F 20 53 45 51 2E 44 41 54 45 49 20 4F 45 46 46 |. SEQ.DATEI OEFF|
00000070: 4E 45 4E 00 93 08 78 00 84 31 2C 41 3A 20 8F 20 |NEN...x..1,A: . |
00000080: 46 45 48 4C 45 52 20 41 55 46 47 45 54 52 45 54 |FEHLER AUFGETRET|
00000090: 45 4E 3F 00 B9 08 82 00 8B 20 41 B3 B1 30 20 A7 |EN?...... A..0 .|
000000A0: 20 89 20 31 34 30 3A 20 8F 20 4A 41 2C 20 44 41 | . 140: . JA, DA|
000000B0: 4E 4E 20 57 45 49 54 45 52 00 D9 08 84 00 84 32 |NN WEITER......2|
000000C0: 2C 41 44 3A 20 8F 20 41 44 52 45 53 53 41 4E 5A |,AD: . ADRESSANZ|
000000D0: 41 48 4C 20 4C 45 53 45 4E 00 E8 08 86 00 81 20 |AHL LESEN...... |
000000E0: 49 B2 31 20 A4 20 41 44 00 06 09 88 00 3A 20 84 |I.1 . AD.....: .|
000000F0: 32 2C 4E 41 4D 45 24 28 49 29 3A 20 84 32 2C 52 |2,NAME$(I): .2,R|
00000100: 45 43 25 28 49 29 00 29 09 89 00 3A 20 8B 20 4E |EC%(I).)...: . N|
00000110: 41 4D 45 24 28 49 29 B2 22 2A 22 20 A7 20 4E 41 |AME$(I)."*" . NA|
00000120: 4D 45 24 28 49 29 B2 22 22 00 31 09 8A 00 82 20 |ME$(I)."".1.... |
00000130: 49 00 5A 09 8C 00 A0 20 32 3A 20 8F 20 53 45 51 |I.Z.... 2: . SEQ|
00000140: 55 45 4E 54 49 45 4C 4C 45 20 44 41 54 45 49 20 |UENTIELLE DATEI |
00000150: 53 43 48 4C 49 45 53 53 45 4E 00 60 09 96 00 3A |SCHLIESSEN.`...:|
00000160: 00 96 09 A0 00 9F 20 32 2C 38 2C 32 2C 22 41 44 |...... 2,8,2,"AD|
00000170: 52 45 53 53 45 4E 2C 4C 2C 22 AA C7 28 31 30 30 |RESSEN,L,"..(100|
00000180: 29 3A 20 8F 20 52 45 4C 2D 44 41 54 45 49 20 4F |): . REL-DATEI O|
00000190: 45 46 46 4E 45 4E 00 9C 09 AA 00 3A 00 A2 09 B4 |EFFNEN.....:....|
000001A0: 00 3A 00 B6 09 BE 00 8F 20 2A 2A 2A 20 4D 45 4E |.:...... *** MEN|
000001B0: 55 45 20 2A 2A 2A 00 F4 09 C8 00 99 3A 99 20 22 |UE ***......:. "|
000001C0: 31 3D 45 49 4E 54 52 41 47 45 4E 2F 32 3D 53 55 |1=EINTRAGEN/2=SU|
000001D0: 43 48 45 4E 2F 33 3D 42 4C 41 45 54 54 45 52 4E |CHEN/3=BLAETTERN|
000001E0: 2F 34 3D 41 45 4E 44 45 52 4E 2F 35 3D 45 4E 44 |/4=AENDERN/5=END|
000001F0: 45 22 3A 99 00 0E 0A D2 00 A1 20 41 24 3A 20 8B |E":....... A$: .|
00000200: 20 41 24 B2 22 22 20 A7 20 89 20 32 31 30 00 14 | A$."" . . 210..|
00000210: 0A DC 00 3A 00 46 0A E6 00 8B 20 41 24 B3 B1 22 |...:.F.... A$.."|
00000220: 35 22 20 A7 20 91 20 C5 28 41 24 29 20 8D 20 33 |5" . . .(A$) . 3|
00000230: 34 30 2C 31 30 36 30 2C 34 33 30 2C 35 35 30 3A |40,1060,430,550:|
00000240: 20 89 20 32 30 30 00 4C 0A F0 00 3A 00 71 0A FA | . 200.L...:.q..|
00000250: 00 A0 20 32 3A 20 8F 20 52 45 4C 41 54 49 56 45 |.. 2: . RELATIVE|
00000260: 20 44 41 54 45 49 20 53 43 48 4C 49 45 53 53 45 | DATEI SCHLIESSE|
00000270: 4E 00 9C 0A 04 01 98 31 2C 22 53 3A 49 4E 46 4F |N......1,"S:INFO|
00000280: 44 41 54 45 49 22 3A 20 8F 20 53 45 51 2E 44 41 |DATEI": . SEQ.DA|
00000290: 54 45 49 20 4C 4F 45 53 43 48 45 4E 00 CD 0A 0E |TEI LOESCHEN....|
000002A0: 01 9F 20 32 2C 38 2C 32 2C 22 49 4E 46 4F 44 41 |.. 2,8,2,"INFODA|
000002B0: 54 45 49 2C 53 2C 57 22 3A 20 8F 20 53 45 51 2E |TEI,S,W": . SEQ.|
000002C0: 44 41 54 45 49 20 4F 45 46 46 4E 45 4E 00 F1 0A |DATEI OEFFNEN...|
000002D0: 18 01 98 32 2C 41 44 3A 20 8F 20 41 44 52 45 53 |...2,AD: . ADRES|
000002E0: 53 41 4E 5A 41 48 4C 20 53 50 45 49 43 48 45 52 |SANZAHL SPEICHER|
000002F0: 4E 00 00 0B 1A 01 81 20 49 B2 31 20 A4 20 41 44 |N...... I.1 . AD|
00000300: 00 23 0B 1C 01 3A 20 8B 20 4E 41 4D 45 24 28 49 |.#...: . NAME$(I|
00000310: 29 B2 22 22 20 A7 20 4E 41 4D 45 24 28 49 29 B2 |)."" . NAME$(I).|
00000320: 22 2A 22 00 41 0B 1E 01 3A 20 98 32 2C 4E 41 4D |"*".A...: .2,NAM|
00000330: 45 24 28 49 29 3A 20 98 32 2C 52 45 43 25 28 49 |E$(I): .2,REC%(I|
00000340: 29 00 49 0B 20 01 82 20 49 00 70 0B 22 01 A0 20 |).I. .. I.p.".. |
00000350: 32 3A 20 A0 20 31 3A 20 8F 20 41 4C 4C 45 20 44 |2: . 1: . ALLE D|
00000360: 41 54 45 49 45 4E 20 53 43 48 4C 49 45 53 45 4E |ATEIEN SCHLIESEN|
00000370: 00 76 0B 2C 01 80 00 7C 0B 36 01 3A 00 82 0B 40 |.v.,...|.6.:...@|
00000380: 01 3A 00 A7 0B 4A 01 8F 20 2A 2A 2A 20 4E 45 55 |.:...J.. *** NEU|
00000390: 45 20 41 44 52 45 53 53 45 20 45 49 4E 54 52 41 |E ADRESSE EINTRA|
000003A0: 47 45 4E 20 2A 2A 2A 00 BB 0B 54 01 99 20 22 2A |GEN ***...T.. "*|
000003B0: 45 49 4E 54 52 41 47 45 4E 2A 22 00 D9 0B 5E 01 |EINTRAGEN*"...^.|
000003C0: 8D 20 36 35 30 3A 20 8F 20 41 44 52 45 53 53 45 |. 650: . ADRESSE|
000003D0: 20 41 42 46 52 41 47 45 4E 00 E5 0B 68 01 41 44 | ABFRAGEN...h.AD|
000003E0: B2 41 44 AA 31 00 08 0C 72 01 52 45 43 B2 41 44 |.AD.1...r.REC.AD|
000003F0: 3A 20 8D 20 38 38 30 3A 20 8F 20 50 4F 53 49 54 |: . 880: . POSIT|
00000400: 49 4F 4E 49 45 52 45 4E 00 41 0C 77 01 4E 41 4D |IONIEREN.A.w.NAM|
00000410: 45 24 28 41 44 29 B2 4E 24 3A 20 52 45 43 25 28 |E$(AD).N$: REC%(|
00000420: 41 44 29 B2 52 45 43 3A 20 8D 20 39 35 30 3A 20 |AD).REC: . 950: |
00000430: 8F 20 49 4E 44 45 58 20 53 4F 52 54 49 45 52 45 |. INDEX SORTIERE|
00000440: 4E 00 5D 0C 7C 01 8D 20 37 34 30 3A 20 8F 20 53 |N.].|.. 740: . S|
00000450: 41 54 5A 20 53 43 48 52 45 49 42 45 4E 00 63 0C |ATZ SCHREIBEN.c.|
00000460: 86 01 8E 00 69 0C 90 01 3A 00 6F 0C 9A 01 3A 00 |....i...:.o...:.|
00000470: 87 0C A4 01 8F 20 2A 2A 2A 20 42 4C 41 45 54 54 |..... *** BLAETT|
00000480: 45 52 4E 20 2A 2A 2A 00 9B 0C AE 01 99 20 22 2A |ERN ***...... "*|
00000490: 42 4C 41 45 54 54 45 52 4E 2A 22 00 AC 0C B3 01 |BLAETTERN*".....|
000004A0: 53 4E 52 B2 31 3A 20 89 20 34 37 35 00 C6 0C B8 |SNR.1: . 475....|
000004B0: 01 A1 20 41 24 3A 20 8B 20 41 24 B2 22 22 20 A7 |.. A$: . A$."" .|
000004C0: 20 89 20 34 34 30 00 E7 0C C2 01 8B 20 41 24 B3 | . 440...... A$.|
000004D0: B1 C7 28 32 39 29 20 AF 20 41 24 B3 B1 C7 28 31 |..(29) . A$...(1|
000004E0: 35 37 29 20 A7 20 8E 00 0B 0D CC 01 8B 20 41 24 |57) . ....... A$|
000004F0: B2 C7 28 32 39 29 20 AF 20 53 4E 52 B3 41 44 20 |..(29) . SNR.AD |
00000500: A7 20 53 4E 52 B2 53 4E 52 AA 31 00 2F 0D D6 01 |. SNR.SNR.1./...|
00000510: 8B 20 41 24 B2 C7 28 31 35 37 29 20 AF 20 53 4E |. A$..(157) . SN|
00000520: 52 B1 31 20 A7 20 53 4E 52 B2 53 4E 52 AB 31 00 |R.1 . SNR.SNR.1.|
00000530: 41 0D DB 01 52 45 43 B2 52 45 43 25 28 53 4E 52 |A...REC.REC%(SNR|
00000540: 29 00 5C 0D E0 01 8D 20 38 38 30 3A 20 8F 20 50 |).\.... 880: . P|
00000550: 4F 53 49 54 49 4F 4E 49 45 52 45 4E 00 77 0D EA |OSITIONIEREN.w..|
00000560: 01 8D 20 38 31 30 3A 20 8F 20 41 44 52 45 53 53 |.. 810: . ADRESS|
00000570: 45 20 4C 45 53 45 4E 00 92 0D F4 01 99 3A 20 99 |E LESEN......: .|
00000580: 20 4E 24 3A 20 99 20 57 24 3A 20 99 20 54 24 3A | N$: . W$: . T$:|
00000590: 20 99 00 9C 0D FE 01 89 20 34 34 30 00 A2 0D 08 | ....... 440....|
000005A0: 02 3A 00 A8 0D 12 02 3A 00 BE 0D 1C 02 8F 20 2A |.:.....:...... *|
000005B0: 2A 2A 20 41 45 4E 44 45 52 4E 20 2A 2A 2A 00 D0 |** AENDERN ***..|
000005C0: 0D 26 02 99 20 22 2A 41 45 4E 44 45 52 4E 2A 22 |.&.. "*AENDERN*"|
000005D0: 00 EE 0D 30 02 8D 20 36 35 30 3A 20 8F 20 41 44 |...0.. 650: . AD|
000005E0: 52 45 53 53 45 20 41 42 46 52 41 47 45 4E 00 09 |RESSE ABFRAGEN..|
000005F0: 0E 3A 02 8D 20 38 38 30 3A 20 8F 20 50 4F 53 49 |.:.. 880: . POSI|
00000600: 54 49 4F 4E 49 45 52 45 4E 00 44 0E 3F 02 4E 41 |TIONIEREN.D.?.NA|
00000610: 4D 45 24 28 53 4E 52 29 B2 4E 24 3A 20 52 45 43 |ME$(SNR).N$: REC|
00000620: 25 28 53 4E 52 29 B2 52 45 43 3A 20 8D 20 39 35 |%(SNR).REC: . 95|
00000630: 30 3A 20 8F 20 49 4E 44 45 58 20 53 4F 52 54 49 |0: . INDEX SORTI|
00000640: 45 52 45 4E 00 60 0E 44 02 8D 20 37 33 30 3A 20 |EREN.`.D.. 730: |
00000650: 8F 20 53 41 54 5A 20 53 43 48 52 45 49 42 45 4E |. SATZ SCHREIBEN|
00000660: 00 66 0E 4E 02 8E 00 6C 0E 58 02 3A 00 72 0E 62 |.f.N...l.X.:.r.b|
00000670: 02 3A 00 91 0E 80 02 8F 20 2A 2A 2A 20 41 44 52 |.:...... *** ADR|
00000680: 45 53 53 45 20 41 42 46 52 41 47 45 4E 20 2A 2A |ESSE ABFRAGEN **|
00000690: 2A 00 A9 0E 8A 02 4E 24 B2 22 22 3A 20 57 24 B2 |*.....N$."": W$.|
000006A0: 22 22 3A 20 54 24 B2 22 22 00 B9 0E 94 02 85 20 |"": T$.""...... |
000006B0: 22 4E 41 4D 45 22 3B 4E 24 00 CC 0E 9E 02 85 20 |"NAME";N$...... |
000006C0: 22 57 4F 48 4E 4F 52 54 22 3B 57 24 00 DF 0E A8 |"WOHNORT";W$....|
000006D0: 02 85 20 22 54 45 4C 45 46 4F 4E 22 3B 54 24 00 |.. "TELEFON";T$.|
000006E0: E5 0E B2 02 8E 00 EB 0E BC 02 3A 00 F1 0E C6 02 |..........:.....|
000006F0: 3A 00 13 0F D0 02 8F 20 2A 2A 2A 20 44 41 54 45 |:...... *** DATE|
00000700: 4E 53 41 54 5A 20 53 43 48 52 45 49 42 45 4E 20 |NSATZ SCHREIBEN |
00000710: 2A 2A 2A 00 46 0F DA 02 8B 20 4E 24 B2 22 22 20 |***.F.... N$."" |
00000720: A7 20 4E 24 B2 22 2A 22 3A 20 8F 20 41 43 48 54 |. N$."*": . ACHT|
00000730: 55 4E 47 3A 20 44 41 53 20 53 43 48 52 45 49 42 |UNG: DAS SCHREIB|
00000740: 45 4E 20 56 4F 4E 00 76 0F E4 02 8B 20 57 24 B2 |EN VON.v.... W$.|
00000750: 22 22 20 A7 20 57 24 B2 22 2A 22 3A 20 8F 20 27 |"" . W$."*": . '|
00000760: 4C 45 45 52 53 54 52 49 4E 47 53 27 20 4D 55 53 |LEERSTRINGS' MUS|
00000770: 53 20 56 45 52 2D 00 A0 0F EE 02 8B 20 54 24 B2 |S VER-...... T$.|
00000780: 22 22 20 A7 20 54 24 B2 22 2A 22 3A 20 8F 20 4D |"" . T$."*": . M|
00000790: 49 45 44 45 4E 20 57 45 52 44 45 4E 20 21 21 21 |IEDEN WERDEN !!!|
000007A0: 00 D3 0F F8 02 98 32 2C 4E 24 20 C7 28 31 33 29 |......2,N$ .(13)|
000007B0: 20 57 24 20 C7 28 31 33 29 20 54 24 3A 20 8F 20 | W$ .(13) T$: . |
000007C0: 31 20 50 52 49 4E 54 23 2D 42 45 46 45 48 4C 20 |1 PRINT#-BEFEHL |
000007D0: 21 21 21 00 D9 0F 02 03 8E 00 DF 0F 0C 03 3A 00 |!!!...........:.|
000007E0: E5 0F 16 03 3A 00 03 10 20 03 8F 20 2A 2A 2A 20 |....:... .. *** |
000007F0: 44 41 54 45 4E 53 41 54 5A 20 4C 45 53 45 4E 20 |DATENSATZ LESEN |
00000800: 2A 2A 2A 00 1F 10 2A 03 84 32 2C 4E 24 3A 20 8B |***...*..2,N$: .|
00000810: 20 4E 24 B2 22 2A 22 20 A7 20 4E 24 B2 22 22 00 | N$."*" . N$."".|
00000820: 3B 10 34 03 84 32 2C 57 24 3A 20 8B 20 57 24 B2 |;.4..2,W$: . W$.|
00000830: 22 2A 22 20 A7 20 57 24 B2 22 22 00 57 10 3E 03 |"*" . W$."".W.>.|
00000840: 84 32 2C 54 24 3A 20 8B 20 54 24 B2 22 2A 22 20 |.2,T$: . T$."*" |
00000850: A7 20 54 24 B2 22 22 00 5D 10 48 03 8E 00 63 10 |. T$."".].H...c.|
00000860: 52 03 3A 00 69 10 5C 03 3A 00 85 10 66 03 8F 20 |R.:.i.\.:...f.. |
00000870: 2A 2A 2A 20 50 4F 53 49 54 49 4F 4E 49 45 52 45 |*** POSITIONIERE|
00000880: 4E 20 2A 2A 2A 00 97 10 70 03 48 42 B2 B5 28 52 |N ***...p.HB..(R|
00000890: 45 43 AD 32 35 36 29 00 A9 10 7A 03 4C 42 B2 52 |EC.256)...z.LB.R|
000008A0: 45 43 AB 48 42 AC 32 35 36 00 CA 10 84 03 98 31 |EC.HB.256......1|
000008B0: 2C 22 50 22 AA C7 28 32 29 AA C7 28 4C 42 29 AA |,"P"..(2)..(LB).|
000008C0: C7 28 48 42 29 AA C7 28 31 29 00 D0 10 8E 03 8E |.(HB)..(1)......|
000008D0: 00 D6 10 98 03 3A 00 DC 10 A2 03 3A 00 F4 10 AC |.....:.....:....|
000008E0: 03 8F 20 2A 2A 2A 20 53 4F 52 54 49 45 52 45 4E |.. *** SORTIEREN|
000008F0: 20 2A 2A 2A 00 05 11 B6 03 81 20 49 B2 31 20 A4 | ***...... I.1 .|
00000900: 20 41 44 AB 31 00 16 11 C0 03 3A 20 81 20 4A B2 | AD.1.....: . J.|
00000910: 49 20 A4 20 41 44 00 3A 11 CA 03 3A 20 20 20 8B |I . AD.:...: .|
00000920: 20 4E 41 4D 45 24 28 49 29 B3 B2 4E 41 4D 45 24 | NAME$(I)..NAME$|
00000930: 28 4A 29 20 A7 20 31 30 30 30 00 6E 11 D4 03 3A |(J) . 1000.n...:|
00000940: 20 20 20 53 24 B2 4E 41 4D 45 24 28 49 29 3A 20 | S$.NAME$(I): |
00000950: 4E 41 4D 45 24 28 49 29 B2 4E 41 4D 45 24 28 4A |NAME$(I).NAME$(J|
00000960: 29 3A 20 4E 41 4D 45 24 28 4A 29 B2 53 24 00 9C |): NAME$(J).S$..|
00000970: 11 DE 03 3A 20 20 20 53 B2 52 45 43 25 28 49 29 |...: S.REC%(I)|
00000980: 3A 20 52 45 43 25 28 49 29 B2 52 45 43 25 28 4A |: REC%(I).REC%(J|
00000990: 29 3A 20 52 45 43 25 28 4A 29 B2 53 00 A6 11 E8 |): REC%(J).S....|
000009A0: 03 3A 20 82 20 4A 00 AE 11 F2 03 82 20 49 00 B4 |.: . J...... I..|
000009B0: 11 FC 03 8E 00 BA 11 06 04 3A 00 C0 11 10 04 3A |.........:.....:|
000009C0: 00 DD 11 1A 04 8F 20 2A 2A 2A 20 41 44 52 45 53 |...... *** ADRES|
000009D0: 53 45 20 53 55 43 48 45 4E 20 2A 2A 2A 00 F8 11 |SE SUCHEN ***...|
000009E0: 24 04 85 20 22 47 45 53 55 43 48 54 45 52 20 4E |$.. "GESUCHTER N|
000009F0: 41 4D 45 22 3B 53 4E 24 00 09 12 2E 04 81 20 53 |AME";SN$...... S|
00000A00: 4E 52 B2 31 20 A4 20 41 44 00 2A 12 38 04 3A 20 |NR.1 . AD.*.8.: |
00000A10: 8B 20 4E 41 4D 45 24 28 53 4E 52 29 B3 B1 53 4E |. NAME$(SNR)..SN|
00000A20: 24 20 A7 20 89 20 31 31 35 30 00 3E 12 42 04 3A |$ . . 1150.>.B.:|
00000A30: 20 52 45 43 B2 52 45 43 25 28 53 4E 52 29 00 5B | REC.REC%(SNR).[|
00000A40: 12 4C 04 3A 20 8D 20 38 38 30 3A 20 8F 20 50 4F |.L.: . 880: . PO|
00000A50: 53 49 54 49 4F 4E 49 45 52 45 4E 00 75 12 56 04 |SITIONIEREN.u.V.|
00000A60: 3A 20 8D 20 38 31 30 3A 20 8F 20 53 41 54 5A 20 |: . 810: . SATZ |
00000A70: 4C 45 53 45 4E 00 92 12 60 04 3A 20 99 3A 20 99 |LESEN...`.: .: .|
00000A80: 20 4E 24 3A 20 99 20 57 24 3A 20 99 20 54 24 3A | N$: . W$: . T$:|
00000A90: 20 99 00 B1 12 6A 04 3A 20 85 20 22 57 45 49 54 | ....j.: . "WEIT|
00000AA0: 45 52 53 55 43 48 45 4E 28 4A 2F 4E 29 22 3B 41 |ERSUCHEN(J/N)";A|
00000AB0: 24 00 C5 12 74 04 3A 20 8B 20 41 24 B3 B1 22 4A |$...t.: . A$.."J|
00000AC0: 22 20 A7 20 8E 00 CF 12 7E 04 82 20 53 4E 52 00 |" . ....~.. SNR.|
00000AD0: D5 12 88 04 8E 00 00 00 |........ |
....Z.. NAME$(100), REC%(100).B.D.. 1,8,
15: . BEFEHLSKANAL OEFFNEN.S.N.. 2,8,2,"
INFODATEI,S,R": . SEQ.DATEI OEFFNEN...X.
.1,A: . FEHLER AUFGETRETEN?...... A..0 .
. 140: . JA, DANN WEITER.Y....2,AD: . A
DRESSANZAHL LESEN...... I.1 . AD.....: .
2,NAME$(I): .2,REC%(I).)...: . NAME$(I).
"*" . NAME$(I)."".1.... I.Z... 2: . SEQ
UENTIELLE DATEI SCHLIESSEN.`...:... .. 2
,8,2,"ADRESSEN,L,".G(100): . REL-DATEI O
EFFNEN.....:.....:...... *** MENUE ***..
.H..:. "1=EINTRAGEN/2=SUCHEN/3=BLAETTERN
/4=AENDERN/5=ENDE":....R.. A$: . A$."" .
. 210.....:.F.... A$.."5" . . E(A$) . 3
40,1060,430,550: . 200.L...:.Q... 2: .
RELATIVE DATEI SCHLIESSEN......1,"S:INFO
DATEI": . SEQ.DATEI LOESCHEN.M.... 2,8,2
,"INFODATEI,S,W": . SEQ.DATEI OEFFNEN...
...2,AD: . ADRESSANZAHL SPEICHERN......
I.1 . AD.#...: . NAME$(I)."" . NAME$(I).
"*".A...: .2,NAME$(I): .2,REC%(I).I. ..
I.P.". 2: 1: . ALLE DATEIEN SCHLIESEN
.V.,...|.6.:...@.:...J.. *** NEUE ADRESS
E EINTRAGEN ***...T.. "*EINTRAGEN*".Y.^.
. 650: . ADRESSE ABFRAGEN...H.AD.AD.1...
R.REC.AD: . 880: . POSITIONIEREN.A.W.NAM
E$(AD).N$: REC%(AD).REC: . 950: . INDEX
SORTIEREN.].|.. 740: . SATZ SCHREIBEN.C.
....I...:.O...:...... *** BLAETTERN ***.
..... "*BLAETTERN*".....SNR.1: . 475.F..
.. A$: . A$."" . . 440...B.. A$..G(29) .
A$..G(157) . ....L.. A$.G(29) . SNR.AD
. SNR.SNR.1./.V.. A$.G(157) . SNR.1 . SN
R.SNR.1.A...REC.REC%(SNR).\.... 880: . P
OSITIONIEREN.W.... 810: . ADRESSE LESEN.
.....: . N$: . W$: . T$: ....... 440....
.:.....:...... *** AENDERN ***.P.&.. "*A
ENDERN*"...0.. 650: . ADRESSE ABFRAGEN..
.:.. 880: . POSITIONIEREN.D.?.NAME$(SNR)
.N$: REC%(SNR).REC: . 950: . INDEX SORTI
EREN.`.D.. 730: . SATZ SCHREIBEN.F.N...L
.X.:.R.B.:...... *** ADRESSE ABFRAGEN **
*.....N$."": W$."": T$.""...... "NAME";N
$.L.... "WOHNORT";W$...... "TELEFON";T$.
..........:...F.:...P.. *** DATENSATZ SC
HREIBEN ***.F.Z.. N$."" . N$."*": . ACHT
UNG: DAS SCHREIBEN VON.V.... W$."" . W$.
"*": . 'LEERSTRINGS' MUSS VER-. .... T$.
"" . T$."*": . MIEDEN WERDEN !!!.S....2,
N$ G(13) W$ G(13) T$: . 1 PRINT#-BEFEHL
!!!.Y.........:.....:... .. *** DATENSAT
Z LESEN ***...*..2,N$: . N$."*" . N$."".
;.4..2,W$: . W$."*" . W$."".W.>..2,T$: .
T$."*" . T$."".].H...C.R.:.I.\.:...F..
*** POSITIONIEREN ***...P.HB..(REC.256).
..Z.LB.REC.HB.256.J....1,"P".G(2).G(LB).
G(HB).G(1).P.....V...:.....:...... *** S
ORTIEREN ***...... I.1 . AD.1.....: . J.
I . AD.:.J.: . NAME$(I)..NAME$(J) . 10
00.N.T.: S$.NAME$(I): NAME$(I).NAME$(J
): NAME$(J).S$.....: S.REC%(I): REC%(I
).REC%(J): REC%(J).S.....: . J...... I..
.........:.....:...... *** ADRESSE SUCHE
N ***...$.. "GESUCHTER NAME";SN$...... S
NR.1 . AD.*.8.: . NAME$(SNR)..SN$ . . 11
50.>.B.: REC.REC%(SNR).[.L.: . 880: . PO
SITIONIEREN.U.V.: . 810: . SATZ LESEN...
`.: .: . N$: . W$: . T$: ....J.: . "WEIT
ERSUCHEN(J/N)";A$.E.T.: . A$.."J" . ..O.
~.. SNR.U.......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL