00000000: 00 20 50 52 20 45 52 53 54 45 2E 36 0D 20 4C 53 |. PR ERSTE.6. LS|
00000010: 20 44 5A 20 5B 57 55 45 52 46 45 4C 4E 20 42 49 | DZ [WUERFELN BI|
00000020: 53 20 5A 55 52 20 36 5D 0D 20 44 52 20 5B 57 49 |S ZUR 6]. DR [WI|
00000030: 45 56 49 45 4C 20 56 45 52 53 55 43 48 45 3F 20 |EVIEL VERSUCHE? |
00000040: 57 5A 3D 5D 0D 20 53 45 54 5A 45 20 22 57 5A 20 |WZ=]. SETZE "WZ |
00000050: 45 52 53 54 45 53 20 4C 4C 0D 20 44 5A 20 5B 5D |ERSTES LL. DZ []|
00000060: 20 53 45 54 5A 45 20 22 4E 52 20 30 20 53 45 54 | SETZE "NR 0 SET|
00000070: 5A 45 20 22 53 55 20 30 0D 20 57 48 20 3A 57 5A |ZE "SU 0. WH :WZ|
00000080: 20 5B 57 55 45 52 46 45 4C 4E 2E 42 49 53 2E 36 | [WUERFELN.BIS.6|
00000090: 20 44 5A 20 5B 5D 5D 0D 20 53 45 54 5A 45 20 22 | DZ []]. SETZE "|
000000A0: 4D 20 3A 53 55 20 2F 20 3A 57 5A 0D 20 53 45 54 |M :SU / :WZ. SET|
000000B0: 5A 45 20 22 4D 47 20 28 20 52 55 4E 44 45 20 31 |ZE "MG ( RUNDE 1|
000000C0: 30 20 2A 20 3A 4D 20 29 20 2F 20 31 30 0D 20 44 |0 * :M ) / 10. D|
000000D0: 5A 20 5B 5D 20 28 20 44 5A 20 5B 42 49 53 20 36 |Z [] ( DZ [BIS 6|
000000E0: 20 4D 49 54 54 4C 45 52 45 20 44 41 55 45 52 5D | MITTLERE DAUER]|
000000F0: 20 3A 4D 47 20 29 0D 45 4E 44 45 0D 50 52 20 57 | :MG ).ENDE.PR W|
00000100: 55 45 52 46 45 4C 4E 2E 42 49 53 2E 36 0D 20 53 |UERFELN.BIS.6. S|
00000110: 45 54 5A 45 20 22 4E 52 20 3A 4E 52 20 2B 20 31 |ETZE "NR :NR + 1|
00000120: 20 53 45 54 5A 45 20 22 5A 20 30 0D 20 28 20 44 | SETZE "Z 0. ( D|
00000130: 5A 20 5B 56 45 52 53 55 43 48 20 4E 52 2E 5D 20 |Z [VERSUCH NR.] |
00000140: 3A 4E 52 20 29 0D 20 57 55 45 52 46 45 4C 4E 3A |:NR ). WUERFELN:|
00000150: 0D 20 53 45 54 5A 45 20 22 5A 55 20 28 20 31 20 |. SETZE "ZU ( 1 |
00000160: 2B 20 5A 5A 20 36 20 29 0D 20 28 20 44 52 20 3A |+ ZZ 6 ). ( DR :|
00000170: 5A 55 20 22 2C 20 29 0D 20 53 45 54 5A 45 20 22 |ZU ", ). SETZE "|
00000180: 5A 20 3A 5A 20 2B 20 31 0D 20 57 45 4E 4E 20 3A |Z :Z + 1. WENN :|
00000190: 5A 55 20 3C 20 36 20 47 45 48 45 20 22 57 55 45 |ZU < 6 GEHE "WUE|
000001A0: 52 46 45 4C 4E 0D 20 53 45 54 5A 45 20 22 53 55 |RFELN. SETZE "SU|
000001B0: 20 3A 53 55 20 2B 20 3A 5A 20 44 5A 20 5B 5D 0D | :SU + :Z DZ [].|
000001C0: 20 28 20 44 5A 20 5B 47 45 42 52 41 55 43 48 54 | ( DZ [GEBRAUCHT|
000001D0: 20 57 55 52 44 45 4E 5D 20 3A 5A 20 5B 57 55 45 | WURDEN] :Z [WUE|
000001E0: 52 46 45 5D 20 29 0D 45 4E 44 45 0D |RFE] ).ENDE. |
. PR ERSTE.6. LS DZ [WUERFELN BIS ZUR 6]
. DR [WIEVIEL VERSUCHE? WZ=]. SETZE "WZ
ERSTES LL. DZ [] SETZE "NR 0 SETZE "SU 0
. WH :WZ [WUERFELN.BIS.6 DZ []]. SETZE "
M :SU / :WZ. SETZE "MG ( RUNDE 10 * :M )
/ 10. DZ [] ( DZ [BIS 6 MITTLERE DAUER]
:MG ).ENDE.PR WUERFELN.BIS.6. SETZE "NR
:NR + 1 SETZE "Z 0. ( DZ [VERSUCH NR.]
:NR ). WUERFELN:. SETZE "ZU ( 1 + ZZ 6 )
. ( DR :ZU ", ). SETZE "Z :Z + 1. WENN :
ZU < 6 GEHE "WUERFELN. SETZE "SU :SU + :
Z DZ []. ( DZ [GEBRAUCHT WURDEN] :Z [WUE
RFE] ).ENDE.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL