UEBG112

FILE INFORMATION

FILENAME(S): UEBG112

FILE TYPE(S): SEQ

FILE SIZE: 1.2K

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

APPEARS ON: 6 disk(s)

FILE HASH

b3bfe7e03999a64ed5c70b57ce593ea172376228ff846f225859a5d67834de64

FOUND ON DISKS (6 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 44 49 4D  20 4E 41 4D 45 24 20 4F  |0010 DIM NAME$ O|
00000010: 46 20 32 35 2C 20 53 54  52 41 53 53 45 24 20 4F  |F 25, STRASSE$ O|
00000020: 46 20 32 30 0D 0A 30 30  32 30 20 44 49 4D 20 4F  |F 20..0020 DIM O|
00000030: 52 54 53 4E 41 4D 45 24  20 4F 46 20 32 30 0D 0A  |RTSNAME$ OF 20..|
00000040: 30 30 33 30 20 50 52 49  4E 54 20 43 48 52 24 28  |0030 PRINT CHR$(|
00000050: 31 34 37 29 20 2F 2F 41  42 4C 4F 45 53 43 48 45  |147) //ABLOESCHE|
00000060: 4E 20 44 45 53 20 42 49  4C 44 53 43 48 49 52 4D  |N DES BILDSCHIRM|
00000070: 53 0D 0A 30 30 34 30 20  46 4F 52 20 49 3A 3D 31  |S..0040 FOR I:=1|
00000080: 20 54 4F 20 33 20 44 4F  20 50 52 49 4E 54 20 20  | TO 3 DO PRINT  |
00000090: 2F 2F 33 20 4C 45 45 52  5A 45 49 4C 45 4E 0D 0A  |//3 LEERZEILEN..|
000000A0: 30 30 35 30 20 50 52 49  4E 54 20 22 4E 41 4D 45  |0050 PRINT "NAME|
000000B0: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 22 2C  |..............",|
000000C0: 0D 0A 30 30 36 30 20 49  4E 50 55 54 20 4E 41 4D  |..0060 INPUT NAM|
000000D0: 45 24 0D 0A 30 30 37 30  20 50 52 49 4E 54 20 22  |E$..0070 PRINT "|
000000E0: 53 54 52 41 53 53 45 2E  2E 2E 2E 2E 2E 2E 2E 2E  |STRASSE.........|
000000F0: 2E 2E 22 2C 0D 0A 30 30  38 30 20 49 4E 50 55 54  |..",..0080 INPUT|
00000100: 20 53 54 52 41 53 53 45  24 0D 0A 30 30 39 30 20  | STRASSE$..0090 |
00000110: 50 52 49 4E 54 20 22 48  41 55 53 4E 55 4D 4D 45  |PRINT "HAUSNUMME|
00000120: 52 2E 2E 2E 2E 2E 2E 2E  2E 22 2C 0D 0A 30 31 30  |R........",..010|
00000130: 30 20 49 4E 50 55 54 20  48 41 55 53 4E 55 4D 4D  |0 INPUT HAUSNUMM|
00000140: 45 52 0D 0A 30 31 31 30  20 50 52 49 4E 54 20 22  |ER..0110 PRINT "|
00000150: 50 4F 53 54 4C 45 49 54  5A 41 48 4C 2E 2E 2E 2E  |POSTLEITZAHL....|
00000160: 2E 2E 22 2C 0D 0A 30 31  32 30 20 49 4E 50 55 54  |..",..0120 INPUT|
00000170: 20 50 4F 53 54 4C 45 49  54 5A 0D 0A 30 31 33 30  | POSTLEITZ..0130|
00000180: 20 50 52 49 4E 54 20 22  4F 52 54 53 4E 41 4D 45  | PRINT "ORTSNAME|
00000190: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 22 2C 0D 0A 30 31  |..........",..01|
000001A0: 34 30 20 49 4E 50 55 54  20 4F 52 54 53 4E 41 4D  |40 INPUT ORTSNAM|
000001B0: 45 24 0D 0A 30 31 35 30  20 50 52 49 4E 54 20 22  |E$..0150 PRINT "|
000001C0: 50 4F 53 54 44 49 53 54  52 49 4B 54 2E 2E 2E 2E  |POSTDISTRIKT....|
000001D0: 2E 2E 22 2C 0D 0A 30 31  36 30 20 49 4E 50 55 54  |..",..0160 INPUT|
000001E0: 20 50 4F 53 54 44 49 53  54 52 0D 0A 30 31 37 30  | POSTDISTR..0170|
000001F0: 20 2F 2F 0D 0A 30 31 38  30 20 50 52 49 4E 54 20  | //..0180 PRINT |
00000200: 43 48 52 24 28 31 34 37  29 20 2F 2F 41 42 4C 4F  |CHR$(147) //ABLO|
00000210: 45 53 43 48 45 4E 0D 0A  30 31 39 30 20 46 4F 52  |ESCHEN..0190 FOR|
00000220: 20 49 3A 3D 31 20 54 4F  20 33 20 44 4F 20 50 52  | I:=1 TO 3 DO PR|
00000230: 49 4E 54 20 20 2F 2F 33  20 4C 45 45 52 5A 45 49  |INT  //3 LEERZEI|
00000240: 4C 45 4E 0D 0A 30 32 30  30 20 50 52 49 4E 54 20  |LEN..0200 PRINT |
00000250: 22 20 20 20 20 20 20 20  20 20 54 4F 4E 44 45 52  |"         TONDER|
00000260: 4E 2C 20 44 2E 20 35 2E  20 31 4F 2E 20 31 39 38  |N, D. 5. 1O. 198|
00000270: 31 22 0D 0A 30 32 31 30  20 50 52 49 4E 54 20 0D  |1"..0210 PRINT .|
00000280: 0A 30 32 32 30 20 50 52  49 4E 54 20 4E 41 4D 45  |.0220 PRINT NAME|
00000290: 24 0D 0A 30 32 33 30 20  50 52 49 4E 54 20 53 54  |$..0230 PRINT ST|
000002A0: 52 41 53 53 45 24 2C 22  20 22 2C 48 41 55 53 4E  |RASSE$," ",HAUSN|
000002B0: 55 4D 4D 45 52 0D 0A 30  32 34 30 20 50 52 49 4E  |UMMER..0240 PRIN|
000002C0: 54 20 50 4F 53 54 4C 45  49 54 5A 2C 22 20 22 2C  |T POSTLEITZ," ",|
000002D0: 4F 52 54 53 4E 41 4D 45  24 2C 22 20 22 2C 50 4F  |ORTSNAME$," ",PO|
000002E0: 53 54 44 49 53 54 52 0D  0A 30 32 35 30 20 50 52  |STDISTR..0250 PR|
000002F0: 49 4E 54 20 0D 0A 30 32  36 30 20 50 52 49 4E 54  |INT ..0260 PRINT|
00000300: 20 22 53 45 48 52 20 56  45 52 45 48 52 54 45 20  | "SEHR VEREHRTE |
00000310: 44 41 4D 45 4E 2C 22 0D  0A 30 32 36 35 20 50 52  |DAMEN,"..0265 PR|
00000320: 49 4E 54 20 22 53 45 48  52 20 47 45 45 48 52 54  |INT "SEHR GEEHRT|
00000330: 45 20 48 45 52 52 45 4E  2C 22 0D 0A 30 32 37 30  |E HERREN,"..0270|
00000340: 20 50 52 49 4E 54 20 0D  0A 30 32 38 30 20 50 52  | PRINT ..0280 PR|
00000350: 49 4E 54 20 22 45 52 4C  41 55 42 45 4E 20 53 49  |INT "ERLAUBEN SI|
00000360: 45 2C 20 44 41 53 53 20  57 49 52 22 0D 0A 30 32  |E, DASS WIR"..02|
00000370: 38 35 20 50 52 49 4E 54  20 22 44 49 45 20 47 41  |85 PRINT "DIE GA|
00000380: 4E 5A 20 42 45 53 4F 4E  44 45 52 45 20 53 50 45  |NZ BESONDERE SPE|
00000390: 5A 49 41 4C 49 54 41 45  54 22 0D 0A 30 32 39 30  |ZIALITAET"..0290|
000003A0: 20 50 52 49 4E 54 20 22  55 4E 53 45 52 45 53 20  | PRINT "UNSERES |
000003B0: 48 41 55 53 45 53 20 41  4E 42 49 45 54 45 4E 3A  |HAUSES ANBIETEN:|
000003C0: 22 0D 0A 30 32 39 35 20  50 52 49 4E 54 20 22 50  |"..0295 PRINT "P|
000003D0: 49 4B 41 4E 54 20 47 45  57 55 45 52 5A 54 45 20  |IKANT GEWUERZTE |
000003E0: 4D 45 54 54 57 55 52 53  54 22 0D 0A 30 33 30 30  |METTWURST"..0300|
000003F0: 20 50 52 49 4E 54 20 22  46 55 45 52 20 4E 55 52  | PRINT "FUER NUR|
00000400: 20 32 35 20 4B 52 4F 4E  45 4E 20 44 41 53 20 4B  | 25 KRONEN DAS K|
00000410: 47 2E 22 0D 0A 30 33 31  30 20 50 52 49 4E 54 20  |G."..0310 PRINT |
00000420: 0D 0A 30 33 32 30 20 50  52 49 4E 54 20 22 20 20  |..0320 PRINT "  |
00000430: 20 20 4D 49 54 20 56 4F  52 5A 55 45 47 4C 49 43  |  MIT VORZUEGLIC|
00000440: 48 45 52 20 48 4F 43 48  41 43 48 54 55 4E 47 22  |HER HOCHACHTUNG"|
00000450: 0D 0A 30 33 33 30 20 50  52 49 4E 54 20 22 20 20  |..0330 PRINT "  |
00000460: 20 20 20 20 20 20 20 20  20 20 20 41 4C 46 52 45  |           ALFRE|
00000470: 44 20 42 41 43 4F 4E 2C  22 0D 0A 30 33 34 30 20  |D BACON,"..0340 |
00000480: 50 52 49 4E 54 20 22 20  20 20 20 20 20 20 20 20  |PRINT "         |
00000490: 20 20 53 43 48 4C 41 43  48 54 45 52 4D 45 49 53  |  SCHLACHTERMEIS|
000004A0: 54 45 52 2E 22 0D 0A                              |TER."..         |

0010 DIM NAME$ OF 25, STRASSE$ OF 20..00
20 DIM ORTSNAME$ OF 20..0030 PRINT CHR$(
147) //ABLOESCHEN DES BILDSCHIRMS..0040 
FOR I:=1 TO 3 DO PRINT  //3 LEERZEILEN..
0050 PRINT "NAME..............",..0060 I
NPUT NAME$..0070 PRINT "STRASSE.........
..",..0080 INPUT STRASSE$..0090 PRINT "H
AUSNUMMER........",..0100 INPUT HAUSNUMM
ER..0110 PRINT "POSTLEITZAHL......",..01
20 INPUT POSTLEITZ..0130 PRINT "ORTSNAME
..........",..0140 INPUT ORTSNAME$..0150
 PRINT "POSTDISTRIKT......",..0160 INPUT
 POSTDISTR..0170 //..0180 PRINT CHR$(147
) //ABLOESCHEN..0190 FOR I:=1 TO 3 DO PR
INT  //3 LEERZEILEN..0200 PRINT "       
  TONDERN, D. 5. 1O. 1981"..0210 PRINT .
.0220 PRINT NAME$..0230 PRINT STRASSE$,"
 ",HAUSNUMMER..0240 PRINT POSTLEITZ," ",
ORTSNAME$," ",POSTDISTR..0250 PRINT ..02
60 PRINT "SEHR VEREHRTE DAMEN,"..0265 PR
INT "SEHR GEEHRTE HERREN,"..0270 PRINT .
.0280 PRINT "ERLAUBEN SIE, DASS WIR"..02
85 PRINT "DIE GANZ BESONDERE SPEZIALITAE
T"..0290 PRINT "UNSERES HAUSES ANBIETEN:
"..0295 PRINT "PIKANT GEWUERZTE METTWURS
T"..0300 PRINT "FUER NUR 25 KRONEN DAS K
G."..0310 PRINT ..0320 PRINT "    MIT VO
RZUEGLICHER HOCHACHTUNG"..0330 PRINT "  
           ALFRED BACON,"..0340 PRINT " 
          SCHLACHTERMEISTER."..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL