|
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: 10745 (0x29f9)
Types: TextFile
Notes: ELOPLYS , OPDATER::ELOPLYS
Names: »ELOPLYS«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »OPDATER::ELOPLYS«
«ff» 1160 REM ------------------------------------------------------------------------- 1170 PROC ELOPLYS 1180 PAGE=79 1190 LET TÆLLER=1; FORTSÆT=1; DELING=0; RETTER=1; SPRING=1 1200 MAT ENRRNR=ZER 1210 OPEN FILE(1,0)"NR-GR-NA" 1220 OPEN FILE(2,0)"AD-CP-TL" 1230 OPEN FILE(3,0)"PA.NA-ST" 1240 OPEN FILE(4,0)"PA.AD-TL" 1250 OPEN FILE(5,0)"VALGFAG." 1260 OPEN FILE(6,3)"ENR-RNR." 1270 PRINT "<134>";XY$(1);XY$(1);"<30>" 1280 PRINT "<134>";XY$(20);XY$(1);"INDSKRIVNING AF ELEVOPLYSNINGER FOR ";KLASSE$ 1290 PRINT "<134>";XY$(1);XY$(3);"<31>" 1300 WHILE FORTSÆT DO 1310 LET KONTROL=1; RYKKER=6 1320 PRINT "<134>";XY$(4);XY$(4);"ELEV NR. ";TÆLLER 1330 PRINT "<134>";XY$(3);XY$(5);"------------" 1340 PRINT "<134>";XY$(6);XY$(RYKKER); 1350 WHILE RYKKER<=24 DO 1360 ON ESC THEN EXEC STOPPER 1370 CASE KONTROL OF 1380 REM 1390 WHEN 1 1400 LET CPR$="" 1410 INPUT "ELEVENS CPR-NUMMER : <30>",CPR$ 1420 LET KONTROL=2 1430 IF CPR$="@" THEN 1440 LET KONTROL=20; RYKKER=30; FORTSÆT=0 1450 MAT WRITE FILE(6)ENRRNR 1460 ELSE 1470 IF LEN(CPR$)>7 THEN 1480 IF CPR$(7)<>"-" OR LEN(CPR$)<>11 THEN 1490 LET RYKKER=RYKKER-1; KONTROL=1 1500 PRINT "<7>" 1510 ENDIF 1520 ELSE 1530 LET RYKKER=RYKKER-1; KONTROL=1 1540 PRINT "<7>" 1550 ENDIF 1560 ENDIF 1570 FOR I=1 TO LEN(CPR$) 1580 IF CPR$(I)="L" THEN 1590 LET I=LEN(CPR$)+1; RYKKER=RYKKER-1; KONTROL=1 1600 PRINT "<7>" 1610 ENDIF 1620 NEXT I 1630 WHEN 2 1640 INPUT "ELEVENS EFTERNAVN : ",ENAVN$ 1650 LET KONTROL=3 1660 IF NOT LEN(ENAVN$) THEN 1670 LET RYKKER=RYKKER-1; KONTROL=2 1680 PRINT "<7>" 1690 ENDIF 1700 WHEN 3 1710 INPUT "ELEVENS FORNAVN,(MELLEMNAVN) : ",NAVN$ 1720 LET KONTROL=4 1730 IF NOT LEN(NAVN$) THEN 1740 LET RYKKER=RYKKER-1; KONTROL=3 1750 PRINT "<7>" 1760 ENDIF 1770 WHEN 4 1780 INPUT "ELEVENS ADRESSE : ",EADR$ 1790 LET KONTROL=5 1800 IF NOT LEN(EADR$) THEN 1810 LET RYKKER=RYKKER-1; KONTROL=4 1820 PRINT "<7>" 1830 ENDIF 1840 WHEN 5 1850 LET KONTROL=6 1860 INPUT "POSTNUMMER OG (POSTDISTRIKT) : <30>",POGBY$ 1870 IF LEN(POGBY$)=4 THEN 1880 LET STEPPER=1; SLUT=0 1890 WHILE POSTMAT(1,STEPPER)<>0 AND STEPPER<=29 AND NOT SLUT DO 1900 IF POGBY$(1,4)=POSTTEXT$(POSTMAT(1,STEPPER),POSTMAT(2,STEPPER)) THEN 1910 LET POGBY$=POGBY$," ",POSTTEXT$(POSTMAT(3,STEPPER),POSTMAT(4,STEPPER)); SLUT=1 1920 ENDIF 1930 LET STEPPER=STEPPER+1 1940 ENDWHILE 1950 IF NOT SLUT THEN 1960 LET RYKKER=RYKKER-1; KONTROL=5 1970 PRINT "<7>" 1980 ELSE 1990 LET UDLÆG$=POGBY$ 2000 EXEC UDLÆG 2010 ENDIF 2020 ELSE 2030 IF LEN(POGBY$)<4 THEN 2040 LET RYKKER=RYKKER-1; KONTROL=5 2050 PRINT "<7>" 2060 ENDIF 2070 ENDIF 2080 WHEN 6 2090 LET ETLF$="@" 2100 INPUT "ELEVENS TELEFONNUMMER : <30>",ETLF$ 2110 LET KONTROL=7 2120 IF LEN(ETLF$)<>1 AND LEN(ETLF$)=6 THEN 2130 FOR I=1 TO LEN(ETLF$) 2140 LET FEJL=1 2150 FOR J=1 TO LEN(TITAL$) 2160 IF ETLF$(I)=TITAL$(J) THEN 2170 LET FEJL=0; J=LEN(TITAL$) 2180 ENDIF 2190 IF J=LEN(TITAL$) AND FEJL THEN 2200 LET RYKKER=RYKKER-1; KONTROL=6; I=LEN(ETLF$) 2210 PRINT "<7>" 2220 ENDIF 2230 NEXT J 2240 NEXT I 2250 ELSE 2260 IF LEN(ETLF$) AND LEN(ETLF$)<>1 THEN 2270 LET RYKKER=RYKKER-1; KONTROL=6 2280 PRINT "<7>" 2290 ENDIF 2300 ENDIF 2310 WHEN 7 2320 INPUT "VÆRGES EFTERNAVN : ",FENAVN$ 2330 LET KONTROL=8 2340 IF NOT LEN(FENAVN$) THEN 2350 LET FENAVN$=ENAVN$; UDLÆG$=ENAVN$ 2360 EXEC UDLÆG 2370 ENDIF 2380 WHEN 8 2390 INPUT "VÆRGES FORNAVN (M/F) : <30>",FFNAVN$ 2400 LET KONTROL=9 2410 IF FFNAVN$(LEN(FFNAVN$))="F" OR FFNAVN$(LEN(FFNAVN$))="M" THEN 2420 IF FFNAVN$(LEN(FFNAVN$)-1)=" " THEN 2430 LET KØN$=FFNAVN$(LEN(FFNAVN$)); FFNAVN$=FFNAVN$(1,LEN(FFNAVN$)-2) 2440 ELSE 2450 LET RYKKER=RYKKER-1; KONTROL=8 2460 PRINT "<7>" 2470 ENDIF 2480 ELSE 2490 LET RYKKER=RYKKER-1; KONTROL=8 2500 IF RETTER THEN PRINT "<7>" 2510 ENDIF 2520 IF NOT RETTER THEN 2530 LET KONTROL=9; RYKKER=RYKKER+1 2540 ENDIF 2550 WHEN 9 2560 INPUT "VÆRGES STILLING : ",STILLING$ 2570 LET KONTROL=10 2580 WHEN 10 2590 INPUT "VÆRGES ADRESSE : ",FADR$ 2600 LET KONTROL=11 2610 IF NOT LEN(FADR$) THEN 2620 LET FADR$=EADR$; UDLÆG$=EADR$ 2630 EXEC UDLÆG 2640 ENDIF 2650 WHEN 11 2660 LET KONTROL=12 2670 INPUT "POSTNUMMER OG (POSTDISTRIKT) : <30>",FPOGBY$ 2680 IF LEN(FPOGBY$)=4 THEN 2690 LET STEPPER=1; SLUT=0 2700 WHILE POSTMAT(1,STEPPER)<>0 AND STEPPER<=29 AND NOT SLUT DO 2710 IF FPOGBY$=POSTTEXT$(POSTMAT(1,STEPPER),POSTMAT(2,STEPPER)) THEN 2720 LET FPOGBY$=FPOGBY$," ",POSTTEXT$(POSTMAT(3,STEPPER),POSTMAT(4,STEPPER)); SLUT=1 2730 ENDIF 2740 LET STEPPER=STEPPER+1 2750 ENDWHILE 2760 IF NOT SLUT THEN 2770 LET RYKKER=RYKKER-1; KONTROL=11 2780 PRINT "<7>" 2790 ELSE 2800 LET UDLÆG$=FPOGBY$ 2810 EXEC UDLÆG 2820 ENDIF 2830 ELSE 2840 IF NOT LEN(FPOGBY$) THEN 2850 LET FPOGBY$=POGBY$; UDLÆG$=POGBY$ 2860 EXEC UDLÆG 2870 ENDIF 2880 ENDIF 2890 WHEN 12 2900 LET FTLF$="@" 2910 INPUT "VÆRGES TELEFONNUMMER : <30>",FTLF$ 2920 LET KONTROL=13 2930 IF NOT LEN(FTLF$) THEN 2940 LET FTLF$=ETLF$; UDLÆG$=ETLF$ 2950 EXEC UDLÆG 2960 ELSE 2970 IF LEN(FTLF$)<>1 AND LEN(FTLF$)=6 THEN 2980 FOR I=1 TO LEN(FTLF$) 2990 LET FEJL=1 3000 FOR J=1 TO LEN(TITAL$) 3010 IF FTLF$(I)=TITAL$(J) THEN 3020 LET FEJL=0; J=LEN(TITAL$) 3030 ENDIF 3040 IF J=LEN(TITAL$) AND FEJL THEN 3050 LET RYKKER=RYKKER-1; KONTROL=12; I=LEN(FTLF$) 3060 PRINT "<7>" 3070 ENDIF 3080 NEXT J 3090 NEXT I 3100 ELSE 3110 IF LEN(FTLF$)<>1 THEN 3120 LET RYKKER=RYKKER-1; KONTROL=12 3130 PRINT "<7>" 3140 ENDIF 3150 ENDIF 3160 ENDIF 3170 WHEN 13 3180 INPUT "ENGELSK/TYSK : <30>",SPROGET$ 3190 LET KONTROL=14 3200 IF SPROGET$<>"EN" AND SPROGET$<>"TY" THEN 3210 PRINT "<7>" 3220 LET RYKKER=RYKKER-2; KONTROL=13 3230 ENDIF 3240 WHEN 14 3250 INPUT "FRANSK/RUSSISK : <30>",SPROGFR$ 3260 LET KONTROL=15 3270 IF SPROGFR$<>"FR" AND SPROGFR$<>"RU" THEN 3280 PRINT "<7>" 3290 LET RYKKER=RYKKER-1; KONTROL=14 3300 ENDIF 3310 WHEN 15 3320 INPUT " ",GREN$ 3330 LET KONTROL=16 3340 ENDCASE 3350 IF KONTROL=7 OR KONTROL=13 THEN 3360 LET RYKKER=RYKKER+2 3370 ELSE 3380 LET RYKKER=RYKKER+1 3390 ENDIF 3400 IF NOT RETTER THEN 3410 IF KONTROL=8 OR KONTROL=14 THEN 3420 LET KONTROL=KONTROL-2; RYKKER=RYKKER-3 3430 ELSE 3440 IF KONTROL=7 OR KONTROL=13 THEN 3450 LET KONTROL=KONTROL-2; RYKKER=RYKKER-3 3460 ELSE 3470 LET KONTROL=KONTROL-2; RYKKER=RYKKER-2 3480 ENDIF 3490 ENDIF 3500 IF RYKKER=4 THEN 3510 LET KONTROL=1; RYKKER=6 3520 PRINT "<7>" 3530 ENDIF 3540 LET RETTER=1 3550 ENDIF 3560 IF FORTSÆT THEN PRINT "<134>";XY$(6);XY$(RYKKER); 3570 ENDWHILE 3580 IF FORTSÆT THEN 3590 FOR I=1 TO LEN(NAVN$) 3600 IF NAVN$(I)="," THEN 3610 LET A=I-1; B=I+1; I=LEN(NAVN$); DELING=1 3620 ENDIF 3630 NEXT I 3640 IF DELING THEN 3650 LET FNAVN$=NAVN$(1,A); MNAVN$=" ",NAVN$(B,LEN(NAVN$)); DELING=0 3660 ELSE 3670 LET FNAVN$=NAVN$; MNAVN$="" 3680 ENDIF 3690 IF RYKKER<28 THEN 3700 LET NR=TÆLLER 3710 ELSE 3720 LET NR=0 3730 ENDIF 3740 WRITE FILE(1,TÆLLER)NR,"@",ENAVN$,FNAVN$,MNAVN$,0 3750 WRITE FILE(2,TÆLLER)EADR$,POGBY$,CPR$,ETLF$ 3760 WRITE FILE(3,TÆLLER)FENAVN$,FFNAVN$,STILLING$,KØN$ 3770 WRITE FILE(4,TÆLLER)FADR$,FPOGBY$,FTLF$ 3780 WRITE FILE(5,TÆLLER)SPROGFR$,SPROGET$,"@" 3790 LET ENRRNR(1,TÆLLER)=TÆLLER 3800 LET TÆLLER=TÆLLER+1 3810 ENDIF 3820 PRINT "<134>";XY$(1);XY$(5);"<31>" 3830 IF RYKKER=30 THEN LET FORTSÆT=1 3840 IF RYKKER=31 THEN LET FORTSÆT=0 3850 ENDWHILE 3860 PRINT "<134>";XY$(1);XY$(1);"<30>" 3870 PRINT "<134>";XY$(30);XY$(1);"OPDATERING" 3880 PRINT "<134>";XY$(1);XY$(3);"<31>" 3890 CLOSE 3900 RESET ESC 3910 ENDPROC ELOPLYS