UEBG94

FILE INFORMATION

FILENAME(S): UEBG94

FILE TYPE(S): SEQ

FILE SIZE: 755b

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

APPEARS ON: 6 disk(s)

FILE HASH

a9aef0285ca50593b3c772c4db4c1a038448f8603963933c8f2361a49d3040a2

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C OMAL	UEBG94	SEQ	Treasure Chest - Wolfgang Rauprich	21	18	DOWNLOAD FILE
FREEWARE DISK NR	UEBG94	SEQ	Treasure Chest - Wolfgang Rauprich	21	18	DOWNLOAD FILE
COMAL 0 14	UEBG94	SEQ	Treasure Chest - Wolfgang Rauprich	14	3	DOWNLOAD FILE
C OMAL 0 14	UEBG94	SEQ	Treasure Chest - Wolfgang Rauprich	14	3	DOWNLOAD FILE
C OMAL	UEBG94	SEQ	Treasure Chest - Wolfgang Rauprich	21	18	DOWNLOAD FILE
FREESOFT DISK NR	UEBG94	SEQ	Treasure Chest - Wolfgang Rauprich	21	18	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 50 52 49  4E 54 20 43 48 52 24 28  |0010 PRINT CHR$(|
00000010: 31 34 37 29 20 2F 2F 41  42 4C 4F 45 53 43 48 45  |147) //ABLOESCHE|
00000020: 4E 20 44 45 53 20 42 49  4C 44 53 43 48 49 52 4D  |N DES BILDSCHIRM|
00000030: 53 2F 2F 0D 0A 30 30 32  30 20 2F 2F 0D 0A 30 30  |S//..0020 //..00|
00000040: 33 30 20 46 4F 52 20 49  3A 3D 31 20 54 4F 20 35  |30 FOR I:=1 TO 5|
00000050: 20 44 4F 0D 0A 30 30 34  30 20 53 50 49 45 4C 0D  | DO..0040 SPIEL.|
00000060: 0A 30 30 35 30 20 50 52  49 4E 54 20 0D 0A 30 30  |.0050 PRINT ..00|
00000070: 36 30 20 4E 45 58 54 20  49 0D 0A 30 30 37 30 20  |60 NEXT I..0070 |
00000080: 50 52 49 4E 54 20 0D 0A  30 30 38 30 20 50 52 49  |PRINT ..0080 PRI|
00000090: 4E 54 20 22 44 49 45 53  45 53 20 53 50 49 45 4C  |NT "DIESES SPIEL|
000000A0: 20 42 52 49 4E 47 54 20  4D 49 52 20 4B 45 49 4E  | BRINGT MIR KEIN|
000000B0: 45 4E 20 53 50 41 53 53  20 4D 45 48 52 21 22 0D  |EN SPASS MEHR!".|
000000C0: 0A 30 30 39 30 20 2F 2F  0D 0A 30 31 30 30 20 50  |.0090 //..0100 P|
000000D0: 52 4F 43 20 53 50 49 45  4C 20 0D 0A 30 31 31 30  |ROC SPIEL ..0110|
000000E0: 20 44 45 4E 4B 5A 41 48  4C 3A 3D 52 4E 44 28 31  | DENKZAHL:=RND(1|
000000F0: 2C 33 29 0D 0A 30 31 32  30 20 54 49 50 50 45 4E  |,3)..0120 TIPPEN|
00000100: 0D 0A 30 31 33 30 20 45  4E 44 50 52 4F 43 20 53  |..0130 ENDPROC S|
00000110: 50 49 45 4C 0D 0A 30 31  34 30 20 2F 2F 0D 0A 30  |PIEL..0140 //..0|
00000120: 31 35 30 20 50 52 4F 43  20 54 49 50 50 45 4E 20  |150 PROC TIPPEN |
00000130: 0D 0A 30 31 36 30 20 52  45 50 45 41 54 20 0D 0A  |..0160 REPEAT ..|
00000140: 30 31 37 30 20 50 52 49  4E 54 20 22 41 4E 20 57  |0170 PRINT "AN W|
00000150: 45 4C 43 48 45 20 5A 41  48 4C 20 44 45 4E 4B 45  |ELCHE ZAHL DENKE|
00000160: 20 49 43 48 20 28 31 2E  2E 33 29 22 2C 0D 0A 30  | ICH (1..3)",..0|
00000170: 31 38 30 20 49 4E 50 55  54 20 54 49 50 0D 0A 30  |180 INPUT TIP..0|
00000180: 31 39 30 20 50 52 49 4E  54 20 0D 0A 30 32 30 30  |190 PRINT ..0200|
00000190: 20 49 46 20 54 49 50 3D  44 45 4E 4B 5A 41 48 4C  | IF TIP=DENKZAHL|
000001A0: 20 54 48 45 4E 0D 0A 30  32 31 30 20 50 52 49 4E  | THEN..0210 PRIN|
000001B0: 54 20 22 4A 41 2C 20 49  43 48 20 44 41 43 48 54  |T "JA, ICH DACHT|
000001C0: 45 20 41 4E 20 22 2C 44  45 4E 4B 5A 41 48 4C 0D  |E AN ",DENKZAHL.|
000001D0: 0A 30 32 32 30 20 50 52  49 4E 54 20 22 48 41 54  |.0220 PRINT "HAT|
000001E0: 54 45 53 54 20 44 55 20  4D 55 45 48 45 2C 20 45  |TEST DU MUEHE, E|
000001F0: 53 20 5A 55 20 45 52 52  41 54 45 4E 3F 22 0D 0A  |S ZU ERRATEN?"..|
00000200: 30 32 33 30 20 46 4F 52  20 4A 3A 3D 31 20 54 4F  |0230 FOR J:=1 TO|
00000210: 20 33 20 44 4F 20 50 52  49 4E 54 20 0D 0A 30 32  | 3 DO PRINT ..02|
00000220: 34 30 20 50 52 49 4E 54  20 22 21 2D 2D 2D 2D 2D  |40 PRINT "!-----|
00000230: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000240: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 21 22 0D  |-------------!".|
00000250: 0A 30 32 35 30 20 45 4C  53 45 20 0D 0A 30 32 36  |.0250 ELSE ..026|
00000260: 30 20 50 52 49 4E 54 20  22 4E 45 49 4E 2C 20 44  |0 PRINT "NEIN, D|
00000270: 41 53 20 49 53 54 20 4E  49 43 48 54 20 52 49 43  |AS IST NICHT RIC|
00000280: 48 54 49 47 2C 22 0D 0A  30 32 37 30 20 50 52 49  |HTIG,"..0270 PRI|
00000290: 4E 54 20 22 56 45 52 53  55 43 48 45 20 45 53 20  |NT "VERSUCHE ES |
000002A0: 4E 4F 43 48 20 45 49 4E  4D 41 4C 21 22 0D 0A 30  |NOCH EINMAL!"..0|
000002B0: 32 38 30 20 45 4E 44 49  46 20 0D 0A 30 32 39 30  |280 ENDIF ..0290|
000002C0: 20 55 4E 54 49 4C 20 54  49 50 3D 44 45 4E 4B 5A  | UNTIL TIP=DENKZ|
000002D0: 41 48 4C 0D 0A 30 33 30  30 20 45 4E 44 50 52 4F  |AHL..0300 ENDPRO|
000002E0: 43 20 54 49 50 50 45 4E  0D 0A 30 33 31 30 20 2F  |C TIPPEN..0310 /|
000002F0: 2F 0D 0A                                          |/..             |

0010 PRINT CHR$(147) //ABLOESCHEN DES BI
LDSCHIRMS//..0020 //..0030 FOR I:=1 TO 5
 DO..0040 SPIEL..0050 PRINT ..0060 NEXT 
I..0070 PRINT ..0080 PRINT "DIESES SPIEL
 BRINGT MIR KEINEN SPASS MEHR!"..0090 //
..0100 PROC SPIEL ..0110 DENKZAHL:=RND(1
,3)..0120 TIPPEN..0130 ENDPROC SPIEL..01
40 //..0150 PROC TIPPEN ..0160 REPEAT ..
0170 PRINT "AN WELCHE ZAHL DENKE ICH (1.
.3)",..0180 INPUT TIP..0190 PRINT ..0200
 IF TIP=DENKZAHL THEN..0210 PRINT "JA, I
CH DACHTE AN ",DENKZAHL..0220 PRINT "HAT
TEST DU MUEHE, ES ZU ERRATEN?"..0230 FOR
 J:=1 TO 3 DO PRINT ..0240 PRINT "!-----
-----------------------------!"..0250 EL
SE ..0260 PRINT "NEIN, DAS IST NICHT RIC
HTIG,"..0270 PRINT "VERSUCHE ES NOCH EIN
MAL!"..0280 ENDIF ..0290 UNTIL TIP=DENKZ
AHL..0300 ENDPROC TIPPEN..0310 //..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL