DataMuseum.dk

top - metrics - download

    Length: 1691 (0x69b)
    Types: TextFile
    Notes: FORLIST::KLASLÆS, KLASLÆS 
    Names: »KLASLÆS«

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

TextFile

«ff»
  1360 ENDPROC DISKONT
  1370 REM -------------------------------------------------------------------------
  1380 PROC KLASLÆS
  1390   OPEN FILE(1,0)"NR-GR-NA"
  1400   OPEN FILE(2,0)"NUMERISK"
  1410   OPEN FILE(4,1)"ENR-RNR."
  1420   OPEN FILE(7,11)"$LPT"
  1430   MAT READ FILE(4)ENRRNR
  1440   CLOSE FILE(4)
  1450   LET FORMTOP=1; TÆLLER=0; TERMINAT=0; KONTROL=0
  1460   REPEAT
  1470     LET KONTROL=KONTROL+1
  1480   UNTIL ENRRNR(1,KONTROL)>=1 AND ENRRNR(1,KONTROL)<=30 OR KONTROL=30
  1490   PRINT "<134>";XY$(57);XY$(1);"FOR ";KLKODE$(STED-2,STED-1)
  1500   IF KONTROL>=1 AND KONTROL<=30 AND ENRRNR(1,KONTROL)>=1 AND ENRRNR(1,KONTROL)<=30 THEN 
  1510     LET KLASSE$=KLKODE$(STED-2,STED-1)
  1520     EXEC FORMAT
  1530     LET FORMTOP=0; OMGANG=0
  1540     WHILE TÆLLER<=30 DO 
  1550       IF TÆLLER<=29 THEN 
  1560         REPEAT
  1570           LET TÆLLER=TÆLLER+1
  1580         UNTIL (ENRRNR(1,TÆLLER)<>0 AND ENRRNR(1,TÆLLER)<100) OR TÆLLER=30
  1590         LET RNR=ENRRNR(1,TÆLLER)
  1600         IF RNR>=1 AND RNR<=30 AND TÆLLER<=30 THEN 
  1610           READ FILE(1,RNR)NR,GREN$,ENAVN$,FNAVN$,MNAVN$
  1620           READ FILE(2,RNR)PJÆK,SUMPJÆK,TIMER,SUMTIMER
  1630           IF TIMER<>0 THEN 
  1640             LET MÅNEDPRO=(PJÆK*100)/TIMER; ÅRPRO=(SUMPJÆK*100)/SUMTIMER
  1650             EXEC BREVVALG
  1660           ELSE
  1670             LET MÅNEDPRO=0; ÅRPRO=0
  1680           ENDIF
  1690           EXEC FORMAT
  1700         ELSE
  1710           LET TÆLLER=31
  1720         ENDIF
  1730       ENDIF
  1740     ENDWHILE
  1750     LET TERMINAT=1
  1760     EXEC FORMAT
  1770   ENDIF
  1780   CLOSE