ADRESSEN
FILE INFORMATION
FILENAME(S): ADRESSEN
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 21:23:11
APPEARS ON: 1 disk(s)
FILE HASH
9ca81aa9d320ca368efe98c1898db8479636a3f4404bd0724d1b405ef21fbcd2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 3 1 | ADRESSEN | PRG | DuncanTwain | 31 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 01 00 8F 30 2A 2A 2A 20 41 44 52 45 |..&....0*** ADRE|
00000010: 53 53 45 4E 20 56 2E 20 31 2E 31 20 44 45 5A 20 |SSEN V. 1.1 DEZ |
00000020: 38 33 20 2A 2A 2A 00 3A 08 02 00 4D 41 58 B2 32 |83 ***.:...MAX.2|
00000030: 30 30 20 3A 20 53 50 B2 33 33 00 4A 08 03 00 86 |00 : SP.33.J....|
00000040: 41 44 24 28 4D 41 58 2C 34 29 00 63 08 04 00 99 |AD$(MAX,4).c....|
00000050: 20 C7 28 31 34 37 29 AA C7 28 31 34 32 29 AA C7 | .(147)..(142)..|
00000060: 28 38 29 00 8A 08 05 00 8F 20 2A 2A 20 49 4E 49 |(8)...... ** INI|
00000070: 54 49 41 4C 49 53 49 45 52 55 4E 47 20 42 49 4C |TIALISIERUNG BIL|
00000080: 44 53 43 48 49 52 4D 20 3A 2A 00 AE 08 06 00 97 |DSCHIRM :*......|
00000090: 20 35 33 32 38 30 2C 32 20 3A 20 97 35 33 32 38 | 53280,2 : .5328|
000000A0: 31 2C 32 20 3A 20 99 20 C7 28 31 34 34 29 00 C7 |1,2 : . .(144)..|
000000B0: 08 07 00 8F 20 2A 2A 20 41 55 46 42 41 55 20 4D |.... ** AUFBAU M|
000000C0: 45 4E 55 45 20 2A 2A 00 EF 08 08 00 99 20 A6 31 |ENUE **...... .1|
000000D0: 30 29 3B C7 28 31 38 29 22 41 44 52 45 53 53 45 |0);.(18)"ADRESSE|
000000E0: 4E 56 45 52 57 41 4C 54 55 4E 47 22 3A 20 99 00 |NVERWALTUNG": ..|
000000F0: 20 09 09 00 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ...."**********|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 3A 2A 2A 2A 2A 2A 2A 2A |********:*******|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3B |**************";|
00000120: 00 5A 09 0A 00 99 22 2A 22 A6 33 38 29 22 2A 22 |.Z...."*".38)"*"|
00000130: 3B 20 3A 20 99 22 2A 22 A6 31 36 29 22 4D 45 4E |; : ."*".16)"MEN|
00000140: 55 45 22 A6 31 37 29 22 2A 22 3B 20 3A 20 99 22 |UE".17)"*"; : ."|
00000150: 2A 22 A6 33 38 29 22 2A 22 3B 00 9A 09 0B 00 99 |*".38)"*";......|
00000160: 22 2A 20 20 20 20 20 20 2D 31 2D 20 41 44 52 45 |"* -1- ADRE|
00000170: 53 53 45 4E 20 45 49 4E 47 45 42 45 4E 20 20 20 |SSEN EINGEBEN |
00000180: 20 20 20 20 20 20 20 20 2A 22 3B 20 3A 20 99 22 | *"; : ."|
00000190: 2A 22 A6 33 38 29 22 2A 22 3B 00 DA 09 0C 00 99 |*".38)"*";......|
000001A0: 22 2A 20 20 20 20 20 20 2D 32 2D 20 41 44 52 45 |"* -2- ADRE|
000001B0: 53 53 45 4E 20 41 55 46 20 44 49 53 4B 20 20 20 |SSEN AUF DISK |
000001C0: 20 20 20 20 20 20 20 20 2A 22 3B 20 3A 20 99 22 | *"; : ."|
000001D0: 2A 22 A6 33 38 29 22 2A 22 3B 00 1A 0A 0D 00 99 |*".38)"*";......|
000001E0: 22 2A 20 20 20 20 20 20 2D 33 2D 20 41 44 52 45 |"* -3- ADRE|
000001F0: 53 53 45 4E 20 56 4F 4E 20 44 49 53 4B 20 20 20 |SSEN VON DISK |
00000200: 20 20 20 20 20 20 20 20 2A 22 3B 20 3A 20 99 22 | *"; : ."|
00000210: 2A 22 A6 33 38 29 22 2A 22 3B 00 5A 0A 0E 00 99 |*".38)"*";.Z....|
00000220: 22 2A 20 20 20 20 20 20 2D 34 2D 20 44 52 55 43 |"* -4- DRUC|
00000230: 4B 45 52 41 55 53 47 41 42 45 20 20 20 20 20 20 |KERAUSGABE |
00000240: 20 20 20 20 20 20 20 20 2A 22 3B 20 3A 20 99 22 | *"; : ."|
00000250: 2A 22 A6 33 38 29 22 2A 22 3B 00 9A 0A 0F 00 99 |*".38)"*";......|
00000260: 22 2A 20 20 20 20 20 20 2D 35 2D 20 42 49 4C 44 |"* -5- BILD|
00000270: 53 43 48 49 52 4D 41 55 53 47 41 42 45 20 20 20 |SCHIRMAUSGABE |
00000280: 20 20 20 20 20 20 20 20 2A 22 3B 20 3A 20 99 22 | *"; : ."|
00000290: 2A 22 A6 33 38 29 22 2A 22 3B 00 DA 0A 10 00 99 |*".38)"*";......|
000002A0: 22 2A 20 20 20 20 20 20 2D 36 2D 20 45 4E 44 45 |"* -6- ENDE|
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 20 2A 22 3B 20 3A 20 99 22 | *"; : ."|
000002D0: 2A 22 A6 33 38 29 22 2A 22 3B 00 0B 0B 11 00 99 |*".38)"*";......|
000002E0: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3B 00 48 0B 12 00 |*********";.H...|
00000310: 99 22 2A 22 A6 33 38 29 22 2A 22 3B 20 3A 20 99 |."*".38)"*"; : .|
00000320: 22 2A 20 20 20 49 48 52 45 20 57 41 48 4C 20 3F |"* IHRE WAHL ?|
00000330: 22 A6 32 34 29 22 2A 22 3B 20 3A 20 99 22 2A 22 |".24)"*"; : ."*"|
00000340: A6 33 38 29 22 2A 22 3B 00 79 0B 13 00 99 22 2A |.38)"*";.y...."*|
00000350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000370: 2A 2A 2A 2A 2A 2A 2A 22 3B 00 8B 0B 14 00 A1 57 |*******";......W|
00000380: 24 3A 8B 57 24 B2 22 22 A7 32 30 00 A3 0B 15 00 |$:.W$."".20.....|
00000390: 57 B2 C5 28 57 24 29 3A 8B 57 B3 31 B0 57 B1 36 |W..(W$):.W.1.W.6|
000003A0: A7 32 30 00 BD 0B 16 00 91 57 8D 32 34 2C 34 30 |.20......W.24,40|
000003B0: 2C 34 37 2C 35 33 2C 38 32 2C 31 31 30 00 C4 0B |,47,53,82,110...|
000003C0: 17 00 89 34 00 CE 0B 18 00 41 B2 41 AA 31 00 00 |...4.....A.A.1..|
000003D0: 0C 19 00 99 20 C7 28 31 34 37 29 3B C7 28 31 38 |.... .(147);.(18|
000003E0: 29 22 41 44 52 45 53 53 45 4E 20 45 49 4E 47 45 |)"ADRESSEN EINGE|
000003F0: 42 45 4E 20 20 4E 52 2E 22 3B 41 3A 99 3A 99 3A |BEN NR.";A:.:.:|
00000400: 00 1E 0C 1A 00 85 22 41 4E 52 45 44 45 20 3A 20 |......"ANREDE : |
00000410: 22 3B 41 44 24 28 41 2C 31 29 20 3A 20 99 00 3A |";AD$(A,1) : ..:|
00000420: 0C 1B 00 8B 20 C3 28 41 44 24 28 41 2C 31 29 29 |.... .(AD$(A,1))|
00000430: 20 B1 20 53 50 20 A7 20 32 36 00 58 0C 1C 00 85 | . SP . 26.X....|
00000440: 22 4E 41 4D 45 20 20 20 3A 20 22 3B 41 44 24 28 |"NAME : ";AD$(|
00000450: 41 2C 32 29 20 3A 20 99 00 73 0C 1D 00 8B 20 C3 |A,2) : ..s.... .|
00000460: 28 41 44 24 28 41 2C 32 29 29 20 B1 53 50 20 A7 |(AD$(A,2)) .SP .|
00000470: 20 32 38 00 91 0C 1E 00 85 22 41 44 52 45 53 53 | 28......"ADRESS|
00000480: 45 3A 20 22 3B 41 44 24 28 41 2C 33 29 20 3A 20 |E: ";AD$(A,3) : |
00000490: 99 00 AC 0C 1F 00 8B 20 C3 28 41 44 24 28 41 2C |....... .(AD$(A,|
000004A0: 33 29 29 20 B1 53 50 20 A7 20 33 30 00 CA 0C 20 |3)) .SP . 30... |
000004B0: 00 85 22 50 4C 5A 2F 4F 52 54 3A 20 22 3B 41 44 |.."PLZ/ORT: ";AD|
000004C0: 24 28 41 2C 34 29 20 3A 20 99 00 E5 0C 21 00 8B |$(A,4) : ....!..|
000004D0: 20 C3 28 41 44 24 28 41 2C 34 29 29 20 B1 53 50 | .(AD$(A,4)) .SP|
000004E0: 20 A7 20 33 32 00 1E 0D 22 00 99 20 3A 20 99 20 | . 32...".. : . |
000004F0: C7 28 31 38 29 22 46 31 3D 57 45 49 54 45 52 22 |.(18)"F1=WEITER"|
00000500: A6 33 29 22 46 33 3D 53 50 45 49 43 48 45 52 4E |.3)"F3=SPEICHERN|
00000510: 22 A6 33 29 22 46 35 3D 4D 45 4E 55 45 22 00 26 |".3)"F5=MENUE".&|
00000520: 0D 23 00 A1 41 24 00 38 0D 24 00 8B 41 24 B2 C7 |.#..A$.8.$..A$..|
00000530: 28 31 33 33 29 A7 32 34 00 4D 0D 25 00 8B 41 24 |(133).24.M.%..A$|
00000540: B2 C7 28 31 33 34 29 A7 8D 34 30 3A 8E 00 5E 0D |..(134)..40:..^.|
00000550: 26 00 8B 41 24 B2 C7 28 31 33 35 29 A7 8E 00 66 |&..A$..(135)...f|
00000560: 0D 27 00 89 33 35 00 90 0D 28 00 99 20 C7 28 31 |.'..35...(.. .(1|
00000570: 34 37 29 3B C7 28 31 38 29 22 41 44 52 45 53 53 |47);.(18)"ADRESS|
00000580: 45 4E 20 41 55 46 20 44 49 53 4B 22 3A 99 3A 99 |EN AUF DISK":.:.|
00000590: 00 B0 0D 29 00 9F 31 2C 38 2C 31 35 2C 22 53 3A |...)..1,8,15,"S:|
000005A0: 41 44 52 45 53 53 45 4E 2E 44 41 54 22 3A A0 31 |ADRESSEN.DAT":.1|
000005B0: 00 D3 0D 2A 00 9F 31 2C 38 2C 32 2C 22 41 44 52 |...*..1,8,2,"ADR|
000005C0: 45 53 53 45 4E 2E 44 41 54 2C 53 2C 57 22 3A 98 |ESSEN.DAT,S,W":.|
000005D0: 31 2C 41 00 E5 0D 2B 00 81 49 B2 31 A4 41 3A 81 |1,A...+..I.1.A:.|
000005E0: 4A B2 31 A4 34 00 11 0E 2C 00 99 22 47 45 53 53 |J.1.4...,.."GESS|
000005F0: 48 52 49 45 42 45 4E 20 57 49 52 44 20 41 44 52 |HRIEBEN WIRD ADR|
00000600: 45 53 53 45 20 4E 52 2E 22 49 3B C7 28 31 34 35 |ESSE NR."I;.(145|
00000610: 29 00 28 0E 2D 00 98 31 2C 41 44 24 28 49 2C 4A |).(.-..1,AD$(I,J|
00000620: 29 3A 82 3A 82 3A A0 31 00 2E 0E 2E 00 8E 00 58 |):.:.:.1.......X|
00000630: 0E 2F 00 99 20 C7 28 31 34 37 29 3B C7 28 31 38 |./.. .(147);.(18|
00000640: 29 22 41 44 52 45 53 53 45 4E 20 56 4F 4E 20 44 |)"ADRESSEN VON D|
00000650: 49 53 4B 22 3A 99 3A 99 00 7B 0E 30 00 9F 31 2C |ISK":.:..{.0..1,|
00000660: 38 2C 32 2C 22 41 44 52 45 53 53 45 4E 2E 44 41 |8,2,"ADRESSEN.DA|
00000670: 54 2C 53 2C 52 22 3A 84 31 2C 41 00 8D 0E 31 00 |T,S,R":.1,A...1.|
00000680: 81 49 B2 31 A4 41 3A 81 4A B2 31 A4 34 00 B5 0E |.I.1.A:.J.1.4...|
00000690: 32 00 99 22 47 45 4C 45 53 45 4E 20 57 49 52 44 |2.."GELESEN WIRD|
000006A0: 20 41 44 52 45 53 53 45 20 4E 52 2E 22 49 3B C7 | ADRESSE NR."I;.|
000006B0: 28 31 34 35 29 00 CC 0E 33 00 84 31 2C 41 44 24 |(145)...3..1,AD$|
000006C0: 28 49 2C 4A 29 3A 82 3A 82 3A A0 31 00 D2 0E 34 |(I,J):.:.:.1...4|
000006D0: 00 8E 00 F9 0E 35 00 99 20 C7 28 31 34 37 29 3B |.....5.. .(147);|
000006E0: C7 28 31 38 29 22 44 52 55 43 4B 45 52 41 55 53 |.(18)"DRUCKERAUS|
000006F0: 47 41 42 45 22 3A 99 3A 99 00 04 0F 36 00 9F 34 |GABE":.:....6..4|
00000700: 2C 34 2C 37 00 31 0F 37 00 85 22 53 45 4C 45 4B |,4,7.1.7.."SELEK|
00000710: 54 49 45 52 45 4E 20 4A 2F 4E 22 3B 45 47 24 20 |TIEREN J/N";EG$ |
00000720: 3A 20 8B 45 47 24 B2 22 4A 22 A7 8D 36 38 3A 20 |: .EG$."J"..68: |
00000730: 8E 00 4E 0F 38 00 81 49 B2 31 A4 41 20 3A 20 8D |..N.8..I.1.A : .|
00000740: 35 39 3A 20 82 20 3A 20 A0 34 20 3A 20 8E 00 74 |59: . : .4 : ..t|
00000750: 0F 39 00 8F 20 2A 2A 20 53 55 42 52 4F 55 54 49 |.9.. ** SUBROUTI|
00000760: 4E 45 20 45 54 49 4B 45 54 54 45 4E 44 52 55 43 |NE ETIKETTENDRUC|
00000770: 4B 20 2A 2A 00 9D 0F 3A 00 99 22 47 45 44 52 55 |K **...:.."GEDRU|
00000780: 43 4B 54 20 57 49 52 44 20 41 44 52 45 53 53 45 |CKT WIRD ADRESSE|
00000790: 20 4E 52 2E 22 49 3B C7 28 31 34 35 29 00 A4 0F | NR."I;.(145)...|
000007A0: 3B 00 98 34 00 B4 0F 3C 00 98 34 2C 41 44 24 28 |;..4...<..4,AD$(|
000007B0: 49 2C 31 29 00 BB 0F 3D 00 98 34 00 CB 0F 3E 00 |I,1)...=..4...>.|
000007C0: 98 34 2C 41 44 24 28 49 2C 32 29 00 D2 0F 3F 00 |.4,AD$(I,2)...?.|
000007D0: 98 34 00 E2 0F 40 00 98 34 2C 41 44 24 28 49 2C |.4...@..4,AD$(I,|
000007E0: 33 29 00 F9 0F 41 00 98 34 10 17 10 54 10 98 34 |3)...A..4...T..4|
000007F0: 2C 41 44 24 28 49 2C 34 29 00 00 10 42 00 98 34 |,AD$(I,4)...B..4|
00000800: 00 06 10 43 00 8E 00 2C 10 44 00 99 20 C7 28 31 |...C...,.D.. .(1|
00000810: 34 37 29 3B C7 28 31 38 29 22 53 45 4C 45 4B 54 |47);.(18)"SELEKT|
00000820: 49 4F 4E 22 20 3A 20 99 20 3A 20 99 00 43 10 45 |ION" : . : ..C.E|
00000830: 00 99 22 53 45 4C 45 4B 54 49 4F 4E 20 4E 41 43 |.."SELEKTION NAC|
00000840: 48 3A 22 00 55 10 46 00 99 22 2D 31 2D 20 41 4E |H:".U.F.."-1- AN|
00000850: 52 45 44 45 22 00 65 10 47 00 99 22 2D 32 2D 20 |REDE".e.G.."-2- |
00000860: 4E 41 4D 45 22 00 78 10 48 00 99 22 2D 33 2D 20 |NAME".x.H.."-3- |
00000870: 41 44 52 45 53 53 45 22 00 8F 10 49 00 99 22 2D |ADRESSE"...I.."-|
00000880: 34 2D 20 50 4C 5A 2F 4F 52 54 22 20 3A 20 99 00 |4- PLZ/ORT" : ..|
00000890: A4 10 4A 00 99 22 49 48 52 45 20 57 41 48 4C 20 |..J.."IHRE WAHL |
000008A0: 3F 20 22 3B 00 B8 10 4B 00 A1 57 24 20 3A 20 8B |? ";...K..W$ : .|
000008B0: 57 24 B2 22 22 A7 37 35 00 D2 10 4C 00 57 B2 C5 |W$."".75...L.W..|
000008C0: 28 57 24 29 20 3A 20 8B 57 B3 31 B0 57 B1 34 A7 |(W$) : .W.1.W.4.|
000008D0: 37 35 00 E0 10 4D 00 99 57 20 3A 20 53 4C B2 57 |75...M..W : SL.W|
000008E0: 00 14 11 4E 00 99 20 3A 20 99 22 49 4E 48 41 4C |...N.. : ."INHAL|
000008F0: 54 20 44 45 52 20 53 45 4C 45 4B 54 49 4F 4E 3A |T DER SELEKTION:|
00000900: 22 20 3A 20 85 53 4C 24 20 3A 20 4C 53 B2 C3 28 |" : .SL$ : LS..(|
00000910: 53 4C 24 29 00 1F 11 4F 00 81 49 B2 31 A4 41 00 |SL$)...O..I.1.A.|
00000920: 3E 11 50 00 8B 20 C8 28 41 44 24 28 49 2C 53 4C |>.P.. .(AD$(I,SL|
00000930: 29 2C 4C 53 29 B2 53 4C 24 20 A7 8D 35 37 00 4C |),LS).SL$ ..57.L|
00000940: 11 51 00 82 20 3A 20 A0 34 20 3A 8E 00 76 11 52 |.Q.. : .4 :..v.R|
00000950: 00 99 20 C7 28 31 34 37 29 3B C7 28 31 38 29 22 |.. .(147);.(18)"|
00000960: 42 49 4C 44 53 43 48 49 52 4D 41 55 53 47 41 42 |BILDSCHIRMAUSGAB|
00000970: 45 22 3A 99 3A 99 00 A3 11 53 00 85 22 53 45 4C |E":.:....S.."SEL|
00000980: 45 4B 54 49 45 52 45 4E 20 4A 2F 4E 22 3B 45 47 |EKTIEREN J/N";EG|
00000990: 24 20 3A 20 8B 45 47 24 B2 22 4A 22 A7 8D 39 34 |$ : .EG$."J"..94|
000009A0: 3A 20 8E 00 B9 11 54 00 81 20 49 B2 31 A4 41 20 |: ....T.. I.1.A |
000009B0: 3A 20 8D 20 38 38 3A 20 82 00 E7 11 55 00 99 20 |: . 88: ....U.. |
000009C0: 3A 20 99 22 45 4E 44 45 20 44 45 52 20 44 41 54 |: ."ENDE DER DAT|
000009D0: 45 4E 20 21 21 22 20 3A 20 99 20 C7 28 31 38 29 |EN !!" : . .(18)|
000009E0: 22 3D 3E 20 46 33 22 00 03 12 56 00 A1 20 46 33 |"=> F3"...V.. F3|
000009F0: 24 20 3A 20 8B 46 33 24 B3 B1 C7 28 31 33 34 29 |$ : .F3$...(134)|
00000A00: A7 38 36 00 09 12 57 00 8E 00 32 12 58 00 99 20 |.86...W...2.X.. |
00000A10: C7 28 31 34 37 29 3B C7 28 31 38 29 22 41 44 52 |.(147);.(18)"ADR|
00000A20: 45 53 53 45 20 4E 52 2E 22 3B 49 20 3A 20 99 20 |ESSE NR.";I : . |
00000A30: 3A 99 00 3E 12 59 00 81 20 4A B2 31 A4 34 00 51 |:..>.Y.. J.1.4.Q|
00000A40: 12 5A 00 99 20 41 44 24 28 49 2C 4A 29 20 3A 20 |.Z.. AD$(I,J) : |
00000A50: 82 00 70 12 5B 00 99 20 3A 20 99 20 C7 28 31 38 |..p.[.. : . .(18|
00000A60: 29 22 57 45 49 54 45 52 20 4D 49 54 20 46 31 22 |)"WEITER MIT F1"|
00000A70: 00 8D 12 5C 00 A1 20 46 31 24 20 3A 20 8B 20 46 |...\.. F1$ : . F|
00000A80: 31 24 B3 B1 C7 28 31 33 33 29 A7 39 32 00 93 12 |1$...(133).92...|
00000A90: 5D 00 8E 00 B9 12 5E 00 99 20 C7 28 31 34 37 29 |].....^.. .(147)|
00000AA0: 3B C7 28 31 38 29 22 53 45 4C 45 4B 54 49 4F 4E |;.(18)"SELEKTION|
00000AB0: 22 20 3A 20 99 20 3A 20 99 00 D0 12 5F 00 99 22 |" : . : ...._.."|
00000AC0: 53 45 4C 45 4B 54 49 4F 4E 20 4E 41 43 48 3A 22 |SELEKTION NACH:"|
00000AD0: 00 E2 12 60 00 99 22 2D 31 2D 20 41 4E 52 45 44 |...`.."-1- ANRED|
00000AE0: 45 22 00 F2 12 61 00 99 22 2D 32 2D 20 4E 41 4D |E"...a.."-2- NAM|
00000AF0: 45 22 00 05 13 62 00 99 22 2D 33 2D 20 41 44 52 |E"...b.."-3- ADR|
00000B00: 45 53 53 45 22 00 1C 13 63 00 99 22 2D 34 2D 20 |ESSE"...c.."-4- |
00000B10: 50 4C 5A 2F 4F 52 54 22 20 3A 20 99 00 31 13 64 |PLZ/ORT" : ..1.d|
00000B20: 00 99 22 49 48 52 45 20 57 41 48 4C 20 3F 20 22 |.."IHRE WAHL ? "|
00000B30: 3B 00 46 13 65 00 A1 57 24 20 3A 20 8B 57 24 B2 |;.F.e..W$ : .W$.|
00000B40: 22 22 A7 31 30 31 00 61 13 66 00 57 B2 C5 28 57 |"".101.a.f.W..(W|
00000B50: 24 29 20 3A 20 8B 57 B3 31 B0 57 B1 34 A7 31 30 |$) : .W.1.W.4.10|
00000B60: 31 00 6F 13 67 00 99 57 20 3A 20 53 4C B2 57 00 |1.o.g..W : SL.W.|
00000B70: A3 13 68 00 99 20 3A 20 99 22 49 4E 48 41 4C 54 |..h.. : ."INHALT|
00000B80: 20 44 45 52 20 53 45 4C 45 4B 54 49 4F 4E 3A 22 | DER SELEKTION:"|
00000B90: 20 3A 20 85 53 4C 24 20 3A 20 4C 53 B2 C3 28 53 | : .SL$ : LS..(S|
00000BA0: 4C 24 29 00 AE 13 69 00 81 49 B2 31 A4 41 00 CD |L$)...i..I.1.A..|
00000BB0: 13 6A 00 8B 20 C8 28 41 44 24 28 49 2C 53 4C 29 |.j.. .(AD$(I,SL)|
00000BC0: 2C 4C 53 29 B2 53 4C 24 20 A7 8D 38 38 00 FF 13 |,LS).SL$ ..88...|
00000BD0: 6B 00 82 20 3A 20 99 20 3A 20 99 22 45 4E 44 45 |k.. : . : ."ENDE|
00000BE0: 20 44 45 52 20 44 41 54 45 4E 20 21 21 22 20 3A | DER DATEN !!" :|
00000BF0: 20 99 20 C7 28 31 38 29 22 3D 3E 20 46 33 22 00 | . .(18)"=> F3".|
00000C00: 1C 14 6C 00 A1 20 46 33 24 20 3A 20 8B 46 33 24 |..l.. F3$ : .F3$|
00000C10: B3 B1 C7 28 31 33 34 29 A7 31 30 38 00 22 14 6D |...(134).108.".m|
00000C20: 00 8E 00 3F 14 6E 00 99 20 C7 28 31 34 37 29 3A |...?.n.. .(147):|
00000C30: 99 A3 31 38 29 22 45 4E 44 45 22 3A 9C 3A 80 00 |..18)"ENDE":.:..|
00000C40: 00 00 31 |..1 |
..&....0*** ADRESSEN V. 1.1 DEZ 83 ***.:
...MAX.200 : SP.33.J....AD$(MAX,4).C....
G(147).G(142).G(8)...... ** INITIALISIE
RUNG BILDSCHIRM :*...... 53280,2 : .5328
1,2 : . G(144).G.... ** AUFBAU MENUE **.
..... .10);G(18)"ADRESSENVERWALTUNG": ..
...."******************:***************
******";.Z...."*".38)"*"; : ."*".16)"MEN
UE".17)"*"; : ."*".38)"*";......"*
-1- ADRESSEN EINGEBEN *"; : ."
*".38)"*";.Z...."* -2- ADRESSEN AUF
DISK *"; : ."*".38)"*";......
"* -3- ADRESSEN VON DISK
*"; : ."*".38)"*";.Z...."* -4- DRUC
KERAUSGABE *"; : ."*".38)"*
";......"* -5- BILDSCHIRMAUSGABE
*"; : ."*".38)"*";.Z...."*
-6- ENDE *"; : ."
*".38)"*";......"***********************
*****************";.H...."*".38)"*"; : .
"* IHRE WAHL ?".24)"*"; : ."*".38)"*";
.Y...."*********************************
*******";......W$:.W$."".20.....W.E(W$):
.W.1.W.6.20......W.24,40,47,53,82,110.D.
...4.N...A.A.1...... G(147);G(18)"ADRESS
EN EINGEBEN NR.";A:.:.:......"ANREDE :
";AD$(A,1) : ..:.... C(AD$(A,1)) . SP .
26.X...."NAME : ";AD$(A,2) : ..S.... C
(AD$(A,2)) .SP . 28......"ADRESSE: ";AD$
(A,3) : ....... C(AD$(A,3)) .SP . 30.J.
.."PLZ/ORT: ";AD$(A,4) : ....!.. C(AD$(A
,4)) .SP . 32...".. : . G(18)"F1=WEITER"
.3)"F3=SPEICHERN".3)"F5=MENUE".&.#..A$.8
.$..A$.G(133).24.M.%..A$.G(134)..40:..^.
&..A$.G(135)...F.'..35...(.. G(147);G(18
)"ADRESSEN AUF DISK":.:....)..1,8,15,"S:
ADRESSEN.DAT": 1.S.*..1,8,2,"ADRESSEN.DA
T,S,W":.1,A...+..I.1.A:.J.1.4...,.."GESS
HRIEBEN WIRD ADRESSE NR."I;G(145).(.-..1
,AD$(I,J):.:.: 1.......X./.. G(147);G(18
)"ADRESSEN VON DISK":.:..{.0..1,8,2,"ADR
ESSEN.DAT,S,R":.1,A...1..I.1.A:.J.1.4...
2.."GELESEN WIRD ADRESSE NR."I;G(145).L.
3..1,AD$(I,J):.:.: 1.R.4.....5.. G(147);
G(18)"DRUCKERAUSGABE":.:....6..4,4,7.1.7
.."SELEKTIEREN J/N";EG$ : .EG$."J"..68:
..N.8..I.1.A : .59: . : 4 : ..T.9.. **
SUBROUTINE ETIKETTENDRUCK **...:.."GEDRU
CKT WIRD ADRESSE NR."I;G(145)...;..4...<
..4,AD$(I,1)...=..4.K.>..4,AD$(I,2).R.?.
.4...@..4,AD$(I,3)...A..4...T..4,AD$(I,4
)...B..4...C...,.D.. G(147);G(18)"SELEKT
ION" : . : ..C.E.."SELEKTION NACH:".U.F.
."-1- ANREDE".E.G.."-2- NAME".X.H.."-3-
ADRESSE"...I.."-4- PLZ/ORT" : ....J.."IH
RE WAHL ? ";...K..W$ : .W$."".75.R.L.W.E
(W$) : .W.1.W.4.75...M..W : SL.W...N.. :
."INHALT DER SELEKTION:" : .SL$ : LS.C(
SL$)...O..I.1.A.>.P.. H(AD$(I,SL),LS).SL
$ ..57.L.Q.. : 4 :..V.R.. G(147);G(18)"
BILDSCHIRMAUSGABE":.:....S.."SELEKTIEREN
J/N";EG$ : .EG$."J"..94: ....T.. I.1.A
: . 88: ....U.. : ."ENDE DER DATEN !!" :
. G(18)"=> F3"...V.. F3$ : .F3$..G(134)
.86...W...2.X.. G(147);G(18)"ADRESSE NR.
";I : . :..>.Y.. J.1.4.Q.Z.. AD$(I,J) :
..P.[.. : . G(18)"WEITER MIT F1"...\.. F
1$ : . F1$..G(133).92...].....^.. G(147)
;G(18)"SELEKTION" : . : ..P._.."SELEKTIO
N NACH:"...`.."-1- ANREDE"...A.."-2- NAM
E"...B.."-3- ADRESSE"...C.."-4- PLZ/ORT"
: ..1.D.."IHRE WAHL ? ";.F.E..W$ : .W$.
"".101.A.F.W.E(W$) : .W.1.W.4.101.O.G..W
: SL.W...H.. : ."INHALT DER SELEKTION:"
: .SL$ : LS.C(SL$)...I..I.1.A.M.J.. H(A
D$(I,SL),LS).SL$ ..88...K.. : . : ."ENDE
DER DATEN !!" : . G(18)"=> F3"...L.. F3
$ : .F3$..G(134).108.".M...?.N.. G(147):
..18)"ENDE":.:....1
> CLICK IMAGE PREVIEW FOR FULL MODAL