DataMuseum.dk

top - metrics - download

    Length: 2478 (0x9ae)
    Types: TextFile
    Notes: MAIN    , PROGRAM::MAIN
    Names: »MAIN«

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

TextFile

«ff»
  0090 REM -----------------------------------------------------------------------
  0100 REPEAT
  0110   CONNECT "LIB",1
  0120   ON ESC THEN EXEC BESKYT
  0130   OPEN FILE(1,1)"NUTID"
  0140   READ FILE(1)ÅR,MÅNED,DATO,INDSKRIV
  0150   CLOSE FILE(1)
  0160   IF INDSKRIV THEN 
  0170     PRINT "<140><134>";XY$(30);XY$(1);"INDSKRIVNING AF DATO"
  0180     PRINT "<134>";XY$(27);XY$(2);"--------------------------"
  0190     PRINT "<134>";XY$(20);XY$(8);
  0200     INPUT "ÅR      : ",ÅR
  0210     PRINT "<134>";XY$(20);XY$(10);
  0220     INPUT "MÅNED   : ",MÅNED
  0230     PRINT "<134>";XY$(20);XY$(12);
  0240     INPUT "DATO    : ",DATO
  0250     OPEN FILE(1,3)"NUTID"
  0260     WRITE FILE(1)ÅR,MÅNED,DATO,0
  0270     CLOSE FILE(1)
  0280   ENDIF
  0290   PRINT "<140><134>";XY$(20);XY$(1);"REGISTRERING AF ELEVFORSØMMELSER"
  0300   PRINT "<134>";XY$(13);XY$(2);"-------------------------------------------------------------"
  0310   PRINT "<134>";XY$(15);XY$(5);"A :  OPRYKNING AF KLASSER EFTER SOMMERFERIEN"
  0320   PRINT "<134>";XY$(15);XY$(7);"B :  PÅSKRIVNING AF FORSØMMELSER"
  0330   PRINT "<134>";XY$(15);XY$(9);"C :  UDSKRIVNING/INDSKRIVNING AF BREVE"
  0340   PRINT "<134>";XY$(15);XY$(11);"D :  RETTELSE AF ELEVOPLYSNINGER"
  0350   PRINT "<134>";XY$(15);XY$(13);"E :  UDSKRIVNING AF FORSØMMELSESLISTER"
  0360   PRINT "<134>";XY$(15);XY$(15);"F :  UDSKRIVNING AF KLASSELISTER"
  0370   PRINT "<134>";XY$(15);XY$(17);"G :  STOP"
  0380   PRINT "<134>";XY$(13);XY$(20);"-------------------------------------------------------------"
  0390   REPEAT
  0400     PRINT "<134>";XY$(30);XY$(23);
  0410     INPUT "HVILKEN FUNKTION : <30>",FUNKVALG$
  0420     PRINT "<134>";XY$(1);XY$(1);
  0430   UNTIL FUNKVALG$>="A" AND FUNKVALG$<="G"
  0440   PRINT "<134>";XY$(1);XY$(1);
  0450   CASE FUNKVALG$ OF 
  0460     REM
  0470   WHEN "A"
  0480     ENTER "ADRESSE"
  0490     REM
  0500   WHEN "B"
  0510     ENTER "ADRESSE"
  0520     REM
  0530   WHEN "C"
  0540     ENTER "ADRESSE"
  0550     REM
  0560   WHEN "D"
  0570     ENTER "ADRESSE"
  0580     REM
  0590   WHEN "E"
  0600     ENTER "ADRESSE"
  0610     REM
  0620   WHEN "F"
  0630     ENTER "ADRESSE"
  0640     REM
  0650   WHEN "G"
  0660     OPEN FILE(1,3)"NUTID"
  0670     WRITE FILE(1)ÅR,MÅNED,DATO,1
  0680     CLOSE FILE(1)
  0690     RELEASE 
  0700   ENDCASE
  0710 UNTIL FUNKVALG$="G"
  0720 PRINT "<140>"
  0730 NEW