|
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: 7186 (0x1c12)
Types: TextFile
Notes: ELEVRET::INDSKRIV, INDSKRIV
Names: »INDSKRIV«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »ELEVRET::INDSKRIV«
«ff» 3660 REM ------------------------------------------------------------------------- 3670 PROC INDSKRIV 3680 LET DELING=0 3690 REPEAT 3700 LET GENTAGER=1 3710 ON ESC THEN EXEC TILBAGE 3720 PRINT "<134>";XY$(41);XY$(RYKKER); 3730 CASE RYKKER OF 3740 REM 3750 WHEN 6 3760 LET MYNDIG=0 3770 INPUT "<30>",CPR$ 3780 IF LEN(CPR$)>7 THEN 3790 IF CPR$(7)<>"-" OR LEN(CPR$)<>11 AND LEN(CPR$)<>13 THEN 3800 LET GENTAGER=0 3810 PRINT "<7>" 3820 ENDIF 3830 ELSE 3840 LET GENTAGER=0 3850 PRINT "<7>" 3860 ENDIF 3870 IF GENTAGER THEN 3880 FOR I=1 TO LEN(CPR$) 3890 IF CPR$(I)="L" THEN 3900 LET GENTAGER=0 3910 PRINT "<7>" 3920 ENDIF 3930 NEXT I 3940 IF GENTAGER THEN 3950 IF CPR$(LEN(CPR$)-1,LEN(CPR$))=" M" THEN 3960 LET MYNDIG=1 3970 LET CPR$=CPR$(1,LEN(CPR$)-2) 3980 ENDIF 3990 ENDIF 4000 ENDIF 4010 WHEN 7 4020 INPUT "<30>",ENAVN$ 4030 IF NOT LEN(ENAVN$) THEN 4040 LET GENTAGER=0 4050 PRINT "<7>" 4060 ENDIF 4070 WHEN 8 4080 INPUT "<30>",NAVN$ 4090 IF NOT LEN(NAVN$) THEN 4100 LET GENTAGER=0 4110 PRINT "<7>" 4120 ELSE 4130 FOR I=1 TO LEN(NAVN$) 4140 IF NAVN$(I)="," THEN 4150 LET A=I-1; B=I+1; I=LEN(NAVN$); DELING=1 4160 ENDIF 4170 NEXT I 4180 IF DELING THEN 4190 LET FNAVN$=NAVN$(1,A); MNAVN$=" ",NAVN$(B,LEN(NAVN$)); DELING=0 4200 ELSE 4210 LET FNAVN$=NAVN$; MNAVN$="" 4220 ENDIF 4230 ENDIF 4240 WHEN 9 4250 INPUT "<30>",EADR$ 4260 IF NOT LEN(EADR$) THEN 4270 LET GENTAGER=0 4280 PRINT "<7>" 4290 ENDIF 4300 WHEN 10 4310 INPUT "<30>",POGBY$ 4320 IF LEN(POGBY$)=4 THEN 4330 LET KONTROL=1; SLUT=0 4340 WHILE POSTMAT(1,KONTROL)<>0 AND KONTROL<=29 AND NOT SLUT DO 4350 IF POGBY$(1,4)=POSTTEXT$(POSTMAT(1,KONTROL),POSTMAT(2,KONTROL)) THEN 4360 LET POGBY$=POGBY$," ",POSTTEXT$(POSTMAT(3,KONTROL),POSTMAT(4,KONTROL)); SLUT=1 4370 ENDIF 4380 LET KONTROL=KONTROL+1 4390 ENDWHILE 4400 IF NOT SLUT THEN 4410 LET GENTAGER=0 4420 PRINT "<7>" 4430 ELSE 4440 LET UDLÆG$=POGBY$ 4450 EXEC UDLÆG 4460 ENDIF 4470 ELSE 4480 IF LEN(POGBY$)<4 THEN 4490 LET GENTAGER=0 4500 PRINT "<7>" 4510 ENDIF 4520 ENDIF 4530 WHEN 11 4540 INPUT "<30>",ETLF$ 4550 IF LEN(ETLF$)=6 THEN 4560 FOR I=1 TO LEN(ETLF$) 4570 LET FEJL=1 4580 FOR J=1 TO LEN(TITAL$) 4590 IF ETLF$(I)=TITAL$(J) THEN 4600 LET FEJL=0; J=LEN(TITAL$) 4610 ENDIF 4620 IF J=LEN(TITAL$) AND FEJL THEN 4630 LET GENTAGER=0; I=LEN(ETLF$) 4640 PRINT "<7>" 4650 ENDIF 4660 NEXT J 4670 NEXT I 4680 ELSE 4690 LET GENTAGER=0 4700 PRINT "<7>" 4710 ENDIF 4720 WHEN 13 4730 INPUT "<30>",FENAVN$ 4740 IF NOT LEN(FENAVN$) THEN 4750 LET FENAVN$=ENAVN$; UDLÆG$=ENAVN$ 4760 EXEC UDLÆG 4770 ENDIF 4780 WHEN 14 4790 INPUT "<30>",FFNAVN$ 4800 IF LEN(FFNAVN$)<3 THEN 4810 LET GENTAGER=0 4820 PRINT "<7>" 4830 ELSE 4840 IF FFNAVN$(LEN(FFNAVN$)-1,LEN(FFNAVN$))<>" M" AND FFNAVN$(LEN(FFNAVN$)-1,LEN(FFNAVN$))<>" F" THEN 4850 LET GENTAGER=0 4860 PRINT "<7>" 4870 ELSE 4880 LET KØN$=FFNAVN$(LEN(FFNAVN$)); FFNAVN$=FFNAVN$(1,LEN(FFNAVN$)-2) 4890 ENDIF 4900 ENDIF 4910 WHEN 15 4920 INPUT "<30>",STILLING$ 4930 WHEN 16 4940 INPUT "<30>",FADR$ 4950 IF NOT LEN(FADR$) THEN 4960 LET FADR$=EADR$; UDLÆG$=EADR$ 4970 EXEC UDLÆG 4980 ENDIF 4990 WHEN 17 5000 INPUT "<30>",FPOGBY$ 5010 IF LEN(FPOGBY$)=4 THEN 5020 LET KONTROL=1; SLUT=0 5030 WHILE POSTMAT(1,KONTROL)<>0 AND KONTROL<=29 AND NOT SLUT DO 5040 IF FPOGBY$(1,4)=POSTTEXT$(POSTMAT(1,KONTROL),POSTMAT(2,KONTROL)) THEN 5050 LET FPOGBY$=FPOGBY$," ",POSTTEXT$(POSTMAT(3,KONTROL),POSTMAT(4,KONTROL)); SLUT=1 5060 ENDIF 5070 LET KONTROL=KONTROL+1 5080 ENDWHILE 5090 IF NOT SLUT THEN 5100 LET GENTAGER=0 5110 PRINT "<7>" 5120 ELSE 5130 LET UDLÆG$=FPOGBY$ 5140 EXEC UDLÆG 5150 ENDIF 5160 ELSE 5170 IF NOT LEN(FPOGBY$) THEN 5180 LET FPOGBY$=POGBY$; UDLÆG$=POGBY$ 5190 EXEC UDLÆG 5200 ENDIF 5210 ENDIF 5220 WHEN 18 5230 INPUT "<30>",FTLF$ 5240 IF NOT LEN(FTLF$) THEN 5250 LET FTLF$=ETLF$; UDLÆG$=ETLF$ 5260 EXEC UDLÆG 5270 ELSE 5280 IF LEN(FTLF$)<>1 AND LEN(FTLF$)=6 THEN 5290 FOR I=1 TO LEN(FTLF$) 5300 LET FEJL=1 5310 FOR J=1 TO LEN(TITAL$) 5320 IF FTLF$(I)=TITAL$(J) THEN 5330 LET FEJL=0; J=LEN(TITAL$) 5340 ENDIF 5350 IF J=LEN(TITAL$) AND FEJL THEN 5360 LET GENTAGER=0; I=LEN(FTLF$) 5370 PRINT "<7>" 5380 ENDIF 5390 NEXT J 5400 NEXT I 5410 ELSE 5420 IF LEN(FTLF$) AND LEN(FTLF$)<>1 THEN 5430 LET GENTAGER=0 5440 PRINT "<7>" 5450 ENDIF 5460 ENDIF 5470 ENDIF 5480 WHEN 20 5490 INPUT "<30>",SPROGET$ 5500 IF SPROGET$<>"EN" AND SPROGET$<>"TY" THEN 5510 LET GENTAGER=0 5520 PRINT "<7>" 5530 ENDIF 5540 WHEN 21 5550 INPUT "<30>",SPROGFR$ 5560 IF SPROGFR$<>"FR" AND SPROGFR$<>"RU" THEN 5570 LET GENTAGER=0 5580 PRINT "<7>" 5590 ENDIF 5600 WHEN 22 5610 INPUT "<30>",VALGFAG$ 5620 IF VALGFAG$<>"FO" AND VALGFAG$<>"MU" THEN 5630 LET GENTAGER=0 5640 PRINT "<7>" 5650 ENDIF 5660 WHEN 23 5670 INPUT "<30>",GREN$ 5680 IF GREN$<>"F" AND GREN$<>"S" AND GREN$<>"M" AND GREN$<>"N" THEN 5690 LET GENTAGER=0 5700 PRINT "<7>" 5710 ENDIF 5720 ENDCASE 5730 ON ESC THEN EXEC TILBAGE 5740 UNTIL GENTAGER 5750 LET INDSKRIV=1; SPRING$="@" 5760 ENDPROC INDSKRIV