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

ERSATZPROG. F. U

FILE INFORMATION

FILENAME(S): ERSATZPROG. F. U

FILE TYPE(S): PRG

FILE SIZE: 378b

FIRST SEEN: 2025-12-02 22:47:31

APPEARS ON: 1 disk(s)

FILE HASH

5643f6819db92d215ec9cc7e3fec053acab7e17a3955b18168a86beb345b300a

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
RECHNEN ERSATZPROG. F. U PRG swasti, charly 19 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1E 08 05 00 99 20  22 45 52 53 41 54 5A 50  |....... "ERSATZP|
00000010: 52 4F 47 2E 20 46 2E 20  55 53 49 4E 47 22 00 28  |ROG. F. USING".(|
00000020: 08 0A 00 99 20 22 93 22  00 47 08 14 00 85 20 22  |.... ".".G.... "|
00000030: 4E 45 54 54 4F 50 52 45  49 53 20 45 49 4E 47 45  |NETTOPREIS EINGE|
00000040: 42 45 4E 22 3B 4E 50 00  66 08 1E 00 85 20 22 53  |BEN";NP.f.... "S|
00000050: 54 45 55 45 52 53 41 54  5A 3A 20 20 20 20 20 20  |TEUERSATZ:      |
00000060: 20 20 22 3B 53 53 00 77  08 28 00 53 41 B2 4E 50  |  ";SS.w.(.SA.NP|
00000070: AD 31 30 30 AC 53 53 00  84 08 32 00 42 50 B2 4E  |.100.SS...2.BP.N|
00000080: 50 AA 53 41 00 8D 08 37  00 8D 20 39 30 00 93 08  |P.SA...7.. 90...|
00000090: 3C 00 99 00 A7 08 41 00  99 20 22 53 54 45 55 45  |<.....A.. "STEUE|
000000A0: 52 3D 22 3B 53 31 24 00  BB 08 46 00 99 20 22 42  |R=";S1$...F.. "B|
000000B0: 52 55 54 54 4F 3D 22 3B  42 31 24 00 C1 08 50 00  |RUTTO=";B1$...P.|
000000C0: 80 00 D1 08 5A 00 53 24  B2 22 22 3A 42 24 B2 22  |....Z.S$."":B$."|
000000D0: 22 00 DF 08 64 00 53 41  24 B2 C4 28 53 41 29 00  |"...d.SA$..(SA).|
000000E0: ED 08 6E 00 42 50 24 B2  C4 28 42 50 29 00 FC 08  |..n.BP$..(BP)...|
000000F0: 78 00 58 B2 36 AB C3 28  53 41 24 29 00 0B 09 82  |x.X.6..(SA$)....|
00000100: 00 59 B2 36 AB C3 28 42  50 24 29 00 19 09 8C 00  |.Y.6..(BP$).....|
00000110: 81 20 49 B2 31 20 A4 20  58 00 27 09 96 00 53 24  |. I.1 . X.'...S$|
00000120: B2 53 24 AA 22 20 22 00  2F 09 A0 00 82 20 49 00  |.S$." "./.... I.|
00000130: 3D 09 AA 00 81 20 49 B2  31 20 A4 20 59 00 4B 09  |=.... I.1 . Y.K.|
00000140: B4 00 42 24 B2 42 24 AA  22 20 22 00 53 09 BE 00  |..B$.B$." ".S...|
00000150: 82 20 49 00 62 09 C8 00  53 31 24 B2 53 24 AA 53  |. I.b...S1$.S$.S|
00000160: 41 24 00 71 09 D2 00 42  31 24 B2 42 24 AA 42 50  |A$.q...B1$.B$.BP|
00000170: 24 00 77 09 DC 00 8E 00  00 00                    |$.w.......      |

....... "ERSATZPROG. F. USING".(.... "."
.G.... "NETTOPREIS EINGEBEN";NP.F.... "S
TEUERSATZ:        ";SS.W.(.SA.NP.100.SS.
..2.BP.NP.SA...7.. 90...<.....A.. "STEUE
R=";S1$...F.. "BRUTTO=";B1$.A.P...Q.Z.S$
."":B$.""...D.SA$.D(SA)...N.BP$.D(BP)...
X.X.6.C(SA$).....Y.6.C(BP$)...... I.1 . 
X.'...S$.S$." "./. .. I.=.... I.1 . Y.K.
..B$.B$." ".S.... I.B.H.S1$.S$.SA$.Q.R.B
1$.B$.BP$.W.......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL