DataMuseum.dk

top - metrics - download

    Length: 2893 (0xb4d)
    Types: TextFile
    Notes: OPDATER-, OPDATER::OPDATER-
    Names: »OPDATER-«

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

TextFile

«ff»
  5960 REM -----------------------------------------------------------------------
  5970 PROC OPDATER
  5980   REPEAT
  5990     PRINT "<134>";XY$(1);XY$(1);"<30>"
  6000     PRINT "<134>";XY$(1);XY$(3);"<31>"
  6010     PRINT "<134>";XY$(30);XY$(1);"OPDATERING"
  6020     PRINT "<134>";XY$(15);XY$(5);"A :  INDSKRIVNING AF 1.G. SLETTELSE AF 3.G"
  6030     PRINT "<134>";XY$(15);XY$(7);"B :  OPRYKNING AF 1.G TIL 2.G. INDSKRIVNING AF GREN+VALGFAG"
  6040     PRINT "<134>";XY$(15);XY$(9);"C :  OPRYKNING AF 2.G TIL 3.G"
  6050     PRINT "<134>";XY$(15);XY$(11);"D :  TILBAGE TIL HOVEDOPLYSNINGEN"
  6060     PRINT "<134>";XY$(13);XY$(14);"---------------------------------------------------------------"
  6070     REPEAT
  6080       PRINT "<134>";XY$(30);XY$(18);
  6090       INPUT "HVILKEN FUNKTION : <31>",FUNKVALG$
  6100     UNTIL FUNKVALG$>="A" AND FUNKVALG$<="D"
  6110     CASE FUNKVALG$ OF 
  6120       REM
  6130     WHEN "A"
  6140       CONNECT "OVERSIGT",1
  6150       OPEN FILE(1,0)"TID"
  6160       READ FILE(1,1)ÅR,MÅNED,DATO
  6170       CLOSE FILE(1)
  6180       IF AKTÅR<>ÅR THEN 
  6190         OPEN FILE(1,0)"TID"
  6200         WRITE FILE(1,1)AKTÅR,AKTMÅNED,AKTDATO
  6210         CLOSE FILE(1)
  6220         LET CHECKL$="3.G"; ALT=1; BOOLSK=1; FØRSTEG=1
  6230         EXEC DISKONT
  6240         EXEC FILORDEN
  6250         EXEC FILBYTTE
  6260         EXEC KLASVALG
  6270       ELSE
  6280         LET CHECKL$="1.G"; ALT=0; BOOLSK=0; FØRSTEG=1
  6290         EXEC DISKONT
  6300         EXEC KLASVALG
  6310       ENDIF
  6320     WHEN "B"
  6330       CONNECT "OVERSIGT",1
  6340       OPEN FILE(1,0)"TID"
  6350       READ FILE(1,1)ÅR,MÅNED,DATO
  6360       CLOSE FILE(1)
  6370       IF ÅR=AKTÅR AND MÅNED=AKTMÅNED OR MÅNED+1=AKTMÅNED THEN 
  6380         LET CHECKL$="2.G"; FØRSTEG=0
  6390       ELSE
  6400         LET CHECKL$="1.G"; FØRSTEG=0
  6410       ENDIF
  6420       EXEC DISKONT
  6430       IF CHECKL$="1.G" THEN 
  6440         EXEC NULSTIL
  6450         EXEC FILORDEN
  6460       ENDIF
  6470       OPEN FILE(1,0)"TID"
  6480       WRITE FILE(1,1)AKTÅR,AKTMÅNED,AKTDATO
  6490       CLOSE FILE(1)
  6500       EXEC KLASVALG
  6510     WHEN "C"
  6520       LET CHECKL$="2.G"
  6530       EXEC DISKONT
  6540       EXEC NULSTIL
  6550       EXEC FILORDEN
  6560     ENDCASE
  6570   UNTIL FUNKVALG$="D"
  6580 ENDPROC OPDATER
  6590 REM -----------------------------------------------------------------------
  6600 OPEN FILE(2,1)"POST-NR."
  6610 OPEN FILE(1,1)"NUTID"
  6620 READ FILE(1)AKTÅR,AKTMÅNED,AKTDATO
  6630 READ FILE(2)POSTTEXT$
  6640 MAT READ FILE(2)POSTMAT
  6650 CLOSE 
  6660 PRINT "<140><134>";XY$(13);XY$(2);"---------------------------------------------------------------"
  6670 EXEC OPDATER
  6680 CONNECT "LIB",1
  6690 ENTER "PROGVALG"