UEBG122

FILE INFORMATION

FILENAME(S): UEBG122

FILE TYPE(S): SEQ

FILE SIZE: 792b

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

APPEARS ON: 6 disk(s)

FILE HASH

69bb8ed4f49694cfa479d1285ff99308ab15e35e1ebf81fc5c7ecf463271270a

FOUND ON DISKS (6 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 44 49 4D  20 41 4E 54 57 4F 52 54  |0010 DIM ANTWORT|
00000010: 24 20 4F 46 20 31 30 2C  20 41 52 54 24 28 31 30  |$ OF 10, ART$(10|
00000020: 29 20 4F 46 20 32 30 0D  0A 30 30 32 30 20 2F 2F  |) OF 20..0020 //|
00000030: 0D 0A 30 30 33 30 20 41  55 46 4C 49 53 54 45 4E  |..0030 AUFLISTEN|
00000040: 0D 0A 30 30 34 30 20 41  4E 46 52 41 47 45 4E 0D  |..0040 ANFRAGEN.|
00000050: 0A 30 30 35 30 20 2F 2F  0D 0A 30 30 36 30 20 50  |.0050 //..0060 P|
00000060: 52 4F 43 20 41 55 46 4C  49 53 54 45 4E 20 0D 0A  |ROC AUFLISTEN ..|
00000070: 30 30 37 30 20 41 52 54  24 28 31 29 3A 3D 22 53  |0070 ART$(1):="S|
00000080: 49 52 55 50 22 0D 0A 30  30 38 30 20 41 52 54 24  |IRUP"..0080 ART$|
00000090: 28 32 29 3A 3D 22 22 0D  0A 30 30 39 30 20 41 52  |(2):=""..0090 AR|
000000A0: 54 24 28 33 29 3A 3D 22  48 41 46 45 52 46 4C 4F  |T$(3):="HAFERFLO|
000000B0: 43 4B 45 4E 22 0D 0A 30  31 30 30 20 41 52 54 24  |CKEN"..0100 ART$|
000000C0: 28 34 29 3A 3D 22 53 43  48 49 4D 4D 45 4C 4B 41  |(4):="SCHIMMELKA|
000000D0: 45 53 45 22 0D 0A 30 31  31 30 20 41 52 54 24 28  |ESE"..0110 ART$(|
000000E0: 35 29 3A 3D 22 53 45 49  46 45 4E 46 4C 4F 43 4B  |5):="SEIFENFLOCK|
000000F0: 45 4E 22 0D 0A 30 31 32  30 20 41 52 54 24 28 36  |EN"..0120 ART$(6|
00000100: 29 3A 3D 22 22 0D 0A 30  31 33 30 20 41 52 54 24  |):=""..0130 ART$|
00000110: 28 37 29 3A 3D 22 4B 41  52 44 41 4D 4F 4D 22 0D  |(7):="KARDAMOM".|
00000120: 0A 30 31 34 30 20 41 52  54 24 28 38 29 3A 3D 22  |.0140 ART$(8):="|
00000130: 50 45 54 45 52 53 49 4C  49 45 22 0D 0A 30 31 35  |PETERSILIE"..015|
00000140: 30 20 41 52 54 24 28 39  29 3A 3D 22 4C 45 42 45  |0 ART$(9):="LEBE|
00000150: 52 57 55 52 53 54 22 0D  0A 30 31 36 30 20 41 52  |RWURST"..0160 AR|
00000160: 54 24 28 31 30 29 3A 3D  22 22 0D 0A 30 31 37 30  |T$(10):=""..0170|
00000170: 20 45 4E 44 50 52 4F 43  20 41 55 46 4C 49 53 54  | ENDPROC AUFLIST|
00000180: 45 4E 0D 0A 30 31 38 30  20 2F 2F 0D 0A 30 31 39  |EN..0180 //..019|
00000190: 30 20 50 52 4F 43 20 41  4E 46 52 41 47 45 4E 20  |0 PROC ANFRAGEN |
000001A0: 0D 0A 30 32 30 30 20 52  45 50 45 41 54 20 0D 0A  |..0200 REPEAT ..|
000001B0: 30 32 31 30 20 50 52 49  4E 54 20 43 48 52 24 28  |0210 PRINT CHR$(|
000001C0: 31 34 37 29 20 2F 2F 41  42 4C 4F 45 53 43 48 45  |147) //ABLOESCHE|
000001D0: 4E 0D 0A 30 32 32 30 20  50 52 49 4E 54 20 22 41  |N..0220 PRINT "A|
000001E0: 52 54 49 4B 45 4C 20 4E  52 2E 22 2C 0D 0A 30 32  |RTIKEL NR.",..02|
000001F0: 33 30 20 49 4E 50 55 54  20 4E 52 0D 0A 30 32 34  |30 INPUT NR..024|
00000200: 30 20 50 52 49 4E 54 20  0D 0A 30 32 35 30 20 49  |0 PRINT ..0250 I|
00000210: 46 20 41 52 54 24 28 4E  52 29 3D 22 22 20 54 48  |F ART$(NR)="" TH|
00000220: 45 4E 0D 0A 30 32 36 30  20 50 52 49 4E 54 20 22  |EN..0260 PRINT "|
00000230: 4B 45 49 4E 20 41 52 54  49 4B 45 4C 20 4D 49 54  |KEIN ARTIKEL MIT|
00000240: 20 44 49 45 53 45 52 20  4E 55 4D 4D 45 52 21 22  | DIESER NUMMER!"|
00000250: 0D 0A 30 32 37 30 20 45  4C 53 45 20 0D 0A 30 32  |..0270 ELSE ..02|
00000260: 38 30 20 50 52 49 4E 54  20 22 41 52 54 49 4B 45  |80 PRINT "ARTIKE|
00000270: 4C 20 4E 52 2E 20 22 2C  4E 52 2C 22 3A 20 22 2C  |L NR. ",NR,": ",|
00000280: 41 52 54 24 28 4E 52 29  0D 0A 30 32 39 30 20 45  |ART$(NR)..0290 E|
00000290: 4E 44 49 46 20 0D 0A 30  33 30 30 20 50 52 49 4E  |NDIF ..0300 PRIN|
000002A0: 54 20 0D 0A 30 33 31 30  20 50 52 49 4E 54 20 22  |T ..0310 PRINT "|
000002B0: 57 45 49 54 45 52 45 20  41 4E 46 52 41 47 45 4E  |WEITERE ANFRAGEN|
000002C0: 20 28 4A 2F 4E 29 22 2C  0D 0A 30 33 32 30 20 49  | (J/N)",..0320 I|
000002D0: 4E 50 55 54 20 41 4E 54  57 4F 52 54 24 0D 0A 30  |NPUT ANTWORT$..0|
000002E0: 33 33 30 20 55 4E 54 49  4C 20 41 4E 54 57 4F 52  |330 UNTIL ANTWOR|
000002F0: 54 24 3D 22 4E 22 0D 0A  30 33 34 30 20 45 4E 44  |T$="N"..0340 END|
00000300: 50 52 4F 43 20 41 4E 46  52 41 47 45 4E 0D 0A 30  |PROC ANFRAGEN..0|
00000310: 33 35 30 20 2F 2F 0D 0A                           |350 //..        |

0010 DIM ANTWORT$ OF 10, ART$(10) OF 20.
.0020 //..0030 AUFLISTEN..0040 ANFRAGEN.
.0050 //..0060 PROC AUFLISTEN ..0070 ART
$(1):="SIRUP"..0080 ART$(2):=""..0090 AR
T$(3):="HAFERFLOCKEN"..0100 ART$(4):="SC
HIMMELKAESE"..0110 ART$(5):="SEIFENFLOCK
EN"..0120 ART$(6):=""..0130 ART$(7):="KA
RDAMOM"..0140 ART$(8):="PETERSILIE"..015
0 ART$(9):="LEBERWURST"..0160 ART$(10):=
""..0170 ENDPROC AUFLISTEN..0180 //..019
0 PROC ANFRAGEN ..0200 REPEAT ..0210 PRI
NT CHR$(147) //ABLOESCHEN..0220 PRINT "A
RTIKEL NR.",..0230 INPUT NR..0240 PRINT 
..0250 IF ART$(NR)="" THEN..0260 PRINT "
KEIN ARTIKEL MIT DIESER NUMMER!"..0270 E
LSE ..0280 PRINT "ARTIKEL NR. ",NR,": ",
ART$(NR)..0290 ENDIF ..0300 PRINT ..0310
 PRINT "WEITERE ANFRAGEN (J/N)",..0320 I
NPUT ANTWORT$..0330 UNTIL ANTWORT$="N"..
0340 ENDPROC ANFRAGEN..0350 //..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL