EINTRAGEN
FILE INFORMATION
FILENAME(S): EINTRAGEN
FILE TYPE(S): SEQ
FILE SIZE: 4K
FIRST SEEN: 2025-11-30 01:08:01
APPEARS ON: 6 disk(s)
FILE HASH
6e55aa01626d31b87d34a87c4fe86cdb46df88b40b348445385a0da2c14b2357
FOUND ON DISKS (6 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C OMAL | EINTRAGEN | SEQ | Treasure Chest - Wolfgang Rauprich | 11 | 11 | DOWNLOAD FILE |
| FREEWARE DISK NR | EINTRAGEN | SEQ | Treasure Chest - Wolfgang Rauprich | 11 | 11 | DOWNLOAD FILE |
| COMAL 0 14 | EINTRAGEN | SEQ | Treasure Chest - Wolfgang Rauprich | 10 | 2 | DOWNLOAD FILE |
| C OMAL 0 14 | EINTRAGEN | SEQ | Treasure Chest - Wolfgang Rauprich | 10 | 2 | DOWNLOAD FILE |
| C OMAL | EINTRAGEN | SEQ | Treasure Chest - Wolfgang Rauprich | 11 | 11 | DOWNLOAD FILE |
| FREESOFT DISK NR | EINTRAGEN | SEQ | Treasure Chest - Wolfgang Rauprich | 11 | 11 | 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 4A 41 4E 2E 20 31 39 38 |IST VON JAN. 198|
000000B0: 31 2F 2F 0D 0A 30 30 35 30 20 2F 2F 44 49 45 53 |1//..0050 //DIES|
000000C0: 45 52 20 54 45 49 4C 20 44 49 45 4E 54 20 5A 55 |ER TEIL DIENT ZU|
000000D0: 4D 20 45 49 4E 54 52 41 47 45 4E 20 44 45 52 20 |M EINTRAGEN DER |
000000E0: 53 43 48 55 45 4C 45 52 2F 2F 0D 0A 30 30 36 30 |SCHUELER//..0060|
000000F0: 20 2F 2F 0D 0A 30 30 37 30 20 4D 41 58 3A 3D 38 | //..0070 MAX:=8|
00000100: 0D 0A 30 30 38 30 20 44 49 4D 20 4E 41 4D 45 24 |..0080 DIM NAME$|
00000110: 28 4D 41 58 29 20 4F 46 20 32 30 2C 20 41 4E 54 |(MAX) OF 20, ANT|
00000120: 57 24 20 4F 46 20 31 30 0D 0A 30 30 39 30 20 44 |W$ OF 10..0090 D|
00000130: 49 4D 20 44 45 52 4E 41 4D 45 24 20 4F 46 20 32 |IM DERNAME$ OF 2|
00000140: 30 0D 0A 30 31 30 30 20 44 49 4D 20 4E 4F 54 45 |0..0100 DIM NOTE|
00000150: 28 4D 41 58 2C 33 29 2C 20 46 41 43 48 24 28 33 |(MAX,3), FACH$(3|
00000160: 29 20 4F 46 20 31 31 2C 20 53 43 48 4C 55 45 53 |) OF 11, SCHLUES|
00000170: 53 45 4C 28 4D 41 58 29 0D 0A 30 31 32 30 20 2F |SEL(MAX)..0120 /|
00000180: 2F 2A 0D 0A 30 31 33 30 20 46 41 43 48 24 28 31 |/*..0130 FACH$(1|
00000190: 29 3A 3D 22 44 45 55 54 53 43 48 22 0D 0A 30 31 |):="DEUTSCH"..01|
000001A0: 34 30 20 46 41 43 48 24 28 32 29 3A 3D 22 4D 41 |40 FACH$(2):="MA|
000001B0: 54 48 45 4D 41 54 49 4B 22 0D 0A 30 31 35 30 20 |THEMATIK"..0150 |
000001C0: 46 41 43 48 24 28 33 29 3A 3D 22 45 4E 47 4C 49 |FACH$(3):="ENGLI|
000001D0: 53 43 48 22 0D 0A 30 31 39 30 20 2F 2F 0D 0A 30 |SCH"..0190 //..0|
000001E0: 32 30 30 20 53 54 41 52 54 53 59 53 54 45 4D 0D |200 STARTSYSTEM.|
000001F0: 0A 30 32 31 30 20 2F 2F 0D 0A 30 32 32 30 20 2F |.0210 //..0220 /|
00000200: 2F 2A 20 48 41 55 50 54 5A 45 49 4C 45 4E 2A 2F |/* HAUPTZEILEN*/|
00000210: 2F 0D 0A 30 32 33 30 20 52 45 50 45 41 54 20 0D |/..0230 REPEAT .|
00000220: 0A 30 32 34 30 20 50 52 49 4E 54 20 43 48 52 24 |.0240 PRINT CHR$|
00000230: 28 31 34 37 29 0D 0A 30 32 35 30 20 46 45 4C 44 |(147)..0250 FELD|
00000240: 28 38 2C 31 35 29 0D 0A 30 32 36 30 20 50 52 49 |(8,15)..0260 PRI|
00000250: 4E 54 20 22 31 3D 45 49 4E 54 52 41 47 45 4E 22 |NT "1=EINTRAGEN"|
00000260: 0D 0A 30 32 37 30 20 50 52 49 4E 54 20 22 32 3D |..0270 PRINT "2=|
00000270: 41 55 46 4C 49 53 54 45 4E 22 0D 0A 30 32 38 30 |AUFLISTEN"..0280|
00000280: 20 50 52 49 4E 54 20 22 33 3D 53 54 4F 50 50 45 | PRINT "3=STOPPE|
00000290: 4E 22 0D 0A 30 32 39 30 20 50 52 49 4E 54 20 0D |N"..0290 PRINT .|
000002A0: 0A 30 33 30 30 20 49 4E 50 55 54 20 22 3E 20 22 |.0300 INPUT "> "|
000002B0: 3A 20 4A 4F 42 43 4F 44 45 0D 0A 30 33 31 30 20 |: JOBCODE..0310 |
000002C0: 49 46 20 4A 4F 42 43 4F 44 45 3D 31 20 54 48 45 |IF JOBCODE=1 THE|
000002D0: 4E 20 45 49 4E 54 52 41 47 45 4E 0D 0A 30 33 32 |N EINTRAGEN..032|
000002E0: 30 20 49 46 20 4A 4F 42 43 4F 44 45 3D 32 20 54 |0 IF JOBCODE=2 T|
000002F0: 48 45 4E 20 41 55 53 44 52 55 43 4B 45 4E 0D 0A |HEN AUSDRUCKEN..|
00000300: 30 33 33 30 20 49 46 20 4A 4F 42 43 4F 44 45 3D |0330 IF JOBCODE=|
00000310: 33 20 54 48 45 4E 20 53 54 4F 50 53 59 53 54 45 |3 THEN STOPSYSTE|
00000320: 4D 0D 0A 30 33 34 30 20 55 4E 54 49 4C 20 46 41 |M..0340 UNTIL FA|
00000330: 4C 53 45 0D 0A 30 33 35 30 20 2F 2F 0D 0A 30 33 |LSE..0350 //..03|
00000340: 36 30 20 50 52 4F 43 20 45 49 4E 54 52 41 47 45 |60 PROC EINTRAGE|
00000350: 4E 20 0D 0A 30 33 37 30 20 50 52 49 4E 54 20 43 |N ..0370 PRINT C|
00000360: 48 52 24 28 31 34 37 29 20 2F 2F 41 42 4C 4F 45 |HR$(147) //ABLOE|
00000370: 53 43 48 45 4E 2F 2F 0D 0A 30 33 38 30 20 46 45 |SCHEN//..0380 FE|
00000380: 4C 44 28 38 2C 32 30 29 0D 0A 30 33 39 30 20 49 |LD(8,20)..0390 I|
00000390: 4E 50 55 54 20 22 4E 45 55 45 20 4B 4C 41 53 53 |NPUT "NEUE KLASS|
000003A0: 45 20 28 4A 41 2F 4E 45 49 4E 29 3A 20 22 3A 20 |E (JA/NEIN): ": |
000003B0: 41 4E 54 57 24 0D 0A 30 34 30 30 20 49 46 20 41 |ANTW$..0400 IF A|
000003C0: 4E 54 57 24 3D 22 4A 41 22 20 54 48 45 4E 0D 0A |NTW$="JA" THEN..|
000003D0: 30 34 31 30 20 4E 45 55 45 4B 4C 41 53 53 45 0D |0410 NEUEKLASSE.|
000003E0: 0A 30 34 32 30 20 45 4C 53 45 20 0D 0A 30 34 33 |.0420 ELSE ..043|
000003F0: 30 20 45 49 4E 47 41 42 45 28 22 53 43 48 55 45 |0 EINGABE("SCHUE|
00000400: 4C 4E 52 22 29 0D 0A 30 34 34 30 20 57 48 49 4C |LNR")..0440 WHIL|
00000410: 45 20 4D 45 48 52 20 44 4F 0D 0A 30 34 35 30 20 |E MEHR DO..0450 |
00000420: 49 46 20 4E 41 4D 45 24 28 53 43 48 55 45 4C 4E |IF NAME$(SCHUELN|
00000430: 52 29 3C 3E 22 22 20 54 48 45 4E 0D 0A 30 34 36 |R)<>"" THEN..046|
00000440: 30 20 46 45 48 4C 45 52 28 33 29 0D 0A 30 34 37 |0 FEHLER(3)..047|
00000450: 30 20 45 4C 53 45 20 0D 0A 30 34 38 30 20 45 49 |0 ELSE ..0480 EI|
00000460: 4E 47 41 42 45 28 22 53 43 48 55 45 4C 4E 41 4D |NGABE("SCHUELNAM|
00000470: 45 22 29 0D 0A 30 34 39 30 20 4E 41 4D 45 24 28 |E")..0490 NAME$(|
00000480: 53 43 48 55 45 4C 4E 52 29 3A 3D 44 45 52 4E 41 |SCHUELNR):=DERNA|
00000490: 4D 45 24 0D 0A 30 35 30 30 20 46 4F 52 20 46 41 |ME$..0500 FOR FA|
000004A0: 43 48 4E 52 3A 3D 31 20 54 4F 20 33 20 44 4F 20 |CHNR:=1 TO 3 DO |
000004B0: 4E 4F 54 45 28 53 43 48 55 45 4C 4E 52 2C 46 41 |NOTE(SCHUELNR,FA|
000004C0: 43 48 4E 52 29 3A 3D 2D 31 0D 0A 30 35 31 30 20 |CHNR):=-1..0510 |
000004D0: 45 4E 44 49 46 20 0D 0A 30 35 32 30 20 45 49 4E |ENDIF ..0520 EIN|
000004E0: 47 41 42 45 28 22 53 43 48 55 45 4C 4E 52 22 29 |GABE("SCHUELNR")|
000004F0: 0D 0A 30 35 33 30 20 45 4E 44 57 48 49 4C 45 20 |..0530 ENDWHILE |
00000500: 0D 0A 30 35 34 30 20 45 4E 44 49 46 20 0D 0A 30 |..0540 ENDIF ..0|
00000510: 35 35 30 20 45 4E 44 50 52 4F 43 20 45 49 4E 54 |550 ENDPROC EINT|
00000520: 52 41 47 45 4E 0D 0A 30 35 36 30 20 2F 2F 0D 0A |RAGEN..0560 //..|
00000530: 30 35 37 30 20 50 52 4F 43 20 4E 45 55 45 4B 4C |0570 PROC NEUEKL|
00000540: 41 53 53 45 20 0D 0A 30 35 38 30 20 45 49 4E 47 |ASSE ..0580 EING|
00000550: 41 42 45 28 22 4B 4C 41 53 53 45 22 29 0D 0A 30 |ABE("KLASSE")..0|
00000560: 35 39 30 20 49 4E 49 54 4B 4C 41 53 53 45 0D 0A |590 INITKLASSE..|
00000570: 30 36 30 30 20 50 52 49 4E 54 20 43 48 52 24 28 |0600 PRINT CHR$(|
00000580: 31 34 37 29 20 2F 2F 41 42 4C 4F 45 53 43 48 45 |147) //ABLOESCHE|
00000590: 4E 2F 2F 0D 0A 30 36 31 30 20 53 43 48 55 45 4C |N//..0610 SCHUEL|
000005A0: 4E 52 3A 3D 31 0D 0A 30 36 32 30 20 45 49 4E 47 |NR:=1..0620 EING|
000005B0: 41 42 45 28 22 53 43 48 55 45 4C 4E 41 4D 45 22 |ABE("SCHUELNAME"|
000005C0: 29 0D 0A 30 36 33 30 20 57 48 49 4C 45 20 4E 4F |)..0630 WHILE NO|
000005D0: 54 20 28 44 45 52 4E 41 4D 45 24 3D 22 22 20 4F |T (DERNAME$="" O|
000005E0: 52 20 53 43 48 55 45 4C 4E 52 3D 4D 41 58 29 20 |R SCHUELNR=MAX) |
000005F0: 44 4F 0D 0A 30 36 34 30 20 4E 41 4D 45 24 28 53 |DO..0640 NAME$(S|
00000600: 43 48 55 45 4C 4E 52 29 3A 3D 44 45 52 4E 41 4D |CHUELNR):=DERNAM|
00000610: 45 24 0D 0A 30 36 35 30 20 53 43 48 55 45 4C 4E |E$..0650 SCHUELN|
00000620: 52 3A 3D 53 43 48 55 45 4C 4E 52 2B 31 0D 0A 30 |R:=SCHUELNR+1..0|
00000630: 36 36 30 20 45 49 4E 47 41 42 45 28 22 53 43 48 |660 EINGABE("SCH|
00000640: 55 45 4C 4E 41 4D 45 22 29 0D 0A 30 36 37 30 20 |UELNAME")..0670 |
00000650: 45 4E 44 57 48 49 4C 45 20 0D 0A 30 36 38 30 20 |ENDWHILE ..0680 |
00000660: 50 52 49 4E 54 20 43 48 52 24 28 31 34 37 29 0D |PRINT CHR$(147).|
00000670: 0A 30 36 39 30 20 45 4E 44 50 52 4F 43 20 4E 45 |.0690 ENDPROC NE|
00000680: 55 45 4B 4C 41 53 53 45 0D 0A 30 37 30 30 20 2F |UEKLASSE..0700 /|
00000690: 2F 0D 0A 30 37 31 30 20 50 52 4F 43 20 49 4E 49 |/..0710 PROC INI|
000006A0: 54 4B 4C 41 53 53 45 20 0D 0A 30 37 32 30 20 46 |TKLASSE ..0720 F|
000006B0: 4F 52 20 53 43 48 55 45 4C 4E 52 3A 3D 31 20 54 |OR SCHUELNR:=1 T|
000006C0: 4F 20 4D 41 58 20 44 4F 0D 0A 30 37 33 30 20 4E |O MAX DO..0730 N|
000006D0: 41 4D 45 24 28 53 43 48 55 45 4C 4E 52 29 3A 3D |AME$(SCHUELNR):=|
000006E0: 22 22 0D 0A 30 37 34 30 20 46 4F 52 20 46 41 43 |""..0740 FOR FAC|
000006F0: 48 4E 52 3A 3D 31 20 54 4F 20 33 20 44 4F 20 4E |HNR:=1 TO 3 DO N|
00000700: 4F 54 45 28 53 43 48 55 45 4C 4E 52 2C 46 41 43 |OTE(SCHUELNR,FAC|
00000710: 48 4E 52 29 3A 3D 2D 31 0D 0A 30 37 35 30 20 4E |HNR):=-1..0750 N|
00000720: 45 58 54 20 53 43 48 55 45 4C 4E 52 0D 0A 30 37 |EXT SCHUELNR..07|
00000730: 36 30 20 45 4E 44 50 52 4F 43 20 49 4E 49 54 4B |60 ENDPROC INITK|
00000740: 4C 41 53 53 45 0D 0A 30 37 37 30 20 2F 2F 0D 0A |LASSE..0770 //..|
00000750: 30 37 38 30 20 50 52 4F 43 20 45 49 4E 47 41 42 |0780 PROC EINGAB|
00000760: 45 28 42 45 54 52 24 29 20 0D 0A 30 37 39 30 20 |E(BETR$) ..0790 |
00000770: 52 45 50 45 41 54 20 0D 0A 30 38 30 30 20 46 45 |REPEAT ..0800 FE|
00000780: 4C 44 28 38 2C 31 30 29 0D 0A 30 38 31 30 20 43 |LD(8,10)..0810 C|
00000790: 41 53 45 20 42 45 54 52 24 20 4F 46 0D 0A 30 38 |ASE BETR$ OF..08|
000007A0: 32 30 20 57 48 45 4E 20 22 53 43 48 55 45 4C 4E |20 WHEN "SCHUELN|
000007B0: 52 22 0D 0A 30 38 33 30 20 49 4E 50 55 54 20 22 |R"..0830 INPUT "|
000007C0: 4E 55 4D 4D 45 52 20 44 45 53 20 53 43 48 55 45 |NUMMER DES SCHUE|
000007D0: 4C 45 52 53 20 28 30 20 54 4F 20 53 54 4F 50 29 |LERS (0 TO STOP)|
000007E0: 3A 20 22 3A 20 53 43 48 55 45 4C 4E 52 0D 0A 30 |: ": SCHUELNR..0|
000007F0: 38 34 30 20 57 48 45 4E 20 22 53 43 48 55 45 4C |840 WHEN "SCHUEL|
00000800: 4E 41 4D 45 22 0D 0A 30 38 35 30 20 50 52 49 4E |NAME"..0850 PRIN|
00000810: 54 20 22 53 43 48 55 45 4C 45 52 20 4E 55 4D 4D |T "SCHUELER NUMM|
00000820: 45 52 20 22 2C 53 43 48 55 45 4C 4E 52 2C 0D 0A |ER ",SCHUELNR,..|
00000830: 30 38 36 30 20 49 4E 50 55 54 20 22 20 3A 20 22 |0860 INPUT " : "|
00000840: 3A 20 44 45 52 4E 41 4D 45 24 0D 0A 30 38 37 30 |: DERNAME$..0870|
00000850: 20 57 48 45 4E 20 22 4B 4C 41 53 53 45 22 0D 0A | WHEN "KLASSE"..|
00000860: 30 38 38 30 20 49 4E 50 55 54 20 22 4B 4C 41 53 |0880 INPUT "KLAS|
00000870: 53 45 20 28 38 2C 39 2C 31 30 29 3A 20 22 3A 20 |SE (8,9,10): ": |
00000880: 4B 4C 41 53 53 45 0D 0A 30 38 39 30 20 45 4E 44 |KLASSE..0890 END|
00000890: 43 41 53 45 20 0D 0A 30 39 30 30 20 4B 4F 4E 54 |CASE ..0900 KONT|
000008A0: 52 4F 4C 4C 45 0D 0A 30 39 31 30 20 55 4E 54 49 |ROLLE..0910 UNTI|
000008B0: 4C 20 4F 4B 0D 0A 30 39 32 30 20 50 52 49 4E 54 |L OK..0920 PRINT|
000008C0: 20 43 48 52 24 28 31 34 37 29 0D 0A 30 39 33 30 | CHR$(147)..0930|
000008D0: 20 45 4E 44 50 52 4F 43 20 45 49 4E 47 41 42 45 | ENDPROC EINGABE|
000008E0: 0D 0A 30 39 34 30 20 2F 2F 0D 0A 30 39 35 30 20 |..0940 //..0950 |
000008F0: 50 52 4F 43 20 4B 4F 4E 54 52 4F 4C 4C 45 20 0D |PROC KONTROLLE .|
00000900: 0A 30 39 36 30 20 43 41 53 45 20 42 45 54 52 24 |.0960 CASE BETR$|
00000910: 20 4F 46 0D 0A 30 39 37 30 20 57 48 45 4E 20 22 | OF..0970 WHEN "|
00000920: 53 43 48 55 45 4C 4E 52 22 0D 0A 30 39 38 30 20 |SCHUELNR"..0980 |
00000930: 4F 4B 3A 3D 28 30 3C 3D 53 43 48 55 45 4C 4E 52 |OK:=(0<=SCHUELNR|
00000940: 20 41 4E 44 20 53 43 48 55 45 4C 4E 52 3C 3D 4D | AND SCHUELNR<=M|
00000950: 41 58 29 0D 0A 30 39 39 30 20 4D 45 48 52 3A 3D |AX)..0990 MEHR:=|
00000960: 28 53 43 48 55 45 4C 4E 52 3E 30 29 0D 0A 31 30 |(SCHUELNR>0)..10|
00000970: 30 30 20 57 48 45 4E 20 22 53 43 48 55 45 4C 4E |00 WHEN "SCHUELN|
00000980: 41 4D 45 22 0D 0A 31 30 31 30 20 4F 4B 3A 3D 54 |AME"..1010 OK:=T|
00000990: 52 55 45 20 2F 2F 4B 45 49 4E 20 54 45 53 54 2F |RUE //KEIN TEST/|
000009A0: 2F 0D 0A 31 30 32 30 20 57 48 45 4E 20 22 4B 4C |/..1020 WHEN "KL|
000009B0: 41 53 53 45 22 0D 0A 31 30 33 30 20 4F 4B 3A 3D |ASSE"..1030 OK:=|
000009C0: 28 4B 4C 41 53 53 45 3D 38 29 0D 0A 31 30 34 30 |(KLASSE=8)..1040|
000009D0: 20 45 53 46 45 48 4C 54 3A 3D 28 4B 4C 41 53 53 | ESFEHLT:=(KLASS|
000009E0: 45 3D 39 20 4F 52 20 4B 4C 41 53 53 45 3D 31 30 |E=9 OR KLASSE=10|
000009F0: 29 0D 0A 31 30 35 30 20 45 4E 44 43 41 53 45 20 |)..1050 ENDCASE |
00000A00: 0D 0A 31 30 36 30 20 49 46 20 4E 4F 54 20 4F 4B |..1060 IF NOT OK|
00000A10: 20 54 48 45 4E 20 46 45 48 4C 45 52 28 31 30 29 | THEN FEHLER(10)|
00000A20: 0D 0A 31 30 37 30 20 45 4E 44 50 52 4F 43 20 4B |..1070 ENDPROC K|
00000A30: 4F 4E 54 52 4F 4C 4C 45 0D 0A 31 30 38 30 20 2F |ONTROLLE..1080 /|
00000A40: 2F 0D 0A 31 30 39 30 20 50 52 4F 43 20 46 45 48 |/..1090 PROC FEH|
00000A50: 4C 45 52 28 4E 4F 29 20 0D 0A 31 31 30 30 20 46 |LER(NO) ..1100 F|
00000A60: 45 4C 44 28 31 2C 33 29 0D 0A 31 31 31 30 20 50 |ELD(1,3)..1110 P|
00000A70: 52 49 4E 54 20 22 46 45 48 4C 45 52 21 22 0D 0A |RINT "FEHLER!"..|
00000A80: 31 31 32 30 20 2F 2F 0D 0A 31 31 33 30 20 2F 2F |1120 //..1130 //|
00000A90: 4E 49 43 48 54 20 41 42 47 45 53 43 48 4C 4F 53 |NICHT ABGESCHLOS|
00000AA0: 53 45 4E 2F 2F 0D 0A 31 31 34 30 20 2F 2F 0D 0A |SEN//..1140 //..|
00000AB0: 31 31 35 30 20 45 4E 44 50 52 4F 43 20 46 45 48 |1150 ENDPROC FEH|
00000AC0: 4C 45 52 0D 0A 31 31 36 30 20 2F 2F 0D 0A 31 31 |LER..1160 //..11|
00000AD0: 37 30 20 2F 2F 0D 0A 31 31 38 30 20 50 52 4F 43 |70 //..1180 PROC|
00000AE0: 20 46 45 4C 44 28 4C 31 2C 4C 32 29 20 43 4C 4F | FELD(L1,L2) CLO|
00000AF0: 53 45 44 0D 0A 31 31 38 35 20 44 49 4D 20 4C 45 |SED..1185 DIM LE|
00000B00: 45 52 5A 24 20 4F 46 20 33 39 0D 0A 31 31 38 38 |ERZ$ OF 39..1188|
00000B10: 20 4C 45 45 52 5A 24 28 31 3A 33 39 29 3A 3D 22 | LEERZ$(1:39):="|
00000B20: 22 0D 0A 31 31 39 30 20 50 4F 53 49 28 4C 31 2C |"..1190 POSI(L1,|
00000B30: 31 29 0D 0A 31 32 30 30 20 46 4F 52 20 49 3A 3D |1)..1200 FOR I:=|
00000B40: 31 20 54 4F 20 4C 32 2D 4C 31 2B 31 20 44 4F 20 |1 TO L2-L1+1 DO |
00000B50: 50 52 49 4E 54 20 4C 45 45 52 5A 24 0D 0A 31 32 |PRINT LEERZ$..12|
00000B60: 31 30 20 50 4F 53 49 28 4C 31 2C 31 29 0D 0A 31 |10 POSI(L1,1)..1|
00000B70: 32 33 30 20 45 4E 44 50 52 4F 43 20 46 45 4C 44 |230 ENDPROC FELD|
00000B80: 0D 0A 31 32 34 30 20 2F 2F 0D 0A 31 32 35 30 20 |..1240 //..1250 |
00000B90: 50 52 4F 43 20 50 4F 53 49 28 4C 2C 5A 29 20 0D |PROC POSI(L,Z) .|
00000BA0: 0A 31 32 36 30 20 50 52 49 4E 54 20 43 48 52 24 |.1260 PRINT CHR$|
00000BB0: 28 31 39 29 0D 0A 31 32 37 30 20 46 4F 52 20 49 |(19)..1270 FOR I|
00000BC0: 27 3A 3D 31 20 54 4F 20 4C 2D 31 20 44 4F 20 50 |':=1 TO L-1 DO P|
00000BD0: 52 49 4E 54 20 0D 0A 31 32 37 35 20 46 4F 52 20 |RINT ..1275 FOR |
00000BE0: 49 27 3A 3D 31 20 54 4F 20 5A 2D 31 20 44 4F 20 |I':=1 TO Z-1 DO |
00000BF0: 50 52 49 4E 54 20 43 48 52 24 28 32 39 29 2C 0D |PRINT CHR$(29),.|
00000C00: 0A 31 32 38 30 20 45 4E 44 50 52 4F 43 20 50 4F |.1280 ENDPROC PO|
00000C10: 53 49 0D 0A 31 32 39 30 20 2F 2F 0D 0A 31 33 30 |SI..1290 //..130|
00000C20: 30 20 50 52 4F 43 20 53 54 41 52 54 53 59 53 54 |0 PROC STARTSYST|
00000C30: 45 4D 20 0D 0A 31 33 31 30 20 4F 50 45 4E 20 46 |EM ..1310 OPEN F|
00000C40: 49 4C 45 20 32 2C 22 5A 45 55 47 4E 49 53 53 45 |ILE 2,"ZEUGNISSE|
00000C50: 22 2C 52 45 41 44 0D 0A 31 33 32 30 20 46 4F 52 |",READ..1320 FOR|
00000C60: 20 53 43 48 55 45 4C 4E 52 3A 3D 31 20 54 4F 20 | SCHUELNR:=1 TO |
00000C70: 4D 41 58 20 44 4F 0D 0A 31 33 33 30 20 52 45 41 |MAX DO..1330 REA|
00000C80: 44 20 46 49 4C 45 20 32 3A 20 4E 41 4D 45 24 28 |D FILE 2: NAME$(|
00000C90: 53 43 48 55 45 4C 4E 52 29 0D 0A 31 33 34 30 20 |SCHUELNR)..1340 |
00000CA0: 46 4F 52 20 46 41 43 48 4E 52 3A 3D 31 20 54 4F |FOR FACHNR:=1 TO|
00000CB0: 20 33 20 44 4F 20 52 45 41 44 20 46 49 4C 45 20 | 3 DO READ FILE |
00000CC0: 32 3A 20 4E 4F 54 45 28 53 43 48 55 45 4C 4E 52 |2: NOTE(SCHUELNR|
00000CD0: 2C 46 41 43 48 4E 52 29 0D 0A 31 33 35 30 20 4E |,FACHNR)..1350 N|
00000CE0: 45 58 54 20 53 43 48 55 45 4C 4E 52 0D 0A 31 33 |EXT SCHUELNR..13|
00000CF0: 36 30 20 43 4C 4F 53 45 0D 0A 31 33 37 30 20 45 |60 CLOSE..1370 E|
00000D00: 4E 44 50 52 4F 43 20 53 54 41 52 54 53 59 53 54 |NDPROC STARTSYST|
00000D10: 45 4D 0D 0A 31 33 38 30 20 2F 2F 0D 0A 31 33 39 |EM..1380 //..139|
00000D20: 30 20 50 52 4F 43 20 53 54 4F 50 53 59 53 54 45 |0 PROC STOPSYSTE|
00000D30: 4D 20 0D 0A 31 34 30 30 20 4F 50 45 4E 20 46 49 |M ..1400 OPEN FI|
00000D40: 4C 45 20 32 2C 22 40 30 3A 5A 45 55 47 4E 49 53 |LE 2,"@0:ZEUGNIS|
00000D50: 53 45 22 2C 57 52 49 54 45 0D 0A 31 34 31 30 20 |SE",WRITE..1410 |
00000D60: 46 4F 52 20 53 43 48 55 45 4C 4E 52 3A 3D 31 20 |FOR SCHUELNR:=1 |
00000D70: 54 4F 20 4D 41 58 20 44 4F 0D 0A 31 34 32 30 20 |TO MAX DO..1420 |
00000D80: 57 52 49 54 45 20 46 49 4C 45 20 32 3A 20 4E 41 |WRITE FILE 2: NA|
00000D90: 4D 45 24 28 53 43 48 55 45 4C 4E 52 29 0D 0A 31 |ME$(SCHUELNR)..1|
00000DA0: 34 33 30 20 46 4F 52 20 46 41 43 48 4E 52 3A 3D |430 FOR FACHNR:=|
00000DB0: 31 20 54 4F 20 33 20 44 4F 20 57 52 49 54 45 20 |1 TO 3 DO WRITE |
00000DC0: 46 49 4C 45 20 32 3A 20 4E 4F 54 45 28 53 43 48 |FILE 2: NOTE(SCH|
00000DD0: 55 45 4C 4E 52 2C 46 41 43 48 4E 52 29 0D 0A 31 |UELNR,FACHNR)..1|
00000DE0: 34 34 30 20 4E 45 58 54 20 53 43 48 55 45 4C 4E |440 NEXT SCHUELN|
00000DF0: 52 0D 0A 31 34 35 30 20 43 4C 4F 53 45 0D 0A 31 |R..1450 CLOSE..1|
00000E00: 34 36 30 20 53 54 4F 50 20 0D 0A 31 34 37 30 20 |460 STOP ..1470 |
00000E10: 45 4E 44 50 52 4F 43 20 53 54 4F 50 53 59 53 54 |ENDPROC STOPSYST|
00000E20: 45 4D 0D 0A 31 34 38 30 20 2F 2F 0D 0A 31 34 39 |EM..1480 //..149|
00000E30: 30 20 50 52 4F 43 20 41 55 53 44 52 55 43 4B 45 |0 PROC AUSDRUCKE|
00000E40: 4E 20 0D 0A 31 35 30 30 20 50 52 49 4E 54 20 43 |N ..1500 PRINT C|
00000E50: 48 52 24 28 31 34 37 29 20 2F 2F 41 42 4C 4F 45 |HR$(147) //ABLOE|
00000E60: 53 43 48 45 4E 0D 0A 31 35 31 30 20 46 4F 52 20 |SCHEN..1510 FOR |
00000E70: 53 43 48 55 45 4C 4E 52 3A 3D 31 20 54 4F 20 4D |SCHUELNR:=1 TO M|
00000E80: 41 58 20 44 4F 0D 0A 31 35 32 30 20 46 45 4C 44 |AX DO..1520 FELD|
00000E90: 28 38 2C 39 29 0D 0A 31 35 33 30 20 49 46 20 4E |(8,9)..1530 IF N|
00000EA0: 41 4D 45 24 28 53 43 48 55 45 4C 4E 52 29 3C 3E |AME$(SCHUELNR)<>|
00000EB0: 22 22 20 54 48 45 4E 0D 0A 31 35 34 30 20 44 45 |"" THEN..1540 DE|
00000EC0: 52 4E 41 4D 45 24 3A 3D 4E 41 4D 45 24 28 53 43 |RNAME$:=NAME$(SC|
00000ED0: 48 55 45 4C 4E 52 29 0D 0A 31 35 35 30 20 50 52 |HUELNR)..1550 PR|
00000EE0: 49 4E 54 20 22 53 43 48 55 45 4C 45 52 20 4E 55 |INT "SCHUELER NU|
00000EF0: 4D 4D 45 52 20 22 2C 53 43 48 55 45 4C 4E 52 2C |MMER ",SCHUELNR,|
00000F00: 22 3A 20 22 2C 44 45 52 4E 41 4D 45 24 0D 0A 31 |": ",DERNAME$..1|
00000F10: 35 36 30 20 50 52 49 4E 54 20 22 48 41 54 20 44 |560 PRINT "HAT D|
00000F20: 49 45 20 46 4F 4C 47 45 4E 44 45 4E 20 4E 4F 54 |IE FOLGENDEN NOT|
00000F30: 45 4E 20 45 52 48 41 4C 54 45 4E 3A 22 0D 0A 31 |EN ERHALTEN:"..1|
00000F40: 35 37 30 20 50 52 49 4E 54 20 0D 0A 31 35 38 30 |570 PRINT ..1580|
00000F50: 20 46 4F 52 20 46 41 43 48 4E 52 3A 3D 31 20 54 | FOR FACHNR:=1 T|
00000F60: 4F 20 33 20 44 4F 0D 0A 31 35 39 30 20 50 52 49 |O 3 DO..1590 PRI|
00000F70: 4E 54 20 46 41 43 48 24 28 46 41 43 48 4E 52 29 |NT FACH$(FACHNR)|
00000F80: 2C 22 3A 20 22 2C 54 41 42 28 32 35 29 2C 4E 4F |,": ",TAB(25),NO|
00000F90: 54 45 28 53 43 48 55 45 4C 4E 52 2C 46 41 43 48 |TE(SCHUELNR,FACH|
00000FA0: 4E 52 29 0D 0A 31 36 30 30 20 4E 45 58 54 20 46 |NR)..1600 NEXT F|
00000FB0: 41 43 48 4E 52 0D 0A 31 36 31 30 20 50 52 49 4E |ACHNR..1610 PRIN|
00000FC0: 54 20 0D 0A 31 36 32 30 20 49 4E 50 55 54 20 22 |T ..1620 INPUT "|
00000FD0: 44 52 55 45 43 4B 45 20 44 49 45 20 52 45 54 55 |DRUECKE DIE RETU|
00000FE0: 52 4E 2D 54 41 53 54 45 3A 20 22 3A 20 41 4E 54 |RN-TASTE: ": ANT|
00000FF0: 57 24 0D 0A 31 36 33 30 20 45 4E 44 49 46 20 0D |W$..1630 ENDIF .|
00001000: 0A 31 36 34 30 20 4E 45 58 54 20 53 43 48 55 45 |.1640 NEXT SCHUE|
00001010: 4C 4E 52 0D 0A 31 36 35 30 20 45 4E 44 50 52 4F |LNR..1650 ENDPRO|
00001020: 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 FASSUNG
IST VON JAN. 1981//..0050 //DIESER TEIL
DIENT ZUM EINTRAGEN DER SCHUELER//..0060
//..0070 MAX:=8..0080 DIM NAME$(MAX) OF
20, ANTW$ OF 10..0090 DIM DERNAME$ OF 2
0..0100 DIM NOTE(MAX,3), FACH$(3) OF 11,
SCHLUESSEL(MAX)..0120 //*..0130 FACH$(1
):="DEUTSCH"..0140 FACH$(2):="MATHEMATIK
"..0150 FACH$(3):="ENGLISCH"..0190 //..0
200 STARTSYSTEM..0210 //..0220 //* HAUPT
ZEILEN*//..0230 REPEAT ..0240 PRINT CHR$
(147)..0250 FELD(8,15)..0260 PRINT "1=EI
NTRAGEN"..0270 PRINT "2=AUFLISTEN"..0280
PRINT "3=STOPPEN"..0290 PRINT ..0300 IN
PUT "> ": JOBCODE..0310 IF JOBCODE=1 THE
N EINTRAGEN..0320 IF JOBCODE=2 THEN AUSD
RUCKEN..0330 IF JOBCODE=3 THEN STOPSYSTE
M..0340 UNTIL FALSE..0350 //..0360 PROC
EINTRAGEN ..0370 PRINT CHR$(147) //ABLOE
SCHEN//..0380 FELD(8,20)..0390 INPUT "NE
UE KLASSE (JA/NEIN): ": ANTW$..0400 IF A
NTW$="JA" THEN..0410 NEUEKLASSE..0420 EL
SE ..0430 EINGABE("SCHUELNR")..0440 WHIL
E MEHR DO..0450 IF NAME$(SCHUELNR)<>"" T
HEN..0460 FEHLER(3)..0470 ELSE ..0480 EI
NGABE("SCHUELNAME")..0490 NAME$(SCHUELNR
):=DERNAME$..0500 FOR FACHNR:=1 TO 3 DO
NOTE(SCHUELNR,FACHNR):=-1..0510 ENDIF ..
0520 EINGABE("SCHUELNR")..0530 ENDWHILE
..0540 ENDIF ..0550 ENDPROC EINTRAGEN..0
560 //..0570 PROC NEUEKLASSE ..0580 EING
ABE("KLASSE")..0590 INITKLASSE..0600 PRI
NT CHR$(147) //ABLOESCHEN//..0610 SCHUEL
NR:=1..0620 EINGABE("SCHUELNAME")..0630
WHILE NOT (DERNAME$="" OR SCHUELNR=MAX)
DO..0640 NAME$(SCHUELNR):=DERNAME$..0650
SCHUELNR:=SCHUELNR+1..0660 EINGABE("SCH
UELNAME")..0670 ENDWHILE ..0680 PRINT CH
R$(147)..0690 ENDPROC NEUEKLASSE..0700 /
/..0710 PROC INITKLASSE ..0720 FOR SCHUE
LNR:=1 TO MAX DO..0730 NAME$(SCHUELNR):=
""..0740 FOR FACHNR:=1 TO 3 DO NOTE(SCHU
ELNR,FACHNR):=-1..0750 NEXT SCHUELNR..07
60 ENDPROC INITKLASSE..0770 //..0780 PRO
C EINGABE(BETR$) ..0790 REPEAT ..0800 FE
LD(8,10)..0810 CASE BETR$ OF..0820 WHEN
"SCHUELNR"..0830 INPUT "NUMMER DES SCHUE
LERS (0 TO STOP): ": SCHUELNR..0840 WHEN
"SCHUELNAME"..0850 PRINT "SCHUELER NUMM
ER ",SCHUELNR,..0860 INPUT " : ": DERNAM
E$..0870 WHEN "KLASSE"..0880 INPUT "KLAS
SE (8,9,10): ": KLASSE..0890 ENDCASE ..0
900 KONTROLLE..0910 UNTIL OK..0920 PRINT
CHR$(147)..0930 ENDPROC EINGABE..0940 /
/..0950 PROC KONTROLLE ..0960 CASE BETR$
OF..0970 WHEN "SCHUELNR"..0980 OK:=(0<=
SCHUELNR AND SCHUELNR<=MAX)..0990 MEHR:=
(SCHUELNR>0)..1000 WHEN "SCHUELNAME"..10
10 OK:=TRUE //KEIN TEST//..1020 WHEN "KL
ASSE"..1030 OK:=(KLASSE=8)..1040 ESFEHLT
:=(KLASSE=9 OR KLASSE=10)..1050 ENDCASE
..1060 IF NOT OK THEN FEHLER(10)..1070 E
NDPROC KONTROLLE..1080 //..1090 PROC FEH
LER(NO) ..1100 FELD(1,3)..1110 PRINT "FE
HLER!"..1120 //..1130 //NICHT ABGESCHLOS
SEN//..1140 //..1150 ENDPROC FEHLER..116
0 //..1170 //..1180 PROC FELD(L1,L2) CLO
SED..1185 DIM LEERZ$ OF 39..1188 LEERZ$(
1:39):=""..1190 POSI(L1,1)..1200 FOR I:=
1 TO L2-L1+1 DO PRINT LEERZ$..1210 POSI(
L1,1)..1230 ENDPROC FELD..1240 //..1250
PROC POSI(L,Z) ..1260 PRINT CHR$(19)..12
70 FOR I':=1 TO L-1 DO PRINT ..1275 FOR
I':=1 TO Z-1 DO PRINT CHR$(29),..1280 EN
DPROC POSI..1290 //..1300 PROC STARTSYST
EM ..1310 OPEN FILE 2,"ZEUGNISSE",READ..
1320 FOR SCHUELNR:=1 TO MAX DO..1330 REA
D FILE 2: NAME$(SCHUELNR)..1340 FOR FACH
NR:=1 TO 3 DO READ FILE 2: NOTE(SCHUELNR
,FACHNR)..1350 NEXT SCHUELNR..1360 CLOSE
..1370 ENDPROC STARTSYSTEM..1380 //..139
0 PROC STOPSYSTEM ..1400 OPEN FILE 2,"@0
:ZEUGNISSE",WRITE..1410 FOR SCHUELNR:=1
TO MAX DO..1420 WRITE FILE 2: NAME$(SCHU
ELNR)..1430 FOR FACHNR:=1 TO 3 DO WRITE
FILE 2: NOTE(SCHUELNR,FACHNR)..1440 NEXT
SCHUELNR..1450 CLOSE..1460 STOP ..1470
ENDPROC STOPSYSTEM..1480 //..1490 PROC A
USDRUCKEN ..1500 PRINT CHR$(147) //ABLOE
SCHEN..1510 FOR SCHUELNR:=1 TO MAX DO..1
520 FELD(8,9)..1530 IF NAME$(SCHUELNR)<>
"" THEN..1540 DERNAME$:=NAME$(SCHUELNR).
.1550 PRINT "SCHUELER NUMMER ",SCHUELNR,
": ",DERNAME$..1560 PRINT "HAT DIE FOLGE
NDEN NOTEN ERHALTEN:"..1570 PRINT ..1580
FOR FACHNR:=1 TO 3 DO..1590 PRINT FACH$
(FACHNR),": ",TAB(25),NOTE(SCHUELNR,FACH
NR)..1600 NEXT FACHNR..1610 PRINT ..1620
INPUT "DRUECKE DIE RETURN-TASTE: ": ANT
W$..1630 ENDIF ..1640 NEXT SCHUELNR..165
0 ENDPROC AUSDRUCKEN..
> CLICK IMAGE PREVIEW FOR FULL MODAL