UEBG45

FILE INFORMATION

FILENAME(S): UEBG45

FILE TYPE(S): SEQ

FILE SIZE: 525b

FIRST SEEN: 2025-11-30 01:08:01

APPEARS ON: 6 disk(s)

FILE HASH

0c345bccf34d25d6bd910e9f890e5e39fae11c420bcfd4ca0deed93071aeb713

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C OMAL	UEBG45	SEQ	Treasure Chest - Wolfgang Rauprich	19	8	DOWNLOAD FILE
FREEWARE DISK NR	UEBG45	SEQ	Treasure Chest - Wolfgang Rauprich	19	8	DOWNLOAD FILE
COMAL 0 14	UEBG45	SEQ	Treasure Chest - Wolfgang Rauprich	16	20	DOWNLOAD FILE
C OMAL 0 14	UEBG45	SEQ	Treasure Chest - Wolfgang Rauprich	16	20	DOWNLOAD FILE
C OMAL	UEBG45	SEQ	Treasure Chest - Wolfgang Rauprich	19	8	DOWNLOAD FILE
FREESOFT DISK NR	UEBG45	SEQ	Treasure Chest - Wolfgang Rauprich	19	8	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 50 52 49  4E 54 20 22 41 4E 5A 41  |0010 PRINT "ANZA|
00000010: 48 4C 20 44 45 52 20 45  49 4E 48 45 49 54 45 4E  |HL DER EINHEITEN|
00000020: 22 2C 0D 0A 30 30 32 30  20 49 4E 50 55 54 20 41  |",..0020 INPUT A|
00000030: 4E 5A 41 48 4C 0D 0A 30  30 33 30 20 50 52 49 4E  |NZAHL..0030 PRIN|
00000040: 54 20 22 50 52 45 49 53  20 50 52 4F 20 45 49 4E  |T "PREIS PRO EIN|
00000050: 48 45 49 54 20 20 20 22  2C 0D 0A 30 30 34 30 20  |HEIT   ",..0040 |
00000060: 49 4E 50 55 54 20 50 52  45 49 53 0D 0A 30 30 35  |INPUT PREIS..005|
00000070: 30 20 50 52 49 4E 54 20  0D 0A 30 30 36 30 20 50  |0 PRINT ..0060 P|
00000080: 52 49 4E 54 20 0D 0A 30  30 37 30 20 42 45 54 52  |RINT ..0070 BETR|
00000090: 41 47 3A 3D 41 4E 5A 41  48 4C 2A 50 52 45 49 53  |AG:=ANZAHL*PREIS|
000000A0: 0D 0A 30 30 38 30 20 49  46 20 41 4E 5A 41 48 4C  |..0080 IF ANZAHL|
000000B0: 3C 32 30 20 54 48 45 4E  0D 0A 30 30 39 30 20 42  |<20 THEN..0090 B|
000000C0: 45 54 52 41 47 3A 3D 42  45 54 52 41 47 2A 31 30  |ETRAG:=BETRAG*10|
000000D0: 35 2F 31 30 30 0D 0A 30  31 30 30 20 50 52 49 4E  |5/100..0100 PRIN|
000000E0: 54 20 22 45 49 4E 45 20  5A 55 53 54 45 4C 4C 47  |T "EINE ZUSTELLG|
000000F0: 45 42 55 45 48 52 20 57  49 52 44 20 45 52 48 4F  |EBUEHR WIRD ERHO|
00000100: 42 45 4E 22 0D 0A 30 31  31 30 20 50 52 49 4E 54  |BEN"..0110 PRINT|
00000110: 20 22 44 49 45 53 45 20  47 45 42 55 45 48 52 20  | "DIESE GEBUEHR |
00000120: 4D 41 43 48 54 20 35 20  50 52 4F 5A 45 4E 54 22  |MACHT 5 PROZENT"|
00000130: 0D 0A 30 31 32 30 20 50  52 49 4E 54 20 22 44 45  |..0120 PRINT "DE|
00000140: 53 20 52 45 43 48 4E 55  4E 47 53 42 45 54 52 41  |S RECHNUNGSBETRA|
00000150: 47 45 53 20 41 55 53 2E  22 0D 0A 30 31 33 30 20  |GES AUS."..0130 |
00000160: 50 52 49 4E 54 20 22 42  45 49 20 45 49 4E 45 52  |PRINT "BEI EINER|
00000170: 20 41 42 4E 41 48 4D 45  20 56 4F 4E 20 4D 49 4E  | ABNAHME VON MIN|
00000180: 44 45 53 54 45 4E 53 22  0D 0A 30 31 34 30 20 50  |DESTENS"..0140 P|
00000190: 52 49 4E 54 20 22 32 30  20 57 41 52 45 4E 45 49  |RINT "20 WARENEI|
000001A0: 4E 48 45 49 54 45 4E 20  45 4E 54 46 41 45 4C 4C  |NHEITEN ENTFAELL|
000001B0: 54 20 44 49 45 20 47 45  42 55 45 48 52 2E 22 0D  |T DIE GEBUEHR.".|
000001C0: 0A 30 31 35 30 20 50 52  49 4E 54 20 0D 0A 30 31  |.0150 PRINT ..01|
000001D0: 36 30 20 45 4E 44 49 46  20 0D 0A 30 31 37 30 20  |60 ENDIF ..0170 |
000001E0: 50 52 49 4E 54 20 22 45  4E 44 42 45 54 52 41 47  |PRINT "ENDBETRAG|
000001F0: 3A 20 20 20 20 20 20 20  20 20 20 20 22 2C 42 45  |:           ",BE|
00000200: 54 52 41 47 2C 22 20 44  4D 2E 22 0D 0A           |TRAG," DM."..   |

0010 PRINT "ANZAHL DER EINHEITEN",..0020
 INPUT ANZAHL..0030 PRINT "PREIS PRO EIN
HEIT   ",..0040 INPUT PREIS..0050 PRINT 
..0060 PRINT ..0070 BETRAG:=ANZAHL*PREIS
..0080 IF ANZAHL<20 THEN..0090 BETRAG:=B
ETRAG*105/100..0100 PRINT "EINE ZUSTELLG
EBUEHR WIRD ERHOBEN"..0110 PRINT "DIESE 
GEBUEHR MACHT 5 PROZENT"..0120 PRINT "DE
S RECHNUNGSBETRAGES AUS."..0130 PRINT "B
EI EINER ABNAHME VON MINDESTENS"..0140 P
RINT "20 WARENEINHEITEN ENTFAELLT DIE GE
BUEHR."..0150 PRINT ..0160 ENDIF ..0170 
PRINT "ENDBETRAG:           ",BETRAG," D
M."..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL