> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 85 22 93 11 20 42 49 54 54 45 |..#....".. BITTE|
00000010: 20 44 41 54 55 4D 20 45 49 4E 47 45 42 45 4E 22 | DATUM EINGEBEN"|
00000020: 3B 44 24 00 72 08 14 00 86 41 24 28 34 30 29 2C |;D$.r....A$(40),|
00000030: 53 24 28 34 30 29 2C 45 50 28 34 30 29 2C 53 5A |S$(40),EP(40),SZ|
00000040: 28 34 30 29 2C 4E 52 28 34 30 29 2C 4E 52 24 28 |(40),NR(40),NR$(|
00000050: 34 30 29 2C 45 50 24 28 34 30 29 2C 53 5A 24 28 |40),EP$(40),SZ$(|
00000060: 34 30 29 2C 47 44 28 34 30 29 2C 47 44 24 28 34 |40),GD(40),GD$(4|
00000070: 30 29 00 A8 08 1E 00 9F 31 35 2C 38 2C 31 35 3A |0)......15,8,15:|
00000080: 9F 38 2C 38 2C 38 2C 22 42 2C 53 2C 52 22 3A 84 |.8,8,8,"B,S,R":.|
00000090: 31 35 2C 46 45 3A 8B 46 45 B3 B1 30 A7 A0 38 3A |15,FE:.FE..0..8:|
000000A0: A0 31 35 3A 89 31 32 30 00 B4 08 28 00 84 38 2C |.15:.120...(..8,|
000000B0: 45 3A A0 38 00 D0 08 32 00 9F 38 2C 38 2C 38 2C |E:.8...2..8,8,8,|
000000C0: 22 42 45 53 54 45 4C 4C 55 4E 47 2C 53 2C 52 22 |"BESTELLUNG,S,R"|
000000D0: 00 08 09 3C 00 81 4C B2 30 A4 45 3A 84 38 2C 41 |...<..L.0.E:.8,A|
000000E0: 24 28 4C 29 2C 53 24 28 4C 29 2C 45 50 28 4C 29 |$(L),S$(L),EP(L)|
000000F0: 2C 53 5A 28 4C 29 2C 4E 52 28 4C 29 3A 82 3A 84 |,SZ(L),NR(L):.:.|
00000100: 38 2C 44 31 24 3A A0 38 00 38 09 46 00 81 4B B2 |8,D1$:.8.8.F..K.|
00000110: 30 A4 45 3A 41 24 28 4B 29 B2 C8 28 41 24 28 4B |0.E:A$(K)..(A$(K|
00000120: 29 2C 32 30 29 3A 53 24 28 4B 29 B2 C8 28 53 24 |),20):S$(K)..(S$|
00000130: 28 4B 29 2C 35 29 3A 82 00 4D 09 50 00 84 31 35 |(K),5):..M.P..15|
00000140: 2C 46 45 3A 8B 46 45 B2 30 A7 A0 31 35 00 6C 09 |,FE:.FE.0..15.l.|
00000150: 5A 00 8B 46 45 B3 B1 30 A7 99 22 44 49 53 4B 46 |Z..FE..0.."DISKF|
00000160: 45 48 4C 45 52 22 3A A0 31 35 3A 80 00 8E 09 64 |EHLER":.15:....d|
00000170: 00 99 22 93 11 20 4C 45 54 5A 54 45 52 20 45 49 |..".. LETZTER EI|
00000180: 4E 54 52 41 47 20 56 4F 4D 20 22 44 31 24 00 A3 |NTRAG VOM "D1$..|
00000190: 09 6E 00 81 57 B2 30 A4 32 35 30 30 3A 82 3A 89 |.n..W.0.2500:.:.|
000001A0: 31 33 30 00 E2 09 78 00 99 22 93 11 11 11 11 20 |130...x.."..... |
000001B0: 20 20 12 20 4E 4F 43 48 20 4B 45 49 4E 45 20 42 | . NOCH KEINE B|
000001C0: 45 53 54 45 4C 4C 55 4E 47 20 56 4F 52 48 41 4E |ESTELLUNG VORHAN|
000001D0: 44 45 4E 20 92 22 3A 81 57 B2 30 A4 32 30 30 30 |DEN .":.W.0.2000|
000001E0: 3A 82 00 FA 09 82 00 85 22 93 11 20 41 52 54 49 |:.......".. ARTI|
000001F0: 4B 45 4C 22 3B 41 24 28 45 29 00 0D 0A 8C 00 8B |KEL";A$(E)......|
00000200: 41 24 28 45 29 B2 22 2A 22 A7 31 39 30 00 2A 0A |A$(E)."*".190.*.|
00000210: 96 00 85 22 11 20 48 45 46 54 41 52 54 2F 53 45 |...". HEFTART/SE|
00000220: 49 54 45 22 3B 53 24 28 45 29 00 5B 0A A0 00 85 |ITE";S$(E).[....|
00000230: 22 11 20 45 49 4E 5A 45 4C 50 52 45 49 53 22 3B |". EINZELPREIS";|
00000240: 45 50 28 45 29 3A 85 22 11 20 53 54 55 45 43 4B |EP(E):.". STUECK|
00000250: 5A 41 48 4C 22 3B 53 5A 28 45 29 00 76 0A AA 00 |ZAHL";SZ(E).v...|
00000260: 85 22 11 20 41 52 54 49 4B 45 4C 2D 4E 52 2E 22 |.". ARTIKEL-NR."|
00000270: 3B 4E 52 28 45 29 00 85 0A B4 00 45 B2 45 AA 31 |;NR(E).....E.E.1|
00000280: 3A 89 31 33 30 00 8E 0A BE 00 99 22 93 22 00 BB |:.130......"."..|
00000290: 0A C8 00 99 22 41 52 54 49 4B 45 4C 20 20 20 20 |...."ARTIKEL |
000002A0: 20 20 20 20 20 20 20 20 20 20 48 2F 53 20 20 20 | H/S |
000002B0: 53 54 20 20 20 50 52 45 49 53 11 00 E2 0A D2 00 |ST PREIS......|
000002C0: 99 C8 28 41 24 28 42 5A 29 2C 32 30 29 3A 99 22 |..(A$(BZ),20):."|
000002D0: 91 22 A3 32 31 29 3B C8 28 53 24 28 42 5A 29 2C |.".21);.(S$(BZ),|
000002E0: 35 29 00 0D 0B DC 00 99 22 91 22 A3 32 37 29 3B |5)......".".27);|
000002F0: 53 5A 28 42 5A 29 3A 99 22 91 22 A3 33 30 29 3B |SZ(BZ):.".".30);|
00000300: 53 5A 28 42 5A 29 AC 45 50 28 42 5A 29 00 25 0B |SZ(BZ).EP(BZ).%.|
00000310: E6 00 42 5A B2 42 5A AA 31 3A 8B 42 5A B2 31 39 |..BZ.BZ.1:.BZ.19|
00000320: A7 8D 32 36 30 00 3F 0B F0 00 8B 42 5A B2 34 30 |..260.?....BZ.40|
00000330: A7 8D 32 36 30 3A 42 5A B2 30 3A 89 32 39 30 00 |..260:BZ.0:.290.|
00000340: 48 0B FA 00 89 32 31 30 00 59 0B 04 01 99 22 11 |H....210.Y....".|
00000350: 20 20 20 54 41 53 54 45 22 00 6C 0B 0E 01 A1 57 | TASTE".l....W|
00000360: 24 3A 8B 57 24 B2 22 22 A7 32 37 30 00 77 0B 18 |$:.W$."".270.w..|
00000370: 01 99 22 93 22 3A 8E 00 9C 0B 22 01 47 53 B2 30 |..".":....".GS.0|
00000380: 3A 81 47 B2 30 A4 34 30 3A 47 53 B2 47 53 AA 53 |:.G.0.40:GS.GS.S|
00000390: 5A 28 47 29 AC 45 50 28 47 29 3A 82 00 B8 0B 2C |Z(G).EP(G):....,|
000003A0: 01 47 57 B2 47 53 AB 28 B5 28 47 53 AC 35 30 30 |.GW.GS.(.(GS.500|
000003B0: 29 AD 31 30 30 30 30 29 00 D8 0B 36 01 99 22 93 |).10000)...6..".|
000003C0: 11 20 47 45 53 41 4D 54 42 45 53 54 45 4C 4C 57 |. GESAMTBESTELLW|
000003D0: 45 52 54 20 22 3B 47 53 00 F7 0B 40 01 99 22 11 |ERT ";GS...@..".|
000003E0: 20 41 42 5A 55 45 47 4C 49 43 48 20 52 41 42 41 | ABZUEGLICH RABA|
000003F0: 54 54 20 22 3B 47 57 00 1F 0C 4A 01 99 22 11 11 |TT ";GW...J.."..|
00000400: 11 20 20 20 42 45 53 54 45 4C 4C 55 4E 47 20 41 |. BESTELLUNG A|
00000410: 42 53 50 45 49 43 48 45 52 4E 20 2D 3E 20 53 00 |BSPEICHERN -> S.|
00000420: 45 0C 54 01 99 22 11 20 20 20 42 45 53 54 45 4C |E.T..". BESTEL|
00000430: 4C 55 4E 47 20 56 45 52 42 45 53 53 45 52 4E 20 |LUNG VERBESSERN |
00000440: 20 2D 3E 20 56 00 6B 0C 5E 01 99 22 11 20 20 20 | -> V.k.^..". |
00000450: 42 45 53 54 45 4C 4C 55 4E 47 20 57 49 45 44 45 |BESTELLUNG WIEDE|
00000460: 52 53 45 48 45 4E 20 2D 3E 20 57 00 91 0C 68 01 |RSEHEN -> W...h.|
00000470: 99 22 11 20 20 20 42 45 53 54 45 4C 4C 55 4E 47 |.". BESTELLUNG|
00000480: 20 46 4F 52 54 46 55 45 48 52 45 4E 20 2D 3E 20 | FORTFUEHREN -> |
00000490: 46 00 B7 0C 6D 01 99 22 11 20 20 20 42 45 53 54 |F...m..". BEST|
000004A0: 45 4C 4C 55 4E 47 20 41 55 53 44 52 55 43 4B 45 |ELLUNG AUSDRUCKE|
000004B0: 4E 20 20 2D 3E 20 44 00 DD 0C 72 01 99 22 11 20 |N -> D...r..". |
000004C0: 20 20 42 45 53 54 45 4C 4C 2D 4E 55 4D 4D 45 52 | BESTELL-NUMMER|
000004D0: 4E 20 53 45 48 45 4E 20 20 2D 3E 20 4E 00 03 0D |N SEHEN -> N...|
000004E0: 7C 01 99 22 11 20 20 20 44 41 53 20 50 52 4F 47 ||..". DAS PROG|
000004F0: 52 41 4D 4D 20 42 45 45 4E 44 45 4E 20 20 20 2D |RAMM BEENDEN -|
00000500: 3E 20 45 00 16 0D 86 01 A1 57 24 3A 8B 57 24 B2 |> E......W$:.W$.|
00000510: 22 22 A7 33 39 30 00 26 0D 90 01 8B 57 24 B2 22 |"".390.&....W$."|
00000520: 53 22 A7 34 37 30 00 36 0D 9A 01 8B 57 24 B2 22 |S".470.6....W$."|
00000530: 56 22 A7 35 39 30 00 46 0D A4 01 8B 57 24 B2 22 |V".590.F....W$."|
00000540: 57 22 A7 31 39 30 00 56 0D AE 01 8B 57 24 B2 22 |W".190.V....W$."|
00000550: 46 22 A7 36 37 30 00 67 0D B3 01 8B 57 24 B2 22 |F".670.g....W$."|
00000560: 44 22 A7 31 31 30 30 00 77 0D B8 01 8B 57 24 B2 |D".1100.w....W$.|
00000570: 22 4E 22 A7 36 39 30 00 8A 0D C2 01 8B 57 24 B2 |"N".690......W$.|
00000580: 22 45 22 A7 9E 36 34 37 33 38 00 93 0D CC 01 89 |"E"..64738......|
00000590: 33 39 30 00 C6 0D D6 01 99 22 13 11 11 11 11 11 |390......"......|
000005A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000005B0: 11 20 20 20 20 12 20 49 43 48 20 53 50 45 49 43 |. . ICH SPEIC|
000005C0: 48 45 52 45 20 92 00 E2 0D E0 01 9F 38 2C 38 2C |HERE .......8,8,|
000005D0: 38 2C 22 42 2C 53 2C 57 22 3A 9F 31 35 2C 38 2C |8,"B,S,W":.15,8,|
000005E0: 31 35 00 05 0E EA 01 98 38 2C 45 2C C7 28 31 33 |15......8,E,.(13|
000005F0: 29 3A A0 38 3A 84 31 35 2C 46 45 3A 8B 46 45 B2 |):.8:.15,FE:.FE.|
00000600: 30 A7 35 31 30 00 23 0E F4 01 8B 46 45 B2 36 33 |0.510.#....FE.63|
00000610: A7 98 31 35 2C 22 53 3A 42 22 3A A0 31 35 3A 89 |..15,"S:B":.15:.|
00000620: 34 37 30 00 3F 0E FE 01 9F 38 2C 38 2C 38 2C 22 |470.?....8,8,8,"|
00000630: 42 45 53 54 45 4C 4C 55 4E 47 2C 53 2C 57 22 00 |BESTELLUNG,S,W".|
00000640: 4A 0E 08 02 81 4C B2 30 A4 45 00 7B 0E 12 02 98 |J....L.0.E.{....|
00000650: 38 2C 41 24 28 4C 29 2C C7 28 31 33 29 2C 53 24 |8,A$(L),.(13),S$|
00000660: 28 4C 29 2C C7 28 31 33 29 2C 45 50 28 4C 29 2C |(L),.(13),EP(L),|
00000670: C7 28 31 33 29 2C 53 5A 28 4C 29 00 90 0E 1C 02 |.(13),SZ(L).....|
00000680: 98 38 2C 4E 52 28 4C 29 2C C7 28 31 33 29 3A 82 |.8,NR(L),.(13):.|
00000690: 00 A3 0E 26 02 98 38 2C 44 24 2C C7 28 31 33 29 |...&..8,D$,.(13)|
000006A0: 3A A0 38 00 B8 0E 30 02 84 31 35 2C 46 45 3A 8B |:.8...0..15,FE:.|
000006B0: 46 45 B2 30 A7 35 38 30 00 DF 0E 3A 02 8B 46 45 |FE.0.580...:..FE|
000006C0: B2 36 33 A7 98 31 35 2C 22 53 3A 42 45 53 54 45 |.63..15,"S:BESTE|
000006D0: 4C 4C 55 4E 47 22 3A A0 31 35 3A 89 34 37 30 00 |LLUNG":.15:.470.|
000006E0: EC 0E 44 02 A0 31 35 3A 89 33 31 30 00 FE 0E 4E |..D..15:.310...N|
000006F0: 02 81 56 B2 30 A4 45 3A 8D 36 31 30 3A 82 00 07 |..V.0.E:.610:...|
00000700: 0F 58 02 89 31 39 30 00 1C 0F 62 02 8B 41 24 28 |.X..190...b..A$(|
00000710: 56 29 B2 22 2A 22 A7 56 B2 45 3A 8E 00 3C 0F 6C |V)."*".V.E:..<.l|
00000720: 02 99 22 93 22 3A 99 22 20 20 22 41 24 28 56 29 |..".":." "A$(V)|
00000730: 3A 85 22 13 11 22 3B 41 24 28 56 29 00 5B 0F 76 |:."..";A$(V).[.v|
00000740: 02 99 3A 99 22 20 20 22 53 24 28 56 29 3A 85 22 |..:." "S$(V):."|
00000750: 13 11 11 11 22 3B 53 24 28 56 29 00 7B 0F 80 02 |....";S$(V).{...|
00000760: 99 3A 99 22 20 22 45 50 28 56 29 3A 85 22 13 11 |.:." "EP(V):."..|
00000770: 11 11 11 11 22 3B 45 50 28 56 29 00 9D 0F 8A 02 |....";EP(V).....|
00000780: 99 3A 99 22 20 22 53 5A 28 56 29 3A 85 22 13 11 |.:." "SZ(V):."..|
00000790: 11 11 11 11 11 11 22 3B 53 5A 28 56 29 00 C3 0F |......";SZ(V)...|
000007A0: 94 02 99 3A 99 22 20 22 4E 52 28 56 29 3A 85 22 |...:." "NR(V):."|
000007B0: 13 11 11 11 11 11 11 11 11 11 22 3B 4E 52 28 56 |..........";NR(V|
000007C0: 29 3A 8E 00 E9 0F 9E 02 81 45 52 B2 30 A4 34 30 |):.......ER.0.40|
000007D0: 3A 8B 41 24 28 45 52 29 B2 22 2A 22 A7 45 B2 45 |:.A$(ER)."*".E.E|
000007E0: 52 3A 45 52 B2 34 30 3A 82 00 F2 0F A8 02 89 31 |R:ER.40:.......1|
000007F0: 33 30 00 FB 0F B2 02 99 22 93 22 00 1F 10 B7 02 |30......".".....|
00000800: 81 4E B2 30 A4 39 3A 99 3A 99 41 24 28 4E 29 3A |.N.0.9:.:.A$(N):|
00000810: 99 22 91 22 A3 32 32 29 4E 52 28 4E 29 3A 82 00 |.".".22)NR(N):..|
00000820: 2E 10 B8 02 99 22 11 11 20 54 41 53 54 45 00 41 |.....".. TASTE.A|
00000830: 10 B9 02 A1 57 24 3A 8B 57 24 B2 22 22 A7 36 39 |....W$:.W$."".69|
00000840: 37 00 6D 10 BA 02 99 22 93 22 3B 3A 81 4E B2 31 |7.m....".";:.N.1|
00000850: 30 A4 32 30 3A 99 3A 99 41 24 28 4E 29 3A 99 22 |0.20:.:.A$(N):."|
00000860: 91 22 A3 32 32 29 4E 52 28 4E 29 3A 82 00 7B 10 |.".22)NR(N):..{.|
00000870: BC 02 99 22 11 20 54 41 53 54 45 00 8E 10 C6 02 |...". TASTE.....|
00000880: A1 57 24 3A 8B 57 24 B2 22 22 A7 37 31 30 00 B9 |.W$:.W$."".710..|
00000890: 10 D0 02 99 22 93 22 3A 81 4E B2 32 31 A4 33 30 |....".":.N.21.30|
000008A0: 3A 99 3A 99 41 24 28 4E 29 3A 99 22 91 22 A3 32 |:.:.A$(N):.".".2|
000008B0: 32 29 4E 52 28 4E 29 3A 82 00 C8 10 D1 02 99 22 |2)NR(N):......."|
000008C0: 11 11 20 54 41 53 54 45 00 DB 10 D2 02 A1 57 24 |.. TASTE......W$|
000008D0: 3A 8B 57 24 B2 22 22 A7 37 32 32 00 06 11 D5 02 |:.W$."".722.....|
000008E0: 99 22 93 22 3A 81 4E B2 33 31 A4 34 30 3A 99 3A |.".":.N.31.40:.:|
000008F0: 99 41 24 28 4E 29 3A 99 22 91 22 A3 32 32 29 4E |.A$(N):.".".22)N|
00000900: 52 28 4E 29 3A 82 00 15 11 DA 02 99 22 11 11 20 |R(N):.......".. |
00000910: 54 41 53 54 45 00 28 11 E4 02 A1 57 24 3A 8B 57 |TASTE.(....W$:.W|
00000920: 24 B2 22 22 A7 37 34 30 00 31 11 EE 02 89 33 31 |$."".740.1....31|
00000930: 30 00 6A 11 4C 04 99 22 13 11 11 11 11 11 11 11 |0.j.L.."........|
00000940: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |............... |
00000950: 20 20 20 12 20 42 49 54 54 45 20 57 41 52 54 45 | . BITTE WARTE|
00000960: 4E 20 92 22 3A 8D 32 30 30 30 00 9F 11 51 04 99 |N .":.2000...Q..|
00000970: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00000980: 11 11 11 11 11 11 11 11 20 20 20 20 12 20 49 43 |........ . IC|
00000990: 48 20 44 52 55 43 4B 45 20 92 20 20 20 20 22 00 |H DRUCKE . ".|
000009A0: AD 11 56 04 9F 34 2C 34 2C 34 3A 9D 34 00 C8 11 |..V..4,4,4:.4...|
000009B0: 60 04 99 22 20 42 45 53 54 45 4C 4C 55 4E 47 20 |`.." BESTELLUNG |
000009C0: 56 4F 4D 20 22 3B 44 24 00 D0 11 6A 04 99 3A 99 |VOM ";D$...j..:.|
000009D0: 00 10 12 74 04 99 22 20 41 52 54 49 4B 45 4C 22 |...t.." ARTIKEL"|
000009E0: A6 31 36 29 22 20 20 20 4E 52 20 20 20 20 20 20 |.16)" NR |
000009F0: 53 45 49 54 45 20 20 20 50 52 45 49 53 20 20 20 |SEITE PREIS |
00000A00: 41 4E 5A 41 48 4C 20 20 20 20 47 45 53 41 4D 54 |ANZAHL GESAMT|
00000A10: 00 5A 12 7E 04 99 22 20 3D 3D 3D 3D 3D 3D 3D 3D |.Z.~.." ========|
00000A20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A40: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A50: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 69 12 88 04 99 |==========.i....|
00000A60: 3A 81 44 B2 30 A4 45 AB 31 00 B0 12 8D 04 99 22 |:.D.0.E.1......"|
00000A70: 20 22 41 24 28 44 29 22 20 20 20 22 4E 52 28 44 | "A$(D)" "NR(D|
00000A80: 29 22 20 20 20 22 53 24 28 44 29 22 20 20 22 45 |)" "S$(D)" "E|
00000A90: 50 24 28 44 29 22 20 20 20 20 20 22 53 5A 24 28 |P$(D)" "SZ$(|
00000AA0: 44 29 22 20 20 20 20 20 20 22 47 44 24 28 44 29 |D)" "GD$(D)|
00000AB0: 00 FA 12 8E 04 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |......" --------|
00000AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000AD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 00 13 92 04 82 |----------......|
00000B00: 00 1F 13 A6 04 99 3A 99 22 20 47 45 53 41 4D 54 |......:." GESAMT|
00000B10: 42 45 53 54 45 4C 4C 57 45 52 54 20 22 47 53 00 |BESTELLWERT "GS.|
00000B20: 3E 13 AB 04 99 3A 99 22 20 50 52 45 49 53 20 4E |>....:." PREIS N|
00000B30: 41 43 48 20 52 41 42 41 54 54 20 22 47 57 00 48 |ACH RABATT "GW.H|
00000B40: 13 B0 04 98 34 3A A0 34 00 51 13 BA 04 89 33 31 |....4:.4.Q....31|
00000B50: 30 00 82 13 D0 07 81 44 B2 30 A4 45 3A 81 44 44 |0......D.0.E:.DD|
00000B60: B2 31 A4 32 30 3A 8B C3 28 41 24 28 44 29 29 B3 |.1.20:..(A$(D)).|
00000B70: 32 30 A7 41 24 28 44 29 B2 41 24 28 44 29 AA 22 |20.A$(D).A$(D)."|
00000B80: 20 22 00 8A 13 D5 07 82 3A 82 00 BA 13 DA 07 81 | "......:.......|
00000B90: 44 B2 30 A4 45 3A 4E 52 24 28 44 29 B2 C4 28 4E |D.0.E:NR$(D)..(N|
00000BA0: 52 28 44 29 29 3A 4E 52 24 28 44 29 B2 CA 28 4E |R(D)):NR$(D)..(N|
00000BB0: 52 24 28 44 29 2C 32 29 3A 82 00 E9 13 E4 07 81 |R$(D),2):.......|
00000BC0: 44 B2 30 A4 45 3A 81 44 44 B2 31 A4 35 3A 8B C3 |D.0.E:.DD.1.5:..|
00000BD0: 28 53 24 28 44 29 29 B3 35 A7 53 24 28 44 29 B2 |(S$(D)).5.S$(D).|
00000BE0: 53 24 28 44 29 AA 22 20 22 00 F1 13 E9 07 82 3A |S$(D)." "......:|
00000BF0: 82 00 17 14 EE 07 81 44 B2 30 A4 45 3A 45 50 24 |.......D.0.E:EP$|
00000C00: 28 44 29 B2 C4 28 45 50 28 44 29 29 3A 50 50 24 |(D)..(EP(D)):PP$|
00000C10: B2 45 50 24 28 44 29 00 2C 14 F3 07 8D 33 30 30 |.EP$(D).,....300|
00000C20: 30 3A 45 50 24 28 44 29 B2 50 50 24 00 32 14 F6 |0:EP$(D).PP$.2..|
00000C30: 07 82 00 54 14 F8 07 81 44 B2 30 A4 45 3A 53 5A |...T....D.0.E:SZ|
00000C40: 24 28 44 29 B2 CA 28 C4 28 53 5A 28 44 29 29 2C |$(D)..(.(SZ(D)),|
00000C50: 32 29 3A 82 00 8C 14 02 08 81 44 B2 30 A4 45 3A |2):.......D.0.E:|
00000C60: 47 44 28 44 29 B2 53 5A 28 44 29 AC 45 50 28 44 |GD(D).SZ(D).EP(D|
00000C70: 29 3A 47 44 24 28 44 29 B2 C4 28 47 44 28 44 29 |):GD$(D)..(GD(D)|
00000C80: 29 3A 50 50 24 B2 47 44 24 28 44 29 00 A7 14 07 |):PP$.GD$(D)....|
00000C90: 08 8D 33 30 30 30 3A 47 44 24 28 44 29 B2 22 20 |..3000:GD$(D)." |
00000CA0: 22 AA 50 50 24 3A 82 00 AD 14 0C 08 8E 00 BB 14 |".PP$:..........|
00000CB0: B8 0B 4C 45 B2 C3 28 50 50 24 29 00 D4 14 B9 0B |..LE..(PP$).....|
00000CC0: 8B 4C 45 B3 31 A7 50 50 24 B2 22 20 20 30 2E 30 |.LE.1.PP$." 0.0|
00000CD0: 30 22 3A 8E 00 F0 14 BA 0B 8B 4C 45 B3 33 A7 50 |0":.......LE.3.P|
00000CE0: 50 24 B2 22 20 22 AA 50 50 24 3A 89 33 30 30 30 |P$." ".PP$:.3000|
00000CF0: 00 1F 15 C2 0B 4C 45 B2 4C 45 AB 31 3A 8B CA 28 |.....LE.LE.1:..(|
00000D00: 50 50 24 2C 4C 45 2C 31 29 B2 22 2E 22 A7 50 50 |PP$,LE,1).".".PP|
00000D10: 24 B2 50 50 24 AA 22 30 22 3A 89 33 30 33 30 00 |$.PP$."0":.3030.|
00000D20: 4A 15 CC 0B 4C 45 B2 4C 45 AB 31 3A 8B CA 28 50 |J...LE.LE.1:..(P|
00000D30: 50 24 2C 4C 45 2C 31 29 B2 22 2E 22 A7 50 50 24 |P$,LE,1).".".PP$|
00000D40: B2 50 50 24 3A 89 33 30 33 30 00 5C 15 D1 0B 50 |.PP$:.3030.\...P|
00000D50: 50 24 B2 50 50 24 AA 22 2E 30 30 22 00 7C 15 D6 |P$.PP$.".00".|..|
00000D60: 0B 8B C3 28 50 50 24 29 B3 36 A7 50 50 24 B2 22 |...(PP$).6.PP$."|
00000D70: 20 22 AA 50 50 24 3A 89 33 30 33 30 00 82 15 DB | ".PP$:.3030....|
00000D80: 0B 8E 00 00 00 |..... |
..#....".. BITTE DATUM EINGEBEN";D$.R...
.A$(40),S$(40),EP(40),SZ(40),NR(40),NR$(
40),EP$(40),SZ$(40),GD(40),GD$(40)......
15,8,15:.8,8,8,"B,S,R":.15,FE:.FE..0. 8:
15:.120...(..8,E: 8.P.2..8,8,8,"BESTELL
UNG,S,R"...<..L.0.E:.8,A$(L),S$(L),EP(L)
,SZ(L),NR(L):.:.8,D1$: 8.8.F..K.0.E:A$(K
).H(A$(K),20):S$(K).H(S$(K),5):..M.P..15
,FE:.FE.0. 15.L.Z..FE..0.."DISKFEHLER":
15:....D..".. LETZTER EINTRAG VOM "D1$..
.N..W.0.2500:.:.130...X.."..... . NOCH
KEINE BESTELLUNG VORHANDEN .":.W.0.2000
:.......".. ARTIKEL";A$(E)......A$(E)."*
".190.*....". HEFTART/SEITE";S$(E).[. ..
". EINZELPREIS";EP(E):.". STUECKZAHL";SZ
(E).V....". ARTIKEL-NR.";NR(E).....E.E.1
:.130......"."...H.."ARTIKEL
H/S ST PREIS....R..H(A$(BZ),20):."
.".21);H(S$(BZ),5)......".".27);SZ(BZ):.
".".30);SZ(BZ).EP(BZ).%...BZ.BZ.1:.BZ.19
..260.?....BZ.40..260:BZ.0:.290.H....210
.Y....". TASTE".L....W$:.W$."".270.W..
..".":....".GS.0:.G.0.40:GS.GS.SZ(G).EP(
G):....,.GW.GS.(.(GS.500).10000).X.6..".
. GESAMTBESTELLWERT ";GS...@..". ABZUEGL
ICH RABATT ";GW...J.."... BESTELLUNG A
BSPEICHERN -> S.E.T..". BESTELLUNG VER
BESSERN -> V.K.^..". BESTELLUNG WIEDE
RSEHEN -> W...H..". BESTELLUNG FORTFUE
HREN -> F...M..". BESTELLUNG AUSDRUCKE
N -> D...R..". BESTELL-NUMMERN SEHEN
-> N...|..". DAS PROGRAMM BEENDEN -
> E......W$:.W$."".390.&....W$."S".470.6
....W$."V".590.F....W$."W".190.V....W$."
F".670.G....W$."D".1100.W....W$."N".690.
..B..W$."E"..64738...L..390.F.V.."......
................. . ICH SPEICHERE ...
....8,8,8,"B,S,W":.15,8,15......8,E,G(13
): 8:.15,FE:.FE.0.510.#....FE.63..15,"S:
B": 15:.470.?....8,8,8,"BESTELLUNG,S,W".
J....L.0.E.{....8,A$(L),G(13),S$(L),G(13
),EP(L),G(13),SZ(L)......8,NR(L),G(13):.
...&..8,D$,G(13): 8...0..15,FE:.FE.0.580
...:..FE.63..15,"S:BESTELLUNG": 15:.470.
..D. 15:.310...N..V.0.E:.610:....X..190.
..B..A$(V)."*".V.E:..<.L..".":." "A$(V)
:."..";A$(V).[.V..:." "S$(V):."....";S$
(V).{....:." "EP(V):."......";EP(V).....
.:." "SZ(V):."........";SZ(V).C....:." "
NR(V):."..........";NR(V):.......ER.0.40
:.A$(ER)."*".E.ER:ER.40:.......130......
"."......N.0.9:.:.A$(N):.".".22)NR(N):..
.....".. TASTE.A....W$:.W$."".697.M...."
.";:.N.10.20:.:.A$(N):.".".22)NR(N):..{.
...". TASTE...F..W$:.W$."".710...P..".":
.N.21.30:.:.A$(N):.".".22)NR(N):..H.Q.."
.. TASTE...R..W$:.W$."".722...U..".":.N.
31.40:.:.A$(N):.".".22)NR(N):....Z.."..
TASTE.(....W$:.W$."".740.1....310.J.L.."
....................... . BITTE WARTE
N .":.2000...Q..".......................
. ICH DRUCKE . "...V..4,4,4:.4.H.
`.." BESTELLUNG VOM ";D$.P.J..:....T.."
ARTIKEL".16)" NR SEITE PREIS
ANZAHL GESAMT.Z.~.." ================
========================================
==========.I....:.D.0.E.1......" "A$(D)"
"NR(D)" "S$(D)" "EP$(D)" "SZ$(
D)" "GD$(D)......" ----------------
----------------------------------------
----------............:." GESAMTBESTELLW
ERT "GS.>....:." PREIS NACH RABATT "GW.H
....4: 4.Q....310...P..D.0.E:.DD.1.20:.C
(A$(D)).20.A$(D).A$(D)." "...U..:....Z..
D.0.E:NR$(D).D(NR(D)):NR$(D).J(NR$(D),2)
:.......D.0.E:.DD.1.5:.C(S$(D)).5.S$(D).
S$(D)." "......:.......D.0.E:EP$(D).D(EP
(D)):PP$.EP$(D).,....3000:EP$(D).PP$.2..
...T....D.0.E:SZ$(D).J(D(SZ(D)),2):.....
..D.0.E:GD(D).SZ(D).EP(D):GD$(D).D(GD(D)
):PP$.GD$(D)......3000:GD$(D)." ".PP$:..
..........LE.C(PP$).T....LE.1.PP$." 0.0
0":.......LE.3.PP$." ".PP$:.3000...B.LE.
LE.1:.J(PP$,LE,1).".".PP$.PP$."0":.3030.
J.L.LE.LE.1:.J(PP$,LE,1).".".PP$.PP$:.30
30.\.Q.PP$.PP$.".00".|.V..C(PP$).6.PP$."
".PP$:.3030.........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL