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

RABATT

FILE INFORMATION

FILENAME(S): RABATT

FILE TYPE(S): SEQ

FILE SIZE: 281b

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

APPEARS ON: 6 disk(s)

FILE HASH

ddffc16d8d2cae34fab50e163607043798835287763396fb0a1fffb38bc63e18

FOUND ON DISKS (6 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C OMAL RABATT SEQ Treasure Chest - Wolfgang Rauprich 19 6 DOWNLOAD FILE
FREEWARE DISK NR RABATT SEQ Treasure Chest - Wolfgang Rauprich 19 6 DOWNLOAD FILE
COMAL 0 14 RABATT SEQ Treasure Chest - Wolfgang Rauprich 16 18 DOWNLOAD FILE
C OMAL 0 14 RABATT SEQ Treasure Chest - Wolfgang Rauprich 16 18 DOWNLOAD FILE
C OMAL RABATT SEQ Treasure Chest - Wolfgang Rauprich 19 6 DOWNLOAD FILE
FREESOFT DISK NR RABATT SEQ Treasure Chest - Wolfgang Rauprich 19 6 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 57 41 52 45 4E  45 49 4E 48 45 49 54 45  |HL WARENEINHEITE|
00000020: 4E 20 20 20 22 2C 0D 0A  30 30 32 30 20 49 4E 50  |N   ",..0020 INP|
00000030: 55 54 20 41 4E 5A 41 48  4C 0D 0A 30 30 33 30 20  |UT ANZAHL..0030 |
00000040: 50 52 49 4E 54 20 22 50  52 45 49 53 20 50 52 4F  |PRINT "PREIS PRO|
00000050: 20 45 49 4E 48 45 49 54  20 20 20 20 20 20 20 22  | EINHEIT       "|
00000060: 2C 0D 0A 30 30 34 30 20  49 4E 50 55 54 20 50 52  |,..0040 INPUT PR|
00000070: 45 49 53 0D 0A 30 30 35  30 20 47 45 53 41 4D 54  |EIS..0050 GESAMT|
00000080: 50 52 45 49 53 3A 3D 41  4E 5A 41 48 4C 2A 50 52  |PREIS:=ANZAHL*PR|
00000090: 45 49 53 0D 0A 30 30 36  30 20 49 46 20 41 4E 5A  |EIS..0060 IF ANZ|
000000A0: 41 48 4C 3E 32 30 20 54  48 45 4E 0D 0A 30 30 37  |AHL>20 THEN..007|
000000B0: 30 20 47 45 53 41 4D 54  50 52 45 49 53 3A 3D 47  |0 GESAMTPREIS:=G|
000000C0: 45 53 41 4D 54 50 52 45  49 53 2A 39 35 2F 31 30  |ESAMTPREIS*95/10|
000000D0: 30 0D 0A 30 30 38 30 20  45 4E 44 49 46 20 0D 0A  |0..0080 ENDIF ..|
000000E0: 30 30 39 30 20 50 52 49  4E 54 20 22 47 45 53 41  |0090 PRINT "GESA|
000000F0: 4D 54 50 52 45 49 53 20  20 20 20 20 20 20 20 20  |MTPREIS         |
00000100: 20 20 20 20 22 2C 47 45  53 41 4D 54 50 52 45 49  |    ",GESAMTPREI|
00000110: 53 2C 22 20 44 4D 22 0D  0A                       |S," DM"..       |

0010 PRINT "ANZAHL WARENEINHEITEN   ",..
0020 INPUT ANZAHL..0030 PRINT "PREIS PRO
 EINHEIT       ",..0040 INPUT PREIS..005
0 GESAMTPREIS:=ANZAHL*PREIS..0060 IF ANZ
AHL>20 THEN..0070 GESAMTPREIS:=GESAMTPRE
IS*95/100..0080 ENDIF ..0090 PRINT "GESA
MTPREIS             ",GESAMTPREIS," DM".
.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL