_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

UEBG101

FILE INFORMATION

FILENAME(S): UEBG101

FILE TYPE(S): SEQ

FILE SIZE: 606b

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

APPEARS ON: 6 disk(s)

FILE HASH

5a9e25f3c5c998ca2f52d9ec4529f49fa13cf4b6e0e95b928209c915e08686a9

FOUND ON DISKS (6 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C OMAL UEBG101 SEQ Treasure Chest - Wolfgang Rauprich 21 9 DOWNLOAD FILE
FREEWARE DISK NR UEBG101 SEQ Treasure Chest - Wolfgang Rauprich 21 9 DOWNLOAD FILE
COMAL 0 14 UEBG101 SEQ Treasure Chest - Wolfgang Rauprich 14 12 DOWNLOAD FILE
C OMAL 0 14 UEBG101 SEQ Treasure Chest - Wolfgang Rauprich 14 12 DOWNLOAD FILE
C OMAL UEBG101 SEQ Treasure Chest - Wolfgang Rauprich 21 9 DOWNLOAD FILE
FREESOFT DISK NR UEBG101 SEQ Treasure Chest - Wolfgang Rauprich 21 9 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 45 4E 44 50 52  |LLE ..0270 ENDPR|
00000250: 4F 43 20 4B 4F 4E 54 52  4F 4C 4C 45 0D 0A        |OC KONTROLLE..  |

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 ENDPROC KONTR
OLLE..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL