00000000: 53 42 01 2F 08 64 00 4C 4F 24 B2 C7 28 31 34 37 |SB./.d.LO$..(147|
00000010: 29 3A 8F 20 42 45 5A 41 48 4C 54 45 20 D2 45 43 |):. BEZAHLTE .EC|
00000020: 48 4E 55 4E 47 45 4E 20 45 49 4E 47 45 42 45 4E |HNUNGEN EINGEBEN|
00000030: 00 65 08 6E 00 21 19 3A 4C 49 24 B2 22 C0 C0 C0 |.e.n.!.:LI$."...|
00000040: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000050: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000060: C0 C0 C0 C0 C0 22 00 98 08 78 00 21 15 4C 4F 24 |....."...x.!.LO$|
00000070: 3B 40 35 2C 33 40 AA 22 20 C2 45 5A 41 48 4C 54 |;@5,3@." .EZAHLT|
00000080: 45 20 D2 45 43 48 4E 55 4E 47 45 4E 20 45 49 4E |E .ECHNUNGEN EIN|
00000090: 47 45 42 45 4E 20 22 21 43 00 C3 08 82 00 40 33 |GEBEN "!C.....@3|
000000A0: 2C 31 32 40 AA 22 20 C6 31 20 22 3B 22 20 D2 45 |,12@." .1 ";" .E|
000000B0: 43 48 4E 55 4E 47 45 4E 20 45 49 4E 47 45 42 45 |CHNUNGEN EINGEBE|
000000C0: 4E 22 21 43 00 E7 08 8C 00 40 33 2C 31 34 40 AA |N"!C.....@3,14@.|
000000D0: 22 20 C6 35 20 22 3B 22 20 C1 55 53 57 41 48 4C |" .5 ";" .USWAHL|
000000E0: 4D 45 4E 55 45 22 21 43 00 0C 09 96 00 40 33 2C |MENUE"!C.....@3,|
000000F0: 31 36 40 AA 22 20 C6 37 20 22 3B 22 20 D3 D5 C2 |16@." .7 ";" ...|
00000100: C5 D2 C2 C1 D3 C5 2D CD 45 4E 55 45 22 00 2F 09 |......-.ENUE"./.|
00000110: A0 00 21 2A 50 24 3A 21 39 C6 28 50 24 29 B3 31 |..!*P$:!9.(P$).1|
00000120: 33 33 B0 C6 28 50 24 29 B1 31 33 36 A7 31 36 30 |33..(P$).136.160|
00000130: 00 4F 09 AA 00 91 C6 28 50 24 29 AB 31 33 32 89 |.O.....(P$).132.|
00000140: 31 30 30 30 2C 31 37 30 2C 31 38 30 2C 31 39 30 |1000,170,180,190|
00000150: 00 69 09 B4 00 21 4A 22 41 55 53 57 41 48 4C 4D |.i...!J"AUSWAHLM|
00000160: 45 4E 55 45 22 3A 8F 20 46 35 00 75 09 BE 00 21 |ENUE":. F5.u...!|
00000170: 12 3A 8F 20 46 37 00 B3 09 E8 03 21 15 4C 4F 24 |.:. F7.....!.LO$|
00000180: 3B 40 33 2C 33 22 D2 45 43 48 4E 55 4E 47 53 4E |;@3,3".ECHNUNGSN|
00000190: 55 4D 4D 45 52 22 3B 40 AA 22 4F 44 45 52 22 3B |UMMER";@."ODER";|
000001A0: 22 D2 45 43 48 4E 55 4E 47 20 56 4F 4D 20 2E 2E |".ECHNUNG VOM ..|
000001B0: 2E 22 21 43 00 E4 09 F2 03 40 33 2C 35 22 4B 41 |."!C.....@3,5"KA|
000001C0: 4E 4E 20 4D 49 54 20 D2 C5 D4 D5 D2 CE 20 55 45 |NN MIT ...... UE|
000001D0: 42 45 52 53 50 52 55 4E 47 45 4E 20 57 45 52 44 |BERSPRUNGEN WERD|
000001E0: 45 4E 22 21 43 00 24 0A FC 03 40 31 2C 37 4C 49 |EN"!C.$...@1,7LI|
000001F0: 24 3B 40 31 2C 39 4C 49 24 3B 40 30 3B 40 31 2C |$;@1,9LI$;@0;@1,|
00000200: 31 30 4C 49 24 3B 40 31 2C 31 32 4C 49 24 3B 40 |10LI$;@1,12LI$;@|
00000210: 30 3B 40 31 2C 31 33 4C 49 24 3B 40 31 2C 31 35 |0;@1,13LI$;@1,15|
00000220: 4C 49 24 21 43 00 56 0A 06 04 40 30 40 31 2C 31 |LI$!C.V...@0@1,1|
00000230: 36 4C 49 24 3B 40 31 2C 31 38 4C 49 24 3B 40 30 |6LI$;@1,18LI$;@0|
00000240: 3B 40 31 2C 31 39 4C 49 24 3B 40 31 2C 32 31 4C |;@1,19LI$;@1,21L|
00000250: 49 24 3B 40 30 21 43 00 7C 0A 10 04 40 33 2C 38 |I$;@0!C.|...@3,8|
00000260: 22 D2 45 43 48 4E 55 4E 47 53 4E 55 4D 4D 45 52 |".ECHNUNGSNUMMER|
00000270: 20 20 20 3C 2E 2E 2E 2E 2E 3E 22 21 43 00 C6 0A | <.....>"!C...|
00000280: 1A 04 40 33 2C 31 31 22 CB 55 4E 44 45 4E 4E 55 |..@3,11".UNDENNU|
00000290: 4D 4D 45 52 20 20 20 20 20 20 3C 2E 2E 2E 2E 2E |MMER <.....|
000002A0: 3E 22 3B 40 33 2C 31 34 22 C2 45 54 52 41 47 20 |>";@3,14".ETRAG |
000002B0: 20 20 20 20 20 20 20 20 3C 30 20 20 20 20 20 20 | <0 |
000002C0: 20 3E C4 CD 22 21 43 00 0F 0B 24 04 40 33 2C 31 | >.."!C...$.@3,1|
000002D0: 37 22 D2 45 43 48 4E 55 4E 47 20 56 4F 4D 20 20 |7".ECHNUNG VOM |
000002E0: 20 20 3C 54 54 4D 4D 4D 4A 4A 3E 22 3B 40 33 2C | <TTMMMJJ>";@3,|
000002F0: 32 30 22 C2 45 5A 41 48 4C 54 20 41 4D 20 20 20 |20".EZAHLT AM |
00000300: 20 20 20 3C 4D 45 4E 55 20 20 20 3E 22 3B 40 30 | <MENU >";@0|
00000310: 00 3C 0B 2E 04 21 3A 26 35 40 32 32 2C 38 3B 41 |.<...!:&5@22,8;A|
00000320: 24 3A 21 3A 26 35 40 32 32 2C 31 31 3B 42 24 3A |$:!:&5@22,11;B$:|
00000330: 21 3A 26 38 40 31 39 2C 31 34 3B 43 24 00 4E 0B |!:&8@19,14;C$.N.|
00000340: 38 04 21 3A 26 37 40 32 30 2C 31 37 3B 44 24 00 |8.!:&7@20,17;D$.|
00000350: 70 0B 42 04 21 3A 26 37 40 32 30 2C 32 30 3B 45 |p.B.!:&7@20,20;E|
00000360: 24 3A 21 39 45 24 B2 22 4D 45 4E 55 22 A7 31 30 |$:!9E$."MENU".10|
00000370: 30 00 85 0B 4C 04 43 B2 C5 28 43 24 29 3A 42 45 |0...L.C..(C$):BE|
00000380: 24 B2 22 4A 41 22 00 9B 0B 56 04 21 52 45 24 2C |$."JA"...V.!RE$,|
00000390: 4E 3A 21 39 4E B2 30 A7 31 30 39 30 00 B1 0B 60 |N:!9N.0.1090...`|
000003A0: 04 21 39 41 24 B2 22 2E 2E 2E 2E 2E 22 A7 32 30 |.!9A$.".....".20|
000003B0: 30 30 00 D4 0B 6A 04 21 39 41 24 B2 22 2E 2E 2E |00...j.!9A$."...|
000003C0: 2E 2E 22 AF 44 24 B2 22 54 54 4D 4D 4D 4A 4A 22 |..".D$."TTMMMJJ"|
000003D0: A7 31 30 37 30 00 F4 0B 74 04 21 0A 22 52 45 43 |.1070...t.!."REC|
000003E0: 48 4E 55 4E 47 45 4E 22 3A 21 02 41 24 3A 21 45 |HNUNGEN":!.A$:!E|
000003F0: 89 39 30 30 30 00 0F 0C 7E 04 21 39 43 B2 5B 47 |.9000...~.!9C.[G|
00000400: 45 53 41 4D 54 50 52 45 49 53 5D A7 31 31 38 30 |ESAMTPREIS].1180|
00000410: 00 46 0C 88 04 21 15 4C 4F 24 3B 40 33 2C 31 30 |.F...!.LO$;@3,10|
00000420: 40 AA 22 20 C4 45 52 20 C2 45 54 52 41 47 20 53 |@." .ER .ETRAG S|
00000430: 54 49 4D 4D 54 20 4E 49 43 48 54 20 55 45 42 45 |TIMMT NICHT UEBE|
00000440: 52 45 49 4E 21 20 22 00 56 0C 92 04 8D 34 30 30 |REIN! ".V....400|
00000450: 30 3A 89 39 30 31 30 00 73 0C 9C 04 21 39 42 24 |0:.9010.s...!9B$|
00000460: B2 5B 4B 55 4E 44 45 4E 4E 55 4D 4D 45 52 5D A7 |.[KUNDENNUMMER].|
00000470: 31 32 33 30 00 A4 0C A6 04 21 15 4C 4F 24 3B 40 |1230.....!.LO$;@|
00000480: 35 2C 33 40 AA 22 20 CB 55 4E 44 45 4E 4E 55 4D |5,3@." .UNDENNUM|
00000490: 4D 45 52 20 53 54 49 4D 4D 54 20 4E 49 43 48 54 |MER STIMMT NICHT|
000004A0: 21 20 22 21 43 00 DE 0C B0 04 40 33 2C 35 22 DA |! "!C.....@3,5".|
000004B0: 55 52 20 D2 45 43 48 4E 55 4E 47 53 4E 52 2E 22 |UR .ECHNUNGSNR."|
000004C0: 3B 5B 52 45 43 48 4E 55 4E 47 53 4E 55 4D 5D 3B |;[RECHNUNGSNUM];|
000004D0: 22 47 45 48 4F 45 52 54 20 44 49 45 22 21 43 00 |"GEHOERT DIE"!C.|
000004E0: 0E 0D BA 04 40 33 2C 37 22 CB 55 4E 44 45 4E 4E |....@3,7".UNDENN|
000004F0: 55 4D 4D 45 52 20 20 20 20 22 3B 5B 4B 55 4E 44 |UMMER ";[KUND|
00000500: 45 4E 4E 55 4D 4D 45 52 5D 3B 22 21 22 21 43 00 |ENNUMMER];"!"!C.|
00000510: 37 0D C4 04 40 31 30 2C 39 40 AA 22 20 D4 41 53 |7...@10,9@." .AS|
00000520: 54 45 20 44 52 55 45 43 4B 45 4E 20 22 40 30 3A |TE DRUECKEN "@0:|
00000530: 21 2A 3A 89 31 30 30 30 00 53 0D CE 04 21 39 5B |!*:.1000.S...!9[|
00000540: 42 45 47 4C 49 43 48 45 4E 5D B2 22 4A 41 22 A7 |BEGLICHEN]."JA".|
00000550: 32 30 37 30 00 80 0D D8 04 21 53 5B 31 2E 44 41 |2070.....!S[1.DA|
00000560: 54 55 4D 5D 2C 44 44 24 3A 21 15 40 30 3B 40 32 |TUM],DD$:!.@0;@2|
00000570: 30 2C 31 37 44 44 24 AA 22 3E 22 3A 89 33 30 30 |0,17DD$.">":.300|
00000580: 30 00 96 0D D0 07 21 52 44 24 2C 4E 3A 21 39 4E |0.....!RD$,N:!9N|
00000590: B2 30 A7 31 30 38 30 00 AC 0D DA 07 21 52 45 24 |.0.1080.....!RE$|
000005A0: 2C 4E 3A 21 39 4E B2 30 A7 31 30 39 30 00 BF 0D |,N:!9N.0.1090...|
000005B0: E4 07 21 0A 22 52 45 43 48 4E 55 4E 47 45 4E 22 |..!."RECHNUNGEN"|
000005C0: 00 F3 0D F8 07 21 02 4C 3A 21 02 4D 21 26 5B 4B |.....!.L:!.M!&[K|
000005D0: 55 4E 44 45 4E 4E 55 4D 4D 45 52 5D B2 42 24 3B |UNDENNUMMER].B$;|
000005E0: 5B 31 2E 44 41 54 55 4D 5D B2 44 24 3A 21 47 89 |[1.DATUM].D$:!G.|
000005F0: 39 30 30 30 00 10 0E 02 08 21 39 5B 47 45 53 41 |9000.....!9[GESA|
00000600: 4D 54 50 52 45 49 53 5D B3 B1 43 A7 89 32 30 34 |MTPREIS]..C..204|
00000610: 30 00 4D 0E 0C 08 21 39 5B 42 45 47 4C 49 43 48 |0.M...!9[BEGLICH|
00000620: 45 4E 5D B3 B1 22 4A 41 22 A7 21 15 40 30 3B 26 |EN].."JA".!.@0;&|
00000630: 35 40 32 32 2C 38 5B 52 45 43 48 4E 55 4E 47 53 |5@22,8[RECHNUNGS|
00000640: 4E 55 4D 5D AA 22 3E 22 3A 89 33 30 30 30 00 80 |NUM].">":.3000..|
00000650: 0E 16 08 21 15 4C 4F 24 3B 40 33 2C 31 30 40 AA |...!.LO$;@3,10@.|
00000660: 22 20 D2 45 43 48 4E 55 4E 47 20 49 53 54 20 53 |" .ECHNUNG IST S|
00000670: 43 48 4F 4E 20 42 45 47 4C 49 43 48 45 4E 21 20 |CHON BEGLICHEN! |
00000680: 22 00 90 0E 20 08 8D 34 30 30 30 3A 89 39 30 31 |"... ..4000:.901|
00000690: 30 00 A3 0E B8 0B 21 05 5B 32 2E 44 41 54 55 4D |0.....!.[2.DATUM|
000006A0: 5D B2 45 24 00 BA 0E C2 0B 21 05 5B 42 45 47 4C |].E$.....!.[BEGL|
000006B0: 49 43 48 45 4E 5D B2 22 4A 41 22 00 C1 0E CC 0B |ICHEN]."JA".....|
000006C0: 21 21 00 D5 0E D6 0B 21 0A 22 4B 41 52 54 45 49 |!!.....!."KARTEI|
000006D0: 22 3A 21 02 42 24 00 E7 0E E0 0B 21 05 5B 45 49 |":!.B$.....!.[EI|
000006E0: 4E 47 41 4E 47 5D B2 43 00 0D 0F EA 0B 21 05 5B |NGANG].C.....!.[|
000006F0: 47 45 53 41 4D 54 55 4D 53 41 54 5A 5D B2 5B 47 |GESAMTUMSATZ].[G|
00000700: 45 53 41 4D 54 55 4D 53 41 54 5A 5D AA 43 00 27 |ESAMTUMSATZ].C.'|
00000710: 0F F4 0B 21 05 5B 53 43 48 55 4C 44 5D B2 5B 53 |...!.[SCHULD].[S|
00000720: 43 48 55 4C 44 5D AB 43 00 2E 0F FE 0B 21 21 00 |CHULD].C.....!!.|
00000730: 37 0F 08 0C 89 31 30 30 00 5D 0F A0 0F 21 15 40 |7....100.]...!.@|
00000740: 31 32 2C 32 30 40 AA 22 20 D4 C1 D3 D4 C5 20 C4 |12,20@." ..... .|
00000750: D2 D5 C5 C3 CB C5 CE 20 22 3A 21 2A 3A 8E 00 9A |....... ":!*:...|
00000760: 0F 28 23 21 15 4C 4F 24 3B 40 33 2C 31 30 40 AA |.(#!.LO$;@3,10@.|
00000770: 22 20 D2 45 43 48 4E 55 4E 47 22 3B 40 AA 41 24 |" .ECHNUNG";@.A$|
00000780: 3B 40 AA 22 4E 49 43 48 54 20 47 45 46 55 4E 44 |;@."NICHT GEFUND|
00000790: 45 4E 21 20 22 3A 8D 34 30 30 30 00 D2 0F 32 23 |EN! ":.4000...2#|
000007A0: 21 02 4D 21 26 5B 4B 55 4E 44 45 4E 4E 55 4D 4D |!.M!&[KUNDENNUMM|
000007B0: 45 52 5D B2 42 24 3B 5B 42 45 47 4C 49 43 48 45 |ER].B$;[BEGLICHE|
000007C0: 4E 5D 49 53 22 3D 4E 45 49 4E 22 3A 21 47 89 31 |N]IS"=NEIN":!G.1|
000007D0: 30 30 30 00 08 10 3C 23 21 03 22 48 4C 49 53 54 |000...<#!."HLIST|
000007E0: 22 21 26 5B 4B 55 4E 44 45 4E 4E 55 4D 4D 45 52 |"!&[KUNDENNUMMER|
000007F0: 5D B2 42 24 3B 5B 42 45 47 4C 49 43 48 45 4E 5D |].B$;[BEGLICHEN]|
00000800: 49 53 22 3D 4E 45 49 4E 22 00 43 10 46 23 21 42 |IS"=NEIN".C.F#!B|
00000810: 21 19 21 1D 22 48 4C 49 53 54 22 40 AA 22 CB 55 |!.!."HLIST"@.".U|
00000820: 4E 44 45 4E 4E 55 4D 4D 45 52 3A 20 20 20 20 20 |NDENNUMMER: |
00000830: 22 26 5B 4B 55 4E 44 45 4E 4E 55 4D 4D 45 52 5D |"&[KUNDENNUMMER]|
00000840: 40 31 21 43 00 6F 10 50 23 22 4F 46 46 45 4E 45 |@1!C.o.P#"OFFENE|
00000850: 20 D2 45 43 48 4E 55 4E 47 3A 20 20 22 26 5B 52 | .ECHNUNG: "&[R|
00000860: 45 43 48 4E 55 4E 47 53 4E 55 4D 5D 40 31 21 43 |ECHNUNGSNUM]@1!C|
00000870: 00 A6 10 5A 23 22 C2 45 54 52 41 47 3A 20 20 20 |...Z#".ETRAG: |
00000880: 20 20 20 22 26 36 2C 32 5B 47 45 53 41 4D 54 50 | "&6,2[GESAMTP|
00000890: 52 45 49 53 5D 22 C4 CD 20 20 56 4F 4D 22 5B 31 |REIS]".. VOM"[1|
000008A0: 2E 44 41 54 55 4D 5D 00 BB 10 64 23 21 15 40 30 |.DATUM]...d#!.@0|
000008B0: 3A 8D 34 30 30 30 3A 89 31 30 30 30 00 00 00 D5 |:.4000:.1000....|
SB./.D.LO$.G(147):. BEZAHLTE RECHNUNGEN
EINGEBEN.E.N.!.:LI$."...................
....................."...X.!.LO$;@5,3@."
BEZAHLTE RECHNUNGEN EINGEBEN "!C.C...@3
,12@." F1 ";" RECHNUNGEN EINGEBEN"!C....
.@3,14@." F5 ";" AUSWAHLMENUE"!C.....@3,
16@." F7 ";" SUBERBASE-MENUE"./. .!*P$:!
9F(P$).133.F(P$).136.160.O....F(P$).132.
1000,170,180,190.I...!J"AUSWAHLMENUE":.
F5.U...!.:. F7.....!.LO$;@3,3"RECHNUNGSN
UMMER";@."ODER";"RECHNUNG VOM ..."!C....
.@3,5"KANN MIT RETURN UEBERSPRUNGEN WERD
EN"!C.$...@1,7LI$;@1,9LI$;@0;@1,10LI$;@1
,12LI$;@0;@1,13LI$;@1,15LI$!C.V...@0@1,1
6LI$;@1,18LI$;@0;@1,19LI$;@1,21LI$;@0!C.
|...@3,8"RECHNUNGSNUMMER <.....>"!C.F.
..@3,11"KUNDENNUMMER <.....>";@3,14
"BETRAG <0 >DM"!C...$.@3,1
7"RECHNUNG VOM <TTMMMJJ>";@3,20"BEZAH
LT AM <MENU >";@0.<...!:&5@22,8;A
$:!:&5@22,11;B$:!:&8@19,14;C$.N.8.!:&7@2
0,17;D$.P.B.!:&7@20,20;E$:!9E$."MENU".10
0...L.C.E(C$):BE$."JA"...V.!RE$,N:!9N.0.
1090...`.!9A$.".....".2000.T.J.!9A$."...
..".D$."TTMMMJJ".1070...T.!."RECHNUNGEN"
:!.A$:!E.9000...~.!9C.[GESAMTPREIS].1180
.F...!.LO$;@3,10@." DER BETRAG STIMMT NI
CHT UEBEREIN! ".V....4000:.9010.S...!9B$
.[KUNDENNUMMER].1230.....!.LO$;@5,3@." K
UNDENNUMMER STIMMT NICHT! "!C.....@3,5"Z
UR RECHNUNGSNR.";[RECHNUNGSNUM];"GEHOERT
DIE"!C.....@3,7"KUNDENNUMMER ";[KUND
ENNUMMER];"!"!C.7.D.@10,9@." TASTE DRUEC
KEN "@0:!*:.1000.S.N.!9[BEGLICHEN]."JA".
2070...X.!S[1.DATUM],DD$:!.@0;@20,17DD$.
">":.3000...P.!RD$,N:!9N.0.1080...Z.!RE$
,N:!9N.0.1090.....!."RECHNUNGEN".....!.L
:!.M!&[KUNDENNUMMER].B$;[1.DATUM].D$:!G.
9000.....!9[GESAMTPREIS]..C..2040.M...!9
[BEGLICHEN].."JA".!.@0;&5@22,8[RECHNUNGS
NUM].">":.3000.....!.LO$;@3,10@." RECHNU
NG IST SCHON BEGLICHEN! "... ..4000:.901
0.....!.[2.DATUM].E$...B.!.[BEGLICHEN]."
JA".A.L.!!.U.V.!."KARTEI":!.B$.....!.[EI
NGANG].C.....!.[GESAMTUMSATZ].[GESAMTUMS
ATZ].C.'...!.[SCHULD].[SCHULD].C.....!!.
7....100.]. .!.@12,20@." TASTE DRUECKEN
":!*:....(#!.LO$;@3,10@." RECHNUNG";@.A$
;@."NICHT GEFUNDEN! ":.4000.R.2#!.M!&[KU
NDENNUMMER].B$;[BEGLICHEN]IS"=NEIN":!G.1
000...<#!."HLIST"!&[KUNDENNUMMER].B$;[BE
GLICHEN]IS"=NEIN".C.F#!B!.!."HLIST"@."KU
NDENNUMMER: "&[KUNDENNUMMER]@1!C.O.P
#"OFFENE RECHNUNG: "&[RECHNUNGSNUM]@1!C
...Z#"BETRAG: "&6,2[GESAMTPREIS]"DM
VOM"[1.DATUM]...D#!.@0:.4000:.1000...U
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL