KORREKTUR
FILE INFORMATION
FILENAME(S): KORREKTUR
FILE TYPE(S): SEQ
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 01:08:01
APPEARS ON: 6 disk(s)
FILE HASH
ff064c278e39a6ac34b048711ece2a71b1ea07c37b9a5321b16c84300ff7cdf4
FOUND ON DISKS (6 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C OMAL | KORREKTUR | SEQ | Treasure Chest - Wolfgang Rauprich | 26 | 14 | DOWNLOAD FILE |
| FREEWARE DISK NR | KORREKTUR | SEQ | Treasure Chest - Wolfgang Rauprich | 26 | 14 | DOWNLOAD FILE |
| COMAL 0 14 | KORREKTUR | SEQ | Treasure Chest - Wolfgang Rauprich | 9 | 4 | DOWNLOAD FILE |
| C OMAL 0 14 | KORREKTUR | SEQ | Treasure Chest - Wolfgang Rauprich | 9 | 4 | DOWNLOAD FILE |
| C OMAL | KORREKTUR | SEQ | Treasure Chest - Wolfgang Rauprich | 26 | 14 | DOWNLOAD FILE |
| FREESOFT DISK NR | KORREKTUR | SEQ | Treasure Chest - Wolfgang Rauprich | 26 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 30 30 31 30 20 2F 2F 44 49 45 20 50 52 49 56 41 |0010 //DIE PRIVA|
00000010: 54 53 43 48 55 4C 45 20 44 45 52 20 4F 4C 53 45 |TSCHULE DER OLSE|
00000020: 4E 53 2F 2F 0D 0A 30 30 32 30 20 2F 2F 50 52 4F |NS//..0020 //PRO|
00000030: 47 52 41 4D 4D 20 5A 55 4D 20 56 45 52 57 41 4C |GRAMM ZUM VERWAL|
00000040: 54 45 4E 20 56 4F 4E 20 5A 45 4E 53 55 52 45 4E |TEN VON ZENSUREN|
00000050: 2F 2F 0D 0A 30 30 33 30 20 2F 2F 47 45 53 43 48 |//..0030 //GESCH|
00000060: 52 49 45 42 45 4E 20 56 4F 4E 20 43 48 52 49 53 |RIEBEN VON CHRIS|
00000070: 20 42 4F 45 52 47 45 20 49 4E 20 43 42 4D 20 43 | BOERGE IN CBM C|
00000080: 4F 4D 41 4C 2D 38 30 2F 2F 0D 0A 30 30 34 30 20 |OMAL-80//..0040 |
00000090: 2F 2F 44 49 45 53 45 20 46 41 53 53 55 4E 47 20 |//DIESE FASSUNG |
000000A0: 49 53 54 20 56 4F 4E 20 4F 4B 54 4F 42 45 52 20 |IST VON OKTOBER |
000000B0: 31 39 38 31 2F 2F 0D 0A 30 30 35 30 20 2F 2F 44 |1981//..0050 //D|
000000C0: 49 45 53 45 52 20 54 45 49 4C 20 44 49 45 4E 54 |IESER TEIL DIENT|
000000D0: 20 5A 55 4D 20 41 4E 42 52 49 4E 47 45 4E 20 56 | ZUM ANBRINGEN V|
000000E0: 4F 4E 20 4B 4F 52 52 45 4B 54 55 52 45 4E 2F 2F |ON KORREKTUREN//|
000000F0: 0D 0A 30 30 36 30 20 2F 2F 0D 0A 30 30 37 30 20 |..0060 //..0070 |
00000100: 4D 41 58 3A 3D 38 0D 0A 30 30 38 30 20 44 49 4D |MAX:=8..0080 DIM|
00000110: 20 4E 41 4D 45 24 28 4D 41 58 29 20 4F 46 20 32 | NAME$(MAX) OF 2|
00000120: 30 2C 20 41 4E 54 57 24 20 4F 46 20 31 30 0D 0A |0, ANTW$ OF 10..|
00000130: 30 30 39 30 20 44 49 4D 20 44 45 52 4E 41 4D 45 |0090 DIM DERNAME|
00000140: 24 20 4F 46 20 32 30 0D 0A 30 31 30 30 20 44 49 |$ OF 20..0100 DI|
00000150: 4D 20 4E 4F 54 45 28 4D 41 58 2C 33 29 2C 20 46 |M NOTE(MAX,3), F|
00000160: 41 43 48 24 28 33 29 20 4F 46 20 31 30 2C 20 53 |ACH$(3) OF 10, S|
00000170: 43 48 4C 55 45 53 53 45 4C 28 4D 41 58 29 0D 0A |CHLUESSEL(MAX)..|
00000180: 30 31 32 30 20 2F 2F 2A 0D 0A 30 31 33 30 20 46 |0120 //*..0130 F|
00000190: 41 43 48 24 28 31 29 3A 3D 22 44 45 55 54 53 43 |ACH$(1):="DEUTSC|
000001A0: 48 22 0D 0A 30 31 34 30 20 46 41 43 48 24 28 32 |H"..0140 FACH$(2|
000001B0: 29 3A 3D 22 4D 41 54 48 45 4D 41 54 49 4B 22 0D |):="MATHEMATIK".|
000001C0: 0A 30 31 35 30 20 46 41 43 48 24 28 33 29 3A 3D |.0150 FACH$(3):=|
000001D0: 22 45 4E 47 4C 49 53 43 48 22 0D 0A 30 31 39 30 |"ENGLISCH"..0190|
000001E0: 20 2F 2F 0D 0A 30 32 30 30 20 53 54 41 52 54 53 | //..0200 STARTS|
000001F0: 59 53 54 45 4D 0D 0A 30 32 31 30 20 2F 2F 0D 0A |YSTEM..0210 //..|
00000200: 30 32 32 30 20 2F 2F 2A 20 48 41 55 50 54 5A 45 |0220 //* HAUPTZE|
00000210: 49 4C 45 4E 20 2A 2F 2F 0D 0A 30 32 33 30 20 52 |ILEN *//..0230 R|
00000220: 45 50 45 41 54 20 0D 0A 30 32 34 30 20 50 52 49 |EPEAT ..0240 PRI|
00000230: 4E 54 20 43 48 52 24 28 31 34 37 29 0D 0A 30 32 |NT CHR$(147)..02|
00000240: 35 30 20 46 45 4C 44 28 38 2C 31 35 29 0D 0A 30 |50 FELD(8,15)..0|
00000250: 32 36 30 20 50 52 49 4E 54 20 22 31 3D 4B 4F 52 |260 PRINT "1=KOR|
00000260: 52 45 4B 54 55 52 22 0D 0A 30 32 37 30 20 50 52 |REKTUR"..0270 PR|
00000270: 49 4E 54 20 22 32 3D 4C 4F 45 53 43 48 45 4E 22 |INT "2=LOESCHEN"|
00000280: 0D 0A 30 32 38 30 20 50 52 49 4E 54 20 22 33 3D |..0280 PRINT "3=|
00000290: 4C 49 53 54 45 22 0D 0A 30 32 39 30 20 50 52 49 |LISTE"..0290 PRI|
000002A0: 4E 54 20 22 34 3D 53 54 4F 50 22 0D 0A 30 33 30 |NT "4=STOP"..030|
000002B0: 30 20 50 52 49 4E 54 20 0D 0A 30 33 31 30 20 49 |0 PRINT ..0310 I|
000002C0: 4E 50 55 54 20 22 3E 20 22 3A 20 4A 4F 42 43 4F |NPUT "> ": JOBCO|
000002D0: 44 45 0D 0A 30 33 32 30 20 49 46 20 4A 4F 42 43 |DE..0320 IF JOBC|
000002E0: 4F 44 45 3D 31 20 54 48 45 4E 20 4B 4F 52 52 45 |ODE=1 THEN KORRE|
000002F0: 4B 54 55 52 0D 0A 30 33 33 30 20 49 46 20 4A 4F |KTUR..0330 IF JO|
00000300: 42 43 4F 44 45 3D 32 20 54 48 45 4E 20 4C 4F 45 |BCODE=2 THEN LOE|
00000310: 53 43 48 45 4E 0D 0A 30 33 34 30 20 49 46 20 4A |SCHEN..0340 IF J|
00000320: 4F 42 43 4F 44 45 3D 33 20 54 48 45 4E 20 41 55 |OBCODE=3 THEN AU|
00000330: 46 4C 49 53 54 45 4E 0D 0A 30 33 35 30 20 49 46 |FLISTEN..0350 IF|
00000340: 20 4A 4F 42 43 4F 44 45 3D 34 20 54 48 45 4E 20 | JOBCODE=4 THEN |
00000350: 53 54 4F 50 53 59 53 54 45 4D 0D 0A 30 33 36 30 |STOPSYSTEM..0360|
00000360: 20 55 4E 54 49 4C 20 46 41 4C 53 45 0D 0A 30 33 | UNTIL FALSE..03|
00000370: 37 30 20 2F 2F 0D 0A 30 33 38 30 20 50 52 4F 43 |70 //..0380 PROC|
00000380: 20 4B 4F 52 52 45 4B 54 55 52 20 0D 0A 30 33 39 | KORREKTUR ..039|
00000390: 30 20 50 52 49 4E 54 20 43 48 52 24 28 31 34 37 |0 PRINT CHR$(147|
000003A0: 29 0D 0A 30 34 30 30 20 45 49 4E 47 41 42 45 28 |)..0400 EINGABE(|
000003B0: 22 53 43 48 55 45 4C 4E 52 22 29 0D 0A 30 34 31 |"SCHUELNR")..041|
000003C0: 30 20 5A 45 49 47 45 4E 0D 0A 30 34 32 30 20 49 |0 ZEIGEN..0420 I|
000003D0: 4E 50 55 54 20 22 4B 4F 52 52 45 4B 54 55 52 20 |NPUT "KORREKTUR |
000003E0: 28 4A 41 2F 4E 45 49 4E 29 3F 20 22 3A 20 41 4E |(JA/NEIN)? ": AN|
000003F0: 54 57 24 0D 0A 30 34 33 30 20 49 46 20 41 4E 54 |TW$..0430 IF ANT|
00000400: 57 24 3D 22 4A 41 22 20 54 48 45 4E 0D 0A 30 34 |W$="JA" THEN..04|
00000410: 34 30 20 45 49 4E 47 41 42 45 28 22 46 41 43 48 |40 EINGABE("FACH|
00000420: 22 29 0D 0A 30 34 35 30 20 45 49 4E 47 41 42 45 |")..0450 EINGABE|
00000430: 28 22 4E 4F 54 45 22 29 0D 0A 30 34 36 30 20 45 |("NOTE")..0460 E|
00000440: 4E 44 49 46 20 0D 0A 30 34 37 30 20 45 4E 44 50 |NDIF ..0470 ENDP|
00000450: 52 4F 43 20 4B 4F 52 52 45 4B 54 55 52 0D 0A 30 |ROC KORREKTUR..0|
00000460: 34 38 30 20 2F 2F 0D 0A 30 34 39 30 20 50 52 4F |480 //..0490 PRO|
00000470: 43 20 4C 4F 45 53 43 48 45 4E 20 0D 0A 30 35 30 |C LOESCHEN ..050|
00000480: 30 20 50 52 49 4E 54 20 43 48 52 24 28 31 34 37 |0 PRINT CHR$(147|
00000490: 29 0D 0A 30 35 31 30 20 45 49 4E 47 41 42 45 28 |)..0510 EINGABE(|
000004A0: 22 53 43 48 55 45 4C 4E 52 22 29 0D 0A 30 35 32 |"SCHUELNR")..052|
000004B0: 30 20 5A 45 49 47 45 4E 0D 0A 30 35 33 30 20 50 |0 ZEIGEN..0530 P|
000004C0: 52 49 4E 54 20 0D 0A 30 35 34 30 20 50 52 49 4E |RINT ..0540 PRIN|
000004D0: 54 20 22 57 4F 4C 4C 45 4E 20 53 49 45 20 44 49 |T "WOLLEN SIE DI|
000004E0: 45 20 4E 4F 54 45 4E 20 4C 4F 45 53 43 48 45 4E |E NOTEN LOESCHEN|
000004F0: 2C 22 0D 0A 30 35 35 30 20 50 52 49 4E 54 20 22 |,"..0550 PRINT "|
00000500: 44 49 45 20 4F 42 45 4E 20 47 45 5A 45 49 47 54 |DIE OBEN GEZEIGT|
00000510: 20 57 55 52 44 45 4E 20 28 4A 41 2F 52 45 54 55 | WURDEN (JA/RETU|
00000520: 52 4E 29 22 2C 0D 0A 30 35 36 30 20 49 4E 50 55 |RN)",..0560 INPU|
00000530: 54 20 41 4E 54 57 24 0D 0A 30 35 37 30 20 49 46 |T ANTW$..0570 IF|
00000540: 20 41 4E 54 57 24 3D 22 4A 41 22 20 54 48 45 4E | ANTW$="JA" THEN|
00000550: 20 4E 41 4D 45 24 28 53 43 48 55 45 4C 4E 52 29 | NAME$(SCHUELNR)|
00000560: 3A 3D 22 22 0D 0A 30 35 38 30 20 45 4E 44 50 52 |:=""..0580 ENDPR|
00000570: 4F 43 20 4C 4F 45 53 43 48 45 4E 0D 0A 30 35 39 |OC LOESCHEN..059|
00000580: 30 20 2F 2F 0D 0A 30 36 30 30 20 50 52 4F 43 20 |0 //..0600 PROC |
00000590: 45 49 4E 47 41 42 45 28 42 45 54 52 24 29 20 0D |EINGABE(BETR$) .|
000005A0: 0A 30 36 31 30 20 52 45 50 45 41 54 20 0D 0A 30 |.0610 REPEAT ..0|
000005B0: 36 32 30 20 46 45 4C 44 28 38 2C 31 30 29 0D 0A |620 FELD(8,10)..|
000005C0: 30 36 33 30 20 43 41 53 45 20 42 45 54 52 24 20 |0630 CASE BETR$ |
000005D0: 4F 46 0D 0A 30 36 34 30 20 57 48 45 4E 20 22 53 |OF..0640 WHEN "S|
000005E0: 43 48 55 45 4C 4E 52 22 0D 0A 30 36 35 30 20 49 |CHUELNR"..0650 I|
000005F0: 4E 50 55 54 20 22 53 43 48 55 45 4C 45 52 20 4E |NPUT "SCHUELER N|
00000600: 55 4D 4D 45 52 3A 20 22 3A 20 53 43 48 55 45 4C |UMMER: ": SCHUEL|
00000610: 4E 52 0D 0A 30 36 36 30 20 57 48 45 4E 20 22 46 |NR..0660 WHEN "F|
00000620: 41 43 48 22 0D 0A 30 36 37 30 20 50 52 49 4E 54 |ACH"..0670 PRINT|
00000630: 20 22 44 45 55 54 53 43 48 2C 20 4D 41 54 48 45 | "DEUTSCH, MATHE|
00000640: 4D 41 54 49 4B 2C 20 45 4E 47 4C 49 53 43 48 22 |MATIK, ENGLISCH"|
00000650: 2C 0D 0A 30 36 38 30 20 49 4E 50 55 54 20 41 4E |,..0680 INPUT AN|
00000660: 54 57 24 0D 0A 30 36 39 30 20 57 48 45 4E 20 22 |TW$..0690 WHEN "|
00000670: 4E 4F 54 45 22 0D 0A 30 37 30 30 20 50 52 49 4E |NOTE"..0700 PRIN|
00000680: 54 20 22 44 49 45 20 52 49 43 48 54 49 47 45 20 |T "DIE RICHTIGE |
00000690: 4E 4F 54 45 20 49 4D 20 46 41 43 48 20 22 2C 46 |NOTE IM FACH ",F|
000006A0: 41 43 48 24 28 46 41 43 48 4E 52 29 0D 0A 30 37 |ACH$(FACHNR)..07|
000006B0: 31 30 20 50 52 49 4E 54 20 22 46 55 45 52 44 45 |10 PRINT "FUERDE|
000006C0: 4E 20 53 43 48 55 45 4C 45 52 20 22 2C 4E 41 4D |N SCHUELER ",NAM|
000006D0: 45 24 28 53 43 48 55 45 4C 4E 52 29 2C 22 20 49 |E$(SCHUELNR)," I|
000006E0: 53 54 3A 22 2C 0D 0A 30 37 32 30 20 49 4E 50 55 |ST:",..0720 INPU|
000006F0: 54 20 22 20 22 3A 20 44 49 45 4E 4F 54 45 0D 0A |T " ": DIENOTE..|
00000700: 30 37 33 30 20 45 4E 44 43 41 53 45 20 0D 0A 30 |0730 ENDCASE ..0|
00000710: 37 34 30 20 4B 4F 4E 54 52 4F 4C 4C 45 0D 0A 30 |740 KONTROLLE..0|
00000720: 37 35 30 20 55 4E 54 49 4C 20 4F 4B 0D 0A 30 37 |750 UNTIL OK..07|
00000730: 36 30 20 50 52 49 4E 54 20 43 48 52 24 28 31 34 |60 PRINT CHR$(14|
00000740: 37 29 0D 0A 30 37 37 30 20 45 4E 44 50 52 4F 43 |7)..0770 ENDPROC|
00000750: 20 45 49 4E 47 41 42 45 0D 0A 30 37 38 30 20 2F | EINGABE..0780 /|
00000760: 2F 0D 0A 30 37 39 30 20 50 52 4F 43 20 4B 4F 4E |/..0790 PROC KON|
00000770: 54 52 4F 4C 4C 45 20 0D 0A 30 38 30 30 20 43 41 |TROLLE ..0800 CA|
00000780: 53 45 20 42 45 54 52 24 20 4F 46 0D 0A 30 38 31 |SE BETR$ OF..081|
00000790: 30 20 57 48 45 4E 20 22 53 43 48 55 45 4C 4E 52 |0 WHEN "SCHUELNR|
000007A0: 22 0D 0A 30 38 32 30 20 56 4F 52 48 41 4E 44 45 |"..0820 VORHANDE|
000007B0: 4E 3A 3D 46 41 4C 53 45 0D 0A 30 38 33 30 20 4F |N:=FALSE..0830 O|
000007C0: 4B 3A 3D 28 30 3C 53 43 48 55 45 4C 4E 52 20 41 |K:=(0<SCHUELNR A|
000007D0: 4E 44 20 53 43 48 55 45 4C 4E 52 3C 3D 4D 41 58 |ND SCHUELNR<=MAX|
000007E0: 29 0D 0A 30 38 34 30 20 49 46 20 4F 4B 20 54 48 |)..0840 IF OK TH|
000007F0: 45 4E 20 56 4F 52 48 41 4E 44 45 4E 3A 3D 28 4E |EN VORHANDEN:=(N|
00000800: 41 4D 45 24 28 53 43 48 55 45 4C 4E 52 29 3C 3E |AME$(SCHUELNR)<>|
00000810: 22 22 29 0D 0A 30 38 35 30 20 4F 4B 3A 3D 4F 4B |"")..0850 OK:=OK|
00000820: 20 41 4E 44 20 56 4F 52 48 41 4E 44 45 4E 0D 0A | AND VORHANDEN..|
00000830: 30 38 36 30 20 57 48 45 4E 20 22 46 41 43 48 22 |0860 WHEN "FACH"|
00000840: 0D 0A 30 38 37 30 20 49 3A 3D 31 0D 0A 30 38 38 |..0870 I:=1..088|
00000850: 30 20 57 48 49 4C 45 20 41 4E 54 57 24 3C 3E 46 |0 WHILE ANTW$<>F|
00000860: 41 43 48 24 28 49 29 20 41 4E 44 20 49 3C 33 20 |ACH$(I) AND I<3 |
00000870: 44 4F 20 49 3A 3D 49 2B 31 0D 0A 30 38 39 30 20 |DO I:=I+1..0890 |
00000880: 4F 4B 3A 3D 28 41 4E 54 57 24 3D 46 41 43 48 24 |OK:=(ANTW$=FACH$|
00000890: 28 49 29 29 3B 20 46 41 43 48 4E 52 3A 3D 49 0D |(I)); FACHNR:=I.|
000008A0: 0A 30 39 30 30 20 57 48 45 4E 20 22 4E 4F 54 45 |.0900 WHEN "NOTE|
000008B0: 22 0D 0A 30 39 31 30 20 4F 4B 3A 3D 28 30 3C 3D |"..0910 OK:=(0<=|
000008C0: 44 49 45 4E 4F 54 45 20 41 4E 44 20 44 49 45 4E |DIENOTE AND DIEN|
000008D0: 4F 54 45 3C 3D 35 29 0D 0A 30 39 32 30 20 49 46 |OTE<=5)..0920 IF|
000008E0: 20 4F 4B 20 54 48 45 4E 20 4E 4F 54 45 28 53 43 | OK THEN NOTE(SC|
000008F0: 48 55 45 4C 4E 52 2C 46 41 43 48 4E 52 29 3A 3D |HUELNR,FACHNR):=|
00000900: 44 49 45 4E 4F 54 45 0D 0A 30 39 33 30 20 45 4E |DIENOTE..0930 EN|
00000910: 44 43 41 53 45 20 0D 0A 30 39 34 30 20 49 46 20 |DCASE ..0940 IF |
00000920: 4E 4F 54 20 4F 4B 20 54 48 45 4E 20 46 45 48 4C |NOT OK THEN FEHL|
00000930: 45 52 28 34 29 0D 0A 30 39 35 30 20 45 4E 44 50 |ER(4)..0950 ENDP|
00000940: 52 4F 43 20 4B 4F 4E 54 52 4F 4C 4C 45 0D 0A 30 |ROC KONTROLLE..0|
00000950: 39 36 30 20 2F 2F 0D 0A 30 39 37 30 20 50 52 4F |960 //..0970 PRO|
00000960: 43 20 46 45 48 4C 45 52 28 4E 52 29 20 0D 0A 30 |C FEHLER(NR) ..0|
00000970: 39 38 30 20 46 45 4C 44 28 31 2C 33 29 0D 0A 30 |980 FELD(1,3)..0|
00000980: 39 39 30 20 50 52 49 4E 54 20 22 46 45 48 4C 45 |990 PRINT "FEHLE|
00000990: 52 21 22 0D 0A 31 30 30 30 20 2F 2F 0D 0A 31 30 |R!"..1000 //..10|
000009A0: 31 30 20 2F 2F 4E 49 43 48 54 20 41 42 47 45 53 |10 //NICHT ABGES|
000009B0: 43 48 4C 4F 53 53 45 4E 2F 2F 0D 0A 31 30 32 30 |CHLOSSEN//..1020|
000009C0: 20 2F 2F 0D 0A 31 30 33 30 20 45 4E 44 50 52 4F | //..1030 ENDPRO|
000009D0: 43 20 46 45 48 4C 45 52 0D 0A 31 30 34 30 20 2F |C FEHLER..1040 /|
000009E0: 2F 0D 0A 31 30 35 30 20 2F 2F 0D 0A 31 30 36 30 |/..1050 //..1060|
000009F0: 20 50 52 4F 43 20 46 45 4C 44 28 4C 31 2C 4C 32 | PROC FELD(L1,L2|
00000A00: 29 20 43 4C 4F 53 45 44 0D 0A 31 30 36 32 20 44 |) CLOSED..1062 D|
00000A10: 49 4D 20 4C 45 45 52 5A 24 20 4F 46 20 37 30 0D |IM LEERZ$ OF 70.|
00000A20: 0A 31 30 36 34 20 4C 45 45 52 5A 24 28 31 3A 37 |.1064 LEERZ$(1:7|
00000A30: 30 29 3A 3D 22 22 0D 0A 31 30 37 30 20 50 4F 53 |0):=""..1070 POS|
00000A40: 49 28 4C 31 2C 31 29 0D 0A 31 30 38 30 20 46 4F |I(L1,1)..1080 FO|
00000A50: 52 20 49 3A 3D 31 20 54 4F 20 4C 32 2D 4C 31 2B |R I:=1 TO L2-L1+|
00000A60: 31 20 44 4F 20 50 52 49 4E 54 20 4C 45 45 52 5A |1 DO PRINT LEERZ|
00000A70: 24 0D 0A 31 30 39 30 20 50 4F 53 49 28 4C 31 2C |$..1090 POSI(L1,|
00000A80: 31 29 0D 0A 31 31 31 30 20 45 4E 44 50 52 4F 43 |1)..1110 ENDPROC|
00000A90: 20 46 45 4C 44 0D 0A 31 31 32 30 20 2F 2F 0D 0A | FELD..1120 //..|
00000AA0: 31 31 33 30 20 50 52 4F 43 20 50 4F 53 49 28 4C |1130 PROC POSI(L|
00000AB0: 2C 5A 29 20 0D 0A 31 31 34 30 20 50 52 49 4E 54 |,Z) ..1140 PRINT|
00000AC0: 20 43 48 52 24 28 31 39 29 0D 0A 31 31 35 30 20 | CHR$(19)..1150 |
00000AD0: 46 4F 52 20 49 27 3A 3D 31 20 54 4F 20 4C 2D 31 |FOR I':=1 TO L-1|
00000AE0: 20 44 4F 20 50 52 49 4E 54 20 0D 0A 31 31 35 35 | DO PRINT ..1155|
00000AF0: 20 46 4F 52 20 49 27 3A 3D 31 20 54 4F 20 5A 2D | FOR I':=1 TO Z-|
00000B00: 31 20 44 4F 20 50 52 49 4E 54 20 43 48 52 24 28 |1 DO PRINT CHR$(|
00000B10: 32 39 29 2C 0D 0A 31 31 36 30 20 45 4E 44 50 52 |29),..1160 ENDPR|
00000B20: 4F 43 20 50 4F 53 49 0D 0A 31 31 37 30 20 2F 2F |OC POSI..1170 //|
00000B30: 0D 0A 31 31 38 30 20 50 52 4F 43 20 53 54 41 52 |..1180 PROC STAR|
00000B40: 54 53 59 53 54 45 4D 20 0D 0A 31 31 39 30 20 4F |TSYSTEM ..1190 O|
00000B50: 50 45 4E 20 46 49 4C 45 20 32 2C 22 5A 45 55 47 |PEN FILE 2,"ZEUG|
00000B60: 4E 49 53 53 45 22 2C 52 45 41 44 0D 0A 31 32 30 |NISSE",READ..120|
00000B70: 30 20 46 4F 52 20 53 43 48 55 45 4C 4E 52 3A 3D |0 FOR SCHUELNR:=|
00000B80: 31 20 54 4F 20 4D 41 58 20 44 4F 0D 0A 31 32 31 |1 TO MAX DO..121|
00000B90: 30 20 52 45 41 44 20 46 49 4C 45 20 32 3A 20 4E |0 READ FILE 2: N|
00000BA0: 41 4D 45 24 28 53 43 48 55 45 4C 4E 52 29 0D 0A |AME$(SCHUELNR)..|
00000BB0: 31 32 32 30 20 46 4F 52 20 46 41 43 48 4E 52 3A |1220 FOR FACHNR:|
00000BC0: 3D 31 20 54 4F 20 33 20 44 4F 20 52 45 41 44 20 |=1 TO 3 DO READ |
00000BD0: 46 49 4C 45 20 32 3A 20 4E 4F 54 45 28 53 43 48 |FILE 2: NOTE(SCH|
00000BE0: 55 45 4C 4E 52 2C 46 41 43 48 4E 52 29 0D 0A 31 |UELNR,FACHNR)..1|
00000BF0: 32 33 30 20 4E 45 58 54 20 53 43 48 55 45 4C 4E |230 NEXT SCHUELN|
00000C00: 52 0D 0A 31 32 34 30 20 43 4C 4F 53 45 0D 0A 31 |R..1240 CLOSE..1|
00000C10: 32 35 30 20 45 4E 44 50 52 4F 43 20 53 54 41 52 |250 ENDPROC STAR|
00000C20: 54 53 59 53 54 45 4D 0D 0A 31 32 36 30 20 2F 2F |TSYSTEM..1260 //|
00000C30: 0D 0A 31 32 37 30 20 50 52 4F 43 20 53 54 4F 50 |..1270 PROC STOP|
00000C40: 53 59 53 54 45 4D 20 0D 0A 31 32 38 30 20 4F 50 |SYSTEM ..1280 OP|
00000C50: 45 4E 20 46 49 4C 45 20 32 2C 22 40 30 3A 5A 45 |EN FILE 2,"@0:ZE|
00000C60: 55 47 4E 49 53 53 45 22 2C 57 52 49 54 45 0D 0A |UGNISSE",WRITE..|
00000C70: 31 32 39 30 20 46 4F 52 20 53 43 48 55 45 4C 4E |1290 FOR SCHUELN|
00000C80: 52 3A 3D 31 20 54 4F 20 4D 41 58 20 44 4F 0D 0A |R:=1 TO MAX DO..|
00000C90: 31 33 30 30 20 57 52 49 54 45 20 46 49 4C 45 20 |1300 WRITE FILE |
00000CA0: 32 3A 20 4E 41 4D 45 24 28 53 43 48 55 45 4C 4E |2: NAME$(SCHUELN|
00000CB0: 52 29 0D 0A 31 33 31 30 20 46 4F 52 20 46 41 43 |R)..1310 FOR FAC|
00000CC0: 48 4E 52 3A 3D 31 20 54 4F 20 33 20 44 4F 20 57 |HNR:=1 TO 3 DO W|
00000CD0: 52 49 54 45 20 46 49 4C 45 20 32 3A 20 4E 4F 54 |RITE FILE 2: NOT|
00000CE0: 45 28 53 43 48 55 45 4C 4E 52 2C 46 41 43 48 4E |E(SCHUELNR,FACHN|
00000CF0: 52 29 0D 0A 31 33 32 30 20 4E 45 58 54 20 53 43 |R)..1320 NEXT SC|
00000D00: 48 55 45 4C 4E 52 0D 0A 31 33 33 30 20 43 4C 4F |HUELNR..1330 CLO|
00000D10: 53 45 0D 0A 31 33 34 30 20 53 54 4F 50 20 0D 0A |SE..1340 STOP ..|
00000D20: 31 33 35 30 20 45 4E 44 50 52 4F 43 20 53 54 4F |1350 ENDPROC STO|
00000D30: 50 53 59 53 54 45 4D 0D 0A 31 33 36 30 20 2F 2F |PSYSTEM..1360 //|
00000D40: 0D 0A 31 33 37 30 20 50 52 4F 43 20 41 55 46 4C |..1370 PROC AUFL|
00000D50: 49 53 54 45 4E 20 0D 0A 31 33 38 30 20 50 52 49 |ISTEN ..1380 PRI|
00000D60: 4E 54 20 43 48 52 24 28 31 34 37 29 0D 0A 31 33 |NT CHR$(147)..13|
00000D70: 39 30 20 45 49 4E 47 41 42 45 28 22 53 43 48 55 |90 EINGABE("SCHU|
00000D80: 45 4C 4E 52 22 29 0D 0A 31 34 30 30 20 5A 45 49 |ELNR")..1400 ZEI|
00000D90: 47 45 4E 0D 0A 31 34 31 30 20 50 52 49 4E 54 20 |GEN..1410 PRINT |
00000DA0: 0D 0A 31 34 32 30 20 49 4E 50 55 54 20 22 44 52 |..1420 INPUT "DR|
00000DB0: 55 45 43 4B 45 20 44 49 45 20 52 45 54 55 52 4E |UECKE DIE RETURN|
00000DC0: 2D 54 41 53 54 45 3A 20 22 3A 20 41 4E 54 57 24 |-TASTE: ": ANTW$|
00000DD0: 0D 0A 31 34 33 30 20 45 4E 44 50 52 4F 43 20 41 |..1430 ENDPROC A|
00000DE0: 55 46 4C 49 53 54 45 4E 0D 0A 31 34 34 30 20 2F |UFLISTEN..1440 /|
00000DF0: 2F 0D 0A 31 34 35 30 20 50 52 4F 43 20 5A 45 49 |/..1450 PROC ZEI|
00000E00: 47 45 4E 20 0D 0A 31 34 36 30 20 50 52 49 4E 54 |GEN ..1460 PRINT|
00000E10: 20 43 48 52 24 28 31 34 37 29 0D 0A 31 34 37 30 | CHR$(147)..1470|
00000E20: 20 46 45 4C 44 28 38 2C 32 30 29 0D 0A 31 34 38 | FELD(8,20)..148|
00000E30: 30 20 49 46 20 4E 41 4D 45 24 28 53 43 48 55 45 |0 IF NAME$(SCHUE|
00000E40: 4C 4E 52 29 3C 3E 22 22 20 54 48 45 4E 0D 0A 31 |LNR)<>"" THEN..1|
00000E50: 34 39 30 20 44 45 52 4E 41 4D 45 24 3A 3D 4E 41 |490 DERNAME$:=NA|
00000E60: 4D 45 24 28 53 43 48 55 45 4C 4E 52 29 0D 0A 31 |ME$(SCHUELNR)..1|
00000E70: 35 30 30 20 50 52 49 4E 54 20 22 53 43 48 55 45 |500 PRINT "SCHUE|
00000E80: 4C 45 52 20 4E 55 4D 4D 45 52 20 22 2C 53 43 48 |LER NUMMER ",SCH|
00000E90: 55 45 4C 4E 52 2C 22 2C 20 22 2C 44 45 52 4E 41 |UELNR,", ",DERNA|
00000EA0: 4D 45 24 0D 0A 31 35 31 30 20 50 52 49 4E 54 20 |ME$..1510 PRINT |
00000EB0: 22 48 41 54 20 44 49 45 20 46 4F 4C 47 45 4E 44 |"HAT DIE FOLGEND|
00000EC0: 45 4E 20 5A 45 4E 53 55 52 45 4E 20 45 52 48 41 |EN ZENSUREN ERHA|
00000ED0: 4C 54 45 4E 3A 22 0D 0A 31 35 32 30 20 50 52 49 |LTEN:"..1520 PRI|
00000EE0: 4E 54 20 0D 0A 31 35 33 30 20 5A 4F 4E 45 20 33 |NT ..1530 ZONE 3|
00000EF0: 30 0D 0A 31 35 34 30 20 46 4F 52 20 46 41 43 48 |0..1540 FOR FACH|
00000F00: 4E 52 3A 3D 31 20 54 4F 20 33 20 44 4F 0D 0A 31 |NR:=1 TO 3 DO..1|
00000F10: 35 35 30 20 50 52 49 4E 54 20 46 41 43 48 24 28 |550 PRINT FACH$(|
00000F20: 46 41 43 48 4E 52 29 2C 4E 4F 54 45 28 53 43 48 |FACHNR),NOTE(SCH|
00000F30: 55 45 4C 4E 52 2C 46 41 43 48 4E 52 29 0D 0A 31 |UELNR,FACHNR)..1|
00000F40: 35 36 30 20 4E 45 58 54 20 46 41 43 48 4E 52 0D |560 NEXT FACHNR.|
00000F50: 0A 31 35 37 30 20 5A 4F 4E 45 20 30 0D 0A 31 35 |.1570 ZONE 0..15|
00000F60: 38 30 20 45 4E 44 49 46 20 0D 0A 31 35 39 30 20 |80 ENDIF ..1590 |
00000F70: 50 52 49 4E 54 20 0D 0A 31 36 30 30 20 45 4E 44 |PRINT ..1600 END|
00000F80: 50 52 4F 43 20 5A 45 49 47 45 4E 0D 0A |PROC ZEIGEN.. |
0010 //DIE PRIVATSCHULE DER OLSENS//..00
20 //PROGRAMM ZUM VERWALTEN VON ZENSUREN
//..0030 //GESCHRIEBEN VON CHRIS BOERGE
IN CBM COMAL-80//..0040 //DIESE FASSUNG
IST VON OKTOBER 1981//..0050 //DIESER TE
IL DIENT ZUM ANBRINGEN VON KORREKTUREN//
..0060 //..0070 MAX:=8..0080 DIM NAME$(M
AX) OF 20, ANTW$ OF 10..0090 DIM DERNAME
$ OF 20..0100 DIM NOTE(MAX,3), FACH$(3)
OF 10, SCHLUESSEL(MAX)..0120 //*..0130 F
ACH$(1):="DEUTSCH"..0140 FACH$(2):="MATH
EMATIK"..0150 FACH$(3):="ENGLISCH"..0190
//..0200 STARTSYSTEM..0210 //..0220 //*
HAUPTZEILEN *//..0230 REPEAT ..0240 PRI
NT CHR$(147)..0250 FELD(8,15)..0260 PRIN
T "1=KORREKTUR"..0270 PRINT "2=LOESCHEN"
..0280 PRINT "3=LISTE"..0290 PRINT "4=ST
OP"..0300 PRINT ..0310 INPUT "> ": JOBCO
DE..0320 IF JOBCODE=1 THEN KORREKTUR..03
30 IF JOBCODE=2 THEN LOESCHEN..0340 IF J
OBCODE=3 THEN AUFLISTEN..0350 IF JOBCODE
=4 THEN STOPSYSTEM..0360 UNTIL FALSE..03
70 //..0380 PROC KORREKTUR ..0390 PRINT
CHR$(147)..0400 EINGABE("SCHUELNR")..041
0 ZEIGEN..0420 INPUT "KORREKTUR (JA/NEIN
)? ": ANTW$..0430 IF ANTW$="JA" THEN..04
40 EINGABE("FACH")..0450 EINGABE("NOTE")
..0460 ENDIF ..0470 ENDPROC KORREKTUR..0
480 //..0490 PROC LOESCHEN ..0500 PRINT
CHR$(147)..0510 EINGABE("SCHUELNR")..052
0 ZEIGEN..0530 PRINT ..0540 PRINT "WOLLE
N SIE DIE NOTEN LOESCHEN,"..0550 PRINT "
DIE OBEN GEZEIGT WURDEN (JA/RETURN)",..0
560 INPUT ANTW$..0570 IF ANTW$="JA" THEN
NAME$(SCHUELNR):=""..0580 ENDPROC LOESC
HEN..0590 //..0600 PROC EINGABE(BETR$) .
.0610 REPEAT ..0620 FELD(8,10)..0630 CAS
E BETR$ OF..0640 WHEN "SCHUELNR"..0650 I
NPUT "SCHUELER NUMMER: ": SCHUELNR..0660
WHEN "FACH"..0670 PRINT "DEUTSCH, MATHE
MATIK, ENGLISCH",..0680 INPUT ANTW$..069
0 WHEN "NOTE"..0700 PRINT "DIE RICHTIGE
NOTE IM FACH ",FACH$(FACHNR)..0710 PRINT
"FUERDEN SCHUELER ",NAME$(SCHUELNR)," I
ST:",..0720 INPUT " ": DIENOTE..0730 END
CASE ..0740 KONTROLLE..0750 UNTIL OK..07
60 PRINT CHR$(147)..0770 ENDPROC EINGABE
..0780 //..0790 PROC KONTROLLE ..0800 CA
SE BETR$ OF..0810 WHEN "SCHUELNR"..0820
VORHANDEN:=FALSE..0830 OK:=(0<SCHUELNR A
ND SCHUELNR<=MAX)..0840 IF OK THEN VORHA
NDEN:=(NAME$(SCHUELNR)<>"")..0850 OK:=OK
AND VORHANDEN..0860 WHEN "FACH"..0870 I
:=1..0880 WHILE ANTW$<>FACH$(I) AND I<3
DO I:=I+1..0890 OK:=(ANTW$=FACH$(I)); FA
CHNR:=I..0900 WHEN "NOTE"..0910 OK:=(0<=
DIENOTE AND DIENOTE<=5)..0920 IF OK THEN
NOTE(SCHUELNR,FACHNR):=DIENOTE..0930 EN
DCASE ..0940 IF NOT OK THEN FEHLER(4)..0
950 ENDPROC KONTROLLE..0960 //..0970 PRO
C FEHLER(NR) ..0980 FELD(1,3)..0990 PRIN
T "FEHLER!"..1000 //..1010 //NICHT ABGES
CHLOSSEN//..1020 //..1030 ENDPROC FEHLER
..1040 //..1050 //..1060 PROC FELD(L1,L2
) CLOSED..1062 DIM LEERZ$ OF 70..1064 LE
ERZ$(1:70):=""..1070 POSI(L1,1)..1080 FO
R I:=1 TO L2-L1+1 DO PRINT LEERZ$..1090
POSI(L1,1)..1110 ENDPROC FELD..1120 //..
1130 PROC POSI(L,Z) ..1140 PRINT CHR$(19
)..1150 FOR I':=1 TO L-1 DO PRINT ..1155
FOR I':=1 TO Z-1 DO PRINT CHR$(29),..11
60 ENDPROC POSI..1170 //..1180 PROC STAR
TSYSTEM ..1190 OPEN FILE 2,"ZEUGNISSE",R
EAD..1200 FOR SCHUELNR:=1 TO MAX DO..121
0 READ FILE 2: NAME$(SCHUELNR)..1220 FOR
FACHNR:=1 TO 3 DO READ FILE 2: NOTE(SCH
UELNR,FACHNR)..1230 NEXT SCHUELNR..1240
CLOSE..1250 ENDPROC STARTSYSTEM..1260 //
..1270 PROC STOPSYSTEM ..1280 OPEN FILE
2,"@0:ZEUGNISSE",WRITE..1290 FOR SCHUELN
R:=1 TO MAX DO..1300 WRITE FILE 2: NAME$
(SCHUELNR)..1310 FOR FACHNR:=1 TO 3 DO W
RITE FILE 2: NOTE(SCHUELNR,FACHNR)..1320
NEXT SCHUELNR..1330 CLOSE..1340 STOP ..
1350 ENDPROC STOPSYSTEM..1360 //..1370 P
ROC AUFLISTEN ..1380 PRINT CHR$(147)..13
90 EINGABE("SCHUELNR")..1400 ZEIGEN..141
0 PRINT ..1420 INPUT "DRUECKE DIE RETURN
-TASTE: ": ANTW$..1430 ENDPROC AUFLISTEN
..1440 //..1450 PROC ZEIGEN ..1460 PRINT
CHR$(147)..1470 FELD(8,20)..1480 IF NAM
E$(SCHUELNR)<>"" THEN..1490 DERNAME$:=NA
ME$(SCHUELNR)..1500 PRINT "SCHUELER NUMM
ER ",SCHUELNR,", ",DERNAME$..1510 PRINT
"HAT DIE FOLGENDEN ZENSUREN ERHALTEN:"..
1520 PRINT ..1530 ZONE 30..1540 FOR FACH
NR:=1 TO 3 DO..1550 PRINT FACH$(FACHNR),
NOTE(SCHUELNR,FACHNR)..1560 NEXT FACHNR.
.1570 ZONE 0..1580 ENDIF ..1590 PRINT ..
1600 ENDPROC ZEIGEN..
> CLICK IMAGE PREVIEW FOR FULL MODAL