UEBG131

FILE INFORMATION

FILENAME(S): UEBG131

FILE TYPE(S): SEQ

FILE SIZE: 2.1K

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

APPEARS ON: 6 disk(s)

FILE HASH

bfabb650785b0de97bdf0ae2fee2c3472c0d5a915dd6fdab10b38db528dfc671

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C OMAL	UEBG131	SEQ	Treasure Chest - Wolfgang Rauprich	23	15	DOWNLOAD FILE
FREEWARE DISK NR	UEBG131	SEQ	Treasure Chest - Wolfgang Rauprich	23	15	DOWNLOAD FILE
COMAL 0 14	UEBG131	SEQ	Treasure Chest - Wolfgang Rauprich	12	1	DOWNLOAD FILE
C OMAL 0 14	UEBG131	SEQ	Treasure Chest - Wolfgang Rauprich	12	1	DOWNLOAD FILE
C OMAL	UEBG131	SEQ	Treasure Chest - Wolfgang Rauprich	23	15	DOWNLOAD FILE
FREESOFT DISK NR	UEBG131	SEQ	Treasure Chest - Wolfgang Rauprich	23	15	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 44 49 4D  20 46 52 55 43 48 54 24  |0010 DIM FRUCHT$|
00000010: 28 36 29 20 4F 46 20 31  30 2C 20 5A 45 49 43 48  |(6) OF 10, ZEICH|
00000020: 45 4E 24 20 4F 46 20 31  0D 0A 30 30 32 30 20 44  |EN$ OF 1..0020 D|
00000030: 49 4D 20 46 31 24 20 4F  46 20 31 30 2C 20 46 32  |IM F1$ OF 10, F2|
00000040: 24 20 4F 46 20 31 30 2C  20 46 33 24 20 4F 46 20  |$ OF 10, F3$ OF |
00000050: 31 30 0D 0A 30 30 33 30  20 47 55 54 48 41 42 45  |10..0030 GUTHABE|
00000060: 4E 3A 3D 30 3B 20 45 49  4E 53 41 54 5A 3A 3D 30  |N:=0; EINSATZ:=0|
00000070: 0D 0A 30 30 34 30 20 2F  2F 0D 0A 30 30 35 30 20  |..0040 //..0050 |
00000080: 46 52 55 43 48 54 24 28  31 29 3A 3D 22 41 50 46  |FRUCHT$(1):="APF|
00000090: 45 4C 22 0D 0A 30 30 36  30 20 46 52 55 43 48 54  |EL"..0060 FRUCHT|
000000A0: 24 28 32 29 3A 3D 22 42  49 52 4E 45 22 0D 0A 30  |$(2):="BIRNE"..0|
000000B0: 30 37 30 20 46 52 55 43  48 54 24 28 33 29 3A 3D  |070 FRUCHT$(3):=|
000000C0: 22 50 46 4C 41 55 4D 45  22 0D 0A 30 30 38 30 20  |"PFLAUME"..0080 |
000000D0: 46 52 55 43 48 54 24 28  34 29 3A 3D 22 42 41 4E  |FRUCHT$(4):="BAN|
000000E0: 41 4E 45 22 0D 0A 30 30  39 30 20 46 52 55 43 48  |ANE"..0090 FRUCH|
000000F0: 54 24 28 35 29 3A 3D 22  5A 49 54 52 4F 4E 45 22  |T$(5):="ZITRONE"|
00000100: 0D 0A 30 31 30 30 20 46  52 55 43 48 54 24 28 36  |..0100 FRUCHT$(6|
00000110: 29 3A 3D 22 4B 49 52 53  43 48 45 22 0D 0A 30 31  |):="KIRSCHE"..01|
00000120: 31 30 20 2F 2F 0D 0A 30  31 32 30 20 5A 45 49 4C  |10 //..0120 ZEIL|
00000130: 45 28 34 29 0D 0A 30 31  33 30 20 50 52 49 4E 54  |E(4)..0130 PRINT|
00000140: 20 22 4C 4F 53 20 47 45  48 54 27 53 21 20 57 49  | "LOS GEHT'S! WI|
00000150: 52 20 57 45 52 46 45 4E  20 45 49 4E 45 20 4D 55  |R WERFEN EINE MU|
00000160: 45 4E 5A 45 20 45 49 4E  2E 22 0D 0A 30 31 34 30  |ENZE EIN."..0140|
00000170: 20 50 52 49 4E 54 20 22  44 52 55 45 43 4B 45 4E  | PRINT "DRUECKEN|
00000180: 20 53 49 45 20 27 52 45  54 55 52 4E 27 2E 22 0D  | SIE 'RETURN'.".|
00000190: 0A 30 31 35 30 20 50 52  49 4E 54 20 22 55 4D 20  |.0150 PRINT "UM |
000001A0: 5A 55 20 53 54 4F 50 50  45 4E 2C 22 0D 0A 30 31  |ZU STOPPEN,"..01|
000001B0: 35 35 20 50 52 49 4E 54  20 22 44 52 55 45 43 4B  |55 PRINT "DRUECK|
000001C0: 45 4E 20 53 49 45 20 27  4E 27 20 55 4E 44 20 27  |EN SIE 'N' UND '|
000001D0: 52 45 54 55 52 4E 27 2E  22 0D 0A 30 31 36 30 20  |RETURN'."..0160 |
000001E0: 52 45 50 45 41 54 20 0D  0A 30 31 37 30 20 50 52  |REPEAT ..0170 PR|
000001F0: 49 4E 54 20 0D 0A 30 31  38 30 20 50 52 49 4E 54  |INT ..0180 PRINT|
00000200: 20 22 57 45 52 46 45 4E  20 53 49 45 20 45 49 4E  | "WERFEN SIE EIN|
00000210: 45 20 4D 55 45 4E 5A 45  20 45 49 4E 22 2C 0D 0A  |E MUENZE EIN",..|
00000220: 30 31 39 30 20 49 4E 50  55 54 20 5A 45 49 43 48  |0190 INPUT ZEICH|
00000230: 45 4E 24 0D 0A 30 32 30  30 20 49 46 20 5A 45 49  |EN$..0200 IF ZEI|
00000240: 43 48 45 4E 24 3D 22 4E  22 20 54 48 45 4E 20 41  |CHEN$="N" THEN A|
00000250: 44 49 45 55 0D 0A 30 32  31 30 20 44 41 53 27 53  |DIEU..0210 DAS'S|
00000260: 50 49 45 4C 0D 0A 30 32  32 30 20 55 4E 54 49 4C  |PIEL..0220 UNTIL|
00000270: 20 46 41 4C 53 45 20 2F  2F 4F 48 4E 45 20 45 4E  | FALSE //OHNE EN|
00000280: 44 45 2F 2F 0D 0A 30 32  33 30 20 2F 2F 0D 0A 30  |DE//..0230 //..0|
00000290: 32 34 30 20 50 52 4F 43  20 44 41 53 27 53 50 49  |240 PROC DAS'SPI|
000002A0: 45 4C 20 0D 0A 30 32 35  30 20 45 49 4E 53 41 54  |EL ..0250 EINSAT|
000002B0: 5A 3A 3D 45 49 4E 53 41  54 5A 2B 31 0D 0A 30 32  |Z:=EINSATZ+1..02|
000002C0: 36 30 20 46 31 24 3A 3D  46 52 55 43 48 54 24 28  |60 F1$:=FRUCHT$(|
000002D0: 52 4E 44 28 31 2C 36 29  29 0D 0A 30 32 37 30 20  |RND(1,6))..0270 |
000002E0: 46 32 24 3A 3D 46 52 55  43 48 54 24 28 52 4E 44  |F2$:=FRUCHT$(RND|
000002F0: 28 31 2C 36 29 29 0D 0A  30 32 38 30 20 46 33 24  |(1,6))..0280 F3$|
00000300: 3A 3D 46 52 55 43 48 54  24 28 52 4E 44 28 31 2C  |:=FRUCHT$(RND(1,|
00000310: 36 29 29 0D 0A 30 32 39  30 20 5A 45 49 4C 45 28  |6))..0290 ZEILE(|
00000320: 35 29 0D 0A 30 33 30 30  20 5A 45 49 47 45 4E 0D  |5)..0300 ZEIGEN.|
00000330: 0A 30 33 31 30 20 45 52  47 45 42 4E 49 53 0D 0A  |.0310 ERGEBNIS..|
00000340: 30 33 32 30 20 45 4E 44  50 52 4F 43 20 44 41 53  |0320 ENDPROC DAS|
00000350: 27 53 50 49 45 4C 0D 0A  30 33 33 30 20 2F 2F 0D  |'SPIEL..0330 //.|
00000360: 0A 30 33 34 30 20 50 52  4F 43 20 45 52 47 45 42  |.0340 PROC ERGEB|
00000370: 4E 49 53 20 0D 0A 30 33  35 30 20 46 4F 52 20 49  |NIS ..0350 FOR I|
00000380: 3A 3D 31 20 54 4F 20 33  20 44 4F 20 50 52 49 4E  |:=1 TO 3 DO PRIN|
00000390: 54 20 20 2F 2F 33 20 4C  45 45 52 5A 45 49 4C 45  |T  //3 LEERZEILE|
000003A0: 4E 0D 0A 30 33 36 30 20  49 46 20 46 31 24 3D 46  |N..0360 IF F1$=F|
000003B0: 32 24 20 41 4E 44 20 46  32 24 3D 46 33 24 20 54  |2$ AND F2$=F3$ T|
000003C0: 48 45 4E 0D 0A 30 33 37  30 20 47 4C 4F 43 4B 45  |HEN..0370 GLOCKE|
000003D0: 28 37 29 0D 0A 30 33 38  30 20 50 52 49 4E 54 20  |(7)..0380 PRINT |
000003E0: 22 48 55 52 52 41 21 20  48 20 55 20 52 20 52 20  |"HURRA! H U R R |
000003F0: 41 21 20 20 48 20 20 55  20 20 52 20 20 52 20 20  |A!  H  U  R  R  |
00000400: 41 20 21 21 22 0D 0A 30  33 39 30 20 50 52 49 4E  |A !!"..0390 PRIN|
00000410: 54 20 22 53 49 45 20 48  41 42 45 4E 20 32 30 20  |T "SIE HABEN 20 |
00000420: 4D 55 45 4E 5A 45 4E 20  47 45 57 4F 4E 4E 45 4E  |MUENZEN GEWONNEN|
00000430: 21 21 21 22 0D 0A 30 34  30 30 20 47 55 54 48 41  |!!!"..0400 GUTHA|
00000440: 42 45 4E 3A 3D 47 55 54  48 41 42 45 4E 2B 32 30  |BEN:=GUTHABEN+20|
00000450: 0D 0A 30 34 31 30 20 45  4C 53 45 20 0D 0A 30 34  |..0410 ELSE ..04|
00000460: 32 30 20 49 46 20 46 31  24 3D 46 32 24 20 4F 52  |20 IF F1$=F2$ OR|
00000470: 20 46 32 24 3D 46 33 24  20 54 48 45 4E 0D 0A 30  | F2$=F3$ THEN..0|
00000480: 34 33 30 20 47 4C 4F 43  4B 45 28 32 29 0D 0A 30  |430 GLOCKE(2)..0|
00000490: 34 34 30 20 50 52 49 4E  54 20 22 50 52 49 4D 41  |440 PRINT "PRIMA|
000004A0: 21 22 0D 0A 30 34 35 30  20 50 52 49 4E 54 20 22  |!"..0450 PRINT "|
000004B0: 53 49 45 20 48 41 42 45  4E 20 32 20 4D 55 45 4E  |SIE HABEN 2 MUEN|
000004C0: 5A 45 4E 20 47 45 57 4F  4E 4E 45 4E 21 22 0D 0A  |ZEN GEWONNEN!"..|
000004D0: 30 34 36 30 20 47 55 54  48 41 42 45 4E 3A 3D 47  |0460 GUTHABEN:=G|
000004E0: 55 54 48 41 42 45 4E 2B  32 0D 0A 30 34 37 30 20  |UTHABEN+2..0470 |
000004F0: 45 4E 44 49 46 20 0D 0A  30 34 38 30 20 45 4E 44  |ENDIF ..0480 END|
00000500: 49 46 20 0D 0A 30 34 39  30 20 45 4E 44 50 52 4F  |IF ..0490 ENDPRO|
00000510: 43 20 45 52 47 45 42 4E  49 53 0D 0A 30 35 30 30  |C ERGEBNIS..0500|
00000520: 20 2F 2F 0D 0A 30 35 31  30 20 50 52 4F 43 20 41  | //..0510 PROC A|
00000530: 44 49 45 55 20 0D 0A 30  35 32 30 20 5A 45 49 4C  |DIEU ..0520 ZEIL|
00000540: 45 28 35 29 0D 0A 30 35  33 30 20 50 52 49 4E 54  |E(5)..0530 PRINT|
00000550: 20 22 44 41 53 20 53 50  49 45 4C 20 4D 49 54 20  | "DAS SPIEL MIT |
00000560: 49 48 4E 45 4E 20 48 41  54 20 53 50 41 53 53 20  |IHNEN HAT SPASS |
00000570: 47 45 4D 41 43 48 54 2E  22 0D 0A 30 35 34 30 20  |GEMACHT."..0540 |
00000580: 50 52 49 4E 54 20 22 42  49 54 54 45 4E 20 53 49  |PRINT "BITTEN SI|
00000590: 45 20 55 4E 53 45 52 45  4E 20 4B 41 53 53 49 45  |E UNSEREN KASSIE|
000005A0: 52 45 52 2C 22 0D 0A 30  35 35 30 20 50 52 49 4E  |RER,"..0550 PRIN|
000005B0: 54 20 22 44 41 53 53 20  45 52 20 49 48 4E 45 4E  |T "DASS ER IHNEN|
000005C0: 20 46 55 45 52 20 49 48  52 45 20 47 55 54 48 41  | FUER IHRE GUTHA|
000005D0: 42 45 4E 22 0D 0A 30 35  35 35 20 50 52 49 4E 54  |BEN"..0555 PRINT|
000005E0: 20 22 45 43 48 54 45 53  20 47 45 4C 44 20 42 45  | "ECHTES GELD BE|
000005F0: 5A 41 48 4C 54 2C 20 22  0D 0A 30 35 36 30 20 50  |ZAHLT, "..0560 P|
00000600: 52 49 4E 54 20 22 2D 20  57 45 4E 4E 20 45 52 20  |RINT "- WENN ER |
00000610: 57 45 4C 43 48 45 53 20  48 41 54 20 2D 22 0D 0A  |WELCHES HAT -"..|
00000620: 30 35 36 35 20 50 52 49  4E 54 20 22 4E 4F 52 4D  |0565 PRINT "NORM|
00000630: 41 4C 45 52 57 45 49 53  45 20 48 41 54 20 45 52  |ALERWEISE HAT ER|
00000640: 20 4B 45 49 4E 45 53 3B  22 0D 0A 30 35 37 30 20  | KEINES;"..0570 |
00000650: 50 52 49 4E 54 20 22 57  49 52 20 48 4F 46 46 45  |PRINT "WIR HOFFE|
00000660: 4E 20 41 42 45 52 2C 22  0D 0A 30 35 37 35 20 50  |N ABER,"..0575 P|
00000670: 52 49 4E 54 20 22 44 41  53 53 20 53 49 45 20 54  |RINT "DASS SIE T|
00000680: 52 4F 54 5A 44 45 4D 20  49 48 52 45 4E 20 53 50  |ROTZDEM IHREN SP|
00000690: 41 53 53 20 48 41 54 54  45 4E 2E 22 0D 0A 30 35  |ASS HATTEN."..05|
000006A0: 38 30 20 53 54 4F 50 20  20 2F 2F 41 4E 48 41 4C  |80 STOP  //ANHAL|
000006B0: 54 45 4E 20 44 45 53 20  50 52 4F 47 52 41 4D 4D  |TEN DES PROGRAMM|
000006C0: 53 0D 0A 30 35 39 30 20  45 4E 44 50 52 4F 43 20  |S..0590 ENDPROC |
000006D0: 41 44 49 45 55 0D 0A 30  36 30 30 20 2F 2F 0D 0A  |ADIEU..0600 //..|
000006E0: 30 36 31 30 20 50 52 4F  43 20 5A 45 49 4C 45 28  |0610 PROC ZEILE(|
000006F0: 58 29 20 0D 0A 30 36 32  30 20 50 52 49 4E 54 20  |X) ..0620 PRINT |
00000700: 43 48 52 24 28 31 34 37  29 2C 20 2F 2F 41 42 4C  |CHR$(147), //ABL|
00000710: 4F 45 53 43 48 45 4E 0D  0A 30 36 33 30 20 46 4F  |OESCHEN..0630 FO|
00000720: 52 20 49 3A 3D 31 20 54  4F 20 58 20 44 4F 20 50  |R I:=1 TO X DO P|
00000730: 52 49 4E 54 20 20 2F 2F  58 20 4C 45 45 52 5A 45  |RINT  //X LEERZE|
00000740: 49 4C 45 4E 0D 0A 30 36  34 30 20 45 4E 44 50 52  |ILEN..0640 ENDPR|
00000750: 4F 43 20 5A 45 49 4C 45  0D 0A 30 36 35 30 20 2F  |OC ZEILE..0650 /|
00000760: 2F 0D 0A 30 36 36 30 20  50 52 4F 43 20 47 4C 4F  |/..0660 PROC GLO|
00000770: 43 4B 45 28 58 29 20 0D  0A 30 36 37 30 20 46 4F  |CKE(X) ..0670 FO|
00000780: 52 20 49 3A 3D 31 20 54  4F 20 58 20 44 4F 20 50  |R I:=1 TO X DO P|
00000790: 52 49 4E 54 20 43 48 52  24 28 37 29 2C 0D 0A 30  |RINT CHR$(7),..0|
000007A0: 36 38 30 20 45 4E 44 50  52 4F 43 20 47 4C 4F 43  |680 ENDPROC GLOC|
000007B0: 4B 45 0D 0A 30 37 30 30  20 2F 2F 0D 0A 30 37 31  |KE..0700 //..071|
000007C0: 30 20 50 52 4F 43 20 5A  45 49 47 45 4E 20 0D 0A  |0 PROC ZEIGEN ..|
000007D0: 30 37 32 30 20 50 52 49  4E 54 20 46 31 24 2C 0D  |0720 PRINT F1$,.|
000007E0: 0A 30 37 33 30 20 57 41  52 54 45 4E 0D 0A 30 37  |.0730 WARTEN..07|
000007F0: 34 30 20 50 52 49 4E 54  20 54 41 42 28 31 35 29  |40 PRINT TAB(15)|
00000800: 2C 46 32 24 2C 0D 0A 30  37 35 30 20 57 41 52 54  |,F2$,..0750 WART|
00000810: 45 4E 0D 0A 30 37 36 30  20 50 52 49 4E 54 20 54  |EN..0760 PRINT T|
00000820: 41 42 28 33 30 29 2C 46  33 24 0D 0A 30 37 37 30  |AB(30),F3$..0770|
00000830: 20 45 4E 44 50 52 4F 43  20 5A 45 49 47 45 4E 0D  | ENDPROC ZEIGEN.|
00000840: 0A 30 37 38 30 20 2F 2F  0D 0A 30 37 39 30 20 50  |.0780 //..0790 P|
00000850: 52 4F 43 20 57 41 52 54  45 4E 20 0D 0A 30 38 30  |ROC WARTEN ..080|
00000860: 30 20 46 4F 52 20 49 3A  3D 31 20 54 4F 20 37 37  |0 FOR I:=1 TO 77|
00000870: 35 20 44 4F 0D 0A 30 38  31 30 20 4E 45 58 54 20  |5 DO..0810 NEXT |
00000880: 49 0D 0A 30 38 32 30 20  45 4E 44 50 52 4F 43 20  |I..0820 ENDPROC |
00000890: 57 41 52 54 45 4E 0D 0A                           |WARTEN..        |

0010 DIM FRUCHT$(6) OF 10, ZEICHEN$ OF 1
..0020 DIM F1$ OF 10, F2$ OF 10, F3$ OF 
10..0030 GUTHABEN:=0; EINSATZ:=0..0040 /
/..0050 FRUCHT$(1):="APFEL"..0060 FRUCHT
$(2):="BIRNE"..0070 FRUCHT$(3):="PFLAUME
"..0080 FRUCHT$(4):="BANANE"..0090 FRUCH
T$(5):="ZITRONE"..0100 FRUCHT$(6):="KIRS
CHE"..0110 //..0120 ZEILE(4)..0130 PRINT
 "LOS GEHT'S! WIR WERFEN EINE MUENZE EIN
."..0140 PRINT "DRUECKEN SIE 'RETURN'.".
.0150 PRINT "UM ZU STOPPEN,"..0155 PRINT
 "DRUECKEN SIE 'N' UND 'RETURN'."..0160 
REPEAT ..0170 PRINT ..0180 PRINT "WERFEN
 SIE EINE MUENZE EIN",..0190 INPUT ZEICH
EN$..0200 IF ZEICHEN$="N" THEN ADIEU..02
10 DAS'SPIEL..0220 UNTIL FALSE //OHNE EN
DE//..0230 //..0240 PROC DAS'SPIEL ..025
0 EINSATZ:=EINSATZ+1..0260 F1$:=FRUCHT$(
RND(1,6))..0270 F2$:=FRUCHT$(RND(1,6))..
0280 F3$:=FRUCHT$(RND(1,6))..0290 ZEILE(
5)..0300 ZEIGEN..0310 ERGEBNIS..0320 END
PROC DAS'SPIEL..0330 //..0340 PROC ERGEB
NIS ..0350 FOR I:=1 TO 3 DO PRINT  //3 L
EERZEILEN..0360 IF F1$=F2$ AND F2$=F3$ T
HEN..0370 GLOCKE(7)..0380 PRINT "HURRA! 
H U R R A!  H  U  R  R  A !!"..0390 PRIN
T "SIE HABEN 20 MUENZEN GEWONNEN!!!"..04
00 GUTHABEN:=GUTHABEN+20..0410 ELSE ..04
20 IF F1$=F2$ OR F2$=F3$ THEN..0430 GLOC
KE(2)..0440 PRINT "PRIMA!"..0450 PRINT "
SIE HABEN 2 MUENZEN GEWONNEN!"..0460 GUT
HABEN:=GUTHABEN+2..0470 ENDIF ..0480 END
IF ..0490 ENDPROC ERGEBNIS..0500 //..051
0 PROC ADIEU ..0520 ZEILE(5)..0530 PRINT
 "DAS SPIEL MIT IHNEN HAT SPASS GEMACHT.
"..0540 PRINT "BITTEN SIE UNSEREN KASSIE
RER,"..0550 PRINT "DASS ER IHNEN FUER IH
RE GUTHABEN"..0555 PRINT "ECHTES GELD BE
ZAHLT, "..0560 PRINT "- WENN ER WELCHES 
HAT -"..0565 PRINT "NORMALERWEISE HAT ER
 KEINES;"..0570 PRINT "WIR HOFFEN ABER,"
..0575 PRINT "DASS SIE TROTZDEM IHREN SP
ASS HATTEN."..0580 STOP  //ANHALTEN DES 
PROGRAMMS..0590 ENDPROC ADIEU..0600 //..
0610 PROC ZEILE(X) ..0620 PRINT CHR$(147
), //ABLOESCHEN..0630 FOR I:=1 TO X DO P
RINT  //X LEERZEILEN..0640 ENDPROC ZEILE
..0650 //..0660 PROC GLOCKE(X) ..0670 FO
R I:=1 TO X DO PRINT CHR$(7),..0680 ENDP
ROC GLOCKE..0700 //..0710 PROC ZEIGEN ..
0720 PRINT F1$,..0730 WARTEN..0740 PRINT
 TAB(15),F2$,..0750 WARTEN..0760 PRINT T
AB(30),F3$..0770 ENDPROC ZEIGEN..0780 //
..0790 PROC WARTEN ..0800 FOR I:=1 TO 77
5 DO..0810 NEXT I..0820 ENDPROC WARTEN..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL