ADDIEREN

FILE INFORMATION

FILENAME(S): ADDIEREN

FILE TYPE(S): SEQ

FILE SIZE: 906b

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

APPEARS ON: 6 disk(s)

FILE HASH

b61eae2bfda0114ac5a77ed3f82452b7e0d7a309dfb30a4cf6fd22550ddb052c

FOUND ON DISKS (6 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 2A  20 50 52 4F 47 52 41 4D  |0010 //* PROGRAM|
00000010: 4D 3A 20 41 44 44 49 45  52 45 4E 20 2A 2F 2F 0D  |M: ADDIEREN *//.|
00000020: 0A 30 30 32 30 20 2F 2F  0D 0A 30 30 33 30 20 50  |.0020 //..0030 P|
00000030: 52 49 4E 54 20 43 48 52  24 28 31 34 37 29 20 2F  |RINT CHR$(147) /|
00000040: 2F 41 42 4C 4F 45 53 43  48 45 4E 20 44 45 53 20  |/ABLOESCHEN DES |
00000050: 42 49 4C 44 53 43 48 49  52 4D 53 2F 2F 0D 0A 30  |BILDSCHIRMS//..0|
00000060: 30 34 30 20 50 52 49 4E  54 20 22 57 49 45 56 49  |040 PRINT "WIEVI|
00000070: 45 4C 45 20 55 45 42 55  4E 47 45 4E 22 2C 0D 0A  |ELE UEBUNGEN",..|
00000080: 30 30 35 30 20 49 4E 50  55 54 20 48 4F 45 43 48  |0050 INPUT HOECH|
00000090: 53 54 5A 41 48 4C 0D 0A  30 30 36 30 20 46 4F 52  |STZAHL..0060 FOR|
000000A0: 20 4E 52 3A 3D 31 20 54  4F 20 48 4F 45 43 48 53  | NR:=1 TO HOECHS|
000000B0: 54 5A 41 48 4C 20 44 4F  0D 0A 30 30 37 30 20 41  |TZAHL DO..0070 A|
000000C0: 3A 3D 52 4E 44 28 31 2C  35 29 3B 20 42 3A 3D 52  |:=RND(1,5); B:=R|
000000D0: 4E 44 28 31 2C 35 29 0D  0A 30 30 38 30 20 45 52  |ND(1,5)..0080 ER|
000000E0: 47 45 42 4E 49 53 3A 3D  41 2B 42 0D 0A 30 30 39  |GEBNIS:=A+B..009|
000000F0: 30 20 55 45 42 55 4E 47  0D 0A 30 31 30 30 20 47  |0 UEBUNG..0100 G|
00000100: 49 42 41 4E 54 57 4F 52  54 0D 0A 30 31 31 30 20  |IBANTWORT..0110 |
00000110: 4B 4F 4E 54 52 4F 4C 4C  45 0D 0A 30 31 32 30 20  |KONTROLLE..0120 |
00000120: 4E 45 58 54 20 4E 52 0D  0A 30 31 33 30 20 2F 2F  |NEXT NR..0130 //|
00000130: 0D 0A 30 31 34 30 20 50  52 4F 43 20 55 45 42 55  |..0140 PROC UEBU|
00000140: 4E 47 20 0D 0A 30 31 35  30 20 46 4F 52 20 49 3A  |NG ..0150 FOR I:|
00000150: 3D 31 20 54 4F 20 33 20  44 4F 20 50 52 49 4E 54  |=1 TO 3 DO PRINT|
00000160: 20 0D 0A 30 31 36 30 20  50 52 49 4E 54 20 22 2D  | ..0160 PRINT "-|
00000170: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000180: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 22 0D 0A 30 31  |-----------"..01|
00000190: 37 30 20 50 52 49 4E 54  20 22 55 45 42 55 4E 47  |70 PRINT "UEBUNG|
000001A0: 20 4E 52 2E 20 22 2C 4E  52 0D 0A 30 31 38 30 20  | NR. ",NR..0180 |
000001B0: 50 52 49 4E 54 20 0D 0A  30 31 39 30 20 45 4E 44  |PRINT ..0190 END|
000001C0: 50 52 4F 43 20 55 45 42  55 4E 47 0D 0A 30 32 30  |PROC UEBUNG..020|
000001D0: 30 20 2F 2F 0D 0A 30 32  31 30 20 50 52 4F 43 20  |0 //..0210 PROC |
000001E0: 47 49 42 41 4E 54 57 4F  52 54 20 0D 0A 30 32 32  |GIBANTWORT ..022|
000001F0: 30 20 5A 3A 3D 30 0D 0A  30 32 33 30 20 52 45 50  |0 Z:=0..0230 REP|
00000200: 45 41 54 20 0D 0A 30 32  34 30 20 50 52 49 4E 54  |EAT ..0240 PRINT|
00000210: 20 41 2C 22 20 2B 20 22  2C 42 2C 22 20 3D 20 22  | A," + ",B," = "|
00000220: 2C 0D 0A 30 32 35 30 20  49 4E 50 55 54 20 22 22  |,..0250 INPUT ""|
00000230: 3A 20 41 4E 54 57 4F 52  54 0D 0A 30 32 36 30 20  |: ANTWORT..0260 |
00000240: 5A 3A 3D 5A 2B 31 0D 0A  30 32 37 30 20 50 52 49  |Z:=Z+1..0270 PRI|
00000250: 4E 54 20 0D 0A 30 32 38  30 20 55 4E 54 49 4C 20  |NT ..0280 UNTIL |
00000260: 41 4E 54 57 4F 52 54 3D  45 52 47 45 42 4E 49 53  |ANTWORT=ERGEBNIS|
00000270: 20 4F 52 20 5A 3D 33 0D  0A 30 32 39 30 20 45 4E  | OR Z=3..0290 EN|
00000280: 44 50 52 4F 43 20 47 49  42 41 4E 54 57 4F 52 54  |DPROC GIBANTWORT|
00000290: 0D 0A 30 33 30 30 20 2F  2F 0D 0A 30 33 31 30 20  |..0300 //..0310 |
000002A0: 50 52 4F 43 20 4B 4F 4E  54 52 4F 4C 4C 45 20 0D  |PROC KONTROLLE .|
000002B0: 0A 30 33 32 30 20 49 46  20 41 4E 54 57 4F 52 54  |.0320 IF ANTWORT|
000002C0: 3D 45 52 47 45 42 4E 49  53 20 54 48 45 4E 0D 0A  |=ERGEBNIS THEN..|
000002D0: 30 33 33 30 20 50 52 49  4E 54 20 22 44 41 53 20  |0330 PRINT "DAS |
000002E0: 49 53 54 20 52 49 43 48  54 49 47 21 22 0D 0A 30  |IST RICHTIG!"..0|
000002F0: 33 34 30 20 45 4C 53 45  20 0D 0A 30 33 35 30 20  |340 ELSE ..0350 |
00000300: 50 52 49 4E 54 20 22 44  45 49 4E 45 20 41 4E 54  |PRINT "DEINE ANT|
00000310: 57 4F 52 54 20 49 53 54  20 4E 49 43 48 54 20 52  |WORT IST NICHT R|
00000320: 49 43 48 54 49 47 3B 22  0D 0A 30 33 36 30 20 50  |ICHTIG;"..0360 P|
00000330: 52 49 4E 54 20 0D 0A 30  33 37 30 20 50 52 49 4E  |RINT ..0370 PRIN|
00000340: 54 20 41 2C 22 20 2B 20  22 2C 42 2C 22 20 3D 20  |T A," + ",B," = |
00000350: 22 2C 45 52 47 45 42 4E  49 53 0D 0A 30 33 38 30  |",ERGEBNIS..0380|
00000360: 20 45 4E 44 49 46 20 0D  0A 30 33 39 30 20 45 4E  | ENDIF ..0390 EN|
00000370: 44 50 52 4F 43 20 4B 4F  4E 54 52 4F 4C 4C 45 0D  |DPROC KONTROLLE.|
00000380: 0A 30 34 30 30 20 2F 2F  0D 0A                    |.0400 //..      |

0010 //* PROGRAMM: ADDIEREN *//..0020 //
..0030 PRINT CHR$(147) //ABLOESCHEN DES 
BILDSCHIRMS//..0040 PRINT "WIEVIELE UEBU
NGEN",..0050 INPUT HOECHSTZAHL..0060 FOR
 NR:=1 TO HOECHSTZAHL DO..0070 A:=RND(1,
5); B:=RND(1,5)..0080 ERGEBNIS:=A+B..009
0 UEBUNG..0100 GIBANTWORT..0110 KONTROLL
E..0120 NEXT NR..0130 //..0140 PROC UEBU
NG ..0150 FOR I:=1 TO 3 DO PRINT ..0160 
PRINT "----------------------------"..01
70 PRINT "UEBUNG NR. ",NR..0180 PRINT ..
0190 ENDPROC UEBUNG..0200 //..0210 PROC 
GIBANTWORT ..0220 Z:=0..0230 REPEAT ..02
40 PRINT A," + ",B," = ",..0250 INPUT ""
: ANTWORT..0260 Z:=Z+1..0270 PRINT ..028
0 UNTIL ANTWORT=ERGEBNIS OR Z=3..0290 EN
DPROC GIBANTWORT..0300 //..0310 PROC KON
TROLLE ..0320 IF ANTWORT=ERGEBNIS THEN..
0330 PRINT "DAS IST RICHTIG!"..0340 ELSE
 ..0350 PRINT "DEINE ANTWORT IST NICHT R
ICHTIG;"..0360 PRINT ..0370 PRINT A," + 
",B," = ",ERGEBNIS..0380 ENDIF ..0390 EN
DPROC KONTROLLE..0400 //..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL