DataMuseum.dk

top - download

    Length: 1882 (0x75a)
    Types: TextFile
    Notes: GRENRET , OPDATER::GRENRET
    Names: »GRENRET«

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

TextFile

«ff»
  0370 REM -------------------------------------------------------------------------
  0380 PROC GRENRET
  0390   LET FINDER=0; TÆLLER3=0
  0400   REPEAT
  0410     PRINT "<134>";XY$(68);XY$(1);
  0420     INPUT "NR. : <30>",NRRET
  0430   UNTIL NRRET>=1 AND NRRET<=30
  0440   WHILE FINDER<=NRRET AND TÆLLER3<=29 DO 
  0450     LET TÆLLER3=TÆLLER3+1
  0460     IF ENRRNR(1,TÆLLER3)>=1 AND ENRRNR(1,TÆLLER3)<=30 THEN 
  0470       LET FINDER=FINDER+1
  0480     ENDIF
  0490   ENDWHILE
  0500   IF NRRET<=18 THEN 
  0510     LET PLOTRET=5+NRRET
  0520   ELSE
  0530     LET PLOTRET=NRRET-13
  0540   ENDIF
  0550   LET RNR=ENRRNR(1,TÆLLER3)
  0560   REPEAT
  0570     LET IORDEN=1
  0580     PRINT "<134>";XY$(57);XY$(PLOTRET);
  0590     INPUT "<30>",GREN$
  0600     IF KLASSE$(2)>="A" AND KLASSE$(2)<="D" THEN 
  0610       IF GREN$<>"M" AND GREN$<>"N" AND GREN$<>"S" THEN 
  0620         PRINT "<7>"
  0630         LET IORDEN=0
  0640       ENDIF
  0650     ELSE
  0660       IF GREN$<>"N" AND GREN$<>"S" AND GREN$<>"F" THEN 
  0670         PRINT "<7>"
  0680         LET IORDEN=0
  0690       ENDIF
  0700     ENDIF
  0710   UNTIL GREN$="N" OR GREN$="M" OR GREN$="S" OR GREN$="F" AND IORDEN
  0720   REPEAT
  0730     PRINT "<134>";XY$(68);XY$(PLOTRET);
  0740     INPUT "<30>",VALGFAG$
  0750     IF VALGFAG$<>"MU" AND VALGFAG$<>"FO" THEN 
  0760       PRINT "<134>";XY$(79);XY$(PLOTRET-2);"<7>"
  0770     ENDIF
  0780   UNTIL VALGFAG$="MU" OR VALGFAG$="FO"
  0790   READ FILE(1,RNR)NR,GREN$,ENAVN$,FNAVN$,MNAVN$,MYNDIG
  0800   WRITE FILE(1,RNR)NR,GREN$,ENAVN$,FNAVN$,MNAVN$,MYNDIG
  0810   READ FILE(2,RNR)SPROGFR$,SPROGET$,FORMUS$
  0820   WRITE FILE(2,RNR)SPROGFR$,SPROGET$,VALGFAG$
  0830   LET RNR=ENRRNR(1,TÆLLER2); GREN$="@"
  0840   PRINT "<134>";XY$(68);XY$(1);"<30>"
  0850   LET GREN$="@"
  0860 ENDPROC GRENRET