|
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: 6580 (0x19b4)
Types: TextFile
Notes: BREV::BREVVALG, BREVVALG
Names: »BREVVALG«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »BREV::BREVVALG«
«ff» 4020 REM ------------------------------------------------------------------------- 4030 PROC BREVALG 4040 REPEAT 4050 LET TRETEKST=1 4060 PRINT "<134>";XY$(1);XY$(1);"<30>" 4070 PRINT "<134>";XY$(1);XY$(3);"<31>" 4080 PRINT "<134>";XY$(30);XY$(1);"UDSKRIVNING AF BREVE" 4090 PRINT "<134>";XY$(15);XY$(5);"A : BREVUDSKRIVNING TIL ALLE KLASSER" 4100 PRINT "<134>";XY$(15);XY$(7);"B : BREVUDSKRIVNING TIL ET KLASSETRIN" 4110 PRINT "<134>";XY$(15);XY$(9);"C : BREVUDSKRIVNING TIL ENKELT KLASSE" 4120 PRINT "<134>";XY$(15);XY$(11);"D : BREVUDSKRIVNING TIL ENKELT ELEV ->" 4130 PRINT "<134>";XY$(25);XY$(12);"SÆRLIG TEKST FRA KONTORET" 4140 PRINT "<134>";XY$(15);XY$(14);"E : INDSKRIVNING AF STANDARD BREVTEKST" 4150 PRINT "<134>";XY$(15);XY$(16);"F : TILBAGE TIL HOVEDOPLYSNINGEN" 4160 PRINT "<134>";XY$(13);XY$(19);"-----------------------------------------------" 4170 REPEAT 4180 PRINT "<134>";XY$(22);XY$(23); 4190 INPUT "HVILKEN PROCEDURE ØNSKES BENYTTET : <30>",FUNKVALG$ 4200 UNTIL FUNKVALG$>="A" AND FUNKVALG$<="F" 4210 IF FUNKVALG$<"F" THEN EXEC TEKSTLÆS 4220 CASE FUNKVALG$ OF 4230 REM 4240 WHEN "A" 4250 LET KLDISK$="1.G2.G3.G" 4260 FOR HOP=1 TO 7 STEP 3 4270 LET CHECKL$=KLDISK$(HOP,HOP+2) 4280 EXEC DISKONT 4290 EXEC CONNKLAS 4300 NEXT HOP 4310 WHEN "B" 4320 PRINT "<134>";XY$(1);XY$(3);"<31>" 4330 REPEAT 4340 PRINT "<134>";XY$(10);XY$(8); 4350 INPUT "HVILKET KLASSETRIN SKAL BREVENE UDSKRIVES TIL : <30>",KLTRIN$ 4360 UNTIL KLTRIN$(1)>="1" AND KLTRIN$(1)<="3" OR KLASSE$="INGEN" 4370 LET CHECKL$=KLTRIN$(1),".G" 4380 IF KLTRIN$<>"INGEN" THEN 4390 EXEC DISKONT 4400 EXEC CONNKLAS 4410 ENDIF 4420 WHEN "C" 4430 PRINT "<134>";XY$(1);XY$(3);"<31>" 4440 REPEAT 4450 REPEAT 4460 PRINT "<134>";XY$(10);XY$(8); 4470 INPUT "HVILKEN KLASSE SKAL BREVENE UDSKRIVES TIL : <30>",KLASSE$ 4480 UNTIL KLASSE$(1)>="1" AND KLASSE$(1)<="3" AND LEN(KLASSE$)=2 4490 LET CHECKL$=KLASSE$(1),".G" 4500 EXEC DISKONT 4510 LET HOP=-3 4520 REPEAT 4530 LET HOP=HOP+4 4540 UNTIL KLKODE$(HOP,HOP+1)=KLASSE$ OR HOP>=40 4550 UNTIL KLKODE$(HOP,HOP+1)=KLASSE$ 4560 CONNECT KLKODE$(HOP+2,HOP+3),1 4570 EXEC OPENFILS 4580 EXEC KLASLÆS 4590 CLOSE 4600 WHEN "D" 4610 REPEAT 4620 PRINT "<134>";XY$(1);XY$(3);"<31>" 4630 REPEAT 4640 PRINT "<134>";XY$(10);XY$(8); 4650 INPUT "HVILKEN KLASSE GÅR PERSONEN I : <30>",KLASSE$ 4660 UNTIL KLASSE$(1)>="1" AND KLASSE$(1)<="3" AND LEN(KLASSE$)=2 4670 LET CHECKL$=KLASSE$(1),".G" 4680 EXEC DISKONT 4690 LET STED=-3 4700 REPEAT 4710 LET STED=STED+4 4720 UNTIL KLKODE$(STED,STED+1)=KLASSE$ OR STED>=41 4730 IF KLKODE$(STED,STED+1)=KLASSE$ THEN 4740 CONNECT KLKODE$(STED+2,STED+3),1 4750 OPEN FILE(1,1)"ENR-RNR." 4760 MAT READ FILE(1)ENRRNR 4770 CLOSE FILE(1) 4780 REPEAT 4790 REPEAT 4800 PRINT "<134>";XY$(10);XY$(8);"<31>"; 4810 INPUT "HVAD ER PERSONENS NUMMER : <30>",ENR 4820 LET RNR=ENRRNR(1,ENR) 4830 IF RNR<=0 OR RNR>30 THEN PRINT "<7>" 4840 UNTIL RNR>0 AND RNR<=30 4850 IF RNR THEN 4860 EXEC OPENFILS 4870 EXEC FILLÆS 4880 READ FILE(5,RNR)PJÆK,SUMPJÆK,TIMER,SUMTIMER 4890 PRINT "<134>";XY$(10);XY$(8);"HEDDER PERSONEN : ";FNAVN$;MNAVN$;;ENAVN$;"<30>" 4900 PRINT "<134>";XY$(10);XY$(12); 4910 INPUT "SVAR : <30>",SVAR$ 4920 CLOSE 4930 ELSE 4940 LET SVAR$="JA" 4950 ENDIF 4960 UNTIL SVAR$="JA" 4970 ELSE 4980 PRINT "<134>";XY$(10);XY$(8);KLASSE$;"<7> FINDES IKKE I <30>";CHECKL$ 4990 DELAY=3 5000 ENDIF 5010 UNTIL KLKODE$(STED,STED+1)=KLASSE$ 5020 IF RNR THEN 5030 CASE CPR$(LEN(CPR$)) OF 5040 REM 5050 WHEN "1","3","5","7","9" 5060 LET HAHU$="HAN" 5070 WHEN "2","4","6","8","0" 5080 LET HAHU$="HUN" 5090 ENDCASE 5100 PRINT "<134>";XY$(1);XY$(3);"<31>" 5110 PRINT "<134>";XY$(10);XY$(9);FNAVN$;;ENAVN$;" HAR I FORRIGE MÅNED FORSØMT";INT((PJÆK/TIMER)*100);"%" 5120 PRINT "<134>";XY$(10);XY$(11); 5130 INPUT "VIL DU LAVE EN SÆRLIG TEKST TIL ELEVEN : <30>",SVAR$ 5140 IF SVAR$="JA" THEN 5150 CLOSE 5160 LET TRETEKST=0; TEKSTADR=1; STRAFTEX=1 5170 EXEC TEKSTIND 5180 EXEC TEKST 5190 EXEC FORM 5200 CLOSE 5210 ELSE 5220 PRINT "<134>";XY$(1);XY$(3);"<31>" 5230 PRINT "<134>";XY$(10);XY$(8); 5240 INPUT "HVILKEN TEKST SKAL UDSKRIVES (D),(A),(B),(C),(INGEN) : ",SVAR$ 5250 CASE SVAR$ OF 5260 REM 5270 WHEN "D" 5280 LET STRAFTEX=1 5290 WHEN "A" 5300 LET STRAFTEX=2 5310 WHEN "B" 5320 LET STRAFTEX=3 5330 WHEN "C" 5340 LET STRAFTEX=4 5350 ENDCASE 5360 IF SVAR$>="A" AND SVAR$<="D" THEN 5370 EXEC TEKST 5380 EXEC FORM 5390 ENDIF 5400 ENDIF 5410 ENDIF 5420 CLOSE 5430 WHEN "E" 5440 EXEC STANDTEX 5450 ENDCASE 5460 UNTIL FUNKVALG$="F" 5470 ENDPROC BREVVALG 5480 REM ------------------------------------------------------------------------- 5490 OPEN FILE(1,1)"NUTID" 5500 OPEN FILE(2,1)"MÅNEDER" 5510 READ FILE(1)ÅR,MÅNED,DATO 5520 READ FILE(2)MÅNEDER$ 5530 CLOSE 5540 LET MÅNED$=MÅNEDER$(MÅNED*10-9,MÅNED*10); I=10 5550 REPEAT 5560 LET I=I-1 5570 UNTIL MÅNED$(I)<>" " 5580 LET MÅNED$=MÅNED$(1,I) 5590 EXEC BREVALG 5600 PRINT "<134>";XY$(1);XY$(1); 5610 CONNECT "LIB",1 5620 ENTER "PROGVALG"