|
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: 6556 (0x199c)
Types: TextFile
Notes: KLLISTE::KLLISTER, KLLISTER
Names: »KLLISTER«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »KLLISTE::KLLISTER«
«ff» 1770 REM ----------------------------------------------------------------------- 1780 PROC KLLISTER 1790 REPEAT 1800 PRINT "<140><134>";XY$(27);XY$(1);"UDSKRIVNING AF KLASSELISTER" 1810 PRINT "<134>";XY$(13);XY$(2);"-------------------------------------------------" 1820 PRINT "<134>";XY$(15);XY$(5);"A : RENE KLASSELISTER FOR ALLE KLASSER" 1830 PRINT "<134>";XY$(15);XY$(7);"B : RENE KLASSELISTER FOR ET KLASSETRIN" 1840 PRINT "<134>";XY$(15);XY$(9);"C : RENE KLASSELISTER FOR EN ENKELT KLASSE" 1850 PRINT "<134>";XY$(15);XY$(11);"D : HOLD LISTER FOR ALLE HOLD" 1860 PRINT "<134>";XY$(15);XY$(13);"E : HOLD LISTER FOR ENKELT KLASSETRIN" 1870 PRINT "<134>";XY$(15);XY$(15);"F : HOLD LISTE FOR ENKELT HOLD" 1880 PRINT "<134>";XY$(15);XY$(17);"G : TILBAGE TIL HOVEDOPLYSNINGEN" 1890 PRINT "<134>";XY$(13);XY$(20);"-------------------------------------------------" 1900 REPEAT 1910 PRINT "<134>";XY$(30);XY$(23); 1920 INPUT "HVILKEN FUNKTION : <30>",FUNKVALG$ 1930 UNTIL FUNKVALG$>="A" AND FUNKVALG$<="G" 1940 CASE FUNKVALG$ OF 1950 REM 1960 WHEN "A" 1970 LET KLDISK$="1.G2.G3.G" 1980 FOR J=1 TO 7 STEP 3 1990 LET CHECKL$=KLDISK$(J,J+2) 2000 EXEC DISKONT 2010 EXEC CONNKLAS 2020 NEXT J 2030 WHEN "B" 2040 PRINT "<134>";XY$(1);XY$(3);"<31>" 2050 REPEAT 2060 PRINT "<134>";XY$(15);XY$(8); 2070 INPUT "FOR HVILKET KLASSETRIN SKAL LISTERNE UDSKRIVES : <30>",KLTRIN$ 2080 UNTIL KLTRIN$(1)>="1" AND KLTRIN$(1)<="3" OR KLTRIN$="INGEN" 2090 IF KLTRIN$<>"INGEN" THEN 2100 LET CHECKL$=KLTRIN$(1),".G" 2110 EXEC DISKONT 2120 EXEC CONNKLAS 2130 ENDIF 2140 WHEN "C" 2150 PRINT "<134>";XY$(1);XY$(3);"<31>" 2160 REPEAT 2170 REPEAT 2180 PRINT "<134>";XY$(15);XY$(8); 2190 INPUT "FOR HVILKEN KLASSE SKAL LISTEN UDSKRIVES :<30> ",KLASSE$ 2200 UNTIL KLASSE$(1)>="1" AND KLASSE$(1)<="3" AND LEN(KLASSE$)>=2 OR KLASSE$="INGEN" 2210 LET CHECKL$=KLASSE$(1),".G"; IORDEN=1 2220 EXEC DISKONT 2230 LET I=1 2240 REPEAT 2250 IF KLKODE$(I,I+1)=KLASSE$ THEN 2260 LET OMRÅDE$=KLKODE$(I+2,I+3) 2270 ENDIF 2280 LET I=I+4 2290 UNTIL KLKODE$(I-4,I-3)=KLASSE$ 2300 LET I=I-4 2310 IF KLKODE$(I,I+1)<>KLASSE$ THEN 2320 PRINT "<134>";XY$(15);XY$(8);KLASSE$;" FINDES IKKE I <34>";CHECKL$;"<34><7><30>" 2330 DELAY=2 2340 LET IORDEN=0 2350 ENDIF 2360 UNTIL IORDEN 2370 CONNECT OMRÅDE$,1 2380 OPEN FILE(1,0)"NR-GR-NA" 2390 OPEN FILE(2,0)"AD-CP-TL" 2400 OPEN FILE(5,1)"ENR-RNR." 2410 MAT READ FILE(5)ENRRNR 2420 CLOSE FILE(5) 2430 EXEC KLASLÆS 2440 CLOSE 2450 WHEN "D" 2460 LET KLDISK$="2.G3.G" 2470 FOR A=1 TO 4 STEP 3 2480 LET CHECKL$=KLDISK$(A,A+2) 2490 EXEC DISKONT 2500 EXEC CONNGREN 2510 NEXT A 2520 WHEN "E" 2530 PRINT "<134>";XY$(1);XY$(3);"<31>" 2540 REPEAT 2550 PRINT "<134>";XY$(15);XY$(8); 2560 INPUT "FOR HVILKET KLASSETRIN SKAL LISTERNE UDSKRIVES <30>:",KLTRIN$ 2570 UNTIL KLTRIN$(1)="2" OR KLTRIN$(1)="3" OR KLTRIN$="INGEN" 2580 IF KLTRIN$<>"INGEN" THEN 2590 LET CHECKL$=KLTRIN$(1),".G" 2600 EXEC DISKONT 2610 EXEC CONNGREN 2620 ENDIF 2630 WHEN "F" 2640 REPEAT 2650 PRINT "<134>";XY$(1);XY$(3);"<31>" 2660 REPEAT 2670 PRINT "<134>";XY$(15);XY$(8); 2680 INPUT "FOR HVILKET HOLD SKAL LISTEN UDSKRIVES<30> :",KLASSE$ 2690 UNTIL ((KLASSE$(1)="2" OR KLASSE$(1)="3") AND LEN(KLASSE$)>=3) OR KLASSE$="INGEN" 2700 IF KLASSE$<>"INGEN" THEN 2710 LET CHECKL$=KLASSE$(1),".G"; A=0 2720 EXEC DISKONT 2730 REPEAT 2740 LET A=A+1 2750 UNTIL KLASSE$(2,LEN(KLASSE$))=GRENKODE$(GRENMAT(A),GRENMAT(A+1)-1) OR NOT GRENMAT(A+2) 2760 IF KLASSE$(2,LEN(KLASSE$))=GRENKODE$(GRENMAT(A),GRENMAT(A+1)-1) THEN 2770 LET OBJECT$=KLASSE$(2,LEN(KLASSE$)); CHECGREN$=KLASSE$(LEN(KLASSE$)); FORMAT=1 2780 OPEN FILE(7,11)"$LPT" 2790 EXEC FORMAT 2800 FOR B=1 TO LEN(OBJECT$)-1 2810 LET KLAS$=KLTRIN$(1),OBJECT$(B); C=-3 2820 REPEAT 2830 LET C=C+4 2840 UNTIL KLKODE$(C,C+1)=KLAS$ OR C>=40 2850 IF KLKODE$(C,C+1)=KLAS$ THEN 2860 CONNECT KLKODE$(C+2,C+3),1 2870 OPEN FILE(1,0)"NR-GR-NA" 2880 OPEN FILE(2,0)"AD-CP-TL" 2890 OPEN FILE(5,1)"ENR-RNR." 2900 MAT READ FILE(5)ENRRNR 2910 CLOSE FILE(5) 2920 EXEC KLASSCAN 2930 ELSE 2940 PRINT "<134>";XY$(15);XY$(10);"<31><7>";KLAS$;"FINDES IKKE I ";KLTRIN$ 2950 DELAY=2 2960 ENDIF 2970 CLOSE FILE(1) 2980 CLOSE FILE(2) 2990 NEXT B 3000 LET FORMAT=3 3010 EXEC FORMAT 3020 CLOSE FILE(7) 3030 ELSE 3040 PRINT "<134>";XY$(15);XY$(10);"<31><7>KOMBINATIONEN ";KLASSE$(2,LEN(KLASSE$));" FINDES IKKE I ";KLTRIN$ 3050 DELAY=2 3060 ENDIF 3070 PRINT "<134>";XY$(1);XY$(3);"<31>" 3080 PRINT "<134>";XY$(15);XY$(8); 3090 INPUT "SKAL DER SKRIVES FLERE ENKELTE LISTER : ",SVAR$ 3100 ELSE 3110 LET SVAR$="NEJ" 3120 ENDIF 3130 UNTIL SVAR$<>"JA" 3140 WHEN "G" 3150 REM 3160 ENDCASE 3170 UNTIL FUNKVALG$="G" 3180 ENDPROC KLLISTER 3190 REM ----------------------------------------------------------------------- 3200 OPEN FILE(1,1)"NUTID" 3210 OPEN FILE(2,1)"MÅNEDER" 3220 READ FILE(1)ÅR,MÅNED 3230 READ FILE(2)MÅNEDER$ 3240 CLOSE 3250 LET MÅNED$=MÅNEDER$(MÅNED*10-9,MÅNED*10) 3260 EXEC KLLISTER 3270 CONNECT "LIB",1 3280 PRINT "<29>" 3290 ENTER "PROGVALG"