|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2946 (0xb82)
Types: TextFile
Notes: GRENFAG , OPDATER::GRENFAG
Names: »GRENFAG«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »OPDATER::GRENFAG«
«ff» 3920 REM ------------------------------------------------------------------------- 3930 PROC GRENFAG 3940 PAGE=0 3950 PRINT "<134>";XY$(1);XY$(1);"<30>" 3960 PRINT "<134>";XY$(1);XY$(3);"<31>" 3970 PRINT "<134>";XY$(17);XY$(1);"INDSKRIVNING AF GREN OG VALGFAG PR. ELEV I ";KLASSE$ 3980 PRINT "<134>";XY$(2);XY$(4);"NR. NAVN GREN VALGFAG" 3990 PRINT "<134>";XY$(1);XY$(5);"----- ---------------- -------------------- ------ ---------" 4000 OPEN FILE(1,0)"NR-GR-NA" 4010 OPEN FILE(2,0)"VALGFAG." 4020 OPEN FILE(3,1)"ENR-RNR." 4030 MAT READ FILE(3)ENRRNR 4040 CLOSE FILE(3) 4050 LET OMGANG=1; PTÆLLER=1; TÆLLER2=0 4060 REPEAT 4070 IF OMGANG THEN 4080 LET TÆLLER=1; KONSTANT=18; OMGANG=0; TÆLLER1=0 4090 EXEC ELEVPLOT 4100 ELSE 4110 LET KONSTANT=30; TÆLLER1=TÆLLER1-1 4120 EXEC ELEVPLOT 4130 ENDIF 4140 LET PLOTTER=6 4150 REPEAT 4160 ON ESC THEN EXEC GRENRET 4170 REPEAT 4180 LET TÆLLER2=TÆLLER2+1 4190 UNTIL (ENRRNR(1,TÆLLER2)<>0 AND ENRRNR(1,TÆLLER2)<100) OR TÆLLER2=30 4200 LET RNR=ENRRNR(1,TÆLLER2) 4210 IF RNR>0 AND RNR<100 THEN 4220 REPEAT 4230 LET IORDEN=1 4240 PRINT "<134>";XY$(57);XY$(PLOTTER); 4250 INPUT "<30>",GREN$ 4260 IF KLASSE$(2)>="A" AND KLASSE$(2)<="D" THEN 4270 IF GREN$<>"M" AND GREN$<>"N" AND GREN$<>"S" AND GREN$<>"@" THEN 4280 PRINT "<7>" 4290 LET IORDEN=0 4300 ENDIF 4310 ELSE 4320 IF GREN$<>"N" AND GREN$<>"S" AND GREN$<>"F" AND GREN$<>"@" THEN 4330 PRINT "<7>" 4340 LET IORDEN=0 4350 ENDIF 4360 ENDIF 4370 UNTIL GREN$="N" OR GREN$="M" OR GREN$="S" OR GREN$="F" AND IORDEN 4380 REPEAT 4390 PRINT "<134>";XY$(68);XY$(PLOTTER); 4400 INPUT "<30>",VALGFAG$ 4410 IF VALGFAG$<>"MU" AND VALGFAG$<>"FO" THEN 4420 PRINT "<134>";XY$(79);XY$(PLOTTER-2);"<7>" 4430 ENDIF 4440 UNTIL VALGFAG$="MU" OR VALGFAG$="FO" 4450 READ FILE(1,RNR)NR,NYKL$,ENAVN$,FNAVN$,MNAVN$,MYNDIG 4460 WRITE FILE(1,RNR)NR,GREN$,ENAVN$,FNAVN$,MNAVN$,MYNDIG 4470 READ FILE(2,RNR)SPROGFR$,SPROGET$,FORMUS$ 4480 WRITE FILE(2,RNR)SPROGFR$,SPROGET$,VALGFAG$ 4490 ENDIF 4500 LET PLOTTER=PLOTTER+1; PTÆLLER=PTÆLLER+1 4510 UNTIL RNR=0 OR PTÆLLER=19 OR TÆLLER2=30 4520 UNTIL RNR=0 OR PTÆLLER=30 OR TÆLLER2=30 4530 CLOSE 4540 PRINT "<134>";XY$(1);XY$(1);"<30>" 4550 PRINT "<134>";XY$(30);XY$(1);"OPDATERING" 4560 PRINT "<134>";XY$(1);XY$(3);"<31>" 4570 RESET ESC 4580 ENDPROC GRENFAG