> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 0A 00 8F 20 2A 2A 20 41 52 54 49 4B |..'.... ** ARTIK|
00000010: 45 4C 41 42 53 50 45 49 43 48 45 52 55 4E 47 20 |ELABSPEICHERUNG |
00000020: 20 20 20 20 20 2A 2A 00 4D 08 46 00 8F 20 2A 2A | **.M.F.. **|
00000030: 20 31 32 2E 35 2E 38 33 20 20 20 20 20 20 20 20 | 12.5.83 |
00000040: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 00 63 08 | **.c.|
00000050: 4B 00 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 |K..53281,0:.5328|
00000060: 30 2C 30 00 6D 08 50 00 99 22 1E 93 22 00 86 08 |0,0.m.P..".."...|
00000070: 5A 00 97 35 39 34 39 30 2C 32 35 35 3A 97 35 39 |Z..59490,255:.59|
00000080: 34 30 39 2C 35 33 00 AB 08 64 00 81 54 B2 33 32 |409,53...d..T.32|
00000090: 37 36 38 A4 33 32 38 30 37 3A 97 54 2C 33 35 3A |768.32807:.T,35:|
000000A0: 97 54 AA 39 36 30 2C 33 35 3A 82 00 D2 08 78 00 |.T.960,35:....x.|
000000B0: 81 54 B2 33 32 38 30 38 A4 33 33 37 32 38 A9 34 |.T.32808.33728.4|
000000C0: 30 3A 97 54 2C 33 35 3A 97 54 AA 33 39 2C 33 35 |0:.T,35:.T.39,35|
000000D0: 3A 82 00 F7 08 82 00 99 A3 31 30 29 22 11 11 11 |:........10)"...|
000000E0: 11 11 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
000000F0: 20 20 20 20 20 20 22 00 17 09 96 00 99 A3 31 30 | ".......10|
00000100: 29 22 12 20 41 52 54 49 4B 45 4C 56 45 52 57 41 |)". ARTIKELVERWA|
00000110: 4C 54 55 4E 47 20 22 00 37 09 A0 00 99 A3 31 30 |LTUNG ".7.....10|
00000120: 29 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |)". |
00000130: 20 20 20 20 20 20 22 00 66 09 AA 00 99 22 11 11 | ".f...."..|
00000140: 11 11 11 11 11 1D 20 20 20 20 50 52 4F 47 52 41 |...... PROGRA|
00000150: 4D 4D 49 45 52 54 20 56 4F 4E 20 52 2E 20 53 54 |MMIERT VON R. ST|
00000160: 52 41 55 53 53 22 00 9E 09 B4 00 97 35 39 34 30 |RAUSS"......5940|
00000170: 39 2C 36 30 3A 99 22 11 11 11 20 20 20 20 20 44 |9,60:."... D|
00000180: 52 55 45 43 4B 45 4E 20 53 49 45 20 42 49 54 54 |RUECKEN SIE BITT|
00000190: 45 20 45 49 4E 45 20 54 41 53 54 45 2E 22 00 B1 |E EINE TASTE."..|
000001A0: 09 BE 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 31 39 |....X$:.X$."".19|
000001B0: 30 00 BE 09 2C 01 86 41 24 28 32 35 35 29 00 D8 |0...,..A$(255)..|
000001C0: 09 36 01 81 54 B2 31 A4 33 39 3A 55 4C 24 B2 55 |.6..T.1.39:UL$.U|
000001D0: 4C 24 AA 22 C3 22 3A 82 00 F0 09 40 01 81 54 B2 |L$.".":....@..T.|
000001E0: 31 A4 33 36 3A 53 24 B2 53 24 AA 22 20 22 3A 82 |1.36:S$.S$." ":.|
000001F0: 00 09 0A 4A 01 8F 20 2A 2A 20 41 24 20 3D 20 44 |...J.. ** A$ = D|
00000200: 41 54 45 4E 20 20 20 2A 2A 00 22 0A 54 01 8F 20 |ATEN **.".T.. |
00000210: 2A 2A 20 5A 20 20 3D 20 5A 41 45 48 4C 45 52 20 |** Z = ZAEHLER |
00000220: 2A 2A 00 2B 0A 5E 01 9F 33 2C 33 00 39 0A 90 01 |**.+.^..3,3.9...|
00000230: 97 35 39 34 30 39 2C 35 33 00 5D 0A 9A 01 99 22 |.59409,53.]...."|
00000240: 93 22 3A 99 A3 31 33 29 22 12 20 4D 20 45 20 4E |.":..13)". M E N|
00000250: 20 55 92 20 20 20 20 20 20 22 44 54 24 00 66 0A | U. "DT$.f.|
00000260: A4 01 99 55 4C 24 00 84 0A AE 01 99 22 11 11 20 |...UL$......".. |
00000270: 31 20 2D 2D 20 41 52 54 49 4B 45 4C 45 49 4E 47 |1 -- ARTIKELEING|
00000280: 41 42 45 22 00 AF 0A C2 01 99 22 11 20 32 20 2D |ABE"......". 2 -|
00000290: 2D 20 41 52 54 49 4B 45 4C 41 55 53 47 41 42 45 |- ARTIKELAUSGABE|
000002A0: 20 2F 20 41 45 4E 44 45 52 55 4E 47 45 4E 22 00 | / AENDERUNGEN".|
000002B0: D0 0A D6 01 99 22 11 20 33 20 2D 2D 20 41 42 53 |.....". 3 -- ABS|
000002C0: 41 56 45 4E 20 44 45 52 20 44 41 54 45 4E 20 22 |AVEN DER DATEN "|
000002D0: 00 F1 0A EA 01 99 22 11 20 34 20 2D 2D 20 45 49 |......". 4 -- EI|
000002E0: 4E 4C 45 53 45 4E 20 44 45 52 20 44 41 54 45 4E |NLESEN DER DATEN|
000002F0: 22 00 0A 0B F4 01 99 22 11 20 35 20 2D 2D 20 41 |"......". 5 -- A|
00000300: 55 53 44 52 55 43 4B 45 4E 22 00 32 0B F9 01 99 |USDRUCKEN".2....|
00000310: 22 11 20 36 20 2D 2D 20 44 41 54 55 4D 20 45 49 |". 6 -- DATUM EI|
00000320: 4E 47 45 42 45 4E 20 2F 20 57 45 43 48 53 45 4C |NGEBEN / WECHSEL|
00000330: 4E 22 00 5D 0B FB 01 99 22 11 20 37 20 2D 2D 20 |N".]....". 7 -- |
00000340: 41 4E 5A 45 49 47 45 20 46 52 45 49 45 52 20 53 |ANZEIGE FREIER S|
00000350: 50 45 49 43 48 45 52 50 4C 41 54 5A 22 00 72 0B |PEICHERPLATZ".r.|
00000360: FE 01 99 22 11 11 20 4F 50 54 49 4F 4E 20 3A 20 |...".. OPTION : |
00000370: 22 3B 00 87 0B 12 02 97 35 39 34 30 39 2C 36 30 |";......59409,60|
00000380: 3A 97 35 34 38 2C 30 00 9A 0B 26 02 A1 58 24 3A |:.548,0...&..X$:|
00000390: 8B 58 24 B2 22 22 A7 35 35 30 00 A6 0B 8A 02 58 |.X$."".550.....X|
000003A0: B2 C5 28 58 24 29 00 B3 0B 94 02 8B 58 B3 31 A7 |..(X$)......X.1.|
000003B0: 35 35 30 00 C0 0B 9E 02 8B 58 B1 37 A7 35 35 30 |550......X.7.550|
000003C0: 00 D0 0B A8 02 99 22 93 22 3A 97 35 34 38 2C 31 |......".":.548,1|
000003D0: 00 F9 0B B2 02 91 58 89 38 30 30 2C 31 37 30 30 |......X.800,1700|
000003E0: 2C 35 30 30 30 2C 39 30 30 30 2C 37 30 30 30 2C |,5000,9000,7000,|
000003F0: 36 30 30 30 2C 38 30 30 30 00 0B 0C BC 02 8B 41 |6000,8000......A|
00000400: 24 B2 22 2E 22 A7 41 24 B2 22 22 00 25 0C C1 02 |$.".".A$."".%...|
00000410: 8B 41 24 B2 22 40 22 A7 41 24 28 5A 29 B2 22 22 |.A$."@".A$(Z).""|
00000420: 3A 89 37 35 30 00 41 0C C6 02 41 24 28 5A 29 B2 |:.750.A...A$(Z).|
00000430: 41 24 28 5A 29 AA C8 28 41 24 AA 53 24 2C 32 30 |A$(Z)..(A$.S$,20|
00000440: 29 00 47 0C D0 02 99 00 51 0C DA 02 41 24 B2 22 |).G.....Q...A$."|
00000450: 22 00 57 0C E4 02 8E 00 7B 0C EE 02 8B 46 32 B2 |".W.....{....F2.|
00000460: 31 A7 41 24 28 5A 29 B2 22 46 52 45 49 45 53 20 |1.A$(Z)."FREIES |
00000470: 46 49 4C 45 22 3A 89 32 38 35 30 00 84 0C F8 02 |FILE":.2850.....|
00000480: 89 34 30 30 00 A0 0C 20 03 8F 20 2A 2A 20 45 49 |.400... .. ** EI|
00000490: 4E 47 41 42 45 20 41 52 54 49 4B 45 4C 20 2A 2A |NGABE ARTIKEL **|
000004A0: 00 AD 0C 2A 03 41 24 28 5A 29 B2 22 22 00 BB 0C |...*.A$(Z).""...|
000004B0: 48 03 97 35 39 34 30 39 2C 35 33 00 C4 0C B6 03 |H..59409,53.....|
000004C0: 99 22 93 22 00 DE 0C C0 03 99 A3 31 32 29 22 41 |.".".......12)"A|
000004D0: 52 54 49 4B 45 4C 45 49 4E 47 41 42 45 22 00 E7 |RTIKELEINGABE"..|
000004E0: 0C CA 03 99 55 4C 24 00 04 0D E8 03 99 22 20 12 |....UL$......" .|
000004F0: 40 92 20 5A 55 52 55 45 43 4B 20 5A 55 4D 20 4D |@. ZURUECK ZUM M|
00000500: 45 4E 55 22 00 15 0D 38 04 97 35 39 34 30 39 2C |ENU"...8..59409,|
00000510: 36 30 3A 9D 33 00 35 0D 42 04 85 22 13 11 11 11 |60:.3.5.B.."....|
00000520: 11 11 20 41 52 54 2E 20 42 45 5A 2E 20 3A 20 2E |.. ART. BEZ. : .|
00000530: 9D 22 3B 41 24 00 3E 0D 4C 04 8D 37 30 30 00 59 |.";A$.>.L..700.Y|
00000540: 0D 56 04 85 22 11 20 49 4E 54 2E 20 4E 52 2E 20 |.V..". INT. NR. |
00000550: 20 3A 20 2E 9D 22 3B 41 24 00 62 0D 60 04 8D 37 | : ..";A$.b.`..7|
00000560: 30 30 00 7D 0D 6A 04 85 22 11 20 4C 49 45 46 2E |00.}.j..". LIEF.|
00000570: 20 4E 52 2E 20 3A 20 2E 9D 22 3B 41 24 00 86 0D | NR. : ..";A$...|
00000580: 74 04 8D 37 30 30 00 A1 0D 7E 04 85 22 11 20 50 |t..700...~..". P|
00000590: 52 45 49 53 20 20 20 20 20 3A 20 2E 9D 22 3B 41 |REIS : ..";A|
000005A0: 24 00 AA 0D 88 04 8D 37 30 30 00 C5 0D 9C 04 85 |$......700......|
000005B0: 22 11 20 4C 41 47 45 52 20 20 20 20 20 3A 20 2E |". LAGER : .|
000005C0: 9D 22 3B 41 24 00 CE 0D A6 04 8D 37 30 30 00 E9 |.";A$......700..|
000005D0: 0D BA 04 85 22 11 20 53 45 52 2E 20 4E 52 2E 20 |....". SER. NR. |
000005E0: 20 3A 20 2E 9D 22 3B 41 24 00 F2 0D C4 04 8D 37 | : ..";A$......7|
000005F0: 30 30 00 0D 0E D8 04 85 22 11 20 4B 41 55 45 46 |00......". KAUEF|
00000600: 45 52 20 20 20 3A 20 2E 9D 22 3B 41 24 00 16 0E |ER : ..";A$...|
00000610: E2 04 8D 37 30 30 00 38 0E 14 05 99 22 11 11 20 |...700.8....".. |
00000620: 45 49 4E 47 41 42 45 4E 20 4F 4B 20 3F 20 28 4A |EINGABEN OK ? (J|
00000630: 2F 4E 29 20 3A 20 22 3B 00 43 0E 1E 05 97 35 34 |/N) : ";.C....54|
00000640: 38 2C 30 00 57 0E 28 05 A1 58 24 3A 8B 58 24 B2 |8,0.W.(..X$:.X$.|
00000650: 22 22 A7 31 33 32 30 00 62 0E 32 05 97 35 34 38 |"".1320.b.2..548|
00000660: 2C 31 00 72 0E 3C 05 8B 58 24 B2 22 4E 22 A7 38 |,1.r.<..X$."N".8|
00000670: 30 30 00 84 0E 46 05 8B 58 24 B3 B1 22 4A 22 A7 |00...F..X$.."J".|
00000680: 31 33 31 30 00 93 0E 4B 05 8B 46 32 B2 31 A7 32 |1310...K..F2.1.2|
00000690: 38 35 30 00 A2 0E 50 05 5A B2 5A AA 31 3A 89 38 |850...P.Z.Z.1:.8|
000006A0: 30 30 00 BE 0E A4 06 8F 20 2A 2A 20 41 52 54 49 |00...... ** ARTI|
000006B0: 4B 45 4C 20 41 55 53 47 41 42 45 20 2A 2A 00 CC |KEL AUSGABE **..|
000006C0: 0E CC 06 97 35 39 34 30 39 2C 35 33 00 D5 0E D6 |....59409,53....|
000006D0: 06 99 22 93 22 00 FE 0E E0 06 99 22 20 20 20 20 |.."."......" |
000006E0: 20 41 52 54 49 4B 45 4C 41 55 53 47 41 42 45 20 | ARTIKELAUSGABE |
000006F0: 2F C7 FF |/.. |
..'.... ** ARTIKELABSPEICHERUNG **.
M.F.. ** 12.5.83 **.C.
K..53281,0:.53280,0.M.P..".."...Z..59490
,255:.59409,53...D..T.32768.32807:.T,35:
.T.960,35:..R.X..T.32808.33728.40:.T,35:
.T.39,35:........10)"......
".......10)". ARTIKELVERWALTUNG ".
7. ...10)". ".F...."..
...... PROGRAMMIERT VON R. STRAUSS"..
....59409,60:."... DRUECKEN SIE BITT
E EINE TASTE."......X$:.X$."".190...,..A
$(255).X.6..T.1.39:UL$.UL$."C":....@..T.
1.36:S$.S$." ":....J.. ** A$ = DATEN *
*.".T.. ** Z = ZAEHLER **.+.^..3,3.9...
.59409,53.]....".":..13)". M E N U.
"DT$.F....UL$......".. 1 -- ARTIKELEING
ABE"...B..". 2 -- ARTIKELAUSGABE / AENDE
RUNGEN".P.V..". 3 -- ABSAVEN DER DATEN "
......". 4 -- EINLESEN DER DATEN"......"
. 5 -- AUSDRUCKEN".2....". 6 -- DATUM EI
NGEBEN / WECHSELN".]....". 7 -- ANZEIGE
FREIER SPEICHERPLATZ".R....".. OPTION :
";......59409,60:.548,0...&..X$:.X$."".5
50.....X.E(X$)......X.1.550......X.7.550
.P....".":.548,1......X.800,1700,5000,90
00,7000,6000,8000......A$.".".A$."".%.A.
.A$."@".A$(Z)."":.750.A.F.A$(Z).A$(Z).H(
A$.S$,20).G.P...Q.Z.A$."".W.....{....F2.
1.A$(Z)."FREIES FILE":.2850......400. .
.. ** EINGABE ARTIKEL **...*.A$(Z).""...
H..59409,53.D....".".......12)"ARTIKELEI
NGABE"...J..UL$......" .@. ZURUECK ZUM M
ENU"...8..59409,60:.3.5.B.."...... ART.
BEZ. : ..";A$.>.L..700.Y.V..". INT. NR.
: ..";A$.B.`..700.}.J..". LIEF. NR. : .
.";A$...T..700...~..". PREIS : ..";A
$......700.E....". LAGER : ..";A$.N.
...700......". SER. NR. : ..";A$...D..7
00...X..". KAUEFER : ..";A$......700.8
....".. EINGABEN OK ? (J/N) : ";.C....54
8,0.W.(..X$:.X$."".1320.B.2..548,1.R.<..
X$."N".800...F..X$.."J".1310...K..F2.1.2
850...P.Z.Z.1:.800...... ** ARTIKEL AUSG
ABE **.L.L..59409,53.U.V.."."......"
ARTIKELAUSGABE /G.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL