WUERFELSPIEL
FILE INFORMATION
FILENAME(S): WUERFELSPIEL
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-12-02 23:22:45
APPEARS ON: 1 disk(s)
FILE HASH
cf7a73d51f0e757cd551c9697854d12cc2629898e67c33ac05be2b2dc6bfd34e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TOM | WUERFELSPIEL | PRG | swasti, dinkel | 17 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 0A 00 8F 20 57 55 45 52 46 45 4C 53 |..".... WUERFELS|
00000010: 50 49 45 4C 2D 48 41 55 50 54 50 52 4F 47 52 41 |PIEL-HAUPTPROGRA|
00000020: 4D 4D 00 2C 08 14 00 99 20 22 93 22 00 3B 08 1E |MM.,.... ".".;..|
00000030: 00 8F 20 49 48 52 20 57 55 52 46 00 58 08 28 00 |.. IHR WURF.X.(.|
00000040: 8F 20 47 4F 53 55 42 20 57 55 45 52 46 45 4C 4E |. GOSUB WUERFELN|
00000050: 2D 52 4F 55 54 49 4E 45 00 62 08 32 00 8D 20 33 |-ROUTINE.b.2.. 3|
00000060: 30 30 00 6C 08 3C 00 88 20 4D B2 44 00 86 08 46 |00.l.<.. M.D...F|
00000070: 00 99 22 49 48 52 20 45 52 47 45 42 4E 49 53 20 |.."IHR ERGEBNIS |
00000080: 49 53 54 20 41 22 00 A1 08 50 00 8F 20 47 4F 53 |IST A"...P.. GOS|
00000090: 55 42 20 53 45 4C 45 43 54 2D 52 4F 55 54 49 4E |UB SELECT-ROUTIN|
000000A0: 45 00 AB 08 5A 00 8D 20 33 39 30 00 B1 08 64 00 |E...Z.. 390...d.|
000000B0: 99 00 C4 08 6E 00 8F 20 43 4F 4D 50 55 54 45 52 |....n.. COMPUTER|
000000C0: 57 55 52 46 00 E1 08 78 00 8F 20 47 4F 53 55 42 |WURF...x.. GOSUB|
000000D0: 20 57 55 45 52 46 45 4C 4E 2D 52 4F 55 54 49 4E | WUERFELN-ROUTIN|
000000E0: 45 00 EB 08 82 00 8D 20 33 30 30 00 F5 08 8C 00 |E...... 300.....|
000000F0: 88 20 43 B2 44 00 18 09 96 00 99 20 22 44 41 53 |. C.D...... "DAS|
00000100: 20 43 4F 4D 50 55 54 45 52 45 52 47 45 42 4E 49 | COMPUTERERGEBNI|
00000110: 53 20 49 53 54 20 41 22 00 32 09 A0 00 8F 47 4F |S IST A".2....GO|
00000120: 53 55 42 20 53 45 4C 45 43 54 2D 52 4F 55 54 49 |SUB SELECT-ROUTI|
00000130: 4E 45 00 3C 09 AA 00 8D 20 33 39 30 00 42 09 B4 |NE.<.... 390.B..|
00000140: 00 99 00 54 09 BE 00 8F 20 57 45 52 20 47 45 57 |...T.... WER GEW|
00000150: 41 4E 4E 3F 00 76 09 C8 00 8B 20 4D B2 43 20 A7 |ANN?.v.... M.C .|
00000160: 20 88 20 53 24 B2 20 22 55 4E 45 4E 54 53 43 48 | . S$. "UNENTSCH|
00000170: 49 45 44 45 4E 22 00 9D 09 D2 00 8B 20 4D B1 43 |IEDEN"...... M.C|
00000180: 20 A7 20 88 20 53 24 B2 20 22 53 49 45 20 48 41 | . . S$. "SIE HA|
00000190: 42 45 4E 20 47 45 57 4F 4E 4E 45 4E 22 00 C7 09 |BEN GEWONNEN"...|
000001A0: DC 00 8B 20 4D B3 43 20 A7 20 88 20 53 24 B2 20 |... M.C . . S$. |
000001B0: 22 43 4F 4D 50 55 54 45 52 20 48 41 54 20 47 45 |"COMPUTER HAT GE|
000001C0: 57 4F 4E 4E 45 4E 22 00 DC 09 E6 00 8F 20 50 52 |WONNEN"...... PR|
000001D0: 49 4E 54 20 45 52 47 45 42 4E 49 53 00 E5 09 F0 |INT ERGEBNIS....|
000001E0: 00 99 20 53 24 00 EB 09 FA 00 80 00 F1 09 04 01 |.. S$...........|
000001F0: 8F 00 F7 09 0E 01 8F 00 FD 09 18 01 8F 00 03 0A |................|
00000200: 22 01 8F 00 1F 0A 2C 01 8F 20 53 55 42 52 4F 55 |".....,.. SUBROU|
00000210: 54 49 4E 45 20 27 57 55 45 52 46 45 4C 4E 27 00 |TINE 'WUERFELN'.|
00000220: 25 0A 36 01 8F 00 39 0A 40 01 44 20 B2 B5 28 31 |%.6...9.@.D ..(1|
00000230: 30 AC BB 28 31 29 29 AA 31 00 4B 0A 4A 01 8B 20 |0..(1)).1.K.J.. |
00000240: 44 B1 36 20 A7 20 89 20 33 32 30 00 5D 0A 54 01 |D.6 . . 320.].T.|
00000250: 8B 20 44 B3 31 20 A7 20 89 20 33 32 30 00 63 0A |. D.1 . . 320.c.|
00000260: 5E 01 8E 00 69 0A 68 01 8F 00 6F 0A 72 01 8F 00 |^...i.h...o.r...|
00000270: 75 0A 7C 01 8F 00 7B 0A 86 01 8F 00 81 0A 90 01 |u.|...{.........|
00000280: 8F 00 93 0A 9A 01 8B 20 44 B2 31 20 A7 20 8D 20 |....... D.1 . . |
00000290: 35 33 30 00 A5 0A A4 01 8B 20 44 B2 32 20 A7 20 |530...... D.2 . |
000002A0: 8D 20 36 30 30 00 B7 0A AE 01 8B 20 44 B2 33 20 |. 600...... D.3 |
000002B0: A7 20 8D 20 36 37 30 00 C9 0A B8 01 8B 20 44 B2 |. . 670...... D.|
000002C0: 34 20 A7 20 8D 20 37 34 30 00 DB 0A C2 01 8B 20 |4 . . 740...... |
000002D0: 44 B2 35 20 A7 20 8D 20 38 31 30 00 ED 0A CC 01 |D.5 . . 810.....|
000002E0: 8B 20 44 B2 36 20 A7 20 8D 20 38 38 30 00 F3 0A |. D.6 . . 880...|
000002F0: D6 01 8E 00 F9 0A E0 01 8F 00 FF 0A EA 01 8F 00 |................|
00000300: 05 0B F4 01 8F 00 1C 0B FE 01 47 52 41 46 49 4B |..........GRAFIK|
00000310: AB 53 55 42 52 4F 55 54 49 4E 45 4E 00 22 0B 08 |.SUBROUTINEN."..|
00000320: 02 8F 00 37 0B 12 02 99 20 22 20 A5 A3 A3 A3 A3 |...7.... " .....|
00000330: A3 A3 A3 A3 A7 20 22 00 4C 0B 1C 02 99 20 22 20 |..... ".L.... " |
00000340: A5 20 20 20 20 20 20 20 20 A7 20 22 00 61 0B 26 |. . ".a.&|
00000350: 02 99 20 22 20 A5 20 20 20 20 2A 20 20 20 A7 20 |.. " . * . |
00000360: 22 00 76 0B 30 02 99 20 22 20 A5 20 20 20 20 20 |".v.0.. " . |
00000370: 20 20 20 A7 20 22 00 8B 0B 3A 02 99 20 22 20 A5 | . "...:.. " .|
00000380: 20 20 20 20 20 20 20 20 A7 20 22 00 A0 0B 44 02 | . "...D.|
00000390: 99 20 22 20 A5 A4 A4 A4 A4 A4 A4 A4 A4 A7 20 22 |. " .......... "|
000003A0: 00 A6 0B 4E 02 8E 00 BB 0B 58 02 99 20 22 20 A5 |...N.....X.. " .|
000003B0: A3 A3 A3 A3 A3 A3 A3 A3 A7 20 22 00 D0 0B 62 02 |......... "...b.|
000003C0: 99 20 22 20 A5 20 20 20 20 20 20 20 2A A7 20 22 |. " . *. "|
000003D0: 00 E5 0B 6C 02 99 20 22 20 A5 20 20 20 20 20 20 |...l.. " . |
000003E0: 20 20 A7 20 22 00 FA 0B 76 02 99 20 22 20 A5 20 | . "...v.. " . |
000003F0: 20 20 20 20 20 20 20 A7 20 22 00 0F 0C 80 02 99 | . "......|
00000400: 20 22 20 A5 2A 20 20 20 20 20 20 20 A7 20 22 00 | " .* . ".|
00000410: 24 0C 8A 02 99 20 22 20 A5 A4 A4 A4 A4 A4 A4 A4 |$.... " ........|
00000420: A4 A7 20 22 00 2A 0C 94 02 8E 00 3F 0C 9E 02 99 |.. ".*.....?....|
00000430: 20 22 20 A5 A3 A3 A3 A3 A3 A3 A3 A3 A7 20 22 00 | " .......... ".|
00000440: 54 0C A8 02 99 20 22 20 A5 20 20 20 20 20 20 20 |T.... " . |
00000450: 2A A7 20 22 00 69 0C B2 02 99 20 22 20 A5 20 20 |*. ".i.... " . |
00000460: 20 20 2A 20 20 20 A7 20 22 00 7E 0C BC 02 99 20 | * . ".~.... |
00000470: 22 20 A5 20 20 20 20 20 20 20 20 A7 20 22 00 93 |" . . "..|
00000480: 0C C6 02 99 20 22 20 A5 20 2A 20 20 20 20 20 20 |.... " . * |
00000490: A7 20 22 00 A8 0C D0 02 99 20 22 20 A5 A4 A4 A4 |. "...... " ....|
000004A0: A4 A4 A4 A4 A4 A7 20 22 00 AE 0C DA 02 8E 00 C3 |...... "........|
000004B0: 0C E4 02 99 20 22 20 A5 A3 A3 A3 A3 A3 A3 A3 A3 |.... " .........|
000004C0: A7 20 22 00 D8 0C EE 02 99 20 22 20 A5 2A 20 20 |. "...... " .* |
000004D0: 20 20 20 20 2A A7 20 22 00 ED 0C F8 02 99 20 22 | *. "...... "|
000004E0: 20 A5 20 20 20 20 20 20 20 20 A7 20 22 00 02 0D | . . "...|
000004F0: 02 03 99 20 22 20 A5 20 20 20 20 20 20 20 20 A7 |... " . .|
00000500: 20 22 00 17 0D 0C 03 99 20 22 20 A5 2A 20 20 20 | "...... " .* |
00000510: 20 20 20 2A A7 20 22 00 2C 0D 16 03 99 20 22 20 | *. ".,.... " |
00000520: A5 A4 A4 A4 A4 A4 A4 A4 A4 A7 20 22 00 32 0D 20 |.......... ".2. |
00000530: 03 8E 00 47 0D 2A 03 99 20 22 20 A5 A3 A3 A3 A3 |...G.*.. " .....|
00000540: A3 A3 A3 A3 A7 20 22 00 5C 0D 34 03 99 20 22 20 |..... ".\.4.. " |
00000550: A5 2A 20 20 A0 20 20 20 2A A7 20 22 00 71 0D 3E |.* . *. ".q.>|
00000560: 03 99 20 22 20 A5 20 20 20 20 20 20 20 20 A7 20 |.. " . . |
00000570: 22 00 86 0D 48 03 99 20 22 20 A5 20 20 20 20 2A |"...H.. " . *|
00000580: 20 20 20 A7 20 22 00 9B 0D 52 03 99 20 22 20 A5 | . "...R.. " .|
00000590: 2A 20 20 20 20 20 20 2A A7 20 22 00 B0 0D 5C 03 |* *. "...\.|
000005A0: 99 20 22 20 A5 A4 A4 A4 A4 A4 A4 A4 A4 A7 20 22 |. " .......... "|
000005B0: 00 B6 0D 66 03 8E 00 CB 0D 70 03 99 20 22 20 A5 |...f.....p.. " .|
000005C0: A3 A3 A3 A3 A3 A3 A3 A3 A7 20 22 00 E0 0D 7A 03 |......... "...z.|
000005D0: 99 20 22 20 A5 20 20 20 20 20 20 20 20 A7 20 22 |. " . . "|
000005E0: 00 F5 0D 84 03 99 20 22 20 A5 2A 20 20 20 20 20 |...... " .* |
000005F0: 20 2A A7 20 22 00 0A 0E 8E 03 99 20 22 20 A5 2A | *. "...... " .*|
00000600: 20 20 20 20 20 20 2A A7 20 22 00 1F 0E 98 03 99 | *. "......|
00000610: 20 22 20 A5 2A 20 20 20 20 20 20 2A A7 20 22 00 | " .* *. ".|
00000620: 34 0E A2 03 99 20 22 20 A5 A4 A4 A4 A4 A4 A4 A4 |4.... " ........|
00000630: A4 A7 20 22 00 3A 0E AC 03 8E 00 00 00 |.. ".:....... |
..".... WUERFELSPIEL-HAUPTPROGRAMM.,....
".".;.... IHR WURF.X.(.. GOSUB WUERFELN
-ROUTINE.B.2.. 300.L.<.. M.D...F.."IHR E
RGEBNIS IST A"...P.. GOSUB SELECT-ROUTIN
E...Z.. 390...D...D.N.. COMPUTERWURF...X
.. GOSUB WUERFELN-ROUTINE...... 300.....
. C.D...... "DAS COMPUTERERGEBNIS IST A"
.2. ..GOSUB SELECT-ROUTINE.<.... 390.B..
...T.... WER GEWANN?.V.H.. M.C . . S$. "
UNENTSCHIEDEN"...R.. M.C . . S$. "SIE HA
BEN GEWONNEN".G.... M.C . . S$. "COMPUTE
R HAT GEWONNEN"...... PRINT ERGEBNIS....
.. S$...........................".....,.
. SUBROUTINE 'WUERFELN'.%.6...9.@.D ..(1
0..(1)).1.K.J.. D.6 . . 320.].T.. D.1 .
. 320.C.^...I.H...O.R...U.|...{.........
....... D.1 . . 530...... D.2 . . 600...
... D.3 . . 670.I.... D.4 . . 740...B..
D.5 . . 810...L.. D.6 . . 880...V.......
..................GRAFIK.SUBROUTINEN."..
...7.... " .......... ".L.... " .
. ".A.&.. " . * . ".V.0.. " .
. "...:.. " . . ". .D.. " ....
...... "...N.....X.. " .......... ".P.B.
. " . *. "...L.. " . . "...
V.. " . . "...... " .* . ".
$.... " .......... ".*.....?.... " .....
..... ".T.... " . *. ".I.... " .
* . ".~.... " . . "...F.. " .
* . "...P.. " .......... "...Z...C
.... " .......... ".X.... " .* *. "
...... " . . "...... " . .
"...... " .* *. ".,.... " ........
.. ".2. ...G.*.. " .......... ".\.4.. "
.* *. ".Q.>.. " . . "...H..
" . * . "...R.. " .* *. "...\.
. " .......... "...F...K.P.. " .........
. "...Z.. " . . "...... " .*
*. "...... " .* *. "...... " .*
*. ".4.... " .......... ".:.......
> CLICK IMAGE PREVIEW FOR FULL MODAL