|
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 - download
Length: 4045 (0xfcd)
Types: TextFile
Notes: ELEVIND , ELEVRET::ELEVIND
Names: »ELEVIND«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 7230 REM ------------------------------------------------------------------------- 7240 PROC ELEVIND 7250 OPEN FILE(1,0)"NR-GR-NA" 7260 OPEN FILE(2,0)"AD-CP-TL" 7270 OPEN FILE(3,0)"PA.NA-ST" 7280 OPEN FILE(4,0)"PA.AD-TL" 7290 OPEN FILE(5,0)"VALGFAG." 7300 OPEN FILE(7,1)"ENR-RNR." 7310 MAT READ FILE(7)ENRRNR 7320 LET GENTAG=1; SKIFTER=1; FØRSTE=1; SPRING=1; GENTAGER=1; FORTSÆT=1 7330 WHILE GENTAG DO 7340 PRINT "<134>";XY$(1);XY$(3);"<31>" 7350 REPEAT 7360 PRINT "<134>";XY$(6);XY$(6); 7370 INPUT "DEN NYE ELEVS NUMMER : <30>",CNR 7380 UNTIL CNR>=0 AND CNR<=30 7390 IF CNR=0 THEN 7400 LET GENTAG=0; SPRING=0 7410 ENDIF 7420 IF SPRING THEN 7430 WHILE ENRRNR(1,SKIFTER)<100 AND SKIFTER<30 DO 7440 LET SKIFTER=SKIFTER+1 7450 ENDWHILE 7460 IF ENRRNR(1,SKIFTER)>=100 THEN 7470 IF CNR<>SKIFTER THEN 7480 LET RNR=ENRRNR(1,SKIFTER)/100; ENRRNR(1,SKIFTER)=0 7490 ELSE 7500 LET RNR=ENRRNR(1,SKIFTER)/100; ENRRNR(1,SKIFTER)=RNR 7510 ENDIF 7520 ELSE 7530 LET FINDER(1)=1; FINDER(2)=1; FINDER(3)=1 7540 WHILE FINDER(2)<=30 DO 7550 WHILE FINDER(3)<=30 DO 7560 IF ENRRNR(1,FINDER(2))=FINDER(3) THEN 7570 LET RNRKONTL(1,FINDER(3))=1; FINDER(3)=30 7580 ENDIF 7590 LET FINDER(3)=FINDER(3)+1 7600 ENDWHILE 7610 LET FINDER(2)=FINDER(2)+1; FINDER(3)=1 7620 ENDWHILE 7630 WHILE RNRKONTL(1,FINDER(1))=1 DO 7640 LET FINDER(1)=FINDER(1)+1 7650 ENDWHILE 7660 LET RNR=FINDER(1) 7670 ENDIF 7680 IF CNR<>SKIFTER THEN 7690 LET FINDER(2)=CNR 7700 IF CNR<>RNR THEN 7710 MAT FLYT=ENRRNR 7720 WHILE FINDER(2)<=29 DO 7730 LET FLYT(1,FINDER(2)+1)=ENRRNR(1,FINDER(2)) 7740 LET FINDER(2)=FINDER(2)+1 7750 ENDWHILE 7760 ELSE 7770 MAT FLYT=ENRRNR 7780 ENDIF 7790 LET FLYT(1,CNR)=RNR 7800 MAT ENRRNR=FLYT 7810 MAT FLYT=ZER 7820 LET FINDER(2)=CNR+1 7830 WHILE FINDER(2)<=30 DO 7840 IF ENRRNR(1,FINDER(2))>0 AND ENRRNR(1,FINDER(2))<100 THEN 7850 WRITE FILE(1,ENRRNR(1,FINDER(2)))FINDER(2) 7860 ENDIF 7870 LET FINDER(2)=FINDER(2)+1 7880 ENDWHILE 7890 ENDIF 7900 EXEC UDTEKST 7910 LET FLYTTER=RYKKER; RYKKER=6 7920 PRINT "<134>";XY$(13);XY$(3);CNR 7930 WHILE RYKKER<FLYTTER+1 DO 7940 IF RYKKER=12 THEN 7950 LET RYKKER=RYKKER+1 7960 ELSE 7970 IF RYKKER=19 THEN 7980 IF ENGELSK THEN 7990 LET RYKKER=RYKKER+1 8000 ELSE 8010 LET RYKKER=RYKKER+2 8020 ENDIF 8030 IF RYKKER=21 OR RYKKER=22 THEN 8040 IF NOT MUFORGRE THEN 8050 LET RYKKER=RYKKER+4 8060 ENDIF 8070 ENDIF 8080 ENDIF 8090 ENDIF 8100 EXEC INDSKRIV 8110 LET RYKKER=RYKKER+1 8120 ENDWHILE 8130 IF SPRING THEN 8140 WRITE FILE(1,RNR)CNR,GREN$,ENAVN$,FNAVN$,MNAVN$,MYNDIG 8150 WRITE FILE(2,RNR)EADR$,POGBY$,CPR$,ETLF$ 8160 WRITE FILE(3,RNR)FENAVN$,FFNAVN$,STILLING$,KØN$ 8170 WRITE FILE(4,RNR)FADR$,FPOGBY$,FTLF$ 8180 WRITE FILE(5,RNR)SPROGFR$,SPROGET$,VALGFAG$ 8190 CLOSE FILE(7) 8200 OPEN FILE(7,3)"ENR-RNR." 8210 MAT WRITE FILE(7)ENRRNR 8220 CLOSE FILE(7) 8230 OPEN FILE(7,1)"ENR-RNR." 8240 ENDIF 8250 ENDIF 8260 ENDWHILE 8270 CLOSE 8280 RESET ESC 8290 ENDPROC ELEVIND