SEITE.80.LOGO

FILE INFORMATION

FILENAME(S): SEITE.80.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.1K

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

APPEARS ON: 1 disk(s)

FILE HASH

59c11596473ca9c0d417f9faa5dd45f725a46172b104115f97b057844868978b

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BUCH	SEITE.80.LOGO	PRG	Treasure Chest - LehrerMIL	20	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 50 52 20 5A 41 45  48 4C 45 2E 54 52 45 46  |. PR ZAEHLE.TREF|
00000010: 46 45 52 0D 20 53 45 54  5A 45 20 22 5A 55 20 3A  |FER. SETZE "ZU :|
00000020: 5A 31 20 2B 20 3A 5A 32  20 2B 20 3A 5A 33 0D 20  |Z1 + :Z2 + :Z3. |
00000030: 50 52 55 45 46 45 20 3A  5A 55 20 3D 20 31 32 0D  |PRUEFE :ZU = 12.|
00000040: 20 57 45 4E 4E 57 41 48  52 20 44 52 20 22 54 52  | WENNWAHR DR "TR|
00000050: 45 46 46 45 52 21 0D 20  57 57 20 53 45 54 5A 45  |EFFER!. WW SETZE|
00000060: 20 22 54 52 45 46 46 45  52 5A 41 48 4C 20 3A 54  | "TREFFERZAHL :T|
00000070: 52 45 46 46 45 52 5A 41  48 4C 20 2B 20 31 0D 20  |REFFERZAHL + 1. |
00000080: 44 5A 20 5B 5D 0D 45 4E  44 45 0D 50 52 20 56 45  |DZ [].ENDE.PR VE|
00000090: 52 53 55 43 48 0D 20 53  45 54 5A 45 20 22 5A 31  |RSUCH. SETZE "Z1|
000000A0: 20 28 20 31 20 2B 20 5A  5A 20 36 20 29 0D 20 53  | ( 1 + ZZ 6 ). S|
000000B0: 45 54 5A 45 20 22 5A 32  20 28 20 31 20 2B 20 5A  |ETZE "Z2 ( 1 + Z|
000000C0: 5A 20 36 20 29 0D 20 53  45 54 5A 45 20 22 5A 33  |Z 6 ). SETZE "Z3|
000000D0: 20 28 20 31 20 2B 20 5A  5A 20 36 20 29 0D 20 28  | ( 1 + ZZ 6 ). (|
000000E0: 20 44 52 20 22 28 20 3A  5A 31 20 22 2C 20 3A 5A  | DR "( :Z1 ", :Z|
000000F0: 32 20 22 2C 20 3A 5A 33  20 22 29 20 29 0D 45 4E  |2 ", :Z3 ") ).EN|
00000100: 44 45 0D 50 52 20 33 57  55 45 52 46 45 0D 20 4C  |DE.PR 3WUERFE. L|
00000110: 53 0D 20 44 5A 20 5B 33  20 57 55 45 52 46 45 28  |S. DZ [3 WUERFE(|
00000120: 4C 29 2C 20 41 55 47 45  4E 53 55 4D 4D 45 20 31  |L), AUGENSUMME 1|
00000130: 32 5D 20 44 5A 20 5B 5D  0D 20 44 52 20 5B 57 49  |2] DZ []. DR [WI|
00000140: 45 56 49 45 4C 20 56 45  53 55 43 48 45 3F 20 57  |EVIEL VESUCHE? W|
00000150: 5A 20 3D 20 3F 5D 0D 20  53 45 54 5A 45 20 22 57  |Z = ?]. SETZE "W|
00000160: 5A 20 45 52 53 54 45 53  20 4C 4C 0D 20 53 45 54  |Z ERSTES LL. SET|
00000170: 5A 45 20 22 54 52 45 46  46 45 52 5A 41 48 4C 20  |ZE "TREFFERZAHL |
00000180: 30 20 44 5A 20 5B 5D 0D  20 57 48 20 3A 57 5A 20  |0 DZ []. WH :WZ |
00000190: 5B 56 45 52 53 55 43 48  20 5A 41 45 48 4C 45 2E  |[VERSUCH ZAEHLE.|
000001A0: 54 52 45 46 46 45 52 5D  0D 20 41 55 53 57 45 52  |TREFFER]. AUSWER|
000001B0: 54 55 4E 47 0D 45 4E 44  45 0D 50 52 20 41 55 53  |TUNG.ENDE.PR AUS|
000001C0: 57 45 52 54 55 4E 47 0D  20 44 5A 20 5B 5D 0D 20  |WERTUNG. DZ []. |
000001D0: 53 45 54 5A 45 20 22 52  48 20 3A 54 52 45 46 46  |SETZE "RH :TREFF|
000001E0: 45 52 5A 41 48 4C 20 2F  20 3A 57 5A 0D 20 53 45  |ERZAHL / :WZ. SE|
000001F0: 54 5A 45 20 22 52 48 20  28 20 52 55 4E 44 45 20  |TZE "RH ( RUNDE |
00000200: 31 30 30 30 20 2A 20 3A  52 48 20 29 20 2F 20 31  |1000 * :RH ) / 1|
00000210: 30 0D 20 28 20 44 5A 20  5B 41 4E 5A 41 48 4C 20  |0. ( DZ [ANZAHL |
00000220: 44 45 52 20 56 45 52 53  55 43 48 45 5D 20 3A 57  |DER VERSUCHE] :W|
00000230: 5A 20 29 0D 20 28 20 44  5A 20 5B 41 4E 5A 41 48  |Z ). ( DZ [ANZAH|
00000240: 4C 20 44 45 52 20 54 52  45 46 46 45 52 5D 20 3A  |L DER TREFFER] :|
00000250: 54 52 45 46 46 45 52 5A  41 48 4C 20 29 0D 20 28  |TREFFERZAHL ). (|
00000260: 20 44 5A 20 5B 52 45 4C  41 54 49 56 45 20 48 41  | DZ [RELATIVE HA|
00000270: 45 55 46 49 47 4B 45 49  54 5D 20 3A 52 48 20 5B  |EUFIGKEIT] :RH [|
00000280: 25 5D 20 29 0D 45 4E 44  45 0D 50 52 20 5A 41 45  |%] ).ENDE.PR ZAE|
00000290: 48 4C 45 2E 4D 2E 54 52  45 46 46 45 52 0D 20 53  |HLE.M.TREFFER. S|
000002A0: 45 54 5A 45 20 22 5A 55  20 3A 5A 31 20 2B 20 3A  |ETZE "ZU :Z1 + :|
000002B0: 5A 32 20 2B 20 3A 5A 33  20 2B 20 3A 5A 34 20 2B  |Z2 + :Z3 + :Z4 +|
000002C0: 20 3A 5A 35 0D 20 50 52  55 45 46 45 20 3A 5A 55  | :Z5. PRUEFE :ZU|
000002D0: 20 3D 20 33 0D 20 57 45  4E 4E 57 41 48 52 20 44  | = 3. WENNWAHR D|
000002E0: 52 20 22 54 52 45 46 46  45 52 21 0D 20 57 57 20  |R "TREFFER!. WW |
000002F0: 53 45 54 5A 45 20 22 54  52 45 46 46 45 52 5A 41  |SETZE "TREFFERZA|
00000300: 48 4C 20 3A 54 52 45 46  46 45 52 5A 41 48 4C 20  |HL :TREFFERZAHL |
00000310: 2B 20 31 0D 20 44 5A 20  5B 5D 0D 45 4E 44 45 0D  |+ 1. DZ [].ENDE.|
00000320: 50 52 20 4D 55 45 4E 5A  57 55 52 46 0D 20 53 45  |PR MUENZWURF. SE|
00000330: 54 5A 45 20 22 5A 31 20  5A 5A 20 32 0D 20 53 45  |TZE "Z1 ZZ 2. SE|
00000340: 54 5A 45 20 22 5A 32 20  5A 5A 20 32 0D 20 53 45  |TZE "Z2 ZZ 2. SE|
00000350: 54 5A 45 20 22 5A 33 20  5A 5A 20 32 0D 20 53 45  |TZE "Z3 ZZ 2. SE|
00000360: 54 5A 45 20 22 5A 34 20  5A 5A 20 32 0D 20 53 45  |TZE "Z4 ZZ 2. SE|
00000370: 54 5A 45 20 22 5A 35 20  5A 5A 20 32 0D 20 28 20  |TZE "Z5 ZZ 2. ( |
00000380: 44 52 20 22 28 20 3A 5A  31 20 22 2C 20 3A 5A 32  |DR "( :Z1 ", :Z2|
00000390: 20 22 2C 20 3A 5A 33 20  22 2C 20 3A 5A 34 20 22  | ", :Z3 ", :Z4 "|
000003A0: 2C 20 3A 5A 35 20 22 29  20 29 0D 45 4E 44 45 0D  |, :Z5 ") ).ENDE.|
000003B0: 50 52 20 35 4D 55 45 4E  5A 45 4E 0D 20 4C 53 0D  |PR 5MUENZEN. LS.|
000003C0: 20 44 5A 20 5B 35 20 4D  55 45 4E 5A 45 4E 2C 20  | DZ [5 MUENZEN, |
000003D0: 33 4D 41 4C 20 5A 41 48  4C 28 31 29 5D 20 44 5A  |3MAL ZAHL(1)] DZ|
000003E0: 20 5B 5D 0D 20 44 52 20  5B 57 49 45 56 49 45 4C  | []. DR [WIEVIEL|
000003F0: 20 56 45 53 55 43 48 45  2F 57 49 45 44 45 52 48  | VESUCHE/WIEDERH|
00000400: 4F 4C 55 4E 47 45 4E 3F  5D 0D 20 53 45 54 5A 45  |OLUNGEN?]. SETZE|
00000410: 20 22 57 5A 20 45 52 53  54 45 53 20 4C 4C 0D 20  | "WZ ERSTES LL. |
00000420: 53 45 54 5A 45 20 22 54  52 45 46 46 45 52 5A 41  |SETZE "TREFFERZA|
00000430: 48 4C 20 30 20 44 5A 20  5B 5D 0D 20 57 48 20 3A  |HL 0 DZ []. WH :|
00000440: 57 5A 20 5B 4D 55 45 4E  5A 57 55 52 46 20 5A 41  |WZ [MUENZWURF ZA|
00000450: 45 48 4C 45 2E 4D 2E 54  52 45 46 46 45 52 5D 0D  |EHLE.M.TREFFER].|
00000460: 20 41 55 53 57 45 52 54  55 4E 47 0D 45 4E 44 45  | AUSWERTUNG.ENDE|
00000470: 0D                                                |.               |

. PR ZAEHLE.TREFFER. SETZE "ZU :Z1 + :Z2
 + :Z3. PRUEFE :ZU = 12. WENNWAHR DR "TR
EFFER!. WW SETZE "TREFFERZAHL :TREFFERZA
HL + 1. DZ [].ENDE.PR VERSUCH. SETZE "Z1
 ( 1 + ZZ 6 ). SETZE "Z2 ( 1 + ZZ 6 ). S
ETZE "Z3 ( 1 + ZZ 6 ). ( DR "( :Z1 ", :Z
2 ", :Z3 ") ).ENDE.PR 3WUERFE. LS. DZ [3
 WUERFE(L), AUGENSUMME 12] DZ []. DR [WI
EVIEL VESUCHE? WZ = ?]. SETZE "WZ ERSTES
 LL. SETZE "TREFFERZAHL 0 DZ []. WH :WZ 
[VERSUCH ZAEHLE.TREFFER]. AUSWERTUNG.END
E.PR AUSWERTUNG. DZ []. SETZE "RH :TREFF
ERZAHL / :WZ. SETZE "RH ( RUNDE 1000 * :
RH ) / 10. ( DZ [ANZAHL DER VERSUCHE] :W
Z ). ( DZ [ANZAHL DER TREFFER] :TREFFERZ
AHL ). ( DZ [RELATIVE HAEUFIGKEIT] :RH [
%] ).ENDE.PR ZAEHLE.M.TREFFER. SETZE "ZU
 :Z1 + :Z2 + :Z3 + :Z4 + :Z5. PRUEFE :ZU
 = 3. WENNWAHR DR "TREFFER!. WW SETZE "T
REFFERZAHL :TREFFERZAHL + 1. DZ [].ENDE.
PR MUENZWURF. SETZE "Z1 ZZ 2. SETZE "Z2 
ZZ 2. SETZE "Z3 ZZ 2. SETZE "Z4 ZZ 2. SE
TZE "Z5 ZZ 2. ( DR "( :Z1 ", :Z2 ", :Z3 
", :Z4 ", :Z5 ") ).ENDE.PR 5MUENZEN. LS.
 DZ [5 MUENZEN, 3MAL ZAHL(1)] DZ []. DR 
[WIEVIEL VESUCHE/WIEDERHOLUNGEN?]. SETZE
 "WZ ERSTES LL. SETZE "TREFFERZAHL 0 DZ 
[]. WH :WZ [MUENZWURF ZAEHLE.M.TREFFER].
 AUSWERTUNG.ENDE.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL