UEBG141

FILE INFORMATION

FILENAME(S): UEBG141

FILE TYPE(S): SEQ

FILE SIZE: 2K

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

APPEARS ON: 4 disk(s)

FILE HASH

7a5cdb17eae8015645b3e4e658896eb6d88e762a6361f3858800828e13242c7b

FOUND ON DISKS (4 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C OMAL	UEBG141	SEQ	Treasure Chest - Wolfgang Rauprich	24	10	DOWNLOAD FILE
FREEWARE DISK NR	UEBG141	SEQ	Treasure Chest - Wolfgang Rauprich	24	10	DOWNLOAD FILE
C OMAL	UEBG141	SEQ	Treasure Chest - Wolfgang Rauprich	24	10	DOWNLOAD FILE
FREESOFT DISK NR	UEBG141	SEQ	Treasure Chest - Wolfgang Rauprich	24	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 44 49 4D  20 54 45 58 54 24 20 4F  |0010 DIM TEXT$ O|
00000010: 46 20 37 30 2C 20 57 4F  52 54 24 20 4F 46 20 31  |F 70, WORT$ OF 1|
00000020: 30 0D 0A 30 30 32 30 20  44 49 4D 20 41 4E 54 57  |0..0020 DIM ANTW|
00000030: 24 20 4F 46 20 31 30 2C  20 57 49 4E 4B 24 20 4F  |$ OF 10, WINK$ O|
00000040: 46 20 32 0D 0A 30 30 33  30 20 5A 45 49 4C 45 28  |F 2..0030 ZEILE(|
00000050: 35 29 0D 0A 30 30 34 30  20 50 52 49 4E 54 20 22  |5)..0040 PRINT "|
00000060: 57 49 45 56 49 45 4C 45  20 55 45 42 55 4E 47 45  |WIEVIELE UEBUNGE|
00000070: 4E 20 28 4D 41 58 2E 20  36 29 22 2C 0D 0A 30 30  |N (MAX. 6)",..00|
00000080: 35 30 20 49 4E 50 55 54  20 4D 41 58 41 4E 5A 0D  |50 INPUT MAXANZ.|
00000090: 0A 30 30 36 30 20 46 4F  52 20 4E 52 3A 3D 31 20  |.0060 FOR NR:=1 |
000000A0: 54 4F 20 4D 41 58 41 4E  5A 20 44 4F 20 55 45 42  |TO MAXANZ DO UEB|
000000B0: 55 4E 47 0D 0A 30 30 37  30 20 2F 2F 0D 0A 30 30  |UNG..0070 //..00|
000000C0: 38 30 20 50 52 4F 43 20  55 45 42 55 4E 47 20 0D  |80 PROC UEBUNG .|
000000D0: 0A 30 30 39 30 20 56 45  52 53 55 43 48 45 3A 3D  |.0090 VERSUCHE:=|
000000E0: 30 0D 0A 30 31 30 30 20  52 45 41 44 20 54 45 58  |0..0100 READ TEX|
000000F0: 54 24 2C 57 4F 52 54 24  0D 0A 30 31 31 30 20 52  |T$,WORT$..0110 R|
00000100: 45 50 45 41 54 20 0D 0A  30 31 32 30 20 41 55 46  |EPEAT ..0120 AUF|
00000110: 53 54 45 4C 4C 45 4E 0D  0A 30 31 33 30 20 47 49  |STELLEN..0130 GI|
00000120: 42 41 4E 54 57 0D 0A 30  31 34 30 20 4B 4F 4E 54  |BANTW..0140 KONT|
00000130: 52 4F 4C 4C 45 0D 0A 30  31 35 30 20 55 4E 54 49  |ROLLE..0150 UNTI|
00000140: 4C 20 41 4E 54 57 24 3D  57 4F 52 54 24 20 4F 52  |L ANTW$=WORT$ OR|
00000150: 20 56 45 52 53 55 43 48  45 3D 33 0D 0A 30 31 36  | VERSUCHE=3..016|
00000160: 30 20 45 4E 44 50 52 4F  43 20 55 45 42 55 4E 47  |0 ENDPROC UEBUNG|
00000170: 0D 0A 30 31 37 30 20 2F  2F 0D 0A 30 31 38 30 20  |..0170 //..0180 |
00000180: 50 52 4F 43 20 41 55 46  53 54 45 4C 4C 45 4E 20  |PROC AUFSTELLEN |
00000190: 0D 0A 30 31 39 30 20 5A  45 49 4C 45 28 32 29 0D  |..0190 ZEILE(2).|
000001A0: 0A 30 32 30 30 20 50 52  49 4E 54 20 22 2D 2D 2D  |.0200 PRINT "---|
000001B0: 2D 2D 2D 2D 20 55 45 42  55 4E 47 20 4E 52 2E 20  |---- UEBUNG NR. |
000001C0: 22 2C 4E 52 2C 22 20 2D  2D 2D 2D 2D 2D 2D 2D 22  |",NR," --------"|
000001D0: 0D 0A 30 32 31 30 20 50  52 49 4E 54 20 0D 0A 30  |..0210 PRINT ..0|
000001E0: 32 32 30 20 50 52 49 4E  54 20 54 41 42 28 32 29  |220 PRINT TAB(2)|
000001F0: 2C 54 45 58 54 24 0D 0A  30 32 33 30 20 50 52 49  |,TEXT$..0230 PRI|
00000200: 4E 54 20 0D 0A 30 32 34  30 20 50 52 49 4E 54 20  |NT ..0240 PRINT |
00000210: 22 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |"---------------|
00000220: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000230: 22 0D 0A 30 32 35 30 20  45 4E 44 50 52 4F 43 20  |"..0250 ENDPROC |
00000240: 41 55 46 53 54 45 4C 4C  45 4E 0D 0A 30 32 36 30  |AUFSTELLEN..0260|
00000250: 20 2F 2F 0D 0A 30 32 37  30 20 50 52 4F 43 20 47  | //..0270 PROC G|
00000260: 49 42 41 4E 54 57 20 0D  0A 30 32 38 30 20 50 52  |IBANTW ..0280 PR|
00000270: 49 4E 54 20 0D 0A 30 32  39 30 20 50 52 49 4E 54  |INT ..0290 PRINT|
00000280: 20 22 56 45 52 42 20 49  4D 20 49 4D 50 45 52 46  | "VERB IM IMPERF|
00000290: 45 4B 54 22 2C 0D 0A 30  33 30 30 20 49 4E 50 55  |EKT",..0300 INPU|
000002A0: 54 20 41 4E 54 57 24 0D  0A 30 33 31 30 20 45 4E  |T ANTW$..0310 EN|
000002B0: 44 50 52 4F 43 20 47 49  42 41 4E 54 57 0D 0A 30  |DPROC GIBANTW..0|
000002C0: 33 32 30 20 2F 2F 0D 0A  30 33 33 30 20 50 52 4F  |320 //..0330 PRO|
000002D0: 43 20 4B 4F 4E 54 52 4F  4C 4C 45 20 0D 0A 30 33  |C KONTROLLE ..03|
000002E0: 34 30 20 56 45 52 53 55  43 48 45 3A 3D 56 45 52  |40 VERSUCHE:=VER|
000002F0: 53 55 43 48 45 2B 31 0D  0A 30 33 35 30 20 49 46  |SUCHE+1..0350 IF|
00000300: 20 41 4E 54 57 24 3C 3E  57 4F 52 54 24 20 54 48  | ANTW$<>WORT$ TH|
00000310: 45 4E 0D 0A 30 33 36 30  20 50 52 49 4E 54 20 0D  |EN..0360 PRINT .|
00000320: 0A 30 33 37 30 20 50 52  49 4E 54 20 22 4E 45 49  |.0370 PRINT "NEI|
00000330: 4E 20 2D 20 22 2C 41 4E  54 57 24 2C 22 20 2D 20  |N - ",ANTW$," - |
00000340: 49 53 54 20 4E 49 43 48  54 20 52 49 43 48 54 49  |IST NICHT RICHTI|
00000350: 47 2E 22 0D 0A 30 33 38  30 20 48 49 4C 46 45 0D  |G."..0380 HILFE.|
00000360: 0A 30 33 39 30 20 45 4C  53 45 20 0D 0A 30 34 30  |.0390 ELSE ..040|
00000370: 30 20 50 52 49 4E 54 20  0D 0A 30 34 31 30 20 50  |0 PRINT ..0410 P|
00000380: 52 49 4E 54 20 22 4A 41  2C 20 44 41 53 20 49 53  |RINT "JA, DAS IS|
00000390: 54 20 52 49 43 48 54 49  47 21 22 0D 0A 30 34 32  |T RICHTIG!"..042|
000003A0: 30 20 45 4E 44 49 46 20  0D 0A 30 34 33 30 20 57  |0 ENDIF ..0430 W|
000003B0: 41 52 54 45 28 33 29 0D  0A 30 34 34 30 20 45 4E  |ARTE(3)..0440 EN|
000003C0: 44 50 52 4F 43 20 4B 4F  4E 54 52 4F 4C 4C 45 0D  |DPROC KONTROLLE.|
000003D0: 0A 30 34 35 30 20 2F 2F  0D 0A 30 34 36 30 20 50  |.0450 //..0460 P|
000003E0: 52 4F 43 20 48 49 4C 46  45 20 0D 0A 30 34 37 30  |ROC HILFE ..0470|
000003F0: 20 49 46 20 56 45 52 53  55 43 48 45 3D 31 20 54  | IF VERSUCHE=1 T|
00000400: 48 45 4E 0D 0A 30 34 38  30 20 57 49 4E 4B 24 3A  |HEN..0480 WINK$:|
00000410: 3D 57 4F 52 54 24 0D 0A  30 34 39 30 20 50 52 49  |=WORT$..0490 PRI|
00000420: 4E 54 20 22 56 45 52 53  55 43 48 45 20 53 4F 20  |NT "VERSUCHE SO |
00000430: 41 4E 5A 55 46 41 4E 47  45 4E 3A 2D 20 22 2C 57  |ANZUFANGEN:- ",W|
00000440: 49 4E 4B 24 0D 0A 30 35  30 30 20 50 52 49 4E 54  |INK$..0500 PRINT|
00000450: 20 0D 0A 30 35 31 30 20  45 4C 53 45 20 0D 0A 30  | ..0510 ELSE ..0|
00000460: 35 32 30 20 49 46 20 56  45 52 53 55 43 48 45 3D  |520 IF VERSUCHE=|
00000470: 32 20 54 48 45 4E 0D 0A  30 35 33 30 20 50 52 49  |2 THEN..0530 PRI|
00000480: 4E 54 20 22 50 52 4F 42  49 45 52 45 20 45 53 20  |NT "PROBIERE ES |
00000490: 53 4F 3A 2D 20 22 2C 57  4F 52 54 24 0D 0A 30 35  |SO:- ",WORT$..05|
000004A0: 34 30 20 45 4C 53 45 20  0D 0A 30 35 35 30 20 50  |40 ELSE ..0550 P|
000004B0: 52 49 4E 54 20 22 44 49  45 20 52 49 43 48 54 49  |RINT "DIE RICHTI|
000004C0: 47 45 20 46 4F 52 4D 20  49 4D 20 49 4D 50 45 52  |GE FORM IM IMPER|
000004D0: 46 45 4B 54 20 4C 41 55  54 45 54 22 0D 0A 30 35  |FEKT LAUTET"..05|
000004E0: 36 30 20 50 52 49 4E 54  20 22 20 20 20 20 20 20  |60 PRINT "      |
000004F0: 20 2D 20 22 2C 57 4F 52  54 24 2C 22 20 2D 22 0D  | - ",WORT$," -".|
00000500: 0A 30 35 37 30 20 50 52  49 4E 54 20 22 42 45 4D  |.0570 PRINT "BEM|
00000510: 55 45 48 45 20 44 49 43  48 2C 20 44 41 53 20 4E  |UEHE DICH, DAS N|
00000520: 49 43 48 54 20 57 49 45  44 45 52 20 5A 55 20 56  |ICHT WIEDER ZU V|
00000530: 45 52 47 45 53 53 45 4E  21 22 0D 0A 30 35 38 30  |ERGESSEN!"..0580|
00000540: 20 57 41 52 54 45 28 32  29 0D 0A 30 35 39 30 20  | WARTE(2)..0590 |
00000550: 45 4E 44 49 46 20 0D 0A  30 36 30 30 20 45 4E 44  |ENDIF ..0600 END|
00000560: 49 46 20 0D 0A 30 36 31  30 20 57 41 52 54 45 28  |IF ..0610 WARTE(|
00000570: 34 29 0D 0A 30 36 32 30  20 45 4E 44 50 52 4F 43  |4)..0620 ENDPROC|
00000580: 20 48 49 4C 46 45 0D 0A  30 36 33 30 20 2F 2F 0D  | HILFE..0630 //.|
00000590: 0A 30 36 34 30 20 2F 2F  2A 45 49 4E 45 20 44 41  |.0640 //*EINE DA|
000005A0: 54 45 4E 53 43 48 4C 41  4E 47 45 20 41 55 53 20  |TENSCHLANGE AUS |
000005B0: 54 45 58 54 45 4E 20 55  4E 44 20 41 4E 54 57 4F  |TEXTEN UND ANTWO|
000005C0: 52 54 45 4E 2A 2F 2F 0D  0A 30 36 35 30 20 44 41  |RTEN*//..0650 DA|
000005D0: 54 41 20 22 42 41 43 48  20 2A 47 45 48 54 2A 20  |TA "BACH *GEHT* |
000005E0: 49 4E 20 44 49 45 20 53  54 41 44 54 22 2C 22 47  |IN DIE STADT","G|
000005F0: 49 4E 47 22 0D 0A 30 36  36 30 20 44 41 54 41 20  |ING"..0660 DATA |
00000600: 22 4C 4F 54 54 45 20 2A  47 45 57 49 4E 4E 54 2A  |"LOTTE *GEWINNT*|
00000610: 20 44 41 53 20 53 50 49  45 4C 22 2C 22 47 45 57  | DAS SPIEL","GEW|
00000620: 41 4E 4E 22 0D 0A 30 36  37 30 20 44 41 54 41 20  |ANN"..0670 DATA |
00000630: 22 53 49 45 20 2A 53 49  54 5A 45 4E 2A 20 41 4D  |"SIE *SITZEN* AM|
00000640: 20 46 45 55 45 52 22 2C  22 53 41 53 53 45 4E 22  | FEUER","SASSEN"|
00000650: 0D 0A 30 36 38 30 20 44  41 54 41 20 22 57 49 52  |..0680 DATA "WIR|
00000660: 20 2A 52 49 45 43 48 45  4E 2A 20 44 45 4E 20 42  | *RIECHEN* DEN B|
00000670: 52 41 54 45 4E 22 2C 22  52 4F 43 48 45 4E 22 0D  |RATEN","ROCHEN".|
00000680: 0A 30 36 39 30 20 44 41  54 41 20 22 57 49 52 20  |.0690 DATA "WIR |
00000690: 2A 53 49 4E 47 45 4E 2A  20 49 4D 20 43 48 4F 52  |*SINGEN* IM CHOR|
000006A0: 22 2C 22 53 41 4E 47 45  4E 22 0D 0A 30 37 30 30  |","SANGEN"..0700|
000006B0: 20 44 41 54 41 20 22 53  49 45 20 2A 4C 41 55 46  | DATA "SIE *LAUF|
000006C0: 45 4E 2A 20 5A 55 4D 20  46 45 55 45 52 22 2C 22  |EN* ZUM FEUER","|
000006D0: 4C 49 45 46 45 4E 22 0D  0A 30 37 31 30 20 44 41  |LIEFEN"..0710 DA|
000006E0: 54 41 20 22 44 45 52 20  54 4F 4E 20 2A 4B 4C 49  |TA "DER TON *KLI|
000006F0: 4E 47 54 2A 20 53 41 55  42 45 52 22 2C 22 4B 4C  |NGT* SAUBER","KL|
00000700: 41 4E 47 22 0D 0A 30 37  32 30 20 2F 2F 0D 0A 30  |ANG"..0720 //..0|
00000710: 37 33 30 20 50 52 4F 43  20 5A 45 49 4C 45 28 58  |730 PROC ZEILE(X|
00000720: 29 20 0D 0A 30 37 34 30  20 50 52 49 4E 54 20 43  |) ..0740 PRINT C|
00000730: 48 52 24 28 31 34 37 29  2C 20 2F 2F 41 42 4C 4F  |HR$(147), //ABLO|
00000740: 45 53 43 48 45 4E 20 44  45 53 20 42 49 4C 44 53  |ESCHEN DES BILDS|
00000750: 43 48 49 52 4D 53 0D 0A  30 37 35 30 20 46 4F 52  |CHIRMS..0750 FOR|
00000760: 20 49 3A 3D 31 20 54 4F  20 58 20 44 4F 20 50 52  | I:=1 TO X DO PR|
00000770: 49 4E 54 20 20 2F 2F 58  20 4C 45 45 52 5A 45 49  |INT  //X LEERZEI|
00000780: 4C 45 4E 0D 0A 30 37 36  30 20 45 4E 44 50 52 4F  |LEN..0760 ENDPRO|
00000790: 43 20 5A 45 49 4C 45 0D  0A 30 37 37 30 20 2F 2F  |C ZEILE..0770 //|
000007A0: 0D 0A 30 37 38 30 20 50  52 4F 43 20 57 41 52 54  |..0780 PROC WART|
000007B0: 45 28 58 29 20 0D 0A 30  37 39 30 20 46 4F 52 20  |E(X) ..0790 FOR |
000007C0: 49 3A 3D 31 20 54 4F 20  58 2A 37 37 35 20 44 4F  |I:=1 TO X*775 DO|
000007D0: 0D 0A 30 38 30 30 20 4E  45 58 54 20 49 20 2F 2F  |..0800 NEXT I //|
000007E0: 57 41 52 54 45 20 45 54  57 41 20 58 20 53 45 43  |WARTE ETWA X SEC|
000007F0: 2E 2F 2F 0D 0A 30 38 31  30 20 45 4E 44 50 52 4F  |.//..0810 ENDPRO|
00000800: 43 20 57 41 52 54 45 0D  0A                       |C WARTE..       |

0010 DIM TEXT$ OF 70, WORT$ OF 10..0020 
DIM ANTW$ OF 10, WINK$ OF 2..0030 ZEILE(
5)..0040 PRINT "WIEVIELE UEBUNGEN (MAX. 
6)",..0050 INPUT MAXANZ..0060 FOR NR:=1 
TO MAXANZ DO UEBUNG..0070 //..0080 PROC 
UEBUNG ..0090 VERSUCHE:=0..0100 READ TEX
T$,WORT$..0110 REPEAT ..0120 AUFSTELLEN.
.0130 GIBANTW..0140 KONTROLLE..0150 UNTI
L ANTW$=WORT$ OR VERSUCHE=3..0160 ENDPRO
C UEBUNG..0170 //..0180 PROC AUFSTELLEN 
..0190 ZEILE(2)..0200 PRINT "------- UEB
UNG NR. ",NR," --------"..0210 PRINT ..0
220 PRINT TAB(2),TEXT$..0230 PRINT ..024
0 PRINT "-------------------------------
"..0250 ENDPROC AUFSTELLEN..0260 //..027
0 PROC GIBANTW ..0280 PRINT ..0290 PRINT
 "VERB IM IMPERFEKT",..0300 INPUT ANTW$.
.0310 ENDPROC GIBANTW..0320 //..0330 PRO
C KONTROLLE ..0340 VERSUCHE:=VERSUCHE+1.
.0350 IF ANTW$<>WORT$ THEN..0360 PRINT .
.0370 PRINT "NEIN - ",ANTW$," - IST NICH
T RICHTIG."..0380 HILFE..0390 ELSE ..040
0 PRINT ..0410 PRINT "JA, DAS IST RICHTI
G!"..0420 ENDIF ..0430 WARTE(3)..0440 EN
DPROC KONTROLLE..0450 //..0460 PROC HILF
E ..0470 IF VERSUCHE=1 THEN..0480 WINK$:
=WORT$..0490 PRINT "VERSUCHE SO ANZUFANG
EN:- ",WINK$..0500 PRINT ..0510 ELSE ..0
520 IF VERSUCHE=2 THEN..0530 PRINT "PROB
IERE ES SO:- ",WORT$..0540 ELSE ..0550 P
RINT "DIE RICHTIGE FORM IM IMPERFEKT LAU
TET"..0560 PRINT "       - ",WORT$," -".
.0570 PRINT "BEMUEHE DICH, DAS NICHT WIE
DER ZU VERGESSEN!"..0580 WARTE(2)..0590 
ENDIF ..0600 ENDIF ..0610 WARTE(4)..0620
 ENDPROC HILFE..0630 //..0640 //*EINE DA
TENSCHLANGE AUS TEXTEN UND ANTWORTEN*//.
.0650 DATA "BACH *GEHT* IN DIE STADT","G
ING"..0660 DATA "LOTTE *GEWINNT* DAS SPI
EL","GEWANN"..0670 DATA "SIE *SITZEN* AM
 FEUER","SASSEN"..0680 DATA "WIR *RIECHE
N* DEN BRATEN","ROCHEN"..0690 DATA "WIR 
*SINGEN* IM CHOR","SANGEN"..0700 DATA "S
IE *LAUFEN* ZUM FEUER","LIEFEN"..0710 DA
TA "DER TON *KLINGT* SAUBER","KLANG"..07
20 //..0730 PROC ZEILE(X) ..0740 PRINT C
HR$(147), //ABLOESCHEN DES BILDSCHIRMS..
0750 FOR I:=1 TO X DO PRINT  //X LEERZEI
LEN..0760 ENDPROC ZEILE..0770 //..0780 P
ROC WARTE(X) ..0790 FOR I:=1 TO X*775 DO
..0800 NEXT I //WARTE ETWA X SEC.//..081
0 ENDPROC WARTE..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL