GLUECKSRAD

FILE INFORMATION

FILENAME(S): GLUECKSRAD

FILE TYPE(S): SEQ

FILE SIZE: 2.2K

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

APPEARS ON: 6 disk(s)

FILE HASH

5ba513a1f1bcfb1c3bd6322663b255fac3204fa413a8954d633d5bcfe8ed948d

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C OMAL	GLUECKSRAD	SEQ	Treasure Chest - Wolfgang Rauprich	27	13	DOWNLOAD FILE
FREEWARE DISK NR	GLUECKSRAD	SEQ	Treasure Chest - Wolfgang Rauprich	27	13	DOWNLOAD FILE
COMAL 0 14	GLUECKSRAD	SEQ	Treasure Chest - Wolfgang Rauprich	8	3	DOWNLOAD FILE
C OMAL 0 14	GLUECKSRAD	SEQ	Treasure Chest - Wolfgang Rauprich	8	3	DOWNLOAD FILE
C OMAL	GLUECKSRAD	SEQ	Treasure Chest - Wolfgang Rauprich	27	13	DOWNLOAD FILE
FREESOFT DISK NR	GLUECKSRAD	SEQ	Treasure Chest - Wolfgang Rauprich	27	13	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 50  52 4F 47 52 41 4D 3A 20  |0010 //PROGRAM: |
00000010: 47 4C 55 45 43 4B 53 52  41 44 2F 2F 0D 0A 30 30  |GLUECKSRAD//..00|
00000020: 32 30 20 2F 2F 0D 0A 30  30 33 30 20 44 49 4D 20  |20 //..0030 DIM |
00000030: 46 41 52 42 45 24 20 4F  46 20 31 30 2C 20 54 49  |FARBE$ OF 10, TI|
00000040: 50 24 20 4F 46 20 31 30  0D 0A 30 30 34 30 20 44  |P$ OF 10..0040 D|
00000050: 49 4D 20 41 4E 54 57 24  20 4F 46 20 33 2C 20 4C  |IM ANTW$ OF 3, L|
00000060: 45 47 41 4C 24 20 4F 46  20 33 30 0D 0A 30 30 35  |EGAL$ OF 30..005|
00000070: 30 20 4C 45 47 41 4C 24  3A 3D 22 2E 52 4F 54 2E  |0 LEGAL$:=".ROT.|
00000080: 47 45 4C 42 2E 47 52 55  45 4E 2E 42 4C 41 55 2E  |GELB.GRUEN.BLAU.|
00000090: 22 0D 0A 30 30 36 30 20  52 45 50 45 41 54 20 0D  |"..0060 REPEAT .|
000000A0: 0A 30 30 37 30 20 57 45  54 54 45 4E 0D 0A 30 30  |.0070 WETTEN..00|
000000B0: 38 30 20 47 4C 55 45 43  4B 53 52 41 44 0D 0A 30  |80 GLUECKSRAD..0|
000000C0: 30 39 30 20 52 45 53 55  4C 54 41 54 0D 0A 30 31  |090 RESULTAT..01|
000000D0: 30 30 20 55 4E 54 49 4C  20 41 4E 48 41 4C 54 45  |00 UNTIL ANHALTE|
000000E0: 4E 0D 0A 30 31 31 30 20  2F 2F 0D 0A 30 31 32 30  |N..0110 //..0120|
000000F0: 20 50 52 4F 43 20 47 4C  55 45 43 4B 53 52 41 44  | PROC GLUECKSRAD|
00000100: 20 0D 0A 30 31 33 30 20  41 55 53 46 41 4C 4C 3A  | ..0130 AUSFALL:|
00000110: 3D 52 4E 44 28 31 2C 31  35 29 0D 0A 30 31 34 30  |=RND(1,15)..0140|
00000120: 20 43 41 53 45 20 41 55  53 46 41 4C 4C 20 4F 46  | CASE AUSFALL OF|
00000130: 0D 0A 30 31 35 30 20 57  48 45 4E 20 31 2C 33 2C  |..0150 WHEN 1,3,|
00000140: 36 2C 39 2C 31 32 2C 31  35 0D 0A 30 31 36 30 20  |6,9,12,15..0160 |
00000150: 46 41 52 42 45 24 3A 3D  22 52 4F 54 22 0D 0A 30  |FARBE$:="ROT"..0|
00000160: 31 37 30 20 46 41 4B 54  4F 52 3A 3D 31 2E 35 0D  |170 FAKTOR:=1.5.|
00000170: 0A 30 31 38 30 20 57 48  45 4E 20 32 2C 35 2C 38  |.0180 WHEN 2,5,8|
00000180: 2C 31 31 2C 31 34 0D 0A  30 31 39 30 20 46 41 52  |,11,14..0190 FAR|
00000190: 42 45 24 3A 3D 22 47 45  4C 42 22 0D 0A 30 32 30  |BE$:="GELB"..020|
000001A0: 30 20 46 41 4B 54 4F 52  3A 3D 32 0D 0A 30 32 31  |0 FAKTOR:=2..021|
000001B0: 30 20 57 48 45 4E 20 34  2C 31 30 2C 31 33 0D 0A  |0 WHEN 4,10,13..|
000001C0: 30 32 32 30 20 46 41 52  42 45 24 3A 3D 22 47 52  |0220 FARBE$:="GR|
000001D0: 55 45 4E 22 0D 0A 30 32  33 30 20 46 41 4B 54 4F  |UEN"..0230 FAKTO|
000001E0: 52 3A 3D 33 0D 0A 30 32  34 30 20 57 48 45 4E 20  |R:=3..0240 WHEN |
000001F0: 37 0D 0A 30 32 35 30 20  46 41 52 42 45 24 3A 3D  |7..0250 FARBE$:=|
00000200: 22 42 4C 41 55 22 0D 0A  30 32 36 30 20 46 41 4B  |"BLAU"..0260 FAK|
00000210: 54 4F 52 3A 3D 39 0D 0A  30 32 37 30 20 45 4E 44  |TOR:=9..0270 END|
00000220: 43 41 53 45 20 0D 0A 30  32 38 30 20 5A 45 49 47  |CASE ..0280 ZEIG|
00000230: 45 4E 28 46 41 52 42 45  24 29 0D 0A 30 32 39 30  |EN(FARBE$)..0290|
00000240: 20 45 4E 44 50 52 4F 43  20 47 4C 55 45 43 4B 53  | ENDPROC GLUECKS|
00000250: 52 41 44 0D 0A 30 33 30  30 20 2F 2F 0D 0A 30 33  |RAD..0300 //..03|
00000260: 31 30 20 50 52 4F 43 20  57 45 54 54 45 4E 20 0D  |10 PROC WETTEN .|
00000270: 0A 30 33 32 30 20 44 52  55 43 4B 41 4E 46 41 4E  |.0320 DRUCKANFAN|
00000280: 47 28 38 29 0D 0A 30 33  33 30 20 50 52 49 4E 54  |G(8)..0330 PRINT|
00000290: 20 22 57 45 4C 43 48 45  20 46 41 52 42 45 22 2C  | "WELCHE FARBE",|
000002A0: 0D 0A 30 33 34 30 20 49  4E 50 55 54 20 54 49 50  |..0340 INPUT TIP|
000002B0: 24 0D 0A 30 33 35 30 20  57 48 49 4C 45 20 4E 4F  |$..0350 WHILE NO|
000002C0: 54 20 22 2E 22 2B 54 49  50 24 2B 22 2E 22 20 49  |T "."+TIP$+"." I|
000002D0: 4E 20 4C 45 47 41 4C 24  20 44 4F 0D 0A 30 33 36  |N LEGAL$ DO..036|
000002E0: 30 20 44 52 55 43 4B 41  4E 46 41 4E 47 28 38 29  |0 DRUCKANFANG(8)|
000002F0: 0D 0A 30 33 37 30 20 50  52 49 4E 54 20 22 4E 55  |..0370 PRINT "NU|
00000300: 52 20 28 52 4F 54 2C 47  45 4C 42 2C 47 52 55 45  |R (ROT,GELB,GRUE|
00000310: 4E 2C 42 4C 41 55 29 20  53 49 4E 44 20 4D 4F 45  |N,BLAU) SIND MOE|
00000320: 47 4C 49 43 48 21 22 0D  0A 30 33 38 30 20 50 52  |GLICH!"..0380 PR|
00000330: 49 4E 54 20 22 4E 55 4E  2C 20 57 45 4C 43 48 45  |INT "NUN, WELCHE|
00000340: 20 46 41 52 42 45 20 53  4F 4C 4C 20 45 53 20 53  | FARBE SOLL ES S|
00000350: 45 49 4E 22 2C 0D 0A 30  33 39 30 20 49 4E 50 55  |EIN",..0390 INPU|
00000360: 54 20 54 49 50 24 0D 0A  30 34 30 30 20 45 4E 44  |T TIP$..0400 END|
00000370: 57 48 49 4C 45 20 0D 0A  30 34 31 30 20 44 52 55  |WHILE ..0410 DRU|
00000380: 43 4B 41 4E 46 41 4E 47  28 38 29 0D 0A 30 34 32  |CKANFANG(8)..042|
00000390: 30 20 50 52 49 4E 54 20  22 57 49 45 20 48 4F 43  |0 PRINT "WIE HOC|
000003A0: 48 20 53 4F 4C 4C 20 44  45 52 20 45 49 4E 53 41  |H SOLL DER EINSA|
000003B0: 54 5A 20 53 45 49 4E 22  2C 0D 0A 30 34 33 30 20  |TZ SEIN",..0430 |
000003C0: 49 4E 50 55 54 20 45 49  4E 53 41 54 5A 0D 0A 30  |INPUT EINSATZ..0|
000003D0: 34 34 30 20 57 48 49 4C  45 20 45 49 4E 53 41 54  |440 WHILE EINSAT|
000003E0: 5A 3C 31 30 20 44 4F 0D  0A 30 34 35 30 20 44 52  |Z<10 DO..0450 DR|
000003F0: 55 43 4B 41 4E 46 41 4E  47 28 38 29 0D 0A 30 34  |UCKANFANG(8)..04|
00000400: 36 30 20 50 52 49 4E 54  20 22 53 45 49 4E 20 53  |60 PRINT "SEIN S|
00000410: 49 45 20 4E 49 43 48 54  20 53 4F 20 47 45 49 5A  |IE NICHT SO GEIZ|
00000420: 49 47 21 22 0D 0A 30 34  37 30 20 50 52 49 4E 54  |IG!"..0470 PRINT|
00000430: 20 22 57 45 4E 49 47 45  52 20 41 4C 53 20 31 30  | "WENIGER ALS 10|
00000440: 20 50 46 45 4E 4E 49 47  45 22 0D 0A 30 34 37 35  | PFENNIGE"..0475|
00000450: 20 50 52 49 4E 54 20 22  57 45 52 44 45 4E 20 4E  | PRINT "WERDEN N|
00000460: 49 43 48 54 20 41 4E 47  45 4E 4F 4D 4D 45 4E 21  |ICHT ANGENOMMEN!|
00000470: 22 0D 0A 30 34 38 30 20  50 52 49 4E 54 20 22 4E  |"..0480 PRINT "N|
00000480: 4F 43 48 20 45 49 4E 4D  41 4C 2C 20 57 49 45 20  |OCH EINMAL, WIE |
00000490: 48 4F 43 48 22 0D 0A 30  34 38 35 20 50 52 49 4E  |HOCH"..0485 PRIN|
000004A0: 54 20 22 53 4F 4C 4C 20  44 45 52 20 45 49 4E 53  |T "SOLL DER EINS|
000004B0: 41 54 5A 20 53 45 49 4E  22 2C 0D 0A 30 34 39 30  |ATZ SEIN",..0490|
000004C0: 20 49 4E 50 55 54 20 45  49 4E 53 41 54 5A 0D 0A  | INPUT EINSATZ..|
000004D0: 30 35 30 30 20 45 4E 44  57 48 49 4C 45 20 0D 0A  |0500 ENDWHILE ..|
000004E0: 30 35 31 30 20 45 4E 44  50 52 4F 43 20 57 45 54  |0510 ENDPROC WET|
000004F0: 54 45 4E 0D 0A 30 35 32  30 20 2F 2F 0D 0A 30 35  |TEN..0520 //..05|
00000500: 33 30 20 50 52 4F 43 20  52 45 53 55 4C 54 41 54  |30 PROC RESULTAT|
00000510: 20 0D 0A 30 35 34 30 20  44 52 55 43 4B 41 4E 46  | ..0540 DRUCKANF|
00000520: 41 4E 47 28 38 29 0D 0A  30 35 35 30 20 49 46 20  |ANG(8)..0550 IF |
00000530: 54 49 50 24 3D 46 41 52  42 45 24 20 54 48 45 4E  |TIP$=FARBE$ THEN|
00000540: 0D 0A 30 35 36 30 20 50  52 49 4E 54 20 22 48 55  |..0560 PRINT "HU|
00000550: 52 52 41 2C 20 53 49 45  20 48 41 42 45 4E 20 47  |RRA, SIE HABEN G|
00000560: 45 57 4F 4E 4E 45 4E 21  22 0D 0A 30 35 37 30 20  |EWONNEN!"..0570 |
00000570: 50 52 49 4E 54 20 22 53  49 45 20 48 41 42 45 4E  |PRINT "SIE HABEN|
00000580: 20 22 2C 45 49 4E 53 41  54 5A 2C 22 20 50 46 45  | ",EINSATZ," PFE|
00000590: 4E 4E 49 47 45 20 47 45  53 45 54 5A 54 2C 22 0D  |NNIGE GESETZT,".|
000005A0: 0A 30 35 38 30 20 50 52  49 4E 54 20 22 41 4C 53  |.0580 PRINT "ALS|
000005B0: 4F 20 45 52 48 41 4C 54  45 4E 20 53 49 45 20 22  |O ERHALTEN SIE "|
000005C0: 2C 45 49 4E 53 41 54 5A  2A 46 41 4B 54 4F 52 2C  |,EINSATZ*FAKTOR,|
000005D0: 22 20 50 46 45 4E 4E 49  47 45 2E 22 0D 0A 30 35  |" PFENNIGE."..05|
000005E0: 39 30 20 45 4C 53 45 20  0D 0A 30 36 30 30 20 50  |90 ELSE ..0600 P|
000005F0: 52 49 4E 54 20 22 54 55  54 20 4D 49 52 20 4C 45  |RINT "TUT MIR LE|
00000600: 49 44 2C 20 53 49 45 20  48 41 42 45 4E 22 0D 0A  |ID, SIE HABEN"..|
00000610: 30 36 30 35 20 50 52 49  4E 54 20 45 49 4E 53 41  |0605 PRINT EINSA|
00000620: 54 5A 2C 22 20 50 46 45  4E 4E 49 47 45 20 56 45  |TZ," PFENNIGE VE|
00000630: 52 4C 4F 52 45 4E 2E 22  0D 0A 30 36 31 30 20 50  |RLOREN."..0610 P|
00000640: 52 49 4E 54 20 22 53 49  43 48 45 52 20 48 41 42  |RINT "SICHER HAB|
00000650: 45 4E 20 53 49 45 20 42  45 49 4D 22 0D 0A 30 36  |EN SIE BEIM"..06|
00000660: 31 35 20 50 52 49 4E 54  20 22 4E 41 45 43 48 53  |15 PRINT "NAECHS|
00000670: 54 45 4E 20 4D 41 4C 20  4D 45 48 52 20 47 4C 55  |TEN MAL MEHR GLU|
00000680: 45 43 4B 21 22 0D 0A 30  36 32 30 20 45 4E 44 49  |ECK!"..0620 ENDI|
00000690: 46 20 0D 0A 30 36 33 30  20 46 4F 52 20 49 3A 3D  |F ..0630 FOR I:=|
000006A0: 31 20 54 4F 20 35 20 44  4F 20 50 52 49 4E 54 20  |1 TO 5 DO PRINT |
000006B0: 20 2F 2F 35 20 5A 45 49  4C 45 4E 20 41 42 57 41  | //5 ZEILEN ABWA|
000006C0: 45 52 54 53 0D 0A 30 36  34 30 20 49 4E 50 55 54  |ERTS..0640 INPUT|
000006D0: 20 22 53 50 49 45 4C 45  4E 20 53 49 45 20 4E 4F  | "SPIELEN SIE NO|
000006E0: 43 48 20 45 49 4E 4D 41  4C 20 28 4A 2F 4E 29 3F  |CH EINMAL (J/N)?|
000006F0: 20 22 3A 20 41 4E 54 57  24 0D 0A 30 36 35 30 20  | ": ANTW$..0650 |
00000700: 41 4E 48 41 4C 54 45 4E  3A 3D 41 4E 54 57 24 3D  |ANHALTEN:=ANTW$=|
00000710: 22 4E 22 0D 0A 30 36 36  30 20 45 4E 44 50 52 4F  |"N"..0660 ENDPRO|
00000720: 43 20 52 45 53 55 4C 54  41 54 0D 0A 30 36 37 30  |C RESULTAT..0670|
00000730: 20 2F 2F 0D 0A 30 36 38  30 20 50 52 4F 43 20 5A  | //..0680 PROC Z|
00000740: 45 49 47 45 4E 28 43 24  29 20 0D 0A 30 36 39 30  |EIGEN(C$) ..0690|
00000750: 20 46 4F 52 20 49 3A 3D  31 20 54 4F 20 35 20 44  | FOR I:=1 TO 5 D|
00000760: 4F 0D 0A 30 37 30 30 20  44 52 55 43 4B 41 4E 46  |O..0700 DRUCKANF|
00000770: 41 4E 47 28 38 29 0D 0A  30 37 31 30 20 50 52 49  |ANG(8)..0710 PRI|
00000780: 4E 54 20 22 2A 2A 2A 2A  2A 2A 2A 20 22 2C 43 24  |NT "******* ",C$|
00000790: 2C 22 20 47 45 57 49 4E  4E 54 20 2A 2A 2A 2A 2A  |," GEWINNT *****|
000007A0: 2A 2A 22 0D 0A 30 37 32  30 20 46 4F 52 20 54 3A  |**"..0720 FOR T:|
000007B0: 3D 31 20 54 4F 20 31 30  30 20 44 4F 20 41 54 54  |=1 TO 100 DO ATT|
000007C0: 52 41 50 45 3A 3D 30 20  2F 2F 57 41 52 54 45 4E  |RAPE:=0 //WARTEN|
000007D0: 0D 0A 30 37 33 30 20 4E  45 58 54 20 49 0D 0A 30  |..0730 NEXT I..0|
000007E0: 37 34 30 20 45 4E 44 50  52 4F 43 20 5A 45 49 47  |740 ENDPROC ZEIG|
000007F0: 45 4E 0D 0A 30 37 35 30  20 2F 2F 0D 0A 30 37 36  |EN..0750 //..076|
00000800: 30 20 50 52 4F 43 20 44  52 55 43 4B 41 4E 46 41  |0 PROC DRUCKANFA|
00000810: 4E 47 28 5A 41 29 20 43  4C 4F 53 45 44 0D 0A 30  |NG(ZA) CLOSED..0|
00000820: 37 37 30 20 50 52 49 4E  54 20 43 48 52 24 28 31  |770 PRINT CHR$(1|
00000830: 34 37 29 2C 20 2F 2F 41  42 4C 4F 45 53 43 48 45  |47), //ABLOESCHE|
00000840: 4E 0D 0A 30 37 38 30 20  46 4F 52 20 49 3A 3D 31  |N..0780 FOR I:=1|
00000850: 20 54 4F 20 5A 41 20 44  4F 20 50 52 49 4E 54 20  | TO ZA DO PRINT |
00000860: 20 2F 2F 5A 41 20 5A 45  49 4C 45 4E 20 41 42 57  | //ZA ZEILEN ABW|
00000870: 41 45 52 54 53 0D 0A 30  37 39 30 20 45 4E 44 50  |AERTS..0790 ENDP|
00000880: 52 4F 43 20 44 52 55 43  4B 41 4E 46 41 4E 47 0D  |ROC DRUCKANFANG.|
00000890: 0A 30 38 30 30 20 2F 2F  0D 0A                    |.0800 //..      |

0010 //PROGRAM: GLUECKSRAD//..0020 //..0
030 DIM FARBE$ OF 10, TIP$ OF 10..0040 D
IM ANTW$ OF 3, LEGAL$ OF 30..0050 LEGAL$
:=".ROT.GELB.GRUEN.BLAU."..0060 REPEAT .
.0070 WETTEN..0080 GLUECKSRAD..0090 RESU
LTAT..0100 UNTIL ANHALTEN..0110 //..0120
 PROC GLUECKSRAD ..0130 AUSFALL:=RND(1,1
5)..0140 CASE AUSFALL OF..0150 WHEN 1,3,
6,9,12,15..0160 FARBE$:="ROT"..0170 FAKT
OR:=1.5..0180 WHEN 2,5,8,11,14..0190 FAR
BE$:="GELB"..0200 FAKTOR:=2..0210 WHEN 4
,10,13..0220 FARBE$:="GRUEN"..0230 FAKTO
R:=3..0240 WHEN 7..0250 FARBE$:="BLAU"..
0260 FAKTOR:=9..0270 ENDCASE ..0280 ZEIG
EN(FARBE$)..0290 ENDPROC GLUECKSRAD..030
0 //..0310 PROC WETTEN ..0320 DRUCKANFAN
G(8)..0330 PRINT "WELCHE FARBE",..0340 I
NPUT TIP$..0350 WHILE NOT "."+TIP$+"." I
N LEGAL$ DO..0360 DRUCKANFANG(8)..0370 P
RINT "NUR (ROT,GELB,GRUEN,BLAU) SIND MOE
GLICH!"..0380 PRINT "NUN, WELCHE FARBE S
OLL ES SEIN",..0390 INPUT TIP$..0400 END
WHILE ..0410 DRUCKANFANG(8)..0420 PRINT 
"WIE HOCH SOLL DER EINSATZ SEIN",..0430 
INPUT EINSATZ..0440 WHILE EINSATZ<10 DO.
.0450 DRUCKANFANG(8)..0460 PRINT "SEIN S
IE NICHT SO GEIZIG!"..0470 PRINT "WENIGE
R ALS 10 PFENNIGE"..0475 PRINT "WERDEN N
ICHT ANGENOMMEN!"..0480 PRINT "NOCH EINM
AL, WIE HOCH"..0485 PRINT "SOLL DER EINS
ATZ SEIN",..0490 INPUT EINSATZ..0500 END
WHILE ..0510 ENDPROC WETTEN..0520 //..05
30 PROC RESULTAT ..0540 DRUCKANFANG(8)..
0550 IF TIP$=FARBE$ THEN..0560 PRINT "HU
RRA, SIE HABEN GEWONNEN!"..0570 PRINT "S
IE HABEN ",EINSATZ," PFENNIGE GESETZT,".
.0580 PRINT "ALSO ERHALTEN SIE ",EINSATZ
*FAKTOR," PFENNIGE."..0590 ELSE ..0600 P
RINT "TUT MIR LEID, SIE HABEN"..0605 PRI
NT EINSATZ," PFENNIGE VERLOREN."..0610 P
RINT "SICHER HABEN SIE BEIM"..0615 PRINT
 "NAECHSTEN MAL MEHR GLUECK!"..0620 ENDI
F ..0630 FOR I:=1 TO 5 DO PRINT  //5 ZEI
LEN ABWAERTS..0640 INPUT "SPIELEN SIE NO
CH EINMAL (J/N)? ": ANTW$..0650 ANHALTEN
:=ANTW$="N"..0660 ENDPROC RESULTAT..0670
 //..0680 PROC ZEIGEN(C$) ..0690 FOR I:=
1 TO 5 DO..0700 DRUCKANFANG(8)..0710 PRI
NT "******* ",C$," GEWINNT *******"..072
0 FOR T:=1 TO 100 DO ATTRAPE:=0 //WARTEN
..0730 NEXT I..0740 ENDPROC ZEIGEN..0750
 //..0760 PROC DRUCKANFANG(ZA) CLOSED..0
770 PRINT CHR$(147), //ABLOESCHEN..0780 
FOR I:=1 TO ZA DO PRINT  //ZA ZEILEN ABW
AERTS..0790 ENDPROC DRUCKANFANG..0800 //
..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL