RECHNEN
FILE INFORMATION
FILENAME(S): RECHNEN
FILE TYPE(S): SEQ
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 01:08:01
APPEARS ON: 6 disk(s)
FILE HASH
6ca05760c3b399cc6fdc03caaa18a41f34a41a392eb3fab8b11992a751a97b3c
FOUND ON DISKS (6 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C OMAL | RECHNEN | SEQ | Treasure Chest - Wolfgang Rauprich | 24 | 18 | DOWNLOAD FILE |
| FREEWARE DISK NR | RECHNEN | SEQ | Treasure Chest - Wolfgang Rauprich | 24 | 18 | DOWNLOAD FILE |
| COMAL 0 14 | RECHNEN | SEQ | Treasure Chest - Wolfgang Rauprich | 12 | 16 | DOWNLOAD FILE |
| C OMAL 0 14 | RECHNEN | SEQ | Treasure Chest - Wolfgang Rauprich | 12 | 16 | DOWNLOAD FILE |
| C OMAL | RECHNEN | SEQ | Treasure Chest - Wolfgang Rauprich | 24 | 18 | DOWNLOAD FILE |
| FREESOFT DISK NR | RECHNEN | SEQ | Treasure Chest - Wolfgang Rauprich | 24 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 30 30 31 30 20 2F 2F 2A 20 54 41 4E 54 45 20 4C |0010 //* TANTE L|
00000010: 55 49 53 45 53 20 50 52 4F 47 52 41 4D 4D 20 2A |UISES PROGRAMM *|
00000020: 2F 2F 0D 0A 30 30 32 30 20 2F 2F 2A 20 47 45 53 |//..0020 //* GES|
00000030: 43 48 52 49 45 42 45 4E 20 56 4F 4E 20 4C 55 49 |CHRIEBEN VON LUI|
00000040: 53 45 20 4F 4C 53 45 4E 20 2A 2F 2F 0D 0A 30 30 |SE OLSEN *//..00|
00000050: 33 30 20 2F 2F 2A 20 49 4E 20 5A 55 53 41 4D 4D |30 //* IN ZUSAMM|
00000060: 45 4E 41 52 42 45 49 54 20 4D 49 54 20 4D 41 52 |ENARBEIT MIT MAR|
00000070: 54 48 41 20 4F 4C 53 45 4E 20 2A 2F 2F 0D 0A 30 |THA OLSEN *//..0|
00000080: 30 34 30 20 2F 2F 2A 20 44 49 45 53 45 20 46 41 |040 //* DIESE FA|
00000090: 53 53 55 4E 47 20 49 53 54 20 56 4F 4D 20 39 2E |SSUNG IST VOM 9.|
000000A0: 20 4A 41 4E 2E 20 31 39 38 31 20 2A 2F 2F 0D 0A | JAN. 1981 *//..|
000000B0: 30 30 35 30 20 2F 2F 2A 0D 0A 30 30 36 30 20 2F |0050 //*..0060 /|
000000C0: 2F 44 45 4B 4C 41 52 49 45 52 45 4E 20 56 4F 4E |/DEKLARIEREN VON|
000000D0: 20 54 45 58 54 56 41 52 49 41 42 4C 45 4E 2F 2F | TEXTVARIABLEN//|
000000E0: 0D 0A 30 30 37 30 20 44 49 4D 20 4E 41 4D 45 24 |..0070 DIM NAME$|
000000F0: 20 4F 46 20 33 30 2C 20 41 52 54 24 20 4F 46 20 | OF 30, ART$ OF |
00000100: 33 2C 20 5A 45 49 43 48 45 4E 24 20 4F 46 20 31 |3, ZEICHEN$ OF 1|
00000110: 0D 0A 30 30 38 30 20 44 49 4D 20 4C 45 45 52 5A |..0080 DIM LEERZ|
00000120: 24 20 4F 46 20 36 30 2C 20 48 45 49 4D 24 20 4F |$ OF 60, HEIM$ O|
00000130: 46 20 31 2C 20 4C 4F 45 53 43 48 24 20 4F 46 20 |F 1, LOESCH$ OF |
00000140: 31 0D 0A 30 30 39 30 20 44 49 4D 20 41 42 57 24 |1..0090 DIM ABW$|
00000150: 20 4F 46 20 32 34 2C 20 52 45 43 48 54 53 24 20 | OF 24, RECHTS$ |
00000160: 4F 46 20 38 30 0D 0A 30 31 30 30 20 2F 2F 2A 0D |OF 80..0100 //*.|
00000170: 0A 30 31 31 30 20 2F 2F 46 45 53 54 4C 45 47 45 |.0110 //FESTLEGE|
00000180: 4E 20 45 49 4E 49 47 45 52 20 4B 4F 4E 53 54 41 |N EINIGER KONSTA|
00000190: 4E 54 45 4E 2F 2F 0D 0A 30 31 32 30 20 46 4F 52 |NTEN//..0120 FOR|
000001A0: 20 49 3A 3D 31 20 54 4F 20 32 34 20 44 4F 20 41 | I:=1 TO 24 DO A|
000001B0: 42 57 24 28 49 29 3A 3D 43 48 52 24 28 31 37 29 |BW$(I):=CHR$(17)|
000001C0: 0D 0A 30 31 33 30 20 46 4F 52 20 49 3A 3D 31 20 |..0130 FOR I:=1 |
000001D0: 54 4F 20 38 30 20 44 4F 20 52 45 43 48 54 53 24 |TO 80 DO RECHTS$|
000001E0: 28 49 29 3A 3D 43 48 52 24 28 32 39 29 0D 0A 30 |(I):=CHR$(29)..0|
000001F0: 31 34 30 20 4D 41 58 4E 52 3A 3D 31 30 3B 20 42 |140 MAXNR:=10; B|
00000200: 41 53 49 53 3A 3D 32 30 3B 20 4C 45 45 52 5A 24 |ASIS:=20; LEERZ$|
00000210: 28 31 3A 36 30 29 3A 3D 22 22 0D 0A 30 31 35 30 |(1:60):=""..0150|
00000220: 20 44 45 52 4E 41 4D 45 3A 3D 31 3B 20 44 49 45 | DERNAME:=1; DIE|
00000230: 41 52 54 3A 3D 32 3B 20 44 41 53 4E 49 56 45 41 |ART:=2; DASNIVEA|
00000240: 55 3A 3D 33 0D 0A 30 31 36 30 20 48 45 49 4D 24 |U:=3..0160 HEIM$|
00000250: 3A 3D 43 48 52 24 28 31 39 29 3B 20 4C 4F 45 53 |:=CHR$(19); LOES|
00000260: 43 48 24 3A 3D 43 48 52 24 28 31 34 37 29 0D 0A |CH$:=CHR$(147)..|
00000270: 30 31 37 30 20 2F 2F 2A 0D 0A 30 31 38 30 20 2F |0170 //*..0180 /|
00000280: 2F 48 41 55 50 54 5A 45 49 4C 45 4E 2F 2F 0D 0A |/HAUPTZEILEN//..|
00000290: 30 31 39 30 20 50 52 49 4E 54 20 4C 4F 45 53 43 |0190 PRINT LOESC|
000002A0: 48 24 0D 0A 30 32 30 30 20 45 49 4E 47 41 42 45 |H$..0200 EINGABE|
000002B0: 28 44 45 52 4E 41 4D 45 29 0D 0A 30 32 31 30 20 |(DERNAME)..0210 |
000002C0: 52 45 47 49 53 54 45 52 0D 0A 30 32 32 30 20 45 |REGISTER..0220 E|
000002D0: 49 4E 47 41 42 45 28 44 49 45 41 52 54 29 0D 0A |INGABE(DIEART)..|
000002E0: 30 32 33 30 20 45 49 4E 47 41 42 45 28 44 41 53 |0230 EINGABE(DAS|
000002F0: 4E 49 56 45 41 55 29 0D 0A 30 32 34 30 20 41 55 |NIVEAU)..0240 AU|
00000300: 46 47 41 42 45 4E 0D 0A 30 32 35 30 20 50 52 4F |FGABEN..0250 PRO|
00000310: 54 4F 4B 4F 4C 4C 0D 0A 30 32 36 30 20 2F 2F 2A |TOKOLL..0260 //*|
00000320: 0D 0A 30 32 37 30 20 50 52 4F 43 20 41 55 46 47 |..0270 PROC AUFG|
00000330: 41 42 45 4E 20 0D 0A 30 32 38 30 20 46 4F 52 20 |ABEN ..0280 FOR |
00000340: 41 55 46 47 4E 52 3A 3D 31 20 54 4F 20 4D 41 58 |AUFGNR:=1 TO MAX|
00000350: 4E 52 20 44 4F 0D 0A 30 32 39 30 20 57 45 52 4B |NR DO..0290 WERK|
00000360: 53 54 41 54 54 0D 0A 30 33 30 30 20 41 55 46 47 |STATT..0300 AUFG|
00000370: 53 43 48 52 45 49 42 0D 0A 30 33 31 30 20 41 42 |SCHREIB..0310 AB|
00000380: 46 52 41 47 45 4E 0D 0A 30 33 32 30 20 4E 45 58 |FRAGEN..0320 NEX|
00000390: 54 20 41 55 46 47 4E 52 0D 0A 30 33 33 30 20 45 |T AUFGNR..0330 E|
000003A0: 4E 44 50 52 4F 43 20 41 55 46 47 41 42 45 4E 0D |NDPROC AUFGABEN.|
000003B0: 0A 30 33 34 30 20 2F 2F 0D 0A 30 33 35 30 20 50 |.0340 //..0350 P|
000003C0: 52 4F 43 20 50 52 4F 54 4F 4B 4F 4C 4C 20 0D 0A |ROC PROTOKOLL ..|
000003D0: 30 33 36 30 20 2F 2F 0D 0A 30 33 37 30 20 2F 2F |0360 //..0370 //|
000003E0: 53 54 55 4D 50 46 2F 2F 0D 0A 30 33 38 30 20 2F |STUMPF//..0380 /|
000003F0: 2F 0D 0A 30 33 39 30 20 45 4E 44 50 52 4F 43 20 |/..0390 ENDPROC |
00000400: 50 52 4F 54 4F 4B 4F 4C 4C 0D 0A 30 34 30 30 20 |PROTOKOLL..0400 |
00000410: 2F 2F 0D 0A 30 34 31 30 20 50 52 4F 43 20 45 49 |//..0410 PROC EI|
00000420: 4E 47 41 42 45 28 42 45 54 52 29 20 0D 0A 30 34 |NGABE(BETR) ..04|
00000430: 32 30 20 41 55 46 4E 41 48 4D 45 0D 0A 30 34 33 |20 AUFNAHME..043|
00000440: 30 20 57 48 49 4C 45 20 4E 4F 54 20 4F 4B 20 44 |0 WHILE NOT OK D|
00000450: 4F 0D 0A 30 34 34 30 20 46 45 48 4C 45 52 0D 0A |O..0440 FEHLER..|
00000460: 30 34 35 30 20 41 55 46 4E 41 48 4D 45 0D 0A 30 |0450 AUFNAHME..0|
00000470: 34 36 30 20 45 4E 44 57 48 49 4C 45 20 0D 0A 30 |460 ENDWHILE ..0|
00000480: 34 37 30 20 45 4E 44 50 52 4F 43 20 45 49 4E 47 |470 ENDPROC EING|
00000490: 41 42 45 0D 0A 30 34 38 30 20 2F 2F 0D 0A 30 34 |ABE..0480 //..04|
000004A0: 39 30 20 50 52 4F 43 20 41 55 46 4E 41 48 4D 45 |90 PROC AUFNAHME|
000004B0: 20 0D 0A 30 35 30 30 20 46 45 4E 53 54 45 52 28 | ..0500 FENSTER(|
000004C0: 38 2C 31 32 29 0D 0A 30 35 31 30 20 43 41 53 45 |8,12)..0510 CASE|
000004D0: 20 42 45 54 52 20 4F 46 0D 0A 30 35 32 30 20 57 | BETR OF..0520 W|
000004E0: 48 45 4E 20 31 0D 0A 30 35 33 30 20 50 52 49 4E |HEN 1..0530 PRIN|
000004F0: 54 20 22 57 49 45 20 48 45 49 53 53 54 20 44 55 |T "WIE HEISST DU|
00000500: 22 2C 0D 0A 30 35 34 30 20 49 4E 50 55 54 20 4E |",..0540 INPUT N|
00000510: 41 4D 45 24 0D 0A 30 35 35 30 20 57 48 45 4E 20 |AME$..0550 WHEN |
00000520: 32 0D 0A 30 35 36 30 20 50 52 49 4E 54 20 22 57 |2..0560 PRINT "W|
00000530: 45 4C 43 48 45 20 52 45 43 48 45 4E 41 52 54 20 |ELCHE RECHENART |
00000540: 28 41 44 44 2C 20 53 55 42 2C 20 4D 55 4C 2C 20 |(ADD, SUB, MUL, |
00000550: 44 49 56 29 22 2C 0D 0A 30 35 37 30 20 49 4E 50 |DIV)",..0570 INP|
00000560: 55 54 20 41 52 54 24 0D 0A 30 35 38 30 20 57 48 |UT ART$..0580 WH|
00000570: 45 4E 20 33 0D 0A 30 35 39 30 20 50 52 49 4E 54 |EN 3..0590 PRINT|
00000580: 20 22 57 45 4C 43 48 45 53 20 4E 49 56 45 41 55 | "WELCHES NIVEAU|
00000590: 20 28 31 2C 20 32 2C 20 33 29 22 2C 0D 0A 30 36 | (1, 2, 3)",..06|
000005A0: 30 30 20 49 4E 50 55 54 20 4E 49 56 45 41 55 0D |00 INPUT NIVEAU.|
000005B0: 0A 30 36 31 30 20 45 4E 44 43 41 53 45 20 0D 0A |.0610 ENDCASE ..|
000005C0: 30 36 32 30 20 50 52 49 4E 54 20 4C 4F 45 53 43 |0620 PRINT LOESC|
000005D0: 48 24 0D 0A 30 36 33 30 20 4B 4F 4E 54 52 4F 4C |H$..0630 KONTROL|
000005E0: 4C 45 0D 0A 30 36 34 30 20 45 4E 44 50 52 4F 43 |LE..0640 ENDPROC|
000005F0: 20 41 55 46 4E 41 48 4D 45 0D 0A 30 36 35 30 20 | AUFNAHME..0650 |
00000600: 2F 2F 0D 0A 30 36 36 30 20 50 52 4F 43 20 4B 4F |//..0660 PROC KO|
00000610: 4E 54 52 4F 4C 4C 45 20 0D 0A 30 36 37 30 20 43 |NTROLLE ..0670 C|
00000620: 41 53 45 20 42 45 54 52 20 4F 46 0D 0A 30 36 38 |ASE BETR OF..068|
00000630: 30 20 57 48 45 4E 20 31 0D 0A 30 36 39 30 20 4F |0 WHEN 1..0690 O|
00000640: 4B 3A 3D 28 22 20 22 20 49 4E 20 4E 41 4D 45 24 |K:=(" " IN NAME$|
00000650: 29 0D 0A 30 37 30 30 20 57 48 45 4E 20 32 0D 0A |)..0700 WHEN 2..|
00000660: 30 37 31 30 20 4F 4B 3A 3D 28 41 52 54 24 3D 22 |0710 OK:=(ART$="|
00000670: 41 44 44 22 20 4F 52 20 41 52 54 24 3D 22 53 55 |ADD" OR ART$="SU|
00000680: 42 22 29 0D 0A 30 37 32 30 20 45 53 46 45 48 4C |B")..0720 ESFEHL|
00000690: 54 3A 3D 28 41 52 54 24 3D 22 4D 55 4C 22 20 4F |T:=(ART$="MUL" O|
000006A0: 52 20 41 52 54 24 3D 22 44 49 56 22 29 0D 0A 30 |R ART$="DIV")..0|
000006B0: 37 33 30 20 57 48 45 4E 20 33 0D 0A 30 37 34 30 |730 WHEN 3..0740|
000006C0: 20 4F 4B 3A 3D 28 4E 49 56 45 41 55 3D 31 20 4F | OK:=(NIVEAU=1 O|
000006D0: 52 20 4E 49 56 45 41 55 3D 32 20 4F 52 20 4E 49 |R NIVEAU=2 OR NI|
000006E0: 56 45 41 55 3D 33 29 0D 0A 30 37 35 30 20 45 4E |VEAU=3)..0750 EN|
000006F0: 44 43 41 53 45 20 0D 0A 30 37 36 30 20 45 4E 44 |DCASE ..0760 END|
00000700: 50 52 4F 43 20 4B 4F 4E 54 52 4F 4C 4C 45 0D 0A |PROC KONTROLLE..|
00000710: 30 37 37 30 20 2F 2F 0D 0A 30 37 38 30 20 50 52 |0770 //..0780 PR|
00000720: 4F 43 20 46 45 48 4C 45 52 20 0D 0A 30 37 39 30 |OC FEHLER ..0790|
00000730: 20 46 45 4E 53 54 45 52 28 31 2C 32 29 0D 0A 30 | FENSTER(1,2)..0|
00000740: 38 30 30 20 43 41 53 45 20 42 45 54 52 20 4F 46 |800 CASE BETR OF|
00000750: 0D 0A 30 38 31 30 20 57 48 45 4E 20 31 0D 0A 30 |..0810 WHEN 1..0|
00000760: 38 32 30 20 50 52 49 4E 54 20 22 44 49 45 20 4D |820 PRINT "DIE M|
00000770: 45 49 53 54 45 4E 20 4D 45 4E 53 43 48 45 4E 20 |EISTEN MENSCHEN |
00000780: 48 41 42 45 4E 20 45 49 4E 45 4E 20 56 4F 52 2D |HABEN EINEN VOR-|
00000790: 20 55 4E 44 22 0D 0A 30 38 33 30 20 50 52 49 4E | UND"..0830 PRIN|
000007A0: 54 20 22 45 49 4E 45 4E 20 4E 41 43 48 4E 41 4D |T "EINEN NACHNAM|
000007B0: 45 4E 2E 20 47 49 42 20 42 49 54 54 45 20 42 45 |EN. GIB BITTE BE|
000007C0: 49 44 45 20 41 4E 21 22 0D 0A 30 38 34 30 20 57 |IDE AN!"..0840 W|
000007D0: 48 45 4E 20 32 0D 0A 30 38 35 30 20 50 52 49 4E |HEN 2..0850 PRIN|
000007E0: 54 20 22 44 49 45 53 45 20 41 52 54 20 49 53 54 |T "DIESE ART IST|
000007F0: 20 4E 49 43 48 54 20 56 4F 52 47 45 53 45 48 45 | NICHT VORGESEHE|
00000800: 4E 21 22 0D 0A 30 38 36 30 20 49 46 20 45 53 46 |N!"..0860 IF ESF|
00000810: 45 48 4C 54 20 54 48 45 4E 0D 0A 30 38 37 30 20 |EHLT THEN..0870 |
00000820: 50 52 49 4E 54 20 22 4D 55 4C 20 55 4E 44 20 44 |PRINT "MUL UND D|
00000830: 49 56 20 53 49 4E 44 20 4E 4F 43 48 20 4E 49 43 |IV SIND NOCH NIC|
00000840: 48 54 20 45 49 4E 47 45 46 55 45 48 52 54 2C 22 |HT EINGEFUEHRT,"|
00000850: 0D 0A 30 38 38 30 20 50 52 49 4E 54 20 22 57 41 |..0880 PRINT "WA|
00000860: 45 48 4C 45 20 42 49 54 54 45 20 41 44 44 20 4F |EHLE BITTE ADD O|
00000870: 44 45 52 20 53 55 42 2E 22 0D 0A 30 38 39 30 20 |DER SUB."..0890 |
00000880: 45 4E 44 49 46 20 0D 0A 30 39 30 30 20 57 48 45 |ENDIF ..0900 WHE|
00000890: 4E 20 33 0D 0A 30 39 31 30 20 50 52 49 4E 54 20 |N 3..0910 PRINT |
000008A0: 22 44 41 53 20 4E 49 56 45 41 55 20 4B 4F 4D 4D |"DAS NIVEAU KOMM|
000008B0: 54 20 48 49 45 52 20 4E 49 43 48 54 20 56 4F 52 |T HIER NICHT VOR|
000008C0: 21 22 0D 0A 30 39 32 30 20 45 4E 44 43 41 53 45 |!"..0920 ENDCASE|
000008D0: 20 0D 0A 30 39 33 30 20 45 4E 44 50 52 4F 43 20 | ..0930 ENDPROC |
000008E0: 46 45 48 4C 45 52 0D 0A 30 39 34 30 20 2F 2F 0D |FEHLER..0940 //.|
000008F0: 0A 30 39 35 30 20 50 52 4F 43 20 52 45 47 49 53 |.0950 PROC REGIS|
00000900: 54 45 52 20 0D 0A 30 39 36 30 20 2F 2F 0D 0A 30 |TER ..0960 //..0|
00000910: 39 37 30 20 2F 2F 53 54 55 4D 50 46 2F 2F 0D 0A |970 //STUMPF//..|
00000920: 30 39 38 30 20 2F 2F 0D 0A 30 39 39 30 20 45 4E |0980 //..0990 EN|
00000930: 44 50 52 4F 43 20 52 45 47 49 53 54 45 52 0D 0A |DPROC REGISTER..|
00000940: 31 30 30 30 20 2F 2F 0D 0A 31 30 31 30 20 50 52 |1000 //..1010 PR|
00000950: 4F 43 20 57 45 52 4B 53 54 41 54 54 20 0D 0A 31 |OC WERKSTATT ..1|
00000960: 30 32 30 20 43 41 53 45 20 41 52 54 24 20 4F 46 |020 CASE ART$ OF|
00000970: 0D 0A 31 30 33 30 20 57 48 45 4E 20 22 41 44 44 |..1030 WHEN "ADD|
00000980: 22 0D 0A 31 30 34 30 20 41 44 44 49 54 49 4F 4E |"..1040 ADDITION|
00000990: 0D 0A 31 30 35 30 20 57 48 45 4E 20 22 53 55 42 |..1050 WHEN "SUB|
000009A0: 22 0D 0A 31 30 36 30 20 53 55 42 54 52 41 4B 54 |"..1060 SUBTRAKT|
000009B0: 49 4F 4E 0D 0A 31 30 37 30 20 57 48 45 4E 20 22 |ION..1070 WHEN "|
000009C0: 4D 55 4C 22 0D 0A 31 30 38 30 20 4D 55 4C 54 49 |MUL"..1080 MULTI|
000009D0: 50 4C 49 4B 41 54 49 4F 4E 0D 0A 31 30 39 30 20 |PLIKATION..1090 |
000009E0: 57 48 45 4E 20 22 44 49 56 22 0D 0A 31 31 30 30 |WHEN "DIV"..1100|
000009F0: 20 44 49 56 49 53 49 4F 4E 0D 0A 31 31 31 30 20 | DIVISION..1110 |
00000A00: 45 4E 44 43 41 53 45 20 0D 0A 31 31 32 30 20 45 |ENDCASE ..1120 E|
00000A10: 4E 44 50 52 4F 43 20 57 45 52 4B 53 54 41 54 54 |NDPROC WERKSTATT|
00000A20: 0D 0A 31 31 33 30 20 2F 2F 0D 0A 31 31 34 30 20 |..1130 //..1140 |
00000A30: 50 52 4F 43 20 41 44 44 49 54 49 4F 4E 20 0D 0A |PROC ADDITION ..|
00000A40: 31 31 35 30 20 43 41 53 45 20 4E 49 56 45 41 55 |1150 CASE NIVEAU|
00000A50: 20 4F 46 0D 0A 31 31 36 30 20 57 48 45 4E 20 31 | OF..1160 WHEN 1|
00000A60: 0D 0A 31 31 37 30 20 4E 31 3A 3D 52 4E 44 28 30 |..1170 N1:=RND(0|
00000A70: 2C 35 29 3B 20 4E 32 3A 3D 52 4E 44 28 30 2C 35 |,5); N2:=RND(0,5|
00000A80: 29 0D 0A 31 31 38 30 20 57 48 45 4E 20 32 0D 0A |)..1180 WHEN 2..|
00000A90: 31 31 39 30 20 4E 31 3A 3D 52 4E 44 28 30 2C 39 |1190 N1:=RND(0,9|
00000AA0: 29 3B 20 4E 32 3A 3D 52 4E 44 28 30 2C 39 29 0D |); N2:=RND(0,9).|
00000AB0: 0A 31 32 30 30 20 57 48 45 4E 20 33 0D 0A 31 32 |.1200 WHEN 3..12|
00000AC0: 31 30 20 4E 31 3A 3D 52 4E 44 28 34 30 2C 35 30 |10 N1:=RND(40,50|
00000AD0: 29 3B 20 4E 32 3A 3D 52 4E 44 28 31 2C 31 30 29 |); N2:=RND(1,10)|
00000AE0: 0D 0A 31 32 32 30 20 45 4E 44 43 41 53 45 20 0D |..1220 ENDCASE .|
00000AF0: 0A 31 32 33 30 20 45 52 47 45 42 4E 49 53 3A 3D |.1230 ERGEBNIS:=|
00000B00: 4E 31 2B 4E 32 0D 0A 31 32 34 30 20 5A 45 49 43 |N1+N2..1240 ZEIC|
00000B10: 48 45 4E 24 3A 3D 22 2B 22 0D 0A 31 32 35 30 20 |HEN$:="+"..1250 |
00000B20: 45 4E 44 50 52 4F 43 20 41 44 44 49 54 49 4F 4E |ENDPROC ADDITION|
00000B30: 0D 0A 31 32 36 30 20 2F 2F 0D 0A 31 32 37 30 20 |..1260 //..1270 |
00000B40: 50 52 4F 43 20 53 55 42 54 52 41 4B 54 49 4F 4E |PROC SUBTRAKTION|
00000B50: 20 0D 0A 31 32 38 30 20 43 41 53 45 20 4E 49 56 | ..1280 CASE NIV|
00000B60: 45 41 55 20 4F 46 0D 0A 31 32 39 30 20 57 48 45 |EAU OF..1290 WHE|
00000B70: 4E 20 31 0D 0A 31 33 30 30 20 4E 31 3A 3D 52 4E |N 1..1300 N1:=RN|
00000B80: 44 28 35 2C 39 29 3B 20 4E 32 3A 3D 52 4E 44 28 |D(5,9); N2:=RND(|
00000B90: 31 2C 35 29 0D 0A 31 33 31 30 20 57 48 45 4E 20 |1,5)..1310 WHEN |
00000BA0: 32 0D 0A 31 33 32 30 20 4E 31 3A 3D 52 4E 44 28 |2..1320 N1:=RND(|
00000BB0: 31 30 2C 31 39 29 3B 20 4E 32 3A 3D 52 4E 44 28 |10,19); N2:=RND(|
00000BC0: 31 2C 31 30 29 0D 0A 31 33 33 30 20 57 48 45 4E |1,10)..1330 WHEN|
00000BD0: 20 33 0D 0A 31 33 34 30 20 4E 31 3A 3D 52 4E 44 | 3..1340 N1:=RND|
00000BE0: 28 35 30 2C 38 39 29 3B 20 4E 32 3A 3D 52 4E 44 |(50,89); N2:=RND|
00000BF0: 28 31 30 2C 31 39 29 0D 0A 31 33 35 30 20 45 4E |(10,19)..1350 EN|
00000C00: 44 43 41 53 45 20 0D 0A 31 33 36 30 20 45 52 47 |DCASE ..1360 ERG|
00000C10: 45 42 4E 49 53 3A 3D 4E 31 2D 4E 32 0D 0A 31 33 |EBNIS:=N1-N2..13|
00000C20: 37 30 20 5A 45 49 43 48 45 4E 24 3A 3D 22 2D 22 |70 ZEICHEN$:="-"|
00000C30: 0D 0A 31 33 38 30 20 45 4E 44 50 52 4F 43 20 53 |..1380 ENDPROC S|
00000C40: 55 42 54 52 41 4B 54 49 4F 4E 0D 0A 31 33 39 30 |UBTRAKTION..1390|
00000C50: 20 2F 2F 0D 0A 31 34 30 30 20 50 52 4F 43 20 4D | //..1400 PROC M|
00000C60: 55 4C 54 49 50 4C 49 4B 41 54 49 4F 4E 20 0D 0A |ULTIPLIKATION ..|
00000C70: 31 34 31 30 20 2F 2F 0D 0A 31 34 32 30 20 2F 2F |1410 //..1420 //|
00000C80: 53 54 55 4D 50 46 2F 2F 0D 0A 31 34 33 30 20 2F |STUMPF//..1430 /|
00000C90: 2F 0D 0A 31 34 34 30 20 45 4E 44 50 52 4F 43 20 |/..1440 ENDPROC |
00000CA0: 4D 55 4C 54 49 50 4C 49 4B 41 54 49 4F 4E 0D 0A |MULTIPLIKATION..|
00000CB0: 31 34 35 30 20 2F 2F 0D 0A 31 34 36 30 20 50 52 |1450 //..1460 PR|
00000CC0: 4F 43 20 44 49 56 49 53 49 4F 4E 20 0D 0A 31 34 |OC DIVISION ..14|
00000CD0: 37 30 20 2F 2F 0D 0A 31 34 38 30 20 2F 2F 53 54 |70 //..1480 //ST|
00000CE0: 55 4D 50 46 2F 2F 0D 0A 31 34 39 30 20 2F 2F 0D |UMPF//..1490 //.|
00000CF0: 0A 31 35 30 30 20 45 4E 44 50 52 4F 43 20 44 49 |.1500 ENDPROC DI|
00000D00: 56 49 53 49 4F 4E 0D 0A 31 35 31 30 20 2F 2F 0D |VISION..1510 //.|
00000D10: 0A 31 35 32 30 20 50 52 4F 43 20 41 42 46 52 41 |.1520 PROC ABFRA|
00000D20: 47 45 4E 20 0D 0A 31 35 33 30 20 56 45 52 53 55 |GEN ..1530 VERSU|
00000D30: 43 48 3A 3D 31 0D 0A 31 35 34 30 20 47 49 42 41 |CH:=1..1540 GIBA|
00000D40: 4E 54 57 0D 0A 31 35 35 30 20 57 48 49 4C 45 20 |NTW..1550 WHILE |
00000D50: 4E 4F 54 20 4F 4B 20 44 4F 0D 0A 31 35 36 30 20 |NOT OK DO..1560 |
00000D60: 48 49 4C 46 45 0D 0A 31 35 37 30 20 41 55 46 47 |HILFE..1570 AUFG|
00000D70: 53 43 48 52 45 49 42 0D 0A 31 35 38 30 20 47 49 |SCHREIB..1580 GI|
00000D80: 42 41 4E 54 57 0D 0A 31 35 39 30 20 56 45 52 53 |BANTW..1590 VERS|
00000D90: 55 43 48 3A 2B 31 0D 0A 31 36 30 30 20 45 4E 44 |UCH:+1..1600 END|
00000DA0: 57 48 49 4C 45 20 0D 0A 31 36 31 30 20 45 4E 44 |WHILE ..1610 END|
00000DB0: 50 52 4F 43 20 41 42 46 52 41 47 45 4E 0D 0A 31 |PROC ABFRAGEN..1|
00000DC0: 36 32 30 20 2F 2F 0D 0A 31 36 33 30 20 50 52 4F |620 //..1630 PRO|
00000DD0: 43 20 47 49 42 41 4E 54 57 20 0D 0A 31 36 34 30 |C GIBANTW ..1640|
00000DE0: 20 54 41 42 55 4C 41 54 4F 52 28 45 52 47 45 42 | TABULATOR(ERGEB|
00000DF0: 4E 49 53 29 0D 0A 31 36 35 30 20 49 4E 50 55 54 |NIS)..1650 INPUT|
00000E00: 20 22 22 3A 20 41 4E 54 57 4F 52 54 0D 0A 31 36 | "": ANTWORT..16|
00000E10: 36 30 20 4F 4B 3A 3D 28 41 4E 54 57 4F 52 54 3D |60 OK:=(ANTWORT=|
00000E20: 45 52 47 45 42 4E 49 53 29 0D 0A 31 36 37 30 20 |ERGEBNIS)..1670 |
00000E30: 50 52 49 4E 54 20 4C 4F 45 53 43 48 24 0D 0A 31 |PRINT LOESCH$..1|
00000E40: 36 38 30 20 45 4E 44 50 52 4F 43 20 47 49 42 41 |680 ENDPROC GIBA|
00000E50: 4E 54 57 0D 0A 31 36 39 30 20 2F 2F 0D 0A 31 37 |NTW..1690 //..17|
00000E60: 30 30 20 50 52 4F 43 20 41 55 46 47 53 43 48 52 |00 PROC AUFGSCHR|
00000E70: 45 49 42 20 0D 0A 31 37 31 30 20 46 45 4E 53 54 |EIB ..1710 FENST|
00000E80: 45 52 28 37 2C 31 35 29 0D 0A 31 37 32 30 20 43 |ER(7,15)..1720 C|
00000E90: 41 53 45 20 41 52 54 24 20 4F 46 0D 0A 31 37 33 |ASE ART$ OF..173|
00000EA0: 30 20 57 48 45 4E 20 22 41 44 44 22 2C 22 53 55 |0 WHEN "ADD","SU|
00000EB0: 42 22 0D 0A 31 37 34 30 20 54 41 42 55 4C 41 54 |B"..1740 TABULAT|
00000EC0: 4F 52 28 4E 31 29 0D 0A 31 37 35 30 20 50 52 49 |OR(N1)..1750 PRI|
00000ED0: 4E 54 20 4E 31 0D 0A 31 37 36 30 20 50 52 49 4E |NT N1..1760 PRIN|
00000EE0: 54 20 54 41 42 28 42 41 53 49 53 2D 33 29 2C 5A |T TAB(BASIS-3),Z|
00000EF0: 45 49 43 48 45 4E 24 2C 0D 0A 31 37 37 30 20 54 |EICHEN$,..1770 T|
00000F00: 41 42 55 4C 41 54 4F 52 28 4E 32 29 0D 0A 31 37 |ABULATOR(N2)..17|
00000F10: 38 30 20 50 52 49 4E 54 20 4E 32 0D 0A 31 37 39 |80 PRINT N2..179|
00000F20: 30 20 50 52 49 4E 54 20 54 41 42 28 42 41 53 49 |0 PRINT TAB(BASI|
00000F30: 53 2D 33 29 2C 22 3D 3D 3D 3D 3D 22 0D 0A 31 38 |S-3),"====="..18|
00000F40: 30 30 20 57 48 45 4E 20 22 4D 55 4C 22 2C 22 44 |00 WHEN "MUL","D|
00000F50: 49 56 22 0D 0A 31 38 31 30 20 2F 2F 0D 0A 31 38 |IV"..1810 //..18|
00000F60: 32 30 20 2F 2F 53 54 55 4D 50 46 2F 2F 0D 0A 31 |20 //STUMPF//..1|
00000F70: 38 33 30 20 2F 2F 0D 0A 31 38 34 30 20 45 4E 44 |830 //..1840 END|
00000F80: 43 41 53 45 20 0D 0A 31 38 35 30 20 45 4E 44 50 |CASE ..1850 ENDP|
00000F90: 52 4F 43 20 41 55 46 47 53 43 48 52 45 49 42 0D |ROC AUFGSCHREIB.|
00000FA0: 0A 31 38 36 30 20 2F 2F 0D 0A 31 38 37 30 20 50 |.1860 //..1870 P|
00000FB0: 52 4F 43 20 48 49 4C 46 45 20 0D 0A 31 38 38 30 |ROC HILFE ..1880|
00000FC0: 20 46 45 4E 53 54 45 52 28 31 2C 32 29 0D 0A 31 | FENSTER(1,2)..1|
00000FD0: 38 39 30 20 49 46 20 56 45 52 53 55 43 48 3C 33 |890 IF VERSUCH<3|
00000FE0: 20 54 48 45 4E 0D 0A 31 39 30 30 20 50 52 49 4E | THEN..1900 PRIN|
00000FF0: 54 20 22 4E 45 49 4E 2C 20 56 45 52 53 55 43 48 |T "NEIN, VERSUCH|
00001000: 45 20 4E 4F 43 48 20 45 49 4E 4D 41 4C 22 0D 0A |E NOCH EINMAL"..|
00001010: 31 39 31 30 20 45 4C 53 45 20 0D 0A 31 39 32 30 |1910 ELSE ..1920|
00001020: 20 50 52 49 4E 54 20 22 4E 45 49 4E 2C 20 44 49 | PRINT "NEIN, DI|
00001030: 45 20 52 49 43 48 54 49 47 45 20 41 4E 54 57 4F |E RICHTIGE ANTWO|
00001040: 52 54 20 4C 41 55 54 45 54 20 22 2C 45 52 47 45 |RT LAUTET ",ERGE|
00001050: 42 4E 49 53 0D 0A 31 39 33 30 20 50 52 49 4E 54 |BNIS..1930 PRINT|
00001060: 20 22 54 49 50 50 45 20 44 49 45 53 45 2E 22 0D | "TIPPE DIESE.".|
00001070: 0A 31 39 34 30 20 45 4E 44 49 46 20 0D 0A 31 39 |.1940 ENDIF ..19|
00001080: 35 30 20 45 4E 44 50 52 4F 43 20 48 49 4C 46 45 |50 ENDPROC HILFE|
00001090: 0D 0A 31 39 36 30 20 2F 2F 0D 0A 31 39 37 30 20 |..1960 //..1970 |
000010A0: 50 52 4F 43 20 54 41 42 55 4C 41 54 4F 52 28 54 |PROC TABULATOR(T|
000010B0: 29 20 0D 0A 31 39 38 30 20 53 54 45 4C 4C 55 4E |) ..1980 STELLUN|
000010C0: 47 3A 3D 42 41 53 49 53 2D 28 54 3E 3D 31 30 29 |G:=BASIS-(T>=10)|
000010D0: 2D 28 54 3E 3D 31 30 30 29 0D 0A 31 39 39 30 20 |-(T>=100)..1990 |
000010E0: 50 52 49 4E 54 20 54 41 42 28 53 54 45 4C 4C 55 |PRINT TAB(STELLU|
000010F0: 4E 47 29 2C 0D 0A 32 30 30 30 20 45 4E 44 50 52 |NG),..2000 ENDPR|
00001100: 4F 43 20 54 41 42 55 4C 41 54 4F 52 0D 0A 32 30 |OC TABULATOR..20|
00001110: 31 30 20 2F 2F 0D 0A 32 30 32 30 20 50 52 4F 43 |10 //..2020 PROC|
00001120: 20 46 45 4E 53 54 45 52 28 41 4E 46 41 4E 47 2C | FENSTER(ANFANG,|
00001130: 45 4E 44 45 29 20 0D 0A 32 30 33 30 20 50 4F 53 |ENDE) ..2030 POS|
00001140: 49 28 41 4E 46 41 4E 47 2C 31 29 0D 0A 32 30 34 |I(ANFANG,1)..204|
00001150: 30 20 46 4F 52 20 49 3A 3D 31 20 54 4F 20 45 4E |0 FOR I:=1 TO EN|
00001160: 44 45 2D 41 4E 46 41 4E 47 2B 31 20 44 4F 20 50 |DE-ANFANG+1 DO P|
00001170: 52 49 4E 54 20 4C 45 45 52 5A 24 0D 0A 32 30 35 |RINT LEERZ$..205|
00001180: 30 20 50 4F 53 49 28 41 4E 46 41 4E 47 2C 31 29 |0 POSI(ANFANG,1)|
00001190: 0D 0A 32 30 36 30 20 45 4E 44 50 52 4F 43 20 46 |..2060 ENDPROC F|
000011A0: 45 4E 53 54 45 52 0D 0A 32 30 37 30 20 2F 2F 0D |ENSTER..2070 //.|
000011B0: 0A 32 30 38 30 20 50 52 4F 43 20 50 4F 53 49 28 |.2080 PROC POSI(|
000011C0: 4C 2C 5A 29 20 0D 0A 32 30 39 30 20 50 52 49 4E |L,Z) ..2090 PRIN|
000011D0: 54 20 48 45 49 4D 24 0D 0A 32 31 30 30 20 50 52 |T HEIM$..2100 PR|
000011E0: 49 4E 54 20 41 42 57 24 28 31 3A 4C 2D 31 29 2C |INT ABW$(1:L-1),|
000011F0: 52 45 43 48 54 53 24 28 31 3A 5A 2D 31 29 2C 0D |RECHTS$(1:Z-1),.|
00001200: 0A 32 31 31 30 20 45 4E 44 50 52 4F 43 20 50 4F |.2110 ENDPROC PO|
00001210: 53 49 0D 0A 32 31 32 30 20 2F 2F 0D 0A |SI..2120 //.. |
0010 //* TANTE LUISES PROGRAMM *//..0020
//* GESCHRIEBEN VON LUISE OLSEN *//..00
30 //* IN ZUSAMMENARBEIT MIT MARTHA OLSE
N *//..0040 //* DIESE FASSUNG IST VOM 9.
JAN. 1981 *//..0050 //*..0060 //DEKLARI
EREN VON TEXTVARIABLEN//..0070 DIM NAME$
OF 30, ART$ OF 3, ZEICHEN$ OF 1..0080 D
IM LEERZ$ OF 60, HEIM$ OF 1, LOESCH$ OF
1..0090 DIM ABW$ OF 24, RECHTS$ OF 80..0
100 //*..0110 //FESTLEGEN EINIGER KONSTA
NTEN//..0120 FOR I:=1 TO 24 DO ABW$(I):=
CHR$(17)..0130 FOR I:=1 TO 80 DO RECHTS$
(I):=CHR$(29)..0140 MAXNR:=10; BASIS:=20
; LEERZ$(1:60):=""..0150 DERNAME:=1; DIE
ART:=2; DASNIVEAU:=3..0160 HEIM$:=CHR$(1
9); LOESCH$:=CHR$(147)..0170 //*..0180 /
/HAUPTZEILEN//..0190 PRINT LOESCH$..0200
EINGABE(DERNAME)..0210 REGISTER..0220 E
INGABE(DIEART)..0230 EINGABE(DASNIVEAU).
.0240 AUFGABEN..0250 PROTOKOLL..0260 //*
..0270 PROC AUFGABEN ..0280 FOR AUFGNR:=
1 TO MAXNR DO..0290 WERKSTATT..0300 AUFG
SCHREIB..0310 ABFRAGEN..0320 NEXT AUFGNR
..0330 ENDPROC AUFGABEN..0340 //..0350 P
ROC PROTOKOLL ..0360 //..0370 //STUMPF//
..0380 //..0390 ENDPROC PROTOKOLL..0400
//..0410 PROC EINGABE(BETR) ..0420 AUFNA
HME..0430 WHILE NOT OK DO..0440 FEHLER..
0450 AUFNAHME..0460 ENDWHILE ..0470 ENDP
ROC EINGABE..0480 //..0490 PROC AUFNAHME
..0500 FENSTER(8,12)..0510 CASE BETR OF
..0520 WHEN 1..0530 PRINT "WIE HEISST DU
",..0540 INPUT NAME$..0550 WHEN 2..0560
PRINT "WELCHE RECHENART (ADD, SUB, MUL,
DIV)",..0570 INPUT ART$..0580 WHEN 3..05
90 PRINT "WELCHES NIVEAU (1, 2, 3)",..06
00 INPUT NIVEAU..0610 ENDCASE ..0620 PRI
NT LOESCH$..0630 KONTROLLE..0640 ENDPROC
AUFNAHME..0650 //..0660 PROC KONTROLLE
..0670 CASE BETR OF..0680 WHEN 1..0690 O
K:=(" " IN NAME$)..0700 WHEN 2..0710 OK:
=(ART$="ADD" OR ART$="SUB")..0720 ESFEHL
T:=(ART$="MUL" OR ART$="DIV")..0730 WHEN
3..0740 OK:=(NIVEAU=1 OR NIVEAU=2 OR NI
VEAU=3)..0750 ENDCASE ..0760 ENDPROC KON
TROLLE..0770 //..0780 PROC FEHLER ..0790
FENSTER(1,2)..0800 CASE BETR OF..0810 W
HEN 1..0820 PRINT "DIE MEISTEN MENSCHEN
HABEN EINEN VOR- UND"..0830 PRINT "EINEN
NACHNAMEN. GIB BITTE BEIDE AN!"..0840 W
HEN 2..0850 PRINT "DIESE ART IST NICHT V
ORGESEHEN!"..0860 IF ESFEHLT THEN..0870
PRINT "MUL UND DIV SIND NOCH NICHT EINGE
FUEHRT,"..0880 PRINT "WAEHLE BITTE ADD O
DER SUB."..0890 ENDIF ..0900 WHEN 3..091
0 PRINT "DAS NIVEAU KOMMT HIER NICHT VOR
!"..0920 ENDCASE ..0930 ENDPROC FEHLER..
0940 //..0950 PROC REGISTER ..0960 //..0
970 //STUMPF//..0980 //..0990 ENDPROC RE
GISTER..1000 //..1010 PROC WERKSTATT ..1
020 CASE ART$ OF..1030 WHEN "ADD"..1040
ADDITION..1050 WHEN "SUB"..1060 SUBTRAKT
ION..1070 WHEN "MUL"..1080 MULTIPLIKATIO
N..1090 WHEN "DIV"..1100 DIVISION..1110
ENDCASE ..1120 ENDPROC WERKSTATT..1130 /
/..1140 PROC ADDITION ..1150 CASE NIVEAU
OF..1160 WHEN 1..1170 N1:=RND(0,5); N2:
=RND(0,5)..1180 WHEN 2..1190 N1:=RND(0,9
); N2:=RND(0,9)..1200 WHEN 3..1210 N1:=R
ND(40,50); N2:=RND(1,10)..1220 ENDCASE .
.1230 ERGEBNIS:=N1+N2..1240 ZEICHEN$:="+
"..1250 ENDPROC ADDITION..1260 //..1270
PROC SUBTRAKTION ..1280 CASE NIVEAU OF..
1290 WHEN 1..1300 N1:=RND(5,9); N2:=RND(
1,5)..1310 WHEN 2..1320 N1:=RND(10,19);
N2:=RND(1,10)..1330 WHEN 3..1340 N1:=RND
(50,89); N2:=RND(10,19)..1350 ENDCASE ..
1360 ERGEBNIS:=N1-N2..1370 ZEICHEN$:="-"
..1380 ENDPROC SUBTRAKTION..1390 //..140
0 PROC MULTIPLIKATION ..1410 //..1420 //
STUMPF//..1430 //..1440 ENDPROC MULTIPLI
KATION..1450 //..1460 PROC DIVISION ..14
70 //..1480 //STUMPF//..1490 //..1500 EN
DPROC DIVISION..1510 //..1520 PROC ABFRA
GEN ..1530 VERSUCH:=1..1540 GIBANTW..155
0 WHILE NOT OK DO..1560 HILFE..1570 AUFG
SCHREIB..1580 GIBANTW..1590 VERSUCH:+1..
1600 ENDWHILE ..1610 ENDPROC ABFRAGEN..1
620 //..1630 PROC GIBANTW ..1640 TABULAT
OR(ERGEBNIS)..1650 INPUT "": ANTWORT..16
60 OK:=(ANTWORT=ERGEBNIS)..1670 PRINT LO
ESCH$..1680 ENDPROC GIBANTW..1690 //..17
00 PROC AUFGSCHREIB ..1710 FENSTER(7,15)
..1720 CASE ART$ OF..1730 WHEN "ADD","SU
B"..1740 TABULATOR(N1)..1750 PRINT N1..1
760 PRINT TAB(BASIS-3),ZEICHEN$,..1770 T
ABULATOR(N2)..1780 PRINT N2..1790 PRINT
TAB(BASIS-3),"====="..1800 WHEN "MUL","D
IV"..1810 //..1820 //STUMPF//..1830 //..
1840 ENDCASE ..1850 ENDPROC AUFGSCHREIB.
.1860 //..1870 PROC HILFE ..1880 FENSTER
(1,2)..1890 IF VERSUCH<3 THEN..1900 PRIN
T "NEIN, VERSUCHE NOCH EINMAL"..1910 ELS
E ..1920 PRINT "NEIN, DIE RICHTIGE ANTWO
RT LAUTET ",ERGEBNIS..1930 PRINT "TIPPE
DIESE."..1940 ENDIF ..1950 ENDPROC HILFE
..1960 //..1970 PROC TABULATOR(T) ..1980
STELLUNG:=BASIS-(T>=10)-(T>=100)..1990
PRINT TAB(STELLUNG),..2000 ENDPROC TABUL
ATOR..2010 //..2020 PROC FENSTER(ANFANG,
ENDE) ..2030 POSI(ANFANG,1)..2040 FOR I:
=1 TO ENDE-ANFANG+1 DO PRINT LEERZ$..205
0 POSI(ANFANG,1)..2060 ENDPROC FENSTER..
2070 //..2080 PROC POSI(L,Z) ..2090 PRIN
T HEIM$..2100 PRINT ABW$(1:L-1),RECHTS$(
1:Z-1),..2110 ENDPROC POSI..2120 //..
> CLICK IMAGE PREVIEW FOR FULL MODAL