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

ZUFALL.DREIECK.L

FILE INFORMATION

FILENAME(S): ZUFALL.DREIECK.L

FILE TYPE(S): SEQ

FILE SIZE: 633b

FIRST SEEN: 2025-11-30 01:08:01

APPEARS ON: 6 disk(s)

FILE HASH

90b44a18740e1b4647751da8d2d484c28f7664a354d35526d6e801d84e1662d8

FOUND ON DISKS (6 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C OMAL ZUFALL.DREIECK.L SEQ Treasure Chest - Wolfgang Rauprich 7 17 DOWNLOAD FILE
FREEWARE DISK NR ZUFALL.DREIECK.L SEQ Treasure Chest - Wolfgang Rauprich 7 17 DOWNLOAD FILE
COMAL 0 14 ZUFALL.DREIECK.L SEQ Treasure Chest - Wolfgang Rauprich 6 9 DOWNLOAD FILE
C OMAL 0 14 ZUFALL.DREIECK.L SEQ Treasure Chest - Wolfgang Rauprich 6 9 DOWNLOAD FILE
C OMAL ZUFALL.DREIECK.L SEQ Treasure Chest - Wolfgang Rauprich 7 17 DOWNLOAD FILE
FREESOFT DISK NR ZUFALL.DREIECK.L SEQ Treasure Chest - Wolfgang Rauprich 7 17 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 31 30 30 20 2F 2F 20  5A 55 46 41 4C 4C 53 44  |0100 // ZUFALLSD|
00000010: 52 45 49 45 43 4B 45 20  28 C2 41 55 4D 41 4E 4E  |REIECKE (.AUMANN|
00000020: 29 0D 30 31 31 30 20 2F  2F 0D 30 31 32 30 20 50  |).0110 //.0120 P|
00000030: 52 4F 43 20 53 45 49 54  45 4E 57 41 48 4C 28 52  |ROC SEITENWAHL(R|
00000040: 45 46 20 41 2C 52 45 46  20 42 29 20 0D 30 31 34  |EF A,REF B) .014|
00000050: 30 20 41 3A 3D 52 4E 44  28 32 29 3B 20 42 3A 3D  |0 A:=RND(2); B:=|
00000060: 52 4E 44 28 32 29 0D 30  31 35 30 20 49 46 20 41  |RND(2).0150 IF A|
00000070: 3E 42 20 54 48 45 4E 20  48 3A 3D 41 3B 20 41 3A  |>B THEN H:=A; A:|
00000080: 3D 42 3B 20 42 3A 3D 48  0D 30 31 36 30 20 45 4E  |=B; B:=H.0160 EN|
00000090: 44 50 52 4F 43 20 53 45  49 54 45 4E 57 41 48 4C  |DPROC SEITENWAHL|
000000A0: 0D 30 31 37 30 20 2F 2F  0D 30 31 38 30 20 46 55  |.0170 //.0180 FU|
000000B0: 4E 43 20 44 52 45 49 45  43 4B 28 41 2C 42 29 20  |NC DREIECK(A,B) |
000000C0: 43 4C 4F 53 45 44 20 2F  2F 20 42 4F 4F 4C 45 53  |CLOSED // BOOLES|
000000D0: 43 48 45 20 C6 4B 54 2E  0D 30 31 39 30 20 49 46  |CHE .KT..0190 IF|
000000E0: 20 41 3C 2E 35 20 41 4E  44 20 42 3E 2E 35 20 41  | A<.5 AND B>.5 A|
000000F0: 4E 44 20 42 2D 41 3C 2E  35 20 54 48 45 4E 0D 30  |ND B-A<.5 THEN.0|
00000100: 32 31 30 20 52 45 54 55  52 4E 20 54 52 55 45 0D  |210 RETURN TRUE.|
00000110: 30 32 32 30 20 45 4C 53  45 20 0D 30 32 33 30 20  |0220 ELSE .0230 |
00000120: 52 45 54 55 52 4E 20 46  41 4C 53 45 0D 30 32 34  |RETURN FALSE.024|
00000130: 30 20 45 4E 44 49 46 20  0D 30 32 35 30 20 45 4E  |0 ENDIF .0250 EN|
00000140: 44 46 55 4E 43 20 44 52  45 49 45 43 4B 0D 30 33  |DFUNC DREIECK.03|
00000150: 30 30 20 2F 2F 20 48 41  55 50 54 50 52 4F 47 52  |00 // HAUPTPROGR|
00000160: 41 4D 4D 0D 30 33 30 35  20 54 52 41 50 20 45 53  |AMM.0305 TRAP ES|
00000170: 43 2D 0D 30 33 31 30 20  49 4E 50 55 54 20 22 D7  |C-.0310 INPUT ".|
00000180: 49 45 56 49 45 4C 20 C5  58 50 45 52 49 4D 45 4E  |IEVIEL .XPERIMEN|
00000190: 54 45 20 22 3A 20 4E 0D  30 33 31 35 20 52 45 50  |TE ": N.0315 REP|
000001A0: 45 41 54 20 0D 30 33 32  30 20 47 55 45 4E 53 54  |EAT .0320 GUENST|
000001B0: 49 47 3A 3D 30 0D 30 33  33 30 20 46 4F 52 20 49  |IG:=0.0330 FOR I|
000001C0: 3A 3D 31 20 54 4F 20 4E  20 44 4F 0D 30 33 34 30  |:=1 TO N DO.0340|
000001D0: 20 53 45 49 54 45 4E 57  41 48 4C 28 58 2C 59 29  | SEITENWAHL(X,Y)|
000001E0: 0D 30 33 35 30 20 49 46  20 44 52 45 49 45 43 4B  |.0350 IF DREIECK|
000001F0: 28 58 2C 59 29 20 54 48  45 4E 20 47 55 45 4E 53  |(X,Y) THEN GUENS|
00000200: 54 49 47 3A 2B 31 0D 30  33 36 30 20 45 4E 44 46  |TIG:+1.0360 ENDF|
00000210: 4F 52 20 49 0D 30 33 38  30 20 50 52 49 4E 54 20  |OR I.0380 PRINT |
00000220: 22 C7 55 45 4E 53 54 49  47 45 20 C6 41 45 4C 4C  |".UENSTIGE .AELL|
00000230: 45 3A 22 3B 0D 30 33 39  30 20 50 52 49 4E 54 20  |E:";.0390 PRINT |
00000240: 55 53 49 4E 47 20 22 23  23 2E 23 20 25 22 3A 20  |USING "##.# %": |
00000250: 31 30 30 2A 47 55 45 4E  53 54 49 47 2F 4E 0D 30  |100*GUENSTIG/N.0|
00000260: 33 39 35 20 55 4E 54 49  4C 20 45 53 43 0D 30 34  |395 UNTIL ESC.04|
00000270: 30 30 20 45 4E 44 20 0D  F0                       |00 END ..       |

0100 // ZUFALLSDREIECKE (BAUMANN).0110 /
/.0120 PROC SEITENWAHL(REF A,REF B) .014
0 A:=RND(2); B:=RND(2).0150 IF A>B THEN 
H:=A; A:=B; B:=H.0160 ENDPROC SEITENWAHL
.0170 //.0180 FUNC DREIECK(A,B) CLOSED /
/ BOOLESCHE FKT..0190 IF A<.5 AND B>.5 A
ND B-A<.5 THEN.0210 RETURN TRUE.0220 ELS
E .0230 RETURN FALSE.0240 ENDIF .0250 EN
DFUNC DREIECK.0300 // HAUPTPROGRAMM.0305
 TRAP ESC-.0310 INPUT "WIEVIEL EXPERIMEN
TE ": N.0315 REPEAT .0320 GUENSTIG:=0.03
30 FOR I:=1 TO N DO.0340 SEITENWAHL(X,Y)
.0350 IF DREIECK(X,Y) THEN GUENSTIG:+1.0
360 ENDFOR I.0380 PRINT "GUENSTIGE FAELL
E:";.0390 PRINT USING "##.# %": 100*GUEN
STIG/N.0395 UNTIL ESC.0400 END ..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL