SEITE.18.LOGO

FILE INFORMATION

FILENAME(S): SEITE.18.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-10-20 14:37:14

APPEARS ON: 1 disk(s)

FILE HASH

bd3b60f751721a39367329d3dbd2b82e2354d04b61cf942d14c968f8b41688ee

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BUCH	SEITE.18.LOGO	PRG	Treasure Chest - LehrerMIL	19	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 50 52 20 49 44 45  41 4C 47 45 57 49 43 48  |. PR IDEALGEWICH|
00000010: 54 2E 46 55 45 52 2E 4D  41 45 4E 4E 45 52 20 3A  |T.FUER.MAENNER :|
00000020: 47 52 4F 45 53 53 45 0D  20 53 45 54 5A 45 20 22  |GROESSE. SETZE "|
00000030: 48 20 3A 47 52 4F 45 53  53 45 20 2D 20 31 30 30  |H :GROESSE - 100|
00000040: 0D 20 53 45 54 5A 45 20  22 49 44 45 41 4C 47 45  |. SETZE "IDEALGE|
00000050: 57 49 43 48 54 20 3A 48  20 2A 20 30 2E 39 0D 20  |WICHT :H * 0.9. |
00000060: 4C 4F 45 53 43 48 45 53  43 48 49 52 4D 0D 20 28  |LOESCHESCHIRM. (|
00000070: 20 44 5A 20 5B 5A 55 20  45 49 4E 45 52 20 4B 4F  | DZ [ZU EINER KO|
00000080: 45 52 50 45 52 47 52 4F  45 53 53 45 20 56 4F 4E  |ERPERGROESSE VON|
00000090: 5D 20 3A 47 52 4F 45 53  53 45 20 5B 43 4D 5D 20  |] :GROESSE [CM] |
000000A0: 29 0D 20 28 20 44 5A 20  5B 47 45 48 4F 45 52 54  |). ( DZ [GEHOERT|
000000B0: 20 45 49 4E 20 49 44 45  41 4C 47 45 57 49 43 48  | EIN IDEALGEWICH|
000000C0: 54 20 56 4F 4E 5D 20 3A  49 44 45 41 4C 47 45 57  |T VON] :IDEALGEW|
000000D0: 49 43 48 54 20 5B 4B 47  5D 20 29 0D 45 4E 44 45  |ICHT [KG] ).ENDE|
000000E0: 0D 50 52 20 49 44 45 41  4C 47 45 57 49 43 48 54  |.PR IDEALGEWICHT|
000000F0: 20 3A 4B 4F 45 52 50 45  52 47 52 4F 45 53 53 45  | :KOERPERGROESSE|
00000100: 0D 20 52 47 20 28 20 3A  4B 4F 45 52 50 45 52 47  |. RG ( :KOERPERG|
00000110: 52 4F 45 53 53 45 20 2D  20 31 30 30 20 29 20 2A  |ROESSE - 100 ) *|
00000120: 20 30 2E 39 0D 45 4E 44  45 0D 50 52 20 4B 46 5A  | 0.9.ENDE.PR KFZ|
00000130: 2E 53 54 45 55 45 52 0D  20 4C 53 0D 20 44 5A 20  |.STEUER. LS. DZ |
00000140: 5B 4B 46 5A 2D 53 54 45  55 45 52 20 46 55 45 52  |[KFZ-STEUER FUER|
00000150: 20 46 41 48 52 5A 45 55  47 45 5D 20 44 5A 20 5B  | FAHRZEUGE] DZ [|
00000160: 4D 49 54 20 4D 45 48 52  20 41 4C 53 20 38 30 20  |MIT MEHR ALS 80 |
00000170: 43 43 4D 20 48 55 42 52  41 55 4D 5D 0D 20 44 52  |CCM HUBRAUM]. DR|
00000180: 20 5B 42 49 54 54 45 20  48 55 42 52 41 55 4D 20  | [BITTE HUBRAUM |
00000190: 49 4E 20 43 43 4D 20 45  49 4E 47 45 42 45 4E 20  |IN CCM EINGEBEN |
000001A0: 3A 5D 0D 20 53 45 54 5A  45 20 22 48 55 42 20 45  |:]. SETZE "HUB E|
000001B0: 52 53 54 45 53 20 4C 4C  0D 20 53 45 54 5A 45 20  |RSTES LL. SETZE |
000001C0: 22 41 20 3A 48 55 42 20  2B 20 39 39 0D 20 53 45  |"A :HUB + 99. SE|
000001D0: 54 5A 45 20 22 42 20 3A  41 20 2F 20 31 30 30 0D  |TZE "B :A / 100.|
000001E0: 20 53 45 54 5A 45 20 22  43 20 49 4E 54 20 28 20  | SETZE "C INT ( |
000001F0: 3A 42 20 29 0D 20 53 45  54 5A 45 20 22 53 20 3A  |:B ). SETZE "S :|
00000200: 43 20 2A 20 31 38 2E 38  0D 20 44 5A 20 5B 5D 0D  |C * 18.8. DZ [].|
00000210: 20 28 20 44 5A 20 5B 44  49 45 20 4B 46 5A 2D 53  | ( DZ [DIE KFZ-S|
00000220: 54 45 55 45 52 20 42 45  54 52 41 45 47 54 5D 20  |TEUER BETRAEGT] |
00000230: 3A 53 20 5B 44 4D 5D 20  29 0D 45 4E 44 45 0D 50  |:S [DM] ).ENDE.P|
00000240: 52 20 47 45 52 55 4E 44  45 54 20 3A 48 0D 20 52  |R GERUNDET :H. R|
00000250: 47 20 49 4E 54 20 28 20  28 20 3A 48 20 2B 20 39  |G INT ( ( :H + 9|
00000260: 39 20 29 20 2F 20 31 30  30 20 29 0D 45 4E 44 45  |9 ) / 100 ).ENDE|
00000270: 0D 50 52 20 53 54 45 55  45 52 4E 2E 46 55 45 52  |.PR STEUERN.FUER|
00000280: 20 3A 48 55 42 52 41 55  4D 0D 20 52 47 20 31 38  | :HUBRAUM. RG 18|
00000290: 2E 38 20 2A 20 47 45 52  55 4E 44 45 54 20 3A 48  |.8 * GERUNDET :H|
000002A0: 55 42 52 41 55 4D 0D 45  4E 44 45 0D 50 52 20 5A  |UBRAUM.ENDE.PR Z|
000002B0: 59 4C 2E 48 55 42 52 41  55 4D 20 3A 44 20 3A 48  |YL.HUBRAUM :D :H|
000002C0: 0D 20 52 47 20 3A 48 20  2A 20 33 2E 31 34 20 2A  |. RG :H * 3.14 *|
000002D0: 20 3A 44 20 2A 20 3A 44  20 2F 20 34 0D 45 4E 44  | :D * :D / 4.END|
000002E0: 45 0D 50 52 20 4B 57 2E  49 4E 2E 50 53 20 3A 4B  |E.PR KW.IN.PS :K|
000002F0: 57 0D 20 52 47 20 31 2E  33 36 20 2A 20 3A 4B 57  |W. RG 1.36 * :KW|
00000300: 0D 45 4E 44 45 0D 50 52  20 4B 57 2E 49 4E 2E 50  |.ENDE.PR KW.IN.P|
00000310: 53 2E 4F 46 54 0D 20 44  52 20 5B 4B 49 4C 4F 57  |S.OFT. DR [KILOW|
00000320: 41 54 54 20 42 49 54 54  45 20 45 49 4E 47 45 42  |ATT BITTE EINGEB|
00000330: 45 4E 5D 0D 20 53 45 54  5A 45 20 22 4B 57 20 45  |EN]. SETZE "KW E|
00000340: 52 53 54 45 53 20 4C 4C  0D 20 53 45 54 5A 45 20  |RSTES LL. SETZE |
00000350: 22 50 53 20 31 2E 33 36  20 2A 20 3A 4B 57 0D 20  |"PS 1.36 * :KW. |
00000360: 28 20 44 5A 20 3A 4B 57  20 5B 4B 57 20 3D 5D 20  |( DZ :KW [KW =] |
00000370: 3A 50 53 20 22 50 53 20  29 0D 20 44 5A 20 5B 5D  |:PS "PS ). DZ []|
00000380: 0D 20 4B 57 2E 49 4E 2E  50 53 2E 4F 46 54 0D 45  |. KW.IN.PS.OFT.E|
00000390: 4E 44 45 0D 50 52 20 50  53 2E 49 4E 2E 4B 57 2E  |NDE.PR PS.IN.KW.|
000003A0: 41 42 20 3A 50 53 0D 20  28 20 44 5A 20 3A 50 53  |AB :PS. ( DZ :PS|
000003B0: 20 5B 50 53 20 3D 5D 20  30 2E 37 33 35 20 2A 20  | [PS =] 0.735 * |
000003C0: 3A 50 53 20 22 4B 57 20  29 0D 20 53 45 54 5A 45  |:PS "KW ). SETZE|
000003D0: 20 22 50 53 20 3A 50 53  20 2B 20 31 30 0D 20 50  | "PS :PS + 10. P|
000003E0: 53 2E 49 4E 2E 4B 57 2E  41 42 20 3A 50 53 0D 45  |S.IN.KW.AB :PS.E|
000003F0: 4E 44 45 0D 50 52 20 42  52 45 4D 53 57 45 47 20  |NDE.PR BREMSWEG |
00000400: 3A 56 0D 20 28 20 44 5A  20 5B 42 45 49 20 56 20  |:V. ( DZ [BEI V |
00000410: 3D 5D 20 3A 56 20 5B 4B  4D 2F 48 5D 20 29 0D 20  |=] :V [KM/H] ). |
00000420: 44 5A 20 5B 49 53 54 20  44 45 52 20 42 52 45 4D  |DZ [IST DER BREM|
00000430: 53 57 45 47 5D 0D 20 28  20 44 5A 20 3A 56 20 2F  |SWEG]. ( DZ :V /|
00000440: 20 31 30 20 2A 20 3A 56  20 2F 20 31 30 20 2A 20  | 10 * :V / 10 * |
00000450: 30 2E 35 20 5B 4D 5D 20  29 0D 45 4E 44 45 0D     |0.5 [M] ).ENDE. |

. PR IDEALGEWICHT.FUER.MAENNER :GROESSE.
 SETZE "H :GROESSE - 100. SETZE "IDEALGE
WICHT :H * 0.9. LOESCHESCHIRM. ( DZ [ZU 
EINER KOERPERGROESSE VON] :GROESSE [CM] 
). ( DZ [GEHOERT EIN IDEALGEWICHT VON] :
IDEALGEWICHT [KG] ).ENDE.PR IDEALGEWICHT
 :KOERPERGROESSE. RG ( :KOERPERGROESSE -
 100 ) * 0.9.ENDE.PR KFZ.STEUER. LS. DZ 
[KFZ-STEUER FUER FAHRZEUGE] DZ [MIT MEHR
 ALS 80 CCM HUBRAUM]. DR [BITTE HUBRAUM 
IN CCM EINGEBEN :]. SETZE "HUB ERSTES LL
. SETZE "A :HUB + 99. SETZE "B :A / 100.
 SETZE "C INT ( :B ). SETZE "S :C * 18.8
. DZ []. ( DZ [DIE KFZ-STEUER BETRAEGT] 
:S [DM] ).ENDE.PR GERUNDET :H. RG INT ( 
( :H + 99 ) / 100 ).ENDE.PR STEUERN.FUER
 :HUBRAUM. RG 18.8 * GERUNDET :HUBRAUM.E
NDE.PR ZYL.HUBRAUM :D :H. RG :H * 3.14 *
 :D * :D / 4.ENDE.PR KW.IN.PS :KW. RG 1.
36 * :KW.ENDE.PR KW.IN.PS.OFT. DR [KILOW
ATT BITTE EINGEBEN]. SETZE "KW ERSTES LL
. SETZE "PS 1.36 * :KW. ( DZ :KW [KW =] 
:PS "PS ). DZ []. KW.IN.PS.OFT.ENDE.PR P
S.IN.KW.AB :PS. ( DZ :PS [PS =] 0.735 * 
:PS "KW ). SETZE "PS :PS + 10. PS.IN.KW.
AB :PS.ENDE.PR BREMSWEG :V. ( DZ [BEI V 
=] :V [KM/H] ). DZ [IST DER BREMSWEG]. (
 DZ :V / 10 * :V / 10 * 0.5 [M] ).ENDE.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL