00000000: 00 20 50 52 20 5A 55 46 41 4C 4C 0D 20 4C 53 20 |. PR ZUFALL. LS |
00000010: 44 5A 20 5B 5D 0D 20 44 5A 20 5B 47 4C 55 45 43 |DZ []. DZ [GLUEC|
00000020: 4B 53 52 41 44 20 30 20 4F 44 45 52 20 31 5D 20 |KSRAD 0 ODER 1] |
00000030: 44 5A 20 5B 5D 0D 20 53 45 54 5A 45 20 22 4E 20 |DZ []. SETZE "N |
00000040: 32 0D 20 53 45 54 5A 45 20 22 57 5A 20 31 30 30 |2. SETZE "WZ 100|
00000050: 0D 20 57 48 20 3A 57 5A 20 5B 53 45 54 5A 45 20 |. WH :WZ [SETZE |
00000060: 22 5A 55 20 5A 5A 20 3A 4E 20 28 20 44 52 20 3A |"ZU ZZ :N ( DR :|
00000070: 5A 55 20 22 2C 20 29 5D 0D 20 44 5A 20 5B 5D 0D |ZU ", )]. DZ [].|
00000080: 45 4E 44 45 0D 50 52 20 5A 55 46 41 4C 4C 2E 57 |ENDE.PR ZUFALL.W|
00000090: 0D 20 4C 53 20 44 5A 20 5B 5D 0D 20 44 5A 20 5B |. LS DZ []. DZ [|
000000A0: 5A 55 46 41 4C 4C 53 5A 41 48 4C 45 4E 20 31 20 |ZUFALLSZAHLEN 1 |
000000B0: 42 49 53 20 36 5D 0D 20 57 48 20 3A 31 30 30 20 |BIS 6]. WH :100 |
000000C0: 5B 57 55 45 52 46 45 4C 4E 5D 0D 45 4E 44 45 0D |[WUERFELN].ENDE.|
000000D0: 50 52 20 57 55 45 52 46 45 4C 4E 0D 20 53 45 54 |PR WUERFELN. SET|
000000E0: 5A 45 20 22 5A 55 20 5A 5A 20 36 0D 20 53 45 54 |ZE "ZU ZZ 6. SET|
000000F0: 5A 45 20 22 57 20 3A 5A 55 20 2B 20 31 0D 20 28 |ZE "W :ZU + 1. (|
00000100: 20 44 52 20 3A 57 20 22 2C 20 29 0D 45 4E 44 45 | DR :W ", ).ENDE|
00000110: 0D 50 52 20 53 45 43 48 53 45 52 0D 20 4C 53 0D |.PR SECHSER. LS.|
00000120: 20 44 52 20 5B 57 49 45 20 4F 46 54 20 53 4F 4C | DR [WIE OFT SOL|
00000130: 4C 20 47 45 57 55 45 52 46 45 4C 54 20 57 45 52 |L GEWUERFELT WER|
00000140: 44 45 4E 20 3F 5D 0D 20 53 45 54 5A 45 20 22 57 |DEN ?]. SETZE "W|
00000150: 5A 20 45 52 53 54 45 53 20 4C 4C 0D 20 44 5A 20 |Z ERSTES LL. DZ |
00000160: 5B 5D 0D 20 53 45 54 5A 45 20 22 54 52 45 46 46 |[]. SETZE "TREFF|
00000170: 45 52 5A 41 48 4C 20 30 0D 20 57 48 20 3A 57 5A |ERZAHL 0. WH :WZ|
00000180: 20 5B 57 55 45 52 46 45 4C 4E 20 5A 41 45 48 4C | [WUERFELN ZAEHL|
00000190: 45 2E 54 52 45 46 46 45 52 5D 0D 20 41 55 53 57 |E.TREFFER]. AUSW|
000001A0: 45 52 54 55 4E 47 0D 45 4E 44 45 0D 50 52 20 5A |ERTUNG.ENDE.PR Z|
000001B0: 41 45 48 4C 45 2E 54 52 45 46 46 45 52 0D 20 50 |AEHLE.TREFFER. P|
000001C0: 52 55 45 46 45 20 3A 57 20 3D 20 36 0D 20 57 57 |RUEFE :W = 6. WW|
000001D0: 20 53 45 54 5A 45 20 22 54 52 45 46 46 45 52 5A | SETZE "TREFFERZ|
000001E0: 41 48 4C 20 3A 54 52 45 46 46 45 52 5A 41 48 4C |AHL :TREFFERZAHL|
000001F0: 20 2B 20 31 0D 45 4E 44 45 0D 50 52 20 41 55 53 | + 1.ENDE.PR AUS|
00000200: 57 45 52 54 55 4E 47 0D 20 44 5A 20 5B 5D 20 44 |WERTUNG. DZ [] D|
00000210: 5A 20 5B 5D 0D 20 28 20 44 5A 20 5B 41 4E 5A 41 |Z []. ( DZ [ANZA|
00000220: 48 4C 20 44 45 52 20 57 55 45 52 46 45 20 28 57 |HL DER WUERFE (W|
00000230: 5A 29 5D 20 3A 57 5A 20 29 0D 20 28 20 44 5A 20 |Z)] :WZ ). ( DZ |
00000240: 5B 41 4E 5A 41 48 4C 20 44 45 52 20 54 52 45 46 |[ANZAHL DER TREF|
00000250: 46 45 52 5D 20 3A 54 52 45 46 46 45 52 5A 41 48 |FER] :TREFFERZAH|
00000260: 4C 20 29 0D 20 44 5A 20 5B 52 45 4C 2E 20 48 41 |L ). DZ [REL. HA|
00000270: 45 55 46 49 47 4B 45 49 54 20 28 54 52 45 46 46 |EUFIGKEIT (TREFF|
00000280: 45 52 5A 41 48 4C 2F 57 5A 29 3A 5D 0D 20 53 45 |ERZAHL/WZ):]. SE|
00000290: 54 5A 45 20 22 52 48 20 3A 54 52 45 46 46 45 52 |TZE "RH :TREFFER|
000002A0: 5A 41 48 4C 20 2F 20 3A 57 5A 0D 20 53 45 54 5A |ZAHL / :WZ. SETZ|
000002B0: 45 20 22 52 48 20 28 20 52 55 4E 44 45 20 3A 52 |E "RH ( RUNDE :R|
000002C0: 48 20 2A 20 31 30 30 30 20 29 20 2F 20 31 30 0D |H * 1000 ) / 10.|
000002D0: 20 28 20 44 5A 20 5B 52 48 20 3D 5D 20 3A 52 48 | ( DZ [RH =] :RH|
000002E0: 20 22 25 20 29 0D 45 4E 44 45 0D | "% ).ENDE. |
. PR ZUFALL. LS DZ []. DZ [GLUECKSRAD 0
ODER 1] DZ []. SETZE "N 2. SETZE "WZ 100
. WH :WZ [SETZE "ZU ZZ :N ( DR :ZU ", )]
. DZ [].ENDE.PR ZUFALL.W. LS DZ []. DZ [
ZUFALLSZAHLEN 1 BIS 6]. WH :100 [WUERFEL
N].ENDE.PR WUERFELN. SETZE "ZU ZZ 6. SET
ZE "W :ZU + 1. ( DR :W ", ).ENDE.PR SECH
SER. LS. DR [WIE OFT SOLL GEWUERFELT WER
DEN ?]. SETZE "WZ ERSTES LL. DZ []. SETZ
E "TREFFERZAHL 0. WH :WZ [WUERFELN ZAEHL
E.TREFFER]. AUSWERTUNG.ENDE.PR ZAEHLE.TR
EFFER. PRUEFE :W = 6. WW SETZE "TREFFERZ
AHL :TREFFERZAHL + 1.ENDE.PR AUSWERTUNG.
DZ [] DZ []. ( DZ [ANZAHL DER WUERFE (W
Z)] :WZ ). ( DZ [ANZAHL DER TREFFER] :TR
EFFERZAHL ). DZ [REL. HAEUFIGKEIT (TREFF
ERZAHL/WZ):]. SETZE "RH :TREFFERZAHL / :
WZ. SETZE "RH ( RUNDE :RH * 1000 ) / 10.
( DZ [RH =] :RH "% ).ENDE.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL