UEBG123

FILE INFORMATION

FILENAME(S): UEBG123

FILE TYPE(S): SEQ

FILE SIZE: 1.3K

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

APPEARS ON: 6 disk(s)

FILE HASH

7cda49887056d4f9fe22db0d5cd40514c627983b3ef50ac7cb0ff4eb9e36e8d1

FOUND ON DISKS (6 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 44 49 4D  20 53 43 48 55 45 4C 45  |0010 DIM SCHUELE|
00000010: 52 24 28 31 30 29 20 4F  46 20 33 30 2C 20 4E 41  |R$(10) OF 30, NA|
00000020: 4D 45 24 20 4F 46 20 33  30 0D 0A 30 30 32 30 20  |ME$ OF 30..0020 |
00000030: 44 49 4D 20 41 4E 54 57  4F 52 54 24 20 4F 46 20  |DIM ANTWORT$ OF |
00000040: 31 30 2C 20 41 55 46 54  52 41 47 24 20 4F 46 20  |10, AUFTRAG$ OF |
00000050: 36 0D 0A 30 30 33 30 20  2F 2F 0D 0A 30 30 34 30  |6..0030 //..0040|
00000060: 20 52 45 50 45 41 54 20  20 2F 2F 48 41 55 50 54  | REPEAT  //HAUPT|
00000070: 53 43 48 4C 45 49 46 45  2F 2F 0D 0A 30 30 35 30  |SCHLEIFE//..0050|
00000080: 20 5A 45 49 4C 45 28 35  29 0D 0A 30 30 36 30 20  | ZEILE(5)..0060 |
00000090: 50 52 49 4E 54 20 22 57  45 4C 43 48 45 52 20 41  |PRINT "WELCHER A|
000000A0: 55 46 54 52 41 47 22 0D  0A 30 30 36 35 20 50 52  |UFTRAG"..0065 PR|
000000B0: 49 4E 54 20 22 28 41 55  46 4E 45 48 4D 45 4E 2C  |INT "(AUFNEHMEN,|
000000C0: 20 41 55 46 4C 49 53 54  45 4E 2C 20 41 4E 46 52  | AUFLISTEN, ANFR|
000000D0: 41 47 45 4E 29 22 2C 0D  0A 30 30 37 30 20 49 4E  |AGEN)",..0070 IN|
000000E0: 50 55 54 20 41 55 46 54  52 41 47 24 0D 0A 30 30  |PUT AUFTRAG$..00|
000000F0: 38 30 20 2F 2F 46 45 53  54 4C 45 47 45 4E 20 44  |80 //FESTLEGEN D|
00000100: 45 53 20 41 55 46 54 52  41 47 45 53 2F 2F 0D 0A  |ES AUFTRAGES//..|
00000110: 30 30 39 30 20 49 46 20  41 55 46 54 52 41 47 24  |0090 IF AUFTRAG$|
00000120: 3D 22 41 55 46 4E 45 48  22 20 54 48 45 4E 20 5A  |="AUFNEH" THEN Z|
00000130: 55 47 41 4E 47 0D 0A 30  31 30 30 20 49 46 20 41  |UGANG..0100 IF A|
00000140: 55 46 54 52 41 47 24 3D  22 41 55 46 4C 49 53 22  |UFTRAG$="AUFLIS"|
00000150: 20 54 48 45 4E 20 44 52  55 43 4B 41 4C 4C 0D 0A  | THEN DRUCKALL..|
00000160: 30 31 31 30 20 49 46 20  41 55 46 54 52 41 47 24  |0110 IF AUFTRAG$|
00000170: 3D 22 41 4E 46 52 41 47  22 20 54 48 45 4E 20 44  |="ANFRAG" THEN D|
00000180: 52 55 43 4B 45 49 4E 0D  0A 30 31 32 30 20 50 52  |RUCKEIN..0120 PR|
00000190: 49 4E 54 20 43 48 52 24  28 31 39 29 20 2F 2F 4E  |INT CHR$(19) //N|
000001A0: 41 43 48 20 48 41 55 53  45 0D 0A 30 31 33 30 20  |ACH HAUSE..0130 |
000001B0: 50 52 49 4E 54 20 22 57  45 49 54 45 52 45 20 41  |PRINT "WEITERE A|
000001C0: 55 46 54 52 41 45 47 45  20 28 4A 2F 4E 29 22 2C  |UFTRAEGE (J/N)",|
000001D0: 0D 0A 30 31 34 30 20 49  4E 50 55 54 20 41 4E 54  |..0140 INPUT ANT|
000001E0: 57 4F 52 54 24 0D 0A 30  31 35 30 20 55 4E 54 49  |WORT$..0150 UNTI|
000001F0: 4C 20 41 4E 54 57 4F 52  54 24 3D 22 4E 22 0D 0A  |L ANTWORT$="N"..|
00000200: 30 31 36 30 20 2F 2F 0D  0A 30 31 37 30 20 50 52  |0160 //..0170 PR|
00000210: 4F 43 20 5A 55 47 41 4E  47 20 0D 0A 30 31 38 30  |OC ZUGANG ..0180|
00000220: 20 5A 45 49 4C 45 28 35  29 0D 0A 30 31 39 30 20  | ZEILE(5)..0190 |
00000230: 52 45 50 45 41 54 20 0D  0A 30 32 30 30 20 50 52  |REPEAT ..0200 PR|
00000240: 49 4E 54 20 22 4E 41 4D  45 22 2C 0D 0A 30 32 31  |INT "NAME",..021|
00000250: 30 20 49 4E 50 55 54 20  4E 41 4D 45 24 0D 0A 30  |0 INPUT NAME$..0|
00000260: 32 32 30 20 49 46 20 4E  41 4D 45 24 3C 3E 22 22  |220 IF NAME$<>""|
00000270: 20 54 48 45 4E 0D 0A 30  32 33 30 20 50 52 49 4E  | THEN..0230 PRIN|
00000280: 54 20 22 4E 55 4D 4D 45  52 22 2C 0D 0A 30 32 34  |T "NUMMER",..024|
00000290: 30 20 49 4E 50 55 54 20  4E 52 0D 0A 30 32 35 30  |0 INPUT NR..0250|
000002A0: 20 53 43 48 55 45 4C 45  52 24 28 4E 52 29 3A 3D  | SCHUELER$(NR):=|
000002B0: 4E 41 4D 45 24 0D 0A 30  32 36 30 20 45 4E 44 49  |NAME$..0260 ENDI|
000002C0: 46 20 0D 0A 30 32 37 30  20 50 52 49 4E 54 20 0D  |F ..0270 PRINT .|
000002D0: 0A 30 32 38 30 20 55 4E  54 49 4C 20 4E 41 4D 45  |.0280 UNTIL NAME|
000002E0: 24 3D 22 22 0D 0A 30 32  39 30 20 45 4E 44 50 52  |$=""..0290 ENDPR|
000002F0: 4F 43 20 5A 55 47 41 4E  47 0D 0A 30 33 30 30 20  |OC ZUGANG..0300 |
00000300: 2F 2F 0D 0A 30 33 31 30  20 50 52 4F 43 20 44 52  |//..0310 PROC DR|
00000310: 55 43 4B 41 4C 4C 20 0D  0A 30 33 32 30 20 5A 45  |UCKALL ..0320 ZE|
00000320: 49 4C 45 28 35 29 0D 0A  30 33 33 30 20 46 4F 52  |ILE(5)..0330 FOR|
00000330: 20 4E 52 3A 3D 31 20 54  4F 20 31 30 20 44 4F 0D  | NR:=1 TO 10 DO.|
00000340: 0A 30 33 34 30 20 50 52  49 4E 54 20 4E 52 2C 22  |.0340 PRINT NR,"|
00000350: 3A 20 22 2C 53 43 48 55  45 4C 45 52 24 28 4E 52  |: ",SCHUELER$(NR|
00000360: 29 0D 0A 30 33 35 30 20  4E 45 58 54 20 4E 52 0D  |)..0350 NEXT NR.|
00000370: 0A 30 33 36 30 20 45 4E  44 50 52 4F 43 20 44 52  |.0360 ENDPROC DR|
00000380: 55 43 4B 41 4C 4C 0D 0A  30 33 37 30 20 2F 2F 0D  |UCKALL..0370 //.|
00000390: 0A 30 33 38 30 20 50 52  4F 43 20 44 52 55 43 4B  |.0380 PROC DRUCK|
000003A0: 45 49 4E 20 0D 0A 30 33  39 30 20 5A 45 49 4C 45  |EIN ..0390 ZEILE|
000003B0: 28 35 29 0D 0A 30 34 30  30 20 50 52 49 4E 54 20  |(5)..0400 PRINT |
000003C0: 22 4E 55 4D 4D 45 52 22  2C 0D 0A 30 34 31 30 20  |"NUMMER",..0410 |
000003D0: 49 4E 50 55 54 20 4E 52  0D 0A 30 34 32 30 20 49  |INPUT NR..0420 I|
000003E0: 46 20 53 43 48 55 45 4C  45 52 24 28 4E 52 29 3C  |F SCHUELER$(NR)<|
000003F0: 3E 22 22 20 54 48 45 4E  0D 0A 30 34 33 30 20 50  |>"" THEN..0430 P|
00000400: 52 49 4E 54 20 22 44 45  52 20 4E 41 4D 45 20 44  |RINT "DER NAME D|
00000410: 45 53 20 53 43 48 55 45  4C 45 52 53 20 4C 41 55  |ES SCHUELERS LAU|
00000420: 54 45 54 20 22 2C 53 43  48 55 45 4C 45 52 24 28  |TET ",SCHUELER$(|
00000430: 4E 52 29 0D 0A 30 34 34  30 20 45 4C 53 45 20 0D  |NR)..0440 ELSE .|
00000440: 0A 30 34 35 30 20 50 52  49 4E 54 20 22 4B 45 49  |.0450 PRINT "KEI|
00000450: 4E 20 53 43 48 55 45 4C  45 52 20 4D 49 54 20 44  |N SCHUELER MIT D|
00000460: 49 45 53 45 52 20 4E 55  4D 4D 45 52 21 22 0D 0A  |IESER NUMMER!"..|
00000470: 30 34 36 30 20 50 52 49  4E 54 20 22 4C 41 53 53  |0460 PRINT "LASS|
00000480: 45 4E 20 53 49 45 20 45  49 4E 45 20 4C 49 53 54  |EN SIE EINE LIST|
00000490: 45 20 41 55 53 44 52 55  43 4B 45 4E 20 28 4C 49  |E AUSDRUCKEN (LI|
000004A0: 53 54 29 2E 22 0D 0A 30  34 37 30 20 45 4E 44 49  |ST)."..0470 ENDI|
000004B0: 46 20 0D 0A 30 34 38 30  20 45 4E 44 50 52 4F 43  |F ..0480 ENDPROC|
000004C0: 20 44 52 55 43 4B 45 49  4E 0D 0A 30 34 39 30 20  | DRUCKEIN..0490 |
000004D0: 2F 2F 0D 0A 30 35 30 30  20 50 52 4F 43 20 5A 45  |//..0500 PROC ZE|
000004E0: 49 4C 45 28 58 29 20 0D  0A 30 35 31 30 20 50 52  |ILE(X) ..0510 PR|
000004F0: 49 4E 54 20 43 48 52 24  28 31 34 37 29 2C 20 2F  |INT CHR$(147), /|
00000500: 2F 41 42 4C 4F 45 53 43  48 45 4E 0D 0A 30 35 32  |/ABLOESCHEN..052|
00000510: 30 20 46 4F 52 20 49 3A  3D 31 20 54 4F 20 58 20  |0 FOR I:=1 TO X |
00000520: 44 4F 20 50 52 49 4E 54  20 20 2F 2F 58 20 4C 45  |DO PRINT  //X LE|
00000530: 45 52 5A 45 49 4C 45 4E  0D 0A 30 35 33 30 20 45  |ERZEILEN..0530 E|
00000540: 4E 44 50 52 4F 43 20 5A  45 49 4C 45 0D 0A        |NDPROC ZEILE..  |

0010 DIM SCHUELER$(10) OF 30, NAME$ OF 3
0..0020 DIM ANTWORT$ OF 10, AUFTRAG$ OF 
6..0030 //..0040 REPEAT  //HAUPTSCHLEIFE
//..0050 ZEILE(5)..0060 PRINT "WELCHER A
UFTRAG"..0065 PRINT "(AUFNEHMEN, AUFLIST
EN, ANFRAGEN)",..0070 INPUT AUFTRAG$..00
80 //FESTLEGEN DES AUFTRAGES//..0090 IF 
AUFTRAG$="AUFNEH" THEN ZUGANG..0100 IF A
UFTRAG$="AUFLIS" THEN DRUCKALL..0110 IF 
AUFTRAG$="ANFRAG" THEN DRUCKEIN..0120 PR
INT CHR$(19) //NACH HAUSE..0130 PRINT "W
EITERE AUFTRAEGE (J/N)",..0140 INPUT ANT
WORT$..0150 UNTIL ANTWORT$="N"..0160 //.
.0170 PROC ZUGANG ..0180 ZEILE(5)..0190 
REPEAT ..0200 PRINT "NAME",..0210 INPUT 
NAME$..0220 IF NAME$<>"" THEN..0230 PRIN
T "NUMMER",..0240 INPUT NR..0250 SCHUELE
R$(NR):=NAME$..0260 ENDIF ..0270 PRINT .
.0280 UNTIL NAME$=""..0290 ENDPROC ZUGAN
G..0300 //..0310 PROC DRUCKALL ..0320 ZE
ILE(5)..0330 FOR NR:=1 TO 10 DO..0340 PR
INT NR,": ",SCHUELER$(NR)..0350 NEXT NR.
.0360 ENDPROC DRUCKALL..0370 //..0380 PR
OC DRUCKEIN ..0390 ZEILE(5)..0400 PRINT 
"NUMMER",..0410 INPUT NR..0420 IF SCHUEL
ER$(NR)<>"" THEN..0430 PRINT "DER NAME D
ES SCHUELERS LAUTET ",SCHUELER$(NR)..044
0 ELSE ..0450 PRINT "KEIN SCHUELER MIT D
IESER NUMMER!"..0460 PRINT "LASSEN SIE E
INE LISTE AUSDRUCKEN (LIST)."..0470 ENDI
F ..0480 ENDPROC DRUCKEIN..0490 //..0500
 PROC ZEILE(X) ..0510 PRINT CHR$(147), /
/ABLOESCHEN..0520 FOR I:=1 TO X DO PRINT
  //X LEERZEILEN..0530 ENDPROC ZEILE..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL