PRGM. VERKAUF
FILE INFORMATION
FILENAME(S): PRGM. VERKAUF
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-10-20 14:32:06
APPEARS ON: 1 disk(s)
FILE HASH
0b567f33107a8167e8deb6996f65269a3d12f68350dc4925be43be85d71cfed8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPIELE | PRGM. VERKAUF | PRG | Treasure Chest - Klaus Der Suhler | 7 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 32 00 4C 4F B2 32 3A 86 41 24 28 31 |....2.LO.2:.A$(1|
00000010: 30 2C 38 29 00 39 08 64 00 44 41 24 28 31 29 B2 |0,8).9.d.DA$(1).|
00000020: 22 4E 45 55 45 20 50 52 4F 47 52 41 4D 4D 45 20 |"NEUE PROGRAMME |
00000030: 45 49 4E 47 45 42 45 4E 22 00 64 08 65 00 44 41 |EINGEBEN".d.e.DA|
00000040: 24 28 32 29 B2 22 50 52 4F 47 52 41 4D 4D 45 20 |$(2)."PROGRAMME |
00000050: 41 45 4E 44 45 52 4E 20 2F 20 41 55 46 4C 49 53 |AENDERN / AUFLIS|
00000060: 54 45 4E 22 00 81 08 66 00 44 41 24 28 33 29 B2 |TEN"...f.DA$(3).|
00000070: 22 41 4E 47 45 42 4F 54 20 44 52 55 43 4B 45 4E |"ANGEBOT DRUCKEN|
00000080: 22 00 A3 08 67 00 44 41 24 28 34 29 B2 22 4E 45 |"...g.DA$(4)."NE|
00000090: 55 45 20 4B 55 4E 44 45 4E 20 45 49 4E 47 45 42 |UE KUNDEN EINGEB|
000000A0: 45 4E 22 00 CB 08 68 00 44 41 24 28 35 29 B2 22 |EN"...h.DA$(5)."|
000000B0: 4B 55 4E 44 45 4E 20 41 45 4E 44 45 52 4E 20 2F |KUNDEN AENDERN /|
000000C0: 20 41 55 46 4C 49 53 54 45 4E 22 00 E9 08 69 00 | AUFLISTEN"...i.|
000000D0: 44 41 24 28 36 29 B2 22 52 45 43 48 4E 55 4E 47 |DA$(6)."RECHNUNG|
000000E0: 20 44 52 55 43 4B 45 4E 22 00 06 09 6A 00 44 41 | DRUCKEN"...j.DA|
000000F0: 24 28 37 29 B2 22 44 41 54 55 4D 20 2F 20 55 48 |$(7)."DATUM / UH|
00000100: 52 5A 45 49 54 22 00 28 09 6B 00 44 41 24 28 38 |RZEIT".(.k.DA$(8|
00000110: 29 B2 22 46 52 45 49 45 52 20 53 50 45 49 43 48 |)."FREIER SPEICH|
00000120: 45 52 50 4C 41 54 5A 22 00 3F 09 6C 00 44 41 24 |ERPLATZ".?.l.DA$|
00000130: 28 39 29 B2 22 53 4F 52 54 49 45 52 45 4E 22 00 |(9)."SORTIEREN".|
00000140: 4E 09 6D 00 44 41 24 28 31 30 29 B2 22 22 00 6A |N.m.DA$(10)."".j|
00000150: 09 6E 00 44 42 24 28 30 2C 30 29 B2 22 50 52 4F |.n.DB$(0,0)."PRO|
00000160: 47 52 41 4D 4D 2D 4E 52 2E 22 00 7F 09 6F 00 44 |GRAMM-NR."...o.D|
00000170: 42 24 28 30 2C 31 29 B2 22 54 49 54 45 4C 22 00 |B$(0,1)."TITEL".|
00000180: 97 09 71 00 44 42 24 28 30 2C 32 29 B2 22 53 50 |..q.DB$(0,2)."SP|
00000190: 45 49 43 48 45 52 22 00 B0 09 72 00 44 42 24 28 |EICHER"...r.DB$(|
000001A0: 30 2C 33 29 B2 22 42 45 44 49 45 4E 55 4E 47 22 |0,3)."BEDIENUNG"|
000001B0: 00 C6 09 73 00 44 42 24 28 30 2C 34 29 B2 22 4C |...s.DB$(0,4)."L|
000001C0: 41 45 4E 47 45 22 00 DB 09 74 00 44 42 24 28 30 |AENGE"...t.DB$(0|
000001D0: 2C 35 29 B2 22 50 52 45 49 53 22 00 F9 09 75 00 |,5)."PREIS"...u.|
000001E0: 44 42 24 28 30 2C 36 29 B2 22 53 54 43 4B 2E 20 |DB$(0,6)."STCK. |
000001F0: 56 45 52 4B 41 55 46 54 22 00 0C 0A 76 00 44 42 |VERKAUFT"...v.DB|
00000200: 24 28 30 2C 37 29 B2 22 41 52 54 22 00 28 0A 77 |$(0,7)."ART".(.w|
00000210: 00 44 42 24 28 30 2C 38 29 B2 22 56 43 2D 32 30 |.DB$(0,8)."VC-20|
00000220: 2F 43 42 4D 2D 36 34 22 00 42 0A 78 00 44 42 24 |/CBM-64".B.x.DB$|
00000230: 28 31 2C 30 29 B2 22 4B 55 4E 44 45 4E 2D 4E 52 |(1,0)."KUNDEN-NR|
00000240: 2E 22 00 58 0A 79 00 44 42 24 28 31 2C 31 29 B2 |.".X.y.DB$(1,1).|
00000250: 22 41 4E 52 45 44 45 22 00 6F 0A 7A 00 44 42 24 |"ANREDE".o.z.DB$|
00000260: 28 31 2C 32 29 B2 22 56 4F 52 4E 41 4D 45 22 00 |(1,2)."VORNAME".|
00000270: 87 0A 7B 00 44 42 24 28 31 2C 33 29 B2 22 4E 41 |..{.DB$(1,3)."NA|
00000280: 43 48 4E 41 4D 45 22 00 A2 0A 7C 00 44 42 24 28 |CHNAME"...|.DB$(|
00000290: 31 2C 34 29 B2 22 53 54 52 41 53 53 45 2F 4E 52 |1,4)."STRASSE/NR|
000002A0: 2E 22 00 B5 0A 7D 00 44 42 24 28 31 2C 35 29 B2 |."...}.DB$(1,5).|
000002B0: 22 50 4C 5A 22 00 CC 0A 7E 00 44 42 24 28 31 2C |"PLZ"...~.DB$(1,|
000002C0: 36 29 B2 22 57 4F 48 4E 4F 52 54 22 00 E6 0A 7F |6)."WOHNORT"....|
000002D0: 00 44 42 24 28 31 2C 37 29 B2 22 54 45 4C 2E 20 |.DB$(1,7)."TEL. |
000002E0: 56 4F 52 57 2E 22 00 FF 0A 80 00 44 42 24 28 31 |VORW.".....DB$(1|
000002F0: 2C 38 29 B2 22 52 55 46 4E 55 4D 4D 45 52 22 00 |,8)."RUFNUMMER".|
00000300: 1E 0B 82 00 44 43 24 28 30 29 B2 22 50 52 4F 47 |....DC$(0)."PROG|
00000310: 52 41 4D 4D 45 22 3A 48 49 28 30 29 B2 38 00 3A |RAMME":HI(0).8.:|
00000320: 0B 83 00 44 43 24 28 31 29 B2 22 4B 55 4E 44 45 |...DC$(1)."KUNDE|
00000330: 4E 22 3A 48 49 28 31 29 B2 38 00 54 0B 84 00 44 |N":HI(1).8.T...D|
00000340: 44 24 28 30 29 B2 22 2E 22 3A 44 44 24 28 31 29 |D$(0).".":DD$(1)|
00000350: B2 22 2F 22 00 74 0B 96 00 81 4C B2 31 A4 34 30 |."/".t....L.1.40|
00000360: 3A 48 49 24 28 30 29 B2 48 49 24 28 30 29 AA 22 |:HI$(0).HI$(0)."|
00000370: C0 22 3A 82 00 BC 0B 97 00 48 49 24 28 31 29 B2 |.":......HI$(1).|
00000380: 22 93 22 3A 48 49 24 28 32 29 B2 22 13 22 3A 81 |".":HI$(2).".":.|
00000390: 4C B2 31 A4 31 32 3A 48 49 24 28 31 29 B2 48 49 |L.1.12:HI$(1).HI|
000003A0: 24 28 31 29 AA 22 11 22 3A 48 49 24 28 32 29 B2 |$(1).".":HI$(2).|
000003B0: 48 49 24 28 32 29 AA 22 11 22 3A 82 00 DC 0B 98 |HI$(2).".":.....|
000003C0: 00 81 4C B2 31 A4 34 30 3A 48 49 24 28 33 29 B2 |..L.1.40:HI$(3).|
000003D0: 48 49 24 28 33 29 AA 22 2D 22 3A 82 00 0D 0C 9B |HI$(3)."-":.....|
000003E0: 00 44 58 24 28 30 29 B2 22 2A 2A 20 4C 49 53 54 |.DX$(0)."** LIST|
000003F0: 45 20 2A 2A 22 3A 44 58 24 28 31 29 B2 22 2A 2A |E **":DX$(1)."**|
00000400: 20 52 45 43 48 4E 55 4E 47 20 2A 2A 22 00 48 0C | RECHNUNG **".H.|
00000410: B3 00 54 24 B2 22 31 38 22 3A 54 B2 C5 28 54 24 |..T$."18":T..(T$|
00000420: 29 3A 4D 24 B2 22 31 30 22 3A 4D B2 C5 28 4D 24 |):M$."10":M..(M$|
00000430: 29 3A 4A 24 B2 22 31 39 38 33 22 3A 4A B2 C5 28 |):J$."1983":J..(|
00000440: 4A 24 29 3A 89 31 38 35 00 6C 0C B4 00 99 22 93 |J$):.185.l....".|
00000450: 11 11 11 11 1D 1D 42 49 54 54 45 20 44 41 54 55 |......BITTE DATU|
00000460: 4D 20 45 49 4E 47 45 42 45 4E 3A 22 00 9C 0C B5 |M EINGEBEN:"....|
00000470: 00 99 22 11 54 41 47 3A 22 3B 3A 85 54 24 3A 54 |..".TAG:";:.T$:T|
00000480: B2 C5 28 54 24 29 3A 8B C3 28 54 24 29 B3 B1 32 |..(T$):..(T$)..2|
00000490: A7 99 22 91 91 91 22 3A 89 31 38 31 00 CE 0C B6 |.."...":.181....|
000004A0: 00 99 22 11 4D 4F 4E 41 54 3A 22 3B 3A 85 4D 24 |..".MONAT:";:.M$|
000004B0: 3A 4D B2 C5 28 4D 24 29 3A 8B C3 28 4D 24 29 B3 |:M..(M$):..(M$).|
000004C0: B1 32 A7 99 22 91 91 91 22 3A 89 31 38 32 00 FF |.2.."...":.182..|
000004D0: 0C B7 00 99 22 11 4A 41 48 52 3A 22 3B 3A 85 4A |....".JAHR:";:.J|
000004E0: 24 3A 4A B2 C5 28 4A 24 29 3A 8B C3 28 4A 24 29 |$:J..(J$):..(J$)|
000004F0: B3 B1 34 A7 99 22 91 91 91 22 3A 89 31 38 33 00 |..4.."...":.183.|
00000500: 29 0D B9 00 99 22 11 11 11 55 4E 44 20 44 49 45 |)...."...UND DIE|
00000510: 20 55 48 52 5A 45 49 54 20 28 48 48 4D 4D 53 53 | UHRZEIT (HHMMSS|
00000520: 29 3A 22 3B 3A 85 54 49 24 00 63 0D BE 00 4B B2 |):";:.TI$.c...K.|
00000530: B5 28 30 2E 36 AA 31 AD 4D 29 3A 4C B2 4A AB 4B |.(0.6.1.M):L.J.K|
00000540: 3A 4F B2 4D AA 31 32 AC 4B 3A 50 B2 4C AD 31 30 |:O.M.12.K:P.L.10|
00000550: 30 3A 5A 31 B2 B5 28 50 AD 34 29 3A 5A 32 B2 B5 |0:Z1..(P.4):Z2..|
00000560: 28 50 29 00 96 0D BF 00 5A 33 B2 B5 28 35 AC 4C |(P).....Z3..(5.L|
00000570: AD 34 29 3A 5A 34 B2 B5 28 31 33 AC 28 4F AA 31 |.4):Z4..(13.(O.1|
00000580: 29 AD 35 29 3A 5A B2 5A 34 AA 5A 33 AB 5A 32 AA |).5):Z.Z4.Z3.Z2.|
00000590: 5A 31 AA 54 AB 31 00 B7 0D C0 00 5A B2 5A AB 37 |Z1.T.1.....Z.Z.7|
000005A0: AC B5 28 5A AD 37 29 AA 31 3A 81 4C B2 31 A4 5A |..(Z.7).1:.L.1.Z|
000005B0: 3A 87 54 41 24 3A 82 00 EA 0D C1 00 54 41 24 B2 |:.TA$:......TA$.|
000005C0: 22 48 45 55 54 45 20 49 53 54 20 22 AA 54 41 24 |"HEUTE IST ".TA$|
000005D0: AA 22 2C 20 44 45 52 20 22 AA 54 24 AA 22 2E 22 |.", DER ".T$."."|
000005E0: AA 4D 24 AA 22 2E 22 AA 4A 24 00 2C 0E C6 00 83 |.M$.".".J$.,....|
000005F0: 20 53 4F 4E 4E 54 41 47 2C 4D 4F 4E 54 41 47 2C | SONNTAG,MONTAG,|
00000600: 44 49 45 4E 53 54 41 47 2C 4D 49 54 54 57 4F 43 |DIENSTAG,MITTWOC|
00000610: 48 2C 44 4F 4E 4E 45 52 53 54 41 47 2C 46 52 45 |H,DONNERSTAG,FRE|
00000620: 49 54 41 47 2C 53 41 4D 53 54 41 47 00 53 0E C8 |ITAG,SAMSTAG.S..|
00000630: 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4D 45 |.. -----------ME|
00000640: 4E 55 45 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |NUE-------------|
00000650: 2D 2D 2D 00 8C 0E CD 00 99 22 93 22 3B 3A 99 48 |---......".";:.H|
00000660: 49 24 28 30 29 3B 22 20 20 20 20 20 20 20 20 20 |I$(0);" |
00000670: 20 20 50 52 4F 47 52 41 4D 4D 2D 56 45 52 4B 41 | PROGRAMM-VERKA|
00000680: 55 46 22 3A 99 48 49 24 28 30 29 3B 00 B5 0E D2 |UF":.HI$(0);....|
00000690: 00 81 4C B2 31 A4 39 3A 99 3A 99 A3 32 29 C9 28 |..L.1.9:.:..2).(|
000006A0: C4 28 4C 29 2C 31 29 22 20 2D 2D 20 22 44 41 24 |.(L),1)" -- "DA$|
000006B0: 28 4C 29 3A 82 00 CA 0E D3 00 99 22 11 20 20 45 |(L):.......". E|
000006C0: 20 2D 2D 20 45 4E 44 45 13 22 00 D4 0E D7 00 8D | -- ENDE."......|
000006D0: 39 39 39 30 00 E5 0E DA 00 8B 49 4E 24 B2 22 45 |9990......IN$."E|
000006E0: 22 A7 32 37 30 00 14 0F DC 00 91 20 49 4E 20 89 |".270...... IN .|
000006F0: 20 33 30 30 2C 34 30 30 2C 35 30 30 2C 33 30 30 | 300,400,500,300|
00000700: 2C 34 30 30 2C 36 30 30 2C 32 34 39 2C 32 36 30 |,400,600,249,260|
00000710: 2C 37 30 30 00 1D 0F E1 00 89 32 31 35 00 2B 0F |,700......215.+.|
00000720: F9 00 8D 32 35 30 3A 89 32 30 30 00 52 0F FA 00 |...250:.200.R...|
00000730: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 44 41 54 55 4D 20 |. --------DATUM |
00000740: 2F 20 55 48 52 5A 45 49 54 2D 2D 2D 2D 2D 2D 2D |/ UHRZEIT-------|
00000750: 2D 2D 00 79 0F FF 00 99 22 93 11 11 11 11 11 11 |--.y....".......|
00000760: 11 22 3B A3 B5 28 28 34 30 AB C3 28 54 41 24 29 |.";..((40..(TA$)|
00000770: 29 AD 32 29 29 3B 54 41 24 00 A9 0F 00 01 99 48 |).2));TA$......H|
00000780: 49 24 28 32 29 A3 31 35 29 C8 28 54 49 24 2C 32 |I$(2).15).(TI$,2|
00000790: 29 22 3A 22 CA 28 54 49 24 2C 33 2C 32 29 22 3A |)":".(TI$,3,2)":|
000007A0: 22 C9 28 54 49 24 2C 32 29 00 BE 0F 01 01 A1 49 |".(TI$,2)......I|
000007B0: 4E 24 3A 8B 49 4E 24 B2 22 22 A7 32 35 36 00 C4 |N$:.IN$."".256..|
000007C0: 0F 02 01 8E 00 EB 0F 04 01 8F 20 2D 2D 2D 2D 2D |.......... -----|
000007D0: 2D 2D 2D 46 52 45 49 45 52 20 53 50 45 49 43 48 |---FREIER SPEICH|
000007E0: 45 52 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 32 10 05 01 |ER---------.2...|
000007F0: 99 48 49 24 28 31 29 A3 34 29 22 45 53 20 53 49 |.HI$(1).4)"ES SI|
00000800: 4E 44 20 4E 4F 43 48 20 20 20 20 20 20 20 20 42 |ND NOCH B|
00000810: 59 54 45 53 20 46 52 45 49 22 3B 22 9D 9D 9D 9D |YTES FREI";"....|
00000820: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 B8 28 |.............".(|
00000830: 30 29 00 41 10 0D 01 8D 39 39 39 30 3A 89 32 30 |0).A....9990:.20|
00000840: 30 00 68 10 0E 01 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |0.h.... --------|
00000850: 2D 2D 2D 45 4E 44 45 2D 2D 2D 2D 2D 2D 2D 2D 2D |---ENDE---------|
00000860: 2D 2D 2D 2D 2D 2D 2D 2D 00 9E 10 0F 01 99 22 93 |--------......".|
00000870: 11 11 11 11 11 11 22 A3 31 35 29 22 12 D5 C0 C0 |......".15)"....|
00000880: C0 C0 C9 11 9D 9D 9D 9D 9D 9D DD 45 4E 44 45 DD |...........ENDE.|
00000890: 11 9D 9D 9D 9D 9D 9D CA C0 C0 C0 C0 CB 22 00 D0 |............."..|
000008A0: 10 10 01 99 22 11 11 11 11 53 49 45 20 4B 4F 45 |...."....SIE KOE|
000008B0: 4E 4E 45 4E 20 4D 49 54 20 27 47 4F 54 4F 32 30 |NNEN MIT 'GOTO20|
000008C0: 30 27 20 44 41 53 20 50 52 4F 47 52 41 4D 4D 22 |0' DAS PROGRAMM"|
000008D0: 00 13 11 11 01 99 22 11 57 49 45 44 45 52 20 53 |......".WIEDER S|
000008E0: 54 41 52 54 45 4E 2C 20 4F 48 4E 45 20 44 41 53 |TARTEN, OHNE DAS|
000008F0: 20 44 49 45 20 44 41 54 45 4E 20 56 45 52 2D 20 | DIE DATEN VER- |
00000900: 11 4C 4F 52 45 4E 20 47 45 48 45 4E 21 21 11 11 |.LOREN GEHEN!!..|
00000910: 22 3A 90 00 3A 11 2C 01 8F 20 2D 2D 2D 2D 2D 2D |":..:.,.. ------|
00000920: 2D 4E 45 55 45 20 45 49 4E 47 41 42 45 4E 2D 2D |-NEUE EINGABEN--|
00000930: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 52 11 2D 01 53 |----------.R.-.S|
00000940: 41 B2 30 3A 59 B2 49 4E 3A 8B 49 4E B2 31 A7 58 |A.0:Y.IN:.IN.1.X|
00000950: B2 30 00 60 11 2E 01 8B 49 4E B2 34 A7 58 B2 31 |.0.`....IN.4.X.1|
00000960: 00 6A 11 2F 01 41 B2 41 AA 31 00 80 11 31 01 8B |.j./.A.A.1...1..|
00000970: 4C 4F B3 B1 58 A7 8D 38 30 30 30 3A 4C 4F B2 58 |LO..X..8000:LO.X|
00000980: 00 B8 11 32 01 4A 24 B2 C9 28 4A 24 2C 32 29 3A |...2.J$..(J$,2):|
00000990: 4A B2 C5 28 4A 24 29 3A 8B 41 B3 B2 31 A7 41 24 |J..(J$):.A..1.A$|
000009A0: 28 41 2C 30 29 B2 4A 24 AA 44 44 24 28 58 29 AA |(A,0).J$.DD$(X).|
000009B0: 22 31 22 3A 89 33 31 32 00 D3 11 33 01 8B C8 28 |"1":.312...3...(|
000009C0: 41 24 28 41 AB 31 2C 30 29 2C 32 29 B2 4A 24 A7 |A$(A.1,0),2).J$.|
000009D0: 33 30 39 00 F9 11 34 01 41 24 28 41 2C 30 29 B2 |309...4.A$(A,0).|
000009E0: C9 28 C4 28 4A 29 2C 32 29 AA 44 44 24 28 58 29 |.(.(J),2).DD$(X)|
000009F0: AA 22 31 22 3A 89 33 31 32 00 2A 12 35 01 4C 45 |."1":.312.*.5.LE|
00000A00: B2 C3 28 41 24 28 41 AB 31 2C 30 29 29 3A 4B B2 |..(A$(A.1,0)):K.|
00000A10: C5 28 C9 28 41 24 28 41 AB 31 2C 30 29 2C 4C 45 |.(.(A$(A.1,0),LE|
00000A20: AB 33 29 29 3A 4B B2 4B AA 31 00 52 12 36 01 41 |.3)):K.K.1.R.6.A|
00000A30: 24 28 41 2C 30 29 B2 4A 24 AA 44 44 24 28 58 29 |$(A,0).J$.DD$(X)|
00000A40: AA C9 28 C4 28 4B 29 2C C3 28 C4 28 4B 29 29 AB |..(.(K),.(.(K)).|
00000A50: 31 29 00 88 12 38 01 99 22 93 22 3B 48 49 24 28 |1)...8..".";HI$(|
00000A60: 30 29 3B A3 B5 28 34 30 AB C3 28 44 41 24 28 59 |0);..(40..(DA$(Y|
00000A70: 29 29 29 AD 32 AA 34 30 29 3B 44 41 24 28 59 29 |))).2.40);DA$(Y)|
00000A80: 3A 99 48 49 24 28 30 29 00 96 12 39 01 4C B2 41 |:.HI$(0)...9.L.A|
00000A90: 3A 8D 39 39 38 30 00 9C 12 3A 01 99 00 B5 12 3B |:.9980...:.....;|
00000AA0: 01 81 4C B2 31 A4 48 49 28 58 29 3A 99 44 42 24 |..L.1.HI(X):.DB$|
00000AB0: 28 58 2C 4C 29 00 DD 12 3E 01 85 22 20 20 20 2E |(X,L)...>.." .|
00000AC0: 9D 9D 9D 22 3B 41 24 28 41 2C 4C 29 3A 8B 41 24 |...";A$(A,L):.A$|
00000AD0: 28 41 2C 4C 29 B2 22 40 22 A7 33 33 30 00 E3 12 |(A,L)."@".330...|
00000AE0: 3F 01 82 00 03 13 40 01 99 22 11 45 49 4E 47 41 |?.....@..".EINGA|
00000AF0: 42 45 4E 20 52 49 43 48 54 49 47 20 28 4A 2F 4E |BEN RICHTIG (J/N|
00000B00: 29 3F 22 00 1A 13 41 01 8D 39 39 39 30 3A 8B 49 |)?"...A..9990:.I|
00000B10: 4E 24 B2 22 4E 22 A7 33 30 36 00 2C 13 42 01 8B |N$."N".306.,.B..|
00000B20: 49 4E 24 B3 B1 22 4A 22 A7 33 32 31 00 3A 13 45 |IN$.."J".321.:.E|
00000B30: 01 53 41 B2 31 3A 89 33 30 33 00 50 13 4A 01 41 |.SA.1:.303.P.J.A|
00000B40: B2 41 AB 31 3A 8B 53 41 B2 31 A7 8D 38 30 31 30 |.A.1:.SA.1..8010|
00000B50: 00 59 13 4C 01 89 32 30 30 00 80 13 90 01 8F 20 |.Y.L..200...... |
00000B60: 2D 2D 2D 2D 2D 2D 41 55 46 4C 49 53 54 45 4E 20 |------AUFLISTEN |
00000B70: 2F 20 53 55 43 48 45 4E 2D 2D 2D 2D 2D 2D 2D 2D |/ SUCHEN--------|
00000B80: 00 93 13 91 01 59 B2 49 4E 3A 8B 49 4E B2 32 A7 |.....Y.IN:.IN.2.|
00000B90: 58 B2 30 00 A1 13 92 01 8B 49 4E B2 35 A7 58 B2 |X.0......IN.5.X.|
00000BA0: 31 00 B7 13 95 01 8B 4C 4F B3 B1 58 A7 8D 38 30 |1......LO..X..80|
00000BB0: 30 30 3A 4C 4F B2 58 00 ED 13 98 01 99 22 93 22 |00:LO.X......"."|
00000BC0: 3B 48 49 24 28 30 29 3B A3 B5 28 34 30 AB C3 28 |;HI$(0);..(40..(|
00000BD0: 44 41 24 28 59 29 29 29 AD 32 AA 34 30 29 3B 44 |DA$(Y))).2.40);D|
00000BE0: 41 24 28 59 29 3A 99 48 49 24 28 30 29 00 12 14 |A$(Y):.HI$(0)...|
00000BF0: 9A 01 81 4C B2 30 A4 48 49 28 58 29 3A 99 4C AA |...L.0.HI(X):.L.|
00000C00: 31 22 2D 2D 20 22 44 42 24 28 58 2C 4C 29 3A 99 |1"-- "DB$(X,L):.|
00000C10: 3A 82 00 2F 14 9C 01 99 22 1D 41 20 2D 2D 20 41 |:../....".A -- A|
00000C20: 4C 4C 45 53 20 41 55 46 4C 49 53 54 45 4E 22 00 |LLES AUFLISTEN".|
00000C30: 52 14 9D 01 8B 58 B2 30 A7 99 22 11 1D 50 20 2D |R....X.0.."..P -|
00000C40: 2D 20 50 52 45 49 53 45 20 41 45 4E 44 45 52 4E |- PREISE AENDERN|
00000C50: 13 22 00 74 14 A4 01 41 4C B2 30 3A 8D 39 39 39 |.".t...AL.0:.999|
00000C60: 30 3A 8B 49 4E 24 B2 22 41 22 A7 41 4C B2 31 3A |0:.IN$."A".AL.1:|
00000C70: 89 34 33 33 00 8A 14 A5 01 8B 49 4E 24 B2 22 50 |.433......IN$."P|
00000C80: 22 AF 58 B2 30 A7 37 32 30 30 00 A3 14 A9 01 8B |".X.0.7200......|
00000C90: 49 4E B3 31 B0 49 4E B1 48 49 28 58 29 AA 31 A7 |IN.1.IN.HI(X).1.|
00000CA0: 34 32 30 00 E1 14 AA 01 47 53 B2 49 4E 3A 99 22 |420.....GS.IN:."|
00000CB0: 93 11 11 20 31 20 2D 2D 20 53 55 43 48 45 4E 20 |... 1 -- SUCHEN |
00000CC0: 20 27 56 4F 4E 2F 42 49 53 27 22 3A 99 22 11 1D | 'VON/BIS'":."..|
00000CD0: 32 20 2D 2D 20 53 55 43 48 57 4F 45 52 54 45 52 |2 -- SUCHWOERTER|
00000CE0: 22 00 00 15 AB 01 8D 39 39 39 30 3A 8B 49 4E B2 |"......9990:.IN.|
00000CF0: 31 A7 52 54 B2 31 3A 8D 34 39 30 3A 89 34 33 33 |1.RT.1:.490:.433|
00000D00: 00 0F 15 AC 01 8B 49 4E B3 B1 32 A7 34 32 37 00 |......IN..2.427.|
00000D10: 18 15 AD 01 52 54 B2 30 00 3D 15 AE 01 99 22 93 |....RT.0.=....".|
00000D20: 11 1D 57 49 45 56 49 45 4C 20 53 55 43 48 57 4F |..WIEVIEL SUCHWO|
00000D30: 45 52 54 45 52 20 28 31 2D 39 29 3F 22 00 56 15 |ERTER (1-9)?".V.|
00000D40: AF 01 8D 39 39 39 30 3A 8B 49 4E B3 31 B0 49 4E |...9990:.IN.1.IN|
00000D50: B1 39 A7 34 33 31 00 8A 15 B0 01 99 3A 99 3A 47 |.9.431......:.:G|
00000D60: 48 B2 49 4E 3A 81 4C B2 31 A4 47 48 3A 99 4C 22 |H.IN:.L.1.GH:.L"|
00000D70: 9D 2E 20 53 55 43 48 57 4F 52 54 3A 22 3B 3A 85 |.. SUCHWORT:";:.|
00000D80: 53 57 24 28 4C 29 3A 99 3A 82 00 A0 15 B1 01 8D |SW$(L):.:.......|
00000D90: 38 31 30 30 3A 99 22 93 22 3A 81 4C B2 31 A4 41 |8100:.".":.L.1.A|
00000DA0: 00 B5 15 B2 01 8B 41 4C B2 31 A7 8D 37 30 30 30 |......AL.1..7000|
00000DB0: 3A 89 34 36 30 00 C3 15 B3 01 8B 52 54 B2 30 A7 |:.460......RT.0.|
00000DC0: 34 35 30 00 F4 15 B8 01 8B 41 24 28 4C 2C 47 53 |450......A$(L,GS|
00000DD0: AB 31 29 B1 B2 53 57 24 28 30 29 AF 41 24 28 4C |.1)..SW$(0).A$(L|
00000DE0: 2C 47 53 AB 31 29 B3 B2 53 57 24 28 31 29 A7 8D |,GS.1)..SW$(1)..|
00000DF0: 37 30 30 30 00 FD 15 BA 01 89 34 36 30 00 22 16 |7000......460.".|
00000E00: C2 01 81 4D B2 31 A4 47 48 3A 8B 41 24 28 4C 2C |...M.1.GH:.A$(L,|
00000E10: 47 53 AB 31 29 B2 53 57 24 28 4D 29 A7 8D 37 30 |GS.1).SW$(M)..70|
00000E20: 30 30 00 29 16 C3 01 82 4D 00 3F 16 CC 01 82 4C |00.)....M.?....L|
00000E30: 3A 99 22 11 22 A3 31 36 29 22 45 4E 44 45 22 00 |:.".".16)"ENDE".|
00000E40: 59 16 CD 01 8B 41 45 B2 31 A7 41 45 B2 30 3A 8D |Y....AE.1.AE.0:.|
00000E50: 38 30 31 30 3A 89 32 30 30 00 68 16 CE 01 8D 39 |8010:.200.h....9|
00000E60: 39 39 30 3A 89 32 30 30 00 8A 16 EA 01 99 22 11 |990:.200......".|
00000E70: 11 11 55 4E 54 45 52 45 53 20 4C 49 4D 49 54 20 |..UNTERES LIMIT |
00000E80: 22 3B 3A 85 53 57 24 28 30 29 00 AA 16 EB 01 99 |";:.SW$(0)......|
00000E90: 22 11 11 4F 42 45 52 45 53 20 4C 49 4D 49 54 20 |"..OBERES LIMIT |
00000EA0: 22 3B 3A 85 53 57 24 28 31 29 00 B0 16 EC 01 8E |";:.SW$(1)......|
00000EB0: 00 D7 16 F4 01 8F 20 2D 2D 2D 2D 2D 41 4E 47 45 |...... -----ANGE|
00000EC0: 42 4F 54 20 44 52 55 43 4B 45 4E 2D 2D 2D 2D 2D |BOT DRUCKEN-----|
00000ED0: 2D 2D 2D 2D 2D 2D 2D 00 F6 16 F5 01 44 4B B2 30 |-------.....DK.0|
00000EE0: 3A 58 B2 31 3A 8B 4C 4F B3 B1 58 A7 8D 38 30 30 |:X.1:.LO..X..800|
00000EF0: 30 3A 4C 4F B2 58 00 0A 17 F6 01 8B 49 4E B2 33 |0:LO.X......IN.3|
00000F00: A7 44 58 B2 30 3A 89 35 30 35 00 13 17 F7 01 44 |.DX.0:.505.....D|
00000F10: 58 B2 31 00 21 17 F9 01 53 55 B2 31 3A 89 34 30 |X.1.!...SU.1:.40|
00000F20: 30 00 5C 17 FE 01 8B 4B 4C B2 30 A7 99 22 93 11 |0.\....KL.0.."..|
00000F30: 11 1D 4B 55 4E 44 45 20 49 53 54 20 4E 49 43 48 |..KUNDE IST NICH|
00000F40: 54 20 49 4E 20 44 45 52 20 4B 41 52 54 45 49 21 |T IN DER KARTEI!|
00000F50: 22 3A 8D 39 39 39 30 3A 89 34 30 30 00 68 17 00 |":.9990:.400.h..|
00000F60: 02 9F 34 2C 34 3A 98 34 00 74 17 03 02 81 4C B2 |..4,4:.4.t....L.|
00000F70: 31 A4 44 4B 00 87 17 08 02 98 34 2C C7 28 31 30 |1.DK......4,.(10|
00000F80: 29 3A 8D 38 32 30 30 00 AB 17 09 02 98 34 2C C7 |):.8200......4,.|
00000F90: 28 31 30 29 3A 8B C3 28 42 24 28 4C 2C 31 29 29 |(10):..(B$(L,1))|
00000FA0: B3 B2 32 A7 98 34 3A 89 35 32 33 00 C3 17 0A 02 |..2..4:.523.....|
00000FB0: 98 34 2C C7 28 31 36 29 22 31 30 22 42 24 28 4C |.4,.(16)"10"B$(L|
00000FC0: 2C 31 29 00 DE 17 0B 02 8B C3 28 42 24 28 4C 2C |,1).......(B$(L,|
00000FD0: 32 29 29 B3 B2 32 A7 98 34 3A 89 35 32 35 00 FB |2))..2..4:.525..|
00000FE0: 17 0C 02 98 34 2C C7 28 31 36 29 22 31 30 22 42 |....4,.(16)"10"B|
00000FF0: 24 28 4C 2C 32 29 3B 22 20 22 3B 00 16 18 0D 02 |$(L,2);" ";.....|
00001000: 8B C3 28 42 24 28 4C 2C 33 29 29 B3 B2 32 A7 98 |..(B$(L,3))..2..|
00001010: 34 3A 89 35 32 37 00 25 18 0E 02 98 34 2C 42 24 |4:.527.%....4,B$|
00001020: 28 4C 2C 33 29 00 40 18 0F 02 8B C3 28 42 24 28 |(L,3).@.....(B$(|
00001030: 4C 2C 34 29 29 B3 B2 32 A7 98 34 3A 89 35 32 39 |L,4))..2..4:.529|
00001040: 00 58 18 10 02 98 34 2C C7 28 31 36 29 22 31 30 |.X....4,.(16)"10|
00001050: 22 42 24 28 4C 2C 34 29 00 73 18 11 02 8B C3 28 |"B$(L,4).s.....(|
00001060: 42 24 28 4C 2C 35 29 29 B3 B2 32 A7 98 34 3A 89 |B$(L,5))..2..4:.|
00001070: 35 33 31 00 90 18 12 02 98 34 2C C7 28 31 36 29 |531......4,.(16)|
00001080: 22 30 35 22 42 24 28 4C 2C 35 29 3B 22 20 22 3B |"05"B$(L,5);" ";|
00001090: 00 AB 18 13 02 8B C3 28 42 24 28 4C 2C 36 29 29 |.......(B$(L,6))|
000010A0: B3 B2 32 A7 98 34 3A 89 35 33 33 00 BA 18 14 02 |..2..4:.533.....|
000010B0: 98 34 2C 42 24 28 4C 2C 36 29 00 D5 18 15 02 8B |.4,B$(L,6)......|
000010C0: C3 28 42 24 28 4C 2C 37 29 29 B3 B2 32 A7 98 34 |.(B$(L,7))..2..4|
000010D0: 3A 89 35 33 35 00 EE 18 16 02 98 34 2C C7 28 31 |:.535......4,.(1|
000010E0: 36 29 22 31 30 22 42 24 28 4C 2C 37 29 3B 00 09 |6)"10"B$(L,7);..|
000010F0: 19 17 02 8B C3 28 42 24 28 4C 2C 38 29 29 B3 B2 |.....(B$(L,8))..|
00001100: 32 A7 98 34 3A 89 35 33 37 00 18 19 18 02 98 34 |2..4:.537......4|
00001110: 2C 42 24 28 4C 2C 38 29 00 41 19 19 02 98 34 2C |,B$(L,8).A....4,|
00001120: C7 28 31 30 29 C7 28 31 36 29 22 31 30 4B 55 4E |.(10).(16)"10KUN|
00001130: 44 45 4E 20 4E 52 2E 3A 20 22 42 24 28 4C 2C 30 |DEN NR.: "B$(L,0|
00001140: 29 00 68 19 1C 02 98 34 2C C7 28 31 30 29 C7 28 |).h....4,.(10).(|
00001150: 31 30 29 C7 28 31 34 29 C7 28 31 36 29 22 32 30 |10).(14).(16)"20|
00001160: 22 44 58 24 28 44 58 29 00 78 19 4E 02 82 4C 3A |"DX$(DX).x.N..L:|
00001170: A0 34 3A 8D 39 39 39 30 00 81 19 57 02 89 32 30 |.4:.9990...W..20|
00001180: 30 00 A7 19 58 02 8F 20 2D 2D 2D 2D 2D 64 08 48 |0...X.. -----d.H|
00001190: 4E 55 4E 47 20 44 52 55 43 4B 45 4E 2D 2D 2D 2D |NUNG DRUCKEN----|
000011A0: 2D 2D 2D 2D 2D 2D 2D 00 B0 19 BB 02 89 32 30 30 |-------......200|
000011B0: 00 D7 19 BC 02 8F 20 2D 2D 2D 2D 2D 2D 2D 53 4F |...... -------SO|
000011C0: 52 54 49 45 52 45 4E 2D 2D 2D 2D 2D 2D 2D 2D 2D |RTIEREN---------|
000011D0: 2D 2D 2D 2D 2D 2D 2D 00 01 1A BD 02 99 22 93 11 |-------......"..|
000011E0: 11 11 31 20 2D 2D 20 50 52 4F 47 52 41 4D 4D 45 |..1 -- PROGRAMME|
000011F0: 22 3A 99 22 11 32 20 2D 2D 20 4B 55 4E 44 45 4E |":.".2 -- KUNDEN|
00001200: 22 00 1A 1A BE 02 8D 39 39 39 30 3A 8B 49 4E B3 |"......9990:.IN.|
00001210: 31 B0 49 4E B1 32 A7 37 30 32 00 2D 1A BF 02 59 |1.IN.2.702.-...Y|
00001220: B2 49 4E 3A 8B 49 4E B2 31 A7 58 B2 30 00 3B 1A |.IN:.IN.1.X.0.;.|
00001230: C0 02 8B 49 4E B2 32 A7 58 B2 31 00 51 1A C1 02 |...IN.2.X.1.Q...|
00001240: 8B 4C 4F B3 B1 58 A7 8D 38 30 30 30 3A 4C 4F B2 |.LO..X..8000:LO.|
00001250: 58 00 87 1A C4 02 99 22 93 22 3B 48 49 24 28 30 |X......".";HI$(0|
00001260: 29 3B A3 B5 28 34 30 AB C3 28 44 41 24 28 38 29 |);..(40..(DA$(8)|
00001270: 29 29 AD 32 AA 34 30 29 3B 44 41 24 28 39 29 3A |)).2.40);DA$(9):|
00001280: 99 48 49 24 28 30 29 00 AC 1A C6 02 81 4C B2 30 |.HI$(0)......L.0|
00001290: A4 48 49 28 58 29 3A 99 4C AA 31 22 2D 2D 20 22 |.HI(X):.L.1"-- "|
000012A0: 44 42 24 28 58 2C 4C 29 3A 99 3A 82 00 CB 1A CB |DB$(X,L):.:.....|
000012B0: 02 8D 39 39 39 30 3A 8B 49 4E B3 31 B0 49 4E B1 |..9990:.IN.1.IN.|
000012C0: 48 49 28 58 29 AA 31 A7 37 31 35 00 D5 1A D0 02 |HI(X).1.715.....|
000012D0: 8D 39 39 39 39 00 EB 1A DA 02 81 49 B2 31 A4 41 |.9999......I.1.A|
000012E0: AB 31 3A 81 59 B2 49 AA 31 A4 41 00 0B 1B DD 02 |.1:.Y.I.1.A.....|
000012F0: 8B 41 24 28 49 2C 49 4E AB 31 29 B3 B2 41 24 28 |.A$(I,IN.1)..A$(|
00001300: 59 2C 49 4E AB 31 29 A7 37 35 30 00 1A 1B DE 02 |Y,IN.1).750.....|
00001310: 81 4D B2 30 A4 48 49 28 58 29 00 4E 1B E0 02 41 |.M.0.HI(X).N...A|
00001320: 24 28 30 2C 4D 29 B2 41 24 28 49 2C 4D 29 3A 41 |$(0,M).A$(I,M):A|
00001330: 24 28 49 2C 4D 29 B2 41 24 28 59 2C 4D 29 3A 41 |$(I,M).A$(Y,M):A|
00001340: 24 28 59 2C 4D 29 B2 41 24 28 30 2C 4D 29 00 54 |$(Y,M).A$(0,M).T|
00001350: 1B E2 02 82 00 61 1B EE 02 82 3A 82 3A 89 32 30 |.....a....:.:.20|
00001360: 30 00 6A 1B 1F 03 89 32 30 30 00 91 1B 20 03 8F |0.j....200... ..|
00001370: 20 2D 2D 2D 2D 2D 2D 2D 50 52 45 49 53 45 20 41 | -------PREISE A|
00001380: 45 4E 44 45 52 4E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ENDERN----------|
00001390: 2D 00 9A 1B 83 03 89 32 30 30 00 C0 1B 58 1B 8F |-......200...X..|
000013A0: 20 2D 2D 2D 2D 2D 47 45 46 55 4E 44 45 4E 2D 2D | -----GEFUNDEN--|
000013B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000013C0: 00 CF 1B 59 1B 8B 44 52 B2 31 A7 37 30 32 30 00 |...Y..DR.1.7020.|
000013D0: DD 1B 5A 1B 8B 58 B2 31 A7 37 30 31 30 00 0B 1C |..Z..X.1.7010...|
000013E0: 62 1B 8D 39 39 38 30 3A 99 3A 99 41 24 28 4C 2C |b..9980:.:.A$(L,|
000013F0: 31 29 3A 99 41 24 28 4C 2C 32 29 2C 41 24 28 4C |1):.A$(L,2),A$(L|
00001400: 2C 33 29 2C 41 24 28 4C 2C 34 29 00 30 1C 63 1B |,3),A$(L,4).0.c.|
00001410: 99 41 24 28 4C 2C 36 29 2C 41 24 28 4C 2C 35 29 |.A$(L,6),A$(L,5)|
00001420: 2C 41 24 28 4C 2C 37 29 2C 41 24 28 4C 2C 38 29 |,A$(L,7),A$(L,8)|
00001430: 00 3A 1C 64 1B 89 37 30 33 35 00 40 1C 6C 1B 8F |.:.d..7035.@.l..|
00001440: 00 4D 1C 7B 1B 99 48 49 24 28 33 29 3B 00 6F 1C |.M.{..HI$(3);.o.|
00001450: 7C 1B 99 22 20 52 45 54 55 52 4E 3D 57 45 49 54 ||.." RETURN=WEIT|
00001460: 45 52 20 20 20 20 40 3D 4D 45 4E 55 45 22 3B 00 |ER @=MENUE";.|
00001470: 89 1C 7D 1B 8B 53 55 B2 30 A7 99 22 20 20 20 41 |..}..SU.0.." A|
00001480: 3D 41 45 4E 44 45 52 4E 22 00 A3 1C 7E 1B 8B 53 |=AENDERN"...~..S|
00001490: 55 B2 31 A7 99 22 20 20 47 3D 47 45 46 55 4E 44 |U.1.." G=GEFUND|
000014A0: 45 4E 22 00 AF 1C 7F 1B 99 48 49 24 28 33 29 00 |EN"......HI$(3).|
000014B0: C6 1C 80 1B 8D 39 39 39 30 3A 8B 49 4E 24 B2 C7 |.....9990:.IN$..|
000014C0: 28 31 33 29 A7 8E 00 DD 1C 81 1B 8B 49 4E 24 B2 |(13)........IN$.|
000014D0: 22 41 22 AF 53 55 B2 30 A7 37 31 30 30 00 FA 1C |"A".SU.0.7100...|
000014E0: 82 1B 8B 49 4E 24 B2 22 47 22 AF 53 55 B2 31 A7 |...IN$."G".SU.1.|
000014F0: 4B 4C B2 31 3A 89 37 30 35 30 00 1C 1D 83 1B 8B |KL.1:.7050......|
00001500: 49 4E 24 B2 22 C7 22 AF 53 55 B2 31 A7 4B 4C B2 |IN$.".".SU.1.KL.|
00001510: 31 3A 8D 37 30 35 30 3A 89 35 31 32 00 37 1D 84 |1:.7050:.512.7..|
00001520: 1B 8B 49 4E 24 B2 22 C5 22 AF 53 55 B2 31 AF 4B |..IN$.".".SU.1.K|
00001530: 4C B2 31 A7 35 31 32 00 41 1D 85 1B 89 37 30 34 |L.1.512.A....704|
00001540: 30 00 4D 1D 8A 1B 44 4B B2 44 4B AA 31 00 72 1D |0.M...DK.DK.1.r.|
00001550: 8B 1B 81 4C 4D B2 30 A4 48 49 28 58 29 3A 42 24 |...LM.0.HI(X):B$|
00001560: 28 44 4B 2C 4C 4D 29 B2 41 24 28 4C 2C 4C 4D 29 |(DK,LM).A$(L,LM)|
00001570: 3A 82 00 78 1D 8F 1B 8E 00 9E 1D BC 1B 8F 20 2D |:..x.......... -|
00001580: 2D 2D 2D 2D 2D 2D 2D 41 45 4E 44 45 52 4E 2D 2D |-------AENDERN--|
00001590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C3 |--------------..|
000015A0: 1D BD 1B 99 22 93 22 48 49 24 28 30 29 3B A3 34 |...."."HI$(0);.4|
000015B0: 30 29 22 41 45 4E 44 45 52 4E 22 3A 99 48 49 24 |0)"AENDERN":.HI$|
000015C0: 28 30 29 00 D2 1D BE 1B 81 4D B2 30 A4 48 49 28 |(0)......M.0.HI(|
000015D0: 58 29 00 FA 1D BF 1B 99 22 12 22 44 42 24 28 58 |X)......"."DB$(X|
000015E0: 2C 4D 29 22 92 20 20 22 41 24 28 4C 2C 4D 29 3A |,M)". "A$(L,M):|
000015F0: 85 41 24 28 4C 2C 4D 29 3A 82 00 19 1E C1 1B 99 |.A$(L,M):.......|
00001600: 22 11 45 49 4E 47 41 42 45 20 52 49 43 48 54 49 |".EINGABE RICHTI|
00001610: 47 20 28 4A 2F 4E 29 3F 22 00 38 1E C6 1B 8D 39 |G (J/N)?".8....9|
00001620: 39 39 30 3A 8B 49 4E 24 B2 22 4A 22 A7 41 45 B2 |990:.IN$."J".AE.|
00001630: 31 3A 99 22 93 22 3A 8E 00 4A 1E C8 1B 8B 49 4E |1:.".":..J....IN|
00001640: 24 B2 22 4E 22 A7 37 31 30 30 00 54 1E CB 1B 89 |$."N".7100.T....|
00001650: 37 31 31 30 00 7A 1E 20 1C 8F 20 2D 2D 2D 2D 2D |7110.z. .. -----|
00001660: 2D 2D 50 52 45 49 53 45 20 41 45 4E 44 45 52 4E |--PREISE AENDERN|
00001670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A8 1E 21 1C 99 |----------...!..|
00001680: 22 93 22 48 49 24 28 30 29 3B A3 35 30 29 22 50 |"."HI$(0);.50)"P|
00001690: 52 45 49 53 45 20 41 45 4E 44 45 52 4E 22 A3 38 |REISE AENDERN".8|
000016A0: 30 29 48 49 24 28 30 29 00 B7 1E 22 1C 99 22 11 |0)HI$(0)..."..".|
000016B0: 11 11 22 3A 4C B2 30 00 DF 1E 23 1C 85 22 45 49 |..":L.0...#.."EI|
000016C0: 4E 47 41 42 45 20 28 35 2E 30 30 2F 36 2E 30 30 |NGABE (5.00/6.00|
000016D0: 29 28 2B 35 25 29 20 22 3B 43 48 24 28 4C 29 00 |)(+5%) ";CH$(L).|
000016E0: F3 1E 24 1C 8B 43 48 24 28 4C 29 B2 22 40 22 A7 |..$..CH$(L)."@".|
000016F0: 32 30 30 00 08 1F 25 1C 8B 43 48 24 28 4C 29 B2 |200...%..CH$(L).|
00001700: 22 41 22 A7 37 32 31 30 00 22 1F 26 1C 8B C9 28 |"A".7210.".&...(|
00001710: 43 48 24 28 30 29 2C 31 29 B2 22 25 22 A7 37 32 |CH$(0),1)."%".72|
00001720: 38 30 00 66 1F 27 1C 5A 58 28 4C 29 B2 C3 28 43 |80.f.'.ZX(L)..(C|
00001730: 48 24 28 4C 29 29 3A 5A 59 28 4C 29 B2 B5 28 5A |H$(L)):ZY(L)..(Z|
00001740: 58 28 4C 29 AD 32 29 3A 8B CA 28 43 48 24 28 4C |X(L).2):..(CH$(L|
00001750: 29 2C 5A 59 28 4C 29 AA 31 2C 31 29 B3 B1 22 2F |),ZY(L).1,1).."/|
00001760: 22 A7 37 32 39 39 00 98 1F 28 1C 5A 58 24 28 4C |".7299...(.ZX$(L|
00001770: 29 B2 C8 28 43 48 24 28 4C 29 2C 5A 59 28 4C 29 |)..(CH$(L),ZY(L)|
00001780: 29 3A 5A 59 24 28 4C 29 B2 C9 28 43 48 24 28 4C |):ZY$(L)..(CH$(L|
00001790: 29 2C 5A 59 28 4C 29 29 00 A8 1F 29 1C 4C B2 4C |),ZY(L))...).L.L|
000017A0: AA 31 3A 89 37 32 30 33 00 BA 1F 2A 1C 81 54 B2 |.1:.7203...*..T.|
000017B0: 31 A4 41 3A 81 4D B2 30 A4 4C 00 DD 1F 2C 1C 8B |1.A:.M.0.L...,..|
000017C0: 41 24 28 54 2C 35 29 B2 5A 58 24 28 4D 29 A7 41 |A$(T,5).ZX$(M).A|
000017D0: 24 28 54 2C 35 29 B2 5A 59 24 28 4D 29 00 E5 1F |$(T,5).ZY$(M)...|
000017E0: 2F 1C 82 3A 82 00 EF 1F 34 1C 89 37 32 39 30 00 |/..:....4..7290.|
000017F0: 1B 20 70 1C 8B C8 28 43 48 24 28 30 29 2C 31 29 |. p...(CH$(0),1)|
00001800: B3 B1 22 2B 22 AF C8 28 43 48 24 28 30 29 2C 31 |.."+"..(CH$(0),1|
00001810: 29 B3 B1 22 2D 22 A7 37 32 39 39 00 56 20 71 1C |).."-".7299.V q.|
00001820: 81 4C B2 31 A4 41 3A 50 28 31 29 B2 C5 28 41 24 |.L.1.A:P(1)..(A$|
00001830: 28 4C 2C 35 29 29 3A 50 28 32 29 B2 C5 28 CA 28 |(L,5)):P(2)..(.(|
00001840: 43 48 24 28 30 29 2C 32 2C C3 28 43 48 24 28 30 |CH$(0),2,.(CH$(0|
00001850: 29 29 AB 32 29 29 00 85 20 72 1C 50 28 33 29 B2 |)).2)).. r.P(3).|
00001860: 28 50 28 32 29 AC 50 28 31 29 29 AD 31 30 30 3A |(P(2).P(1)).100:|
00001870: 50 28 33 29 B2 B5 28 50 28 33 29 AC 31 30 AA 2E |P(3)..(P(3).10..|
00001880: 35 29 AD 31 30 00 A9 20 73 1C 8B C8 28 43 48 24 |5).10.. s...(CH$|
00001890: 28 30 29 2C 31 29 B2 22 2B 22 A7 50 28 33 29 B2 |(0),1)."+".P(3).|
000018A0: 50 28 33 29 AA 50 28 31 29 00 CD 20 74 1C 8B C8 |P(3).P(1).. t...|
000018B0: 28 43 48 24 28 30 29 2C 31 29 B2 22 2D 22 A7 50 |(CH$(0),1)."-".P|
000018C0: 28 33 29 B2 50 28 33 29 AB 50 28 31 29 00 F6 20 |(3).P(3).P(1).. |
000018D0: 75 1C 50 24 B2 C4 28 50 28 33 29 29 3A 50 24 B2 |u.P$..(P(3)):P$.|
000018E0: C9 28 50 24 2C C3 28 50 24 29 AB 31 29 3A 5A 5A |.(P$,.(P$).1):ZZ|
000018F0: B2 C3 28 50 24 29 00 1C 21 76 1C 8B CA 28 50 24 |..(P$)..!v...(P$|
00001900: 2C 5A 5A AB 31 2C 31 29 B2 22 2E 22 A7 50 24 B2 |,ZZ.1,1).".".P$.|
00001910: 50 24 AA 22 30 22 3A 89 37 32 38 39 00 2C 21 77 |P$."0":.7289.,!w|
00001920: 1C 50 24 B2 50 24 AA 22 2E 30 30 22 00 3D 21 79 |.P$.P$.".00".=!y|
00001930: 1C 41 24 28 4C 2C 35 29 B2 50 24 3A 82 00 5E 21 |.A$(L,5).P$:..^!|
00001940: 7A 1C 99 22 11 20 20 20 20 20 20 20 20 53 50 45 |z..". SPE|
00001950: 49 43 48 45 52 4E 20 28 4A 2F 4E 29 3F 22 00 7C |ICHERN (J/N)?".||
00001960: 21 7B 1C 8D 39 39 39 30 3A 8B 49 4E 24 B2 22 4A |!{..9990:.IN$."J|
00001970: 22 A7 8D 38 30 31 30 3A 89 32 30 30 00 8D 21 7D |"..8010:.200..!}|
00001980: 1C 8B 49 4E 24 B2 22 4E 22 A7 32 30 30 00 97 21 |..IN$."N".200..!|
00001990: 7E 1C 89 37 32 39 31 00 D4 21 83 1C 99 22 11 45 |~..7291..!...".E|
000019A0: 49 4E 47 41 42 45 20 46 41 4C 53 43 48 21 20 42 |INGABE FALSCH! B|
000019B0: 49 54 54 45 20 57 49 45 44 45 52 48 4F 4C 45 4E |ITTE WIEDERHOLEN|
000019C0: 21 22 3A 81 4C B2 31 A4 32 30 30 30 3A 82 3A 89 |!":.L.1.2000:.:.|
000019D0: 37 32 30 30 00 DA 21 3F 1F 80 00 00 22 40 1F 8F |7200..!?...."@..|
000019E0: 20 2D 2D 2D 2D 2D 2D 2D 4C 41 44 45 4E 2D 2D 2D | -------LADEN---|
000019F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001A00: 00 1E 22 42 1F 9F 32 2C 38 2C 32 2C 44 43 24 28 |.."B..2,8,2,DC$(|
00001A10: 58 29 AA 22 2C 53 2C 52 22 3A 84 32 2C 41 00 43 |X).",S,R":.2,A.C|
00001A20: 22 43 1F 81 4C B2 31 A4 41 3A 81 4D B2 30 A4 48 |"C..L.1.A:.M.0.H|
00001A30: 49 28 58 29 3A 84 32 2C 41 24 28 4C 2C 4D 29 3A |I(X):.2,A$(L,M):|
00001A40: 82 3A 82 00 52 22 44 1F A0 32 3A 8D 38 30 35 30 |.:..R"D..2:.8050|
00001A50: 3A 8E 00 78 22 4A 1F 8F 20 2D 2D 2D 2D 2D 2D 2D |:..x"J.. -------|
00001A60: 53 50 45 49 43 48 45 52 4E 2D 2D 2D 2D 2D 2D 2D |SPEICHERN-------|
00001A70: 2D 2D 2D 2D 2D 2D 2D 2D 00 95 22 4B 1F 9F 31 35 |--------.."K..15|
00001A80: 2C 38 2C 31 35 2C 22 53 3A 22 AA 44 43 24 28 58 |,8,15,"S:".DC$(X|
00001A90: 29 3A A0 31 35 00 B3 22 4C 1F 9F 32 2C 38 2C 32 |):.15.."L..2,8,2|
00001AA0: 2C 44 43 24 28 58 29 AA 22 2C 53 2C 57 22 3A 98 |,DC$(X).",S,W":.|
00001AB0: 32 2C 41 00 DF 22 4D 1F 81 46 B2 31 A4 41 3A 81 |2,A.."M..F.1.A:.|
00001AC0: 44 B2 30 A4 48 49 28 58 29 3A 98 32 2C 41 24 28 |D.0.HI(X):.2,A$(|
00001AD0: 46 2C 44 29 AA C7 28 31 33 29 3B 3A 82 3A 82 00 |F,D)..(13);:.:..|
00001AE0: EE 22 4E 1F A0 32 3A 8D 38 30 35 30 3A 8E 00 0E |."N..2:.8050:...|
00001AF0: 23 72 1F 8F 20 2D 2D 2D 2D 2D 2D 2D 64 7C 20 64 |#r.. -------d| d|
00001B00: 72 20 64 7E 4F 52 2D 2D 2D 2D 2D 2D 2D 2D 00 2C |r d~OR--------.,|
00001B10: 23 74 1F 9F 31 35 2C 38 2C 31 35 3A 84 31 35 2C |#t..15,8,15:.15,|
00001B20: 46 31 2C 46 31 24 2C 46 32 2C 46 33 00 3C 23 76 |F1,F1$,F2,F3.<#v|
00001B30: 1F 8B 46 31 B2 30 A7 A0 31 35 3A 8E 00 58 23 78 |..F1.0..15:..X#x|
00001B40: 1F 99 22 93 11 11 1D 1D 53 54 41 54 55 53 20 46 |..".....STATUS F|
00001B50: 45 48 4C 45 52 21 21 22 00 6C 23 7A 1F 99 22 11 |EHLER!!".l#z..".|
00001B60: 11 11 1D 1D 4E 52 2E 3A 22 2C 46 31 00 7B 23 7C |....NR.:",F1.{#||
00001B70: 1F 99 22 11 1D 1D 22 3B 46 31 24 00 8E 23 7E 1F |.."...";F1$..#~.|
00001B80: 99 22 11 1D 1D 53 50 55 52 3A 22 2C 46 32 00 A3 |."...SPUR:",F2..|
00001B90: 23 80 1F 99 22 11 1D 1D 53 45 4B 54 4F 52 3A 22 |#..."...SEKTOR:"|
00001BA0: 2C 46 33 00 C1 23 82 1F 99 22 11 11 11 1D 1D 57 |,F3..#...".....W|
00001BB0: 45 49 54 45 52 20 28 4A 2F 4E 29 3F 22 3A A0 31 |EITER (J/N)?":.1|
00001BC0: 35 00 D6 23 83 1F 8D 39 39 39 30 3A 8B 49 4E 24 |5..#...9990:.IN$|
00001BD0: B2 22 4A 22 A7 8E 00 E9 23 84 1F 8B 49 4E 24 B3 |."J"....#...IN$.|
00001BE0: B1 22 4E 22 A7 38 30 36 37 00 F2 23 85 1F 89 32 |."N".8067..#...2|
00001BF0: 37 30 00 18 24 A4 1F 8F 20 2D 2D 2D 2D 2D 42 49 |70..$... -----BI|
00001C00: 4C 44 53 43 48 49 52 4D 2F 44 52 55 43 4B 45 52 |LDSCHIRM/DRUCKER|
00001C10: 2D 2D 2D 2D 2D 2D 2D 2D 00 47 24 A5 1F 99 22 93 |--------.G$...".|
00001C20: 11 11 11 11 1D 31 20 2D 2D 20 42 49 4C 44 53 43 |.....1 -- BILDSC|
00001C30: 48 49 52 4D 22 3A 99 22 11 1D 32 20 2D 2D 20 44 |HIRM":."..2 -- D|
00001C40: 52 55 43 4B 45 52 22 00 5E 24 A6 1F 8D 39 39 39 |RUCKER".^$...999|
00001C50: 30 3A 8B 49 4E B2 31 A7 44 52 B2 30 3A 8E 00 6E |0:.IN.1.DR.0:..n|
00001C60: 24 A7 1F 8B 49 4E B3 B1 32 A7 38 31 30 32 00 79 |$...IN..2.8102.y|
00001C70: 24 A8 1F 44 52 B2 31 3A 8E 00 9F 24 08 20 8F 20 |$..DR.1:...$. . |
00001C80: 2D 2D 2D 2D 2D 4D 45 49 4E 45 20 41 44 52 45 53 |-----MEINE ADRES|
00001C90: 53 45 20 44 52 55 43 4B 45 4E 2D 2D 2D 2D 2D 00 |SE DRUCKEN-----.|
00001CA0: CF 24 0D 20 98 34 2C C7 28 31 34 29 C7 28 31 36 |.$. .4,.(14).(16|
00001CB0: 29 22 31 32 2A 2A 2A 2A 20 20 46 52 49 45 44 52 |)"12**** FRIEDR|
00001CC0: 49 43 48 20 53 41 55 45 52 20 2A 2A 2A 2A 22 00 |ICH SAUER ****".|
00001CD0: 0A 25 10 20 98 34 2C C7 28 31 30 29 C7 28 31 36 |.%. .4,.(10).(16|
00001CE0: 29 22 30 32 48 41 4D 42 41 43 48 45 52 53 54 52 |)"02HAMBACHERSTR|
00001CF0: 41 53 53 45 20 31 20 20 20 20 36 31 34 30 20 42 |ASSE 1 6140 B|
00001D00: 45 4E 53 48 45 49 4D 20 35 22 00 35 25 11 20 98 |ENSHEIM 5".5%. .|
00001D10: 34 2C C7 28 31 35 29 C7 28 31 30 29 C7 28 31 36 |4,.(15).(10).(16|
00001D20: 29 22 33 30 54 45 4C 2E 20 30 36 32 35 31 2F 36 |)"30TEL. 06251/6|
00001D30: 32 38 37 38 22 00 3B 25 30 20 8E 00 41 25 6B 20 |2878".;%0 ..A%k |
00001D40: 80 00 67 25 FC 26 8F 20 2D 2D 2D 2D 2D 2D 4E 52 |..g%.&. ------NR|
00001D50: 2B 4C 46 44 2E 20 4E 52 2D 2D 2D 2D 2D 2D 2D 2D |+LFD. NR--------|
00001D60: 2D 2D 2D 2D 2D 2D 2D 00 A7 25 FD 26 99 22 91 A4 |-------..%.&."..|
00001D70: A4 A4 11 9D 9D 9D 12 4E 52 2E 92 20 22 41 24 28 |.......NR.. "A$(|
00001D80: 4C 2C 30 29 22 91 22 2C 2C 22 A4 A4 A4 A4 A4 A4 |L,0)".",,"......|
00001D90: A4 A4 11 9D 9D 9D 9D 9D 9D 9D 9D 12 4C 46 44 2E |............LFD.|
00001DA0: 20 4E 52 2E 92 22 4C 00 AD 25 FE 26 8E 00 D3 25 | NR.."L..%.&...%|
00001DB0: 06 27 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 54 41 |.'. ----------TA|
00001DC0: 53 54 45 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |STE-------------|
00001DD0: 2D 2D 2D 00 E5 25 07 27 97 31 39 38 2C 30 3A 92 |---..%.'.198,0:.|
00001DE0: 31 39 38 2C 31 00 00 26 08 27 A1 49 4E 24 3A 8B |198,1..&.'.IN$:.|
00001DF0: 49 4E 24 B2 22 40 22 AF 41 45 B2 30 A7 32 30 30 |IN$."@".AE.0.200|
00001E00: 00 22 26 09 27 8B 49 4E 24 B2 22 40 22 AF 41 45 |."&.'.IN$."@".AE|
00001E10: B2 31 A7 41 45 B2 30 3A 8D 38 30 31 30 3A 89 32 |.1.AE.0:.8010:.2|
00001E20: 30 30 00 33 26 0A 27 8B 49 4E 24 B2 22 2A 22 A7 |00.3&.'.IN$."*".|
00001E30: 32 35 30 00 43 26 0E 27 49 4E B2 C5 28 49 4E 24 |250.C&.'IN..(IN$|
00001E40: 29 3A 8E 00 6A 26 0F 27 99 48 49 24 28 31 29 A3 |):..j&.'.HI$(1).|
00001E50: 31 30 29 22 45 49 4E 45 4E 20 4D 4F 4D 45 4E 54 |10)"EINEN MOMENT|
00001E60: 20 42 49 54 54 45 21 22 3A 8E 00 00 00 | BITTE!":.... |
....2.LO.2:.A$(10,8).9.D.DA$(1)."NEUE PR
OGRAMME EINGEBEN".D.E.DA$(2)."PROGRAMME
AENDERN / AUFLISTEN"...F.DA$(3)."ANGEBOT
DRUCKEN"...G.DA$(4)."NEUE KUNDEN EINGEB
EN".K.H.DA$(5)."KUNDEN AENDERN / AUFLIST
EN"...I.DA$(6)."RECHNUNG DRUCKEN"...J.DA
$(7)."DATUM / UHRZEIT".(.K.DA$(8)."FREIE
R SPEICHERPLATZ".?.L.DA$(9)."SORTIEREN".
N.M.DA$(10)."".J.N.DB$(0,0)."PROGRAMM-NR
."..O.DB$(0,1)."TITEL"...Q.DB$(0,2)."SP
EICHER"...R.DB$(0,3)."BEDIENUNG".F.S.DB$
(0,4)."LAENGE"...T.DB$(0,5)."PREIS"...U.
DB$(0,6)."STCK. VERKAUFT"...V.DB$(0,7)."
ART".(.W.DB$(0,8)."VC-20/CBM-64".B.X.DB$
(1,0)."KUNDEN-NR.".X.Y.DB$(1,1)."ANREDE"
.O.Z.DB$(1,2)."VORNAME"...{.DB$(1,3)."NA
CHNAME"...|.DB$(1,4)."STRASSE/NR."...}.D
B$(1,5)."PLZ".L.~.DB$(1,6)."WOHNORT"...
.DB$(1,7)."TEL. VORW.".....DB$(1,8)."RUF
NUMMER".....DC$(0)."PROGRAMME":HI(0).8.:
...DC$(1)."KUNDEN":HI(1).8.T...DD$(0).".
":DD$(1)."/".T....L.1.40:HI$(0).HI$(0)."
.":......HI$(1).".":HI$(2).".":.L.1.12:H
I$(1).HI$(1).".":HI$(2).HI$(2).".":.....
..L.1.40:HI$(3).HI$(3)."-":......DX$(0).
"** LISTE **":DX$(1)."** RECHNUNG **".H.
..T$."18":T.E(T$):M$."10":M.E(M$):J$."19
83":J.E(J$):.185.L....".......BITTE DATU
M EINGEBEN:"......".TAG:";:.T$:T.E(T$):.
C(T$)..2.."...":.181.N....".MONAT:";:.M$
:M.E(M$):.C(M$)..2.."...":.182......".JA
HR:";:.J$:J.E(J$):.C(J$)..4.."...":.183.
)...."...UND DIE UHRZEIT (HHMMSS):";:.TI
$.C...K..(0.6.1.M):L.J.K:O.M.12.K:P.L.10
0:Z1..(P.4):Z2..(P).....Z3..(5.L.4):Z4..
(13.(O.1).5):Z.Z4.Z3.Z2.Z1.T.1.....Z.Z.7
..(Z.7).1:.L.1.Z:.TA$:....A.TA$."HEUTE I
ST ".TA$.", DER ".T$.".".M$.".".J$.,.F..
SONNTAG,MONTAG,DIENSTAG,MITTWOCH,DONNER
STAG,FREITAG,SAMSTAG.S.H.. -----------ME
NUE----------------...M..".";:.HI$(0);"
PROGRAMM-VERKAUF":.HI$(0);...R
..L.1.9:.:..2)I(D(L),1)" -- "DA$(L):..J.
S..". E -- ENDE.".T.W..9990...Z..IN$."E
".270...... IN . 300,400,500,300,400,600
,249,260,700......215.+....250:.200.R...
. --------DATUM / UHRZEIT---------.Y....
"........";..((40.C(TA$)).2));TA$......H
I$(2).15)H(TI$,2)":"J(TI$,3,2)":"I(TI$,2
)......IN$:.IN$."".256.D.......... -----
---FREIER SPEICHER---------.2....HI$(1).
4)"ES SIND NOCH BYTES FREI";"....
.............".(0).A....9990:.200.H....
-----------ENDE-----------------......".
......".15)".U....I........ENDE........J
....K".P...."....SIE KOENNEN MIT 'GOTO20
0' DAS PROGRAMM"......".WIEDER STARTEN,
OHNE DAS DIE DATEN VER- .LOREN GEHEN!!..
":..:.,.. -------NEUE EINGABEN----------
--.R.-.SA.0:Y.IN:.IN.1.X.0.`....IN.4.X.1
.J./.A.A.1...1..LO..X..8000:LO.X...2.J$.
I(J$,2):J.E(J$):.A..1.A$(A,0).J$.DD$(X).
"1":.312.S.3..H(A$(A.1,0),2).J$.309...4.
A$(A,0).I(D(J),2).DD$(X)."1":.312.*.5.LE
.C(A$(A.1,0)):K.E(I(A$(A.1,0),LE.3)):K.K
.1.R.6.A$(A,0).J$.DD$(X).I(D(K),C(D(K)).
1)...8..".";HI$(0);..(40.C(DA$(Y))).2.40
);DA$(Y):.HI$(0)...9.L.A:.9980...:.....;
..L.1.HI(X):.DB$(X,L)...>.." ....";A$(
A,L):.A$(A,L)."@".330...?.....@..".EINGA
BEN RICHTIG (J/N)?"...A..9990:.IN$."N".3
06.,.B..IN$.."J".321.:.E.SA.1:.303.P.J.A
.A.1:.SA.1..8010.Y.L..200...... ------AU
FLISTEN / SUCHEN--------.....Y.IN:.IN.2.
X.0......IN.5.X.1......LO..X..8000:LO.X.
.....".";HI$(0);..(40.C(DA$(Y))).2.40);D
A$(Y):.HI$(0)......L.0.HI(X):.L.1"-- "DB
$(X,L):.:../....".A -- ALLES AUFLISTEN".
R....X.0.."..P -- PREISE AENDERN.".T...A
L.0:.9990:.IN$."A".AL.1:.433......IN$."P
".X.0.7200......IN.1.IN.HI(X).1.420.....
GS.IN:."... 1 -- SUCHEN 'VON/BIS'":."..
2 -- SUCHWOERTER"......9990:.IN.1.RT.1:.
490:.433......IN..2.427.....RT.0.=....".
..WIEVIEL SUCHWOERTER (1-9)?".V....9990:
.IN.1.IN.9.431......:.:GH.IN:.L.1.GH:.L"
.. SUCHWORT:";:.SW$(L):.:.. ....8100:.".
":.L.1.A......AL.1..7000:.460.C....RT.0.
450......A$(L,GS.1)..SW$(0).A$(L,GS.1)..
SW$(1)..7000......460.".B..M.1.GH:.A$(L,
GS.1).SW$(M)..7000.).C..M.?.L..L:.".".16
)"ENDE".Y.M..AE.1.AE.0:.8010:.200.H.N..9
990:.200......"...UNTERES LIMIT ";:.SW$(
0)......"..OBERES LIMIT ";:.SW$(1)......
.W.... -----ANGEBOT DRUCKEN------------.
....DK.0:X.1:.LO..X..8000:LO.X......IN.3
.DX.0:.505.....DX.1.!...SU.1:.400.\....K
L.0.."....KUNDE IST NICHT IN DER KARTEI!
":.9990:.400.H....4,4:.4.T....L.1.DK....
..4,G(10):.8200......4,G(10):.C(B$(L,1))
..2..4:.523.C....4,G(16)"10"B$(L,1).....
.C(B$(L,2))..2..4:.525......4,G(16)"10"B
$(L,2);" ";......C(B$(L,3))..2..4:.527.%
....4,B$(L,3).@....C(B$(L,4))..2..4:.529
.X....4,G(16)"10"B$(L,4).S....C(B$(L,5))
..2..4:.531......4,G(16)"05"B$(L,5);" ";
......C(B$(L,6))..2..4:.533......4,B$(L,
6).U....C(B$(L,7))..2..4:.535......4,G(1
6)"10"B$(L,7);......C(B$(L,8))..2..4:.53
7......4,B$(L,8).A....4,G(10)G(16)"10KUN
DEN NR.: "B$(L,0).H....4,G(10)G(10)G(14)
G(16)"20"DX$(DX).X.N..L: 4:.9990...W..20
0...X.. -----D.HNUNG DRUCKEN-----------.
.....200.W.... -------SORTIEREN---------
-------......"....1 -- PROGRAMME":.".2 -
- KUNDEN"......9990:.IN.1.IN.2.702.-...Y
.IN:.IN.1.X.0.;....IN.2.X.1.Q.A..LO..X..
8000:LO.X...D..".";HI$(0);..(40.C(DA$(8)
)).2.40);DA$(9):.HI$(0)...F..L.0.HI(X):.
L.1"-- "DB$(X,L):.:..K.K..9990:.IN.1.IN.
HI(X).1.715.U.P..9999...Z..I.1.A.1:.Y.I.
1.A......A$(I,IN.1)..A$(Y,IN.1).750.....
.M.0.HI(X).N...A$(0,M).A$(I,M):A$(I,M).A
$(Y,M):A$(Y,M).A$(0,M).T.....A....:.:.20
0.J....200... .. -------PREISE AENDERN--
---------......200...X.. -----GEFUNDEN--
----------------.O.Y..DR.1.7020...Z..X.1
.7010...B..9980:.:.A$(L,1):.A$(L,2),A$(L
,3),A$(L,4).0.C..A$(L,6),A$(L,5),A$(L,7)
,A$(L,8).:.D..7035.@.L...M.{..HI$(3);.O.
|.." RETURN=WEITER @=MENUE";...}..SU.
0.." A=AENDERN"...~..SU.1.." G=GEFUND
EN".....HI$(3).F....9990:.IN$.G(13)....
....IN$."A".SU.0.7100......IN$."G".SU.1.
KL.1:.7050......IN$."G".SU.1.KL.1:.7050:
.512.7....IN$."E".SU.1.KL.1.512.A....704
0.M...DK.DK.1.R....LM.0.HI(X):B$(DK,LM).
A$(L,LM):..X.......... --------AENDERN--
--------------.C...."."HI$(0);.40)"AENDE
RN":.HI$(0).R....M.0.HI(X)......"."DB$(X
,M)". "A$(L,M):.A$(L,M):....A..".EINGAB
E RICHTIG (J/N)?".8.F..9990:.IN$."J".AE.
1:.".":..J.H..IN$."N".7100.T.K..7110.Z.
.. -------PREISE AENDERN----------...!..
"."HI$(0);.50)"PREISE AENDERN".80)HI$(0)
...".."...":L.0...#.."EINGABE (5.00/6.00
)(+5%) ";CH$(L)...$..CH$(L)."@".200...%.
.CH$(L)."A".7210.".&..I(CH$(0),1)."%".72
80.F.'.ZX(L).C(CH$(L)):ZY(L)..(ZX(L).2):
.J(CH$(L),ZY(L).1,1).."/".7299...(.ZX$(L
).H(CH$(L),ZY(L)):ZY$(L).I(CH$(L),ZY(L))
...).L.L.1:.7203...*..T.1.A:.M.0.L...,..
A$(T,5).ZX$(M).A$(T,5).ZY$(M).../..:....
4..7290.. P..H(CH$(0),1).."+".H(CH$(0),1
).."-".7299.V Q..L.1.A:P(1).E(A$(L,5)):P
(2).E(J(CH$(0),2,C(CH$(0)).2)).. R.P(3).
(P(2).P(1)).100:P(3)..(P(3).10..5).10..
S..H(CH$(0),1)."+".P(3).P(3).P(1).M T..H
(CH$(0),1)."-".P(3).P(3).P(1).. U.P$.D(P
(3)):P$.I(P$,C(P$).1):ZZ.C(P$)..!V..J(P$
,ZZ.1,1).".".P$.P$."0":.7289.,!W.P$.P$."
.00".=!Y.A$(L,5).P$:..^!Z..". SPE
ICHERN (J/N)?".|!{..9990:.IN$."J"..8010:
.200..!}..IN$."N".200..!~..7291.T!...".E
INGABE FALSCH! BITTE WIEDERHOLEN!":.L.1.
2000:.:.7200.Z!?...."@.. -------LADEN---
----------------.."B..2,8,2,DC$(X).",S,R
":.2,A.C"C..L.1.A:.M.0.HI(X):.2,A$(L,M):
.:..R"D. 2:.8050:..X"J.. -------SPEICHER
N---------------.."K..15,8,15,"S:".DC$(X
): 15.."L..2,8,2,DC$(X).",S,W":.2,A.."M.
.F.1.A:.D.0.HI(X):.2,A$(F,D).G(13);:.:..
."N. 2:.8050:...#R.. -------D| DR D~OR--
------.,#T..15,8,15:.15,F1,F1$,F2,F3.<#V
..F1.0. 15:..X#X..".....STATUS FEHLER!!"
.L#Z..".....NR.:",F1.{#|.."...";F1$..#~.
."...SPUR:",F2..#..."...SEKTOR:",F3.A#..
.".....WEITER (J/N)?": 15.V#...9990:.IN$
."J"....#...IN$.."N".8067..#...270..$...
-----BILDSCHIRM/DRUCKER--------.G$...".
.....1 -- BILDSCHIRM":."..2 -- DRUCKER".
^$...9990:.IN.1.DR.0:..N$...IN..2.8102.Y
$..DR.1:...$. . -----MEINE ADRESSE DRUCK
EN-----.O$. .4,G(14)G(16)"12**** FRIEDR
ICH SAUER ****"..%. .4,G(10)G(16)"02HAMB
ACHERSTRASSE 1 6140 BENSHEIM 5".5%. .
4,G(15)G(10)G(16)"30TEL. 06251/62878".;%
0 ..A%K ..G%.&. ------NR+LFD. NR--------
-------..%.&.".........NR.. "A$(L,0)".",
,"..................LFD. NR.."L..%.&..S%
.'. ----------TASTE----------------..%.'
.198,0:.198,1..&.'.IN$:.IN$."@".AE.0.200
."&.'.IN$."@".AE.1.AE.0:.8010:.200.3&.'.
IN$."*".250.C&.'IN.E(IN$):..J&.'.HI$(1).
10)"EINEN MOMENT BITTE!":....
> CLICK IMAGE PREVIEW FOR FULL MODAL