UEBG105

FILE INFORMATION

FILENAME(S): UEBG105

FILE TYPE(S): SEQ

FILE SIZE: 790b

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

APPEARS ON: 6 disk(s)

FILE HASH

0e47f99bd1125e0654a60514bdfd845cd75aa1d8f9743dbe23c1662f80ecec2a

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C OMAL	UEBG105	SEQ	Treasure Chest - Wolfgang Rauprich	22	11	DOWNLOAD FILE
FREEWARE DISK NR	UEBG105	SEQ	Treasure Chest - Wolfgang Rauprich	22	11	DOWNLOAD FILE
COMAL 0 14	UEBG105	SEQ	Treasure Chest - Wolfgang Rauprich	14	16	DOWNLOAD FILE
C OMAL 0 14	UEBG105	SEQ	Treasure Chest - Wolfgang Rauprich	14	16	DOWNLOAD FILE
C OMAL	UEBG105	SEQ	Treasure Chest - Wolfgang Rauprich	22	11	DOWNLOAD FILE
FREESOFT DISK NR	UEBG105	SEQ	Treasure Chest - Wolfgang Rauprich	22	11	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 50 52 49 4E 54  20 22 57 49 45 56 49 45  |30 PRINT "WIEVIE|
00000050: 4C 45 20 55 45 42 55 4E  47 45 4E 22 2C 0D 0A 30  |LE UEBUNGEN",..0|
00000060: 30 34 30 20 49 4E 50 55  54 20 48 4F 45 43 48 53  |040 INPUT HOECHS|
00000070: 54 5A 41 48 4C 0D 0A 30  30 35 30 20 46 4F 52 20  |TZAHL..0050 FOR |
00000080: 4E 52 3A 3D 31 20 54 4F  20 48 4F 45 43 48 53 54  |NR:=1 TO HOECHST|
00000090: 5A 41 48 4C 20 44 4F 0D  0A 30 30 36 30 20 41 3A  |ZAHL DO..0060 A:|
000000A0: 3D 52 4E 44 28 31 2C 35  29 3B 20 42 3A 3D 52 4E  |=RND(1,5); B:=RN|
000000B0: 44 28 31 2C 35 29 0D 0A  30 30 37 30 20 45 52 47  |D(1,5)..0070 ERG|
000000C0: 45 42 4E 49 53 3A 3D 41  2B 42 0D 0A 30 30 38 30  |EBNIS:=A+B..0080|
000000D0: 20 55 45 42 55 4E 47 0D  0A 30 30 39 30 20 47 49  | UEBUNG..0090 GI|
000000E0: 42 41 4E 54 57 4F 52 54  0D 0A 30 31 30 30 20 4B  |BANTWORT..0100 K|
000000F0: 4F 4E 54 52 4F 4C 4C 45  0D 0A 30 31 31 30 20 4E  |ONTROLLE..0110 N|
00000100: 45 58 54 20 4E 52 0D 0A  30 31 32 30 20 2F 2F 0D  |EXT NR..0120 //.|
00000110: 0A 30 31 33 30 20 50 52  4F 43 20 55 45 42 55 4E  |.0130 PROC UEBUN|
00000120: 47 20 0D 0A 30 31 34 30  20 46 4F 52 20 49 3A 3D  |G ..0140 FOR I:=|
00000130: 31 20 54 4F 20 33 20 44  4F 20 50 52 49 4E 54 20  |1 TO 3 DO PRINT |
00000140: 0D 0A 30 31 35 30 20 50  52 49 4E 54 20 22 2D 2D  |..0150 PRINT "--|
00000150: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000160: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 22 0D 0A 30 31 36  |----------"..016|
00000170: 30 20 50 52 49 4E 54 20  22 55 45 42 55 4E 47 20  |0 PRINT "UEBUNG |
00000180: 4E 52 2E 20 22 2C 4E 52  0D 0A 30 31 37 30 20 50  |NR. ",NR..0170 P|
00000190: 52 49 4E 54 20 0D 0A 30  31 38 30 20 45 4E 44 50  |RINT ..0180 ENDP|
000001A0: 52 4F 43 20 55 45 42 55  4E 47 0D 0A 30 31 39 30  |ROC UEBUNG..0190|
000001B0: 20 2F 2F 0D 0A 30 32 30  30 20 50 52 4F 43 20 47  | //..0200 PROC G|
000001C0: 49 42 41 4E 54 57 4F 52  54 20 0D 0A 30 32 31 30  |IBANTWORT ..0210|
000001D0: 20 50 52 49 4E 54 20 41  2C 22 20 2B 20 22 2C 42  | PRINT A," + ",B|
000001E0: 2C 22 20 3D 20 22 2C 0D  0A 30 32 32 30 20 49 4E  |," = ",..0220 IN|
000001F0: 50 55 54 20 22 22 3A 20  41 4E 54 57 4F 52 54 0D  |PUT "": ANTWORT.|
00000200: 0A 30 32 33 30 20 50 52  49 4E 54 20 0D 0A 30 32  |.0230 PRINT ..02|
00000210: 34 30 20 45 4E 44 50 52  4F 43 20 47 49 42 41 4E  |40 ENDPROC GIBAN|
00000220: 54 57 4F 52 54 0D 0A 30  32 35 30 20 2F 2F 0D 0A  |TWORT..0250 //..|
00000230: 30 32 36 30 20 50 52 4F  43 20 4B 4F 4E 54 52 4F  |0260 PROC KONTRO|
00000240: 4C 4C 45 20 0D 0A 30 32  37 30 20 49 46 20 41 4E  |LLE ..0270 IF AN|
00000250: 54 57 4F 52 54 3D 45 52  47 45 42 4E 49 53 20 54  |TWORT=ERGEBNIS T|
00000260: 48 45 4E 0D 0A 30 32 38  30 20 50 52 49 4E 54 20  |HEN..0280 PRINT |
00000270: 22 44 41 53 20 49 53 54  20 52 49 43 48 54 49 47  |"DAS IST RICHTIG|
00000280: 21 22 0D 0A 30 32 39 30  20 45 4C 53 45 20 0D 0A  |!"..0290 ELSE ..|
00000290: 30 33 30 30 20 50 52 49  4E 54 20 22 44 45 49 4E  |0300 PRINT "DEIN|
000002A0: 45 20 41 4E 54 57 4F 52  54 20 49 53 54 20 4E 49  |E ANTWORT IST NI|
000002B0: 43 48 54 20 52 49 43 48  54 49 47 3B 22 0D 0A 30  |CHT RICHTIG;"..0|
000002C0: 33 31 30 20 50 52 49 4E  54 20 0D 0A 30 33 32 30  |310 PRINT ..0320|
000002D0: 20 50 52 49 4E 54 20 41  2C 22 20 2B 20 22 2C 42  | PRINT A," + ",B|
000002E0: 2C 22 20 3D 20 22 2C 45  52 47 45 42 4E 49 53 0D  |," = ",ERGEBNIS.|
000002F0: 0A 30 33 33 30 20 45 4E  44 49 46 20 0D 0A 30 33  |.0330 ENDIF ..03|
00000300: 34 30 20 45 4E 44 50 52  4F 43 20 4B 4F 4E 54 52  |40 ENDPROC KONTR|
00000310: 4F 4C 4C 45 0D 0A                                 |OLLE..          |

0010 PRINT CHR$(147) //ABLOESCHEN DES BI
LDSCHIRMS//..0020 //..0030 PRINT "WIEVIE
LE UEBUNGEN",..0040 INPUT HOECHSTZAHL..0
050 FOR NR:=1 TO HOECHSTZAHL DO..0060 A:
=RND(1,5); B:=RND(1,5)..0070 ERGEBNIS:=A
+B..0080 UEBUNG..0090 GIBANTWORT..0100 K
ONTROLLE..0110 NEXT NR..0120 //..0130 PR
OC UEBUNG ..0140 FOR I:=1 TO 3 DO PRINT 
..0150 PRINT "--------------------------
--"..0160 PRINT "UEBUNG NR. ",NR..0170 P
RINT ..0180 ENDPROC UEBUNG..0190 //..020
0 PROC GIBANTWORT ..0210 PRINT A," + ",B
," = ",..0220 INPUT "": ANTWORT..0230 PR
INT ..0240 ENDPROC GIBANTWORT..0250 //..
0260 PROC KONTROLLE ..0270 IF ANTWORT=ER
GEBNIS THEN..0280 PRINT "DAS IST RICHTIG
!"..0290 ELSE ..0300 PRINT "DEINE ANTWOR
T IST NICHT RICHTIG;"..0310 PRINT ..0320
 PRINT A," + ",B," = ",ERGEBNIS..0330 EN
DIF ..0340 ENDPROC KONTROLLE..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL