DataMuseum.dk

top - download

    Length: 5976 (0x1758)
    Types: TextFile
    Notes: FORLIST::INFORMAT, INFORMAT
    Names: »INFORMAT«

└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
    └─⟦this⟧ 

TextFile

«ff»
  2240 ENDPROC GRENVALG
  2250 REM -------------------------------------------------------------------------
  2260 PROC INFORMAT
  2270   REPEAT
  2280     PRINT "<140><134>";XY$(13);XY$(2);"------------------------------------------------------------"
  2290     PRINT "<134>";XY$(23);XY$(1);"UDSKRIVNING AF FORSØMMELSESLISTER"
  2300     PRINT "<134>";XY$(15);XY$(5);"A :  RENE FORSØMMELSESLISTER FOR ALLE KLASSER"
  2310     PRINT "<134>";XY$(15);XY$(7);"B :  RENE FORSØMMELSESLISTER FOR ENKELT KLASSETRIN"
  2320     PRINT "<134>";XY$(15);XY$(9);"C :  RENE FORSØMMELSESLISTER FOR EN ENKELT KLASSE"
  2330     PRINT "<134>";XY$(15);XY$(11);"D :  HOLD FORSØMMELSESLISTER FOR ALLE KLASSER"
  2340     PRINT "<134>";XY$(15);XY$(13);"E :  HOLD FORSØMMELSESLISTER FOR ENKELT KLASSETRIN"
  2350     PRINT "<134>";XY$(15);XY$(15);"F :  HOLD FORSØMMELSESLISTER FOR EN ENKELT KLASSE"
  2360     PRINT "<134>";XY$(15);XY$(17);"G :  TILBAGE TIL HOVEDOPLYSNING"
  2370     PRINT "<134>";XY$(13);XY$(20);"------------------------------------------------------------"
  2380     REPEAT
  2390       PRINT "<134>";XY$(26);XY$(23);
  2400       INPUT "HVILKEN PROCEDURE VÆLGES : ",FUNKVALG$
  2410     UNTIL FUNKVALG$>="A" AND FUNKVALG$<="G"
  2420     CASE FUNKVALG$ OF 
  2430       REM
  2440     WHEN "A"
  2450       LET TRIN=1
  2460       WHILE TRIN<=3 DO 
  2470         CASE TRIN OF 
  2480           REM
  2490         WHEN 1
  2500           LET CHECKL$="1.G"
  2510         WHEN 2
  2520           LET CHECKL$="2.G"
  2530         WHEN 3
  2540           LET CHECKL$="3.G"
  2550         ENDCASE
  2560         EXEC DISKONT
  2570         EXEC CONNKLAS
  2580         LET TRIN=TRIN+1
  2590       ENDWHILE
  2600     WHEN "B"
  2610       PRINT "<134>";XY$(1);XY$(3);"<31>"
  2620       PRINT "<134>";XY$(15);XY$(8);
  2630       INPUT "FOR HVILKET KLASSETRIN ØNSKES LISTERNE UDSKREVET : ",CHECKL$
  2640       EXEC DISKONT
  2650       EXEC CONNKLAS
  2660     WHEN "C"
  2670       PRINT "<134>";XY$(1);XY$(3);"<31>"
  2680       REPEAT
  2690         PRINT "<134>";XY$(15);XY$(8);
  2700         INPUT "FORHVILKEN KLASSE ØNSKES LISTEN UDSKREVET : ",KLASSE$
  2710       UNTIL KLASSE$(1)>="1" AND KLASSE$(1)<="3" OR KLASSE$(1)="I"
  2720       WHILE KLASSE$(1,2)<>"IN" DO 
  2730         LET CHECKL$=KLASSE$(1),".G"
  2740         EXEC DISKONT
  2750         LET TÆLLER=1
  2760         WHILE TÆLLER<LEN(KLKODE$) DO 
  2770           IF KLASSE$(1,2)=KLKODE$(TÆLLER,TÆLLER+1) THEN 
  2780             LET OMRÅDE$=KLKODE$(TÆLLER+2,TÆLLER+3)
  2790             LET STED=TÆLLER+2; TÆLLER=LEN(KLKODE$)
  2800           ENDIF
  2810           LET TÆLLER=TÆLLER+4
  2820         ENDWHILE
  2830         IF LEN(OMRÅDE$)=0 THEN 
  2840           PRINT "<134>";XY$(15);XY$(8);"FEJL-INDTASTNING :<7><30>"
  2850           PRINT "<134>";XY$(15);XY$(9);KLASSE$;" INDEHOLDES IKKE I SYSTEMET <30>"
  2860           DELAY=5
  2870           PRINT "<134>";XY$(1);XY$(3);"<31>"
  2880         ELSE
  2890           CONNECT OMRÅDE$,1
  2900         ENDIF
  2910         IF LEN(OMRÅDE$)<>0 THEN EXEC KLASLÆS
  2920         REPEAT
  2930           PRINT "<134>";XY$(15);XY$(8);
  2940           INPUT "FOR HVILKEN KLASSE ØNSKES LISTEN UDSKREVET : <30>",KLASSE$
  2950         UNTIL KLASSE$(1)>="1" AND KLASSE$(1)<="3" OR KLASSE$(1)="I"
  2960       ENDWHILE
  2970     WHEN "D"
  2980       LET TRIN=2
  2990       WHILE TRIN<=3 DO 
  3000         CASE TRIN OF 
  3010           REM
  3020         WHEN 2
  3030           LET CHECKL$="2.G"
  3040         WHEN 3
  3050           LET CHECKL$="3.G"
  3060         ENDCASE
  3070         EXEC DISKONT
  3080         EXEC GRENVALG
  3090         LET TRIN=TRIN+1
  3100       ENDWHILE
  3110     WHEN "E"
  3120       PRINT "<134>";XY$(1);XY$(3);"<31>"
  3130       PRINT "<134>";XY$(15);XY$(8);
  3140       INPUT "FOR HVILKET KLASSETRIN ØNSKES LISTERNE UDSKREVET : <30>",CHECKL$
  3150       EXEC DISKONT
  3160       EXEC GRENVALG
  3170     WHEN "F"
  3180       REPEAT
  3190         LET FORTSÆTE=0; SLUT=0
  3200         PRINT "<134>";XY$(1);XY$(3);"<31>"
  3210         REPEAT
  3220           REPEAT
  3230             PRINT "<134>";XY$(15);XY$(8);
  3240             INPUT "FOR HVILKEN HOLDKLASSE ØNSKES LISTERNE UDSKREVET : <30>",KLASSE$
  3250           UNTIL KLASSE$(1)>="1" AND KLASSE$(1)<="3" OR KLASSE$(1)="I"
  3260           IF KLASSE$(1)<>"I" THEN 
  3270             LET CHECKL$=KLASSE$(1),".G"
  3280             EXEC DISKONT
  3290             LET RYK=1; FUNDET=0
  3300             REPEAT
  3310               IF GRENKODE$(GRENMAT(RYK),GRENMAT(RYK+1)-1)=KLASSE$(2,LEN(KLASSE$)) THEN 
  3320                 LET OMRÅDER$=KLASSE$(2,LEN(KLASSE$)-1); HOLD$=KLASSE$(LEN(KLASSE$))
  3330                 LET GRENE$=KLASSE$(2,LEN(KLASSE$))
  3340                 LET FUNDET=1
  3350               ENDIF
  3360               LET RYK=RYK+1
  3370             UNTIL GRENMAT(RYK+1)=0 OR FUNDET
  3380             IF NOT FUNDET THEN 
  3390               PRINT "<134>";XY$(15);XY$(15);KLASSE$;" EKSISTERER IKKE ! <7><30>"
  3400             ELSE
  3410               LET FORTSÆTE=1
  3420             ENDIF
  3430           ELSE
  3440             LET SLUT=1
  3450           ENDIF
  3460         UNTIL FORTSÆTE OR SLUT
  3470         IF NOT SLUT THEN 
  3480           EXEC CONNOM
  3490         ENDIF
  3500       UNTIL KLASSE$(1)="I"
  3510     ENDCASE
  3520   UNTIL FUNKVALG$="G"
  3530 ENDPROC INFORMAT
  3540 REM -------------------------------------------------------------------------
  3550 OPEN FILE(1,1)"NUTID"
  3560 READ FILE(1)ÅR,MÅNED,DATO
  3570 CLOSE FILE(1)
  3580 OPEN FILE(1,1)"MÅNEDER"
  3590 READ FILE(1)MÅNEDER$
  3600 CLOSE FILE(1)
  3610 LET MÅNED$=MÅNEDER$(FNX(MÅNED),FNX(MÅNED)+9)
  3620 EXEC INFORMAT
  3630 CONNECT "LIB",1
  3640 PRINT "<29>"
  3650 ENTER "PROGVALG"