_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

UEBG36

FILE INFORMATION

FILENAME(S): UEBG36

FILE TYPE(S): SEQ

FILE SIZE: 358b

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

APPEARS ON: 6 disk(s)

FILE HASH

5efb8f05a26b39a220fa8ff4711332ed3cdd29ccfbe01bb08c43997a70f467ef

FOUND ON DISKS (6 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 49 4E 50  55 54 20 41 4E 5A 41 48  |0010 INPUT ANZAH|
00000010: 4C 0D 0A 30 30 32 30 20  49 4E 50 55 54 20 50 52  |L..0020 INPUT PR|
00000020: 45 49 53 0D 0A 30 30 33  30 20 42 45 54 52 41 47  |EIS..0030 BETRAG|
00000030: 3A 3D 41 4E 5A 41 48 4C  2A 50 52 45 49 53 0D 0A  |:=ANZAHL*PREIS..|
00000040: 30 30 34 30 20 4D 57 53  54 3A 3D 42 45 54 52 41  |0040 MWST:=BETRA|
00000050: 47 2A 32 35 2F 31 30 30  0D 0A 30 30 35 30 20 47  |G*25/100..0050 G|
00000060: 45 53 41 4D 54 3A 3D 42  45 54 52 41 47 2B 4D 57  |ESAMT:=BETRAG+MW|
00000070: 53 54 0D 0A 30 30 36 30  20 50 52 49 4E 54 20 0D  |ST..0060 PRINT .|
00000080: 0A 30 30 37 30 20 50 52  49 4E 54 20 22 53 49 45  |.0070 PRINT "SIE|
00000090: 20 48 41 42 45 4E 20 22  2C 41 4E 5A 41 48 4C 2C  | HABEN ",ANZAHL,|
000000A0: 22 20 53 54 55 45 43 4B  20 45 52 48 41 4C 54 45  |" STUECK ERHALTE|
000000B0: 4E 22 0D 0A 30 30 38 30  20 50 52 49 4E 54 20 22  |N"..0080 PRINT "|
000000C0: 46 55 45 52 20 22 2C 50  52 45 49 53 2C 22 20 44  |FUER ",PREIS," D|
000000D0: 4D 20 50 52 4F 20 53 54  55 45 43 4B 2E 22 0D 0A  |M PRO STUECK."..|
000000E0: 30 30 39 30 20 50 52 49  4E 54 20 22 45 49 4E 53  |0090 PRINT "EINS|
000000F0: 43 48 4C 2E 20 4D 57 53  54 20 53 49 4E 44 20 22  |CHL. MWST SIND "|
00000100: 2C 47 45 53 41 4D 54 2C  22 20 44 4D 20 5A 55 20  |,GESAMT," DM ZU |
00000110: 5A 41 48 4C 45 4E 2E 22  0D 0A 30 31 30 30 20 50  |ZAHLEN."..0100 P|
00000120: 52 49 4E 54 20 22 42 49  54 54 45 2C 20 4C 45 49  |RINT "BITTE, LEI|
00000130: 53 54 45 4E 20 53 49 45  20 44 49 45 20 5A 41 48  |STEN SIE DIE ZAH|
00000140: 4C 55 4E 47 22 0D 0A 30  31 31 30 20 50 52 49 4E  |LUNG"..0110 PRIN|
00000150: 54 20 22 4D 4F 45 47 4C  49 43 48 53 54 20 42 41  |T "MOEGLICHST BA|
00000160: 4C 44 2E 22 0D 0A                                 |LD."..          |

0010 INPUT ANZAHL..0020 INPUT PREIS..003
0 BETRAG:=ANZAHL*PREIS..0040 MWST:=BETRA
G*25/100..0050 GESAMT:=BETRAG+MWST..0060
 PRINT ..0070 PRINT "SIE HABEN ",ANZAHL,
" STUECK ERHALTEN"..0080 PRINT "FUER ",P
REIS," DM PRO STUECK."..0090 PRINT "EINS
CHL. MWST SIND ",GESAMT," DM ZU ZAHLEN."
..0100 PRINT "BITTE, LEISTEN SIE DIE ZAH
LUNG"..0110 PRINT "MOEGLICHST BALD."..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL