DataMuseum.dk

top - download

    Length: 2142 (0x85e)
    Types: TextFile
    Notes: ELEVRET::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»
  8570 REM -------------------------------------------------------------------------
  8580 PROC INFORMAT
  8590   REPEAT
  8600     CONNECT "LIB",1
  8610     PRINT "<140><134>";XY$(22);XY$(1);"RETTELSER AF ELEVOPLYSNINGER."
  8620     PRINT "<134>";XY$(13);XY$(2);"---------------------------------------------------------------"
  8630     PRINT "<134>";XY$(15);XY$(5);"A :  KONTROL AF ELEVOPLYSNINGER MED MULIGHED FOR RETTELSER"
  8640     PRINT "<134>";XY$(15);XY$(7);"B :  RETTELSE AF OPLYSNINGER FOR FORUDGÅENDE KENDT ELEV"
  8650     PRINT "<134>";XY$(15);XY$(9);"C :  INDSKRIVNING AF NY ELEV"
  8660     PRINT "<134>";XY$(15);XY$(11);"D :  SLETTELSE AF ELEVER"
  8670     PRINT "<134>";XY$(15);XY$(13);"E :  TILBAGE TIL HOVEDOPLYSNING"
  8680     PRINT "<134>";XY$(13);XY$(16);"---------------------------------------------------------------"
  8690     REPEAT
  8700       PRINT "<134>";XY$(26);XY$(20);
  8710       INPUT "HVILKEN FUNKTION VÆLGES : <30>",FUNKVALG$
  8720     UNTIL FUNKVALG$>="A" AND FUNKVALG$<="E"
  8730     CASE FUNKVALG$ OF 
  8740       REM
  8750     WHEN "A"
  8760       EXEC MATTEKST
  8770       LET PROCEDUR$="KONTROL AF ELEVOPLYSNINGER I"
  8780       LET XKOR=19
  8790       EXEC KLVALG
  8800       EXEC UDTEKST
  8810       LET TÆLLER=0; FORTSÆT=1; ELEVFOR=1; MUGRPLOT=1; SLUT=0; SPØRGE=1; SINGLE=0
  8820       EXEC SCROOL
  8830     WHEN "B"
  8840       EXEC MATTEKST
  8850       LET PROCEDUR$="RETTELSER AF OPLYSNINGER FOR KENDT ELEV I"
  8860       LET XKOR=17
  8870       EXEC KLVALG
  8880       EXEC ELEVVALG
  8890     WHEN "C"
  8900       EXEC MATTEKST
  8910       LET PROCEDUR$="INDSKRIVNING AF NYE ELEVER I"
  8920       LET XKOR=24
  8930       EXEC KLVALG
  8940       EXEC ELEVIND
  8950     WHEN "D"
  8960       LET PROCEDUR$="SLETTELSE AF ELEVER I"
  8970       LET XKOR=27
  8980       EXEC KLVALG
  8990       EXEC EKONTROL
  9000     ENDCASE
  9010   UNTIL FUNKVALG$="E"
  9020 ENDPROC INFORMAT
  9030 EXEC INFORMAT
  9040 REM -----------------------------------------------------------------------
  9050 ENTER "PROGVALG"