NOTENEINGABE
FILE INFORMATION
FILENAME(S): NOTENEINGABE
FILE TYPE(S): SEQ
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 01:08:01
APPEARS ON: 6 disk(s)
FILE HASH
ecfa0f4c4e18f945d6f53643b06781a4619268fc42645e2eb88524daa7a91844
FOUND ON DISKS (6 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C OMAL | NOTENEINGABE | SEQ | Treasure Chest - Wolfgang Rauprich | 10 | 12 | DOWNLOAD FILE |
| FREEWARE DISK NR | NOTENEINGABE | SEQ | Treasure Chest - Wolfgang Rauprich | 10 | 12 | DOWNLOAD FILE |
| COMAL 0 14 | NOTENEINGABE | SEQ | Treasure Chest - Wolfgang Rauprich | 9 | 0 | DOWNLOAD FILE |
| C OMAL 0 14 | NOTENEINGABE | SEQ | Treasure Chest - Wolfgang Rauprich | 9 | 0 | DOWNLOAD FILE |
| C OMAL | NOTENEINGABE | SEQ | Treasure Chest - Wolfgang Rauprich | 10 | 12 | DOWNLOAD FILE |
| FREESOFT DISK NR | NOTENEINGABE | SEQ | Treasure Chest - Wolfgang Rauprich | 10 | 12 | 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 56 45 52 53 49 4F 4E 20 |//DIESE VERSION |
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 45 49 4E 47 45 42 45 4E 20 56 4F | ZUM EINGEBEN VO|
000000E0: 4E 20 5A 45 4E 53 55 52 45 4E 2F 2F 0D 0A 30 30 |N ZENSUREN//..00|
000000F0: 36 30 20 2F 2F 0D 0A 30 30 37 30 20 4D 41 58 3A |60 //..0070 MAX:|
00000100: 3D 38 0D 0A 30 30 38 30 20 44 49 4D 20 4E 41 4D |=8..0080 DIM NAM|
00000110: 45 24 28 4D 41 58 29 20 4F 46 20 32 30 2C 20 41 |E$(MAX) OF 20, A|
00000120: 4E 54 57 24 20 4F 46 20 31 30 0D 0A 30 30 39 30 |NTW$ OF 10..0090|
00000130: 20 44 49 4D 20 4E 4F 54 45 28 4D 41 58 2C 33 29 | DIM NOTE(MAX,3)|
00000140: 2C 20 46 41 43 48 24 28 33 29 20 4F 46 20 31 31 |, FACH$(3) OF 11|
00000150: 2C 20 53 43 48 4C 55 45 53 53 45 4C 28 4D 41 58 |, SCHLUESSEL(MAX|
00000160: 29 0D 0A 30 31 31 30 20 2F 2F 2A 0D 0A 30 31 32 |)..0110 //*..012|
00000170: 30 20 46 41 43 48 24 28 31 29 3A 3D 22 44 45 55 |0 FACH$(1):="DEU|
00000180: 54 53 43 48 22 0D 0A 30 31 33 30 20 46 41 43 48 |TSCH"..0130 FACH|
00000190: 24 28 32 29 3A 3D 22 4D 41 54 48 45 4D 41 54 49 |$(2):="MATHEMATI|
000001A0: 4B 22 0D 0A 30 31 34 30 20 46 41 43 48 24 28 33 |K"..0140 FACH$(3|
000001B0: 29 3A 3D 22 45 4E 47 4C 49 53 43 48 22 0D 0A 30 |):="ENGLISCH"..0|
000001C0: 31 38 30 20 2F 2F 0D 0A 30 31 39 30 20 53 54 41 |180 //..0190 STA|
000001D0: 52 54 53 59 53 54 45 4D 0D 0A 30 32 30 30 20 2F |RTSYSTEM..0200 /|
000001E0: 2F 0D 0A 30 32 31 30 20 2F 2F 2A 20 48 41 55 50 |/..0210 //* HAUP|
000001F0: 54 5A 45 49 4C 45 4E 20 2A 2F 2F 0D 0A 30 32 32 |TZEILEN *//..022|
00000200: 30 20 46 41 43 48 4E 52 3A 3D 30 0D 0A 30 32 33 |0 FACHNR:=0..023|
00000210: 30 20 52 45 50 45 41 54 20 0D 0A 30 32 34 30 20 |0 REPEAT ..0240 |
00000220: 50 52 49 4E 54 20 43 48 52 24 28 31 34 37 29 20 |PRINT CHR$(147) |
00000230: 2F 2F 41 42 4C 4F 45 53 43 48 45 4E 0D 0A 30 32 |//ABLOESCHEN..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 4E 4F 54 |260 PRINT "1=NOT|
00000260: 45 4E 20 45 49 4E 47 45 42 45 4E 22 0D 0A 30 32 |EN EINGEBEN"..02|
00000270: 37 30 20 50 52 49 4E 54 20 22 32 3D 4E 4F 54 45 |70 PRINT "2=NOTE|
00000280: 4E 20 41 55 46 4C 49 53 54 45 4E 22 0D 0A 30 32 |N AUFLISTEN"..02|
00000290: 38 30 20 50 52 49 4E 54 20 22 33 3D 50 52 4F 47 |80 PRINT "3=PROG|
000002A0: 52 41 4D 4D 20 53 54 4F 50 50 45 4E 22 0D 0A 30 |RAMM STOPPEN"..0|
000002B0: 32 39 30 20 50 52 49 4E 54 20 0D 0A 30 33 30 30 |290 PRINT ..0300|
000002C0: 20 49 4E 50 55 54 20 22 3E 20 22 3A 20 4A 4F 42 | INPUT "> ": JOB|
000002D0: 43 4F 44 45 0D 0A 30 33 31 30 20 49 46 20 4A 4F |CODE..0310 IF JO|
000002E0: 42 43 4F 44 45 3D 31 20 54 48 45 4E 20 4E 4F 54 |BCODE=1 THEN NOT|
000002F0: 45 4E 45 49 4E 47 41 42 45 0D 0A 30 33 32 30 20 |ENEINGABE..0320 |
00000300: 49 46 20 4A 4F 42 43 4F 44 45 3D 32 20 54 48 45 |IF JOBCODE=2 THE|
00000310: 4E 20 41 55 53 44 52 55 43 4B 45 4E 0D 0A 30 33 |N AUSDRUCKEN..03|
00000320: 33 30 20 49 46 20 4A 4F 42 43 4F 44 45 3D 33 20 |30 IF JOBCODE=3 |
00000330: 54 48 45 4E 20 53 54 4F 50 53 59 53 54 45 4D 0D |THEN STOPSYSTEM.|
00000340: 0A 30 33 34 30 20 55 4E 54 49 4C 20 46 41 4C 53 |.0340 UNTIL FALS|
00000350: 45 20 2F 2F 45 4E 44 4C 4F 53 0D 0A 30 33 35 30 |E //ENDLOS..0350|
00000360: 20 2F 2F 0D 0A 30 33 36 30 20 50 52 4F 43 20 4E | //..0360 PROC N|
00000370: 4F 54 45 4E 45 49 4E 47 41 42 45 20 0D 0A 30 33 |OTENEINGABE ..03|
00000380: 37 30 20 45 49 4E 47 41 42 45 28 22 4B 4C 41 53 |70 EINGABE("KLAS|
00000390: 53 45 22 29 0D 0A 30 33 38 30 20 45 49 4E 47 41 |SE")..0380 EINGA|
000003A0: 42 45 28 22 46 41 43 48 22 29 0D 0A 30 33 39 30 |BE("FACH")..0390|
000003B0: 20 50 52 49 4E 54 20 43 48 52 24 28 31 34 37 29 | PRINT CHR$(147)|
000003C0: 0D 0A 30 34 30 30 20 50 52 49 4E 54 20 22 53 49 |..0400 PRINT "SI|
000003D0: 45 20 4B 4F 45 4E 4E 45 4E 20 4E 55 4E 20 44 49 |E KOENNEN NUN DI|
000003E0: 45 20 4E 4F 54 45 4E 20 45 49 4E 47 45 42 45 4E |E NOTEN EINGEBEN|
000003F0: 20 46 55 45 52 20 22 2C 46 41 43 48 24 28 46 41 | FUER ",FACH$(FA|
00000400: 43 48 4E 52 29 0D 0A 30 34 31 30 20 50 52 49 4E |CHNR)..0410 PRIN|
00000410: 54 20 0D 0A 30 34 32 30 20 46 4F 52 20 53 43 48 |T ..0420 FOR SCH|
00000420: 55 45 4C 4E 52 3A 3D 31 20 54 4F 20 4D 41 58 20 |UELNR:=1 TO MAX |
00000430: 44 4F 0D 0A 30 34 33 30 20 49 46 20 4E 41 4D 45 |DO..0430 IF NAME|
00000440: 24 28 53 43 48 55 45 4C 4E 52 29 3C 3E 22 22 20 |$(SCHUELNR)<>"" |
00000450: 54 48 45 4E 0D 0A 30 34 34 30 20 45 49 4E 47 41 |THEN..0440 EINGA|
00000460: 42 45 28 22 4E 4F 54 45 22 29 0D 0A 30 34 35 30 |BE("NOTE")..0450|
00000470: 20 45 4E 44 49 46 20 0D 0A 30 34 36 30 20 4E 45 | ENDIF ..0460 NE|
00000480: 58 54 20 53 43 48 55 45 4C 4E 52 0D 0A 30 34 37 |XT SCHUELNR..047|
00000490: 30 20 45 4E 44 50 52 4F 43 20 4E 4F 54 45 4E 45 |0 ENDPROC NOTENE|
000004A0: 49 4E 47 41 42 45 0D 0A 30 34 38 30 20 2F 2F 0D |INGABE..0480 //.|
000004B0: 0A 30 34 39 30 20 50 52 4F 43 20 45 49 4E 47 41 |.0490 PROC EINGA|
000004C0: 42 45 28 42 45 54 52 24 29 20 0D 0A 30 35 30 30 |BE(BETR$) ..0500|
000004D0: 20 52 45 50 45 41 54 20 0D 0A 30 35 31 30 20 46 | REPEAT ..0510 F|
000004E0: 45 4C 44 28 38 2C 31 35 29 0D 0A 30 35 32 30 20 |ELD(8,15)..0520 |
000004F0: 43 41 53 45 20 42 45 54 52 24 20 4F 46 0D 0A 30 |CASE BETR$ OF..0|
00000500: 35 33 30 20 57 48 45 4E 20 22 4B 4C 41 53 53 45 |530 WHEN "KLASSE|
00000510: 22 0D 0A 30 35 34 30 20 49 4E 50 55 54 20 22 4B |"..0540 INPUT "K|
00000520: 4C 41 53 53 45 20 28 38 2C 39 2C 31 30 29 3A 20 |LASSE (8,9,10): |
00000530: 22 3A 20 4B 4C 41 53 53 45 0D 0A 30 35 35 30 20 |": KLASSE..0550 |
00000540: 57 48 45 4E 20 22 46 41 43 48 22 0D 0A 30 35 36 |WHEN "FACH"..056|
00000550: 30 20 50 52 49 4E 54 20 22 47 45 42 45 4E 20 53 |0 PRINT "GEBEN S|
00000560: 49 45 20 44 45 4E 20 4E 41 4D 45 4E 20 44 45 53 |IE DEN NAMEN DES|
00000570: 20 46 41 43 48 45 53 20 45 49 4E 3A 22 0D 0A 30 | FACHES EIN:"..0|
00000580: 35 37 30 20 50 52 49 4E 54 20 22 28 44 45 55 54 |570 PRINT "(DEUT|
00000590: 53 43 48 2C 20 4D 41 54 48 45 4D 41 54 49 4B 2C |SCH, MATHEMATIK,|
000005A0: 20 45 4E 47 4C 49 53 43 48 29 22 2C 0D 0A 30 35 | ENGLISCH)",..05|
000005B0: 38 30 20 49 4E 50 55 54 20 22 3E 20 22 3A 20 41 |80 INPUT "> ": A|
000005C0: 4E 54 57 24 0D 0A 30 35 39 30 20 57 48 45 4E 20 |NTW$..0590 WHEN |
000005D0: 22 4E 4F 54 45 22 0D 0A 30 36 30 30 20 50 52 49 |"NOTE"..0600 PRI|
000005E0: 4E 54 20 4E 41 4D 45 24 28 53 43 48 55 45 4C 4E |NT NAME$(SCHUELN|
000005F0: 52 29 2C 54 41 42 28 33 30 29 2C 22 3A 20 22 2C |R),TAB(30),": ",|
00000600: 0D 0A 30 36 31 30 20 49 4E 50 55 54 20 22 22 3A |..0610 INPUT "":|
00000610: 20 44 49 45 4E 4F 54 45 0D 0A 30 36 32 30 20 45 | DIENOTE..0620 E|
00000620: 4E 44 43 41 53 45 20 0D 0A 30 36 33 30 20 4B 4F |NDCASE ..0630 KO|
00000630: 4E 54 52 4F 4C 4C 45 0D 0A 30 36 34 30 20 55 4E |NTROLLE..0640 UN|
00000640: 54 49 4C 20 4F 4B 0D 0A 30 36 35 30 20 50 52 49 |TIL OK..0650 PRI|
00000650: 4E 54 20 43 48 52 24 28 31 34 37 29 0D 0A 30 36 |NT CHR$(147)..06|
00000660: 36 30 20 45 4E 44 50 52 4F 43 20 45 49 4E 47 41 |60 ENDPROC EINGA|
00000670: 42 45 0D 0A 30 36 37 30 20 2F 2F 0D 0A 30 36 38 |BE..0670 //..068|
00000680: 30 20 50 52 4F 43 20 4B 4F 4E 54 52 4F 4C 4C 45 |0 PROC KONTROLLE|
00000690: 20 0D 0A 30 36 39 30 20 43 41 53 45 20 42 45 54 | ..0690 CASE BET|
000006A0: 52 24 20 4F 46 0D 0A 30 37 30 30 20 57 48 45 4E |R$ OF..0700 WHEN|
000006B0: 20 22 4B 4C 41 53 53 45 22 0D 0A 30 37 31 30 20 | "KLASSE"..0710 |
000006C0: 4F 4B 3A 3D 28 4B 4C 41 53 53 45 3D 38 29 0D 0A |OK:=(KLASSE=8)..|
000006D0: 30 37 32 30 20 45 53 46 45 48 4C 54 3A 3D 28 4B |0720 ESFEHLT:=(K|
000006E0: 4C 41 53 53 45 3D 39 20 4F 52 20 4B 4C 41 53 53 |LASSE=9 OR KLASS|
000006F0: 45 3D 31 30 29 0D 0A 30 37 33 30 20 57 48 45 4E |E=10)..0730 WHEN|
00000700: 20 22 46 41 43 48 22 0D 0A 30 37 34 30 20 49 3A | "FACH"..0740 I:|
00000710: 3D 31 0D 0A 30 37 35 30 20 57 48 49 4C 45 20 41 |=1..0750 WHILE A|
00000720: 4E 54 57 24 3C 3E 46 41 43 48 24 28 49 29 20 41 |NTW$<>FACH$(I) A|
00000730: 4E 44 20 49 3C 33 20 44 4F 20 49 3A 3D 49 2B 31 |ND I<3 DO I:=I+1|
00000740: 0D 0A 30 37 36 30 20 4F 4B 3A 3D 41 4E 54 57 24 |..0760 OK:=ANTW$|
00000750: 3D 46 41 43 48 24 28 49 29 3B 20 46 41 43 48 4E |=FACH$(I); FACHN|
00000760: 52 3A 3D 49 0D 0A 30 37 37 30 20 57 48 45 4E 20 |R:=I..0770 WHEN |
00000770: 22 4E 4F 54 45 22 0D 0A 30 37 38 30 20 4F 4B 3A |"NOTE"..0780 OK:|
00000780: 3D 28 30 3C 3D 44 49 45 4E 4F 54 45 20 41 4E 44 |=(0<=DIENOTE AND|
00000790: 20 44 49 45 4E 4F 54 45 3C 3D 35 29 0D 0A 30 37 | DIENOTE<=5)..07|
000007A0: 39 30 20 49 46 20 4F 4B 20 54 48 45 4E 20 4E 4F |90 IF OK THEN NO|
000007B0: 54 45 28 53 43 48 55 45 4C 4E 52 2C 46 41 43 48 |TE(SCHUELNR,FACH|
000007C0: 4E 52 29 3A 3D 44 49 45 4E 4F 54 45 0D 0A 30 38 |NR):=DIENOTE..08|
000007D0: 30 30 20 45 4E 44 43 41 53 45 20 0D 0A 30 38 31 |00 ENDCASE ..081|
000007E0: 30 20 49 46 20 4E 4F 54 20 4F 4B 20 54 48 45 4E |0 IF NOT OK THEN|
000007F0: 20 46 45 48 4C 45 52 28 34 29 0D 0A 30 38 32 30 | FEHLER(4)..0820|
00000800: 20 45 4E 44 50 52 4F 43 20 4B 4F 4E 54 52 4F 4C | ENDPROC KONTROL|
00000810: 4C 45 0D 0A 30 38 33 30 20 2F 2F 0D 0A 30 38 34 |LE..0830 //..084|
00000820: 30 20 2F 2F 0D 0A 30 38 35 30 20 50 52 4F 43 20 |0 //..0850 PROC |
00000830: 46 45 48 4C 45 52 28 4E 52 29 20 0D 0A 30 38 36 |FEHLER(NR) ..086|
00000840: 30 20 46 45 4C 44 28 31 2C 33 29 0D 0A 30 38 37 |0 FELD(1,3)..087|
00000850: 30 20 50 52 49 4E 54 20 22 46 45 48 4C 45 52 21 |0 PRINT "FEHLER!|
00000860: 22 0D 0A 30 38 38 30 20 2F 2F 0D 0A 30 38 39 30 |"..0880 //..0890|
00000870: 20 2F 2F 4E 49 43 48 54 20 41 42 47 45 53 43 48 | //NICHT ABGESCH|
00000880: 4C 4F 53 53 45 4E 2F 2F 0D 0A 30 39 30 30 20 2F |LOSSEN//..0900 /|
00000890: 2F 0D 0A 30 39 31 30 20 45 4E 44 50 52 4F 43 20 |/..0910 ENDPROC |
000008A0: 46 45 48 4C 45 52 0D 0A 30 39 32 30 20 2F 2F 0D |FEHLER..0920 //.|
000008B0: 0A 30 39 33 30 20 2F 2F 0D 0A 30 39 34 30 20 50 |.0930 //..0940 P|
000008C0: 52 4F 43 20 46 45 4C 44 28 4C 31 2C 4C 32 29 20 |ROC FELD(L1,L2) |
000008D0: 43 4C 4F 53 45 44 0D 0A 30 39 34 35 20 44 49 4D |CLOSED..0945 DIM|
000008E0: 20 4C 45 45 52 5A 24 20 4F 46 20 37 30 0D 0A 30 | LEERZ$ OF 70..0|
000008F0: 39 34 38 20 4C 45 45 52 5A 24 28 31 3A 37 30 29 |948 LEERZ$(1:70)|
00000900: 3A 3D 22 22 0D 0A 30 39 35 30 20 50 4F 53 49 28 |:=""..0950 POSI(|
00000910: 4C 31 2C 31 29 0D 0A 30 39 36 30 20 46 4F 52 20 |L1,1)..0960 FOR |
00000920: 49 3A 3D 31 20 54 4F 20 4C 32 2D 4C 31 2B 31 20 |I:=1 TO L2-L1+1 |
00000930: 44 4F 20 50 52 49 4E 54 20 4C 45 45 52 5A 24 0D |DO PRINT LEERZ$.|
00000940: 0A 30 39 37 30 20 50 4F 53 49 28 4C 31 2C 31 29 |.0970 POSI(L1,1)|
00000950: 0D 0A 30 39 39 30 20 45 4E 44 50 52 4F 43 20 46 |..0990 ENDPROC F|
00000960: 45 4C 44 0D 0A 31 30 30 30 20 2F 2F 0D 0A 31 30 |ELD..1000 //..10|
00000970: 31 30 20 50 52 4F 43 20 50 4F 53 49 28 4C 2C 5A |10 PROC POSI(L,Z|
00000980: 29 20 0D 0A 31 30 32 30 20 50 52 49 4E 54 20 43 |) ..1020 PRINT C|
00000990: 48 52 24 28 31 39 29 0D 0A 31 30 33 30 20 46 4F |HR$(19)..1030 FO|
000009A0: 52 20 49 27 3A 3D 31 20 54 4F 20 4C 2D 31 20 44 |R I':=1 TO L-1 D|
000009B0: 4F 20 50 52 49 4E 54 20 0D 0A 31 30 33 35 20 46 |O PRINT ..1035 F|
000009C0: 4F 52 20 49 27 3A 3D 31 20 54 4F 20 5A 2D 31 20 |OR I':=1 TO Z-1 |
000009D0: 44 4F 20 50 52 49 4E 54 20 43 48 52 24 28 32 39 |DO PRINT CHR$(29|
000009E0: 29 2C 0D 0A 31 30 34 30 20 45 4E 44 50 52 4F 43 |),..1040 ENDPROC|
000009F0: 20 50 4F 53 49 0D 0A 31 30 35 30 20 2F 2F 0D 0A | POSI..1050 //..|
00000A00: 31 30 36 30 20 50 52 4F 43 20 53 54 41 52 54 53 |1060 PROC STARTS|
00000A10: 59 53 54 45 4D 20 0D 0A 31 30 37 30 20 4F 50 45 |YSTEM ..1070 OPE|
00000A20: 4E 20 46 49 4C 45 20 32 2C 22 5A 45 55 47 4E 49 |N FILE 2,"ZEUGNI|
00000A30: 53 53 45 22 2C 52 45 41 44 0D 0A 31 30 38 30 20 |SSE",READ..1080 |
00000A40: 46 4F 52 20 53 43 48 55 45 4C 4E 52 3A 3D 31 20 |FOR SCHUELNR:=1 |
00000A50: 54 4F 20 4D 41 58 20 44 4F 0D 0A 31 30 39 30 20 |TO MAX DO..1090 |
00000A60: 52 45 41 44 20 46 49 4C 45 20 32 3A 20 4E 41 4D |READ FILE 2: NAM|
00000A70: 45 24 28 53 43 48 55 45 4C 4E 52 29 0D 0A 31 31 |E$(SCHUELNR)..11|
00000A80: 30 30 20 46 4F 52 20 46 41 43 48 4E 52 3A 3D 31 |00 FOR FACHNR:=1|
00000A90: 20 54 4F 20 33 20 44 4F 20 52 45 41 44 20 46 49 | TO 3 DO READ FI|
00000AA0: 4C 45 20 32 3A 20 4E 4F 54 45 28 53 43 48 55 45 |LE 2: NOTE(SCHUE|
00000AB0: 4C 4E 52 2C 46 41 43 48 4E 52 29 0D 0A 31 31 31 |LNR,FACHNR)..111|
00000AC0: 30 20 4E 45 58 54 20 53 43 48 55 45 4C 4E 52 0D |0 NEXT SCHUELNR.|
00000AD0: 0A 31 31 32 30 20 43 4C 4F 53 45 0D 0A 31 31 33 |.1120 CLOSE..113|
00000AE0: 30 20 45 4E 44 50 52 4F 43 20 53 54 41 52 54 53 |0 ENDPROC STARTS|
00000AF0: 59 53 54 45 4D 0D 0A 31 31 34 30 20 2F 2F 0D 0A |YSTEM..1140 //..|
00000B00: 31 31 35 30 20 50 52 4F 43 20 53 54 4F 50 53 59 |1150 PROC STOPSY|
00000B10: 53 54 45 4D 20 0D 0A 31 31 36 30 20 4F 50 45 4E |STEM ..1160 OPEN|
00000B20: 20 46 49 4C 45 20 32 2C 22 40 30 3A 5A 45 55 47 | FILE 2,"@0:ZEUG|
00000B30: 4E 49 53 53 45 22 2C 57 52 49 54 45 0D 0A 31 31 |NISSE",WRITE..11|
00000B40: 37 30 20 46 4F 52 20 53 43 48 55 45 4C 4E 52 3A |70 FOR SCHUELNR:|
00000B50: 3D 31 20 54 4F 20 4D 41 58 20 44 4F 0D 0A 31 31 |=1 TO MAX DO..11|
00000B60: 38 30 20 57 52 49 54 45 20 46 49 4C 45 20 32 3A |80 WRITE FILE 2:|
00000B70: 20 4E 41 4D 45 24 28 53 43 48 55 45 4C 4E 52 29 | NAME$(SCHUELNR)|
00000B80: 0D 0A 31 31 39 30 20 46 4F 52 20 46 41 43 48 4E |..1190 FOR FACHN|
00000B90: 52 3A 3D 31 20 54 4F 20 33 20 44 4F 20 57 52 49 |R:=1 TO 3 DO WRI|
00000BA0: 54 45 20 46 49 4C 45 20 32 3A 20 4E 4F 54 45 28 |TE FILE 2: NOTE(|
00000BB0: 53 43 48 55 45 4C 4E 52 2C 46 41 43 48 4E 52 29 |SCHUELNR,FACHNR)|
00000BC0: 0D 0A 31 32 30 30 20 4E 45 58 54 20 53 43 48 55 |..1200 NEXT SCHU|
00000BD0: 45 4C 4E 52 0D 0A 31 32 31 30 20 43 4C 4F 53 45 |ELNR..1210 CLOSE|
00000BE0: 0D 0A 31 32 32 30 20 53 54 4F 50 20 0D 0A 31 32 |..1220 STOP ..12|
00000BF0: 33 30 20 45 4E 44 50 52 4F 43 20 53 54 4F 50 53 |30 ENDPROC STOPS|
00000C00: 59 53 54 45 4D 0D 0A 31 32 34 30 20 2F 2F 0D 0A |YSTEM..1240 //..|
00000C10: 31 32 35 30 20 50 52 4F 43 20 41 55 53 44 52 55 |1250 PROC AUSDRU|
00000C20: 43 4B 45 4E 20 0D 0A 31 32 36 30 20 49 46 20 46 |CKEN ..1260 IF F|
00000C30: 41 43 48 4E 52 3D 30 20 54 48 45 4E 20 45 49 4E |ACHNR=0 THEN EIN|
00000C40: 47 41 42 45 28 22 46 41 43 48 22 29 0D 0A 31 32 |GABE("FACH")..12|
00000C50: 37 30 20 50 52 49 4E 54 20 43 48 52 24 28 31 34 |70 PRINT CHR$(14|
00000C60: 37 29 20 2F 2F 41 42 4C 4F 45 53 43 48 45 4E 0D |7) //ABLOESCHEN.|
00000C70: 0A 31 32 38 30 20 50 52 49 4E 54 20 22 4E 4F 54 |.1280 PRINT "NOT|
00000C80: 45 4E 20 49 4E 20 22 2C 46 41 43 48 24 28 46 41 |EN IN ",FACH$(FA|
00000C90: 43 48 4E 52 29 2C 22 3A 22 0D 0A 31 32 39 30 20 |CHNR),":"..1290 |
00000CA0: 50 52 49 4E 54 20 0D 0A 31 33 30 30 20 46 4F 52 |PRINT ..1300 FOR|
00000CB0: 20 53 43 48 55 45 4C 4E 52 3A 3D 31 20 54 4F 20 | SCHUELNR:=1 TO |
00000CC0: 4D 41 58 20 44 4F 0D 0A 31 33 31 30 20 49 46 20 |MAX DO..1310 IF |
00000CD0: 4E 41 4D 45 24 28 53 43 48 55 45 4C 4E 52 29 3C |NAME$(SCHUELNR)<|
00000CE0: 3E 22 22 20 54 48 45 4E 0D 0A 31 33 32 30 20 50 |>"" THEN..1320 P|
00000CF0: 52 49 4E 54 20 53 43 48 55 45 4C 4E 52 2C 22 2E |RINT SCHUELNR,".|
00000D00: 20 22 2C 4E 41 4D 45 24 28 53 43 48 55 45 4C 4E | ",NAME$(SCHUELN|
00000D10: 52 29 2C 22 3A 22 2C 54 41 42 28 32 35 29 2C 0D |R),":",TAB(25),.|
00000D20: 0A 31 33 33 30 20 50 52 49 4E 54 20 4E 4F 54 45 |.1330 PRINT NOTE|
00000D30: 28 53 43 48 55 45 4C 4E 52 2C 46 41 43 48 4E 52 |(SCHUELNR,FACHNR|
00000D40: 29 0D 0A 31 33 34 30 20 45 4E 44 49 46 20 0D 0A |)..1340 ENDIF ..|
00000D50: 31 33 35 30 20 4E 45 58 54 20 53 43 48 55 45 4C |1350 NEXT SCHUEL|
00000D60: 4E 52 0D 0A 31 33 36 30 20 50 52 49 4E 54 20 0D |NR..1360 PRINT .|
00000D70: 0A 31 33 37 30 20 49 4E 50 55 54 20 22 54 49 50 |.1370 INPUT "TIP|
00000D80: 50 45 20 52 45 54 55 52 4E 20 46 55 45 52 20 46 |PE RETURN FUER F|
00000D90: 4F 52 54 53 45 54 5A 55 4E 47 20 22 3A 20 41 4E |ORTSETZUNG ": AN|
00000DA0: 54 57 24 0D 0A 31 33 38 30 20 45 4E 44 50 52 4F |TW$..1380 ENDPRO|
00000DB0: 43 20 41 55 53 44 52 55 43 4B 45 4E 0D 0A |C AUSDRUCKEN.. |
0010 //DIE PRIVATSCHULE DER OLSENS//..00
20 //PROGRAMM ZUM VERWALTEN VON ZENSUREN
//..0030 //GESCHRIEBEN VON CHRIS BOERGE
IN CBM COMAL-80//..0040 //DIESE VERSION
IST VON OKTOBER 1981//..0050 //DIESER TE
IL DIENT ZUM EINGEBEN VON ZENSUREN//..00
60 //..0070 MAX:=8..0080 DIM NAME$(MAX)
OF 20, ANTW$ OF 10..0090 DIM NOTE(MAX,3)
, FACH$(3) OF 11, SCHLUESSEL(MAX)..0110
//*..0120 FACH$(1):="DEUTSCH"..0130 FACH
$(2):="MATHEMATIK"..0140 FACH$(3):="ENGL
ISCH"..0180 //..0190 STARTSYSTEM..0200 /
/..0210 //* HAUPTZEILEN *//..0220 FACHNR
:=0..0230 REPEAT ..0240 PRINT CHR$(147)
//ABLOESCHEN..0250 FELD(8,15)..0260 PRIN
T "1=NOTEN EINGEBEN"..0270 PRINT "2=NOTE
N AUFLISTEN"..0280 PRINT "3=PROGRAMM STO
PPEN"..0290 PRINT ..0300 INPUT "> ": JOB
CODE..0310 IF JOBCODE=1 THEN NOTENEINGAB
E..0320 IF JOBCODE=2 THEN AUSDRUCKEN..03
30 IF JOBCODE=3 THEN STOPSYSTEM..0340 UN
TIL FALSE //ENDLOS..0350 //..0360 PROC N
OTENEINGABE ..0370 EINGABE("KLASSE")..03
80 EINGABE("FACH")..0390 PRINT CHR$(147)
..0400 PRINT "SIE KOENNEN NUN DIE NOTEN
EINGEBEN FUER ",FACH$(FACHNR)..0410 PRIN
T ..0420 FOR SCHUELNR:=1 TO MAX DO..0430
IF NAME$(SCHUELNR)<>"" THEN..0440 EINGA
BE("NOTE")..0450 ENDIF ..0460 NEXT SCHUE
LNR..0470 ENDPROC NOTENEINGABE..0480 //.
.0490 PROC EINGABE(BETR$) ..0500 REPEAT
..0510 FELD(8,15)..0520 CASE BETR$ OF..0
530 WHEN "KLASSE"..0540 INPUT "KLASSE (8
,9,10): ": KLASSE..0550 WHEN "FACH"..056
0 PRINT "GEBEN SIE DEN NAMEN DES FACHES
EIN:"..0570 PRINT "(DEUTSCH, MATHEMATIK,
ENGLISCH)",..0580 INPUT "> ": ANTW$..05
90 WHEN "NOTE"..0600 PRINT NAME$(SCHUELN
R),TAB(30),": ",..0610 INPUT "": DIENOTE
..0620 ENDCASE ..0630 KONTROLLE..0640 UN
TIL OK..0650 PRINT CHR$(147)..0660 ENDPR
OC EINGABE..0670 //..0680 PROC KONTROLLE
..0690 CASE BETR$ OF..0700 WHEN "KLASSE
"..0710 OK:=(KLASSE=8)..0720 ESFEHLT:=(K
LASSE=9 OR KLASSE=10)..0730 WHEN "FACH".
.0740 I:=1..0750 WHILE ANTW$<>FACH$(I) A
ND I<3 DO I:=I+1..0760 OK:=ANTW$=FACH$(I
); FACHNR:=I..0770 WHEN "NOTE"..0780 OK:
=(0<=DIENOTE AND DIENOTE<=5)..0790 IF OK
THEN NOTE(SCHUELNR,FACHNR):=DIENOTE..08
00 ENDCASE ..0810 IF NOT OK THEN FEHLER(
4)..0820 ENDPROC KONTROLLE..0830 //..084
0 //..0850 PROC FEHLER(NR) ..0860 FELD(1
,3)..0870 PRINT "FEHLER!"..0880 //..0890
//NICHT ABGESCHLOSSEN//..0900 //..0910
ENDPROC FEHLER..0920 //..0930 //..0940 P
ROC FELD(L1,L2) CLOSED..0945 DIM LEERZ$
OF 70..0948 LEERZ$(1:70):=""..0950 POSI(
L1,1)..0960 FOR I:=1 TO L2-L1+1 DO PRINT
LEERZ$..0970 POSI(L1,1)..0990 ENDPROC F
ELD..1000 //..1010 PROC POSI(L,Z) ..1020
PRINT CHR$(19)..1030 FOR I':=1 TO L-1 D
O PRINT ..1035 FOR I':=1 TO Z-1 DO PRINT
CHR$(29),..1040 ENDPROC POSI..1050 //..
1060 PROC STARTSYSTEM ..1070 OPEN FILE 2
,"ZEUGNISSE",READ..1080 FOR SCHUELNR:=1
TO MAX DO..1090 READ FILE 2: NAME$(SCHUE
LNR)..1100 FOR FACHNR:=1 TO 3 DO READ FI
LE 2: NOTE(SCHUELNR,FACHNR)..1110 NEXT S
CHUELNR..1120 CLOSE..1130 ENDPROC STARTS
YSTEM..1140 //..1150 PROC STOPSYSTEM ..1
160 OPEN FILE 2,"@0:ZEUGNISSE",WRITE..11
70 FOR SCHUELNR:=1 TO MAX DO..1180 WRITE
FILE 2: NAME$(SCHUELNR)..1190 FOR FACHN
R:=1 TO 3 DO WRITE FILE 2: NOTE(SCHUELNR
,FACHNR)..1200 NEXT SCHUELNR..1210 CLOSE
..1220 STOP ..1230 ENDPROC STOPSYSTEM..1
240 //..1250 PROC AUSDRUCKEN ..1260 IF F
ACHNR=0 THEN EINGABE("FACH")..1270 PRINT
CHR$(147) //ABLOESCHEN..1280 PRINT "NOT
EN IN ",FACH$(FACHNR),":"..1290 PRINT ..
1300 FOR SCHUELNR:=1 TO MAX DO..1310 IF
NAME$(SCHUELNR)<>"" THEN..1320 PRINT SCH
UELNR,". ",NAME$(SCHUELNR),":",TAB(25),.
.1330 PRINT NOTE(SCHUELNR,FACHNR)..1340
ENDIF ..1350 NEXT SCHUELNR..1360 PRINT .
.1370 INPUT "TIPPE RETURN FUER FORTSETZU
NG ": ANTW$..1380 ENDPROC AUSDRUCKEN..
> CLICK IMAGE PREVIEW FOR FULL MODAL