LAGERPROGRAMM
FILE INFORMATION
FILENAME(S): LAGERPROGRAMM
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-12-01 00:57:24
APPEARS ON: 1 disk(s)
FILE HASH
a87a5ee60025aeedb88bc412d5a68170905b6f1efc2c7e94d8c113aba88c27ad
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEXT DATEN PROG | LAGERPROGRAMM | PRG | hedning, Austria | 7 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 05 00 9C 00 24 08 08 00 4F 24 B2 C7 |........$...O$..| 00000010: 28 31 33 29 3A 4C 5A B2 31 30 3A 4F 31 24 B2 C7 |(13):LZ.10:O1$..| 00000020: 28 33 34 29 00 57 08 0A 00 41 32 B2 35 31 30 3A |(34).W...A2.510:| 00000030: 97 35 39 34 36 38 2C 31 34 3A 97 35 33 32 38 30 |.59468,14:.53280| 00000040: 2C 30 3A 97 35 33 32 38 31 2C 30 3A 99 C7 28 31 |,0:.53281,0:..(1| 00000050: 34 29 3A 99 22 05 22 00 92 08 0F 00 86 53 28 35 |4):."."......S(5| 00000060: 31 31 29 2C 58 24 28 34 35 29 2C 50 24 28 35 31 |11),X$(45),P$(51| 00000070: 31 29 2C 48 28 35 31 31 29 2C 4D 25 28 35 31 31 |1),H(511),M%(511| 00000080: 29 2C 41 4E 24 28 35 31 32 29 2C 41 24 28 35 31 |),AN$(512),A$(51| 00000090: 31 29 00 D4 08 11 00 4E 24 B2 22 28 43 29 20 C8 |1).....N$."(C) .| 000000A0: C1 CE D3 C9 CE C7 20 20 20 20 22 3A 8F 22 14 14 |...... ":."..| 000000B0: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................| 000000C0: 14 14 14 14 14 14 14 14 14 14 32 30 52 45 4D 43 |..........20REMC| 000000D0: 52 3D 43 42 00 16 09 13 00 47 24 B2 22 20 20 D3 |R=CB.....G$." .| 000000E0: CF C6 D4 D7 C1 D2 C5 20 20 20 20 20 22 3A 8F 22 |....... ":."| 000000F0: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................| 00000100: 14 14 14 14 14 14 14 14 14 14 14 14 33 30 52 45 |............30RE| 00000110: 4D 43 52 3D 43 42 00 5C 09 17 00 99 22 93 12 22 |MCR=CB.\....".."| 00000120: 4E 24 47 24 3A 81 49 B2 31 A4 39 30 30 3A 8F 22 |N$G$:.I.1.900:."| 00000130: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................| 00000140: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................| 00000150: 14 34 30 20 52 45 4D 43 52 3D 43 42 00 9E 09 1B |.40 REMCR=CB....| 00000160: 00 99 22 13 11 11 11 CC 41 47 45 52 20 C9 22 3A |..".....AGER .":| 00000170: 82 3A 8F 22 14 14 14 14 14 14 14 14 14 14 14 14 |.:."............| 00000180: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................| 00000190: 14 14 14 35 30 20 52 45 4D 43 52 3D 43 42 00 A9 |...50 REMCR=CB..| 000001A0: 09 64 00 43 52 B2 39 30 31 00 D2 09 C8 00 99 22 |.d.CR.901......"| 000001B0: 93 C4 41 54 45 4E 20 C4 49 53 4B 20 4F 4B 20 20 |..ATEN .ISK OK | 000001C0: 3F 20 20 44 41 4E 4E 20 C5 20 44 52 55 45 43 4B |? DANN . DRUECK| 000001D0: 45 4E 00 E5 09 DC 00 A1 45 24 3A 8B 45 24 B2 22 |EN......E$:.E$."| 000001E0: 22 A7 32 32 30 00 01 0A 2C 01 9F 31 2C 38 2C 30 |".220...,..1,8,0| 000001F0: 2C 22 44 41 54 45 49 2C 53 2C 52 22 3A 41 31 B2 |,"DATEI,S,R":A1.| 00000200: 30 00 0D 0A 31 01 41 31 B2 41 31 AA 31 00 1C 0A |0...1.A1.A1.1...| 00000210: 36 01 84 31 2C 41 4E 24 28 41 31 29 00 36 0A 3B |6..1,AN$(A1).6.;| 00000220: 01 8B 41 4E 24 28 41 31 29 B2 22 40 20 20 20 20 |..AN$(A1)."@ | 00000230: 20 22 A7 33 38 30 00 44 0A 4A 01 84 31 2C 50 24 | ".380.D.J..1,P$| 00000240: 28 41 31 29 00 52 0A 4F 01 84 31 2C 41 24 28 41 |(A1).R.O..1,A$(A| 00000250: 31 29 00 68 0A 54 01 84 31 2C 48 24 3A 48 28 41 |1).h.T..1,H$:H(A| 00000260: 31 29 B2 C5 28 48 24 29 00 7F 0A 5E 01 84 31 2C |1)..(H$)...^..1,| 00000270: 4D 24 3A 4D 25 28 41 31 29 B2 C5 28 4D 24 29 00 |M$:M%(A1)..(M$).| 00000280: 95 0A 68 01 84 31 2C 53 24 3A 53 28 41 31 29 B2 |..h..1,S$:S(A1).| 00000290: C5 28 53 24 29 00 9E 0A 72 01 89 33 30 35 00 B3 |.(S$)...r..305..| 000002A0: 0A 7C 01 84 31 2C 47 55 24 3A 47 55 B2 C5 28 47 |.|..1,GU$:GU..(G| 000002B0: 55 24 29 00 BA 0A 90 01 A0 31 00 EA 0A E8 03 99 |U$)......1......| 000002C0: 22 93 11 C7 45 57 55 45 4E 53 43 48 54 45 20 C1 |"...EWUENSCHTE .| 000002D0: 52 54 2E 20 CE 52 2E 20 4F 44 45 52 20 C1 52 54 |RT. .R. ODER .RT| 000002E0: 2E 20 45 49 4E 47 45 42 45 4E 00 FB 0A ED 03 53 |. EINGEBEN.....S| 000002F0: 54 24 B2 22 13 11 11 11 11 11 22 00 11 0B F2 03 |T$."......".....| 00000300: 99 53 54 24 22 91 91 C1 52 54 2E 4F 2E CE 52 2E |.ST$"...RT.O..R.| 00000310: 22 00 27 0B FC 03 8D 37 30 30 30 3A 8B 58 24 B2 |".'....7000:.X$.| 00000320: 4F 24 A7 31 30 30 30 00 2D 0B 06 04 8F 00 5D 0B |O$.1000.-.....].| 00000330: 26 04 8B C8 28 58 24 2C 33 29 B2 22 D4 C1 C2 22 |&...(X$,3)."..."| 00000340: A7 52 B2 31 AA 31 35 AC C5 28 CA 28 58 24 2C 34 |.R.1.15..(.(X$,4| 00000350: 29 29 3A 8B 52 B3 41 31 A7 32 35 30 30 00 74 0B |)):.R.A1.2500.t.| 00000360: 29 04 8B C8 28 58 24 2C 32 29 B2 22 C5 C5 22 A7 |)...(X$,2)."..".| 00000370: 34 35 30 30 00 9F 0B 2E 04 8B C8 28 58 24 2C 31 |4500.......(X$,1| 00000380: 29 B2 22 49 22 A7 49 B2 C5 28 CA 28 58 24 2C 32 |)."I".I..(.(X$,2| 00000390: 29 29 3A 8B 49 B3 B2 41 31 A7 8D 32 30 30 30 00 |)):.I..A1..2000.| 000003A0: AB 0B 56 04 81 49 B2 31 A4 41 31 00 D3 0B 60 04 |..V..I.1.A1...`.| 000003B0: 8B C8 28 58 24 2C 36 29 B2 41 4E 24 28 49 29 B0 |..(X$,6).AN$(I).| 000003C0: 58 24 B2 41 24 28 49 29 A7 8D 32 30 30 30 3A 49 |X$.A$(I)..2000:I| 000003D0: B2 41 31 00 DF 0B 7E 04 82 3A 89 31 30 30 30 00 |.A1...~..:.1000.| 000003E0: FB 0B D0 07 99 22 93 11 11 11 C7 45 46 55 4E 44 |.....".....EFUND| 000003F0: 45 4E 45 20 D7 45 52 54 45 20 22 00 12 0C DA 07 |ENE .ERTE ".....| 00000400: 99 22 11 C1 52 54 2E CE 52 20 20 22 41 4E 24 28 |."..RT..R "AN$(| 00000410: 49 29 00 28 0C E4 07 99 22 11 C1 52 54 49 4B 45 |I).(...."..RTIKE| 00000420: 4C 20 22 41 24 28 49 29 00 3D 0C EE 07 99 22 11 |L "A$(I).=....".| 00000430: C1 4E 5A 41 48 4C 20 20 22 48 28 49 29 00 58 0C |.NZAHL "H(I).X.| 00000440: F8 07 99 22 11 D0 52 45 49 53 20 20 20 22 C8 28 |..."..REIS ".(| 00000450: 50 24 28 49 29 2C 37 29 00 73 0C 5C 08 53 54 24 |P$(I),7).s.\.ST$| 00000460: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............| 00000470: 11 11 22 00 89 0C 61 08 99 53 54 24 22 91 91 12 |.."...a..ST$"...| 00000480: C1 55 53 47 41 4E 47 92 22 00 93 0C 66 08 8D 37 |.USGANG."...f..7| 00000490: 30 30 30 00 A8 0C 75 08 8B C5 28 58 24 29 B1 48 |000...u...(X$).H| 000004A0: 28 49 29 A7 32 32 36 30 00 E3 0C 7A 08 48 28 49 |(I).2260...z.H(I| 000004B0: 29 B2 48 28 49 29 AB C5 28 58 24 29 3A 53 28 49 |).H(I)..(X$):S(I| 000004C0: 29 B2 53 28 49 29 AA C5 28 58 24 29 3A 55 4D B2 |).S(I)..(X$):UM.| 000004D0: C5 28 C8 28 50 24 28 49 29 2C 37 29 29 AC C5 28 |.(.(P$(I),7))..(| 000004E0: 58 24 29 00 F9 0C 84 08 54 55 B2 54 55 AA 55 4D |X$).....TU.TU.UM| 000004F0: 3A 47 55 B2 47 55 AA 55 4D 00 2C 0D 89 08 99 53 |:GU.GU.UM.,....S| 00000500: 54 24 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |T$".............| 00000510: 1D 1D 1D 20 20 20 20 20 20 20 20 20 20 20 20 20 |... | 00000520: 20 20 20 20 20 20 20 20 20 20 20 22 00 36 0D 8E | ".6..| 00000530: 08 8B 55 4D A7 8E 00 57 0D 98 08 53 54 24 B2 22 |..UM...W...ST$."| 00000540: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000550: 11 11 11 11 11 11 22 00 6D 0D A2 08 99 53 54 24 |......".m....ST$| 00000560: 22 91 91 12 C5 49 4E 47 41 4E 47 92 22 00 77 0D |"....INGANG.".w.| 00000570: AC 08 8D 37 30 30 30 00 91 0D CA 08 48 B2 C5 28 |...7000.....H..(| 00000580: 58 24 29 3A 48 28 49 29 B2 48 28 49 29 AA 48 3A |X$):H(I).H(I).H:| 00000590: 8E 00 C5 0D D4 08 99 53 54 24 22 11 1D 1D 1D 1D |.......ST$".....| 000005A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 41 55 46 20 |............AUF | 000005B0: CC 41 47 45 52 20 4E 55 52 20 22 48 28 49 29 3A |.AGER NUR "H(I):| 000005C0: 89 32 31 34 30 00 CB 0D FC 08 8E 00 D6 0D C4 09 |.2140...........| 000005D0: 4C B2 52 AA 31 34 00 EE 0D CE 09 99 22 93 D4 41 |L.R.14......"..A| 000005E0: 42 45 4C 4C 45 20 22 B5 28 52 AD 31 35 29 00 28 |BELLE ".(R.15).(| 000005F0: 0E D3 09 99 22 C1 52 54 2E CE 52 20 22 3B 22 20 |....".RT..R ";" | 00000600: C1 52 54 49 4B 20 22 3B 22 20 D0 52 45 49 53 20 |.RTIK ";" .REIS | 00000610: 22 3B 22 20 20 C1 4E 5A 41 48 4C 20 22 3B 22 20 |";" .NZAHL ";" | 00000620: 20 D5 4D 53 41 54 5A 22 00 57 0E D8 09 99 22 A8 | .MSATZ".W....".| 00000630: A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 |................| 00000640: A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 A8 |................| 00000650: A8 A8 A8 A8 A8 A8 22 00 69 0E E2 09 99 22 13 11 |......".i...."..| 00000660: 11 22 3A 81 49 B2 52 A4 4C 00 93 0E EC 09 55 B2 |.":.I.R.L.....U.| 00000670: B5 28 53 28 49 29 29 AC C5 28 C8 28 50 24 28 49 |.(S(I))..(.(P$(I| 00000680: 29 2C 37 29 29 3A 41 24 B2 C8 28 41 24 28 49 29 |),7)):A$..(A$(I)| 00000690: 2C 36 29 00 C2 0E F6 09 99 41 4E 24 28 49 29 A3 |,6)......AN$(I).| 000006A0: 38 29 41 24 A3 31 36 29 C8 28 50 24 28 49 29 2C |8)A$.16).(P$(I),| 000006B0: 36 29 A3 32 34 29 48 28 49 29 A3 33 30 29 B5 28 |6).24)H(I).30).(| 000006C0: 55 29 00 D8 0E 00 0A 8B 4D 25 28 49 29 B3 B2 48 |U)......M%(I)..H| 000006D0: 28 49 29 A7 32 35 37 35 00 F8 0E 0A 0A 99 22 91 |(I).2575......".| 000006E0: 12 22 41 4E 24 28 49 29 A3 38 29 41 24 A3 32 34 |."AN$(I).8)A$.24| 000006F0: 29 48 28 49 29 22 92 22 00 FE 0E 0F 0A 82 00 20 |)H(I)"."....... | 00000700: 0F 1E 0A 53 54 24 B2 22 13 11 11 11 11 11 11 11 |...ST$."........| 00000710: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."| 00000720: 00 49 0F 23 0A 99 53 54 24 22 91 91 91 D4 41 47 |.I.#..ST$"....AG| 00000730: 2E D5 4D 53 2E 22 54 55 A3 32 30 29 22 C7 45 53 |..MS."TU.20)".ES| 00000740: 2E D5 4D 53 2E 20 22 47 55 00 8B 0F 28 0A 99 53 |..MS. "GU...(..S| 00000750: 54 24 22 91 D7 45 4C 43 48 45 20 C1 52 54 2E CE |T$"..ELCHE .RT..| 00000760: 52 20 57 49 52 44 20 47 45 57 55 45 4E 53 43 48 |R WIRD GEWUENSCH| 00000770: 54 20 3F 22 3A 99 22 C1 52 54 2E CE 52 2E 20 22 |T ?":.".RT..R. "| 00000780: 3A 4C 5A B2 36 3A 8D 37 30 30 30 00 B0 0F 3C 0A |:LZ.6:.7000...<.| 00000790: 4C 5A B2 31 30 3A 8B C8 28 58 24 2C 31 29 B2 22 |LZ.10:..(X$,1)."| 000007A0: 20 22 A7 91 49 4A 89 32 36 39 30 2C 31 30 30 30 | "..IJ.2690,1000| 000007B0: 00 E0 0F 46 0A 81 43 B2 52 A4 4C 3A 8B 58 24 B2 |...F..C.R.L:.X$.| 000007C0: 41 4E 24 28 43 29 A7 8D 33 35 30 30 3A 43 B2 4C |AN$(C)..3500:C.L| 000007D0: 3A 82 43 3A 52 B2 52 AB 31 35 3A 89 32 36 39 30 |:.C:R.R.15:.2690| 000007E0: 00 E7 0F 50 0A 82 43 00 FA 0F 82 0A 8B 52 B2 B1 |...P..C......R..| 000007F0: 41 32 AB 31 34 A7 31 30 30 30 00 0B 10 8C 0A 52 |A2.14.1000.....R| 00000800: B2 52 AA 31 35 3A 89 32 35 30 30 00 1A 10 AC 0D |.R.15:.2500.....| 00000810: 99 22 93 22 3A 4C 5A B2 31 30 00 3A 10 B6 0D 99 |.".":LZ.10.:....| 00000820: 22 11 31 2E C1 52 54 2E CE 52 2E 20 20 20 20 20 |".1..RT..R. | 00000830: 20 20 20 22 41 4E 24 28 43 29 00 59 10 C0 0D 99 | "AN$(C).Y....| 00000840: 22 11 32 2E C1 52 54 49 4B 45 4C 20 20 20 20 20 |".2..RTIKEL | 00000850: 20 20 20 22 41 24 28 43 29 00 85 10 CA 0D 50 56 | "A$(C).....PV| 00000860: 24 B2 C8 28 50 24 28 43 29 2C 37 29 3A 99 22 11 |$..(P$(C),7):.".| 00000870: 33 2E D6 20 D0 52 45 49 53 20 20 20 20 20 20 20 |3.. .REIS | 00000880: 20 22 50 56 24 00 B1 10 CF 0D 50 45 24 B2 CA 28 | "PV$.....PE$..(| 00000890: 50 24 28 43 29 2C 38 29 3A 99 22 11 34 2E C5 20 |P$(C),8):.".4.. | 000008A0: D0 52 45 49 53 20 20 20 20 20 20 20 20 22 50 45 |.REIS "PE| 000008B0: 24 00 CF 10 D4 0D 99 22 11 35 2E C2 45 53 54 41 |$......".5..ESTA| 000008C0: 4E 44 20 20 20 20 20 20 20 20 22 48 28 43 29 00 |ND "H(C).| 000008D0: FB 10 DE 0D 99 22 11 20 20 D7 45 52 54 20 49 4E |.....". .ERT IN| 000008E0: 20 C4 CD 20 20 20 20 20 22 48 28 43 29 AC C5 28 | .. "H(C)..(| 000008F0: C8 28 50 24 28 43 29 2C 36 29 29 00 19 11 E8 0D |.(P$(C),6)).....| 00000900: 99 22 11 36 2E C6 52 45 51 55 45 4E 5A 20 20 20 |.".6..REQUENZ | 00000910: 20 20 20 20 22 53 28 43 29 00 48 11 F2 0D 99 22 | "S(C).H...."| 00000920: 11 20 20 D5 4D 53 41 54 5A 20 49 4E 20 C4 CD 20 |. .MSATZ IN .. | 00000930: 20 20 22 B5 28 53 28 43 29 29 AC C5 28 C8 28 50 | ".(S(C))..(.(P| 00000940: 24 28 43 29 2C 36 29 29 00 67 11 FC 0D 99 22 11 |$(C),6)).g....".| 00000950: 37 2E CD 49 4E 44 45 53 54 42 45 53 54 41 4E 44 |7..INDESTBESTAND| 00000960: 20 22 4D 25 28 43 29 00 94 11 10 0E 99 22 12 11 | "M%(C)......"..| 00000970: D7 45 4C 43 48 45 20 CE 52 2E 20 57 4F 4C 4C 45 |.ELCHE .R. WOLLE| 00000980: 4E 20 D3 49 45 20 41 45 4E 44 45 52 4E 20 3F 20 |N .IE AENDERN ? | 00000990: 20 20 92 22 00 A8 11 1A 0E A1 51 24 3A 8B 51 24 | ."......Q$:.Q$| 000009A0: B2 22 22 A7 33 36 31 30 00 B5 11 24 0E 8B 51 24 |."".3610...$..Q$| 000009B0: B2 4F 24 A7 8E 00 D7 11 2E 0E 53 54 24 B2 22 13 |.O$.......ST$.".| 000009C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000009D0: 11 11 11 11 11 11 22 00 0B 12 38 0E 91 C5 28 51 |......"...8...(Q| 000009E0: 24 29 89 33 36 35 30 2C 33 36 36 30 2C 33 36 37 |$).3650,3660,367| 000009F0: 30 2C 33 36 38 30 2C 33 36 39 30 2C 33 37 30 30 |0,3680,3690,3700| 00000A00: 2C 33 37 35 30 3A 89 33 35 30 30 00 3A 12 42 0E |,3750:.3500.:.B.| 00000A10: 8B 41 4E 24 28 43 29 B2 22 40 20 20 20 20 20 22 |.AN$(C)."@ "| 00000A20: A7 41 4E 24 28 43 AA 31 29 B2 22 40 20 20 20 20 |.AN$(C.1)."@ | 00000A30: 20 22 3A 41 31 B2 41 31 AA 31 00 5F 12 45 0E 8B | ":A1.A1.1._.E..| 00000A40: 41 4E 24 28 43 29 B2 22 40 22 A7 41 4E 24 28 43 |AN$(C)."@".AN$(C| 00000A50: AA 31 29 B2 22 40 22 3A 41 31 B2 41 31 AA 31 00 |.1)."@":A1.A1.1.| 00000A60: 9A 12 48 0E 99 22 C1 52 54 2E CE 52 22 3A 4C 5A |..H..".RT..R":LZ| 00000A70: B2 36 3A 8D 37 30 30 30 3A 41 4E 24 28 43 29 B2 |.6:.7000:AN$(C).| 00000A80: 58 24 3A 8B 58 24 B3 22 21 22 A7 41 4E 24 28 43 |X$:.X$."!".AN$(C| 00000A90: 29 B2 22 2A 20 20 20 20 20 22 00 A4 12 4A 0E 89 |)."* "...J..| 00000AA0: 33 35 30 30 00 C3 12 4C 0E 99 22 C1 52 54 49 4B |3500...L..".RTIK| 00000AB0: 45 4C 20 22 3A 8D 37 30 30 30 3A 41 24 28 43 29 |EL ":.7000:A$(C)| 00000AC0: B2 58 24 00 E2 12 51 0E 8B 58 24 B3 22 21 22 A7 |.X$...Q..X$."!".| 00000AD0: 41 24 28 43 29 B2 22 2A 20 20 20 20 20 20 20 20 |A$(C)."* | 00000AE0: 20 22 00 EC 12 54 0E 89 33 35 30 30 00 14 13 56 | "...T..3500...V| 00000AF0: 0E 99 22 D6 20 D0 52 45 49 53 20 22 3A 4C 5A B2 |..". .REIS ":LZ.| 00000B00: 37 3A 8D 37 30 30 30 3A 50 56 24 B2 58 24 3A 89 |7:.7000:PV$.X$:.| 00000B10: 33 39 30 30 00 3C 13 60 0E 99 22 C5 20 D0 52 45 |3900.<.`..". .RE| 00000B20: 49 53 20 22 3A 4C 5A B2 37 3A 8D 37 30 30 30 3A |IS ":LZ.7:.7000:| 00000B30: 50 45 24 B2 58 24 3A 89 33 39 30 30 00 63 13 6A |PE$.X$:.3900.c.j| 00000B40: 0E 99 22 C2 45 53 54 41 4E 44 20 22 3A 8D 37 30 |..".ESTAND ":.70| 00000B50: 30 30 3A 48 28 43 29 B2 C5 28 58 24 29 3A 89 33 |00:H(C)..(X$):.3| 00000B60: 35 30 30 00 8A 13 74 0E 99 22 C6 52 45 51 55 45 |500...t..".REQUE| 00000B70: 4E 5A 22 3A 8D 37 30 30 30 3A 53 28 43 29 B2 C5 |NZ":.7000:S(C)..| 00000B80: 28 58 24 29 3A 89 33 35 30 30 00 B2 13 A6 0E 99 |(X$):.3500......| 00000B90: 22 CD 49 4E 2E C2 45 53 2E 22 3A 8D 37 30 30 30 |".IN..ES.":.7000| 00000BA0: 3A 4D 25 28 43 29 B2 C5 28 58 24 29 3A 89 33 35 |:M%(C)..(X$):.35| 00000BB0: 30 30 00 CA 13 3C 0F 50 24 28 43 29 B2 50 56 24 |00...<.P$(C).PV$| 00000BC0: AA 50 45 24 3A 89 33 35 30 30 00 F8 13 94 11 99 |.PE$:.3500......| 00000BD0: 22 93 11 11 D7 45 4E 4E 20 D3 49 45 20 44 45 4E |"....ENN .IE DEN| 00000BE0: 20 DA 41 45 48 4C 45 52 20 41 55 46 20 4E 55 4C | .AEHLER AUF NUL| 00000BF0: 4C 20 53 45 54 5A 45 4E 00 21 14 9E 11 99 22 11 |L SETZEN.!....".| 00000C00: 57 4F 4C 4C 45 4E 2C 20 44 41 42 4E 20 47 45 42 |WOLLEN, DABN GEB| 00000C10: 45 4E 20 D3 49 45 20 12 5A 30 92 20 45 49 4E 2E |EN .IE .Z0. EIN.| 00000C20: 22 00 4E 14 A8 11 53 54 24 B2 22 13 11 11 11 11 |".N...ST$.".....| 00000C30: 11 11 22 3A 8D 37 30 30 30 3A 8B C8 28 58 24 2C |..":.7000:..(X$,| 00000C40: 32 29 B2 22 5A 30 22 A7 53 24 B2 22 2A 22 00 81 |2)."Z0".S$."*"..| 00000C50: 14 B2 11 99 53 54 24 22 11 11 D7 45 4E 4E 20 44 |....ST$"...ENN D| 00000C60: 45 52 20 C7 45 53 41 4D 54 55 4D 53 41 54 5A 20 |ER .ESAMTUMSATZ | 00000C70: 41 55 46 20 4E 55 4C 4C 20 47 45 53 45 54 5A 54 |AUF NULL GESETZT| 00000C80: 22 00 A9 14 BC 11 99 22 11 57 49 52 44 2C 20 44 |"......".WIRD, D| 00000C90: 41 4E 4E 20 47 45 42 45 4E 20 D3 49 45 20 12 47 |ANN GEBEN .IE .G| 00000CA0: 55 30 92 20 45 49 4E 2E 22 00 DB 14 C6 11 53 54 |U0. EIN.".....ST| 00000CB0: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............| 00000CC0: 22 3A 8D 37 30 30 30 3A 8B C8 28 58 24 2C 33 29 |":.7000:..(X$,3)| 00000CD0: B2 22 47 55 30 22 A7 47 55 B2 30 00 E4 14 88 13 |."GU0".GU.0.....| 00000CE0: 99 22 93 22 00 00 15 8D 13 99 22 13 11 11 C4 41 |."."......"....A| 00000CF0: 54 45 4E 44 49 53 4B 20 45 49 4E 4C 45 47 45 4E |TENDISK EINLEGEN| 00000D00: 00 24 15 92 13 99 22 11 57 45 4E 4E 20 46 45 52 |.$....".WENN FER| 00000D10: 54 49 47 20 5B 53 50 41 43 45 5D 20 44 52 55 45 |TIG [SPACE] DRUE| 00000D20: 43 4B 45 4E 00 3A 15 9C 13 A1 51 24 3A 8B 51 24 |CKEN.:....Q$:.Q$| 00000D30: B3 B1 22 20 22 A7 35 30 32 30 00 53 15 B4 14 9F |.." ".5020.S....| 00000D40: 31 2C 38 2C 31 2C 22 40 3A 44 41 54 45 49 2C 53 |1,8,1,"@:DATEI,S| 00000D50: 2C 57 22 00 5F 15 B9 14 81 49 B2 31 A4 41 31 00 |,W"._....I.1.A1.| 00000D60: 72 15 BA 14 8B 53 24 B2 22 2A 22 A7 53 28 49 29 |r....S$."*".S(I)| 00000D70: B2 30 00 8C 15 BE 14 8B 41 4E 24 28 49 29 B2 22 |.0......AN$(I)."| 00000D80: 40 20 20 20 20 20 22 A7 35 34 37 30 00 A3 15 C8 |@ ".5470....| 00000D90: 14 98 31 2C 4F 31 24 41 4E 24 28 49 29 3A 98 31 |..1,O1$AN$(I):.1| 00000DA0: 2C 4F 24 00 B9 15 E6 14 98 31 2C 4F 31 24 50 24 |,O$......1,O1$P$| 00000DB0: 28 49 29 3A 98 31 2C 4F 24 00 CF 15 FA 14 98 31 |(I):.1,O$......1| 00000DC0: 2C 4F 31 24 41 24 28 49 29 3A 98 31 2C 4F 24 00 |,O1$A$(I):.1,O$.| 00000DD0: E1 15 0E 15 98 31 2C 48 28 49 29 3A 98 31 2C 4F |.....1,H(I):.1,O| 00000DE0: 24 00 F4 15 22 15 98 31 2C 4D 25 28 49 29 3A 98 |$..."..1,M%(I):.| 00000DF0: 31 2C 4F 24 00 00 16 36 15 98 31 2C 53 28 49 29 |1,O$...6..1,S(I)| 00000E00: 00 13 16 45 15 54 B2 54 49 3A 97 35 39 34 31 31 |...E.T.TI:.59411| 00000E10: 2C 35 33 00 25 16 4A 15 8B 54 49 AB 54 B3 31 30 |,53.%.J..TI.T.10| 00000E20: A7 35 34 35 30 00 33 16 4F 15 97 35 39 34 31 31 |.5450.3.O..59411| 00000E30: 2C 36 31 00 39 16 54 15 82 00 4F 16 5E 15 98 31 |,61.9.T...O.^..1| 00000E40: 2C 22 40 20 20 20 20 20 22 3A 98 31 2C 4F 24 00 |,"@ ":.1,O$.| 00000E50: 59 16 68 15 98 31 2C 47 55 00 60 16 7C 15 A0 31 |Y.h..1,GU.`.|..1| 00000E60: 00 74 16 E0 15 99 22 93 C5 49 4E 47 41 42 45 20 |.t...."..INGABE | 00000E70: 46 55 45 52 00 94 16 EA 15 99 22 11 C4 41 54 45 |FUER......"..ATE| 00000E80: 4E 41 55 53 44 52 55 43 4B 20 20 20 2D 2D 2D 3E |NAUSDRUCK --->| 00000E90: 20 12 44 92 00 B4 16 EC 15 99 22 11 C4 41 54 45 | .D......."..ATE| 00000EA0: 4E 4B 4F 50 49 45 20 20 20 20 20 20 2D 2D 2D 3E |NKOPIE --->| 00000EB0: 20 12 43 92 00 D4 16 EF 15 99 22 11 C2 45 53 54 | .C......."..EST| 00000EC0: 45 4C 4C 49 53 54 45 20 20 20 20 20 2D 2D 2D 3E |ELLISTE --->| 00000ED0: 20 12 42 92 00 F4 16 F1 15 99 22 11 D0 52 4F 47 | .B......."..ROG| 00000EE0: 52 41 4D 4D 20 20 20 20 20 20 20 20 2D 2D 2D 3E |RAMM --->| 00000EF0: 20 12 50 92 00 14 17 F4 15 99 22 11 D0 52 4F 47 | .P......."..ROG| 00000F00: 52 41 4D 4D 45 4E 44 45 20 20 20 20 2D 2D 2D 3E |RAMMENDE --->| 00000F10: 20 12 45 92 00 28 17 F9 15 A1 51 24 3A 8B 51 24 | .E..(....Q$:.Q$| 00000F20: B2 22 22 A7 35 36 32 35 00 41 17 FE 15 8B 51 24 |."".5625.A....Q$| 00000F30: B2 22 44 22 B0 51 24 B2 22 42 22 A7 31 30 30 30 |."D".Q$."B".1000| 00000F40: 30 00 52 17 08 16 8B 51 24 B2 22 50 22 A7 31 30 |0.R....Q$."P".10| 00000F50: 30 30 00 6F 17 0D 16 8B 51 24 B2 22 43 22 A7 99 |00.o....Q$."C"..| 00000F60: 22 93 12 CE 45 55 45 53 22 3A 89 35 30 30 35 00 |"...EUES":.5005.| 00000F70: 75 17 12 16 80 00 A2 17 58 1B 58 24 B2 22 22 3A |u.......X.X$."":| 00000F80: 99 53 54 24 22 A4 A4 A4 A4 A4 A4 A4 A4 20 20 20 |.ST$"........ | 00000F90: 20 20 20 20 20 20 A0 20 20 20 20 20 22 3A 49 4A | . ":IJ| 00000FA0: B2 30 00 AE 17 59 1B 49 4A B2 49 4A AA 31 00 C4 |.0...Y.IJ.IJ.1..| 00000FB0: 17 5A 1B 8B 49 4A B1 38 A7 99 53 54 24 A3 49 4A |.Z..IJ.8..ST$.IJ| 00000FC0: 29 22 A4 22 00 E0 17 5B 1B A1 58 24 28 49 4A 29 |)"."...[..X$(IJ)| 00000FD0: 3A 8B 58 24 28 49 4A 29 B2 22 22 A7 37 30 30 33 |:.X$(IJ)."".7003| 00000FE0: 00 13 18 5C 1B 8B 58 24 28 49 4A 29 B2 C7 28 31 |...\..X$(IJ)..(1| 00000FF0: 39 29 B0 58 24 28 49 4A 29 B2 C7 28 31 34 37 29 |9).X$(IJ)..(147)| 00001000: B0 58 24 28 49 4A 29 B2 C7 28 31 34 35 29 A7 37 |.X$(IJ)..(145).7| 00001010: 30 30 33 00 45 18 5D 1B 8B 58 24 28 49 4A 29 B2 |003.E.]..X$(IJ).| 00001020: C7 28 31 37 29 B0 58 24 28 49 4A 29 B2 C7 28 31 |.(17).X$(IJ)..(1| 00001030: 35 37 29 B0 58 24 28 49 4A 29 B2 C7 28 32 39 29 |57).X$(IJ)..(29)| 00001040: A7 37 30 30 33 00 59 18 5E 1B 8B 58 24 28 49 4A |.7003.Y.^..X$(IJ| 00001050: 29 B2 4F 24 A7 37 30 31 32 00 8D 18 5F 1B 8B 58 |).O$.7012..._..X| 00001060: 24 28 49 4A 29 B2 C7 28 32 30 29 A7 49 4A B2 49 |$(IJ)..(20).IJ.I| 00001070: 4A AB 31 3A 8B 49 4A B1 30 A7 99 53 54 24 A3 49 |J.1:.IJ.0..ST$.I| 00001080: 4A AB 31 29 22 A4 22 3A 89 37 30 30 33 00 9D 18 |J.1)".":.7003...| 00001090: 60 1B 8B 49 4A B1 4C 5A A7 37 30 30 33 00 CE 18 |`..IJ.LZ.7003...| 000010A0: 62 1B 59 24 B2 22 22 3A 81 49 4B B2 31 A4 49 4A |b.Y$."":.IK.1.IJ| 000010B0: 3A 59 24 B2 59 24 AA 58 24 28 49 4B 29 3A 82 49 |:Y$.Y$.X$(IK):.I| 000010C0: 4B 3A 99 53 54 24 59 24 3A 89 37 30 30 31 00 F8 |K:.ST$Y$:.7001..| 000010D0: 18 64 1B 58 24 28 49 4A 29 B2 22 20 22 3A 81 49 |.d.X$(IJ)." ":.I| 000010E0: 4B B2 31 A4 4C 5A 3A 8B 49 4B B1 49 4A A7 58 24 |K.1.LZ:.IK.IJ.X$| 000010F0: 28 49 4B 29 B2 22 20 22 00 0D 19 66 1B 58 24 B2 |(IK)." "...f.X$.| 00001100: 58 24 AA 58 24 28 49 4B 29 3A 82 3A 8E 00 32 19 |X$.X$(IK):.:..2.| 00001110: 10 27 99 22 93 C4 52 55 43 4B 45 52 41 44 52 45 |.'."..RUCKERADRE| 00001120: 53 53 45 20 45 49 4E 47 45 42 45 4E 21 28 31 2D |SSE EINGEBEN!(1-| 00001130: 39 29 00 58 19 11 27 99 22 11 11 C4 52 55 43 4B |9).X..'."...RUCK| 00001140: 45 52 20 56 4F 4E 20 C3 4F 4D 4D 4F 44 4F 52 45 |ER VON .OMMODORE| 00001150: 20 2D 2D 2D 3E 12 43 92 00 7F 19 15 27 A1 51 31 | --->.C.....'.Q1| 00001160: 24 3A 8B 51 31 24 B2 22 43 22 A7 41 42 24 B2 C7 |$:.Q1$."C".AB$..| 00001170: 28 31 37 29 3A 51 B2 34 3A 89 31 30 30 32 30 00 |(17):Q.4:.10020.| 00001180: 9E 19 1A 27 51 B2 C5 28 51 31 24 29 3A 41 42 24 |...'Q..(Q1$):AB$| 00001190: B2 22 22 3A 8B 51 B3 31 A7 31 30 30 30 35 00 AF |."":.Q.1.10005..| 000011A0: 19 24 27 9F 34 2C 51 3A 81 49 B2 31 A4 41 31 00 |.$'.4,Q:.I.1.A1.| 000011B0: E0 19 2E 27 44 24 B2 41 4E 24 28 49 29 AA 22 20 |...'D$.AN$(I)." | 000011C0: 20 22 AA 41 24 28 49 29 AA 22 20 20 22 AA 50 24 | ".A$(I)." ".P$| 000011D0: 28 49 29 AA 22 20 20 22 AA C4 28 48 28 49 29 29 |(I)." "..(H(I))| 000011E0: 00 FD 19 33 27 8B 51 24 B2 22 44 22 A7 98 34 2C |...3'.Q$."D"..4,| 000011F0: 41 42 24 22 20 20 20 20 20 20 22 44 24 00 26 1A |AB$" "D$.&.| 00001200: 38 27 8B 51 24 B2 22 42 22 A7 8B 48 28 49 29 B3 |8'.Q$."B"..H(I).| 00001210: 4D 25 28 49 29 A7 98 34 2C 22 20 20 20 20 20 20 |M%(I)..4," | 00001220: 22 41 42 24 44 24 00 35 1A 42 27 82 3A A0 34 3A |"AB$D$.5.B'.:.4:| 00001230: 89 35 36 30 30 00 00 00 24 12 |.5600...$. |
........$...O$.G(13):LZ.10:O1$.G(34).W..
.A2.510:.59468,14:.53280,0:.53281,0:.G(1
4):."."......S(511),X$(45),P$(511),H(511
),M%(511),AN$(512),A$(511).T...N$."(C) H
ANSING ":."..........................
..20REMCR=CB.....G$." SOFTWARE ":."
............................30REMCR=CB.\
....".."N$G$:.I.1.900:."................
.................40 REMCR=CB......"....L
AGER I":.:."............................
...50 REMCR=CB...D.CR.901.R.H..".DATEN D
ISK OK ? DANN E DRUECKEN......E$:.E$."
".220...,..1,8,0,"DATEI,S,R":A1.0...1.A1
.A1.1...6..1,AN$(A1).6.;..AN$(A1)."@
".380.D.J..1,P$(A1).R.O..1,A$(A1).H.T..
1,H$:H(A1).E(H$)..^..1,M$:M%(A1).E(M$).
..H..1,S$:S(A1).E(S$)...R..305...|..1,GU
$:GU.E(GU$)..... 1......"..GEWUENSCHTE A
RT. NR. ODER ART. EINGEBEN.....ST$."....
.."......ST$"..ART.O.NR.".'....7000:.X$.
O$.1000.-.....].&..H(X$,3)."TAB".R.1.15.
E(J(X$,4)):.R.A1.2500.T.)..H(X$,2)."EE".
4500......H(X$,1)."I".I.E(J(X$,2)):.I..A
1..2000...V..I.1.A1.S.`..H(X$,6).AN$(I).
X$.A$(I)..2000:I.A1...~..:.1000...P.."..
..GEFUNDENE WERTE "...Z..".ART.NR "AN$(
I).(....".ARTIKEL "A$(I).=....".ANZAHL
"H(I).X....".PREIS "H(P$(I),7).S.\.ST$
."................"...A..ST$"...AUSGANG.
"...F..7000...U..E(X$).H(I).2260...Z.H(I
).H(I).E(X$):S(I).S(I).E(X$):UM.E(H(P$(I
),7)).E(X$).....TU.TU.UM:GU.GU.UM.,....S
T$"................
".6....UM...W...ST$."................
......".M....ST$"...EINGANG.".W....7000.
..J.H.E(X$):H(I).H(I).H:..E.T..ST$".....
............AUF LAGER NUR "H(I):.2140.K.
....V.D.L.R.14...N..".TABELLE ".(R.15).(
.S.."ART.NR ";" ARTIK ";" PREIS ";" ANZ
AHL ";" UMSATZ".W.X..".................
......................".I...."...":.I.R.
L.....U..(S(I)).E(H(P$(I),7)):A$.H(A$(I)
,6).B....AN$(I).8)A$.16)H(P$(I),6).24)H(
I).30).(U).X....M%(I)..H(I).2575......".
."AN$(I).8)A$.24)H(I)"."....... ...ST$."
.......................".I.#..ST$"...TAG
.UMS."TU.20)"GES.UMS. "GU...(..ST$".WELC
HE ART.NR WIRD GEWUENSCHT ?":."ART.NR. "
:LZ.6:.7000...<.LZ.10:.H(X$,1)." "..IJ.2
690,1000...F..C.R.L:.X$.AN$(C)..3500:C.L
:.C:R.R.15:.2690...P..C......R..A2.14.10
00.....R.R.15:.2500......".":LZ.10.:....
".1.ART.NR. "AN$(C).Y....".2.ARTI
KEL "A$(C)...J.PV$.H(P$(C),7):.".
3.V PREIS "PV$...O.PE$.J(P$(C),8)
:.".4.E PREIS "PE$.O.T..".5.BESTA
ND "H(C)......". WERT IN DM
"H(C).E(H(P$(C),6))......".6.FREQUENZ
"S(C).H....". UMSATZ IN DM ".(S(C
)).E(H(P$(C),6)).G....".7.MINDESTBESTAND
"M%(C)......"..WELCHE NR. WOLLEN SIE AE
NDERN ? ."......Q$:.Q$."".3610...$..Q$
.O$...W...ST$.".......................".
..8..E(Q$).3650,3660,3670,3680,3690,3700
,3750:.3500.:.B..AN$(C)."@ ".AN$(C.1
)."@ ":A1.A1.1._.E..AN$(C)."@".AN$(C
.1)."@":A1.A1.1...H.."ART.NR":LZ.6:.7000
:AN$(C).X$:.X$."!".AN$(C)."* "...J..
3500.C.L.."ARTIKEL ":.7000:A$(C).X$...Q.
.X$."!".A$(C)."* "...T..3500...V
.."V PREIS ":LZ.7:.7000:PV$.X$:.3900.<.`
.."E PREIS ":LZ.7:.7000:PE$.X$:.3900.C.J
.."BESTAND ":.7000:H(C).E(X$):.3500...T.
."FREQUENZ":.7000:S(C).E(X$):.3500......
"MIN.BES.":.7000:M%(C).E(X$):.3500.J.<.P
$(C).PV$.PE$:.3500......"...WENN SIE DEN
ZAEHLER AUF NULL SETZEN.!....".WOLLEN,
DABN GEBEN SIE .Z0. EIN.".N...ST$.".....
..":.7000:.H(X$,2)."Z0".S$."*"......ST$"
..WENN DER GESAMTUMSATZ AUF NULL GESETZT
"......".WIRD, DANN GEBEN SIE .GU0. EIN.
"...F.ST$.".............":.7000:.H(X$,3)
."GU0".GU.0......"."......"...DATENDISK
EINLEGEN.$....".WENN FERTIG [SPACE] DRUE
CKEN.:....Q$:.Q$.." ".5020.S....1,8,1,"@
:DATEI,S,W"._....I.1.A1.R....S$."*".S(I)
.0......AN$(I)."@ ".5470...H..1,O1$A
N$(I):.1,O$......1,O1$P$(I):.1,O$.O....1
,O1$A$(I):.1,O$......1,H(I):.1,O$..."..1
,M%(I):.1,O$...6..1,S(I)...E.T.TI:.59411
,53.%.J..TI.T.10.5450.3.O..59411,61.9.T.
..O.^..1,"@ ":.1,O$.Y.H..1,GU.`.|. 1
.T....".EINGABE FUER......".DATENAUSDRUC
K ---> .D.......".DATENKOPIE --->
.C..T....".BESTELLISTE ---> .B.....
..".PROGRAMM ---> .P.......".PROG
RAMMENDE ---> .E..(....Q$:.Q$."".5625
.A....Q$."D".Q$."B".10000.R....Q$."P".10
00.O....Q$."C".."..NEUES":.5005.U.......
X.X$."":.ST$"........ ":IJ
.0...Y.IJ.IJ.1.D.Z..IJ.8..ST$.IJ)"."...[
..X$(IJ):.X$(IJ)."".7003...\..X$(IJ).G(1
9).X$(IJ).G(147).X$(IJ).G(145).7003.E.].
.X$(IJ).G(17).X$(IJ).G(157).X$(IJ).G(29)
.7003.Y.^..X$(IJ).O$.7012..._..X$(IJ).G(
20).IJ.IJ.1:.IJ.0..ST$.IJ.1)".":.7003...
`..IJ.LZ.7003.N.B.Y$."":.IK.1.IJ:Y$.Y$.X
$(IK):.IK:.ST$Y$:.7001...D.X$(IJ)." ":.I
K.1.LZ:.IK.IJ.X$(IK)." "...F.X$.X$.X$(IK
):.:..2..'.".DRUCKERADRESSE EINGEBEN!(1-
9).X..'."..DRUCKER VON COMMODORE --->.C.
...'.Q1$:.Q1$."C".AB$.G(17):Q.4:.10020.
...'Q.E(Q1$):AB$."":.Q.1.10005...$'.4,Q:
.I.1.A1....'D$.AN$(I)." ".A$(I)." ".P$
(I)." ".D(H(I))...3'.Q$."D"..4,AB$"
"D$.&.8'.Q$."B"..H(I).M%(I)..4,"
"AB$D$.5.B'.: 4:.5600...$.
> CLICK IMAGE PREVIEW FOR FULL MODAL