DataMuseum.dk

top - download

    Length: 2129 (0x851)
    Types: TextFile
    Notes: FORSØM::NUMERISK, NUMERISK
    Names: »NUMERISK«

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

TextFile

«ff»
  0790 REM -----------------------------------------------------------------------
  0800 PROC NUMERISK
  0810   LET PROCEDUR$="INDSKRIVNING AF FORSØMMELSER PR. ELEV I"
  0820   LET XKOR=18
  0830   EXEC KLVALG
  0840   PRINT "<134>";XY$(1);XY$(3);"<31>"
  0850   PRINT "<134>";XY$(2);XY$(4);"NR.      NAVN                                         MÅNED      UNDERVIST"
  0860   PRINT "<134>";XY$(1);XY$(5);"-----    ----------------    --------------------     -------    -----------"
  0870   OPEN FILE(1,0)"NR-GR-NA"
  0880   OPEN FILE(2,0)"NUMERISK"
  0890   OPEN FILE(3,1)"ENR-RNR."
  0900   MAT READ FILE(3)ENRRNR
  0910   CLOSE FILE(3)
  0920   LET OMGANG=1; FØRSTE=1; TÆLLER2=0; PTÆLLER=0
  0930   REPEAT
  0940     IF OMGANG THEN 
  0950       LET TÆLLER=1; KONSTANT=18; OMGANG=0; TÆLLER1=0
  0960       EXEC ELEVPLOT
  0970     ELSE
  0980       LET KONSTANT=30; TÆLLER1=TÆLLER1-1
  0990       EXEC ELEVPLOT
  1000     ENDIF
  1010     LET PLOTTER=6
  1020     REPEAT
  1030       REPEAT
  1040         LET TÆLLER2=TÆLLER2+1
  1050       UNTIL (ENRRNR(1,TÆLLER2)<>0 AND ENRRNR(1,TÆLLER2)<100) OR TÆLLER2=30
  1060       LET RNR=ENRRNR(1,TÆLLER2)
  1070       IF RNR>0 AND RNR<100 THEN 
  1080         PRINT "<134>";XY$(57);XY$(PLOTTER);
  1090         INPUT "",MÅNED
  1100         IF FØRSTE THEN 
  1110           PRINT "<134>";XY$(69);XY$(PLOTTER);
  1120           INPUT "",MAXTIMER
  1130           LET FØRSTE=0
  1140         ELSE
  1150           IF VALG$="K" THEN 
  1160             PRINT "<134>";XY$(68);XY$(PLOTTER);MAXTIMER
  1170           ELSE
  1180             PRINT "<134>";XY$(69);XY$(PLOTTER);
  1190             INPUT "",MAXTIMER
  1200           ENDIF
  1210         ENDIF
  1220         READ FILE(2,RNR)PJÆK,SUMPJÆK,TIMER,SUMTIMER
  1230         WRITE FILE(2,RNR)MÅNED,SUMPJÆK+MÅNED,MAXTIMER,SUMTIMER+MAXTIMER
  1240       ENDIF
  1250       LET PLOTTER=PLOTTER+1; PTÆLLER=PTÆLLER+1
  1260     UNTIL RNR=0 OR PTÆLLER=18 OR TÆLLER2=30
  1270   UNTIL RNR=0 OR PTÆLLER=30 OR TÆLLER2=30
  1280   CLOSE 
  1290   PRINT "<140>"
  1300 ENDPROC NUMERISK